Erro nosso número boleto banco do brasil

[DanielOliver]

Boa noite, tenho um sistema em delphi 7 que funcionava 100% o boleto banco do brasil hibrido, mas fazia tempo que o acbr não era atualizado, foi atualizado, arrumei os scope e está gerando,mas na impressão não mostra direito o nosso número

se coloco por exemplo 9991

aparece aqueles primeiros digítos do nosso número depois 00000000000000000

se coloco (a quantidade de caracteres não me recordo agora) tipo 99999999912
aparece os primeiros digitos depois 000000000099

o que poderia ser?

[Juliomar Marchetti]

Em qualquer dos geradores? fast ou fortes ou no fpdf

[DanielOliver]

erro gera aqui no formatanossonumero

 

    if ((ACBrTitulo.Carteira = '16') or (ACBrTitulo.Carteira = '18')) and
        (Length(AConvenio) = 6) and (wTamNossoNum = 17) then
      ANossoNumero := PadLeft(ANossoNumero, 17, '0')
    else if Length(AConvenio) <= 4 then
      ANossoNumero := PadLeft(AConvenio, 4, '0') + PadLeft(ANossoNumero, 7, '0')
    else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then
      ANossoNumero := PadLeft(AConvenio, 6, '0') + PadLeft(ANossoNumero, 5, '0')
    else if (Length(AConvenio) = 7) then
 ate aqui vai certo     ANossoNumero := PadLeft(AConvenio, 7, '0') + RightStr(ANossoNumero, 10);

    if (ACBrTitulo.ACBrBoleto.Banco.TipoCobranca = cobBancoDoBrasilAPI) then
aqui fica errado, cheio de zero        ANossoNumero := '000' + PadLeft(AConvenio, 7, '0') + PadLeft(NossoNumero, 10);

geração do pdf por esse
ACBrBoletoFCFortes1

acredito ser o fortes né?

[Juliomar Marchetti]

Em 03/09/2025 at 14:41, DanielOliver disse:

erro gera aqui no formatanossonumero

 

    if ((ACBrTitulo.Carteira = '16') or (ACBrTitulo.Carteira = '18')) and
        (Length(AConvenio) = 6) and (wTamNossoNum = 17) then
      ANossoNumero := PadLeft(ANossoNumero, 17, '0')
    else if Length(AConvenio) <= 4 then
      ANossoNumero := PadLeft(AConvenio, 4, '0') + PadLeft(ANossoNumero, 7, '0')
    else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then
      ANossoNumero := PadLeft(AConvenio, 6, '0') + PadLeft(ANossoNumero, 5, '0')
    else if (Length(AConvenio) = 7) then
 ate aqui vai certo     ANossoNumero := PadLeft(AConvenio, 7, '0') + RightStr(ANossoNumero, 10);

    if (ACBrTitulo.ACBrBoleto.Banco.TipoCobranca = cobBancoDoBrasilAPI) then
aqui fica errado, cheio de zero        ANossoNumero := '000' + PadLeft(AConvenio, 7, '0') + PadLeft(NossoNumero, 10);

geração do pdf por esse
ACBrBoletoFCFortes1

acredito ser o fortes né?

Não cheguei a depurar.

tem que depurar e ver ele alimentando esse propriedade lá o report