只要在field cat结构中,给demcimals_out字段设为零即可,代码如下:
*---------------------------------------------------------------------*
* FORM frm_catlg_set *
*---------------------------------------------------------------------*
FORM FRM_CATLG_SET USING P_FIELD
P_TEXT
P_KEY.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
LS_FIELDCAT-FIELDNAME = P_FIELD.
LS_FIELDCAT-SELTEXT_L = P_TEXT.
LS_FIELDCAT-KEY = P_KEY.
LS_FIELDCAT-NO_ZERO = 'X'.
IF P_FIELD = 'LINE_SUM'.
LS_FIELDCAT-EMPHASIZE = 'C700'.
ENDIF.
IF P_FIELD = 'LINE_SUM'.
LS_FIELDCAT-DECIMALS_OUT = '0'.
ENDIF.
APPEND LS_FIELDCAT TO GD_FIELDCAT .
CLEAR LS_FIELDCAT .
ENDFORM.