Ô­À´ÎªÁËÄã

  data str_header_data      like bapiobdlvhdrchg.
data str_header_control   like bapiobdlvhdrctrlchg.
data item_data            like bapiobdlvitemchg     occurs 0 with header line.
data item_control         like bapiobdlvitemctrlchg occurs 0 with header line.
data it_return            type standard table of bapiret2 with header line.
data it_header_deadlines  type standard table of bapidlvdeadln with header line.
data wa_lips              like lips occurs 0 with header line.
data v_del like bapiobdlvhdrchg-deliv_numb.

*---Header data
select single * from likp where vbeln = likp-vbeln.
v_del =  likp-vbeln.
str_header_data-deliv_numb       = likp-vbeln.
str_header_control-gdsi_date_flg = 'X'.

*---Items data
select  * into wa_lips from lips where vbeln = likp-vbeln.
  item_data-deliv_numb  = wa_lips-vbeln.
  item_data-deliv_item  = wa_lips-posnr.
  item_data-material    = wa_lips-matnr.
  item_data-batch       = wa_lips-charg.
  item_data-dlv_qty = 0.

  item_data-fact_unit_nom   = wa_lips-umvkz.
  item_data-fact_unit_denom = wa_lips-umvkn.

  item_data-sales_unit = wa_lips-vrkme.
  item_data-base_uom   = wa_lips-meins.
  append item_data.

  item_control-deliv_numb = wa_lips-vbeln.
  item_control-deliv_item = wa_lips-posnr.
  item_control-chg_delqty = 'X'.
  append item_control.
endselect.

call function 'BAPI_OUTB_DELIVERY_CHANGE'
  exporting
    header_data    = str_header_data
    header_control = str_header_control
    delivery       = v_del
  tables
    item_data      = item_data
    item_control   = item_control
    return         = it_return.

loop at it_return.
endloop.

"ɾ³ý½»»õ£ºHEADER_CONTROL-DLV_DEL = ¡®X¡¯¡£