Juanra,
La primera opci�n que comentas creo que es la que ha remitido Raul Gomez:
> eval WSalida = %EDITC(WCampo:'2')
> if WCampo < 0
> eval WSalida = '(' + %TRIM(WSalida) + ')'
> endif
Opto por la segunda alternativa pero tengo un problemilla y es que en la DDS
el EDTWRD no admite indicadores y tampoco admite un c�digo de edici�n y una
palabra de edici�n, es decir que tiene que ser a nivel de campo, no vale lo
que pongo abajo:
A IMESC 5S 4O 44
A 70 EDTCDE(L)
A N70 EDTWRD('( . . )')
Solapar� dos campos uno con la palbra de edici�n para valores negativos y el
otro con c�digo de edici�n para positivos, encendiendo el indicador de uno u
otro seg�n su valor.
Vaya rollo que te he soltado,
Por �ltimo muchas gracias por el ofrecimiento en hacer la rutina.
Saludos, Rodrigo
-----Mensaje original-----
De: Juan Ram�n Garcia [mailto:[EMAIL PROTECTED]]
Enviado el: mi�rcoles, 13 de marzo de 2002 15:40
Para: [EMAIL PROTECTED]
Asunto: RE: Codigo de edicion
Hola otra vez:
No te hab�a entendido, pensaba que lo que quer�as era que el signo negativo
apareciera entre par�ntesis, ya me extra�aba a m� ;-)
Si lo que pretendes es imprimir entre par�ntesis los n�meros negativos en
lugar de ponerles el signo puedes hacerlo de varias formas:
- Editar el campo num�rico por programa pas�ndolo a una serie alfanum�rica y
con un bucle localizar el primer d�gito significativo, pasando el resto de
d�gitos a un campo alfanum�rico donde previamente concatenes el car�cter
'(' precedido de los blancos necesarios para ajustarlo a la derecha. Parece
muy retorcido pero yo he hecho cosas peores, te lo aseguro.
- Simplemente controlar en c�lculo el signo del campo y si es negativo
imprimirlo con EDTWRD('( . . )') te sustituir� por blancos los ceros
no significativos pero es mucho m�s f�cil que la soluci�n anterior.
Si quieres te puedo preparar una rutinilla con el primer ejemplo (la edici�n
del campo en la hoja C), ya me dir�s.
Este tipo de cosas ya se hac�an hace 20 a�os en RPGII antes de que existiera
el CAT, XLATE, SUBST y todas esas funciones que ahora nos hacen la vida m�s
c�moda (afortunadamente).
Un saludo.
Juanra
----- Original Message -----
From: Villa, Rodrigo <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, March 13, 2002 12:54 PM
Subject: RV: Codigo de edicion
Gracias Juanra,
He probado lo qye me dices y no obtengo el resultado deseado, lo que quiero
es que si el importe es 3.215 - me muestre (3.215) , lo que me muestra con
el DETWRD es 3.215 (-).
Yo creo que deber�a ir m�s por c�digos de edici�n definidos por el usuario
pero el problema es que no s� que valores cambiar.
Saludos, Rodrigo
-----Mensaje original-----
Hola Rodrigo:
Prueba con EDTWRD(' . . (-)')
Un saludo. Juanra -----
> -----Mensaje original-----
> De: Villa, Rodrigo
> Enviado el: mi�rcoles, 13 de marzo de 2002 10:10
> Para: [EMAIL PROTECTED]
> Asunto: Codigo de edicion
>
> Buenos Dias,
>
> �Alguien podr�a decirme que c�digo de edici�n � palabra de edici�n debo
> usar para mostrar en un informe los n�mero negativos entre parentesis?
>
> Gracias por adelantado.
>
> Rodrigo Villa Fern�ndez
> ____________________________
> TOYS '?' US IBERIA
> * [EMAIL PROTECTED]
> * (+34) 91 887 83 30
_____________________________________________________
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]?body=LEAVE
_____________________________________________________
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]?body=LEAVE
