Really urgent: seperation of dates for displaying the stock

Question

hi,
I am modifying a report in which i have to display the stock in the following way:-
1.) If P_DATE(15.03.2008) then it should display the stock of previous month as the stock it stored on always on the last date of each month.
2.) If P_DATE(16.03.2008) then it should display the stock of this  month as the stock it stored on always on the last date of each month.
my requierment is how to display it?
plzz help me out as help will be deifnately rewarded.
Edited by: ric .s on Mar 15, 2008 6:09 AM
Edited by: ric .s on Mar 15, 2008 6:15 AM

Answer 1

HI,
plz go through the code and try to analyze it ,u will  not be abel to run dis code as it consist of the table which is made by the programmers.
*& Report  ZPP_INV_COPY1
REPORT  ZPP_INV_COPY1 NO STANDARD PAGE HEADING LINE-SIZE 150.
TABLES : MARA, MAKT, MARD, MKPF, MSEG, T001L,ZSTOCKSUM.
TYPE-POOLS : SLIS.
**DATA : BEGIN OF STIT OCCURS 0,
      BUDAT LIKE MKPF-BUDAT,
      MATNR LIKE MSEG-MATNR,
      WERKS LIKE MSEG-WERKS,
      LGORT LIKE MSEG-LGORT,
      MENGE LIKE MSEG-MENGE,
      MEINS LIKE MSEG-MEINS,
      ERFMG LIKE MSEG-ERFMG,
      ERFME LIKE MSEG-ERFME,
      SHKZG LIKE MSEG-SHKZG,
      BWART LIKE MSEG-BWART,
DATA : BEGIN OF STIT OCCURS 0,
       STLDATE LIKE ZSTOCKSUM-STLDATE,
       MATNR LIKE ZSTOCKSUM-MATNR,
       WERKS LIKE ZSTOCKSUM-WERKS,
       LGORT LIKE ZSTOCKSUM-LGORT,
       STSTOCK LIKE ZSTOCKSUM-STSTOCK,
       STDEBIT LIKE ZSTOCKSUM-STDEBIT,
       STCREDIT LIKE ZSTOCKSUM-STCREDIT,
       MEINS LIKE MARA-MEINS,
       MTART LIKE MARA-MTART,
       MATKL LIKE MARA-MATKL,
       NTGEW LIKE MARA-NTGEW,
       GEWEI LIKE MARA-GEWEI,
       WTKG  LIKE MARA-NTGEW,
       STOCK TYPE P LENGTH 10 DECIMALS 3,
       WT TYPE P LENGTH 12 DECIMALS 3,
       END OF STIT.
DATA : BEGIN OF SLIT OCCURS 0,
       LGORT LIKE T001L-LGORT,
       LGOBE LIKE T001L-LGOBE,
       ROH   TYPE P LENGTH 12 DECIMALS 3,
       ZBOP  TYPE P LENGTH 12 DECIMALS 3,
       FERT  TYPE P LENGTH 12 DECIMALS 3,
       HALB  TYPE P LENGTH 12 DECIMALS 3,
       ZSCR  TYPE P LENGTH 12 DECIMALS 3,
       TOT   TYPE P LENGTH 12 DECIMALS 3,
       crrow type P length 3,
       END OF SLIT.
DATA : ITAB LIKE STIT OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF ITAB1 OCCURS 0,
       MTART LIKE MARA-MTART,
       END OF ITAB1.
******************OLD ITAB2****************
**DATA : BEGIN OF ITAB2 OCCURS 0,
      LGORT LIKE MSEG-LGORT,
      END OF ITAB2.
*************NEW ITAB2**********************
DATA : BEGIN OF ITAB2 OCCURS 0,
       LGORT LIKE ZSTOCKSUM-LGORT,
       END OF ITAB2.
DATA : V_QTY TYPE P LENGTH 12 DECIMALS 3,
       V_QTY1 TYPE P LENGTH 12 DECIMALS 3,
       V_ALV TYPE C,
       V_MAXROW TYPE P LENGTH 3.
