[Linha digitável UNICRED gerando com letra 'P']

OK.

Muito Obrigado.

[Linha digitável UNICRED gerando com letra 'P']

Em 13/08/2019 at 09:56, Juliana Tamizou disse:

Bom dia.

Precisamos rever este tópico, fazendo a troca seu boleto foi validado?

Att.

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