FoxPro/Visual FoxPro - control de folios

TENGO UNA VARIABLE 'CARACTER' QUE ES EL FOLIO DE UNA FACTURACION, ESTA VARIABLE LA CONVIERTO EN NUMERICA PARA ASIGNARLE AUTOMATICAMENTE EL FOLIO SIGUIENTE, EL PROBLEMA QUE TENGO ES QUE LA EMPRESA ME PIDE QUE CUANDO EL RESULTADO DEL FOLIO SEA '1' PODER ANTEPONERLE A ESE '1' TRES CEROS, O SEA QUE EL REULTADO DEL FOLIO SEA ASI '0001' OJALA PUDIERAN AYUDARME GRACIAS.

Hola:

Creo que lo que pides es sensillo solo tienes que utilizar el comando:

PADL(Expresion, cant_de caracteres, caracter_para_rellenar)

El ejemplo que estas poniendo se utilizaría así:

cadena = PADL(tucadena, 4, "0")

Esto te daría como resultado

Si tu cadena es ""
"0000"

Si tucadena es "1"
"0001"

Si tu cadena es "65"
"0065"

Si tu cadena es "4569"
"4569"

Espero te sirva...