AT LINE-SELECTION.
    DATA : V_COL TYPE N LENGTH 3,
           V_ROW TYPE N LENGTH 3,
           V_RHDR LIKE T001L-LGORT,
           V_CHDR LIKE MARA-MTART,
           w_msg TYPE string.
    IF SY-LSIND = 1.
      V_COL = SY-CUCOL.
      V_ROW = SY-CUROW.
      V_RHDR = ''.
      V_CHDR = ''.
      PERFORM GET_PARM.
      IF V_ROW <> 999.
        PERFORM PRN_ITSTOCK.
      ENDIF.
    endif.
start-of-selection.
selection-screen begin of block par1 WITH FRAME TITLE TEXT-001.
*PARAMETERS : P_DATE LIKE MKPF-BUDAT OBLIGATORY DEFAULT sy-datum.
*PARAMETERS : P_WERKS LIKE MSEG-WERKS DEFAULT 'MFPL'.
PARAMETERS : P_DATE LIKE ZSTOCKSUM-STLDATE OBLIGATORY DEFAULT sy-datum.
PARAMETERS : P_WERKS LIKE ZSTOCKSUM-WERKS DEFAULT 'MFPL'.
SELECT-OPTIONS : MAT_TYPE FOR MARA-MTART.
****SELECT-OPTIONS : P_MATNR FOR MSEG-MATNR.
****SELECT-OPTIONS : P_STLOC FOR MSEG-LGORT.
SELECT-OPTIONS : P_MATNR FOR ZSTOCKSUM-MATNR.
SELECT-OPTIONS : P_STLOC FOR ZSTOCKSUM-LGORT.
SELECTION-SCREEN END OF BLOCK par1.
***SELECTION-SCREEN BEGIN OF BLOCK OPSC
***WITH FRAME TITLE TEXT-002.
***SELECTION-SCREEN BEGIN OF LINE.
***PARAMETERS ALV RADIOBUTTON GROUP OP.
***SELECTION-SCREEN COMMENT 4(13) TEXT-011 FOR FIELD ALV.
***SELECTION-SCREEN END OF LINE.
***SELECTION-SCREEN BEGIN OF LINE.
***PARAMETERS SCR RADIOBUTTON GROUP OP DEFAULT 'X'.
***SELECTION-SCREEN COMMENT 4(13) TEXT-012 FOR FIELD SCR.
***SELECTION-SCREEN END OF LINE.
***SELECTION-SCREEN END OF BLOCK OPSC.
  AUTHORITY-CHECK OBJECT 'ZPLANT1'
   ID 'WERKS' FIELD P_WERKS.
  IF sy-subrc <> 0.
   MESSAGE e045(zmsg) WITH P_WERKS.
  ENDIF.
PERFORM GET_INI_DATA.
PERFORM GET_GRP_DATA.
  V_ALV ='N'.
  PERFORM PRN_SMSTOCK_TXT.
*&      Form  GET_INI_DATA
      text
-->  p1        text
<--  p2        text
form GET_INI_DATA .
******************ORG******************************************
SELECT AMATNR BWERKS BLGORT AMEINS AMTART AMATKL ANTGEW AGEWEI A~NTGEW
FROM MARA AS A INNER JOIN MSEG AS B ON AMATNR = BMATNR
INTO TABLE ITAB
WHERE B~WERKS = P_WERKS
AND A~MATNR IN P_MATNR
AND ( MTART = 'FERT' OR MTART = 'HALB' OR MTART = 'ZBOP' OR MTART = 'ZSCR' OR MTART = 'ROH' )
AND MTART IN MAT_TYPE
GROUP BY AMATNR BWERKS BLGORT AMEINS AMTART AMATKL ANTGEW AGEWEI A~NTGEW.
***************************PREV CHANGE***********************************
SELECT BBUDAT AMATNR AWERKS ALGORT AMENGE AMEINS AERFMG AERFME ASHKZG ABWART
CMTART CMATKL CNTGEW CGEWEI C~NTGEW
FROM MSEG AS A  INNER JOIN MKPF AS B ON AMBLNR = BMBLNR AND AMJAHR = BMJAHR
INNER JOIN MARA AS C ON AMATNR = CMATNR
INTO TABLE STIT
WHERE AWERKS = P_WERKS AND AMATNR IN P_MATNR AND BUDAT <= P_DATE
AND MTART IN MAT_TYPE
AND ( MTART = 'FERT' OR MTART = 'HALB' OR MTART = 'ZBOP' OR MTART = 'ZSCR' OR MTART = 'ROH' )
AND A~LGORT IN P_STLOC.
*****************************NEW CHANGE AS ON 26.02.2008*********************************
*AERFMG AERFME ASHKZG ABWART
  SELECT ASTLDATE AMATNR AWERKS ALGORT ASTSTOCK ASTDEBIT A~STCREDIT
  CMEINS  CMTART CMATKL CNTGEW C~GEWEI
  FROM ZSTOCKSUM AS A
  INNER JOIN MARA AS C ON AMATNR = CMATNR
  INTO TABLE STIT
  WHERE AWERKS = P_WERKS AND MTART IN MAT_TYPE AND AMATNR IN P_MATNR AND STLDATE <= P_DATE
  AND ( MTART = 'FERT' OR MTART = 'HALB' OR MTART = 'ZBOP' OR MTART = 'ZSCR' OR MTART = 'ROH' )
  AND A~LGORT IN P_STLOC.
