Redosan
28/01/19, 10:55:33
Buenos días. Estoy desarrollando un programa que muestra por pantalla un informe con WRITEs que muestra ciertas cantidades, cantidades que pueden ser negativas, con lo cual me surge el problema del símbolo a la derecha en lugar de a la izquierda de la cifra. Paso a mostrar un poco del programa más detenidamente:
Las 14 cantidades que deben imprimirse en cada linea se guardan un Field SYmbo <fs_cuadro1>, y las cantidades dentro de este tienen como tipo de dato tslxx (CURR):
lp_inv_n TYPE tslxx, "LP - Inversiones en patrimonio Ej. N
lp_inv_n1 TYPE tslxx, "LP - Inversiones en patrimonio Ej. N-1
...
...
Cuando recorro las cifras en un bucle, imprimiendolas por pantalla, estas se muestran en un formato como "20.575.925,80-". Para mover el símbolo de cantidad negativa a la izquierda, hago lo siguiente, justo antes de mostrarlas, recorro todas las cantidades de la fila en la que se encuentra el bucle y se las paso a una macro de la siguiente forma:
m_signo_izq fs_cuadro1 lp_inv_n .
m_signo_izq fs_cuadro1 lp_inv_n1.
...
...
La macro usa usa CLOI_PUT_SIGN_IN_FRONT y, para conseguir que funcione y evitar un fallo por culpa del formato de salida, las asigna a una variable de tipo C, que se va sobrescribiendo en cada vuelta del bucle:
DATA:
g_mod_lp_inv_n TYPE C LENGTH 20, "LP - Inversiones en patrimonio Ej. N
g_mod_lp_inv_n1 TYPE C LENGTH 20, "LP - Inversiones en patrimonio Ej. N-1
...
...
La macro es la siguiente:
DEFINE m_signo_izq.
move <&1>-&2 to g_mod_&2.
condense g_mod_&2.
if <&1>-&2 lt 0.
call function 'CLOI_PUT_SIGN_IN_FRONT'
changing
value = g_mod_&2.
endif.
END-OF-DEFINITION.
El problema es que esto me genera una salida en formato "-2575925.80". Hacer el cambio del punto por la coma es sencillo, simplemente uso:
replace all occurrences of '.' in g_mod_&2 with ','.
El problema lo tengo en como recuperar los puntos que separan los miles para finalmente quedarme con un número como el primero que he mostrado, solo que con el signo al otro lado.
¿Alguna idea de como hacer esto? ¿El proceso lo estoy haciendo, en general, de la forma más compleja posible? Es la impresión que me da, pero no se me ocurre como cambiarlo.
Un saludo y gracias.
Las 14 cantidades que deben imprimirse en cada linea se guardan un Field SYmbo <fs_cuadro1>, y las cantidades dentro de este tienen como tipo de dato tslxx (CURR):
lp_inv_n TYPE tslxx, "LP - Inversiones en patrimonio Ej. N
lp_inv_n1 TYPE tslxx, "LP - Inversiones en patrimonio Ej. N-1
...
...
Cuando recorro las cifras en un bucle, imprimiendolas por pantalla, estas se muestran en un formato como "20.575.925,80-". Para mover el símbolo de cantidad negativa a la izquierda, hago lo siguiente, justo antes de mostrarlas, recorro todas las cantidades de la fila en la que se encuentra el bucle y se las paso a una macro de la siguiente forma:
m_signo_izq fs_cuadro1 lp_inv_n .
m_signo_izq fs_cuadro1 lp_inv_n1.
...
...
La macro usa usa CLOI_PUT_SIGN_IN_FRONT y, para conseguir que funcione y evitar un fallo por culpa del formato de salida, las asigna a una variable de tipo C, que se va sobrescribiendo en cada vuelta del bucle:
DATA:
g_mod_lp_inv_n TYPE C LENGTH 20, "LP - Inversiones en patrimonio Ej. N
g_mod_lp_inv_n1 TYPE C LENGTH 20, "LP - Inversiones en patrimonio Ej. N-1
...
...
La macro es la siguiente:
DEFINE m_signo_izq.
move <&1>-&2 to g_mod_&2.
condense g_mod_&2.
if <&1>-&2 lt 0.
call function 'CLOI_PUT_SIGN_IN_FRONT'
changing
value = g_mod_&2.
endif.
END-OF-DEFINITION.
El problema es que esto me genera una salida en formato "-2575925.80". Hacer el cambio del punto por la coma es sencillo, simplemente uso:
replace all occurrences of '.' in g_mod_&2 with ','.
El problema lo tengo en como recuperar los puntos que separan los miles para finalmente quedarme con un número como el primero que he mostrado, solo que con el signo al otro lado.
¿Alguna idea de como hacer esto? ¿El proceso lo estoy haciendo, en general, de la forma más compleja posible? Es la impresión que me da, pero no se me ocurre como cambiarlo.
Un saludo y gracias.