ABAP 中对于数字字段去掉小数点后面的零

如： 1.000 去掉小数点后的0 后 ，变成 1

FORM append_fc_alv USING fieldname TYPE slis_fieldcat_alv-fieldname

key TYPE slis_fieldcat_alv-key

reptext_ddic TYPE slis_fieldcat_alv-reptext_ddic

outputlen TYPE slis_fieldcat_alv-outputlen

inttype TYPE slis_fieldcat_alv-inttype

edit TYPE slis_fieldcat_alv-edit

checkbox TYPE slis_fieldcat_alv-checkbox

ref_fieldname TYPE slis_fieldcat_alv-ref_fieldname

ref_tabname TYPE slis_fieldcat_alv-ref_tabname.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = fieldname.

ls_fieldcat-key = key. "程序中打“X”就是主键

ls_fieldcat-reptext_ddic = reptext_ddic.

* ls_fieldcat-outputlen = outputlen.

* ls_fieldcat-inttype = inttype.

if fieldname = 'FLAG'.

ls_fieldcat-edit = edit.

ENDIF.

if fieldname = 'BDMNG' or fieldname = 'BDMNG1'.

ls_fieldcat-DECIMALS_OUT = '0'. " 去掉小数点后边0

endif.

ls_fieldcat-checkbox = checkbox.

ls_fieldcat-ref_fieldname = ref_fieldname.

ls_fieldcat-ref_tabname = ref_tabname.

APPEND ls_fieldcat TO gt_fieldcat.

ENDFORM. " append_fc_alv