SAP自建ABAP函数实现金额转换成大写

在财务单据打印上，有很多这样的需求，自建一个函数，代码如下：

1. FUNCTION zfi_translate.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口:
   
4. *"       IMPORTING
   
5. *"             VALUE(ZNETWR) LIKE  VBRP-NETWR
   
6. *"       EXPORTING
   
7. *"             VALUE(ZTEXT) LIKE  SKAT-TXT50
   
8. *"----------------------------------------------------------------------
   
9. 
   
10.   DATA: m_curr(15) .
    
11.   DATA: m_char(6) .
    
12.   DATA: m_chare(1) .
    
13.   DATA: m_len TYPE i .
    
14.   DATA: m_lenn TYPE i .
    
15.   DATA: m_count TYPE i .
    
16.   CLEAR: m_text , ztext .
    
17.   WRITE znetwr TO m_curr DECIMALS 2
    
18.                          USING EDIT MASK 'RRV_________.__' .
    
19.   CONDENSE m_curr .
    
20.   m_len = strlen( m_curr ) .
    
21.   m_lenn = m_len .
    
22.   m_count = 0 .
    
23.   DO m_len TIMES .
    
24.     m_count = m_count + 1 .
    
25.     m_lenn = m_lenn - 1 .
    
26.     m_chare = m_curr+m_lenn(1) .
    
27.     CASE m_chare.
    
28.       WHEN '0' .
    
29.         m_char = '零' .
    
30.       WHEN '1' .
    
31.         m_char = '壹' .
    
32.       WHEN '2' .
    
33.         m_char = '贰' .
    
34.       WHEN '3' .
    
35.         m_char = '叁' .
    
36.       WHEN '4' .
    
37.         m_char = '肆' .
    
38.       WHEN '5' .
    
39.         m_char = '伍' .
    
40.       WHEN '6' .
    
41.         m_char = '陆' .
    
42.       WHEN '7' .
    
43.         m_char = '柒' .
    
44.       WHEN '8' .
    
45.         m_char = '捌' .
    
46.       WHEN '9' .
    
47.         m_char = '玖' .
    
48.       WHEN '-' .
    
49.         m_char = '(负)' .
    
50.     ENDCASE .
    
51.     IF m_char NE '(负)' AND m_char NE space .
    
52.       CASE m_count .
    
53.         WHEN '1' .
    
54.           CONCATENATE m_char '分' INTO m_char .
    
55.         WHEN '2' .
    
56.           CONCATENATE m_char '角' INTO m_char .
    
57.         WHEN '4' .
    
58.           CONCATENATE m_char '圆' INTO m_char .
    
59.         WHEN '5' OR '9' .
    
60.           CONCATENATE m_char '拾' INTO m_char .
    
61.         WHEN '6' OR '10'.
    
62.           CONCATENATE m_char '佰' INTO m_char .
    
63.         WHEN '7' OR '11' .
    
64.           CONCATENATE m_char '仟' INTO m_char .
    
65.         WHEN '8' .
    
66.           CONCATENATE m_char '万' INTO m_char .
    
67.         WHEN '12' .
    
68.           CONCATENATE m_char '亿' INTO m_char .
    
69.       ENDCASE .
    
70.     ENDIF.
    
71.     CONCATENATE m_char m_text INTO m_text .
    
72.     CONDENSE m_text .
    
73.     CLEAR m_char .
    
74.   ENDDO .
    
75. 
    
76.   ztext = m_text .
    
77. *PERFORM sub_translate .
    
78. 
    
79. ENDFUNCTION.

复制代码

棒棒棒棒哒

棒棒棒棒哒

thank you for share documents~~