利用函数BAPI_OUTB_DELIVERY_CHANGE - 删除整个交货单和行项目

IF delivery_item  IS  NOT  INITIAL .   "Delete particular Delivery item
   SELECT  SINGLE vbeln posnr charg matnr lfimg umvkz umvkn
          INTO wa_lips
          FROM lips
          WHERE vbeln  = delivery  AND posnr  = delivery_item .

  item_data -deliv_numb  = wa_lips -vbeln .
  item_data -deliv_item  = wa_lips -posnr .
  item_data -material  = wa_lips -matnr .
  item_data -dlv_qty  = wa_lips -lfimg .
  item_data -dlv_qty_imunit  = wa_lips -lfimg .
  item_data -fact_unit_nom  = wa_lips -umvkz .
  item_data -fact_unit_denom  = wa_lips -umvkn .
  item_data -batch  = wa_lips -charg .
   APPEND item_data .

  item_control -deliv_numb  = wa_lips -vbeln .
  item_control -deliv_item  = wa_lips -posnr .
  item_control -del_item  =  'X' . "Delete item
   APPEND item_control .
ELSE .
  header_ctrl -dlv_del  =  'X' . "Delete whole Delivery
ENDIF .

header_data -deliv_numb  = delivery .
header_ctrl -deliv_numb  = delivery .

CALL  FUNCTION  'BAPI_OUTB_DELIVERY_CHANGE'
   EXPORTING
    header_data     = header_data
    header_control  = header_ctrl
    delivery        = delivery
   TABLES
    item_data       = item_data
    item_control    = item_control
     return          = return5 .