ABAP QUERY - ITS URGENT

Question

Hi Experts,
In this scenario we have one Material – Mat1 and 2 plants namely, P1 and P2. At time of execution, in the selection screen, if we give for example: Mat1 and P1, data is displayed for that particular material and plant. Where as if we give MAT1 for P1 and P2 , the material again displayed for P1 which is in first row and it is not displaying the material for P2 which is in 2nd row.
If we interchange P2 is in first row, the material is displayed and it is not displaying for P1 which is in 2nd row.
In general – Any material for any plant which is in   2nd row is not displayed only zeros are visible.
Kindly locate the solution for the above query in the below program.                                                                               
Specification Name      :  Production Tracker                       
REPORT  zpp_ptk                                 .
TYPE-POOLS : slis.
TABLES : pbed,
         mara,
         mast,
         marc,
         makt,
         pbid,
         pbim,
         stpo,
         t001w,
         scal,
         kna1,
         knmt,
         equi,
         a304,
         konp,
         zcalendar,
         am60x.
DATA :   gt_sort TYPE slis_t_sortinfo_alv,
         gt_fieldcat TYPE slis_t_fieldcat_alv,
         gt_fieldcat1 TYPE slis_fieldcat_alv,
         gt_events TYPE slis_t_event ,
         gv_pc_start(2) TYPE n,
         gv_pcno(6),
         BEGIN OF gt_pbed OCCURS 0,
         matnr TYPE matnr,
         p_matnr TYPE matnr,
         plnmg TYPE plnmg,
         entmg TYPE entmg,
         perxx TYPE perxx,
         ojtxb TYPE ojtxb,
         ojtxp TYPE ojtxp,
         backlog TYPE plnmg,
         future  TYPE plnmg,
         END OF gt_pbed,
         l_knumh LIKE a304-knumh,            " added by ****** 08.06.2005
         l_datab LIKE a304-datab,           " added by ****** 08.06.2005
         BEGIN OF it_date1 OCCURS 0,
         it_date1 TYPE zstartdt,
         enddt TYPE zenddt,
         sapweekno TYPE zsapweekno,
         END OF it_date1,
         BEGIN OF gt_matnr OCCURS 0,
         matnr TYPE matnr,
         plnmg TYPE plnmg,
         entmg TYPE entmg,
         END OF gt_matnr,
         BEGIN OF gt_stock OCCURS 0,
         matnr TYPE matnr,
         stock TYPE entmg,
         END OF gt_stock,
         gt_fpbed LIKE gt_pbed OCCURS 0 WITH HEADER LINE,
         it_zcalendar LIKE zcalendar OCCURS 0 WITH HEADER LINE,
         l_counter TYPE i,
         l_plus15  LIKE scal-week,
         l_wfpweekno LIKE scal-week,
         l_selectedweekno LIKE scal-week,
         BEGIN OF gt_backlog OCCURS 0,
         matnr TYPE matnr,
         backlog TYPE entmg,
         END OF gt_backlog,
         gt_future LIKE gt_backlog OCCURS 0 WITH HEADER LINE,
         gt_output TYPE zpp_rollplan OCCURS 0 WITH HEADER LINE,
         BEGIN OF gt_out OCCURS 0,
         head(15) TYPE c,
         matnr TYPE matnr,
         stock TYPE labst,
         backlog TYPE plnmg,
         week1 TYPE wmeng,
         week2 TYPE wmeng,
         week3 TYPE wmeng,
         week4 TYPE wmeng,
         week5 TYPE wmeng,
         week6 TYPE wmeng,
         week7 TYPE wmeng,
         week8 TYPE wmeng,
         week9 TYPE wmeng,
         week10 TYPE wmeng,
         week11 TYPE wmeng,
         week12 TYPE wmeng,
         week13 TYPE wmeng,
         END OF gt_out,
       BEGIN OF gt_out26 OCCURS 0,
       head(15) TYPE c,
       matnr TYPE matnr,
       stock TYPE labst,
       backlog TYPE plnmg,
       week1 TYPE wmeng,
       week2 TYPE wmeng,
       week3 TYPE wmeng,
       week4 TYPE wmeng,
       week5 TYPE wmeng,
       week6 TYPE wmeng,
       week7 TYPE wmeng,
       week8 TYPE wmeng,
       week9 TYPE wmeng,
       week10 TYPE wmeng,
       week11 TYPE wmeng,
       week12 TYPE wmeng,
       week13 TYPE wmeng,
       week14 TYPE wmeng,
       week15 TYPE wmeng,
       week16 TYPE wmeng,
       week17 TYPE wmeng,
       week18 TYPE wmeng,
       week19 TYPE wmeng,
       week20 TYPE wmeng,
       week21 TYPE wmeng,
       week22 TYPE wmeng,
       week23 TYPE wmeng,
       week24 TYPE wmeng,
       week25 TYPE wmeng,
       week26 TYPE wmeng,
       END OF gt_out26,
       BEGIN OF it_week OCCURS 0,
       it_week TYPE zsapweekno,
       END OF it_week,
         dd(4) TYPE c,
         cc(2) TYPE c,
         dd1(6) TYPE c,
        l_val1(7)  TYPE c,
        l_val2(7)  TYPE c,
        l_val3(7)  TYPE c,
        l_val4(7)  TYPE c,
        l_val5(7)  TYPE c,
        l_val6(7)  TYPE c,
        l_val7(7)  TYPE c,
        l_val8(7)  TYPE c,
        l_val9(7)  TYPE c,
        l_val10(7)  TYPE c,
        l_val11(7)  TYPE c,
        l_val12(7)  TYPE c,
        l_val13(7)  TYPE c,
        l_val14(7)  TYPE c,
        l_val15(7)  TYPE c,
        l_val16(7)  TYPE c,
        l_val17(7)  TYPE c,
        l_val18(7)  TYPE c,
        l_val19(7)  TYPE c,
        l_val20(7)  TYPE c,
        l_val21(7)  TYPE c,
        l_val22(7)  TYPE c,
        l_val23(7)  TYPE c,
        l_val24(7)  TYPE c,
        l_val25(7)  TYPE c,
        l_val26(7)  TYPE c,
        it_ph TYPE plnmg,
        it_dm TYPE dbmng,
        it_mard LIKE mard OCCURS 0 WITH HEADER LINE,
        it_tot1 TYPE p DECIMALS 3,
        it_tot1_2  TYPE p DECIMALS 3,
       it_tot2 TYPE p DECIMALS 3,
       it_tot2_2  TYPE p DECIMALS 3,
       it_tot3 TYPE p DECIMALS 3,
       it_tot3_2  TYPE p DECIMALS 3,
       it_tot4 TYPE p DECIMALS 3,
       it_tot4_2  TYPE p DECIMALS 3,
       it_tot5 TYPE p DECIMALS 3,
       it_tot5_2  TYPE p DECIMALS 3,
       it_tot6 TYPE p DECIMALS 3,
       it_tot6_2  TYPE p DECIMALS 3,
       it_tot7 TYPE p DECIMALS 3,
       it_tot7_2  TYPE p DECIMALS 3,
       it_tot8 TYPE p DECIMALS 3,
       it_tot8_2  TYPE p DECIMALS 3,
       it_tot9 TYPE p DECIMALS 3,
       it_tot9_2  TYPE p DECIMALS 3,
       it_tot10 TYPE p DECIMALS 3,
       it_tot10_2  TYPE p DECIMALS 3,
       it_tot11 TYPE p DECIMALS 3,
       it_tot11_2  TYPE p DECIMALS 3,
       it_tot12 TYPE p DECIMALS 3,
       it_tot12_2  TYPE p DECIMALS 3,
       it_tot13 TYPE p DECIMALS 3,
       it_tot13_2  TYPE p DECIMALS 3,
       it_tot14 TYPE p DECIMALS 3,
       it_tot14_2  TYPE p DECIMALS 3,
       it_tot15 TYPE p DECIMALS 3,
       it_tot15_2  TYPE p DECIMALS 3,
       it_tot16 TYPE p DECIMALS 3,
       it_tot16_2  TYPE p DECIMALS 3,
       it_tot17 TYPE p DECIMALS 3,
       it_tot17_2  TYPE p DECIMALS 3,
       it_tot18 TYPE p DECIMALS 3,
       it_tot18_2  TYPE p DECIMALS 3,
       it_tot19 TYPE p DECIMALS 3,
       it_tot19_2  TYPE p DECIMALS 3,
       it_tot20 TYPE p DECIMALS 3,
       it_tot20_2  TYPE p DECIMALS 3,
       it_tot21 TYPE p DECIMALS 3,
       it_tot21_2  TYPE p DECIMALS 3,
       it_tot22 TYPE p DECIMALS 3,
       it_tot22_2  TYPE p DECIMALS 3,
       it_tot23 TYPE p DECIMALS 3,
       it_tot23_2  TYPE p DECIMALS 3,
       it_tot24 TYPE p DECIMALS 3,
       it_tot24_2  TYPE p DECIMALS 3,
       it_tot25 TYPE p DECIMALS 3,
       it_tot25_2  TYPE p DECIMALS 3,
       it_tot26 TYPE p DECIMALS 3,
       it_tot26_2  TYPE p DECIMALS 3,
       it_back1 TYPE p DECIMALS 3,
       it_back2 TYPE p DECIMALS 3,
       it_back3 TYPE p DECIMALS 3,
       it_back4 TYPE p DECIMALS 3,
       it_back5 TYPE p DECIMALS 3,
       it_back6 TYPE p DECIMALS 3,
       it_back7 TYPE p DECIMALS 3,
       it_back8 TYPE p DECIMALS 3,
       it_back9 TYPE p DECIMALS 3,
       it_back10 TYPE p DECIMALS 3,
       it_back11 TYPE p DECIMALS 3,
       it_back12 TYPE p DECIMALS 3,
       it_back13 TYPE p DECIMALS 3,
       it_back14 TYPE p DECIMALS 3,
       it_back15 TYPE p DECIMALS 3,
       it_back16 TYPE p DECIMALS 3,
       it_back17 TYPE p DECIMALS 3,
       it_back18 TYPE p DECIMALS 3,
       it_back19 TYPE p DECIMALS 3,
       it_back20 TYPE p DECIMALS 3,
       it_back21 TYPE p DECIMALS 3,
       it_back22 TYPE p DECIMALS 3,
       it_back23 TYPE p DECIMALS 3,
       it_back24 TYPE p DECIMALS 3,
       it_back25 TYPE p DECIMALS 3,
       it_back26 TYPE p DECIMALS 3,
       it_pbhi LIKE pbhi OCCURS 0 WITH HEADER LINE,
       int1 TYPE i,
       int2 TYPE i,
       int3 TYPE i,
       int4 TYPE i,
       int5 TYPE i,
       int6 TYPE i,
       int7 TYPE i,
       int8 TYPE i,
       int9 TYPE i,
       int10 TYPE i,
       int11 TYPE i,
       int12 TYPE i,
       int13 TYPE i,
       int14 TYPE i,
       int15 TYPE i,
       int16 TYPE i,
       int17 TYPE i,
       int18 TYPE i,
       int19 TYPE i,
       int20 TYPE i,
       int21 TYPE i,
       int22 TYPE i,
       int23 TYPE i,
       int24 TYPE i,
       int25 TYPE i,
       int26 TYPE i,
