BAPI_OUTB_DELIVERY_CHANGE - 删除整个交货单和行项目

转载自：https://archive.sap.com/discussions/thread/864267

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.