Need Help with selection

Former Member — Wed, 18 May 2011 05:41:18 GMT
hi all.
In the below code i want to add material group wise selection and remove plant wise selection.
Can any one please help me out.

SELECTION-SCREEN BEGIN OF BLOCK b1    WITH FRAME TITLE text-001.
PARAMETERS : p_bklas like mbewh-bklas OBLIGATORY,
             p_bukrs LIKE mseg-bukrs OBLIGATORY.
SELECT-OPTIONS :  s_werks FOR t001k-bwkey,              " Plant
                                s_budat FOR mkpf-budat OBLIGATORY NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK b1.
SELECT bukrs bwkey  FROM t001k INTO TABLE it_werks
                  WHERE bukrs = p_bukrs
                  AND bwkey IN s_werks.
  if sy-subrc = 0.
    select ms~mblnr ms~mjahr mk~blart mk~budat ms~zeile ms~bwart
           ms~xauto ms~matnr ms~werks ms~charg ms~shkzg ms~dmbtr ms~menge
           ms~meins ms~bualt "ma~matkl
           from mkpf as mk
           inner join mseg as ms on
           mk~mandt = ms~mandt
           and mk~mblnr = ms~mblnr
           and mk~mjahr = ms~mjahr
           into corresponding fields of table it_mkpf3
           for all entries in it_werks
           where mk~budat in s_budat
             and ms~mjahr = v_myear
             and bukrs    = it_werks-bukrs
             and ms~werks = it_werks-bwkey.
    select matnr matkl from mara into table it_mara
           for all entries in it_mkpf3
           where matnr = it_mkpf3-matnr.
    loop at it_mkpf3 .
      read table it_mara with key matnr = it_mkpf3-matnr.
      it_mkpf-mblnr = it_mkpf3-mblnr.
      it_mkpf-mjahr = it_mkpf3-mjahr.
      it_mkpf-blart = it_mkpf3-blart.
      it_mkpf-budat = it_mkpf3-budat.
      it_mkpf-zeile = it_mkpf3-zeile.
      it_mkpf-bwart = it_mkpf3-bwart.
      it_mkpf-xauto = it_mkpf3-xauto.
      it_mkpf-matnr = it_mkpf3-matnr.
      it_mkpf-werks = it_mkpf3-werks.
      it_mkpf-charg = it_mkpf3-charg.
      it_mkpf-shkzg = it_mkpf3-shkzg.
      it_mkpf-dmbtr = it_mkpf3-dmbtr.
      it_mkpf-menge = it_mkpf3-menge.
      it_mkpf-meins = it_mkpf3-meins.
      it_mkpf-bualt = it_mkpf3-bualt.
      it_mkpf-matkl = it_mara-matkl.
      append it_mkpf.
    endloop.
    select matnr bwkey lbkum salk3 bklas lfgja lfmon
           from mbew
           into table it_mbew
           for all entries in it_werks
           where bwkey = it_werks-bwkey
           and   bklas = p_bklas.
    select  matnr bwkey lfgja lfmon  lbkum salk3  bklas
           from mbewh
           into table it_mbewh
           for all entries in it_mbew
           where  matnr = it_mbew-matnr
           and   bwkey = it_mbew-bwkey
           and   lfgja eq v_year
           and   lfmon ge v_period.
    sort  it_mbewh BY lfgja ASCENDING lfmon ASCENDING.
    select matnr matkl from mara into table it_mara1
           for all entries in it_mbew
           where matnr = it_mbew-matnr.
    if sy-subrc = 0.
      loop at it_mbew.
        read table it_mara1 with key matnr  = it_mbew-matnr.
        it_mardh-matnr = it_mbew-matnr.
        it_mardh-werks = it_mbew-bwkey.
        it_mardh-lfgja = it_mbew-lfgja.
        it_mardh-lfmon = it_mbew-lfmon.
        read table it_mbewh with key matnr = it_mbew-matnr
                                     bwkey = it_mbew-bwkey.
        if sy-subrc = 0 .
          it_mardh-bklas = it_mbewh-bklas.
          it_mardh-salk3 = it_mbewh-salk3.
          it_mardh-lbkum = it_mbewh-lbkum.
        else.
          it_mardh-bklas = it_mbew-bklas.
          it_mardh-salk3 = it_mbew-salk3.
          it_mardh-lbkum = it_mbew-lbkum.
        endif.
        it_mardh-matkl = it_mara1-matkl.
        append it_mardh.
        clear it_mardh.
        clear it_mbewh.
        clear it_mara1.
        clear it_mbew.
      endloop.
    endif.
    sort it_mardh by werks matnr.
    select bukrs belnr gjahr blart budat into table it_bkpf9
           from bkpf
           where bukrs = p_bukrs
           and   blart = 'RE'
           and   budat in s_budat
           or    bukrs = p_bukrs
           and   blart = 'PR'
           and   budat in s_budat.
    if sy-subrc = 0.
      select bukrs belnr gjahr buzei buzid shkzg dmbtr matnr werks
             from bseg
             into table it_bseg9
             for all entries in it_bkpf9
             where bukrs = it_bkpf9-bukrs
             and   belnr = it_bkpf9-belnr
             and   gjahr = it_bkpf9-gjahr
             and   werks in s_werks
             and   buzid = 'M'.
    endif.

  endif.
* END-OF-SELECTION.
END-OF-SELECTION.
Re: Need Help with selection

Former Member — Wed, 18 May 2011 05:51:52 GMT
Duplicate post. Thread locked.
topic Re: Need Help with selection in Application Development and Automation Discussions

Need Help with selection

Re: Need Help with selection
