Wellington Souza

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;

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