Layout Código de Barras

[diogerafael]

Bom dia,estou implementando o boleto para Banco da Amazonia, estou com uma dificuldade em relação ao código de barras, alguém poderia me indicar o caminho a seguir? Qual documento devo ler, já que o manual do banco não me informa nada.

[Juliana Tamizou]

Bom dia.

Além dos manuais do banco, você se basear em outros bancos já implementados, porém qual seria a sua dificuldade?

Att.

[diogerafael]

Juliana, estou me baseando em outros bancos, mas ele esta gerando com informações erradas.

O manual do banco da amazonia não contem esta informação,

Minha geração:

ANossoNumero := OnlyNumber(MontarCampoNossoNumero(ACBrTitulo));   // precisa passar nosso numero + digito

   with ACBrTitulo do
   begin

      Parte1 := '003' + '9';

         Parte2 := CalcularFatorVencimento(Vencimento) +
                   IntToStrZero(Round(ValorDocumento * 100), 10) +
                   RightStr(PadLeft(ANossoNumero, 13, '0'),11) +       // precisa passar nosso numero + digito
                   PadLeft(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4, '0') +
                   PadLeft(OnlyNumber(ACBrBoleto.Cedente.Conta), 6, '0' ) +
                   PadLeft(OnlyNumber(ACBrBoleto.Cedente.ContaDigito), 1, '0' ) +
                   '00';

      Parte2 := Parte2 + ACarteira;

      CodigoBarras    := Parte1 + Parte2;
      DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras);
  end;

  Result := Parte1 + DigitoCodBarras + Parte2;

 

Grato pela resposta.

Manual_Cliente_CNAB_240.pdf

Editado 26 Julho, 2016 por diogerafael

[Juliana Tamizou]

Boa tarde.

Cada banco tem suas próprias regras para montagem do código de barras.

3 horas atrás, diogerafael disse:

// precisa passar nosso numero + digito

Se no caso do Banco da Amazonia estas informações são necessárias, basta fazer a alteração para atender as regras do mesmo.

Att.

[diogerafael]

Entrei em contato novamente com o banco, recebi outro manual, este detalha as informações.

Agora é ajustar o código, obrigado Juliana.