如何使用ABAP--将数字金额转换为人民币大写字符串？

如何使用ABAP--将数字金额转换为人民币大写字符串？

1、No Uncode Version

FUNCTION Z_CONVERT_NUMERIC_TO_CHINESE.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(PI_MONEY) LIKE BSEG-DMBTR
*" EXPORTING
*" REFERENCE(PO_CHINESE)
*" EXCEPTIONS
*" WRONG_MONEY
*"----------------------------------------------------------------------
DATA:MONEY_STR(16).
DATA:I TYPE I,
J TYPE I,
UNITS_OFF TYPE I,
CURNT_OFF TYPE I.
DATA:LASTD TYPE N,CURNTD TYPE N.
DATA:CWORD(2),CUNIT(2),OCUNIT(2).
IF PI_MONEY = 0.
PO_CHINESE = '零'.
EXIT.
ENDIF.
MONEY_STR = PI_MONEY.
IF MONEY_STR CN '0123456789. '.
RAISE WRONG_MONEY.
ENDIF.
*人为删除小数点
IF MONEY_STR CS '.'.
I = SY-FDPOS + 1.
MONEY_STR+SY-FDPOS = MONEY_STR+I.
ENDIF.
CONDENSE MONEY_STR NO-GAPS.
DATA:UNITS(30) VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万',
DIGTS(20) VALUE '零壹贰叁肆伍陆柒捌玖'.
LASTD = 0.
CURNT_OFF = STRLEN( MONEY_STR ) - 1.
CLEAR OCUNIT.
WHILE CURNT_OFF >= 0.
CURNTD = MONEY_STR+CURNT_OFF(1). "提取数字
I = CURNTD * 2.
CWORD = DIGTS+I(2). "取数字对应的汉字
CUNIT = UNITS+UNITS_OFF(2). "取单位
I = UNITS_OFF / 2. "取单位对应的位置
IF CURNTD = 0. "Current digit is 0
IF I = 2.
CLEAR:CWORD.
IF CURNT_OFF = 0. "最后一个数字为0清除单位
CLEAR:CUNIT.
ENDIF.
ELSEIF I = 6 OR I = 10.
OCUNIT = CUNIT.
CLEAR:CWORD.
CLEAR:CUNIT.
IF CURNT_OFF = 0. "最后一个数字为0清除单位
ENDIF.
ELSEIF LASTD = 0. "前面的一个数字是零则避免再次填写零
CLEAR:CWORD,CUNIT.
ELSE.
CLEAR:CUNIT.
ENDIF.
elseif I = 10.
CLEAR OCUNIT.
ENDIF.
IF OCUNIT ne space and CURNTD ne 0.
CONCATENATE OCUNIT PO_CHINESE INTO PO_CHINESE.
CLEAR OCUNIT.
endif.
CONCATENATE CWORD CUNIT PO_CHINESE INTO PO_CHINESE.
LASTD = CURNTD.
SUBTRACT 1 FROM CURNT_OFF.
ADD 2 TO UNITS_OFF.
ENDWHILE.
IF PO_CHINESE NS '分'.
CONCATENATE PO_CHINESE '整' INTO PO_CHINESE.
ELSE.
CWORD = PO_CHINESE.
IF CWORD = '零'.
SHIFT PO_CHINESE BY 2 PLACES.
ENDIF.
ENDIF.
ENDFUNCTION.

2 Unicode Version

FUNCTION zfuc_numeric_to_chinese.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(IV_MONEY) TYPE BF_DMBTR
*" EXPORTING
*" REFERENCE(EV_MONEY)
*" EXCEPTIONS
*" WRONG_MONEY
*"----------------------------------------------------------------------
IF iv_money = 0.
ev_money = '零'.
EXIT.
ENDIF.
DATA:money_str(33).
money_str = iv_money.
CONDENSE money_str NO-GAPS.
IF money_str CN '0123456789. '.
RAISE wrong_money.
ENDIF.
DATA:i TYPE i.
IF money_str CS '.'.
i = sy-fdpos + 1.
money_str+sy-fdpos = money_str+i.
ENDIF.
CONDENSE money_str NO-GAPS.
DATA:units_off TYPE i,
curnt_off TYPE i.
DATA:lastd TYPE n,curntd TYPE n.
DATA:cword(2),weight(2).
DATA:units(30) VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万',
digts(20) VALUE '零壹贰叁肆伍陆柒捌玖'.

* clear:ev_money,units_off.
lastd = 0.
curnt_off = STRLEN( money_str ) - 1.
WHILE curnt_off >= 0.
curntd = money_str+curnt_off(1).
i = curntd.
cword = digts+i(1).

weight = units+units_off(1).

i = units_off / 1.
IF curntd = 0. "Current digit is 0
IF i = 2 OR i = 6 OR i = 10.
CLEAR:cword.
IF curnt_off = 0.
CLEAR:weight.
ENDIF.
ELSEIF lastd = 0.
CLEAR:cword,weight.
ELSE.
CLEAR:weight.
ENDIF.
ENDIF.
CONCATENATE cword weight ev_money INTO ev_money.
lastd = curntd.
SUBTRACT 1 FROM curnt_off.
ADD 1 TO units_off.
ENDWHILE.
IF ev_money NS '分'.
CONCATENATE ev_money '整' INTO ev_money.
ELSE.
cword = ev_money.
IF cword = '零'.
SHIFT ev_money BY 1 PLACES.
ENDIF.
ENDIF.

ENDFUNCTION.