Use WS_DELIVERY_UPDATE_2 for Inbound Delivery HU Update?

Question

Hello all,
I have used WS_DELIVERY_UPDATE_2 to successfully update Handling units to Outbound delivery and also perform batch split.
Can the same FM be used to update Inbound delivery with Handling units. I will be uploading the HU's through excel file.
Please advice.
Thanks,
Subba

Answer 1

Hi,
Below is code for Inbound Delivery With HU, it worked for me.
  gs_head-DELIV_DATE = sy-datum.
gs_head-DELIV_TIME = sy-uzeit.
gs_item-DELIV_ITEM = p_item1.
gs_item-MATERIAL = p_matnr1.
gs_item-DELIV_QTY = p_quan.
gs_item-UNIT = 'EA'.
gs_item-PO_NUMBER = p_po.
gs_item-PO_ITEM = 10.
APPEND gs_item TO gt_item.
CLEAR:gs_item.
CALL FUNCTION 'BBP_INB_DELIVERY_CREATE'
  EXPORTING
    IS_INB_DELIVERY_HEADER = gs_head
  IMPORTING
    EF_DELIVERY            = gv_vbeln
  TABLES
    IT_INB_DELIVERY_DETAIL = gt_item
    RETURN                 = gt_ret1.
gs_refobj-OBJECT = 03.
gs_refobj-OBJKEY = gv_vbeln.
gs_humain-vhilm = p_matnr2.
GS_HUMAIN-HU_STATUS_INIT = 'A'.
gs_humain-STATUS = '0010'.
gs_itempr1-VELIN = 1.
gs_itempr1-QUANTITY = p_quan.
gs_itempr1-meins = 'EA'.
gs_itempr1-matnr = p_matnr1.
gs_itempr1-werks = p_plant.
CALL FUNCTION 'PROCESS_HU_INBOUND_DLVRY'
  EXPORTING
    I_HU_ID               = gv_huid (Blank)
    I_NEW_HU              = 'X'
    I_UPDATE_DB           = 'X'
    I_CREATE_HU           = 'X'
    I_REFERENCE_OBJECT    = gs_refobj
    I_HU_HEADER_MAIN      = gs_humain
    I_SAVE_STEP           = 'ITEM'
    I_PACK_ACTIVITY       = 'MAT'
    I_DELIVERY_TYPE       = '7'
    I_PACKING_ACTIVITY    = 'PACK'
    I_PACK_TYPE           = 'MAT'
    IS_ITEM_PROPOSAL      = gs_itempr1
  IMPORTING
    O_HU_REF_ID           = gs_erefid
    O_HU_HEADER           = gt_eheader
    O_HU_ITEMS            = gt_eitem
    O_HU_MESSAGES         = gt_emsg[]
  TABLES
    ET_CREATED_HUS        = gt_ehus[]
  EXCEPTIONS
    INPUT_MISSING         = 1
    NOT_POSSIBLE          = 2
    HEADER_ERROR          = 3
    ITEM_ERROR            = 4
    SERIAL_NR_ERROR       = 5
    FATAL_ERROR           = 6
    OPERATION_FAILED      = 7
    DELIVERY_UPDATE_ERROR = 8
    OTHERS                = 9.
IF SY-SUBRC EQ 0.
  CLEAR:gs_vekp.
  SELECT SINGLE * FROM vekp INTO gs_vekp WHERE VPOBJKEY = GV_VBELN.
  ls_vbkok_wa-vbeln_vl  = gv_vbeln.
  ls_vbkok_wa-vbeln = gv_vbeln.
  ls_vbkok_wa-VBTYP_VL = 7.
  ls_vbkok_wa-wabuc = 'X'.
  ls_vbkok_wa-spe_auto_gr = 'X'.
  ls_vbkok_wa-kzebu = 'X'.
  lt_verko-exidv = gs_vekp-exidv.
  lt_verko-exida = 'E'.
  lt_verko-magrv = 'YB01'.
  lt_verko-werks = p_plant.
  lt_verko-STATUS = '0010'.
  APPEND lt_verko.
  lt_verpo-venum = gs_vekp-venum.
  lt_verpo-exidv_ob = gs_vekp-exidv.
  lt_verpo-exidv = gs_vekp-exidv.
  lt_verpo-velin = '1'.
  lt_verpo-vbeln = gv_vbeln.
  lt_verpo-POSNR = p_item1 .
  lt_verpo-TMENG = p_quan.
  lt_verpo-VRKME = 'EA'.
  lt_verpo-MATNR = p_matnr1.
  lt_verpo-werks = p_plant.
  APPEND lt_verpo.
  lt_vbpok-vbeln_vl = gv_vbeln.
  lt_vbpok-posnr_vl = p_item1.
  lt_vbpok-vbeln = gv_vbeln.
  lt_vbpok-posnn = p_item1.
  lt_vbpok-pikmg = p_quan.
  lt_vbpok-matnr = p_matnr1.
  lt_vbpok-werks = p_plant.
  lt_vbpok-pstyv = 'ELP'.
  APPEND lt_vbpok.
  lt_repack-SOURCEHU = gs_vekp-exidv.
  lt_repack-DESTHU = gs_vekp-exidv.
  lt_repack-PACK_QTY = p_quan.
  lt_repack-BASE_UOM = 'EA'.
  lt_repack-MATERIAL = p_matnr1.
  lt_repack-PLANT = p_plant.
  lt_repack-DELIV_NUMB = gv_vbeln.
  lt_repack-DELIV_ITEM = p_item1.
  APPEND lt_repack.
  CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
    EXPORTING
      VBKOK_WA               = ls_vbkok_wa
      DELIVERY               = gv_vbeln
      update_picking         = 'X'
      no_messages_update_1   = 'X'
      synchron               = 'X'
      commit                 = ' '
      NICHT_SPERREN_1        = 'Y'
      if_database_update_1   = '1'
      if_error_messages_send = 'X'
    TABLES
      PROT                   = lt_prot
      VERKO_TAB              = lt_verko
      VERPO_TAB              = lt_verpo
      IT_REPACK = lt_repack.
  COMMIT WORK and WAIT.
Thanks,
Shankar Darbha