Title: System/36-Compatible RPG II User's Guide and Reference
http://publib.boulder.ibm.com/cgi-bin/bookmgr/DOCNUM/SC09-1818-00 Chapter 16. Editing Numeric Fields A reveure. Francesc Gibert i Bertran GRUPO ESTAMPACIONES SABADELL Cristina V�zquez Osorio Para: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> cc: Enviado por: Asunto: RE: MASCARAS IMPORTE EN HOJA O, RPG II. forum.help400-request @combios.es 06/06/02 11:41 Por favor, responda a forum.help400 Hola Juanra, Muchas Gracias por tu respuesta, y por preocuparte de los problemas que tenemos los dem�s pero sabes, se te ha pasado un peque�in e insignificante detalle , estoy trabajando con rpg II en entorno.(por lo tanto no creo que me admite la sentencia /copy) La soluci�n mas r�pida seria localizar los manuales del rpg II y mirar como se definen las mascaras para este caso. �Sabes si habr� alguna p�gina web que los contenga?. Saludos. Cristina. -----Mensaje original----- De: Juan Ram�n Garcia [mailto:[EMAIL PROTECTED]] Enviado el: jueves 6 de junio de 2002 10:01 Para: [EMAIL PROTECTED] Asunto: RE: MASCARAS IMPORTE EN HOJA O, RPG II. Hola Cristina: Perd�name, ayer cuando contest� lo hice de manera precipitada y no acab� de leer todos los mensajes sobre el tema. Si lo he entendido bien lo que tienes es una aplicaci�n que maneja importes en Pesetas (sin decimales) y para adaptarla al Euro lo que has hecho es asumir que los 2 �ltimos enteros por la derecha son los decimales aunque internamente el campo no est� definido de esta forma. Interesante e inteligente soluci�n :-) Dudo que con una m�scara de edici�n puedas conseguir lo que pretendes, evidentemente deber�as utilizar un c�digo de edici�n (en este caso K), los problemas que te encuentras son 2: - El campo original no tiene decimales con lo cual no te imprime la coma - El campo es excesivamente largo (por eso no editas los primeros puntos) Anoche le estuve dando vueltas (las ideas se me ocurren en el sitio m�s insospechado) y creo que he encontrado una soluci�n, tal vez no sea la ideal pero podr�a funcionar. Si esos 20 campos que comentas los tienes identificados y tienen el mismo nombre en todos los fuentes lo tienes bastante f�cil: - Crea un fuente que s�lo contenga estructuras de datos, en las que redefinir�s cada uno de los campos num�ricos originales sin decimales a uno nuevo con 2 decimales Ejemplo: I DS I 1 150xxxxxx (como se llame tu cpo) I 1 152zzzzzz (el campo redefinido) otro campo otro campo y as� hasta los 20 En cada uno de los programas a�ade una instrucci�n /COPY en la hoja I para que al compilar te incluya las re-definiciones de los campos. En la hoja O imprime los campos zzzzz en lugar de los originales con el c�digo de edici�n K, el problema estar� en la longitud de los campos ya que te a�adir� todos los separadores decimales. Espero que te sirva esta soluci�n. Un saludo. Juanra ----- Original Message ----- From: Cristina V�zquez Osorio To: '[EMAIL PROTECTED]' Sent: Wednesday, June 05, 2002 1:48 PM Subject: RE: MASCARAS IMPORTE EN HOJA O, RPG II. YA , PERO ESO PRECISAMENTE ES LO QUE QUIERO EVITAR, PUESTO QUE NO ESTOY HABLANDO DE UN IMPORTE SINO DE VARIOS LISTADOS QUE EN LA HOJA "O" TIENE 20 CAMPOS NUMERICOS CADA UNO , Y CLARO SON UN MONTON DE PREGUNTAS EN LA HOJA "C" PARA CONDICIONAR LA SALIDA. MUCHAS GRACIAS. CRIS. -----Mensaje original----- De: medina [mailto:[EMAIL PROTECTED]] Enviado el: mi�rcoles 5 de junio de 2002 12:51 Para: [EMAIL PROTECTED] Asunto: RE: MASCARAS IMPORTE EN HOJA O, RPG II. Pues condiciona este campo a indicador en el calculo, para que cuando sea cero no lo pinte. Ejemplo: * lo apagamos por si se quedara encendido por algun motivo, aunque con comparacion no haria falta, pero *nunca se sabe....... C SETOF XX = C CAMPO COMP 0 XX * cuando sea igual a cero no lo pinte O NXX CAMPO -----Mensaje original----- De: Cristina V�zquez Osorio [mailto:[EMAIL PROTECTED]] Enviado el: mi�rcoles, 05 de junio de 2002 12:33 Para: 'FORUMAS400' Asunto: RV: MASCARAS IMPORTE EN HOJA O, RPG II. PERDONAR ME HE EXPRESADO MAL EN EL EMAIL ANTERIOR. QUIERO QUE EL IMPORTE A CEROS SALGA EN BLANCO.(EN EL EMAIL ANTERIOR HE PUESTO NO QUIERO). -----Mensaje original----- De: Cristina V�zquez Osorio [mailto:[EMAIL PROTECTED]] Enviado el: mi�rcoles 5 de junio de 2002 12:28 Para: '[EMAIL PROTECTED]' Asunto: RE: MASCARAS IMPORTE EN HOJA O, RPG II. Me funciona pero cuando es cero me sale 0,00 y yo quiero evitar esto no quiero que el campo si es cero salga en blanco. Saludos. Cris. -----Mensaje original----- De: Antonio Conde [mailto:[EMAIL PROTECTED]] Enviado el: mi�rcoles 5 de junio de 2002 11:05 Para: '[EMAIL PROTECTED]' Asunto: RE: MASCARAS IMPORTE EN HOJA O, RPG II. Prueba con las mascara 'bbbbbb.bbb.b0b,bb-' de esta manera se imprime siempre el importe con 0,99-. saludos > -----Mensaje original----- > De: Cristina V�zquez Osorio [SMTP:[EMAIL PROTECTED]] > Enviado el: mi�rcoles, 05 de junio de 2002 10:51 > Para: 'FORUMAS400' > Asunto: MASCARAS IMPORTE EN HOJA O, RPG II. > > NO SE SI ALGUIEN TODAVIA USA ESTO, NOSOTROS PARA NUESTRA DESGRACIA, SI. > TENGO UN IMPORTE DE 15 ENTEROS, DE LOS CUALES LOS 2 ULTIMOS SON DECIMALES. > > EN LA HOJA O LO EDITO CON UNA MASCARA DE ESTA MANERA. > '9999999.999.990,99-', > MI PREGUNTA ES LA SIGUIENTE: > COMO TENGO QUE PONER LA MASCARA PARA QUE UN IMPORTE A CEROS NO ME SALGA > NADA.(AHORA ME SALE ,00) > PERO CUANDO SE TRATE DE UN IMPORTE CON 2 DECIMALES DEL TIPO 0,25. SE ME > IMPRIMA ASI , YA QUE SI QUITO EL > " 0" DE LA MASCARA QUE ESTA AL LADO DE LA COMA NO SE IMPRIME LA COMA Y > APARECE COMO UN NUMERO ENTERO. > > NOTA: > NO QUIERO DEFINIR EL IMPORTE CON 15 Y 2 DC. EN LA HOJA C. > SE QUE CON MASCARAS TIENE SOLUCION PERO NO ENCUENTRO EL MANUAL DONDE > APARECE ESTO. > SI ALGUIEN SABE COMO HACERLO USANDO MASCARAS POR FAVOR DECIDMELO.... > SALUDOS. > CRIS. > _____________________________________________________ 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
