ME54N采购申请取消审批BAPI_REQUISITION_RESET_REL_GEN

由于采购申请只有项目数据，没有抬头数据，所以SAP提供了两个取消审批的BAPI，分别按照采购申请取消审批、PR行项目取消审批。采购申请审批时需要逐级审批，但是取消审批可以跨级审批，直接置为未审批状态。

1、BAPI_REQUISITION_RESET_REL_GEN 按照采购申请取消审批

1. FUNCTION ZPUFM006.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_BANFN) TYPE  BANFN
   
6. *"  EXPORTING
   
7. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
   
8. *"----------------------------------------------------------------------
   
9.   DATA:lt_return TYPE TABLE OF bapireturn WITH HEADER LINE.
   
10.   DATA:BEGIN OF lt_eban OCCURS 0,
    
11.         banfn TYPE eban-banfn,
    
12.         bnfpo TYPE eban-bnfpo,
    
13.         frgst TYPE eban-frgst, "批准策略
    
14.         frggr TYPE eban-frggr, "审批组
    
15.       END OF lt_eban.
    
16.   DATA:ls_t16fs TYPE t16fs.
    
17.   DATA:lv_pre_field TYPE string VALUE 'FRGC'.
    
18.   DATA:lv_fieldname TYPE string.
    
19.   FIELD-SYMBOLS:<fs_field> TYPE t16fs-frgc1.
    
20. 
    
21.   PERFORM frm_inputsap_banfn CHANGING i_banfn.
    
22. 
    
23.   SELECT banfn
    
24.          bnfpo
    
25.          frgst  "批准策略
    
26.          frggr  "审批组
    
27.   INTO TABLE lt_eban
    
28.   FROM eban
    
29.   WHERE banfn = i_banfn
    
30.     AND frgzu NE ''. "空 未审核 X一级审核 XX二级审核
    
31.   IF sy-subrc = 0.
    
32.     READ TABLE lt_eban INDEX 1.
    
33.     IF sy-subrc = 0.
    
34.       SELECT SINGLE * INTO ls_t16fs FROM t16fs WHERE frggr = lt_eban-frggr AND frgsx = lt_eban-frgst.
    
35.       IF sy-subrc = 0.
    
36.         "多级审批需逐级审批，反审批可以直接置为未审批状态
    
37.         CONCATENATE lv_pre_field '1' INTO lv_fieldname.
    
38.         "通过指针获取批准代码
    
39.         ASSIGN COMPONENT lv_fieldname OF STRUCTURE ls_t16fs TO <fs_field>.
    
40. 
    
41.         CALL FUNCTION 'BAPI_REQUISITION_RESET_REL_GEN'
    
42.           EXPORTING
    
43.             number   = i_banfn
    
44.             rel_code = <fs_field>
    
45.           TABLES
    
46.             return   = lt_return.
    
47. 
    
48.         LOOP AT lt_return WHERE type CA 'AEX'.
    
49.           IF e_message-message IS INITIAL.
    
50.             e_message-message   = lt_return-message.
    
51.           ELSE.
    
52.             CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
    
53.           ENDIF.
    
54.         ENDLOOP.
    
55.         IF sy-subrc = 0.
    
56.           e_message-type   = 'E'.
    
57.           EXIT.
    
58.         ELSE.
    
59.           e_message-type    = 'S'.
    
60.           e_message-message = '采购申请反审批通过！'.
    
61.         ENDIF.
    
62.       ENDIF.
    
63.     ENDIF.
    
64. 
    
65.   ELSE.
    
66.     e_message-type    = 'S'.
    
67.     e_message-message = '没有发现需要反审批的采购申请！'.
    
68.   ENDIF.
    
69. 
    
70. ENDFUNCTION.

复制代码

2、BAPI_REQUISITION_RESET_RELEASE 按照采购申请行项目取消审批

1. CALL FUNCTION 'BAPI_REQUISITION_RESET_RELEASE'
   
2.   EXPORTING
   
3.     number                 = i_banfn
   
4.     rel_code               = ls_t16fs-frgc1
   
5.     item                   = lt_eban-bnfpo
   
6.     use_exceptions         = 'X'
   
7.   TABLES
   
8.     return                 = lt_return
   
9.   EXCEPTIONS
   
10.     authority_check_fail   = 1
    
11.     requisition_not_found  = 2
    
12.     enqueue_fail           = 3
    
13.     prerequisite_fail      = 4
    
14.     release_already_posted = 5
    
15.     responsibility_fail    = 6
    
16.     OTHERS                 = 7.

复制代码