Flávio Machado

se as informações do retorno não forem iguais a do cedente tipo o campo CPF não vai ler correto ?

O CPF do retorno tem que ser igual ao do cedente para dar Baixa ? li nesse poste pelo que eu entende só vou poder ler o arquivo retorno por completo se as informações estiverem corretas com o cedente !

Bem eventualmente o erro era por eu não tinha selecionado o banco para ler o retorno mais agora ta me retornando outro erro :/ 'CNPJ/CPF do arquivo invalido '

o banco é CEF creio que já esta implementado ..

bem eu achei alinha que não estava passando era essa ACBrBoleto1.DirArqRetorno := ExtractFileName(Memoret.Text); eu mudei para ACBrBoleto1.DirArqRetorno := ExtractFilePath(Memoret.Text); agora ta me retornando o erro: 'Função ler retorno240 não implementada para o banco não definido.'

o erro é nessas linhas if OpenDialog1.Execute then begin Memoret.Text := OpenDialog1.FileName; ACBrBoleto1.DirArqRetorno := ExtractFileName(Memoret.Text); ACBrBoleto1.NomeArqRetorno := ExtractFileName(Memoret.Text); ACBrBoleto1.LerRetorno;

bem o erro continua vou anexar os arquivos retornos que estou testando ret281.rar Nova pasta.rar

eu tava usando esse endereço para atualizar (svn://svn.code.sf.net/p/acbr/code/trunk) mais esse erro deu quando tentei fazer um SVN Checkount... ta com 4 a 5 dias que eu não atualizava no endereço acima...

Juliomar não sei se é por causa disso mais vou tentar fazer , fui atualizar o SVN e dar o seguinte erro '' O sistema não pode encontrar o caminho especificado '' ! vou tentar resolver isso se der certo eu posto aqui !

meu codigo : var I : Integer; begin if OpenDialog1.Execute then begin Memoret.Text := OpenDialog1.FileName; ACBrBoleto1.DirArqRetorno := ExtractFileName(Memoret.Text); ACBrBoleto1.NomeArqRetorno := ExtractFileName(Memoret.Text); ACBrBoleto1.LerRetorno; for i := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do begin if ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido > 0 then begin IBPescador.Insert; IBPescador.FieldByName('NOSSO_NUMERO').AsString := ACBrBoleto1.ListadeBoletos.Objects.NossoNumero; IBPescador.FieldByName('DATA_VENC').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects.Vencimento; IBPescador.FieldByName('DATA_QUIT').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects.DataCredito; IBPescador.FieldByName('VALOR_CONTA').AsFloat := ACBrBoleto1.ListadeBoletos.Objects.ValorDocumento; IBPescador.FieldByName('VALOR_QUITATO').AsFloat := ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido; IBPescador.Post; end; end; end; end;

mais eu to usando um opendialog ... como isso pode acontecer e eu ja tentei assim, acbrboleto1.nomearqretorno := ' C:/pasta/retorno...' ; e deu o mesmo erro ..!

alguém ?

Juliomar pode trancar esse post fico com outro !! não sei como excluir :/

to com o mesmo erro do colega Paulo silva : Arquivo não encontrado: \C:\RETORNO\RETORNO-104.RET alguém pode me dizer o que pode ser antes de ler o retorno tem algum procedimento

dar esse erro aqui: First chance exception at $7708C41F. Exception class Exception with message 'Arquivo não encontrado meu cédigo para ler o re torno procedure TfrmBoleto.SpeedButton4Click(Sender: TObject); var I : Integer; begin if OpenDialog1.Execute then begin ACBrBoleto1.NomeArqRetorno := OpenDialog1.FileName; ACBrBoleto1.LerRetorno; for i := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do begin if ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido > 0 then begin IBPescador.Insert; IBPescador.FieldByName('NOSSO_NUMERO').AsString := ACBrBoleto1.ListadeBoletos.Objects.NossoNumero; IBPescador.FieldByName('DATA_VENC').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects.Vencimento; IBPescador.FieldByName('DATA_QUIT').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects.DataCredito; IBPescador.FieldByName('VALOR_CONTA').AsFloat := ACBrBoleto1.ListadeBoletos.Objects.ValorDocumento; IBPescador.FieldByName('VALOR_QUITATO').AsFloat := ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido; IBPescador.Post; end; end; end; end;

dar esse erro aqui: First chance exception at $7708C41F. Exception class Exception with message 'Arquivo não encontrado:...

vinizio você já testo esse código no arquivo retorno da CEF ? aqui diz que a pasta não foi encontrada !

Galera sou novo no site, que ria saber como eu posso dar baixa com arquivo retorno ou jogar esse dados em um dbgrid alguém poderia medar um luz ?! toda ajuda é bem vinda !

tudo certo agora !

Alguém ?

1º Consegui era so informa no FastFile o BoletoFR.fr3 que fica na pasta do acbr Exemplo\ACBrBoleto\Delphi\Report. 2º Para Aparecer os logos eu copiei os logo tipo do diretório Acbr\Fontes\AcbrBoleto\Logos , para aminha pasta EXE. ai só indiquei o caminha no DirLogo consegui resolver assim

consegui era só trazer os logos pra minha pasta EXE.

Galera Quando gero o boleto não aparece o logo e não faço ideia como tratar o dirlogo e também não achei posts sobre o assunto :/ !? alguém poderia me ajudar?

Insira no Uses da tua unit principal: RLConsts; e coloque antes do ultimo end. as 2 linhas a baixo: initialization RLConsts.SetVersion(3,71,'B'); deu certo comigo!

Quando tento instalar as alterações postadas pelo colega Solivansoft ta dando erro to tentando instalar direto pelo instalador. obs* uso Delphi XE2