It seems a little long, but you can use:

lcTextBox = padl(alltrim(str(lnNumDoc,10,0)), fsize('c_numerador'),'0')


alltrim(str(lnnumdoc, 10, 0)) returns a string exactly as long as the number, but with no decimals