删除/关闭采购申请BAPI_REQUISITION_DELETE

BAPI_REQUISITION_DELETE 删除/关闭采购申请，可以按照行项目部分删除，只是标记删除标识。
BAPI_REQUISITION_DELETE只能删除普通的采购申请，如果删除L委外类型，需要使用BAPI_PR_CHANGE来删除

1、BAPI_REQUISITION_DELETE

1. FUNCTION zpufm008.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_BANFN) TYPE  BANFN
   
6. *"  EXPORTING
   
7. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
   
8. *"  TABLES
   
9. *"      T_RQ_DEL STRUCTURE  BAPIEBAND
   
10. *"----------------------------------------------------------------------
    
11.   DATA:lt_return TYPE TABLE OF bapireturn WITH HEADER LINE.
    
12.   DATA:lv_message  TYPE string.
    
13. 
    
14.   PERFORM frm_inputsap_banfn CHANGING i_banfn.
    
15. 
    
16.   CALL FUNCTION 'BAPI_REQUISITION_DELETE'
    
17.     EXPORTING
    
18.       number                      = i_banfn
    
19.     TABLES
    
20.       requisition_items_to_delete = t_rq_del
    
21.       return                      = lt_return.
    
22. 
    
23.   LOOP AT lt_return WHERE type CA 'AEX'.
    
24.     IF e_message-message IS INITIAL.
    
25.       e_message-message   = lt_return-message.
    
26.     ELSE.
    
27.       CONCATENATE e_message-message lv_message INTO e_message-message SEPARATED BY '/'.
    
28.     ENDIF.
    
29.   ENDLOOP.
    
30.   IF sy-subrc = 0.
    
31.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    
32.     e_message-type   = 'E'.
    
33.   ELSE.
    
34.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    
35.       EXPORTING
    
36.         wait = 'X'.
    
37.     e_message-type    = 'S'.
    
38.     READ TABLE t_rq_del INDEX 1.
    
39.     IF sy-subrc = 0.
    
40.       IF t_rq_del-delete_ind = 'X'.
    
41.         e_message-message = '采购申请删除成功！'.
    
42.       ELSE.
    
43.         e_message-message = '采购申请取消删除成功！'.
    
44.       ENDIF.
    
45.     ENDIF.
    
46.   ENDIF.
    
47. 
    
48. ENDFUNCTION.
    
49. FORM frm_inputsap_banfn CHANGING pc_vbeln TYPE eban-banfn.
    
50.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    
51.     EXPORTING
    
52.       input  = pc_vbeln
    
53.     IMPORTING
    
54.       output = pc_vbeln.
    
55. ENDFORM.

复制代码

2、BAPI_PR_CHANGE

1. FUNCTION zpufm008.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_BANFN) TYPE  BANFN
   
6. *"  EXPORTING
   
7. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
   
8. *"  TABLES
   
9. *"      T_RQ_DEL STRUCTURE  BAPIEBAND
   
10. *"----------------------------------------------------------------------
    
11.   DATA:lt_return  TYPE TABLE OF bapiret2 WITH HEADER LINE.
    
12.   DATA:lt_pritem  TYPE TABLE OF bapimereqitemimp WITH HEADER LINE.
    
13.   DATA:lt_pritemx        TYPE TABLE OF        bapimereqitemx WITH HEADER LINE.
    
14.   DATA:lv_message  TYPE string.
    
15. 
    
16.   CHECK t_rq_del[] IS NOT INITIAL.
    
17.   PERFORM frm_inputsap_banfn CHANGING i_banfn.
    
18. 
    
19.   LOOP AT t_rq_del.
    
20.     CLEAR:lt_pritem,lt_pritemx.
    
21.     lt_pritem-preq_item  = t_rq_del-preq_item.
    
22.     lt_pritem-delete_ind = t_rq_del-delete_ind.
    
23.     APPEND lt_pritem.
    
24.     lt_pritemx-preq_item  = t_rq_del-preq_item.
    
25.     lt_pritemx-preq_itemx = 'X'.
    
26.     lt_pritemx-delete_ind = 'X'.
    
27.     APPEND lt_pritemx.
    
28.   ENDLOOP.
    
29. 
    
30.   CALL FUNCTION 'BAPI_PR_CHANGE'
    
31.     EXPORTING
    
32.       number  = i_banfn
    
33.     TABLES
    
34.       return  = lt_return
    
35.       pritem  = lt_pritem
    
36.       pritemx = lt_pritemx.
    
37. 
    
38.   LOOP AT lt_return WHERE type CA 'AEX'.
    
39.     IF e_message-message IS INITIAL.
    
40.       e_message-message   = lt_return-message.
    
41.     ELSE.
    
42.       CONCATENATE e_message-message lv_message INTO e_message-message SEPARATED BY '/'.
    
43.     ENDIF.
    
44.   ENDLOOP.
    
45.   IF sy-subrc = 0.
    
46.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    
47.     e_message-type   = 'E'.
    
48.   ELSE.
    
49.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    
50.       EXPORTING
    
51.         wait = 'X'.
    
52.     e_message-type    = 'S'.
    
53.     READ TABLE t_rq_del INDEX 1.
    
54.     IF sy-subrc = 0.
    
55.       IF t_rq_del-delete_ind = 'X'.
    
56.         e_message-message = '采购申请删除成功！'.
    
57.       ELSE.
    
58.         e_message-message = '采购申请取消删除成功！'.
    
59.       ENDIF.
    
60.     ENDIF.
    
61.   ENDIF.
    
62. 
    
63. ENDFUNCTION.
    
64. FORM frm_inputsap_banfn CHANGING pc_vbeln TYPE eban-banfn.
    
65.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    
66.     EXPORTING
    
67.       input  = pc_vbeln
    
68.     IMPORTING
    
69.       output = pc_vbeln.
    
70. ENDFORM.

复制代码