Exemplo de tratamento do retorno do ACBRPAGFOR

[marcio.santos]

Bom dia.

Gostaria de um exemplo de tratamento do retorno do ACBRPAGFOR, se alguém tiver peço a gentileza de postar.

Muito obrigado.

[Italo Giurizzato Junior]

Boa tarde Marcio,

No programa exemplo do componente se não me falha a memória ainda não temos um exemplo de como tratar o retorno.

Mas como o arquivo TXT tanto de envio quanto de retorno do ACBrPagFor segue o padrão CNAB 240 que é o mesmo utilizado por diversos banco no que se refere ao Boleto, acredito que você possa tomar como base o tratamento do retorno do Boleto para fazer o do PagFor.

[marcio.santos]

Boa tarde Italo.

Nós não utilizamos hoje o boleto.

Eu até comecei a fazer conforme abaixo, mas se tivesse um exemplo mais consistente eu agradeceria.

with ACBrPagFor1.Arquivos do
begin

     for i := 0 to ACBrPagFor1.Arquivos.Count - 1 do
         for j := 0 to ACBrPagFor1.Arquivos.Items[i].PagFor.Lote.Items[i].SegmentoA.Count - 1 do
         begin
             inscricao  := ACBrPagFor1.Arquivos.Items[i].PagFor.Lote.Items[i].SegmentoA.Items[j].Credito.SeuNumero;
         end;
     end;
end;

 

Muito obrigado.

Por exemplo como tratar as ocorrências de retorno.

[Italo Giurizzato Junior]

Marcio,

Eu não tenho.

[Juliana Tamizou]

Boa tarde.

Como o Italo citou, não temos um demo tratando as cada retorno, a meu ver trata-se de algo que você deve interpretar e decidir oque deve ser feito, tomando por base a emissão de boletos, quando vc recebe um retorno de Pagamento Liquidado, sua aplicação faria a baixa do mesmo, lendo também os valores e datas relativas a tal pagamento.

Att.