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

[Wellington Souza]

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

[José M. S. Junior]

Bom dia, estamos realizando a validação para a correção...

[José M. S. Junior]

Boa Tarde

Correção já está disponível no SVN. Obrigado pela contribuição!