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é?