Fiquei um bom tempo sem postar, e agora necessito muito de ajuda.
Uso Blinker 7 com Clipper 5.2 e não consigo usar as funções da lib LFN para arquivos de nome longo.
Qualquer função que utilizo dá GPF. Já fiz busca no fórum, mnas nada encontrei.
É uma rotina para converter memo em txt
Se alguém tiver alguma solução antecipadamente agradeço
Código: Selecionar todos
#include "SET.ch"
#include "inkey.ch"
#include "si.ch"
#INCLUDE "LFNLIB.CH"
************************
// CONVERTE DUPLICATAS
FUNCTION ConverteMemo()
************************
LOCAL nomeatu, nomeant
Abrearq()
SELECT Odup
DBGOTOP()
SET PRINT ON
SET DEVICE TO PRINT
SETPRC(0,0)
WHILE !EOF()
nomeant:="O:\SI\MEMODUP\"+LEFT(TRANDUP(ODup->duplicata),8)+".TXT"
SET PRINTER TO &nomeant
linha := 0
LINS:=MLCOUNT(ODup->obs,60)
FOR I = 1 TO LINS
set device to screen
STATUS("Convertendo duplicata "+ODup->duplicata+" - Linha"+STRZERO(i,10))
SET DEVICE TO PRINT
IF !EMPTY(ALLTRIM(Memoline(ODup->obs,60,i,3,.T.)))
@ PROW(),0 SAY ALLTRIM(Memoline(ODup->obs,60,i,3,.T.))
@ PROW()+1,0 SAY ""
ENDIF
NEXT
SET DEVICE TO SCREEN
SET PRINT OFF
nomeatu:="O:\SI\MEMODUP\"+TRANDUP(ODup->duplicata)+".TXT"
LF_FRename(nomeant,nomeatu)
ODup->(DBSKIP())
END
RETURN ''
Fernando Lara