*forecast purpose
        p_fnavl TYPE c VALUE 'X',
        it_zcal LIKE zcalendar OCCURS 0 WITH HEADER LINE,
       BEGIN OF it_mkpf OCCURS 0,
       mblnr TYPE mblnr,
       budat TYPE budat,
       END OF it_mkpf,
      it_mseg LIKE mseg OCCURS 0 WITH HEADER LINE,
      st_date TYPE zstartdt,
      en_date TYPE zenddt.
*BUDAT
SELECTION-SCREEN : BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001..
SELECT-OPTIONS   : s_matnr FOR pbim-matnr OBLIGATORY.
PARAMETERS       : p_werks TYPE werks_d OBLIGATORY,
                   p_dispo TYPE dispo,
                   p_mov TYPE bwart OBLIGATORY DEFAULT '321',
                   p_date1 TYPE pbed-wdatu DEFAULT '20070401'. "  MODIF ID ABC..
*SELECT-OPTIONS    : p_date2 FOR pbed-wdatu.
PARAMETERS : p_date2  TYPE wdatu.
SELECTION-SCREEN  : END OF BLOCK blk1.
SELECTION-SCREEN  : BEGIN OF BLOCK bb1 WITH FRAME TITLE text-002 .
PARAMETERS        : p_13week RADIOBUTTON GROUP grp1,
                    p_26week RADIOBUTTON GROUP grp1.
