Deleting HU's from delivery

Question

Hi,
I have to delete HU's from a delivery. I need to delete all of them except a couple. I found this link in SDN
Re: Delete handling unit
have been trying to implement this but everytime I get a short dump saying 'Runtime error CSSQL_ARRAY_INSERT_DUPREC'. Its urgent so can someone help me out. I am attaching my code here as per the link above
*& Report  Z_DELV_DEL_HU
*& This progam will delete all the HU's assigned to a delivery
REPORT  Z_DELV_DEL_HU NO STANDARD PAGE HEADING
                   LINE-COUNT 60
                   LINE-SIZE 132.
TABLES: ltak,
vekp,
vepo.
DATA: l_vbkok LIKE vbkok,
lt_verko LIKE verko OCCURS 0 WITH HEADER LINE,
lt_verpo LIKE verpo OCCURS 0 WITH HEADER LINE,
l_venum type VEKP-VENUM,
lv_venum type vekp-venum,
lt_et_created_hus LIKE vekpvb OCCURS 0 WITH HEADER LINE,
it_venum TYPE TABLE OF HUM_VENUM,
wA_venum TYPE HUM_VENUM,
lt_vekp type table of vekp,
wa_vekp type vekp,
it_verpo_tab LIKE VERPO OCCURS 0 WITH HEADER LINE,
it_vbpok LIKE VBPOK OCCURS 0 WITH HEADER LINE,
it_hu_rem LIKE HUM_REHANG_HU OCCURS 0 WITH HEADER LINE.
PARAMETERS: p_vbeln LIKE likp-vbeln MEMORY ID vl.
  DATA:  w_vbkok  TYPE  vbkok,
         v_err    TYPE  c.
  CLEAR : w_vbkok.
  DATA: c_x(1) value 'X'.
*unlock the delivery.
  CALL FUNCTION 'LEINT_DELIVERY_UNLOCK'
    EXPORTING
      iv_docnr = p_vbeln.
  CALL FUNCTION 'STATUS_BUFFER_REFRESH'.
  CALL FUNCTION 'HU_PACKING_REFRESH'.
  CALL FUNCTION 'SERIAL_INTTAB_REFRESH'
    EXPORTING
      objects_status_refresh = 'C'.
**Preparing data for the delivery update BAPI
l_vbkok-vbtyp_vl = 'J'.
l_vbkok-vbeln = l_vbkok-vbeln_vl = p_vbeln.
SELECT * FROM vepo
WHERE
vbeln EQ p_vbeln.
Move-corresponding vepo to: it_verpo_tab.
Append it_verpo_tab.
Endselect.
SELECT * FROM vekp into table lt_vekp
WHERE vpobj EQ '01'
AND vpobjkey EQ p_vbeln.
Loop at lt_vekp into wa_vekp.
IF wa_vekp-VHILM EQ 'PALLET'.
MOVE-CORRESPONDING wa_vekp TO: lt_verko,
lt_et_created_hus.
*MOVE-CORRESPONDING wa_vekp TO it_hu_rem.
*it_hu_rem-top_hu_external = wa_vekp-exidv.
*it_hu_rem-top_hu_internal = wa_vekp-venum.
*lt_verko-status = lt_et_created_hus-status = '0060'.
APPEND: lt_verko,
lt_et_created_hus.
*Append it_hu_rem.
ELSE.
CONTINUE.
Endif.
Endloop.
*ENDIF.
*ENDSELECT.
CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
EXPORTING
vbkok_wa = l_vbkok
synchron = 'X'
NO_MESSAGES_UPDATE_1 = ' '
COMMIT = 'X'
delivery = p_vbeln
UPDATE_PICKING = ' '
NICHT_SPERREN_1 = 'X'
IF_CONFIRM_CENTRAL = 'X'
IF_WMPP = ' '
IF_GET_DELIVERY_BUFFERED = ' '
IF_NO_GENERIC_SYSTEM_SERVICE = ' '
IF_DATABASE_UPDATE_1 = '1'
IF_NO_INIT_1 = ' '
IF_NO_READ_1 = ' '
IF_ERROR_MESSAGES_SEND = v_err
IF_NO_BUFFER_REFRESH = ' '
IT_PARTNER_UPDATE =
IT_SERNR_UPDATE =
IF_NO_REMOTE_CHG_1 = ' '
IF_NO_MES_UPD_PACK = ' '
IMPORTING
EF_ERROR_ANY =
EF_ERROR_IN_ITEM_DELETION =
EF_ERROR_IN_POD_UPDATE =
EF_ERROR_IN_INTERFACE =
EF_ERROR_IN_GOODS_ISSUE =
EF_ERROR_IN_FINAL_CHECK =
EF_ERROR_PARTNER_UPDATE =
EF_ERROR_SERNR_UPDATE =
TABLES
VBPOK_TAB = it_vbpok
PROT =
verko_tab = lt_verko
verpo_tab = it_verpo_tab
VBSUPCON_TAB_1 =
IT_VERPO_SERNR =
IT_PACKING =
IT_PACKING_SERNR =
IT_REPACK =
IT_HANDLING_UNITS_1 = it_hu_rem
IT_OBJECTS =
et_created_hus = lt_et_created_hus
TVPOD_TAB =
If NOT v_err is INITIAL and sy-subrc NE 0.
Write:/'Error in deleting HUS'.
ELSE.
Write:/'All the HUs were deleted successfully for delivery:', P_vbeln.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
   WAIT          = 'X'
Endif.
Thanks,
-David.

Answer 1

Hi Ramesh,
Our issue is that we have de-assigned the HU's from the inbound delivery and cancelled the inbound delivery but cannot VL09 the outbound delivery as the HU is assigned toa n object and we now believe that this is the inspection lot that gets generated when the inbound delivery is created as the HU's are packed at that point.
At the moment the only solution we have found is to pack teh Hu's in to a virtual HU in VL02n before PGI, this then allows reversal as the HU's with the material content are not directly linked to the delivery.
Thanks
Stuart