FoxPro/Visual FoxPro - Poner Ceros a la izquierda

Hola amigos, necesito que al agregar un registro se me genere un codigo automaticamente pero como son tres digitos necesito que hasta que llegue a 10 o a 100 le ponga ceros a la izquierda ej: 008, 056. Muchas gracias.

Hola utiliza la función transform de la siguiente manera:

VariableResultado = TRANSFORM( 8 , "@L 999" )

y= 2
x= PADL(y,3,'0')
? x

Prueba cabiando el valor a "y" y ejecutando de nuevo veras los resultados

Tambien puedes hacer lo siguiente:

a=123

@ 10,10 say a pict '@L ######'

resultado. 000123
saludos

Muchas gracias por su ayuda, creo que me conviene mas utilizar el que me recomienda plinio. Otra cosa Luis me podrias aclarar que hace el \"@L\" GRACIAS.

Tambien podrias utilizar lo siguiente:

STORE REPLI('0',7-LEN(ALLTRIM(STR(VAL(numero)+1))))+ALLTRIM(STR(VAL(numero)+1)) TO numsal

En la cual cambias el 7 por el tamaño del campo al que llevaras la variable; siempre y cuando sea de tipi caracter.

Espero te sirva