Genexus

Probar lo siguiente; por ej. Para 3 digitos....
&varstr = substr( str( 1000 + &num
, 4), 2, 3)
-----Mensaje original-----
De: Gabriel Martinez
Enviad.: 13/10/2011, 14:23
Para: as400-l@gxtech.com.uy
Asunto: Re: [as400-l] Relleno con ceros a la izquierda en RPG

Como es RPG, yo lo armo "a mano". asi:

&NumeroC25 = trim( &NumeroC25 ) //&NumeroC25 c(25)
&WDiferLong = 25 - Len(&NumeroC25)
&WCont = 1
Do While &WCont <= &WDiferLong
&NumeroC25 = Concat('0', &NumeroC25)
&WCont = &WCont + 1
Enddo
Espero le sirva.
Att: Gabriel Martinez

El 13 de octubre de 2011 10:06, Jesus Busquets
<jbusquets@grespania.com>escribió:

> Me encuentro con el siguiente problema, debido al abandono que se ha
> producido hace tiempo en la implementación de las nuevas funciones en el
> entorno RPG:
>
> Debo simplemente, obtener una variable alfabética a partir de una numérica,
> de igual longitud, rellenando ceros a la izquierda. Es una variable sin
> signo.
>
> Lo lógico es utilizar toformatedstring , pero esta función no existe en
> el entorno RPG (ya empezamos....)
>
> Así que intento utilizar funciones que sí se supone que existen en este
> entorno:
>
> Pruebo, creando una variable &A3 alfabética de longitud 3:
> &numero=1
> &A3=&numero.ToString()
> &msg=Padl(Ltrim(&A3),3,'0')
>
> el mensaje me muestra el número relleno con blancos en lugar de ceros:
> Debía obtener:
> 001
> Obtengo:
> 1
>
> ¿Alguna sugerencia?
>
> Saludos
>
> --
>
> *Jesús Busquets*
>
> GRESPANIA, S.A.
>
> Este mensaje se dirige exclusivamente a su destinatario y puede contener
> información privilegiada o confidencial. Si no es Vd. el destinatario
> indicado, queda notificado de que la utilización, divulgación y/o copia sin
> autorización está prohibida en virtud de la legislación vigente. Si ha
> recibido este mensaje por error, le rogamos que nos lo comunique
> inmediatamente por esta misma vía y proceda a su destrucción.
>
>
>

-----------------------------------------

Para Suscribirse/Desuscribirse:

http://www.gxtechnical.com/cgi-bin/hforum.exe?2,3,30,23

Por consultas owner-as400-l@gxtech.com.uy

Mensaje enviado a través de Personal E-Mail. Registrate enviando un sms gratuito con la palabra "Mail" al 7373, el primer mes es GRATIS.

-----------------------------------------
Para Suscribirse/Desuscribirse:
http://www.gxtechnical.com/cgi-bin/hforum.exe?2,3,30,23
Por consultas owner-as400-l@gxtech.com.uy

--
Has recibido este mensaje porque estás suscrito al grupo "GeneXus" de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a genexus@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a genexus+unsubscribe@googlegroups.com
Para tener acceso a más opciones, visita el grupo en http://groups.google.com/group/genexus?hl=es.