貨幣值轉為大寫'SPELL_AMOUNT'

   CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      amount    = inetamt
      currency  = l_curr
      language  = zspras
    IMPORTING
      in_words  = in_words
    EXCEPTIONS
      not_found = 1
      too_large = 2
      OTHERS    = 3.

 

 

======例子

 DATA: S_SPELL LIKE SPELL.
CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      LANGUAGE = '1'   "SY-LANGU
      CURRENCY = WA_RESULT-WAERS
      AMOUNT   = WA_RESULT-WRBTR
      FILLER   = ' '
    IMPORTING
      IN_WORDS = S_SPELL.

IF S_SPELL-DECWORD = '零' OR S_SPELL-DECWORD IS INITIAL.
      CONCATENATE S_SPELL-WORD '圆整' INTO G_UPPRICE.
ELSE.
     if STRLEN( S_SPELL-DECWORD ) = 1.
           CONCATENATE S_SPELL-WORD '圆零角' S_SPELL-DECWORD '分' INTO G_UPPRICE.
     else.
           if S_SPELL-DECWORD+2(1) <> ''.   "0.35有 "分" .
                CONCATENATE S_SPELL-WORD '圆' S_SPELL-DECWORD+0(1) '角' S_SPELL-DECWORD+2(1) '分' INTO G_UPPRICE.
           else.
                CONCATENATE S_SPELL-WORD '圆' S_SPELL-DECWORD+0(1) '角零分' INTO G_UPPRICE.
           endif.       
     endif.
ENDIF.