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.
【转载】ABAP 金额 英文大写 函数
最新推荐文章于 2023-10-13 16:22:39 发布