ABAP 金额小写转大写

﹏ヽ暗。殇╰゛Y 2022-01-14 13:29 266阅读 0赞

**Z\_CONVERT\_TO\_CAPITALIZATION**

![20190614153856166.png][]

![2019061415390479.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

FUNCTION Z\_CONVERT\_TO\_CAPITALIZATION.  
*\*"----------------------------------------------------------------------*  
*\*"\*"**本地接口：*  
*\*"  IMPORTING*  
*\*"     VALUE(PI\_MONEY) TYPE  BBWERT*  
*\*"  EXPORTING*  
*\*"     VALUE(PO\_CHINESE) TYPE  CHAR\_50*  
*\*"----------------------------------------------------------------------*  
  
  
  IF PI\_MONEY = 0.  
    PO\_CHINESE = '零'.  
    EXIT.  
  ENDIF.  
  DATA:MONEY\_STR(13).  
  MONEY\_STR = PI\_MONEY.  
  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:po\_chinese.*",units\_off.*  
  LASTD = 0.  
  CURNT\_OFF = STRLEN( MONEY\_STR ) \- 1.  
  WHILE CURNT\_OFF >= 0.  
    CURNTD = MONEY\_STR+CURNT\_OFF(1).  
    CWORD = DIGTS+CURNTD(1).  
  
    WEIGHT = UNITS+UNITS\_OFF(1).  
  
    IF CURNTD = 0.             *"Current digit is 0*  
      IF UNITS\_OFF = 2 OR UNITS\_OFF = 6 OR UNITS\_OFF = 10.  
        CLEAR:CWORD.  
        IF CURNT\_OFF = 0.  
          CLEAR:WEIGHT.  
        ENDIF.  
      ELSEIF LASTD = 0.  
        CLEAR:CWORD,WEIGHT.  
      ELSE.  
        CLEAR:WEIGHT.  
      ENDIF.  
    ENDIF.  
    *"PO\_CHINESE = CWORD + WEIGHT + PO\_CHINESE.*  
    CONCATENATE CWORD WEIGHT PO\_CHINESE INTO PO\_CHINESE.  
    LASTD = CURNTD.  
    SUBTRACT 1 FROM CURNT\_OFF.  
    ADD 1 TO UNITS\_OFF.  
  ENDWHILE.  
  IF PO\_CHINESE NS '分'.  
    CONCATENATE PO\_CHINESE '整' INTO PO\_CHINESE.  
  ELSE.  
    CWORD = PO\_CHINESE.  
    IF CWORD = '零'.  
      SHIFT PO\_CHINESE BY 1 PLACES.  
    ENDIF.  
  ENDIF.  
  
  
ENDFUNCTION.

[20190614153856166.png]: /images/20220114/c55d570ab0f949a29f119bf856a40c32.png
[2019061415390479.png]: /images/20220114/769c41ca9a204c0ca0eee3bb1976549f.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220114/ad32be3ffb6e49fcb5a4b77f7d00d90e.png