SAP 小写金额转大写

我不是女神ヾ 2022-05-24 11:06 248阅读 0赞

![70][]

![70 1][]

![70 2][]

![70 3][]

![70 4][]

![70 5][]

![70 6][]

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.

[70]: /images/20220524/d5647e001ce9492c8304193ab02f0bc1.png
[70 1]: /images/20220524/7056e9fdb12b49e08f1ee95f5f98c69d.png
[70 2]: /images/20220524/7250b77febe84196812ad6aa4160996f.png
[70 3]: /images/20220524/e8baaed6456c41cd97a066c8ca03ca49.png
[70 4]: /images/20220524/2b92355f4ddb4a0f9982090e18249da9.png
[70 5]: /images/20220524/d1e54bdff6984a43a9b59fcca4f7d125.png
[70 6]: /images/20220524/a5d1bbca050c4cac988fda471c31a453.png