SELECTION-SCREEN  : END OF BLOCK bb1.
SELECT-OPTIONS    : s_week FOR zcalendar-sapweekno NO-DISPLAY.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-name = 'P_DATE1'.
      screen-input = '0'.
      screen-active = '1'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
INITIALIZATION.
START-OF-SELECTION.
  IF  '20070401' > p_date2.
    MESSAGE 'Please Give Greater that 01.04.2007 ' TYPE 'I'.
    LEAVE LIST-PROCESSING.
  ENDIF.
  SELECT SINGLE sapweekno INTO s_week-low
  FROM zcalendar
  WHERE startdt >=  p_date2. "-high AND enddt >= p_date2-low.
  s_week-option = 'EQ'.
  s_week-sign   = 'I'.
  APPEND s_week.
  SELECT * FROM zcalendar INTO TABLE it_zcalendar.
  SELECT * FROM mard INTO TABLE it_mard WHERE matnr IN s_matnr.
*********************FOR 13 WEEK*********************************************************************
  IF p_13week EQ 'X'.
    LOOP AT s_week.
      s_week-high = s_week-low + 12.
      MODIFY s_week TRANSPORTING high.
      SELECT SINGLE startdt FROM zcalendar INTO st_date WHERE sapweekno = s_week-low.
      SELECT SINGLE enddt FROM zcalendar INTO en_date WHERE  sapweekno = s_week-high.
      SELECT mblnr budat FROM mkpf INTO TABLE it_mkpf WHERE budat GE st_date AND budat LE en_date.
     SELECT * FROM mseg INTO TABLE it_mseg FOR ALL ENTRIES IN it_mkpf WHERE mblnr = it_mkpf-mblnr
               AND matnr IN s_matnr
               AND werks = p_werks
               and shkzg = 'S'
               AND bwart IN ('321','322','101','102','131','132') .
      LOOP AT it_mkpf.
        SELECT * FROM mseg INTO it_mseg WHERE mblnr = it_mkpf-mblnr
                        AND matnr IN s_matnr
                        AND werks = p_werks
                        AND shkzg = 'S'
                        AND bwart IN ('321','322','101','102','131','132') .
          APPEND it_mseg.
          CLEAR it_mseg.
        ENDSELECT.
      ENDLOOP.
    ENDLOOP.
    PERFORM get_pbid.
    BREAK-POINT.
    PERFORM s_week_days.
    PERFORM get_backlog.
    PERFORM gt_out.
    PERFORM build_fieldccatlog1.
    PERFORM 13alv.
  ENDIF.
