Erro Na Homologação Dos Boletos Do Banrisul

[jairodacosta]

Olá !!!  estou com problemas na homologação de boletos do
banrisul !!! Mandei 23 boletos para homologação e 3 estão com erro

 

Esta foi a reposta que obtive

 

Os seguintes boletos estão com erro no número de controle:

 

NN - 50.53 -  o número de controle correto é 01 em vez de 10.        
linha digitavel gerada pelo acbr  04192.10638 08546.400006 00005.040100 5 56280000004400

NN - 52.15 -  o número de controle correto é 61 em vez de 70.        
linha digitavel gerada pelo acbr  04192.10638 08546.400006 00005.240700 8 56280000007988

NN - 56.22 - o npumero de controle correto é 71 em vez de 80.       
linha digitavel gerada pelo acbr  04192.10638 08546.400006 00005.640800 8 56280000007326

BoletosComProblema.pdf

[Juliana Tamizou]

Boa noite.

 

A alteração postada neste tópico resolveu o problema ?

 

Att.

[jairodacosta]

Nâo resolveu !!! Homologuei ontem 20/02/13 e deu erro nestes 3 boletos !!! O suporte falou que o erro está nas excecões do cálculo !!! Quando ele encontra essas excecoes ele refaz o calculo mas está fazendo errado, segundo o atendimento !!! De 23 boletos 03 deram o problema !!!

[jairodacosta]

Juliana !!! Fiz uma alteração nos boletos do banrisul, e enviei 46 boletos para homologação e todos retornaram ok !!!

A alteração foi na funcao 'MontarCodigoBarras' segue em anexo para atualização no SVN !!!

ACBrBancoBanrisul.pas

[jairodacosta]

Obs: Homologuei hoje à tarde 21/02/13 !!!!

[Juliana Tamizou]

Boa tarde.

 

Não ficou claro o porque do seguinte trecho da alteração:

 

 

 

     {Calculando Módulo 10}

    // Modulo.MultiplicadorInicial:= 1;

   //  Modulo.MultiplicadorFinal:= 2;

   //  Modulo.MultiplicadorAtual:= 2;

   //  Modulo.FormulaDigito := frModulo10;

   //  Modulo.Documento := CampoLivre;

   //  Modulo.Calcular;

     CampoLivre := CampoLivre +  IntToStr(Modulo.DigitoFinal);

 

Se todo o cálculo foi comentado, porque foi mantida está última linha?

 

Att,

[jairodacosta]

Olá !!! Essa linha do código CampoLivre := CampoLivre +  IntToStr(Modulo.DigitoFinal) ele pega o campo livre e adiciona 1 digito então fica 24 digitos, e para o cálculo do duplo dígito ele usa o seguinte código  *** digitoVerificador:=(CalculaDigitosChaveASBACE(copy(CampoLivre,1,23))) *** !!! Foi esquecido de comentar a linha, ela não interfere no novo código para cálculo do duplo dígito !!!

[Juliana Tamizou]

Bom dia.

 

Correção disponível no svn.

 

Att.