FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Agregar ceros a la derecha de un campo?
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Agregar ceros a la derecha de un campo?
Posted: Wed Feb 01, 2006 06:20 PM

amigos del foro, necesitando de nuevo su ayuda.

Lo que necesito es lo siguiente:

tengo un campo de la base da datos definido como caracter 15 con x registros

Ejemplo:

     35356                <-contenido del campo

Necesito que me quede de la siguiente forma:

000000000035356 <-contenido del campo

De antemano gracias por su ayuda.

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Agregar ceros a la derecha de un campo?
Posted: Wed Feb 01, 2006 06:49 PM

Leandro:

Aunque hay confusi贸n entre lo que dice el encabezado de tu mensaje y el ejemplo que muestras, asumo que el ejemplo es lo que quieres:

Intenta con:

nValor := cCampoDelRegistro
cValor := STRZERO(nValor,15)

Saludos, Armando

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
si tienes razon
Posted: Wed Feb 01, 2006 07:19 PM

Armando tienes razon es a la izquierda del campo, que pena por la confuci贸n, pero a buen entededor...... Y muchas gracias por tu ayuda anteriormente habia usado esta funci贸n pero no me acordaba cual era. Un abrazo.

:D

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 111
Joined: Thu Jan 19, 2006 11:47 PM
Agregar ceros a la derecha de un campo?
Posted: Thu Feb 02, 2006 12:46 PM

Leandro:
Un peque帽o detalle en la respuesta que te da Armando:

si es un campo caracter tienes que convertirlo primero a un campo numerico y posteriormente aplicas el strzero

micampo:="12345 "

nVar:=STRZERO(VAL(micampo),15)

Saludos

Mauricio Arevalo
SISTEMAS HYM PLUS
Bogota DC. (Colombia)

Edgar Mauricio Ar茅valo Mogoll贸n.
Bogot谩 DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programaci贸n....
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Gracias por sus respuestas
Posted: Thu Feb 02, 2006 02:32 PM

Definitivamente muchas gracias por toda la ayuda prestada. Tendre en cuenta las respuestas.

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 383
Joined: Tue Oct 11, 2005 01:01 PM
Agregar ceros a la derecha de un campo?
Posted: Thu Feb 02, 2006 03:11 PM

Puedes tambien hacerlo asi:

cValor := PADL( nValor, 15, "0" )

Saludos

Pedro Gonzalez

Continue the discussion