DEMO:删除交货单BAPI_OUTB_DELIVERY_CHANGE

货铺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'.