Boleto Banco Itau - Código de Barras com erro.

[Massao Aihara]

Pessoal boa tarde.

Tive problemas com o boleto do Itau,

Em alguns clientes o código de barras estava saindo errado.

Motivo: na hora de gerar o código, o ACBr estava colocando o ContaDigito direto. E segundo o manual do banco é para calcular o digito.

Veja pag. 37 do modelo 240 ou pag. 49 do modelo 400.

       aAgenciaCC   := Cedente.Agencia +
                       Cedente.Conta   +
                       Cedente.ContaDigito;

 

"Criei" (Copiei) uma função para calcular o digito

CalcularDigitoConta(AgenciaContaNumero :string) :string;

e alterei o para:

       aAgenciaCC   := Cedente.Agencia +
                       Cedente.Conta   +
                       CalcularDigitoConta(Cedente.Agencia + Cedente.Conta); //Cedente.ContaDigito;

 

Segue em anexo.

ACBrBancoItau.pas

 

Se eu estiver equivocado, favor, me corrijam.

 

[Antonio Gomes]

Mas voce nao tem esse digito no seu programa?

Quando voce cadastra a conta, acho legal ter esses campos separados, usuario sempre mexe e coloca errado... pode ser que eu esteja errado também.

Da maneira que mexeu no fonte agora, passa para o componente a responsabilidade de calcula-lo.

[Juliana Tamizou]

Boa tarde.

Usamos a um bom tempo a implementação atual sem problemas, o banco não forneceu o DV da conta ao cliente?

Att.