ME54N采购申请逐级审批BAPI_REQUISITION_RELEASE_GEN

采购申请只有行项目数据，没有抬头数据，所以审批SAP也提供了两个BAPI，分别按行项目审批和订单审批。采购申请只能逐级审批不能跨级审批。

1、BAPI_REQUISITION_RELEASE_GEN 按订单审批

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

复制代码

2、BAPI_REQUISITION_RELEASE 按行项目审批

1. CALL FUNCTION 'BAPI_REQUISITION_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.

复制代码