******************END OF 13 WEEK*************************************************************************
*****************For 26 th Week*************************************************************************
  IF p_26week EQ 'X'.
    LOOP AT s_week.
      s_week-high = s_week-low + 25.
      MODIFY s_week TRANSPORTING high.
      SELECT SINGLE startdt FROM zcalendar INTO st_date WHERE sapweekno = s_week-low.
      SELECT SINGLE enddt FROM zcalendar INTO en_date WHERE  sapweekno = s_week-high.
      SELECT mblnr budat FROM mkpf INTO TABLE it_mkpf WHERE budat GE st_date AND budat LE en_date.
      SELECT * FROM mseg INTO TABLE it_mseg FOR ALL ENTRIES IN it_mkpf WHERE mblnr = it_mkpf-mblnr
                AND matnr IN s_matnr
                AND werks = p_werks
                AND shkzg = 'S'
                AND bwart IN ('321','322','101','102') .
    ENDLOOP.
    PERFORM get_pbid.
    PERFORM s_26week_days.
    PERFORM gt_out26.
    PERFORM build_fieldccatlog1.
    PERFORM 26alv.
  ENDIF.
**************END OF 26 TH WEEK **********************************************************************
*&      Form  get_pbid
      text
FORM get_pbid .
  DATA : lv_line TYPE i,
         lv_perxx LIKE scal-week.
  DATA it_dispo(1) TYPE c. " ashish
