Problem in WS_DELIVERY_UPDATE_2 ?

Question

Hi All,
I am using BAPI  , WS_DELIVERY_UPDATE_2 to update VL02N. I developed one application using that i am updating.
For Ex : One delivery contains 2 materials, 1 and 2 are the respective delivery quantities. If i select both materials and i give 1 and 2 as pick quantity, it is executing fine and updating delivery correctly.
case 1 : suppose, if i give pick qty 1 for first item and for sec item also 1, it is updating 2nd item pick qty only ( i.e., 1 ).
case 2 : If i select both items and give pick qty as 1 for 1st item 2nd item, it is updating 2nd item only ( i.e. 1 ).
My questing is, suppose for one item i may pick 1 qty at one time and 1 qty at next time, so toal pick qty is 2. how can i update this??? any ideas?
Thanks,
Venkat

Answer 1

Hi Venkat,
     Try another FM  'SD_DELIVERY_UPDATE_PICKING'.  I have used this for picking.
Sample code:-
1) Routine-3
IF i_vbpok IS NOT INITIAL.
    CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
    EXPORTING
      vbkok_wa                     = wa_vbkok
      nicht_sperren                = c_y
      aufrufer_t                   = c_x
      synchron                     = c_x
   NO_MESSAGES_UPDATE           = ' '
      if_error_messages_send       = space
    TABLES
      vbpok_tab                    = i_vbpok
      prot                         = i_prot
    IF i_prot[] IS NOT INITIAL. "error
      SORT i_prot BY msgty.
      CLEAR wa_prot.
      READ TABLE i_prot INTO wa_prot WITH KEY msgty = c_e BINARY SEARCH.  "Checking error message
      IF sy-subrc <> 0.
        wa_final-remarks = text-004.
        wa_final-pick = 'P'.
      ELSE.
        wa_final-pick = 'F'.
        CLEAR ws_sapmessage.
        CALL FUNCTION 'MESSAGE_TEXT_BUILD'
          EXPORTING
            msgid               = wa_prot-msgid          "Messg class
            msgnr               = wa_prot-msgno          "Messg No.
            msgv1               = wa_prot-msgv1
            msgv2               = wa_prot-msgv2
            msgv3               = wa_prot-msgv3
            msgv4               = wa_prot-msgv4
          IMPORTING
            message_text_output = ws_sapmessage.
        CONCATENATE text-006 ws_sapmessage INTO wa_final-remarks.
      ENDIF.
**routine-2 :-
FORM f0003_fill_vbpok .
  wa_vbkok-vbeln_vl = wa_vblkk-vbeln.   "delivery number
  wa_vbkok-vbeln = wa_vblkk-komau.      "Pick order number
  SORT i_lips BY vbeln posnr.
  LOOP AT i_vblkp ASSIGNING <fs_vblkp>.
    wa_vbpok-vbeln_vl = <fs_vblkp>-vbeln.
    wa_vbpok-posnr_vl = <fs_vblkp>-posnr.
    wa_vbpok-vbtyp_n = c_j . "-delivery            "'Q' - WMS
    wa_vbpok-pikmg = <fs_vblkp>-lfimg.      "picking quantity.
    wa_vbpok-plmin = c_0.
    wa_vbpok-lfimg_flo = <fs_vblkp>-lfimg.
    wa_vbpok-ndifm = 0.
    wa_vbpok-taqui = space.
    IF <fs_vblkp>-posnr > c_posnr AND NOT <fs_vblkp>-uecha IS INITIAL.
      wa_vbpok-taqui = c_x.
    ENDIF.
    wa_vbpok-charg = <fs_vblkp>-charg.
    CLEAR wa_lips.
    READ TABLE i_lips INTO wa_lips WITH KEY vbeln = <fs_vblkp>-vbeln posnr = <fs_vblkp>-posnr BINARY SEARCH.
    IF sy-subrc = 0.
      wa_vbkok-vbeln = wa_lips-vgbel.
      wa_vbpok-vbeln = wa_lips-vgbel.
      wa_vbpok-posnn = wa_lips-vgpos.
      wa_vbpok-werks = wa_lips-werks.
    ENDIF.
    wa_vbpok-matnr = <fs_vblkp>-matnr.
    wa_vbpok-brgew = <fs_vblkp>-brgew.
    wa_vbpok-gewei = <fs_vblkp>-gewei.
    wa_vbpok-volum = <fs_vblkp>-volum.
    wa_vbpok-voleh = <fs_vblkp>-voleh.
    wa_vbpok-orpos = 0.
    APPEND wa_vbpok TO i_vbpok.
  ENDLOOP.
ENDFORM.              
**routine-1
FORM f0002_get_picking .
  CALL FUNCTION 'RV_DELIVERY_PICK_VIEW'"Get LIPS table
    EXPORTING
      vbeln              = ws_c_vbeln
      zweck              = c_d
    IMPORTING
      vblkk_wa           = wa_vblkk
    TABLES
      vblkp_tab          = i_vblkp
      lips_tab           = i_lips
    EXCEPTIONS
      no_likp            = 1
      no_picking_allowed = 2
      hu_error           = 3
      OTHERS             = 4.
  IF sy-subrc <> 0.
    REFRESH i_lips[].
  ELSE.
    PERFORM f0009_commit.
  ENDIF.
ENDFORM.