SAP 删除生产订单的BAPI

查看生产订单T-code：CO03，这里的删除是指更新订单删除标记
程序代码：

1. FUNCTION zppfm008.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_ORDER_NUMBER) TYPE  AUFNR OPTIONAL
   
6. *"  EXPORTING
   
7. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
   
8. *"----------------------------------------------------------------------
   
9.   DATA:BEGIN OF ls_afpo,
   
10.          aufnr TYPE aufk-aufnr,
    
11.          objnr TYPE aufk-objnr,
    
12.        END OF ls_afpo.
    
13.   DATA:lv_aufnr           TYPE afpo-aufnr.
    
14.   DATA:lv_line           TYPE i.
    
15.   DATA:lv_index          TYPE i.
    
16.   DATA:lt_orders TYPE TABLE OF bapi_order_key WITH HEADER LINE.
    
17.   DATA:lt_detail_return TYPE TABLE OF bapi_order_return WITH HEADER LINE.
    
18. 
    
19.   IF i_order_number IS NOT INITIAL.
    
20.     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    
21.       EXPORTING
    
22.         input  = i_order_number
    
23.       IMPORTING
    
24.         output = lv_aufnr.
    
25.     SELECT SINGLE aufnr objnr INTO ls_afpo FROM aufk WHERE aufnr = lv_aufnr.
    
26.     CALL FUNCTION 'STATUS_CHECK'
    
27.       EXPORTING
    
28.         client            = sy-mandt
    
29.         objnr             = ls_afpo-objnr
    
30.         status            = 'I0076' "DLFL        删除标记
    
31.       EXCEPTIONS
    
32.         object_not_found  = 1
    
33.         status_not_active = 2
    
34.         OTHERS            = 3.
    
35.     IF sy-subrc = 0.
    
36.       e_message-type = 'S'.
    
37.       e_message-message  = '已被删除'.
    
38.       EXIT.
    
39.     ENDIF.
    
40.   ELSE.
    
41.     e_message-type = 'E'.
    
42.     e_message-message = '输入条件不能全为空'.
    
43.     EXIT.
    
44.   ENDIF.
    
45. 
    
46.   lt_orders-order_number = lv_aufnr.
    
47.   APPEND lt_orders.
    
48. 
    
49.   CALL FUNCTION 'BAPI_PRODORD_SET_DELETION_FLAG'
    
50.     TABLES
    
51.       orders        = lt_orders[]
    
52.       detail_return = lt_detail_return.
    
53. 
    
54.   LOOP AT lt_detail_return WHERE type CA 'AEX'.
    
55.     IF e_message-message IS INITIAL.
    
56.       e_message-message = lt_detail_return-message.
    
57.     ELSE.
    
58.       e_message-message = e_message-message && '/' && lt_detail_return-message.
    
59.     ENDIF.
    
60.   ENDLOOP.
    
61.   IF sy-subrc = 0.
    
62.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
    
63. 
    
64.     e_message-type = 'E'.
    
65.     EXIT.
    
66.   ELSE.
    
67.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    
68.       EXPORTING
    
69.         wait = 'X'.
    
70.     e_message-type = 'S'.
    
71.     e_message-message  = '删除生产订单成功'.
    
72.   ENDIF.
    
73. 
    
74. ENDFUNCTION.

复制代码

生产订单系统状态保存在数据库表TJ02