AND
    ITAB[] = STIT[].
    SORT ITAB BY MATNR WERKS LGORT MEINS MTART MATKL NTGEW GEWEI NTGEW.
    DELETE ADJACENT DUPLICATES FROM ITAB COMPARING MATNR WERKS LGORT MEINS MTART MATKL NTGEW GEWEI NTGEW.
    SORT STIT BY MATNR LGORT.
*SHKZG
  SORT ITAB BY MATNR LGORT.
  LOOP AT ITAB.
    V_QTY = 0.
    V_QTY1 = 0.
*************************PREVIOUS**********************s*
   LOOP AT STIT WHERE MATNR = ITAB-MATNR AND LGORT = ITAB-LGORT.
     IF STIT-SHKZG = 'S'.
       V_QTY = V_QTY + STIT-MENGE.
       V_QTY1 = V_QTY1 + STIT-ERFMG.
     ELSE.
       V_QTY = V_QTY - STIT-MENGE.
       V_QTY1 = V_QTY1 - STIT-ERFMG.
     ENDIF.
   ENDLOOP.
*************************NEW*****************************
LOOP AT STIT WHERE MATNR = ITAB-MATNR AND LGORT = ITAB-LGORT.
        V_QTY = V_QTY + STIT-STDEBIT - STIT-STCREDIT.
    ENDLOOP.
    IF V_QTY <> 0.
      ITAB-STOCK = V_QTY.
      IF ITAB-NTGEW <> 0 AND ITAB-GEWEI <> 'KG'.
        CALL FUNCTION 'ZGET_ITEM_WEIGHT'
         EXPORTING
           P_BUID         = ITAB-WERKS
           P_ITEMID       = ITAB-MATNR
           P_QTY          = ITAB-NTGEW
           P_UOM          = ITAB-GEWEI
           P_UOM1         = 'KG'
         IMPORTING
           P_RETVAL       = ITAB-WTKG.
    ENDIF.
    ENDIF.
   CONVERTING ITEM QTY IN KG
      ITAB-WT = ITAB-STOCK.
      IF ITAB-MEINS = 'G'.
        ITAB-WT = ITAB-STOCK / 1000000.
      ELSEIF ITAB-MEINS = 'KG'.
        ITAB-WT = ITAB-STOCK / 1000.
      ELSEIF ITAB-MEINS <> 'TO'.
        ITAB-WT = ITAB-STOCK * ITAB-WTKG / 1000.
      ENDIF.
      MODIFY ITAB.
    ENDIF.
  ENDLOOP.
endform.                    " GET_INI_DATA
*&      Form  GET_GRP_DATA
      text
