|
Muchisimas gracias a todos !!
----- Original Message -----
Sent: Tuesday, February 08, 2005 6:03
PM
Subject: Re: campo cahar a decimal
Una forma rudimentaria es que
puedes intentar utilizando el concatenar valores alfanumericos, es decir usa
un campo adicional llamado FECHAC que sea de longitud 6 de tipo caracter y
despues mueves a esta variable, el valor de WFECHA:
0132.00 C
MOVE
WFECHA
FECHAC
6
0133.00 C
IF
%LEN(%TRIM(WLETRA)) = 4
0134.00 C
EVAL XRFC =
%TRIM(WLETRA) + FECHAC
0135.00 C
+ %TRIM(WHOMO)
0136.00 C
ELSE
0137.00 C
EVAL
XRFC = %TRIM(WLETRA) + ' ' +
0138.00 C
FECHAC + %TRIM(WHOMO)
0139.00 C
ENDIF
0140.00 C
EVAL WRFC
= %TRIM(XRFC)
El resultado debera ser:
'JUA 000101SSS'
ahora que si deseas una version mas
actualizada con funciones predefinidas:
0133.00 C IF
%LEN(%TRIM(WLETRA)) = 4
0134.00 C
EVAL XRFC = %TRIM(WLETRA) + %TRIM(%EDITC(WFECHA:'Z'))
0135.00 C
+ %TRIM(WHOMO)
0136.00 C
ELSE
0137.00 C EVAL
XRFC = %TRIM(WLETRA) + ' ' +
0138.00 C
%TRIM(%EDITC(WFECHA:'Z')) + %TRIM(WHOMO)
0139.00 C
ENDIF
0140.00 C EVAL
WRFC = %TRIM(XRFC)
Donde la letra entre comillas 'Z' es el codigo de edicion para
que elimine los zeros de la izquierda. En tu caso deseas que aparezcan; por lo
tanto lo puedes remover y dejar solo %EDITC(WFECHA)
espero te sea de
utilidad.
![]()
|
| "Juan Gutierrez Ruiz"
<[EMAIL PROTECTED]>
Enviado por:
[EMAIL PROTECTED]
08/02/2005 04:56 p.m.
Por favor, responda a forum.help400
|
Para:
"AS400" <[EMAIL PROTECTED]>
cc:
"AS400_ES" <[email protected]>
Asunto:
campo cahar a
decimal |
hoal foro tengo un problema con un campo numerio que no lo puedo
acomodar
el problema es elsiguiente tengo un rfc que pido
por pantalla
wlra ____
de 4 Caracteres(alfabeticos)
wfecha ______
de 6 digitos (numerico)
whomo ______
de 3 Caracteres(alfabetico)
el problema es que yo lo tengo
que gravar en un campo de 13 caracteres
si yp tecleo por
ejempo
JUA DE 3 caracteres
000101
formato aa/mm/dd
SSS
cuando lo armo
con
0133.00 C
IF %LEN(%TRIM(WLETRA)) = 4
0134.00
C EVAL
XRFC = %TRIM(WLETRA) + %CHAR(WFECHA)
0135.00 C
+ %TRIM(WHOMO)
0136.00 C
ELSE
0137.00 C
EVAL XRFC
= %TRIM(WLETRA) + ' ' +
0138.00 C
%CHAR(WFECHA) +
%TRIM(WHOMO)
0139.00 C
ENDIF
0140.00 C
EVAL WRFC =
%TRIM(XRFC)
este campo WRFC es de 13 carateres
y los ceros de la fecha de la izquierda
no me los respeta
me
pone
'JUA 101SSS '
y los espacios me los deja en la derecha
del campo wrfc
alguien me puede echar una mano para que quede
asi:
'JUA BBB101SSS'
O asi en caso de que la
latras seas de 4
'JUANBBB101SSS'
Las B =
espacios
desde ya muchas
gracias
_____________________________________________________
Forum.HELP400
es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los
derechos
reservados
http://www.help400.es
_____________________________________________________
Para
darte de baja, env�a el mensaje resultante de
pulsar
mailto:[EMAIL PROTECTED]
|
<<image/gif>>
