Página 1 de 1

arquivo txt para banco !

Enviado: 13 Jun 2006 12:01
por ReinaldoFreitas
Ola amigos, meu sistema esta gerando um arquivo txt para o bradesco mas o sistema do bradesco nao esta localizando o final do arquivo ???

estou fazendo...

arquivo="CB010101.REM"
cob=fopen(arquivo)
fwrite.......
....
....
fwrite(cob,chr(26))
fclose(cob)

tem algo errado ???

obrigado..

Enviado: 13 Jun 2006 13:04
por Hstadler
ola amigo

Eu tive esse mesmo problema com o Bradesco, pois fim de arquivo na remessa é o numero 9, mas no clipper ele gera um fim de arquivo, e esse fim de arquivo é que da problema qdo o sistema do Bradesco vai fazer a leitura (não deveria, pois o sistema teria que parar no 9).
Mas eu achei aqui no forum a solução do problema e deu certo:

parte1:= 'parte1.txt'
parte2:= 'parte2.txt'
parte3:= 'parte3.txt'
erase(parte1)
erase(parte2)
erase(parte3)
use banco2400
reg_fim:= reccount()
go bott
txt_fim:= alltrim(linha)
copy to &parte1 sdf for recno() < reg_fim
close
tst:= memowrit(parte2,txt_fim)
run copy &parte1+&parte2 &parte3

ate mais
boa sorte :D

Enviado: 13 Jun 2006 18:22
por Poka
No meu arquivo também dá esse problema, chame o arquivo txt pelo edit
e limpe a ultima linha com CTRK + Y e grava, aí passa normal.



Um abraço

Poka

Enviado: 13 Jun 2006 21:26
por support sistemas
Poka tambem estou precisnado montar esse arquivo se puder me passar agradeço