-->  p1        text
<--  p2        text
form GET_GRP_DATA .
  SELECT LGORT LGOBE FROM T001L INTO TABLE SLIT WHERE WERKS = P_WERKS.
  SORT SLIT BY LGORT.
  SORT ITAB BY LGORT MTART.
  LOOP AT SLIT.
    LOOP AT ITAB WHERE MTART = 'ROH' AND LGORT = SLIT-LGORT AND STOCK <> 0.
      SLIT-ROH = SLIT-ROH + ITAB-WT.
    ENDLOOP.
    LOOP AT ITAB WHERE MTART = 'ZBOP' AND LGORT = SLIT-LGORT AND STOCK <> 0.
      SLIT-ZBOP = SLIT-ZBOP + ITAB-WT.
    ENDLOOP.
    LOOP AT ITAB WHERE MTART = 'HALB' AND LGORT = SLIT-LGORT AND STOCK <> 0.
      SLIT-HALB = SLIT-HALB + ITAB-WT.
    ENDLOOP.
    LOOP AT ITAB WHERE MTART = 'FERT' AND LGORT = SLIT-LGORT AND STOCK <> 0.
      SLIT-FERT = SLIT-FERT + ITAB-WT.
    ENDLOOP.
    LOOP AT ITAB WHERE MTART = 'ZSCR' AND LGORT = SLIT-LGORT AND STOCK <> 0.
      SLIT-ZSCR = SLIT-ZSCR + ITAB-WT.
    ENDLOOP.
    SLIT-TOT = SLIT-ROH + SLIT-ZBOP + SLIT-HALB + SLIT-FERT + SLIT-ZSCR.
    IF SLIT-TOT = 0.
      DELETE SLIT.
    ELSE.
      MODIFY SLIT.
    ENDIF.
  ENDLOOP.
endform.                    " GET_GRP_DATA
*&      Form  PRN_ITSTOCK
      text
-->  p1        text
<--  p2        text
form PRN_ITSTOCK .
Data : hdr type c length 100,
       V_PTYPE LIKE MARA-MTART,
       V_PSTLOC LIKE MSEG-LGORT,
       V_ITEM LIKE MAKT-MAKTX,
       T_QTY1 TYPE P LENGTH 12 DECIMALS 3,
       T_QTY2 TYPE P LENGTH 12 DECIMALS 3,
       T_QTY3 TYPE P LENGTH 12 DECIMALS 3,
       T_WT1 TYPE P LENGTH 12 DECIMALS 3,
       T_WT2 TYPE P LENGTH 12 DECIMALS 3,
       T_WT3 TYPE P LENGTH 12 DECIMALS 3.
hdr = 'INVENTORY REPORT '.
IF V_CHDR = 'ROH'.
  CONCATENATE HDR '(RAW MATERIAL) ' INTO HDR.
ELSEIF V_CHDR = 'ZBOP'.
  CONCATENATE HDR '(BOP) ' INTO HDR.
ELSEIF V_CHDR = 'HALB'.
  CONCATENATE HDR '(SEMI-FININSHED GOODS) ' INTO HDR.
ELSEIF V_CHDR = 'FERT'.
  CONCATENATE HDR '(FINISHED GOODS) ' INTO HDR.
ELSEIF V_CHDR = 'ZSCR'.
  CONCATENATE HDR '(SCRAP) ' INTO HDR.
ENDIF.
WRITE : / HDR.
uline.
*WRITE : / '              ITEM ID  DESCRIPTION                   UOM  GRP           ITEM WT (KG.)             STOCK QTY.              STOCK TONS'.
WRITE : / '            ITEM ID  DESCRIPTION                             UOM       GROUP            NET.WT.      STOCK QTY.  STOCK (TONS)'.
ULINE.
SORT ITAB BY MTART LGORT MATNR.
T_QTY1 = 0.
T_WT1 = 0.
LOOP AT ITAB1.
  WRITE : / 'MATERIAL TYPE : ', ITAB1-MTART.
  T_QTY2 = 0.
  T_WT2 = 0.
  LOOP AT ITAB2.
    WRITE : / '          STORAGE LOCATION : ' , ITAB2-LGORT.
    T_QTY3 = 0.
    T_WT3 = 0.
    LOOP AT ITAB WHERE MTART = ITAB1-MTART AND LGORT = ITAB2-LGORT.
      SELECT SINGLE MAKTX FROM MAKT INTO V_ITEM WHERE MATNR = ITAB-MATNR.
      WRITE : / '           ' ,(8) ITAB-MATNR,(40) V_ITEM,(3) ITAB-MEINS,'    ', ITAB-MATKL, '    ',(10) ITAB-WTKG,(13) ITAB-STOCK, (13) ITAB-WT.
      T_QTY3 = T_QTY3 + ITAB-STOCK.
      T_WT3 = T_WT3 + ITAB-WT.
    ENDLOOP.
    T_QTY2 = T_QTY2 + T_QTY3.
    T_WT2 = T_WT2 + T_WT3.
    WRITE : / '                                                                                -
    WRITE : / '          TOTAL :                                                                               ',(13) T_QTY3, (13) T_WT3.
    WRITE : / '                                                                                -
  ENDLOOP.
  T_QTY1 = T_QTY1 + T_QTY2.
  T_WT1 = T_WT1 + T_WT2.
