Bom dia.
Qual é a carteira que vc está testando?
O problema está neste trecho de código...
if (Carteira = '16') or (Carteira = '17') or (Carteira = '18') then
begin
if Length(AConvenio) <= 4 then
ANossoNumero := padR(AConvenio, 4, '0') + padR(ANossoNumero, 7, '0')
else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then
ANossoNumero := padR(AConvenio, 6, '0') + padR(ANossoNumero, 5, '0')
else if Length(AConvenio) = 7 then
ANossoNumero := padR(AConvenio, 7, '0') + padR(ANossoNumero, 10, '0');
end
else
ANossoNumero := padL(ANossoNumero, 11, '0');
Porém procurei no manual e não vi nada falando que apenas para estas carteiras o NossoNumero deveria ser formatado desta forma, preciso apenas confirmar se realmente a carteira não importa, removendo esta checagem, o problema se resolve....
Att