【转载】ABAP 金额 英文大写 函数

 FUNCTION ZCMC_SPELL_AMOUNT_EN.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(PI_AMT) TYPE  NETWR
*"     REFERENCE(PI_WAERS) TYPE  WAERS
*"  EXPORTING
*"     REFERENCE(PE_SAYWORDS) TYPE  CHAR200
*"----------------------------------------------------------------------
  DATA:  ls_spell TYPE spell,
         p_amt2(15),
         l_text TYPE ltext.

  SELECT SINGLE ktext INTO l_text
  FROM tcurt
  WHERE spras =  'EN'
  AND waers = pi_waers.

  TRANSLATE l_text TO UPPER CASE.

  CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      amount   = pi_amt
      currency = pi_waers
      filler   = ' '
      language = 'E'
    IMPORTING
      in_words = ls_spell.

  IF NOT ls_spell-decimal IS INITIAL.
    CASE pi_waers.
      WHEN 'USD'.
        CONCATENATE ls_spell-word l_text 'AND' ls_spell-decword 'CENTS'
         INTO pe_saywords  SEPARATED BY space.

      WHEN OTHERS.
        CONCATENATE ls_spell-word 'AND' ls_spell-decword
                    l_text INTO pe_saywords
                    SEPARATED BY space.

    ENDCASE.
  ELSE.

    CONCATENATE ls_spell-word  l_text INTO pe_saywords
                SEPARATED BY space.

  ENDIF.
ENDFUNCTION.