|
给你一段完整的代码:
REPLACE '.' WITH space INTO l_t1. “去掉小数掉
REPLACE ',' WITH space INTO l_t1. “去掉千分号
REPLACE '-' WITH space INTO l_t1."去掉负号
CONDENSE l_t1 NO-GAPS. 压缩空格
CHECK l_t1 IS NOT INITIAL.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
string_in = l_t1
IMPORTING
htype = l_htype.
IF l_htype NE 'NUMC'.
MESSAGE s000 WITH '请将金额格式填成数字!' DISPLAY LIKE 'E'.
LEAVE LIST-PROCESSING.
ENDIF.
|
|