CORREÇÃO - TACBrBancoSantander LerRetorno400

[dtybel]

Juliana,

Na unit: ACBrBancoSantander

Existe um erro na função: Procedure TACBrBancoSantander.LerRetorno400 ( ARetorno: TStringList );

Trecho:

rCedente := trim(Copy(ARetorno[0],47,30));

rAgencia := trim(Copy(ARetorno[1],18,4));

rConta := trim(Copy(ARetorno[1],22,8))+ Copy(ARetorno[1],384,1);

rDigitoConta := Copy(ARetorno[1],385,1);

Alterar para:

rCedente := trim(Copy(ARetorno[0],47,30));

rAgencia := trim(Copy(ARetorno[1],18,4));

rConta := trim(Copy(ARetorno[1],22,8))+ Copy(ARetorno[1],384,1);

rConta := padR( OnlyNumber(rConta),fpTamanhoConta,'0');

rDigitoConta := Copy(ARetorno[1],385,1);

Senão emite erro de conta inválida, mas é só questão de formatação dos zeros a esquerda.

Anexo: ACBrBancoSantander.rar