Llenar ceros a la izquierda

Llenar ceros a la izquierda

PADL

La función nos permite rellenar ceros a la izquierda.Yo en lo personal utilizo está función para generar los números de las facturas.

Determine cuántos ceros a la izquierda desea que muestre el valor entero.
Determine la longitud de la cadena numérica.
En el ejemplo siguiente se rellena un valor entero con ocho ceros a la izquierda.

Ejemplo :

if !file("prueba.dbf")
   create prueba.dbf free (num_fact n(8,0))
   append blank
   replace num_fact with 0
endif

numero=num_fact+1
replace num_fact with numero
longitud=8

Como podrás notar la variable numero se incrementa en 1 y actualizamos la variable num_fact, permitiendo que cuando volvamos a ejecutar el programa ya el valor de numero será dos(2) y así en lo sucesivo.

? PADL(alltrim(str(numero)),longitud,"0")

Resultado 00000001

PADR

Esta función realiza lo mismo que PADL pero con la diferencia que los campos a rellenar los hace en sentido contrario es decir a la derecha. Si deseas probar su funcionalidad tan solamente deberás sustituir PADL por PADR.

Si deseas ampliar mas información te sugiero visites La web Davphantom , allí encontrarás mas información referente al tema.