VL02N 修改想外交货的表头数据的BAPI 'BAPI_OUTB_DELIVERY_CHANGE'

REPORT z_update_delivery.

TABLES likp.
PARAMETERS p_del LIKE likp-vbeln DEFAULT ''.

DATA:
str_header_data LIKE bapiobdlvhdrchg,
str_header_control LIKE bapiobdlvhdrctrlchg.

DATA it_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA it_header_deadlines TYPE STANDARD TABLE OF bapidlvdeadln
WITH HEADER LINE.

DATA :item_data LIKE bapiobdlvitemchg OCCURS 0 WITH HEADER LINE,
item_control LIKE bapiobdlvitemctrlchg OCCURS 0 WITH HEADER LINE,
wa_lips LIKE lips OCCURS 0 WITH HEADER LINE.

DATA: v_16(16) TYPE c.

DATA v_del LIKE bapiobdlvhdrchg-deliv_numb.
SELECT SINGLE * FROM likp WHERE vbeln = p_del.
CONCATENATE sy-datum sy-uzeit INTO v_16.


*str_HEADER_DATA-GROSS_WT
*UNIT_OF_WT_ISO
*VOLUMEUNIT_ISO

str_header_data-unload_pt = likp-ablad.
str_header_data-unit_of_wt = likp-gewei.
str_header_data-incoterms1 = likp-inco1.
str_header_data-incoterms2 = likp-inco2.
str_header_data-door = likp-lgtor.
str_header_data-dlv_block = likp-lifsk.
str_header_data-dlv_prio = likp-lprio.
str_header_data-net_weight = likp-ntgew.
str_header_data-route = likp-route.
str_header_data-deliv_numb = likp-vbeln.
str_header_data-volumeunit = likp-voleh.
str_header_data-volume = likp-volum.
str_header_data-ship_cond = likp-vsbed.

v_del = likp-vbeln.
str_header_data-deliv_numb = likp-vbeln.
str_header_control-gdsi_date_flg = 'X'.
it_header_deadlines-timetype = 'WSHDRWADTI'.
it_header_deadlines-timestamp_utc = v_16.
APPEND it_header_deadlines.

SELECT * INTO wa_lips FROM lips WHERE vbeln = p_del.
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 = 2.
item_data-dlv_qty_imunit = 2.
item_data-fact_unit_nom = wa_lips-umvkz.
item_data-fact_unit_denom = wa_lips-umvkn.
item_data-conv_fact = wa_lips-umref.
item_data-gross_wt = wa_lips-brgew.
item_data-net_weight = wa_lips-ntgew.
item_data-unit_of_wt = wa_lips-gewei.
item_data-volumeunit = wa_lips-voleh.
item_data-sales_unit = wa_lips-vrkme.
item_data-base_uom = wa_lips-meins.
item_data-stock_type = wa_lips-insmk.
item_data-val_type = wa_lips-bwtar.
item_data-insplot = wa_lips-qplos.
item_data-volume = wa_lips-volum.
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
header_deadlines = it_header_deadlines
item_data = item_data
item_control = item_control
return = it_return.
COMMIT WORK.


*& 更改拣配数量
DATA:vbkok_wa TYPE vbkok,
vbpok_tab TYPE vbpok OCCURS 0 WITH HEADER LINE,
xlips TYPE lips OCCURS 0 WITH HEADER LINE .
CLEAR: vbkok_wa, vbpok_tab, xlips.
REFRESH: vbpok_tab, xlips.

vbkok_wa-vbeln_vl = p_del.


SELECT * FROM lips INTO TABLE xlips
WHERE vbeln = vbkok_wa-vbeln_vl.

LOOP AT xlips.
CLEAR: vbpok_tab.
vbpok_tab-vbeln_vl = xlips-vbeln.
vbpok_tab-posnr_vl = xlips-posnr.
vbpok_tab-vbeln = xlips-vbeln.
vbpok_tab-posnn = xlips-posnr.
*vbpok_tab-vbtyp_n = 'Q'.
vbpok_tab-pikmg = xlips-lfimg.
vbpok_tab-meins = xlips-meins.
vbpok_tab-ndifm = 0.
vbpok_tab-taqui = ' '.
vbpok_tab-charg = xlips-charg.
vbpok_tab-matnr = xlips-matnr.
vbpok_tab-orpos = 0.
APPEND vbpok_tab.
ENDLOOP.

CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
EXPORTING
vbkok_wa = vbkok_wa
synchron = 'X'
* NO_MESSAGES_UPDATE = ' '
* NICHT_SPERREN = ' '
* AUFRUFER_T = ' '
* IF_ERROR_MESSAGES_SEND = 'X'
TABLES
vbpok_tab = vbpok_tab
.


COMMIT WORK AND WAIT.