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 -----
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.
>
