SAP ABAP对金额字段进行处理，去除特殊字符

---

需求

读取excel中金额到SAP系统中，可能会包含特殊字符，比如千分位符，我们只需要保留数字以及小数点

---

代码

通用方法：

*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IV_FEILD) TYPE  ANY
*"  EXPORTING
*"     REFERENCE(EV_FEILD) TYPE  ANY
*"----------------------------------------------------------------------
  CHECK iv_feild IS NOT INITIAL.

  DATA: lv_str TYPE string,
        lv_strt TYPE string,
        lv_char1 TYPE char1,
        lv_idx TYPE int4,
        lv_idxt TYPE int4.

  lv_str = iv_feild.

  lv_idxt = strlen( lv_str ).
  lv_idx = 0.

  DO lv_idxt TIMES.

    lv_char1 = lv_str+lv_idx(1).
    CASE lv_char1.
    WHEN '0' OR '1' OR '2' OR '3' OR '4' OR '5' OR '6' OR '7' OR '8' OR '9' OR '.'.
      lv_strt = lv_strt && lv_char1.
    WHEN OTHERS.
    ENDCASE.

    lv_idx = lv_idx + 1.

  ENDDO.

  CONDENSE lv_strt.
  IF lv_strt+0(1) NE '.'.
    ev_feild = lv_strt.
  ENDIF.

---

总结

以上