Agregar ceros a la derecha de un campo?

Agregar ceros a la derecha de un campo?

Postby leandro » Wed Feb 01, 2006 6: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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby Armando » Wed Feb 01, 2006 6: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
User avatar
Armando
 
Posts: 3231
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

si tienes razon

Postby leandro » Wed Feb 01, 2006 7:19 pm

:D

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.
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby MauroArevalo » 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)
User avatar
MauroArevalo
 
Posts: 107
Joined: Thu Jan 19, 2006 11:47 pm
Location: Bogota DC. Colombia

Gracias por sus respuestas

Postby leandro » Thu Feb 02, 2006 2: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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby pymsoft » Thu Feb 02, 2006 3:11 pm

Puedes tambien hacerlo asi:


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


Saludos
Pedro Gonzalez
User avatar
pymsoft
 
Posts: 383
Joined: Tue Oct 11, 2005 1:01 pm
Location: Savona - Italia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 51 guests