FM for Picking in VL02N

[Former Member]

Hi

I have found FM SD_DELIVERY_UPDATE_PICKING which I will use for full-fill the picking.

The delivery has 2 batch lines for the delivery-line.

The delivery looks like this:

Item - Deliv.quant - OpenQant - PickQuant

10 - - 1000 -

900001 - 995 - 0 - 995

900002 - 5 - 0 - 5

How do I fullfill the FM SD_DELIVERY_UPDATE_PICKING so I make picking for the 2 lines on the batch (995 pcs and 5 pcs)?

[Former Member]

Hi,

Do u intend to make picking for the 2 lines on the batch (995 pcs and 5 pcs) only or for the data which has all columns filled? Can u elaborate plzzz.

Also can u post the interface of the function module as i dont have aacess to system from my desktop.

Regards,

Tanveer.

[Former Member]

Hi Lars,

May be this can help.

Guess they are used in std programs , do a where used list and check the way the FM is being used in a STD program.

Cheers

VJ

[Former Member]

Hi

Thanks for the reply.

My problem is still where to fill in the picked quantity.

Item 10 (have 1000 pcs) splitted into 2 batch-lines. Line 1 with 995 pcs, and line 2 with 5 pcs.

I want to confirm picking for 995 pcs AND 5 pcs for this.

Hope somebody can help me.

My code is here.

  tables: vbkok, vblkk.

  Data: begin of l_lips_tab occurs 0.
          include structure LIPSVB.
  data: end of l_lips_tab.

  data: l_vbeln like VBLK-VBELN.

  DATA: BEGIN OF tvblkp OCCURS 0.
          INCLUDE STRUCTURE vblkp.
  DATA: END OF tvblkp.

  DATA: BEGIN OF hvbpok OCCURS 10.
          INCLUDE STRUCTURE vbpok.
  DATA: END OF hvbpok.

*insert default value for test
  l_vbeln = '0085000622'.

  CALL FUNCTION 'RV_DELIVERY_PICK_VIEW'
    EXPORTING
      VBELN                    = l_vbeln
      ZWECK                    = 'D'
   IMPORTING
      VBLKK_WA                 = vblkk
      TABLES
      VBLKP_TAB                = tvblkp
      LIPS_TAB                 = l_lips_tab
   EXCEPTIONS
      NO_LIKP                  = 1
      NO_PICKING_ALLOWED       = 2
      HU_ERROR                 = 3
      OTHERS                   = 4
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  LOOP AT tvblkp.
    hvbpok-vbeln_vl = tvblkp-vbeln.
    hvbpok-posnr_vl = tvblkp-posnr.
    hvbpok-posnn = tvblkp-posnr.
    hvbpok-vbeln = vblkk-komau.
    hvbpok-vbtyp_n = 'Q'.
    hvbpok-pikmg = tvblkp-komng.
    hvbpok-meins = tvblkp-meins.
    hvbpok-ndifm = 0.
    hvbpok-taqui = ' '.
    hvbpok-charg = tvblkp-charg.
    hvbpok-matnr = tvblkp-matnr.
    hvbpok-brgew = tvblkp-brgew.
    hvbpok-gewei = tvblkp-gewei.
    hvbpok-volum = tvblkp-volum.
    hvbpok-voleh = tvblkp-voleh.
    hvbpok-orpos = 0.
    APPEND hvbpok.
  ENDLOOP.


  VBKOK-KZLSP = 'X'.

*insert default value for test
  VBKOK-VBELN_VL = '0085000622'..


  CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
    EXPORTING
      VBKOK_WA                     = vbkok
      NICHT_SPERREN                = 'X'
      AUFRUFER_T                   = 'X'
    TABLES
      VBPOK_TAB                    = hvbpok.