*** Version VFP9 SP1
CLEAR
m.numest = 45
? RIGHT('0000'+ALLTRIM(STR(m.numest)),4) &&& result 0045
? PADL(m.numest,4,"0")                   &&& result 0045

_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst