DATA
:
L_STR
TYPE
STRING
.
IF WA_OUT - ERFMG IS NOT INITIAL .
L_STR = WA_OUT - ERFMG .
CONDENSE l_str . " 去掉没用的小数位的0
SHIFT l_str RIGHT DELETING TRAILING '0' . "去掉没用的小数位的0
SHIFT l_str RIGHT DELETING TRAILING '.' . "去掉没用的小数位的0
ELSE .
L_STR = '0' . "为空就给个空值
ENDIF .
CONDENSE L_STR .
G_ERFMG = L_STR .
IF WA_OUT - ERFMG IS NOT INITIAL .
L_STR = WA_OUT - ERFMG .
CONDENSE l_str . " 去掉没用的小数位的0
SHIFT l_str RIGHT DELETING TRAILING '0' . "去掉没用的小数位的0
SHIFT l_str RIGHT DELETING TRAILING '.' . "去掉没用的小数位的0
ELSE .
L_STR = '0' . "为空就给个空值
ENDIF .
CONDENSE L_STR .
G_ERFMG = L_STR .