WRITE : / '                                                                                ----------------------------'.
  WRITE : / '    TOTAL       :                                                                               ',(13) T_QTY2, (13) T_WT2.
  WRITE : / '                                                                                -
ENDLOOP.
*WRITE : / '                                                                                -
WRITE : / ' GRAND TOTAL    :                                                                               ',(13) T_QTY1, (13) T_WT1.
WRITE : / '                                                                                -
endform.                    " PRN_ITSTOCK
*&      Form  PRN_SMSTOCK
      text
-->  p1        text
<--  p2        text
form PRN_SMSTOCK_TXT .
  DATA : Q TYPE P LENGTH 12 DECIMALS 3,
         TROH TYPE P LENGTH 12 DECIMALS 3,
         TBOP TYPE P LENGTH 12 DECIMALS 3,
         THALB TYPE P LENGTH 12 DECIMALS 3,
         TFERT TYPE P LENGTH 12 DECIMALS 3,
         TSCR TYPE P LENGTH 12 DECIMALS 3,
         TSL TYPE P LENGTH 12 DECIMALS 3.
  WRITE : / 'INVENTORY REPORT AS ON : ', P_DATE, '         PLANT : ', P_WERKS, '                           PRINTING DATE : ', SY-DATUM, '     CONTROL NO.: FM 888  REV-00'.
  WRITE : / '(in Tons)', 121 'DATE       : 20.11.07'.
  ULINE.
  FORMAT COLOR COL_GROUP ON.
  WRITE : / SY-VLINE,(10) 'ST.LOC.', SY-VLINE, (25) 'ST. LOCATION ', SY-VLINE, (15) 'RAW MATERIAL', SY-VLINE, (15) '     BOP', SY-VLINE, (15) 'FIN. GOODS',
            SY-VLINE, (15) 'WIP GOODS', SY-VLINE, (15) 'SCRAPS', SY-VLINE, (15) ' TOTAL ', SY-VLINE.
  ULINE.
  TROH = 0.
  TBOP = 0.
  THALB = 0.
  TFERT = 0.
  TSCR = 0.
  FORMAT COLOR COL_NORMAL ON.
  LOOP AT SLIT.
    Q = SLIT-ROH + SLIT-ZBOP + SLIT-FERT + SLIT-HALB + SLIT-ZSCR.
    IF Q <> 0.
     TSL = SLIT-ROH + SLIT-ZBOP + SLIT-HALB + SLIT-FERT + SLIT-ZSCR.
      WRITE  : / SY-VLINE,(10) SLIT-LGORT, SY-VLINE, (25) SLIT-LGOBE, SY-VLINE, (13) SLIT-ROH,' ', SY-VLINE, (13) SLIT-ZBOP, ' ', SY-VLINE, (13) SLIT-FERT, ' ',
      SY-VLINE,(13) SLIT-HALB, ' ', SY-VLINE,(13) SLIT-ZSCR, ' ',SY-VLINE,(13) SLIT-TOT, ' ',SY-VLINE.
      ULINE.
      TROH = TROH + SLIT-ROH.
      TBOP = TBOP + SLIT-ZBOP.
      THALB = THALB + SLIT-HALB.
      TFERT = TFERT + SLIT-FERT.
      TSCR =  TSCR + SLIT-ZSCR.
      SLIT-CRROW = SY-LINNO - 2.
      MODIFY SLIT.
      V_MAXROW = SLIT-CRROW.
     WRITE : SLIT-FERT, SLIT-HALB, SLIT-ZSCR.
    ENDIF.
  ENDLOOP.
  TSL = TROH + TBOP + THALB + TFERT + TSCR.
  WRITE  : / SY-VLINE, (38) 'T O T A L ', SY-VLINE, (13) TROH,' ', SY-VLINE, (13) TBOP, ' ', SY-VLINE, (13) TFERT, ' ',
  SY-VLINE,(13) THALB, ' ', SY-VLINE,(13) TSCR, ' ',SY-VLINE,(13) TSL, ' ',SY-VLINE.
  ULINE.
