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