LOOP AT s_matnr. " TODAY
  BREAK-POINT.
  SELECT SINGLE diber INTO it_dispo FROM marc WHERE matnr = s_matnr-low
                                                AND werks = p_werks.
  IF it_dispo NE 'X'.
    SELECT * FROM pbim WHERE matnr = s_matnr-low
                         AND werks EQ p_werks
                         AND loevr = space.
      SELECT startdt enddt sapweekno INTO TABLE it_date1 FROM zcalendar WHERE sapweekno GE s_week-low AND sapweekno LE s_week-high.
     SORT by s_matnr p_werks.
      LOOP AT it_date1.
        SELECT * FROM pbhi INTO TABLE it_pbhi WHERE bdzei = pbim-bdzei AND ( pdatu GE it_date1-it_date1 AND pdatu LE it_date1-enddt ).
        IF sy-subrc EQ 0.
          DELETE it_pbhi WHERE aenam = 'ABBAU'.
          LOOP AT it_pbhi.
            it_ph =  it_ph + it_pbhi-plnmg.
            it_dm = it_dm + it_pbhi-dbmng.
          ENDLOOP.
          it_ph = it_ph - it_dm.
          gt_pbed-matnr = s_matnr-low.
          gt_pbed-plnmg = it_ph.
          gt_pbed-perxx = it_date1-sapweekno.
          APPEND gt_pbed.
          CLEAR it_pbhi.
          CLEAR it_ph.
          CLEAR it_dm.
          REFRESH it_pbhi.
          CLEAR gt_pbed.
        ELSE.
        ENDIF.
      ENDLOOP.
    ENDSELECT.
  ELSE.
    SORT BY s_matnr p_werks.
    LOOP AT s_matnr.
      SELECT * FROM pbid WHERE  matnr =  s_matnr-low
                         AND   werks = p_werks
                         AND   loevr EQ space.
****PHANI
     SELECT * FROM pbed WHERE bdzei = pbid-bdzei.
       MOVE-CORRESPONDING pbed TO gt_pbed.
       PERFORM convert_to_week USING pbed-pdatu
                            CHANGING gt_pbed-perxx.
     check gt_pbed-perxx in r_week.
       gt_pbed-matnr = pbid-matnr.
     PERFORM GET_PARENT USING gt_bom-MATNR
                     CHANGING gt_pbed-p_matnr
                              GT_pbed-OJTXB.
       COLLECT gt_pbed.
       CLEAR gt_pbed.
*PHANI
data it_date1 type ZSTARTDT.
        SELECT startdt enddt sapweekno INTO TABLE it_date1 FROM zcalendar WHERE sapweekno GE s_week-low AND sapweekno LE s_week-high.
        LOOP AT it_date1.
          SELECT * FROM pbhi INTO TABLE it_pbhi WHERE bdzei = pbid-bdzei AND ( pdatu GE it_date1-it_date1 AND pdatu LE it_date1-enddt ).
          IF sy-subrc EQ 0.
            DELETE it_pbhi WHERE aenam = 'ABBAU'.
            LOOP AT it_pbhi.
              it_ph =  it_ph + it_pbhi-plnmg.
              it_dm = it_dm + it_pbhi-dbmng.
            ENDLOOP.
            it_ph = it_ph - it_dm.
            gt_pbed-matnr = s_matnr-low.
            gt_pbed-plnmg = it_ph.
            gt_pbed-perxx = it_date1-sapweekno.
            APPEND gt_pbed.
            CLEAR it_pbhi.
            CLEAR it_ph.
            CLEAR it_dm.
            REFRESH it_pbhi.
            CLEAR gt_pbed.
          ELSE.
          ENDIF.
        ENDLOOP.
      ENDSELECT.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " get_pbid
*&      Form  convert_to_week
      text
     -->IV_DATE    text
     -->XV_WEEK    text
FORM convert_to_week USING iv_date
                 CHANGING xv_week.
  DATA : lv_week LIKE scal-week.
  CALL FUNCTION 'DATE_GET_WEEK'
    EXPORTING
      date = iv_date
    IMPORTING
      week = lv_week.
  xv_week = lv_week.
