Dar Baixa Em Contas Com Arquivo Retorno?

[Flávio Machado]

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 !

[vinizioWOW]

Exemplo simples populando um DataSet com o arquivo de retorno:

  CDSRetorno.Close;
  CDSRetorno.CreateDataSet;
  CDSRetorno.Open;  
  CDSRetorno.EmptyDataSet;
  ACBrBoleto1.ListadeBoletos.Clear;
  ACBrBoleto1.DirArqRetorno  := ExtractFilePath(ArquivoRetorno);
  ACBrBoleto1.NomeArqRetorno := ExtractFileName(ArquivoRetorno);
  try
  ACBrBoleto1.LerRetorno;
  for i := 0 to  ACBrBoleto1.ListadeBoletos.Count-1 do
    begin
      if ACBrBoleto1.ListadeBoletos.Objects[i].ValorRecebido > 0 then
        begin
          CDSRetorno.Insert;
          CDSRetorno.FieldByName('NossoNumero').AsString      := ACBrBoleto1.ListadeBoletos.Objects[i].NossoNumero;
          CDSRetorno.FieldByName('NumeroDocumento').AsString  := RetiraBrancos(ACBrBoleto1.ListadeBoletos.Objects[i].NumeroDocumento);
          CDSRetorno.FieldByName('DataVencimento').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects[i].Vencimento;
          CDSRetorno.FieldByName('DataBaixa').AsDateTime      := ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito;
          CDSRetorno.FieldByName('ValorDocumento').AsFloat    := ACBrBoleto1.ListadeBoletos.Objects[i].ValorDocumento;
          CDSRetorno.FieldByName('ValorBaixa').AsFloat        := ACBrBoleto1.ListadeBoletos.Objects[i].ValorRecebido;
          CDSRetorno.Post;
        end;
    end;
  Result := True;
  except
    on e : Exception do
      begin
        MessageDlg('Erro ao carregar arquivo de retorno. Contate o Suporte!'+#13+E.Message,mtWarning,[mbOk],0);
        Result := False;
      end;
  end;

[Flávio Machado]

vinizio você já testo esse código no arquivo retorno da CEF ?

 

aqui diz que  a pasta não foi encontrada  !

[Flávio Machado]

dar esse erro aqui:  First chance exception at $7708C41F. Exception class Exception with message

'Arquivo não encontrado:...

Editado 18 Outubro, 2013 por Flávio Machado

[Juliomar Marchetti]

 

dar esse erro aqui:  First chance exception at $7708C41F. Exception class Exception with message

'Arquivo não encontrado:...

 

Daqui você saiu e criou esse tópico novo sobre algo que já estava tratando aqui

[Flávio Machado]

alguém ?

[Juliomar Marchetti]

Seu erro é de endereço de memoria

poste mais informações aqui, tipo o código que executa e onde ele ocasiona o erro em que ponto ele dispara a exceção

[Flávio Machado]

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;

[Flávio Machado]

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 !

[Juliomar Marchetti]

Você atualiza diariamente ou semanalmente o aCBR?

senão então você não está no endereço correto do ACBr veja na minha assinatura abaixo tem como atualizar

[Flávio Machado]

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... 

[Flávio Machado]

bem o erro continua  vou anexar os arquivos retornos que estou testando

 

 

ret281.rar

Nova pasta.rar

[Flávio Machado]

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;

[Flávio Machado]

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.'

 

[Jéter Rabelo Ferreira]

Esse erro ocorre que o padrão CNAB240 não foi implementado para o banco em que você está lendo o arquivo retorno.

 

Atenciosamente.

[Flávio Machado]

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

[Flávio Machado]

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 '

[Flávio Machado]

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 !

 

Editado 19 Outubro, 2013 por Flávio Machado

[Flávio Machado]

alguém poderia me dizer se eu só vou poder fazer os teste com arquivos retornos com os dados dos meus próprios cedentes ?

 

 'CPF inválido !' ;   // o erro esse!

 

isso depois que eu marquei a opção '' lecedenteretorno''

Editado 20 Outubro, 2013 por Flávio Machado

[Flávio Machado]

Resolvi eu estava lendo o retorno da CEF errado, eu estava usando TipoCobranca CobCaixaEconomica au terei para TipoCobranca CobCaixaSicob;

 

tudo certo agora, Vlw a todos pela ajuda ...!