SAP 中文小写金额转大写金额 amount in word（支持负数）

1. 参数定义

• IMPORTING
  
• EXPORTING
  

2. 代码

• 主函数：

  FUNCTION z_fi_conv_amount.
  *"----------------------------------------------------------------------
  *"*"本地接口：
  *"  IMPORTING
  *"     REFERENCE(I_INPUT) TYPE  WERTV12
  *"  EXPORTING
  *"     REFERENCE(E_OUTPUT) TYPE  STRING
  *"----------------------------------------------------------------------
  
    DATA: i_value   TYPE char100,        "入参
          e_value   TYPE char255,        "出参
          v_intege  TYPE c LENGTH 23,   "整数部分   最大23位
          v_decimal TYPE c LENGTH 2.    "小数部分   默认2位
  
    DATA: text_tab    TYPE TABLE OF char_4,
          wa_text_tab TYPE  char_4,
          length      TYPE i.
  
    DATA: v_lenth TYPE i,                           "整数部分长度
          v_cache TYPE c LENGTH 1.                  "缓存
  
    DATA: lv_flag TYPE c.                           "金额是否为负 标识
    "输入
    i_value = i_input.
  
    REPLACE ALL OCCURRENCES OF REGEX '\-'   IN i_value WITH ''.        "删除 - 符号
    IF sy-subrc = 0.            "如果为负数
      lv_flag = 'X'.
    ENDIF.
  
    SHIFT i_value LEFT DELETING LEADING '0'.          "删除前导0
    CONDENSE i_value NO-GAPS.                         "<