AUSpacken einer Lieferung - WS_DELIVERY_UPDATE

Code: Alles auswählen.

  append iv_hu to gt_exidv.
  CALL FUNCTION 'HU_GET_HUS'
   EXPORTING
*   IF_OBJECT               =
      IF_LOCK_HUS             = 'X'
      IF_MORE_HUS             = 'X'
      if_no_loop              = /spe/if_consolidator_constants=>c_no
      IT_HUS                  = gt_exidv
   IMPORTING
      ET_HEADER               = gt_header
      ET_ITEMS                = gt_item
      ET_ITEM_SERIALNO        = it_serial_no
*    ET_HIGHEST_LEVELS       = gt_high
   EXCEPTIONS
      HUS_LOCKED              = 1
      NO_HU_FOUND             = 2
      FATAL_ERROR             = 3
      OTHERS                  = 4 .
* Check for exceptions
  et_messages = create_messages( iv_subrc = sy-subrc ).
  if et_messages[] is not initial.
    exit.
  endif.

* Prepare the parameter to call HU_Unpack method
  loop at gt_item assigning <item>.

    ls_from-exidv = iv_hu.
    LS_ITEM-ITEM_NUMBER = <item>-vepos.
    LS_ITEM-VELIN  = '1'. "Material item
    LS_ITEM-QUANTITY = <item>-vemng.
    LS_ITEM-MEINS = <item>-vemeh.

* Get the serial numbers into it_hu_ser_no for the item in the HU for
* the same VENUM and VEPOS as the <item>

   loop at it_serial_no into ls_serial_no.
     if ls_serial_no-venum = <item>-venum and
                     ls_serial_no-vepos = <item>-vepos.
        move ls_serial_no-sernr to ls_hu_ser_no-sernr.
        append ls_hu_ser_no to lt_hu_ser_no.
     endif.
   endloop.

* Call the unpack method to delete the HU; pass the serial number
* IT_HU_SERIAL_NO as an exporting parameter

    CALL METHOD me->HU_UNPACK
      EXPORTING
        IS_FROM       = ls_from
        IT_SERIAL_NR  = lt_hu_ser_no
*  IMPORTING
*    ES_HEADER     =
      CHANGING
        IS_ITEM       = ls_item
      EXCEPTIONS
        INPUT_MISSING = 1
        INPUT_ERROR   = 2
        NOT_POSSIBLE  = 3
        NOT_PACKED    = 4
        FATAL_ERROR   = 5
        others        = 6
            .
* Check for exceptions
    et_messages = create_messages( iv_subrc = sy-subrc ).
    if et_messages[] is not initial.
      exit.
    endif.

  endloop.

******************************
* end of change delivery-HUs *
******************************
****************************************
*  STEP 3
****************************************

  ls_vbkok_wa-vbeln = iv_dn.
  ls_vbkok_wa-packing_final = 'X'.
  ls_vbkok_wa-vbeln_vl = iv_dn.

  CALL FUNCTION 'WS_DELIVERY_UPDATE'
    EXPORTING
      vbkok_wa                     = ls_vbkok_wa
      delivery                     = iv_dn
      nicht_sperren                = 'X'
      if_get_delivery_buffered     = 'X'
      if_no_generic_system_service = 'X'
    TABLES
      prot                         = lt_prot.

  commit work and wait.

Code: Alles auswählen.

DATA:
  g_venum TYPE venum VALUE '',
  g_vbeln TYPE vbeln_vl VALUE ''.

DATA(g_rehang_hu) = VALUE hum_rehang_hu_t( (
  top_hu_internal =  g_venum
  venum =  g_venum
  vepos = ''
  rfbel = g_vbeln
  rfpos = ''
) ).

CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
  EXPORTING
    vbkok_wa            = VALUE vbkok( vbeln = g_vbeln )
    synchron            = abap_true
    commit              = abap_true
    delivery            = g_vbeln
  TABLES
    it_handling_units_1 = g_rehang_hu.

Code: Alles auswählen.

DATA:
  g_vbeln  TYPE vbeln_vl VALUE '',
  g_venum  TYPE venum VALUE '',

  g_verko  TYPE TABLE OF verko,
  g_venums TYPE hum_venum_t,
  g_header TYPE hum_hu_header_t.

CALL FUNCTION 'HU_GET_HUS'
  EXPORTING
    is_objects = VALUE hum_object( object = '01' objkey = g_vbeln )
  IMPORTING
    et_header  = g_header.

g_venums = VALUE #( ( venum = g_venum ) ).

CALL FUNCTION 'V51P_DELETE_RELATIONSHIP'
  EXPORTING
    it_hus = g_venums.

IF lines( g_header ) EQ 1.
  g_verko = VALUE #( (  ) ).
ELSE.
  g_verko = VALUE #(
    FOR x IN g_header WHERE ( venum NE g_venum )
      ( exidv = x-exidv )
  ).
ENDIF.

CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
  EXPORTING
    vbkok_wa  = VALUE vbkok( vbeln = g_vbeln )
    synchron  = abap_true
    commit    = abap_true
    delivery  = g_vbeln
  TABLES
    verko_tab = g_verko.