SPELL_AMOUNT

*CONVERT NUMBER TO ENGLISH
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
AMOUNT          = G_TOTAL
CURRENCY        = WG_HEADER-WAERK
FILLER          = ' '
LANGUAGE        = SY-LANGU
IMPORTING
IN_WORDS        = G_TITL
EXCEPTIONS
NOT_FOUND       = 1
TOO_LARGE       = 2
OTHERS          = 3.

G_TOT1 = G_TITL-WORD.          " for int
G_TOT2 = G_TITL-DECWORD.       "for decimal









IF G_TOT2 NE 'ZERO'.
  CONCATENATE WG_HEADER-WAERK G_TOT1 'AND' G_TOT2 'CENTS'INTO G_TOTAL_TEXT SEPARATED BY SPACE.
ELSE.
  G_TOTAL_TEXT = G_TOT1.
  CONCATENATE WG_HEADER-WAERK G_TOT1 INTO G_TOTAL_TEXT SEPARATED BY SPACE.
ENDIF.

转载于:https://www.cnblogs.com/aurora-cj/p/11450985.html