arquivo txt para banco !

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

ReinaldoFreitas
Usuário Nível 2
Usuário Nível 2
Mensagens: 97
Registrado em: 02 Jul 2005 15:39

arquivo txt para banco !

Mensagem 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..
Iniciante em Xharbour / Hwgui
Hstadler
Usuário Nível 2
Usuário Nível 2
Mensagens: 65
Registrado em: 01 Nov 2005 19:48

Mensagem 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
Avatar do usuário
Poka
Usuário Nível 4
Usuário Nível 4
Mensagens: 563
Registrado em: 25 Out 2004 21:26
Localização: Leme/SP

Mensagem 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
support sistemas
Usuário Nível 2
Usuário Nível 2
Mensagens: 73
Registrado em: 22 Set 2005 23:43
Localização: Londrina

Mensagem por support sistemas »

Poka tambem estou precisnado montar esse arquivo se puder me passar agradeço
Responder