金額轉換成英文

FM  金額轉換成英文 ZFUC_NUMERIC_TO_ENGLISH

 FUNCTION ZFUC_NUMERIC_TO_ENGLISH.

IMPORT:IV_MONEY TYPE BF_DMBTR                       按本位幣計的金額

EXPORT:EV_MONEY

GLOBAL DATA:

FUNCTION-POOL ZFUC.                         "MESSAGE-ID ..
DATA:INPUT(20)  TYPE C,
     OUTPUT(20) TYPE C.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(IV_MONEY) TYPE  BF_DMBTR
*"  EXPORTING
*"     REFERENCE(EV_MONEY)
*"----------------------------------------------------------------------
DATA:C_AMT(15) TYPE C ,
N_AMT(15) TYPE C,
D_AMT(2)  TYPE C,
T_AMT     TYPE I,
LEN1      TYPE I,
LEN2      TYPE I,
LEN3      TYPE I,
SP1       LIKE SPELL OCCURS 0 WITH HEADER LINE,
SP2       LIKE SPELL OCCURS 0 WITH HEADER LINE,
STR1      TYPE STRING.
DATA L_UPAMT TYPE BSEG-WRBTR.
DATA:I_AMT   TYPE BSEG-WRBTR.
DATA:O_AMT   TYPE STRING.

C_AMT = I_AMT = IV_MONEY.

LEN1 = STRLEN( C_AMT ) - 3.
LEN2 = STRLEN( C_AMT ) - 2.
N_AMT = C_AMT+0(LEN1).
D_AMT = C_AMT+LEN2(2).

T_AMT = N_AMT.
N_AMT = T_AMT.

T_AMT = D_AMT.
D_AMT = T_AMT.

LEN3 = STRLEN( D_AMT ).
IF LEN3 = 2.
STR1 = 'AND CENTS'.
ELSE.
STR1 = 'AND PERCENTS'.
ENDIF.

CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
AMOUNT   = N_AMT
LANGUAGE = 'E'
IMPORTING
IN_WORDS = SP1.

CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
AMOUNT   = D_AMT
LANGUAGE = 'E'
IMPORTING
IN_WORDS = SP2.

IF SP2-WORD = 'ZERO'.
CONCATENATE SP1-WORD 'ONLY' INTO O_AMT SEPARATED BY SPACE.
ELSE.
CONCATENATE SP1-WORD STR1 SP2-WORD 'ONLY' INTO O_AMT SEPARATED BY SPACE.
ENDIF.

EV_MONEY = O_AMT.


ENDFUNCTION.