外向交货单删除BAPI_OUTB_DELIVERY_CHANGE

这里是硬删除，直接删除整个订单数据，不是标记删除标记

程序代码：

1. FUNCTION zsdfm016.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_VBELN) TYPE  VBELN_VL OPTIONAL
   
6. *"     VALUE(I_LIFEX) TYPE  LIFEX OPTIONAL
   
7. *"  EXPORTING
   
8. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
   
9. *"----------------------------------------------------------------------
   
10.   DATA:BEGIN OF ls_vbeln,
    
11.          vbeln TYPE likp-vbeln,
    
12.        END OF ls_vbeln.
    
13.   DATA:ls_header_data    TYPE bapiobdlvhdrchg.
    
14.   DATA:ls_header_control TYPE bapiobdlvhdrctrlchg.
    
15.   DATA:lv_vbeln          TYPE likp-vbeln.
    
16.   DATA:lv_line           TYPE i.
    
17.   DATA:lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.
    
18.   DATA:lt_vbeln LIKE TABLE OF ls_vbeln WITH HEADER LINE.
    
19. 
    
20.   IF i_vbeln IS NOT INITIAL.
    
21.     lv_vbeln = i_vbeln.
    
22.     SELECT SINGLE vbeln INTO ls_vbeln FROM likp WHERE vbeln = lv_vbeln.
    
23.     IF sy-subrc NE 0.
    
24.       e_message-type = 'S'.
    
25.       e_message-message = '没有符合条件数据'.
    
26.       EXIT.
    
27.     ENDIF.
    
28.   ELSEIF i_lifex IS NOT INITIAL.
    
29.     SELECT vbeln INTO TABLE lt_vbeln FROM likp WHERE lifex = i_lifex.
    
30.     IF sy-subrc = 0.
    
31.       DESCRIBE TABLE lt_vbeln LINES lv_line.
    
32.       IF lv_line = 1.
    
33.         READ TABLE lt_vbeln INDEX 1.
    
34.         lv_vbeln = lt_vbeln-vbeln.
    
35.       ELSE.
    
36.         e_message-type = 'E'.
    
37.         e_message-message = '数据异常：多条'.
    
38.         EXIT.
    
39.       ENDIF.
    
40.     ELSE.
    
41.       e_message-type = 'S'.
    
42.       e_message-message = '没有符合条件数据'.
    
43.       EXIT.
    
44.     ENDIF.
    
45.   ELSE.
    
46.     e_message-type = 'E'.
    
47.     e_message-message = '输入条件不能全为空'.
    
48.     EXIT.
    
49.   ENDIF.
    
50. 
    
51.   ls_header_data-deliv_numb    = lv_vbeln.
    
52.   ls_header_control-deliv_numb = lv_vbeln.
    
53.   ls_header_control-dlv_del    = 'X'."Delete whole Delivery
    
54. 
    
55.   CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
    
56.     EXPORTING
    
57.       header_data    = ls_header_data
    
58.       header_control = ls_header_control
    
59.       delivery       = lv_vbeln
    
60.     TABLES
    
61. *     item_data      = item_data
    
62. *     item_control   = item_control
    
63.       return         = lt_return.
    
64. 
    
65.   LOOP AT lt_return WHERE type CA 'AEX'.
    
66.     IF e_message-message IS INITIAL.
    
67.       e_message-message = lt_return-message.
    
68.     ELSE.
    
69.       e_message-message = e_message-message && '/' && lt_return-message.
    
70.     ENDIF.
    
71.   ENDLOOP.
    
72.   IF sy-subrc = 0.
    
73.     e_message-type = 'E'.
    
74.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
    
75.     EXIT.
    
76.   ELSE.
    
77.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    
78.       EXPORTING
    
79.         wait = 'X'.
    
80.     e_message-type = 'S'.
    
81.     e_message-message  = '删除交货单成功'.
    
82.   ENDIF.
    
83. 
    
84. ENDFUNCTION.

复制代码

删除交货单行项目：

1. item_control-deliv_numb = wa_lips-vbeln.
   
2. item_control-deliv_item = wa_lips-posnr.
   
3. item_control-del_item = 'X'."Delete item
   
4. APPEND item_control.

复制代码