ABPA-SMARTFORMS打印-金額數字轉中文漢字大寫

ABPA-SMARTFORMS打印金額數字轉中文漢字大寫

直接上步驟：

　　1.事務碼：SE37創建函數

 

 

　　2.函數代碼

FUNCTION ZXXXX.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(AMOUNT)
*"  EXPORTING
*"     REFERENCE(E_OUTPUT)
*"----------------------------------------------------------------------
  DATA: spell TYPE spell.
  DATA: sdlen TYPE i.
  DATA: amount1 TYPE p DECIMALS 2.
  DATA: flag TYPE c.
  amount1 = amount.
  IF amount1 < 0.
    amount1 = 0 - amount1.
    flag = '負'.
  ELSE.
    flag = ''.
  ENDIF.

  CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      amount    = amount1
      currency  = 'CNY'
      filler    = ''
      language  = '1'
    IMPORTING
      in_words  = spell
    EXCEPTIONS
      not_found = 1
      too_large = 2
      OTHERS    = 3.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

  IF spell-decword <> '零'.
    sdlen = strlen( spell-decword ).
    CASE sdlen.
      WHEN '1'.
        CONCATENATE '零' spell-decword '分' INTO spell-decword.
      WHEN '2'.
        REPLACE '拾' IN spell-decword WITH '角'.
      WHEN '3'.
        REPLACE '拾' IN spell-decword WITH '角'.
        CONCATENATE spell-decword '分' INTO spell-decword.
    ENDCASE.
    CONCATENATE spell-word '元' spell-decword INTO spell-word.
  ELSE.
    CONCATENATE spell-word '元整' INTO spell-word.
  ENDIF.
  CONCATENATE flag spell-word INTO spell-word.
  e_output = spell-word.
ENDFUNCTION.

　　3.運行效果