FoxPro/Visual FoxPro - Completar con ceros campos

Me gustaria saber la forma de hacer lo siguiente

tengo un campo que la longitus deberia ser 11 pero tiene 9, 8 caracteres en algunos casos, como completo la longitus añadiendo ceros a la izquierda?

Probe poniendole L en la propiedad del campo pero esto no funciona al momento de hacer un query

Saludos,

Yo de nuevo, pon esto linea por linea en el punto command, y le das enter linea a linea

c= '00000000000'

store '3541515 ' to cod && numero que traes
store Alltrim(cod) to codd && quitarle los espacios en blanco
store len(codd) to n && cuantos digios tiene el numero que traes
store len(c) to t && Total de digitos del numero original son X
nt = t - n && Total de digitos sobrantes menos la cantidad de digitos
* &&del numero de que traes

store substr(c, 1,nt)+alltrim(codd) to valor

? valor

Creo que con esto puedes resolver lo que me pides, si quieres enviame por esta via el codigo que quieres que te modifique, porque a nivel de query no se hace esto, tienes que hacer primero el query, entra los datos en una tabla, y a esa tabla darle un do while, como e enseñe en la aanterior y entonces poner el codigo este que te estoy enviando, para modificar el campo que quieres.

la proxima vez, explica mejor Chavez, y envia datos para uno poder ayudarte mas.

bueno te dejo, me tienes toda la mañana resolvieno, mira ponde en eso, utiliza tu logica.

att.
Antonio R. Moquete Mejia
Santo Domingo, Republica Dominicana (E M P D M)

la cantidad de caracteres que puede contener el campo es variable

ejemplo

5897

ejemplo 2

987234

quiero agregar ceros a la izquierda hasta completar el ancho del campo

ya te conteste en el otro foro

nro=20

? padl(ltrim(str(NRO)),10,'0')

Suerte

este funciona pero solo lo visualiza me gustaria insertarlo en tabla

Usa replace para guardarlo en una tabla o conecta el cuadro de texto con el campo de la tabla.

Para completar los 0 hago algo parecido a lo que puso Ernesto Hernandez
Seria algo asi:

@ 1,5 say padl(variable,9,"0")

Asi lo posiciono en una ubicacion especifica, ya que lo envio a un archivo de texto.

Suerte!

Remplaza el valor de tu campo con el valor obtenido


Suerte

PROBA CON
nn=1234 && (variable numerica)
? TRAN('@L 999999')
debería responder con
0001234

Prueba con esta función, significa colocar a la derecha el valor
RIGHT('0000000000'+ALLTRIM("Hola"),10)
el resultado será "000000hola"
si el valor es numérico deberas poner:
RIGHT('0000000000'+ALLTRIM(STR(56)),10)
el resultado será "0000000056"