ABAP 去掉小数点后面没用的空格

注意：SHIFT 后面的字符串必须为STRING 类型。

DATA:LT_MENGE TYPE STRING .
IF GS_ITAB-VMENG1 IS NOT INITIAL.

 "SmartForms断点调试
  "BREAK-POINT.
  LT_MENGE = GS_ITAB-VMENG1.
   "必须去掉多余的空格
  CONDENSE LT_MENGE .

" 去掉没用的小数位的0
  SHIFT LT_MENGE RIGHT DELETING TRAILING '0'."去掉没用的小数位的0
  SHIFT LT_MENGE RIGHT DELETING TRAILING '.'."去掉没用的小数位的.
  CONDENSE LT_MENGE .
  LR_MENGE1 = LT_MENGE.
ELSE.
  LR_MENGE1 = '0'."为空就给个空值
ENDIF.
CONDENSE LR_MENGE1.