Salvar arquivo em ANSI

[rubens]

Boa tarde ...

Estou implementando o SPED. Daí o validador só abre o arquivo TXT se estiver no formato ANSI.
O que estou fazendo:

Código: Selecionar todos

cFILE := 'SPED\SPED'+SUBST(DTOC(dDTINI),4,2)+SUBST(DTOC(dDTINI),9,2)+'.TXT'
SET PRINTER TO &cFILE
SET DEVI TO PRINTER
...
relatorio
...
SET PRINTER TO	
SET DEVI TO SCREEN
cSPED := MEMOREAD( cFILE )
cSPED := WIN_OEMTOANSI( cSPED )+CHR(13)+CHR(10)
MEMOWRIT( cFILE, cSPED )  
RUN NOTEPAD &cFILE 

Blz. o PVA leu o arquivo agora... Só que deixou de reconhecer o final de linha (chr13)+chr(10). Ele já é colocado no final do 'relatorio' e eu ainda pra reforçar coloquei de novo depois que converto para ANSI. Mesmo assim o PVA continua reclamando que não encontrou o final de arquivo...

O que mais posso fazer... ?

Obrigado
Rubens

[Pablo César]

EU acho que você tem que ler linha a linha convertendo de OEM para ANSI

[Jairo Maia]

Olá Pessoal,

Rubens, ao invés de usar MemoWrit(), tente assim e veja se funciona:

Código: Selecionar todos

nHandler := FCreate( cFILE )
FWrite( nHandler, cSPED )
FClose( nHandler )

[alxsts]

Olá!

Acho que você está confundindo o marcador de final de linha - ou separador de linhas - ( CHR(13)+CHR(10) ) com o marcador de final de arquivo, que é o CHR(26). Altere a linha abaixo para ficar assim:

Código: Selecionar todos

cSPED := WIN_OEMTOANSI( cSPED )+CHR(26)

[rubens]

Pessoal na mesma hora eu tinha achado uma solução e editei o post mas não sei porque não atualizou aqui no Fórum

é o seguinte troquei memoread() e memowrit() por hb_memoread() e hb_memowrit(). Tinha lido aqui no Fórum algo a respeito que memoread() e memowrit() usam o padrão OEM e o hb_memoread() e o hb_memowrit() usa o padrão ANSI e funcionou. não precisa nem converter. Basta ler o arquivo e salvar com hb_memowrit()

Código: Selecionar todos

cFILE := 'SPED\SPED'+SUBST(DTOC(dDTINI),4,2)+SUBST(DTOC(dDTINI),9,2)+'.TXT'
SET PRINTER TO &cFILE
SET DEVI TO PRINTER
...
relatorio
...
SET PRINTER TO 
SET DEVI TO SCREEN

cSPED := HB_MEMOREAD( cFILE )
HB_MEMOWRIT( cFILE, cSPED ) 

RUN NOTEPAD &cFILE