Não Lê Código De Barras Do Boleto Do Banco Do Brasil

[duiliolobianco]

Saudações. Eu não sei bem onde informar, mas aqui em Rondônia, mais especificamente em Ji-Paraná, nós trabalhamos com a Carteira e a Variação da carteira "17-019", e eu não achei este tratamento específico para no ACBr. Eu optei então por informar no campo Carteira o valor '17-019' e pelo menos o boleto imprime normal com a numeração do código de barras funcionando para pagar, apesar de eu ver todo o tratamento para (Carteira = 18, ou 16, etc... que por sorte nós não entramos nesta condição mesmo e pegar sempre o else). O problema é que o código de barras propriamente dito não lê de jeito nenhum.

 

Para resolver este problema, no procedimento onde monta o código de barras (procedure MontarCodigoBarras) na Unit ACBrBancoBrasil, eu fiz a seguinte alteração no trecho:

 

de

         CodigoBarras := IntToStrZero(Banco.Numero, 3) +

                         '9' +

                         FatorVencimento +

                         IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) +

                         IfThen((Length(AConvenio) = 7), '000000', '') +

                         ANossoNumero +

                         IfThen((Length(AConvenio) < 7), padR(OnlyNumber(Cedente.Agencia), 4, '0'), '') +

                         IfThen((Length(AConvenio) < 7), IntToStrZero(StrToIntDef(OnlyNumber(Cedente.Conta),0),8), '') +

                         ACBrTitulo.Carteira;

 

para

         CodigoBarras := IntToStrZero(Banco.Numero, 3) +

                         '9' +

                         FatorVencimento +

                         IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) +

                         IfThen((Length(AConvenio) = 7), '000000', '') +

                         ANossoNumero +

                         IfThen((Length(AConvenio) < 7), padR(OnlyNumber(Cedente.Agencia), 4, '0'), '') +

                         IfThen((Length(AConvenio) < 7), IntToStrZero(StrToIntDef(OnlyNumber(Cedente.Conta),0),8), '') +

                         Copy(ACBrTitulo.Carteira,1,2);

 

 

ou seja, ao invés de colocar o campo ACBrTitulo.Carteira, eu usei somente os dois primeiros digitos.

 

Assim funcionou, quem estiver com este mesmo problema está ai a solução. Estou informando aqui para ver se alguém faz a correção do componente para eu não me preocupar em ficar sempre alterando após cada atualização.

 

Aguardo alguma resposta,

Obrigado.

 

Duílio Lobianco