Aruivo de Retorno

[Filippe]

Galera,

gerei o arquivo de envio para o banco ITAU. belezinha sem problemas.

Agora estou com o arquivo de retorno.

No demo não tem o retorno.

Vi que tem a Função LerRetorno, utilizei ela, esta passando todos os campos corretamente.

Agora estou quebrando a cabeça, acredito que deve ser a parte mais facil ..kkk

Que é recuperar os dados.

Vi tambem que na rotina do banco ele le o TXT e joga tudo no

Titulo := ACBrBanco.ACBrBoleto.CriarTituloNaLista;

Entaum ele esta carregando todos os dados .. no Titulo .. mais uqe esta na na UNIT do banco .. não estou consegindo carrega-la na minha unit ..

Alguem tem algum exemplo ai ???

abraços,

[thiagogobatti]

Amigo o codigo abaixo usei uma tabela dbf local para gravar os registros do arquivo de retorno. apos isso o usuario tem a opção de baixar todos os titulo com um click ou um a um ou excluir ou alterar.

segue o codigo _ uso com o banco itau outros nao tive oportunidade de testar.

var i : Integer;

   Status, carteira, ndoc : string;

   vlrpago, juros : Real;

   databaixa : TDate;

begin

  tbTEMRetorno.Open;

  tbDBDeleteAll(tbTEMRetorno); // rotina para deleter todos os produtos temporarios


  // configuração do arquivo de remessa.

  ACBrBoleto1.DirArqRetorno:= 'C:\';

  OpenDialog1.InitialDir:= 'C:\';

  if OpenDialog1.Execute then

  ACBrBoleto1.NomeArqRetorno:= ExtractFileName(OpenDialog1.FileName);


  ACBrBoleto1.LayoutRemessa:= c400;

  ACBrBoleto1.Cedente.CNPJCPF := '07368318000179';

  ACBrBoleto1.LeCedenteRetorno:= true;

  ACBrBoleto1.LerRetorno;


    with  ACBrBoleto1 do begin

        for i:= 0 to ListadeBoletos.Count -1 do begin

            // leitura do arquivo de retorno.

            databaixa:= ListadeBoletos.Objects[i].DataBaixa;

            juros:= ListadeBoletos.Objects[i].ValorMoraJuros;

            vlrpago:= ListadeBoletos.Objects[i].ValorDocumento;

            Status:=  ListadeBoletos.Objects[i].OcorrenciaOriginal.Descricao;

            carteira:= ListadeBoletos.Objects[i].Carteira;

            ndoc:= ListadeBoletos.Objects[i].NossoNumero;

            // bloco para gravar registro por registro no banco de dados.

            tbTEMRetorno.Close;

            tbTEMRetorno.Open;


            tbTEMRetorno.Insert;

            tbTEMRetornoCODIGO.AsInteger := i;

            tbTEMRetornoDATA_ARQ.AsDateTime := (date);

            tbTEMRetornoDATABAIXA.AsDateTime := databaixa;

            //tbTEMRetornoNOSSONUMER.AsString := ndoc;

            tbTEMRetornoNOSSONUMER.AsString := FormatFloat('000000', StrToFloat(ndoc));   // boleto 6 digitos

            tbTEMRetornoVALORRECEB.AsFloat := vlrpago;

            tbTEMRetornoVALORJUROS.AsFloat := juros;

            if status = '06-Liquidação Normal' then begin

              tbTEMRetornoSTATUS.AsString := 'PAGO';

            end;

            if status = '15-Baixas Rejeitadas' then begin

              tbTEMRetornoSTATUS.AsString := 'REJEITADO';

            end;

            tbTEMRetorno.Post;

            tbTEMRetorno.Refresh;

            tbTEMRetorno.First;

            // Fim

        end;

    end;

[Filippe]

Cara ... Era isso mesmo .. kkk

Vou implementar depois do almoço ... kkk

Valeu .. abraços,

[Filippe]

PErfect ...

Era isso mesmo ..

abraços,

[Paulo Augusto]

Estou preocessando o arquivo retorno da caixa, carteira SR e o campo ListadeBoletos.Objects[i].OcorrenciaOriginal.Descricao <- vazio

acabei de fazer o update e continua, alguem resolveu, poderia me dar uma dica.

[Juliana Tamizou]

Bom dia.

 

A caixa possui 2 units distintas para a cobrança SICOB e SIGCB, vc está usando o tipo de cobrança correto para a leitura do arquivo retorno?

 

Att.

[Marcelo Zerbinati]

Olá,

 

De uma olhada nesse link;

 

http://www.devmedia.com.br/emissao-e-controle-de-boletos-componente-acbr-no-delphi/23631

[Paulo Augusto]

bom dia, bem nao tinha me atentando para esse detalhe, vou verificar e testar

obrigado!