交货单批次拆分（BAPI_OUTB_DELIVERY_CHANGE ）并更改拣配数量，发货过账（WS_DELIVERY_UPDATE）

*&---------------------------------------------------------------------*
*& Report  ZVL02N_CHARGE
*&
*&---------------------------------------------------------------------*
*&  先调用 BAPI_OUTB_DELIVERY_CHANGE 对批次进行拆分（前提是 要拆分的 外向交货单 行项目 批次为 空）
*&  然后 调用 WS_DELIVERY_UPDATE 更新 交货数量和拣配数量
*&---------------------------------------------------------------------*

REPORT ZVL02N_CHARGE.


DATA : HEADER_DATA  LIKE BAPIOBDLVHDRCHG.  "Delivery header
DATA : HEADER_CONTROL  LIKE BAPIOBDLVHDRCTRLCHG.  "delivery header control
DATA : I_DELIVERY_NO  LIKE BAPIOBDLVHDRCHG-DELIV_NUMB.  "deliver number
DATA : TECHN_CONTROL  LIKE BAPIDLVCONTROL.  "TECHN_CONTROL


DATA : ITEM_DATA  LIKE BAPIOBDLVITEMCHG  OCCURS  0  WITH  HEADER  LINE.  "ITEM_DATA delivery item
DATA : ITEM_CONTROL  LIKE BAPIOBDLVITEMCTRLCHG  OCCURS  0  WITH  HEADER  LINE.  "ITEM_CONTROL
DATA :  RETURN  LIKE BAPIRET2  OCCURS  0  WITH  HEADER  LINE.  "Return



*Set Delivery Header data

I_DELIVERY_NO =  '0080249529'.
HEADER_DATA-DELIV_NUMB = I_DELIVERY_NO.
TECHN_CONTROL-UPD_IND =  'U'.
HEADER_CONTROL-DELIV_NUMB = I_DELIVERY_NO.



ITEM_DATA-DELIV_NUMB = I_DELIVERY_NO.
ITEM_DATA-DELIV_ITEM =  '900001'.
ITEM_DATA-HIERARITEM =  '40'.             "The batch split record below delivery item hierary
ITEM_DATA-USEHIERITM =  '1'.
ITEM_DATA-MATERIAL =  'W065B0X030601002'.
ITEM_DATA-BATCH =  'BCFA2907'.
ITEM_DATA-DLV_QTY =  4.

*ITEM_DATA-DLV_QTY_IMUNIT = 1000.

ITEM_DATA-FACT_UNIT_NOM =  1.
ITEM_DATA-FACT_UNIT_DENOM =  1.
APPEND ITEM_DATA.
CLEAR ITEM_DATA.


ITEM_DATA-DELIV_NUMB = I_DELIVERY_NO.
ITEM_DATA-DELIV_ITEM =  '900002'.        "The batch split record below delivery item hierary
ITEM_DATA-HIERARITEM =  '40'.
ITEM_DATA-USEHIERITM =  '1'.
ITEM_DATA-MATERIAL =  'W065B0X030601002'.
ITEM_DATA-BATCH =  'BCFC1802'.
ITEM_DATA-DLV_QTY =  4.

ITEM_DATA-FACT_UNIT_NOM =  1.
ITEM_DATA-FACT_UNIT_DENOM =  1.
APPEND ITEM_DATA.

CLEAR ITEM_DATA.


ITEM_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
ITEM_CONTROL-DELIV_ITEM =  '40'.
ITEM_CONTROL-CHG_DELQTY =  'X'.
APPEND ITEM_CONTROL.
CLEAR ITEM_CONTROL.



ITEM_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
ITEM_CONTROL-DELIV_ITEM =  '900001'.
ITEM_CONTROL-CHG_DELQTY =  'X'.
APPEND ITEM_CONTROL.
CLEAR ITEM_CONTROL.



ITEM_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
ITEM_CONTROL-DELIV_ITEM =  '900002'.
ITEM_CONTROL-CHG_DELQTY =  'X'.
APPEND ITEM_CONTROL.
CLEAR ITEM_CONTROL.



CALL  FUNCTION  'BAPI_OUTB_DELIVERY_CHANGE'
   EXPORTING
    HEADER_DATA    = HEADER_DATA
    HEADER_CONTROL = HEADER_CONTROL
    DELIVERY       = I_DELIVERY_NO
    TECHN_CONTROL  = TECHN_CONTROL
   TABLES
    ITEM_DATA      = ITEM_DATA
    ITEM_CONTROL   = ITEM_CONTROL
     RETURN         =  RETURN.
IF SY-SUBRC  EQ  0.
   CALL  FUNCTION  'BAPI_TRANSACTION_COMMIT'
     EXPORTING
       WAIT =  'X'.
ENDIF.


DATA : I_VBKOK  LIKE VBKOK.  "Delivery header
DATA : I_VBPOK  LIKE VBPOK   OCCURS  0  WITH  HEADER  LINE.  "Delivery Picking
DATA : V_ERROR.


I_VBKOK-VBELN_VL =  '0080000066'.
I_VBKOK-WABUC =  'X'.  "Post Good Issue Automatic

I_VBPOK-VBELN_VL = I_VBKOK-VBELN_VL.  "Delivery NO
I_VBPOK-POSNR_VL =  '900001'.  "Delivery Item
I_VBPOK-VBELN =  '1000000325'.  "Sales Order            "You must assign Sales order & Item number
I_VBPOK-POSNN =  '10'.        "Sales Order item
I_VBPOK-MATNR =  'WY-F-001'.
I_VBPOK-CHARG =   '0000000001'.
I_VBPOK-LFIMG =  5.      "Actual quantity delivered (in sales units)
I_VBPOK-LGMNG =  5.      "Actual quantity delivered in stockkeeping units
APPEND I_VBPOK.


I_VBPOK-VBELN_VL = I_VBKOK-VBELN_VL.  "Delivery NO
I_VBPOK-POSNR_VL =  '900002'.  "Delivery Item
I_VBPOK-VBELN =  '1000000325'.  "Sales Order
I_VBPOK-POSNN =  '10'.        "Sales Order item
I_VBPOK-MATNR =  'WY-F-001'.
I_VBPOK-CHARG =   '0000000002'.
I_VBPOK-LFIMG =  5.      "Actual quantity delivered (in sales units)
I_VBPOK-LGMNG =  5.      "Actual quantity delivered in stockkeeping units

APPEND I_VBPOK.


CALL  FUNCTION  'WS_DELIVERY_UPDATE'
   EXPORTING
    VBKOK_WA                  = I_VBKOK
    DELIVERY                  = I_VBKOK-VBELN_VL
    UPDATE_PICKING            =  'X'          "Update Picking data
   IMPORTING
    EF_ERROR_IN_GOODS_ISSUE_0 = V_ERROR
   TABLES
    VBPOK_TAB                 = I_VBPOK.


IF SY-SUBRC  EQ  0.

   CALL  FUNCTION  'BAPI_TRANSACTION_COMMIT'.

endif.