Hi Amit,
See my code below:
* Get outbount delivery details from Sales order no.
SELECT SINGLE * FROM vbfa
WHERE vbelv = zsdmob_in01m-vbeln "ref doc = sales doc no
AND vbtyp_n = 'Q' "doc type = pick request
AND matnr = zsdmob_in02m-matnr. "matnr = material number
wa_vbkok-vbeln_vl = zsdmob_in01m-vbeln. "outbound delivery no
wa_vbkok-vbeln = vbfa-vbeln.
wa_vbkok-vbtyp_vl = 'J'.
wa_vbkok-kodat = sy-datum.
wa_vbkok-kouhr = sy-uzeit.
wa_vbkok-kzpod = 'V'.
wa_vbkok-wabuc = ''.
SELECT * FROM lips
WHERE vbeln = zsdmob_in01m-vbeln
AND matnr = zsdmob_in02m-matnr.
MOVE-CORRESPONDING lips TO t_vbpok.
t_vbpok-vbeln_vl = zsdmob_in01m-vbeln.
t_vbpok-posnr_vl = lips-posnr.
t_vbpok-posnn = lips-posnr.
t_vbpok-pikmg = zsdmob_in02m-pikmg.
t_vbpok-vbeln = vbfa-vbeln.
lt_prot-vbeln = zsdmob_in01m-vbeln.
lt_prot-posnr = lips-posnr.
lt_prot-matnr = zsdmob_in02m-matnr.
lt_prot-lfimg = zsdmob_in02m-pikmg.
t_vbpok-taqui = 'X' .
APPEND t_vbpok.
APPEND lt_prot.
ENDSELECT.
CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING_1'