20160621-BAPI change outgoing dn& change pick

Reference code transfer from: http://blog.sina.com.cn/s/blog_4c66402b01012lgr.html

Thank.

Test one, and then make a summary.

1. Change the outward delivery order;

2. Change the inward delivery order.

Http://blog.sina.com.cn/s/blog_4c66402b01012lgr.htmlREPORT Y_CHANGE_ODN. 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 Bapidlvdeadlnwith HEADER line. Data:item_data like Bapiobdlvitemchg occurs 0 with HEADER line, Item_control like bapiobdlvitemctrlchg occurs 0 WIT H header line, wa_lips-like LIPS occurs 0 with HEADER line. Data:v_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_isostr_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_heade    R_control DELIVERY = V_del TABLES header_deadlines = it_header_deadlines Item_data = Item_data Item_control = Item_control RETURN = It_return. COMMIT work.*& Change Pick quantity data:vbkok_wa type Vbkok, Vbpok_tab type Vbpok occurs 0 with HEADER line, Xlips TYPE LI PS occurs 0 with HEADER line. Clear:vbkok_wa, Vbpok_tab, Xlips. Refresh:vbpok_tab, Xlips. VBKOK_WA-VBELN_VL = P_del. SELECT * from LIPS to TABLE xlipswhere 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.

　　

20160621-BAPI change outgoing dn& change pick