FUNCTION ZSDI0007_CH_LOWERTOUPPER.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(I_JE) TYPE DMBTR
*" EXPORTING
*" VALUE(E_JE) TYPE CHAR50
*"---------------------------------------------------------------------- *&---------------------------------------------------------------------*
**RFC name: ZSDI0007_CH_LOWERTOUPPER
**Description: 金额小写转大写
**Date/Author: 2013.08.06/rico
**Program Logic:
**1.call function 'SPELL_AMOUNT'
***********************************************************************
** M O D I F I C A T I O N L O G
***********************************************************************
** ChangeDate Programmer Request Description
** ========== ========== ============ ============================
** 2013-08-06 rico DEVK900071 Created
*&---------------------------------------------------------------------* data:s_zs type spell,
s_j type spell,
s_f type spell,
v_nu type char30,
v_zs type char30,
v_xs type char30,
v_j type char30,
v_f type char30. v_nu = i_je. split v_nu at '.' into v_zs v_xs.
v_j = v_xs().
v_f = v_xs+(). if v_zs <> '' .
call function 'SPELL_AMOUNT'
exporting
language = '' "sy-langu
currency = sy-waers
amount = v_zs
filler = ' '
importing
in_words = s_zs.
endif. call function 'SPELL_AMOUNT'
exporting
language = '' "sy-langu
currency = sy-waers
amount = v_j
filler = ' '
importing
in_words = s_j. if v_f <> '' .
call function 'SPELL_AMOUNT'
exporting
language = '' "sy-langu
currency = sy-waers
amount = v_f
filler = ' '
importing
in_words = s_f.
endif. if s_j-word = '零' and s_f is initial . "如果没有小数位数 如 11.00
concatenate s_zs-word '元整' into e_je.
elseif s_zs is initial . "如果没有证书位 如 0.10 0.01 0.11
if s_j-word <> '零' .
concatenate s_j-word '角' into e_je .
endif.
if s_f is not initial.
concatenate e_je s_f-word '分' into e_je.
endif.
else. "如果整数小数位都有 如 11.01 11.10 11.11
concatenate s_zs-word '元' into e_je. if s_j-word = '零' and s_f is not initial .
concatenate e_je s_j-word into e_je.
else.
concatenate e_je s_j-word '角' into e_je .
endif. if s_f is not initial .
concatenate e_je s_f-word '分' into e_je.
endif. endif. ENDFUNCTION.