货铺QQ群号:834508274
进群统一修改群名片,例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接,小程序等,进群看公告,谢谢配合
不修改昵称会被不定期踢除,谢谢配合
*&---------------------------------------------------------------------*
*&交货单是物理删除,在DB表就找不到了
*&---------------------------------------------------------------------*
REPORT ZDEMO_DEL_DN.
PARAMETERS P_DN TYPE VBELN_VL.
DATA:LV_DELIVERY LIKE BAPIOBDLVHDRCHG-DELIV_NUMB,
LS_HEADER_DATA LIKE BAPIOBDLVHDRCHG,
LS_HEADER_CONTROL LIKE BAPIOBDLVHDRCTRLCHG.
DATA:LT_RETURN LIKE TABLE OF BAPIRET2.
DATA:LS_RETURN LIKE LINE OF LT_RETURN.
CLEAR LS_HEADER_DATA.
CLEAR LS_HEADER_CONTROL.
CLEAR LV_DELIVERY.
CLEAR LT_RETURN[].
LS_HEADER_DATA-DELIV_NUMB = P_DN.
LS_HEADER_CONTROL-DELIV_NUMB = P_DN.
LS_HEADER_CONTROL-DLV_DEL = 'X'.
LV_DELIVERY = P_DN.
"Deleting delivery doc (VL02)
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
EXPORTING
HEADER_DATA = LS_HEADER_DATA
HEADER_CONTROL = LS_HEADER_CONTROL
DELIVERY = LV_DELIVERY
TABLES
RETURN = LT_RETURN.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.