销售订单删除接口BAPI_SALESORDER_CHANGE

1. FUNCTION zsdfm001_delete.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_VBELN) TYPE  VBELN_VA OPTIONAL
   
6. *"  EXPORTING
   
7. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
   
8. *"----------------------------------------------------------------------
   
9.   DATA:BEGIN OF ls_vbak,
   
10.          vbeln TYPE vbak-vbeln,
    
11.        END OF ls_vbak.
    
12.   DATA:lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.
    
13.   DATA:ls_order_header_inx TYPE bapisdh1x.
    
14. 
    
15.   IF i_vbeln IS NOT INITIAL.
    
16.     PERFORM frm_inputsap_data CHANGING i_vbeln.
    
17.     SELECT SINGLE vbeln INTO ls_vbak FROM vbak WHERE vbeln = i_vbeln.
    
18.     IF sy-subrc NE 0.
    
19.       e_message-type = 'S'.
    
20.       e_message-message = '没有符合条件数据'.
    
21.       EXIT.
    
22.     ENDIF.
    
23.   ELSE.
    
24.     e_message-type = 'E'.
    
25.     e_message-message = '输入条件不能全为空'.
    
26.     EXIT.
    
27.   ENDIF.
    
28. 
    
29.   CHECK e_message-type NE 'E'.
    
30. 
    
31.   ls_order_header_inx-updateflag = 'D'."删除标识
    
32.   CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
    
33.     EXPORTING
    
34.       salesdocument    = i_vbeln
    
35.       order_header_inx = ls_order_header_inx
    
36.     TABLES
    
37.       return           = lt_return.
    
38. 
    
39.   LOOP AT lt_return WHERE type CA 'AEX'.
    
40.     IF e_message-message IS INITIAL.
    
41.       e_message-message   = lt_return-message.
    
42.     ELSE.
    
43.       e_message-message = e_message-message && '.' && lt_return-message.
    
44.     ENDIF.
    
45.   ENDLOOP.
    
46.   IF sy-subrc = 0.
    
47.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
    
48. 
    
49.     e_message-type  = 'E'.
    
50.   ELSE.
    
51.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    
52.       EXPORTING
    
53.         wait = 'X'.
    
54. 
    
55.     e_message-type    = 'S'.
    
56.     e_message-message = '订单删除成功'.
    
57.   ENDIF.
    
58. 
    
59. ENDFUNCTION.

复制代码

硬删除，直接删除数据