Ola, Após ter verificado o manual, fui verificar os boletos que meu cliente emitia pelo próprio programa do banco, realizei os cálculos conforme o manual e quando o retorno era 1 que no caso no acbr jogava P o do banco jogava o zero,
então eu fiz a alteração no código fonte trocando o 'P' pelo zero, realizei emissões com os mesmo dados do boleto gerado pelo programa do banco e os dados bateram, enviei ao banco e ele aprovou.
segue as alterações:
if Modulo.ModuloFinal = 1 then
Result:= '0'
Nesta unit teve um segunda alteração em relação a função LerRetorno400 onde as posições da data de credito não estava de acordo com o manual tbm realizei o ajuste.
if StrToIntDef(Copy(sLinha,176,6),0) <> 0 then
DataCredito:= StringToDateTimeDef( Copy(sLinha,176,2)+'/'+
Copy(sLinha,178,2)+'/'+
Copy(sLinha,180,2),0, 'DD/MM/YY' );
Como faço para enviar este arquivo para vcs avaliarem ?
ACBrBancoUnicredES.pas