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.

复制代码

使用下面的函数，输入结果更人性化

1. FUNCTION zfifm067.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_AMOUNT) TYPE  VBRP-NETWR
   
6. *"  EXPORTING
   
7. *"     VALUE(E_TEXT) TYPE  SKAT-TXT50
   
8. *"----------------------------------------------------------------------
   
9.   DATA: lv_str      TYPE string,
   
10.         lv_int_part TYPE string,   " 整数部分
    
11.         lv_dec_part TYPE string,   " 小数部分（两位，如 '03'）
    
12.         lv_jiao     TYPE i,
    
13.         lv_fen      TYPE i.
    
14.   DATA:ls_words TYPE spell.
    
15.   CONSTANTS: c_num(20)  TYPE c VALUE '零壹贰叁肆伍陆柒捌玖'.
    
16. 
    
17.   lv_str = i_amount.
    
18.   CONDENSE lv_str NO-GAPS.
    
19.   SPLIT lv_str AT '.' INTO lv_int_part lv_dec_part.
    
20. 
    
21.   CALL FUNCTION 'SPELL_AMOUNT'
    
22.     EXPORTING
    
23.       amount    = lv_int_part
    
24.       language  = sy-langu
    
25.     IMPORTING
    
26.       in_words  = ls_words
    
27.     EXCEPTIONS
    
28.       not_found = 1
    
29.       too_large = 2
    
30.       OTHERS    = 3.
    
31. 
    
32.   lv_jiao = lv_dec_part(1) - '0'.
    
33.   lv_fen  = lv_dec_part+1(1) - '0'.
    
34. 
    
35.   IF lv_jiao = 0 AND lv_fen = 0.
    
36.     e_text = ls_words-word && '元整'.
    
37.   ELSE." 小数部分
    
38.     e_text = ls_words-word && '元'.
    
39.     IF lv_jiao > 0.
    
40.       e_text = e_text && c_num+lv_jiao(1) && '角'.
    
41.     ENDIF.
    
42.     IF lv_fen > 0.
    
43.       e_text = e_text && c_num+lv_fen(1) && '分'.
    
44.     ENDIF.
    
45.   ENDIF.
    
46. 
    
47. ENDFUNCTION.

复制代码

棒棒棒棒哒

棒棒棒棒哒

thank you for share documents~~