endform.                    " PRN_SMSTOCK
*&      Form  PRN_SMSTOCK_ALV
      text
-->  p1        text
<--  p2        text
form PRN_SMSTOCK_ALV .
endform.
form user_command using r_ucomm     like sy-ucomm
                        rs_selfield type slis_selfield.
Example Code
Executes a command considering the sy-ucomm.
CASE r_ucomm.
   WHEN '&IC1'.
     DATA: w_msg TYPE string,
           w_row(4) TYPE n,
           ITID LIKE MARA-MATNR.
     w_row = rs_selfield-tabindex.
     ITID = rs_selfield-value.
     IF W_ROW <> 0.
       CONCATENATE 'You have clicked row' w_row
                   'field' rs_selfield-fieldname
                   'with value' rs_selfield-value
                   INTO w_msg SEPARATED BY space.
       MESSAGE w_msg TYPE 'S'.
       PERFORM PRN_ITSTOCK.
     ENDIF.
ENDCASE.
ENDFORM.
*&      Form  GET_PARM
      text
-->  p1        text
<--  p2        text
form GET_PARM .
CLEAR ITAB1.
REFRESH ITAB1.
IF V_COL > 44.
  IF V_COL >= 44 AND V_COL <= 60.
    V_CHDR = 'ROH'.
    ITAB1-MTART = V_CHDR.
    APPEND ITAB1.
  ELSEIF V_COL >= 62 AND V_COL <= 78.
    V_CHDR = 'ZBOP'.
    ITAB1-MTART = V_CHDR.
    APPEND ITAB1.
  ELSEIF V_COL >= 80 AND V_COL <= 96.
    V_CHDR = 'FERT'.
    ITAB1-MTART = V_CHDR.
    APPEND ITAB1.
  ELSEIF V_COL >= 98 AND V_COL <= 114.
    V_CHDR = 'HALB'.
    ITAB1-MTART = V_CHDR.
    APPEND ITAB1.
  ELSEIF V_COL >= 116 AND V_COL <= 132.
    V_CHDR = 'ZSCR'.
    ITAB1-MTART = V_CHDR.
    APPEND ITAB1.
  ELSEIF V_COL >= 134 AND V_COL <= 160.
    V_CHDR = 'TOT'.
    ITAB1-MTART = 'ROH'.
    APPEND ITAB1.
    ITAB1-MTART = 'ZBOP'.
    APPEND ITAB1.
    ITAB1-MTART = 'FERT'.
    APPEND ITAB1.
    ITAB1-MTART = 'HALB'.
    APPEND ITAB1.
    ITAB1-MTART = 'ZSCR'.
    APPEND ITAB1.
  ENDIF.
  CLEAR ITAB2.
  REFRESH ITAB2.
  READ TABLE SLIT WITH KEY CRROW = V_ROW.
  IF SY-SUBRC = 0.
    V_RHDR = SLIT-LGORT.
    ITAB2-LGORT = V_RHDR.
    APPEND ITAB2.
  ELSE.
    IF V_ROW > V_MAXROW.
      IF V_CHDR <> 'TOT'.
        DATA : PTXT LIKE MSEG-LGORT.
        SORT ITAB BY MTART LGORT.
        PTXT = ''.
        LOOP AT ITAB WHERE MTART = V_CHDR AND STOCK <> 0.
          IF PTXT <> ITAB-LGORT.
            ITAB2-LGORT = ITAB-LGORT.
            APPEND ITAB2.
            PTXT = ITAB-LGORT.
          ENDIF.
        ENDLOOP.
      ELSE.
        V_ROW = 999.
      ENDIF.
    ELSE.
      V_ROW = 999.
      CLEAR ITAB1.
      REFRESH ITAB1.
    ENDIF.
  ENDIF.
ELSE.
  V_CHDR = ''.
  V_RHDR = ''.
ENDIF.
endform.                    " GET_PARM
Edited by: ric .s on Mar 15, 2008 7:26 AM