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