SAP数值金额转大写函数

FUNCTION ZFUN_CONVERT_NUMERIC_TO_CHINES.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(IV_MONEY) TYPE  FAGLFLEXA-HSL
*"  EXPORTING
*"     REFERENCE(EV_MONEY) TYPE  C
*"  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.