[LerRetorno240 Banco Caixa]

Na procedure

LerRetorno240 não contem essas linhas,

rCedente := trim(Copy(ARetorno[0],47,30));
rAgencia := Copy(ARetorno[0],27,4);
rConta   := Copy(ARetorno[0],34,8);

estas linhas estão no LerRetorno400;

 

Espero ter ajudado;

 

[Correção de bug e Complemento na TACBrCaixaEconomica.LerRetorno240]

Na correção do bug 

        Antes >

{   TempData := Copy(ARetorno[1],200,2) + '/' + Copy(ARetorno[1],202,2) + '/' +
               Copy(ARetorno[1],204,4);      <<<<< Forma anterior

   if TempData <> '00/00/00' then
     ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(TempData, 0, 'DD/MM/YY');}

Depois >

{   TempData := Copy(ARetorno[1],200,2) + '/' + Copy(ARetorno[1],202,2) + '/' +
               Copy(ARetorno[1],206,2);      <<<<< Alteração aqui para tornar válido o teste da próxima linha

   if TempData <> '00/00/00' then
     ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(TempData, 0, 'DD/MM/YY');}

 

Na sugestão de complemento gostaria de propor a seguinte linha no Segmento "T" da mesma Unit 

            Sacado.NomeSacado           := copy(Linha,149,50);

para capturarmos o nome do sacado a partir do retorno.

 

Então, é isso que eu gostaria de contribuir com a comunidade, se me equivoquei em algo por favor me esclareça.

Desde já agradeço;

ACBrBancoCaixa.pas