根据税码调用CALCULATE_TAX_FROM_NET_AMOUNT计算税额

采购订单发票行项目只有税码，没有税额，如果想计算项目的税额，可以调用SAP提供的两个标准函数CALCULATE_TAX_FROM_NET_AMOUNT，CALCULATE_TAX_FROM_GROSSAMOUNT。


1、总金额不含税:CALCULATE_TAX_FROM_NET_AMOUNT


2、总金额含税:CALCULATE_TAX_FROM_GROSSAMOUNT


3、部分代码

1. DATA:lv_fwste TYPE bset-fwste.
   
2. DATA:lt_mwdat TYPE TABLE OF rtax1u15.
   
3. 
   
4. SORT lt_rbkp BY belnr gjahr.
   
5. LOOP AT lt_rseg.
   
6.   CLEAR:t_rseg,lv_fwste.
   
7.   MOVE-CORRESPONDING lt_rseg TO t_rseg.
   
8.   IF t_rseg-matnr IS NOT INITIAL.
   
9.     PERFORM frm_conversion_matnr_output CHANGING t_rseg-matnr.
   
10.   ENDIF.
    
11. 
    
12.   READ TABLE lt_rbkp WITH KEY belnr = lt_rseg-belnr gjahr = lt_rseg-gjahr BINARY SEARCH.
    
13.   IF sy-subrc = 0.
    
14.     CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT'
    
15.       EXPORTING
    
16.         i_bukrs           = lt_rseg-bukrs
    
17.         i_mwskz           = lt_rseg-mwskz
    
18.         i_waers           = lt_rbkp-waers
    
19.         i_wrbtr           = lt_rseg-wrbtr
    
20.       IMPORTING
    
21.         e_fwste           = lv_fwste
    
22.       TABLES
    
23.         t_mwdat           = lt_mwdat
    
24.       EXCEPTIONS
    
25.         bukrs_not_found   = 1
    
26.         country_not_found = 2
    
27.         mwskz_not_defined = 3
    
28.         mwskz_not_valid   = 4
    
29.         ktosl_not_found   = 5
    
30.         kalsm_not_found   = 6
    
31.         parameter_error   = 7
    
32.         knumh_not_found   = 8
    
33.         kschl_not_found   = 9
    
34.         unknown_error     = 10
    
35.         account_not_found = 11
    
36.         txjcd_not_valid   = 12
    
37.         OTHERS            = 13.
    
38.     t_rseg-wmwst1 = lv_fwste.
    
39.   ENDIF.
    
40.   APPEND t_rseg.
    
41. ENDLOOP.

复制代码