FoxPro/Visual FoxPro - Convertir campo con ceros

Necesito convertir un campo numerico de 4 posiciones a otro alfanumerico de 4 posiciones, pero que me incluya todos los ceros.

Ejemplo:
campoa = 1 --------> campob = '0001'

Gracias

campob = padl(campoa,4,"0")

Necesito convertir un campo numerico de 4 posiciones a otro alfanumerico de 4

campoa sigue siendo numerico no ????

Holas
Ernesto estuvo en lo correcto; solo agregale la funcion Str() para convertirlo a un String.
campob = Str(padl(campoa,4,"0") )

uppss se me olvido ponerlo ..

El más facil es

? TRAN(campoa,'@L 9999')

De la cantidad de nueves (9) dependerá la longitud de la respuesta que se transforma en tipo "Character". campoa debe ser "Numeric".
Ante cualquier duda, me mandas un mail.