Boleto Banco Do Brasil Não Registrado

[Leonardo Gregianin]

Boa tarde,

 

O Banco do Brasil me relatou que a impressão do boleto no campo "Nosso Número" maior de 10 dígitos, convênio com 6 dígitos e a carteira sendo 16 ou 18 está sendo impresso de forma incorreta.

 

Diversas partes do código-fonte da unit ACBrBancoBrasil já existe esta verificação, porém faz-se necessário a correção na impressão.

 

O campo "NossoNúmero" está sendo impresso com 17 posições: 00000000000000001

E o correto, de acordo com o Banco, seria: Convênio (123456) + NossoNúmero: 12345600000000001

 

Fiz a correção abaixo e o Banco homologou. Segue anexo a unit.

- Field_NossNum.AsString := Banco.MontarCampoNossoNumero( ListadeBoletos[iFor] );

+ if (Banco.Numero = 1) and (Length(Cedente.Convenio) = 6) and
+    ((ListadeBoletos[iFor].Carteira = '16') or (ListadeBoletos[iFor].Carteira = '18')) then
+   Field_NossNum.AsString := Cedente.Convenio + copy(Banco.MontarCampoNossoNumero( ListadeBoletos[iFor]),7,11)
+ else
+   Field_NossNum.AsString := Banco.MontarCampoNossoNumero( ListadeBoletos[iFor] );