Código de barras na impressão BNB

[Thiago Porto]

Bom dia!

Quando vou imprimir um boleto, o código de barras sai com o número da conta incorreto, e isso acontece apenas na primeira tentativa, se eu tentar imprimir novamente sem fechar o sistema sai corretamente.

Ag: 0223 - CC:26-4

Percebi que o problema está na function abaixo:

function TACBrBancoNordeste.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String;
var
  CodigoBarras, FatorVencimento, DigitoCodBarras:String;
begin
   with ACBrTitulo.ACBrBoleto do
   begin
      FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento);

      CodigoBarras := IntToStrZero( Numero, 3 )+'9'+ FatorVencimento +
                      IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +
                      PadLeft(OnlyNumber(Cedente.Agencia),4,'0') +
                      PadLeft(OnlyNumber(Cedente.Conta),7,'0') +
                      PadLeft(Cedente.ContaDigito,1,'0') +
                      ACBrTitulo.NossoNumero +
                      CalcularDigitoVerificador(ACBrTitulo) +
                      CarteiraToTipoOperacao(ACBrTitulo.Carteira) + '000';

      DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras);
   end;

   Result:= IntToStrZero(Numero, 3) + '9'+ DigitoCodBarras + Copy(CodigoBarras,5,39);
end;

A conta está ficando dessa forma: 0000000026 e na impressão fica 0000000

E na segunda tentativa já fica normal: 0000026

 

Editado 3 Dezembro, 2016 por Thiago Porto
Foi adicionado mais informações para uma melhor compreensão da dúvida.

[Graziele Rocha Serafim]

Bom dia @Thiago Porto,

Seu ACBr está atualizado? Fiz o teste com o Demo do boleto e saiu corretamente na impressão 0000000026 desde a primeira tentativa.

Att.