MRP RUN for the more than one line item in sales order.

Question

Hi ,
In the sales order nuber of line item are , i will have to take MRP RUN for selected line item .
So plz suggest what development will require?
Abhay
Edited by: abhay patil on May 30, 2008 8:52 AM

Answer 1

HI,
U can write separate prog. Which will ask sales order no. and from to line item or multiple line item of sale order. Then in loop internally pass the each line item no to MD50 prog. Which will run in background.
I will give u sample prog. Which I had created for running MRP for all the lines items of given sales order in one go.
*& Report  ZPRG_PP_001
REPORT  ZPRG_PP_001.
tables vbak.
data: begin of it_vbap occurs 1,
        vbeln  type    vbap-vbeln,
        posnr  type    vbap-posnr,
      end   of it_vbap.
DATA: P_MODE   TYPE    C.
      Batchinputdata of single transaction
DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
selection-screen begin of block b1 with frame title text-001.
  parameters :   p_vbeln  like  vbak-vbeln obligatory.
  selection-screen skip.
  parameters :   p_fore   radiobutton group mode,
                 p_back   radiobutton group mode default 'X'.
selection-screen end   of block b1.
at selection-screen.
Check Sales Order
  if not p_vbeln is initial.
    select single * from vbak
      where vbeln eq p_vbeln.
    if sy-subrc <> 0.
      message e499(sy) with 'Invalid Sales Order no.' p_vbeln.
    endif.
  endif.
start-of-selecTION.
Get Sales order items
  select vbeln posnr from vbap
    into table it_vbap
    where vbeln eq p_vbeln.
Set BDC mode
  if p_back eq 'X'.
    p_mode = 'E'.
  else.
    p_mode = 'A'.
  endif.
Process MD50 BDC
  LOOP AT IT_VBAP.
    perform bdc_dynpro      using 'SAPMM61X' '0160'.
    perform bdc_field       using 'BDC_CURSOR'  'RM61X-TRMPL'.
    perform bdc_field       using 'BDC_OKCODE'  '/00'.
    perform bdc_field       using 'RM61X-KDAUF'  IT_VBAP-VBELN.
    perform bdc_field       using 'RM61X-KDPOS'  IT_VBAP-POSNR.
    perform bdc_field       using 'RM61X-BANER'  '1'.
    perform bdc_field       using 'RM61X-LIFKZ'  '3'.
    perform bdc_field       using 'RM61X-PLMOD'  '3'.
    perform bdc_field       using 'RM61X-TRMPL'  '1'.
    perform bdc_dynpro      using 'SAPMSSY0' '0120'.
    perform bdc_field       using 'BDC_OKCODE'   '=XBAC'.
    CALL TRANSACTION 'MD50' USING BDCDATA MODE P_MODE.
    CLEAR BDCDATA.
    REFRESH BDCDATA.
  ENDLOOP.
end-of-selection.
       Start new screen                                              *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = PROGRAM.
  BDCDATA-DYNPRO   = DYNPRO.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.
ENDFORM.
       Insert field                                                  *
FORM BDC_FIELD USING FNAM FVAL.
  CLEAR BDCDATA.
  BDCDATA-FNAM = FNAM.
  BDCDATA-FVAL = FVAL.
  APPEND BDCDATA.
ENDFORM.
Ajay P. Nikte