ME29N采购订单审批BAPI_PO_RELEASE

采购订单不能跨级审批，只能逐级审批

程序代码：

1. FUNCTION zpufm009.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_EBELN) TYPE  EBELN
   
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 ls_ekko,
    
12.         ebeln TYPE ekko-ebeln,
    
13.         frggr TYPE ekko-frggr,
    
14.         frgsx TYPE ekko-frgsx,
    
15.       END OF ls_ekko.
    
16.   DATA:ls_t16fs TYPE t16fs.
    
17.   DATA:lv_level TYPE n.
    
18.   DATA:lv_pre_field TYPE string VALUE 'FRGC'.
    
19.   DATA:lv_fieldname TYPE string.
    
20.   FIELD-SYMBOLS:<fs_field> TYPE t16fs-frgc1.
    
21. 
    
22.   PERFORM frm_inputsap_ebeln CHANGING i_ebeln.
    
23. 
    
24.   SELECT SINGLE
    
25.     ebeln  "采购订单
    
26.     frggr  "审批组
    
27.     frgsx  "审批策略
    
28.   INTO ls_ekko
    
29.   FROM ekko
    
30.   WHERE ebeln = i_ebeln
    
31.     AND frgzu = i_frgzu "空 未审核 X一级审核 XX二级审核
    
32.     AND frgrl = 'X'.    "X有待审批,未审核完成
    
33.   IF sy-subrc = 0.
    
34.     SELECT SINGLE * INTO ls_t16fs FROM t16fs WHERE frggr = ls_ekko-frggr AND frgsx = ls_ekko-frgsx. "审批代码
    
35.     IF sy-subrc = 0.
    
36.       lv_level = strlen( i_frgzu ).
    
37.       lv_level = lv_level + 1.
    
38.       CONCATENATE lv_pre_field lv_level INTO lv_fieldname.
    
39.       "通过指针获取批准代码
    
40.       ASSIGN COMPONENT lv_fieldname OF STRUCTURE ls_t16fs TO <fs_field>.
    
41.       IF sy-subrc = 0.
    
42.         CALL FUNCTION 'BAPI_PO_RELEASE'
    
43.           EXPORTING
    
44.             purchaseorder          = i_ebeln
    
45.             po_rel_code            = <fs_field>
    
46.             use_exceptions         = 'X'
    
47.           TABLES
    
48.             return                 = lt_return
    
49.           EXCEPTIONS
    
50.             authority_check_fail   = 1
    
51.             document_not_found     = 2
    
52.             enqueue_fail           = 3
    
53.             prerequisite_fail      = 4
    
54.             release_already_posted = 5
    
55.             responsibility_fail    = 6
    
56.             OTHERS                 = 7.
    
57.         LOOP AT lt_return WHERE type CA 'AEX'.
    
58.           IF e_message-message IS INITIAL.
    
59.             e_message-message   = lt_return-message.
    
60.           ELSE.
    
61.             CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
    
62.           ENDIF.
    
63.         ENDLOOP.
    
64.         IF sy-subrc = 0.
    
65.           e_message-type   = 'E'.
    
66.           EXIT.
    
67.         ELSE.
    
68.           e_message-type    = 'S'.
    
69.           e_message-message = '采购订单' && lv_level && '级审批通过！'.
    
70.         ENDIF.
    
71.       ENDIF.
    
72. 
    
73.     ENDIF.
    
74.   ELSE.
    
75.     e_message-type    = 'S'.
    
76.     e_message-message = '没有发现需要审批的采购订单！'.
    
77.   ENDIF.
    
78. 
    
79. ENDFUNCTION.
    
80. FORM frm_inputsap_ebeln CHANGING pc_vbeln TYPE ekko-ebeln.
    
81.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    
82.     EXPORTING
    
83.       input  = pc_vbeln
    
84.     IMPORTING
    
85.       output = pc_vbeln.
    
86. ENDFORM.

复制代码