LerRetorno400 ACBrBancoBradesco.pas

[SolivanAraujo]

Alterado

CodMotivo := StrToIntDef(IfThen(copy(Linha,MotivoLinha,2) = '00','00',copy(Linha,MotivoLinha,2)),0);

para

CodMotivo := StrToIntDef(IfThen(copy(Linha,MotivoLinha,2) = '00','00',copy(Linha,MotivoLinha,2)),0);

na linha 474.

 

um determinado retorno do bradesco com vários pagamentos não estava sendo processado e o motivo foi a ausência de um inteiro em copy(Linha,MotivoLinha,2). haviam 54 pagamentos e o erro ocorria apenas no 20º registro.

 

Segue unit alterada para análise.

ACBrBancoBradesco.pas

[SolivanAraujo]

Totalmente operacional, lendo vários retornos sem problemas.