Calculo DAC para Carteira 112 Itaú

[Daniel Fantastsoft]

Estava trabalhando com o componente ACBrBoleto para o banco itaú e me deparei com a seguinte situação:

Mandei o arquivo de remessa para o banco com todos os dados corretamente, no retorno o banco disponibilizou um PDF para mim, no qual o DAC do "Nosso Número" veio como 6, e no gerado pelo sistema estava como 8. Consultei o suporte do banco e ele me informou que no caso da carteira '112' (que é o meu caso) a impressão do boleto é pelo banco e não pela empresa e nisso é desconsiderado a agencia e a conta na hora do calculo do DAC.

Tomei a liberdade a alterei o código fonte na parte onde é feito a montagem da string para se fazer o calculo do digito verificador

antes estava assim

function TACBrBancoItau.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String;

var

  Docto: String;

begin

   Result := '0';

   Docto := '';


   with ACBrTitulo do

   begin

     Docto := Carteira + padR(NossoNumero,TamanhoMaximoNossoNum,'0');

     if not ((Carteira = '126') or (Carteira = '131') or (Carteira = '146') or

             (Carteira = '150') or (Carteira = '168')) then

         Docto := ACBrBoleto.Cedente.Agencia + ACBrBoleto.Cedente.Conta + docto

     else

       Docto := ACBrTitulo.ACBrBoleto.Cedente.Agencia +

                ACBrTitulo.ACBrBoleto.Cedente.Conta +

                ACBrTitulo.Carteira +

                padR(ACBrTitulo.NossoNumero,TamanhoMaximoNossoNum,'0')

   end;


   Modulo.MultiplicadorInicial := 1;

   Modulo.MultiplicadorFinal   := 2;

   Modulo.MultiplicadorAtual   := 2;

   Modulo.FormulaDigito := frModulo10;

   Modulo.Documento:= Docto;

   Modulo.Calcular;

   Result := IntToStr(Modulo.DigitoFinal);


end;

com minha alteração ficou assim:

function TACBrBancoItau.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String;

var

  Docto: String;

begin

   Result := '0';

   Docto := '';


   with ACBrTitulo do

   begin

      Docto := Carteira + padR(NossoNumero,TamanhoMaximoNossoNum,'0');

      if not (Carteira = '112') then

        if not ((Carteira = '126') or (Carteira = '131') or (Carteira = '146') or

               (Carteira = '150') or (Carteira = '168')) then

           Docto := ACBrBoleto.Cedente.Agencia + ACBrBoleto.Cedente.Conta + docto

        else

           Docto := ACBrTitulo.ACBrBoleto.Cedente.Agencia +

                    ACBrTitulo.ACBrBoleto.Cedente.Conta +

                    ACBrTitulo.Carteira +

                    padR(ACBrTitulo.NossoNumero,TamanhoMaximoNossoNum,'0')

   end;


   Modulo.MultiplicadorInicial := 1;

   Modulo.MultiplicadorFinal   := 2;

   Modulo.MultiplicadorAtual   := 2;

   Modulo.FormulaDigito := frModulo10;

   Modulo.Documento:= Docto;

   Modulo.Calcular;

   Result := IntToStr(Modulo.DigitoFinal);


end;

Obrigado pela atenção de vocês!

[Juliana Tamizou]

Bom dia.

Por favor, anexe aqui a sua unit por favor.

Att.

[Daniel Fantastsoft]

Sinto muito pela demora, aqui na empresa teve alguns problemas que precisaram da minha atenção dai não pude voltar aqui no fórum...

Mas já está ai a Unit!

ACBrBancoItau.pas

[Daniel Fantastsoft]

Bom dia a todos, gostaria de saber como está o andamento desta correção, se será feita ou se já está em processo.

Muito obrigado pela atenção!

[Juliana Tamizou]

Boa tarde.

A alteração foi implementada.

Att.