VHUPRT2HU CHECK SAVE SHOW HUS

S. VHUPRT2HU_CREATE_HUS für Parameter "ls_packdata".

" Save HU and the packed material

        ls_packdata-ctrl-object-objkey = lv_wo_no. "work order
        ls_packdata-ctrl-object-objtype = '09'. "work order - Finished Product
        ls_packdata-t_packgood = VALUE #( ( matnr = lv_fin_goods_no maktx = lv_fin_goods_maktx ) ).

        CALL FUNCTION 'VHUPRT2HU_CHECK_SAVE_SHOW_HUS'
          EXPORTING
            hus             = ls_packdata-hus
            object          = ls_packdata-ctrl-object
            packgoods       = ls_packdata-t_packgood
            db_update       = abap_true
*           DIALOG          = ' '
          IMPORTING
            hu_heads        = lt_hu_heads
            hu_messages     = lt_hu_msgs
          EXCEPTIONS
            packing_error   = 1
            display_error   = 2
            reference_error = 3
            get_hu_error    = 4
            fatal_error     = 5
            OTHERS          = 6.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH   sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
           INTO   DATA(lv_message).