ENDFORM.                    "CONVERT_TO_WEEK
*&      Form  get_stock
      text
FORM get_stock .
  DATA : lv_stock LIKE mard-insme.
  LOOP AT gt_pbed.
    READ TABLE gt_stock WITH KEY matnr = gt_pbed-matnr.
    CHECK sy-subrc NE 0.
    SELECT SUM( labst ) INTO lv_stock FROM mard
    WHERE matnr = gt_pbed-matnr AND   werks = p_werks.
    SELECT SUM( insme ) INTO gt_stock-stock FROM mard
    WHERE matnr = gt_pbed-matnr AND   werks = p_werks.
    gt_stock-stock = gt_stock-stock + lv_stock.
    gt_stock-matnr = gt_pbed-matnr.
    APPEND gt_stock.
  ENDLOOP.
ENDFORM.                    " get_stock
FORM s_week_days .
  DELETE gt_pbed WHERE perxx < s_week-low. " and perxx > s_week-high.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val1.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val2.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val3.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val4.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val5.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val6.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val7.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val8.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val9.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val10.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val11.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val12.
  s_week-low4(2) = s_week-low4(2) + 1.
  CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val13.
ENDFORM.                    " s_week_days
*&      Form  build_fieldccatlog
      text
FORM build_fieldcatlog .
  CLEAR gt_fieldcat1.
  gt_fieldcat1-fieldname = 'MATNR'.
  gt_fieldcat1-tabname = 'GT_OUT'.
  gt_fieldcat1-seltext_l = 'MATERIAL'.
  APPEND gt_fieldcat1 TO gt_fieldcat.
  CLEAR gt_fieldcat1.
  gt_fieldcat1-fieldname = 'WERKS'.
  gt_fieldcat1-tabname = 'GT_OUT'.
  gt_fieldcat1-seltext_m = 'WERKS'.
  APPEND gt_fieldcat1 TO gt_fieldcat.
  CLEAR gt_fieldcat1.
  gt_fieldcat1-fieldname = 'HEAD'.
  gt_fieldcat1-tabname = 'GT_OUT'.
  gt_fieldcat1-seltext_l = 'REF'.
  APPEND gt_fieldcat1 TO gt_fieldcat.
  CLEAR gt_fieldcat1.
  gt_fieldcat1-fieldname = 'STOCK'.
  gt_fieldcat1-tabname = 'GT_OUT'.
  gt_fieldcat1-seltext_l = 'FG-STOCK'.
  APPEND gt_fieldcat1 TO gt_fieldcat.
  CLEAR gt_fieldcat1.
  gt_fieldcat1-fieldname = 'BACKLOG'.
  gt_fieldcat1-tabname = 'GT_OUT'.
  gt_fieldcat1-seltext_l = 'BACKLOG'.
  APPEND gt_fieldcat1 TO gt_fieldcat.
  dd = sy-datum+0(4).
  cc = l_val1+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val1.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK1'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val1.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val2+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val2.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK2'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val2.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val3+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val3.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK3'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val3.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val4+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val4.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK4'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val4.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val5+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val5.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK5'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val5.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val6+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val6.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK6'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val6.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val7+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val7.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK7'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val7.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val8+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val8.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK8'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val8.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val9+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val9.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK9'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val9.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val10+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val10.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK10'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val10.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val11+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val11.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK11'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val11.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val12+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val12.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK12'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val12.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
  CLEAR : cc,dd1.
  cc = l_val13+5(2).
  CONCATENATE dd cc INTO dd1.
  LOOP AT it_zcalendar WHERE sapweekno = dd1.
    CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val13.
    CLEAR gt_fieldcat1.
    gt_fieldcat1-fieldname = 'WEEK13'.
    gt_fieldcat1-tabname = 'GT_OUT'.
    gt_fieldcat1-seltext_l = l_val13.
    APPEND gt_fieldcat1 TO gt_fieldcat.
  ENDLOOP.
ENDFORM.                    " build_fieldccatlog
*&      Form  13alv
      text
