ABAP: Unassign Handling Unit (HU) from outgoing-delivery
Hello at all,
I hope you can help me with the following problem:
On the Internet, I found only sparse information on the subject, and when I did, it was often about incoming deliveries. Or solutions with not released BAPIs were suggested, which must not be used in my case. To make matters worse, it is not entirely clear to me which fields of the structures have to be filled in which situation.
I have already found the link https://answers.sap.com/questions/11484078/function-modules-to-unassign-hu-from-a-outbound-de.html, but unfortunately that does not help me either.
I am faced with the problem that packages, which have the GLA-HU status, are to be detached from an outgoing delivery. Either the packages have been delivered individually, or as sub-HUs of a top handling unit, or are pending delivery. In this case, the goods issue document has not yet been posted.
The aim is to post corresponding packages back to the warehouse with the original EXIDV and to physically store the goods. For this purpose, a target top handling unit was created in advance or one is reused for this purpose.
The package HUs should be transferred to the destination HU one by one until the source HU, if any, is empty. Otherwise the packages have no upper HU.
The warehouse is WM managed, but not EWM.
Unfortunately, I also do not understand at what point the VEPO-VBELN and VEPO-POSNR are filled with "correct" values. Partly these packages already have a delivery number, but I cannot find it in our system. In the HU history there is always an object with the number 01, which actually corresponds to an outgoing delivery. I have already tried the following:
1. V51P_DELETE_RELATIONSHIP
2. HU_POST
This was processed successfully for a corresponding package HU without any errors.
After that the following steps are processed
3. HU_PACKING_REFRESH
4. V51P_FILL_GT
5. HU_GET_HUS
6. V51P_FILL_GT
7. HU_PACKING_AND_UNPACKING
8. HU_POST
9. WS_DELIVERY_UPDATE
When executing HU_PACKING_AND_UNPACKING the following error occurs: HUGENERAL 089 "Handling Unit &1 wurde nicht gesperrt. Aktion abgebrochen" (Handling unit &1 was not blocked - action canceled).
The sample code follows below.
PS. The LIKP and LIPS data were determined for the package HU before, because the HU was already loaded and these data are added in addition to, Line of hum_hu_header_t and hum_hu_item_t, as parameters.
Is this procedure correct at all, or should I use the function module HU_DELETE_HUs after all? In which case I would probably have to generate the packages as new handling units to be able to execute BAPI_HU_PACK?
Thank you in advance!
DATA: ls_vbkok TYPE vbkok,
lt_vbpok TYPE TABLE OF vbpok,
lt_ws_delivery_update_prot TYPE STANDARD TABLE OF prott,
ls_p_r TYPE vsep_s_pithu,
ls_p_r_result TYPE vsep_s_pithu,
ls_is_objects TYPE hum_object,
lt_header_loaded TYPE hum_hu_header_t,
lt_items_loaded TYPE hum_hu_item_t,
lt_hus TYPE hum_exidv_t,
ls_v51ko TYPE v51ko,
lt_v51p TYPE vsep_t_v51vp,
ls_v51p LIKE LINE OF lt_v51p.
APPEND is_hu_header-exidv TO lt_hus.
CALL FUNCTION 'HU_PACKING_REFRESH'.
CALL FUNCTION 'V51P_FILL_GT'
EXPORTING
it_hus = lt_hus
EXCEPTIONS
error_message = 1
OTHERS = 4.
DATA(lv_v51p_sysubrc) = sy-subrc.
IF lv_v51p_sysubrc <> 0.
" log + raise
ENDIF.
ls_is_objects-object = '01'.
ls_is_objects-objkey = is_likp-vbeln.
CALL FUNCTION 'HU_GET_HUS'
EXPORTING
if_lock_hus = 'X'
is_objects = ls_is_objects
IMPORTING
et_header = lt_header_loaded
et_items = lt_items_loaded.
IF sy-subrc <> 0.
" log + raise
ENDIF.
MOVE-CORRESPONDING is_likp TO ls_v51ko.
LOOP AT it_lips ASSIGNING FIELD-SYMBOL(<ls_lips>).
CLEAR: ls_v51p.
MOVE-CORRESPONDING <ls_lips> TO ls_v51p.
APPEND ls_v51p TO lt_v51p.
ENDLOOP.
CALL FUNCTION 'V51P_FILL_GT'
EXPORTING
is_v51ko = ls_v51ko
it_v51vp = lt_v51p
EXCEPTIONS
error_message = 1
OTHERS = 4.
lv_v51p_sysubrc = sy-subrc.
IF lv_v51p_sysubrc <> 0.
" log + raise
ENDIF.
LOOP AT it_hu_items ASSIGNING FIELD-SYMBOL(<ls_hu_item>)
WHERE venum = is_hu_header-venum.
CLEAR ls_p_r.
MOVE-CORRESPONDING is_hu_header TO ls_p_r.
ls_p_r-belnr = is_likp-vbeln.
ls_p_r-quantity = <ls_hu_item>-vemng.
ls_p_r-meins = <ls_hu_item>-vemeh.
CALL FUNCTION 'HU_PACKING_AND_UNPACKING'
EXPORTING
* if_repack = " Aufruf aus einem Umpackbaustein
is_packing_request = ls_p_r " Position und Menge
IMPORTING
* ef_rcode = " 1,2 abw. Menge gew/vol 8: veltp 'C'
es_p_request = ls_p_r_result " erweiterte Anforderungsstruktur
* es_item = " Tabelle der erzeugen Positionen
* CHANGING
* cs_header = " nur f. Fkt. neu pro Teilmenge!
* EXCEPTIONS
* missing_data = 1
* hu_not_changeable = 2
* not_possible = 3
* customizing = 4
* weight = 5
* volume = 6
* serial_nr = 7
* fatal_error = 8
* others = 9
.
IF sy-subrc <> 0.
" log + raise
ENDIF.
CALL FUNCTION 'HU_POST'
EXPORTING
if_synchron = 'X'
if_commit = 'X'
is_object = ls_is_objects.
IF sy-subrc <> 0.
" log + raise
ENDIF.
ls_vbkok-vbeln_vl = is_likp-vbeln.
ls_vbkok-vbtyp_vl = 'J'.
ls_vbkok-packing_final = 'X'.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
vbkok_wa = ls_vbkok
synchron = 'X'
commit = 'X'
delivery = ls_vbkok-vbeln_vl
nicht_sperren = 'X'
if_get_delivery_buffered = 'X'
if_no_generic_system_service = 'X'
TABLES
vbpok_tab = lt_vbpok
prot = lt_ws_delivery_update_prot.
DATA(lv_ws_del_update_sysubrc) = sy-subrc.
IF lv_ws_del_update_sysubrc <> 0.
" log + raise
ENDIF.
ENDLOOP.