Campo ACBR Boleto LerRetorno400

[hugo_fabricio]

 

na Unit ACBrBoleto na função LerRetorno400 foi adicionado dois campos:

        BancoCobrador          :=  Copy(Linha,166,3);
        AgenciaCobrador        := Copy(Linha,169,5);

 

O banco Bradesco retorna estes dados,

 

 

Gostaria que adicionasse no repositório !

Desde já agradeço

ACBrBoleto.pas

[Juliana Tamizou]

Boa tarde.

Anexe também o manual utilizado como referencia para a inclusão destas propriedades.

Att.

[hugo_fabricio]

o arquivo deu mais de 2 mb

 

mas vou enviar o link 

https://banco.bradesco/assets/pessoajuridica/pdf/4008-524-0121-layout-cobranca-versao-portugues.pdf

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[José M. S. Junior]

Boa tarde Hugo,

Analisando o layout dos demais bancos, notei que alguns já implementam essa leitura no retorno através da Classe TLiquidacao

Veja um exemplo no retorno do banco Itau, note que se trata da mesma posição... Creio que possa utilizar essa mesma propriedade para o Banco Bradesco.

Liquidacao.Banco      := StrToIntDef(Copy(Linha,166,3), -1);
Liquidacao.Agencia    := Copy(Linha,169,4);
Liquidacao.Origem     := '';