FORM 13alv .
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK              = ' '
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                = ' '
  I_CALLBACK_PROGRAM             = ' '
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  I_STRUCTURE_NAME               =
  IS_LAYOUT                      =
      it_fieldcat                    = gt_fieldcat
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
  IT_EVENTS                      =
  IT_EVENT_EXIT                  =
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
    TABLES
      t_outtab                       = gt_out
EXCEPTIONS
  PROGRAM_ERROR                  = 1
  OTHERS                         = 2
ENDFORM.                                                    " 13alv
*&      Form  gt_out
      text
FORM gt_out .
  LOOP AT s_matnr.
    AT NEW low.
      gt_out-matnr = s_matnr-low.
************BEGIN OF FIRST WEEK******************************
      LOOP AT gt_pbed WHERE matnr = s_matnr-low AND perxx4(2) = l_val15(2).
        gt_out-week1 = gt_pbed-plnmg.
        LOOP AT it_zcalendar WHERE sapweekno = gt_pbed-perxx.
          IF p_mov = '321'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '321'.
                it_tot1 = it_tot1 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '322'.
                it_tot1_2 = it_tot1_2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
            ENDLOOP.
          ENDIF.
          IF p_mov = '101'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '101'.
                it_tot1 = it_tot1 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '102'.
                it_tot1_2 = it_tot1_2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
            ENDLOOP.
          ENDIF.
          IF p_mov = '131'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '131'.
                it_tot1 = it_tot1 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '132'.
                it_tot1_2 = it_tot1_2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
            ENDLOOP.
          ENDIF.
          CLEAR gt_pbed.
        ENDLOOP.
      ENDLOOP.
      it_tot1 = it_tot1 - it_tot1_2.
      it_back1 = gt_out-week1 - it_tot1.
      CLEAR it_zcalendar.
END OF FIRST WEEK ************************
**********************SECOND WEEK***************************************
      LOOP AT gt_pbed WHERE matnr = s_matnr-low AND perxx4(2) = l_val25(2).
        int2 = int2 + 1.
        CHECK int2  = 1.
        gt_out-week2 = gt_pbed-plnmg.
        LOOP AT it_zcalendar WHERE sapweekno = gt_pbed-perxx.
          IF p_mov = '321'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '321'.
                it_tot2 = it_tot2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '322'.
                it_tot2_2 = it_tot2_2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
            ENDLOOP.
          ENDIF.
          IF p_mov = '101'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '101'.
                it_tot2 = it_tot2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '102'.
                it_tot2_2 = it_tot2_2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
            ENDLOOP.
          ENDIF.
          IF p_mov = '131'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '131'.
                it_tot1 = it_tot1 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '132'.
                it_tot1_2 = it_tot1_2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
            ENDLOOP.
          ENDIF.
          CLEAR gt_pbed.
        ENDLOOP.
      ENDLOOP.
      it_tot2 = it_tot2 - it_tot2_2.
      it_back2 = gt_out-week2 - it_tot2.
      it_back2 = it_back2 + it_back1.
      CLEAR it_zcalendar.
********************************End of The Second week***********************************************
*********************Third week*************************************************************************
      LOOP AT gt_pbed WHERE matnr = s_matnr-low AND perxx4(2) = l_val35(2).
        int1 = int1 + 1.
        CHECK int1 =  1.
        gt_out-week3 = gt_pbed-plnmg.
        LOOP AT it_zcalendar WHERE sapweekno = gt_pbed-perxx.
          IF p_mov = '321'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '321'.
                it_tot3 = it_tot3 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '322'.
                it_tot3_2 = it_tot3_2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
            ENDLOOP.
          ENDIF.
          IF p_mov = '101'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '101'.
                it_tot3 = it_tot3 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '102'.
                it_tot3_2 = it_tot3_2 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
            ENDLOOP.
          ENDIF.
          IF p_mov = '131'.
            LOOP AT it_mkpf WHERE budat  GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '131'.
                it_tot3 = it_tot3 + it_mseg-erfmg.
                CLEAR it_mseg.
              ENDLOOP.
              LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '132'.
                it_tot3_2 = it_tot3_2 + it_mseg-erfmg.
              

Answer 1

My first question to you would be ...you have defined the plant code as parameters so you can enter multiple plants...change that to a select-option and you would be able to display all the results.
Regards
Anurag