Pesquisar na Comunidade

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