Bom dia...
Na Unit ACBRBancoBrasil, rotina 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
ANossoNumero := PadLeft(AConvenio, 7, '0') + RightStr(ANossoNumero, 10);
No meu caso, cairia nessa opção em negrito..
Convenio com 6 digitos..
aNossoNumero ='0000000039871'
aConvenio = '691329'
o Acbr esta pegando os CINCO PRIMEIROS digitos do nosso numero , ou seja está pegando 5 zeros..
Ele não deveria pegar os 5 últimos pra compor o nosso numero corretamente ? ( RightStr(ANossoNumero, 5) ) ??
sds,