ABAP excel上传时，数字带文本逗号 转ABAP数量QUAN金额CURR 格式

主要使用 

函数MOVE_CHAR_TO_NUM

或者 UNITS_STRING_CONVERT  

第二个需要限制客户SU3 参数配置X

或者函数入参默认X， excel导出默认时X格式，

 

样例参考代码

*&---------------------------------------------------------------------*
*& Report YWWZ_TEST57
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ywwz_test57.

DATA:lv_wrbtr TYPE resb-bdmng.
DATA:lv_wrbtr_num TYPE mchb-clabs.
DATA:lv_clabs TYPE mchb-clabs.
DATA:lv_wrbtr_c TYPE char50.
DATA:lv_wrbtr_c_str TYPE char50.

DATA:lv_p_space TYPE char50.
DATA:lv_p_x TYPE char50.
DATA:lv_p_y TYPE char50.

DATA:lv_dcpfm TYPE usr01-dcpfm.
DATA:lv_units TYPE char50.

SELECT SINGLE dcpfm INTO lv_dcpfm
      FROM usr01
      WHERE bname = sy-uname.

lv_p_space = '336.341,210'.
lv_p_x = '336,341.210'.
lv_p_y = '-336 341,210'.  "负数 336 341,21-


CASE lv_dcpfm.
  WHEN ''.
    lv_wrbtr_c = lv_p_space.
  WHEN 'X'.
    lv_wrbtr_c = lv_p_x.
  WHEN 'Y'.
    lv_wrbtr_c = lv_p_y.
  WHEN OTHERS.
ENDCASE.

BREAK-POINT.
CALL FUNCTION 'MOVE_CHAR_TO_NUM'
  EXPORTING
    chr             = lv_wrbtr_c
  IMPORTING
    num             = lv_wrbtr_num
  EXCEPTIONS
    convt_no_number = 1
    convt_overflow  = 2
    OTHERS          = 3.

lv_clabs = lv_wrbtr_num.

BREAK-POINT.

lv_wrbtr_c_str = lv_wrbtr_c.

IF lv_wrbtr_c+0(1) = '-'.
  SHIFT lv_wrbtr_c_str BY 1 PLACES .
ENDIF.

CALL FUNCTION 'UNITS_STRING_CONVERT'
  EXPORTING
    units_string = lv_wrbtr_c_str
    dcpfm        = lv_dcpfm
*   MLLN         = 'M'
*   TSND         = 'T'
  IMPORTING
    units        = lv_wrbtr
  EXCEPTIONS
    invalid_type = 1
    OTHERS       = 2.

IF lv_wrbtr_c+0(1) = '-'.
  lv_wrbtr = lv_wrbtr * -1.
ENDIF.

lv_clabs  = lv_wrbtr.

WRITE lv_clabs.
FINAL(lv_test_text) = |{ lv_clabs NUMBER = USER }|.

BREAK-POINT.