Ola, bom dia.
Estou importando o arquivo de retorno no banco Santander no Layout 400.
Quando eu peço para o componente me retornar a Data do Arquivo, ele me retorno uma data inválida 30/12/1899.
Verificando o codigo no layout 240, percebi que tem uma atributo a Data do arquivo
Na procedure TACBrBancoSantander.LerRetorno240(ARetorno: TStringList);
Na linha 869
ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[0],144,2)+'/'+
Copy(ARetorno[0],146,2)+'/'+
Copy(ARetorno[0],148,4),0, 'DD/MM/YYYY' );
Nesse exemplo do Layout 240 ele atribui a data do arquivo.
Na teoria teria que fazer o mesmo para o layout 400.
Fazendo aqui eu Implementei o codigo na Linha 960 colocando:
ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[0],95,2)+'/'+
Copy(ARetorno[0],97,2)+'/'+
Copy(ARetorno[0],99,2),0, 'DD/MM/YY' );
Fazendo esse processo, ele me retorna a data do arquivo.
Desde já agradeço.