Ir para conteúdo
  • Cadastre-se

MessiasNatal

Membros
  • Total de ítens

    2
  • Registro em

  • Última visita

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

MessiasNatal's Achievements

Newbie

Newbie (1/14)

  • First Post
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

2

Reputação

  1. 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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.