Over picking not allowed for L_TO_CREATE_DN

Question

Hi experts,
Can anybody help me doing over picking of delivery quantity when creating TO using BAPI L_TO_CREATE_DN ?
My requirement is such that:
Create a TO  with 300 quantity against a delivery number that having 200 quantity and I need to set "Adopt pick quantity" = 1, i.e. i_KOMIN = 1.
I tried it with passing it_delit table having values pf POSNR,ANFME,ALTME. and i_lgnum,i_vbeln, i_komim = 1,i_nospl = 1, i_commit_work = X.
But it throws exception with msg "Total for assigned quantities exceeds quantity to be removed".
How can I acieve this reqmt?Pls help.
Thanks in advance,
Samy.

Answer 1

Finally I solved this issue by adding some enhncement point to the various subroutines called by this BAPI.
1. Inside include ML03TF50_LTAPA_AUFBAUEN_DN
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1 ) Form LTAPA_AUFBAUEN_DN, Start                                                                                D
$$-Start: (1 )----
$$
ENHANCEMENT 85  ZES_TO_2611_2.    "active version
  if sy-tcode eq 'CO11'.
    DATA: lv_flag TYPE char1.
    lv_flag = '1'.
    EXPORT lv_flag FROM lv_flag TO MEMORY ID 'Z2611_FLAG'.
  ENDIF.
ENDENHANCEMENT.
"and
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(2 ) Form LTAPA_AUFBAUEN_DN, End                                                                                D
$$-Start: (2 )----
$$
ENHANCEMENT 84  ZES_TO_2611_2.    "active version
  IF sy-tcode eq 'CO11'.
    DATA: lv_menge TYPE LTAP_VSOLM.
    IMPORT lv_menge TO lv_menge FROM MEMORY ID 'Z2611_MENGE'.
    LOOP AT ILTAPA.
      ILTAPA-ANFML = lv_menge.
      MODIFY ILTAPA INDEX sy-tabix FROM ILTAPA TRANSPORTING ANFML.
    ENDLOOP.
    CLEAR lv_menge.
    FREE MEMORY ID 'Z2611_MENGE'.
  ENDIF.
ENDENHANCEMENT.
2. Inside include FL000F00
(inside form UMRECHNEN_ALTME_MEINS)
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1 ) Form UMRECHNEN_ALTME_MEINS, End                                                                                D
$$-Start: (1 )----
$$
ENHANCEMENT 2  ZES_TO_2611_1.    "active version
  if sy-tcode eq 'CO11'.
    DATA: lv_menge TYPE LTAP_VSOLM,
          lv_flag TYPE char1.
    IMPORT lv_flag TO lv_flag FROM MEMORY ID 'Z2611_FLAG'.
    IF lv_flag eq '1'.
      lv_menge = P_MENGE.
      EXPORT lv_menge FROM lv_menge TO MEMORY ID 'Z2611_MENGE'.
      P_MENGE = 0.
      CLEAR lv_flag.
      FREE MEMORY ID 'Z2611_FLAG'.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.
(inside form UMRECHNEN_MEINS_ALTME)
ENHANCEMENT 1  ZES_TO_2611_1.    "active version
  if sy-tcode eq 'CO11'.
    DATA: lv_menge TYPE LTAP_VSOLM,
          lv_flag TYPE char1.
    IMPORT lv_flag TO lv_flag FROM MEMORY ID 'Z2611_FLAG'.
    IF lv_flag eq '1'.
      lv_menge = P_MENGE.
      EXPORT lv_menge FROM lv_menge TO MEMORY ID 'Z2611_MENGE'.
      P_MENGE = 0.
      CLEAR lv_flag.
      FREE MEMORY ID 'Z2611_FLAG'.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.