|
Mover signo negativo y puntos en los miles
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):
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:
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:
La macro es la siguiente:
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:
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.
|