ALV con montos Negativos
Hola Amigo
En mi programa hago la busqueda asi:
FORM IMPORTE_MON_LOCAL_CON_SIGNO.
DATA: AUX LIKE BSEG-FDWBT.
CLEAR: IMPORTEMONEDALOCAL,MONEDA.
SELECT SINGLE FDWBT INTO AUX
FROM BSEG
WHERE BUKRS = TABLA-BUKRS
AND BELNR = TABLA-BELNR
AND BUZEI = TABLA-BUZEI.
IF AUX < 0.
IMPORTEMONEDALOCAL = TABLA-DMBTR * -1.
IMPORTEMONEDADOC = TABLA-WRBTR * -1.
ELSE.
IMPORTEMONEDALOCAL = TABLA-DMBTR.
IMPORTEMONEDADOC = TABLA-WRBTR.
ENDIF.
MONEDA = 'VEF'. " Ultima Columna
ENDFORM.
Total General
W_POSI = W_POSI + 1.
gt_fieldcat-tabname = 'TABLA'.
gt_fieldcat-emphasize = 'C401'.
gt_fieldcat-fieldname = 'AUX'.
gt_fieldcat-ddictxt = 'L'.
gt_fieldcat-seltext_l = 'Total General'.
gt_fieldcat-col_pos = W_POSI.
gt_fieldcat-ref_tabname = 'BSEG'. "Tabla de Referencia
gt_fieldcat-ref_fieldname = 'FDWBT'. "Campo Referencia en Tabla
gt_fieldcat-do_sum = ' '. "Sumarizar (campo numerico)
APPEND gt_fieldcat.
CLEAR gt_fieldcat.
En la funcion si veo que trae el signo pero al llegar a este punto me imprime solo 0.00.
Gracias
Cristino
|