Report needs to be corrected it is urgent

Question

Ageing Analysis of Inventory Material. This is a report for Inventory Ageing. The report is not giving correct result for the field Value of total valuated stock(MBEWH-SALK3). After displaying the report when we add up the field SALK3 it not the correct result which I got in transaction code MB5L. Can anyone kindly help me in correcting out this report. I am keeping the source code also.
*& Application      :  Materials Management (MM)
*& Description      :  Ageing Analysis of Inventory Material
*& Transaction Code :
*& Area Menu Code   :  ZMM
Report ZMM0001.
MAPPING OF MONTH AND PERIOD AS FINACIAL YEAR STARTS FROM APR - MAR. *
just for reference.
   MONTH        PERIOD
  01.2003   -  10.2003
  02.2003   -  11.2003
  03.2003   -  12.2003
  04.2003   -  01.2003
  05.2003   -  02.2003
  06.2003   -  03.2003
  07.2003   -  04.2003
  08.2003   -  05.2003
  09.2003   -  06.2003
  10.2003   -  07.2003
  11.2003   -  08.2003
  12.2003   -  09.2003
  01.2004   -  10.2004
  02.2004   -  11.2004
  03.2004   -  12.2004
  04.2004   -  01.2004
REPORT  ZMMR0001 MESSAGE-ID GW NO STANDARD PAGE HEADING
                               LINE-COUNT 1000
                               LINE-SIZE 170.
*FLOWLOGIC
*This Program displays the Ageing Analysis details of Material inventory
*pick up the opening balance consider the previous month of the period
*entered in selection screen.
*Get the qty and value for all material types from mbew table but
*excludeentries where no valuation type is defined
*calculate the receipt qty pick all entries from z_mkpf_mseg where
*date( is less that or equal to the last day of the month and movement
*type equals '101', '561', '501', '951', '953', '955', '957', '301' *
*into i_mseg table.
*To calculate the reversal for  receipt qty.
*To get the issue qty upto the date of receipt, delete the issue qty
*fromstock to get the exact stock value on the date the receipt of
*materials happen.
*Calculate the difference in days and mark values based on the below
*condition.
*Display the output as per the user given format.
*FLOWLOGIC
Tables
TABLES : S031,      " Statistics: Movements for current stocks
         S032,      " Statistics: Current Stock and Grouping Terms
         MBEW,      " Material Valuation
         MBEWH,     " Material Valuation: History
         MARC,      " Plant Data for Material
         MARA,      "material master
         T001W,     " Plant Details
         MKPF,
         V_T179.
TYPE-POOLS
TYPE-POOLS: SLIS.
DATA:   IT_HEADING       TYPE SLIS_T_LISTHEADER   WITH HEADER LINE.
DATA:   IT_FCAT          TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA:   LAY              TYPE SLIS_LAYOUT_ALV.
DATA:   IT_SORT_SUBTOTAL TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.
DATA:   IT_EVENT         TYPE SLIS_T_EVENT        WITH HEADER LINE.
DATA:   V_REPID LIKE SY-REPID.
DATA:   PRDHA1(5),
        PRDHA2(10),
        LVL1(40),
        LVL2(40),
        LVL3(40).
RANGES: S_BWTAR FOR BWTAR.
INTERNAL Tables
*******For Mat. Desc.************
DATA : BEGIN OF I_MAKT OCCURS 0,
          MATNR TYPE MAKT-MATNR,    " Material Code
          MAKTX TYPE MAKT-MAKTX,    " Material Description
       END OF I_MAKT.
DATA : BEGIN OF TEMP OCCURS 0,
VTEXT(40),
END OF TEMP.
*******For Mat. No. & Type & Grp*
DATA : BEGIN OF I_MARA OCCURS 0,
          MATNR TYPE MARA-MATNR,    " Material Code
          MATKL         TYPE MARA-MATKL,
          MTART         TYPE MARA-MTART,
          MFRNR         TYPE MARA-MFRNR,
       END OF I_MARA.
******For Stock******************
DATA : BEGIN OF I_MBEWH OCCURS 0,
          MATNR TYPE MBEWH-MATNR,
          BWTAR TYPE MBEWH-BWTAR,
          LBKUM TYPE MBEWH-LBKUM,
          SALK3 TYPE MBEWH-SALK3,
          BWKEY TYPE MBEWH-BWKEY,
          VBELN TYPE EBEW-VBELN,
          POSNR TYPE EBEW-POSNR,
          SOBKZ TYPE QBEW-SOBKZ,
          PSPNR TYPE QBEW-PSPNR,
          LFGJA TYPE MBEW-LFGJA,
          LFMON TYPE MBEW-LFMON,
       END OF I_MBEWH.
DATA: I_MBEWH1 LIKE I_MBEWH OCCURS 0 WITH HEADER LINE.
*******For Moving Price***********
DATA : BEGIN OF I_MBEW OCCURS 0,
          MATNR TYPE MBEWH-MATNR,
          BWTAR TYPE MBEWH-BWTAR,
          LBKUM TYPE MBEWH-LBKUM,
          VERPR TYPE MBEWH-VERPR,
          VPRSV TYPE MBEWH-VPRSV,
          STPRS TYPE MBEWH-STPRS,
       END OF I_MBEW.
DATA : BEGIN OF I_RECIPT1 OCCURS 0,
       MATNR TYPE Z_MKPF_MSEG-MATNR,
       NAME1 TYPE LFA1-NAME1,
       MAKTX       TYPE MAKT-MAKTX,
       BWTAR TYPE Z_MKPF_MSEG-BWTAR,
       VERPR TYPE MBEWH-VERPR,
       PRDHA LIKE MARA-PRDHA,
       VTEXT(40) ,
       LBKUM TYPE MBEWH-LBKUM,
       SALK3 TYPE MBEWH-SALK3,
       QTY1 TYPE MBEWH-LBKUM,
       VAL1 TYPE P DECIMALS 2,
       QTY2 TYPE MBEWH-LBKUM,
       VAL2 TYPE P DECIMALS 2,
       QTY3 TYPE MBEWH-LBKUM,
       VAL3 TYPE P DECIMALS 2,
       QTY4 TYPE MBEWH-LBKUM,
       VAL4 TYPE P DECIMALS 2,
       QTY5 TYPE MBEWH-LBKUM,
       VAL5 TYPE P DECIMALS 2,
       QTY6 TYPE MBEWH-LBKUM,
       VAL6 TYPE P DECIMALS 2,
       QTY7 TYPE MBEWH-LBKUM,
       VAL7 TYPE P DECIMALS 2,
       END OF I_RECIPT1.
DATA :   BEGIN OF I_MKPF_MSEG OCCURS 0,
  MATNR LIKE MARA-MATNR,
  MBLNR LIKE MSEG-MBLNR,
  ZEILE LIKE MSEG-ZEILE,
  MENGE LIKE MSEG-MENGE,
  BWART LIKE MSEG-BWART,
  BUDAT LIKE MKPF-BUDAT,
  NET_VAL LIKE MSEG-MENGE,
  EBELN LIKE MSEG-EBELN,
  EBELP LIKE MSEG-EBELP,
  LFBNR LIKE MSEG-LFBNR,
  LFPOS LIKE MSEG-LFPOS,
  SHKZG LIKE MSEG-SHKZG,
  MEINS LIKE MARA-MEINS,
  SMBLN LIKE MSEG-SMBLN,
  SMBLP LIKE MSEG-SMBLP,
  END OF I_MKPF_MSEG,
  WA_MSEG LIKE I_MKPF_MSEG.
********For Material Movement***
DATA: BEGIN OF I_MSEG OCCURS 0,
        MBLNR TYPE Z_MKPF_MSEG-MBLNR,
        MATNR TYPE Z_MKPF_MSEG-MATNR,
        WERKS TYPE Z_MKPF_MSEG-WERKS,
        BWART TYPE Z_MKPF_MSEG-BWART,
        BUDAT TYPE Z_MKPF_MSEG-BUDAT,
        MENGE TYPE Z_MKPF_MSEG-MENGE,
        MEINS TYPE Z_MKPF_MSEG-MEINS,
        BWTAR TYPE Z_MKPF_MSEG-BWTAR,
        NET_VAL LIKE MSEG-MENGE,
        ZEILE TYPE MSEG-ZEILE,
      END OF I_MSEG.
********For Material Monvment(Reverse)***
DATA: BEGIN OF I_MSEG1 OCCURS 0,
        MBLNR TYPE Z_MKPF_MSEG-MBLNR,
        MATNR TYPE Z_MKPF_MSEG-MATNR,
        WERKS TYPE Z_MKPF_MSEG-WERKS,
        BWART TYPE Z_MKPF_MSEG-BWART,
        BUDAT TYPE Z_MKPF_MSEG-BUDAT,
        MENGE TYPE Z_MKPF_MSEG-MENGE,
        MEINS TYPE Z_MKPF_MSEG-MEINS,
        BWTAR TYPE Z_MKPF_MSEG-BWTAR,
        SMBLN TYPE Z_MKPF_MSEG-SMBLN,
        SMBLP TYPE Z_MKPF_MSEG-SMBLP,
      END OF I_MSEG1.
DATA: I_MSEG2 LIKE I_MSEG1 OCCURS 0 WITH HEADER LINE.
********For Recipt Details*******
DATA: BEGIN OF I_RECIPT OCCURS 0,
       MATNR TYPE Z_MKPF_MSEG-MATNR,
       BWTAR TYPE Z_MKPF_MSEG-BWTAR,
       BUDAT TYPE Z_MKPF_MSEG-BUDAT,
       DAYS TYPE  P,
       QTY TYPE Z_MKPF_MSEG-MENGE,
       MONTH(3),
       YEAR(4),
       VERPR TYPE MBEWH-VERPR,
       COST TYPE P DECIMALS 2,
       MARK(1),
     END OF I_RECIPT.
DATA: BEGIN OF I_PLANT OCCURS 0,
      WERKS  LIKE T024W-WERKS,
      EKORG  LIKE T024W-EKORG,
      BUKRS  LIKE T024E-BUKRS,
      CHK(1) TYPE C,
      END OF I_PLANT.
DATA: BEGIN OF I_USERGRP OCCURS 0.
        INCLUDE STRUCTURE USGRP_USER.
DATA: VKORG LIKE VBAK-VKORG,
      END OF I_USERGRP.
DATA: MUGRP LIKE USGRP_USER-USERGROUP.
DATA: MUNAME LIKE SY-UNAME,
      MMSGTX1(50) TYPE C.
*********For Temp.Values*****
*data: begin of i_temp occurs 0,
      matnr type z_mkpf_mseg-matnr,
      bwtar type z_mkpf_mseg-bwtar,
      budat type z_mkpf_mseg-budat,
      menge type z_mkpf_mseg-menge,
    end of i_temp.
DATA: DAYS(2).
DATA: NET_VAL LIKE MSEG-MENGE.
DATA: DATE1 TYPE  D.
DATA: DATE2 TYPE  D.
DATA: MBLNR TYPE MSEG-MBLNR.
DATA: MATNR TYPE MSEG-MATNR.
DATA: BWTAR TYPE MSEG-BWTAR.
DATA : V_DATE TYPE SY-DATUM.
DATA : X(2) TYPE C VALUE '01'.
DATA : P TYPE T009B-POPER.    " MONTH
DATA : Q TYPE T009B-BDATJ.    " YEAR
DATA : A TYPE T009B-POPER.  " FOR MONTH WHERE MONTH STARTS AT APRIL
DATA : B(4) TYPE C.         " FOR YEAR
DATA : DATE TYPE SY-DATUM.
DATA:  NUMBER_OF_DAYS TYPE  P.
DATA: DAT TYPE D.
DATA : X1(2) .
DATA: VPRSV TYPE MBEWH-VPRSV,
      STPRS TYPE MBEWH-STPRS.
DATA: C TYPE C VALUE 0,
     S(10).
Parameter /  Selection - screens
SELECTION-SCREEN BEGIN OF BLOCK IND1 WITH FRAME TITLE TEXT_001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) TEXT_002 FOR FIELD P_WERKS.
PARAMETERS : P_WERKS LIKE S031-WERKS OBLIGATORY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) TEXT_003 FOR FIELD P_SPMON.
PARAMETERS : P_SPMON LIKE S031-SPMON MODIF ID ABC .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_004 FOR FIELD S_MATNR.
SELECT-OPTIONS : S_MATNR FOR S031-MATNR.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK IND1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT_005.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_006 FOR FIELD SO_MATTP.
SELECT-OPTIONS : SO_MATTP FOR MARA-MTART.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_007 FOR FIELD SO_MATGP.
SELECT-OPTIONS : SO_MATGP FOR MARA-MATKL.
SELECTION-SCREEN END OF LINE.
begin of changes by cvns01
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_008 FOR FIELD SO_MFRNR.
SELECT-OPTIONS : SO_MFRNR FOR MARA-MFRNR.
SELECTION-SCREEN END OF LINE.
end of changes by cvns01
*changes
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_009 FOR FIELD SO_MFRNR.
SELECT-OPTIONS : SO_PRDHA FOR MARA-PRDHA NO INTERVALS."NO-EXTENSION.
SELECTION-SCREEN END OF LINE.
*end
SELECTION-SCREEN END OF BLOCK B2.
Initialization
INITIALIZATION.
  TEXT_001 = 'Required Data'.
  TEXT_002 = 'Plant'.
  TEXT_003 = 'Period to analyze - month'.
  TEXT_004 = 'Material Number'.
  TEXT_005 = 'Optional Data'.
  TEXT_006 = 'Material Type'.
  TEXT_007 = 'Material Group'.
start of changes by cvns01
  TEXT_008 = 'Manufacturer No.'.
  TEXT_009 = 'Product Hierarchy'.
end of changes by cvns01
  CLEAR:P,Q.
  CLEAR A.
  P = SY-DATUM+4(2).
  SHIFT P LEFT DELETING LEADING C.
  Q = SY-DATUM(4).
  IF P <= 9.
    CONCATENATE  Q '0' P INTO S. "p_spmon.
  ELSE.
    CONCATENATE  Q P INTO S. "p_spmon.
  ENDIF.
*concatenate q p into s. "p_spmon.
  CONDENSE S.
  P_SPMON = S.
AT SELECTION-SCREEN ON WERKS
AT SELECTION-SCREEN ON P_WERKS.
  CHECK SY-UCOMM = 'ONLI'.
  SELECT SINGLE * FROM T001W WHERE WERKS EQ P_WERKS.
  IF SY-SUBRC NE 0.
    MESSAGE E999 WITH 'Invalid Plant'.
  ENDIF.
  SELECT T024W~WERKS T024E~EKORG T024E~BUKRS
      INTO CORRESPONDING FIELDS OF TABLE I_PLANT
      FROM T024W
      JOIN T024E ON T024E~EKORG = T024W~EKORG
      WHERE T024W~WERKS EQ P_WERKS.
  SORT I_PLANT BY WERKS.
  DELETE ADJACENT DUPLICATES FROM I_PLANT COMPARING WERKS.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE I_USERGRP
        FROM USGRP_USER
        WHERE BNAME = SY-UNAME.
  IF I_USERGRP[] IS INITIAL.
    MESSAGE E208(00) WITH 'You are not authorised to view this report'.
  ENDIF.
  LOOP AT I_USERGRP.
    CONCATENATE I_USERGRP-USERGROUP(2) '00' INTO I_USERGRP-VKORG.
    MODIFY I_USERGRP.
  ENDLOOP.
  LOOP AT I_USERGRP.
    LOOP AT I_PLANT WHERE BUKRS = I_USERGRP-VKORG.
      I_PLANT-CHK = 'X'.
      MODIFY I_PLANT.
    ENDLOOP.
  ENDLOOP.
*delete i_plant where chk = ''.
  IF NOT I_PLANT[] IS INITIAL.
    LOOP AT I_PLANT.
      IF I_PLANT-CHK = ''.
        CLEAR P_WERKS.
        CONCATENATE 'You are not authorised for plant ' I_PLANT-WERKS INTO MMSGTX1 SEPARATED BY SPACE.
        MESSAGE E208(00) WITH MMSGTX1.
      ENDIF.
    ENDLOOP.
  ENDIF.
  IF P_WERKS = ''.
    MESSAGE E208(00) WITH 'Select/Enter Plant'.
  ENDIF.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'ABC'.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
AT SELECTION-SCREEN
*AT SELECTION-SCREEN .
SELECT SINGLE * FROM s031 WHERE werks EQ p_werks
                             AND spmon EQ p_spmon
                             AND matnr IN s_matnr.
IF sy-subrc NE 0.
   MESSAGE e999 WITH 'NO VALUES EXIST FOR SELECTION CRITERIA'.
ENDIF.
START-OF-SELECTION
START-OF-SELECTION.
  PERFORM PRDHA_INITIALIZATION.
  PERFORM FETCH_DATA.
  PERFORM DISPLAY_DATA.
END-OF-SELECTION.
*&      Form  FETCH_DATA
      text
-->  p1        text
<--  p2        text
FORM FETCH_DATA .
  CLEAR:P,Q.
  CLEAR A.
  P = P_SPMON+4(2).
  Q = P_SPMON+0(4).
******Materials**********************************
changes made by akshatha
  SELECT MARA~MATNR
         FROM MARA
         JOIN MARC
         ON MARCMATNR = MARAMATNR
         INTO CORRESPONDING FIELDS OF TABLE I_MARA
         WHERE MARA~MATNR IN S_MATNR
           AND MARC~WERKS = P_WERKS
           AND MARA~MTART IN SO_MATTP
           AND MARA~MATKL IN SO_MATGP
           AND MARA~MFRNR IN SO_MFRNR
           AND MARA~PRDHA IN SO_PRDHA.
end of changes
To get material description for the material
  IF NOT I_MARA[] IS INITIAL.
    SELECT MATNR
           MAKTX
           FROM MAKT
           INTO CORRESPONDING FIELDS OF TABLE I_MAKT
           FOR ALL ENTRIES IN I_MARA
           WHERE MATNR = I_MARA-MATNR
             AND SPRAS = SY-LANGU.
TO GET OPEN BALANCE QTY WE NEED TO CONSIDER PREVIOUS MONTH OF THE
CORRESPONDING PERIOD
WE WILL GET PROBLEM ONLY PROBLEM WHEN PERIOD IS '01'. THEN WE MUST
CONSIDER FOR 12 TH MONTH OF PREVIOUS YEAR.
****Closing Stock as on Selection-Screen Month....
*By Default last date of month is taken
changed by akshatha
    CONCATENATE P_SPMON X INTO V_DATE.
    CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
      EXPORTING
        I_DATE               = V_DATE
  I_MONMIT             = 00
        I_PERIV              = 'V3'
     IMPORTING
       E_BUPER              = A
       E_GJAHR              = Q
     EXCEPTIONS
       INPUT_FALSE          = 1
       T009_NOTFOUND        = 2
       T009B_NOTFOUND       = 3
       OTHERS               = 4 .
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
to get stock quantity
    SELECT MATNR LBKUM SALK3 BWKEY LFGJA LFMON
           FROM MBEWH
           INTO CORRESPONDING FIELDS OF TABLE I_MBEWH
           FOR ALL ENTRIES IN I_MARA
           WHERE MATNR = I_MARA-MATNR
           AND BWKEY = P_WERKS           AND BWTAR IN S_BWTAR
             AND LFGJA = Q
             AND LFMON = A
             AND LBKUM > '0.0'.
    SELECT MATNR LBKUM SALK3 BWKEY VBELN POSNR LFGJA LFMON
            FROM EBEWH
            APPENDING CORRESPONDING FIELDS OF TABLE I_MBEWH
            WHERE MATNR = I_MARA-MATNR
             AND BWKEY = P_WERKS
             AND BWTAR IN S_BWTAR
             AND LFGJA = Q
             AND LFMON = A
             AND LBKUM > '0.0'.
          and VPRSV = 'S'.
    SELECT MATNR LBKUM SALK3 BWKEY SOBKZ PSPNR LFGJA LFMON
            FROM QBEWH
            APPENDING CORRESPONDING FIELDS OF TABLE I_MBEWH
            WHERE MATNR = I_MARA-MATNR
             AND BWKEY = P_WERKS
             AND BWTAR IN S_BWTAR
             AND LFGJA = Q
             AND LFMON = A
             AND LBKUM > '0.0'.
    SELECT MATNR LBKUM SALK3 BWKEY BWTAR
             FROM MBEW
             INTO CORRESPONDING FIELDS OF TABLE I_MBEWH1
             FOR ALL ENTRIES IN I_MARA
             WHERE MATNR = I_MARA-MATNR
             AND BWKEY = P_WERKS
             AND LBKUM > '0.0'.
    SELECT MATNR LBKUM SALK3 BWKEY VBELN POSNR SOBKZ BWTAR
             FROM EBEW
             APPENDING CORRESPONDING FIELDS OF TABLE I_MBEWH1
             FOR ALL ENTRIES IN I_MARA
             WHERE MATNR = I_MARA-MATNR
                    AND BWKEY = P_WERKS
                    AND LBKUM > '0.0'.
    SELECT MATNR LBKUM SALK3 BWKEY BWTAR SOBKZ PSPNR
             FROM QBEW
             APPENDING CORRESPONDING FIELDS OF TABLE I_MBEWH1
             FOR ALL ENTRIES IN I_MARA
             WHERE MATNR = I_MARA-MATNR
                    AND BWKEY = P_WERKS
                    AND LBKUM > '0.0'.
    SORT I_MBEWH BY MATNR BWKEY.
    SORT I_MBEWH1 BY MATNR BWKEY.
    LOOP AT I_MBEWH.
      LOOP AT I_MBEWH1 WHERE MATNR = I_MBEWH-MATNR
                         AND BWKEY = I_MBEWH-BWKEY.
        DELETE I_MBEWH1.
      ENDLOOP.
    ENDLOOP.
    APPEND LINES OF I_MBEWH1 TO I_MBEWH.
    CLEAR : I_MBEWH1.
    REFRESH I_MBEWH1.
    SORT I_MBEWH BY MATNR.
    LOOP AT I_MBEWH .
      I_MBEWH1 = I_MBEWH.
      AT END OF MATNR.
        SUM.
        I_MBEWH1-LBKUM = I_MBEWH-LBKUM.
        I_MBEWH1-SALK3 = I_MBEWH-SALK3.
        APPEND I_MBEWH1.
      ENDAT.
    ENDLOOP.
    DELETE I_MBEWH1 WHERE LBKUM <= 0.
    I_MBEWH[] = I_MBEWH1[].
end of changes
loop at i_mara.
   concatenate p_spmon x into v_date.
   call function 'DATE_TO_PERIOD_CONVERT'
     exporting
       i_date               = v_date
  I_MONMIT             = 00
       i_periv              = 'V3'
    importing
      e_buper              = a
      e_gjahr              = q
    exceptions
      input_false          = 1
      t009_notfound        = 2
      t009b_notfound       = 3
      others               = 4 .
   if sy-subrc <> 0.
     message id sy-msgid type sy-msgty number sy-msgno
             with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   endif.
To get STOCK QUANTITY and STOCK VALUE for All Valuation Type
   select  matnr
           bwtar
           lbkum
           salk3
          from mbewh
          into corresponding fields of i_mbewh
          where matnr = i_mara-matnr
            and bwkey = p_werks
            and lfmon = a         " 'A' IS PERIOD FOR FISCAL YR
            and lfgja = q.
       collect i_mbewh.
       clear i_mbewh.
   endselect.
   if sy-subrc ne 0.
     select       matnr
                  bwtar
                  lbkum
                  salk3
                  from mbew
                  into corresponding fields of i_mbewh
                   where matnr = i_mara-matnr
                     and bwkey = p_werks.
         collect i_mbewh.
         clear i_mbewh.
     endselect.
   endif.
endloop.
end of changes
Logic: If the Val. Type is defined then for that material dont take
the line item where Val. Type is blank......
sort  i_mbewh by matnr bwtar.
i_mbewh1[] = i_mbewh[].
delete i_mbewh where bwtar = ' '.
loop at i_mbewh1.
   read table i_mbewh with key matnr = i_mbewh1-matnr.
   if sy-subrc <> 0.
     move-corresponding i_mbewh1 to i_mbewh.
     append i_mbewh.
   endif.
endloop.
sort  i_mbewh by matnr bwtar.
i_mbewh1[] = i_mbewh[].
end of changes
*****************Last Date of the month is Calculated to find Qty
    DAT = V_DATE.
    CALL FUNCTION 'HR_E_NUM_OF_DAYS_OF_MONTH'
      EXPORTING
        P_FECHA        = DAT
      IMPORTING
        NUMBER_OF_DAYS = NUMBER_OF_DAYS.
    X1 =  NUMBER_OF_DAYS.
    CONCATENATE P_SPMON X1 INTO DATE.
********RECIPT QTY FETCHING*************************
select          mblnr
                 matnr
                 bwart
                 budat
                 menge
                 meins
                 bwtar
                 zeile
                 from z_mkpf_mseg
                 into  (i_mseg-mblnr,
                        i_mseg-matnr,
                        i_mseg-bwart,
                        i_mseg-budat,
                        i_mseg-menge,
                        i_mseg-meins,
                        i_mseg-bwtar,
                        i_mseg-zeile)
          for all entries in i_mbewh
          where matnr = i_mbewh-matnr and werks = p_werks
            and  ( budat le date or budat eq date )
            and bwart in ('101','561','501','951','953','955',
**'957','301','105')
            and bwtar = i_mbewh-bwtar.
   append i_mseg.
   clear i_mseg.
endselect.
select          mblnr
                 matnr
                 bwart
                budat
                 menge
                 meins
                 bwtar
                 zeile
                 from mseg "z_mkpf_mseg
                 into corresponding fields of table i_mseg
                       (i_mseg-mblnr,
                        i_mseg-matnr,
                        i_mseg-bwart,
                        i_mseg-budat,
                        i_mseg-menge,
                        i_mseg-meins,
                        i_mseg-bwtar,
                        i_mseg-zeile)
          for all entries in i_mbewh
          where matnr = i_mbewh-matnr and werks = p_werks
            and  ( budat le date or budat eq date )
            and bwart in ('101','561','501','951','953','955',
***'957','301','105')
            and bwart in ('101','561','501','951','953','955',
*'957','301','309','105')
           and bwtar = i_mbewh-bwtar.
loop at i_mseg.
   select single * from mkpf
          where mblnr = i_mseg-mblnr.
   if ( mkpf-budat ge date ).
     delete i_mseg where mblnr = i_mseg-mblnr.
   else.
     i_mseg-budat = mkpf-budat.
     modify i_mseg.
   endif.
endloop.
sort i_mseg descending by matnr bwtar budat.
**********For Reversal FOR RECIPT(CHECK FOR REFERENCE)
**********(102,562,502,952,954,956,958)
          select mblnr
                 matnr
                 bwart
                 menge
                 meins
                 bwtar
                 smbln
                 smblp
                 from mseg
                 into corresponding fields of table i_mseg1
          for all entries in i_mbewh
          where matnr = i_mbewh-matnr and werks = p_werks
          and bwart in ('102','562','502','952','954','956','958','302')
            and bwtar = i_mbewh-bwtar.
loop at i_mseg1.
   select single * from mkpf
          where mblnr = i_mseg1-mblnr.
   if ( mkpf-budat ge date ).
     delete i_mseg1 where mblnr = i_mseg1-mblnr.
   else.
     i_mseg1-budat = mkpf-budat.
     modify i_mseg1.
   endif.
endloop.
loop at i_mseg1.
   read table i_mseg with key mblnr = i_mseg1-smbln
                              zeile = i_mseg1-smblp.
   if  sy-subrc = 0.
     i_mseg-menge = i_mseg-menge - i_mseg1-menge.
     delete i_mseg where mblnr = i_mseg1-smbln and
                         zeile = i_mseg1-smblp.
     move-corresponding i_mseg to i_mseg2.
     append i_mseg2.
   endif.
endloop.
loop at i_mseg2.
   move-corresponding i_mseg2 to i_mseg.
   append i_mseg.
endloop.
end of changes.
    SELECT MSEGMATNR MSEGMBLNR MSEGZEILE MSEGMENGE MSEGBWART MSEGEBELN
           MSEGEBELP MSEGSMBLN MSEG~SMBLP
           MKPFBUDAT MSEGSHKZG
           FROM MKPF
           JOIN MSEG ON MSEGMBLNR = MKPFMBLNR
                    AND MSEGMJAHR = MKPFMJAHR
                      INTO CORRESPONDING FIELDS OF TABLE I_MKPF_MSEG
                          FOR ALL ENTRIES IN I_MARA
                        WHERE MSEG~MATNR = I_MARA-MATNR
                          AND MSEG~WERKS = P_WERKS
                          AND MKPF~BUDAT LE DATE
                          AND MSEG~BWART IN ('101','105','561','501','301','309','951','953','955','957','712','657','658',
                                             '521','522','303','304','102','562','502','952','954','956','958','302').
    DELETE  I_MKPF_MSEG WHERE  ( BWART = '309' AND SHKZG = 'H' )
                            OR ( BWART = '303' AND SHKZG = 'H' )
                            OR ( BWART = '304' AND SHKZG = 'S' )
                            OR ( BWART = '657' AND SHKZG = 'H' )
                            OR ( BWART = '658' AND SHKZG = 'S' ).
    SORT I_MKPF_MSEG BY MATNR MBLNR.
    LOOP AT I_MKPF_MSEG.
   if i_mkpf_mseg-bwart = '101' or i_mkpf_mseg-bwart = '102'.
     select single * from ekpo  where ebeln = i_mkpf_mseg-ebeln
                                  and ebelp = i_mkpf_mseg-ebelp.
     if ekpo-pstyp = 7.
       delete i_mkpf_mseg where ebeln = i_mkpf_mseg-ebeln
                            and ebelp = i_mkpf_mseg-ebelp.
       CLEAR I_MKPF_MSEG-MENGE.
     endif.
   endif.
      IF ( I_MKPF_MSEG-BWART = '101' OR I_MKPF_MSEG-BWART = '105' OR I_MKPF_MSEG-BWART = '561' OR
           I_MKPF_MSEG-BWART = '501' OR I_MKPF_MSEG-BWART = '301' OR I_MKPF_MSEG-BWART = '309' OR
           I_MKPF_MSEG-BWART = '951' OR I_MKPF_MSEG-BWART = '953' OR I_MKPF_MSEG-BWART = '955' OR
           I_MKPF_MSEG-BWART = '957' OR I_MKPF_MSEG-BWART = '303' OR I_MKPF_MSEG-BWART = '521' OR
           I_MKPF_MSEG-BWART = '712' OR I_MKPF_MSEG-BWART = '657' ).
        NET_VAL = NET_VAL + I_MKPF_MSEG-MENGE.
      ENDIF.
      LOOP AT I_MKPF_MSEG WHERE MATNR = I_MKPF_MSEG-MATNR.
        IF ( I_MKPF_MSEG-BWART = '102' OR I_MKPF_MSEG-BWART = '562' OR
             I_MKPF_MSEG-BWART = '502' OR I_MKPF_MSEG-BWART = '952' OR
             I_MKPF_MSEG-BWART = '954' OR I_MKPF_MSEG-BWART = '956' OR
             I_MKPF_MSEG-BWART = '958' OR I_MKPF_MSEG-BWART = '302' OR
             I_MKPF_MSEG-BWART = '304' OR I_MKPF_MSEG-BWART = '522' OR
             I_MKPF_MSEG-BWART = '658' ) AND
           ( I_MKPF_MSEG-MBLNR = I_MKPF_MSEG-SMBLN AND
             I_MKPF_MSEG-ZEILE = I_MKPF_MSEG-SMBLP ).
          NET_VAL = NET_VAL - I_MKPF_MSEG-MENGE.
          DELETE I_MSEG WHERE MBLNR = I_MSEG1-SMBLN AND
                              ZEILE = I_MSEG1-SMBLP.
        ENDIF.
      ENDLOOP.
      WA_MSEG = I_MKPF_MSEG.
      AT END OF MATNR.
        I_MSEG-MATNR  = WA_MSEG-MATNR.
        I_MSEG-MENGE = NET_VAL.
        I_MSEG-BUDAT = WA_MSEG-BUDAT.
        APPEND I_MSEG.
        CLEAR NET_VAL.
      ENDAT.
    ENDLOOP.
end of changes
    DELETE I_MSEG WHERE MENGE = '0.000'.
    SORT I_MSEG DESCENDING BY MATNR BWTAR BUDAT.
***#******RECIPT COMPLETE FINAL TABLE( I_MSEG)**********
********IF THE VAL. TYPE IS NOT THERE THEN PUT 'X'
loop at i_mbewh.
   if  i_mbewh-bwtar = ' '.
     i_mbewh-bwtar = 'X'.
     modify i_mbewh.
   endif.
endloop.
delete i_mbewh where lbkum = '0.00'.
end of changes
loop at i_mseg.
   if  i_mseg-bwtar = ' '.
     i_mseg-bwtar = 'X'.
     modify i_mseg.
   endif.
endloop.
end of changes
    DATA: MENGE TYPE MSEG-MENGE.
start of changes by akshatha
    SORT I_MSEG BY MATNR BWTAR.
    SORT I_MBEWH BY MATNR BWTAR.
    LOOP AT I_MSEG.
if condition, read and it_mseg-loop commented by akshatha.
   if i_mbewh-lbkum > '0.00'.
   read table i_mbewh with key matnr = i_mseg-matnr
                              bwtar = i_mseg-bwtar.
     loop at i_mseg .
       if ( i_mseg-mblnr <> mblnr ) and ( i_mseg-matnr ne i_temp-matnr
            or i_mseg-bwtar ne i_temp-bwtar ) .
   i_temp-matnr = i_mseg-matnr.
   i_temp-bwtar = i_mseg-bwtar.
   i_temp-budat = i_mseg-budat.
   i_temp-menge = i_mseg-menge.
         mblnr = i_mseg-mblnr.
         matnr = i_mseg-matnr.
         bwtar = i_mseg-bwtar.
   append i_temp.
end of changes
         delete i_mseg .
         loop at i_mbewh where  matnr = matnr
                            and bwtar = bwtar.
end of changes
      LOOP AT I_MBEWH WHERE  MATNR = I_MSEG-MATNR
                         AND BWTAR = I_MSEG-BWTAR.
FOR GETTING THE VALUES OF ISSUES ON & UPTO THE DATE OF RECIPT.
DELETE THE ISSUE QTY FROM STOCK SO THAT WE CAN GET THE EXACT STOCK
VALUE ON THE DATE WHEN RECIPT OF MATERIAL HAS HAPPEN
ISSUES R NOTHING BUT TYPE OF CONSUPTION.
commented and changed by akshatha
     if ( i_mbewh-lbkum >= i_temp-menge ).
        IF ( I_MBEWH-LBKUM >= I_MSEG-MENGE ).
          I_RECIPT-MATNR = I_MBEWH-MATNR.
          I_RECIPT-BWTAR = I_MBEWH-BWTAR.
       i_recipt-budat = i_temp-budat.
          I_RECIPT-BUDAT = I_MSEG-BUDAT.
end of changes
*Type Conversion From Sy-datum to type d.
          DATE1 = DATE.
          DATE2 = I_RECIPT-BUDAT.
*Type Conversion From Sy-datum to type d.
          CALL FUNCTION 'SD_DATETIME_DIFFERENCE'
            EXPORTING
              DATE1    = DATE1
              TIME1    = SY-UZEIT
              DATE2    = DATE2
              TIME2    = SY-UZEIT
            IMPORTING
              DATEDIFF = I_RECIPT-DAYS.
          IF SY-SUBRC <> 0.
          ENDIF.
       i_recipt-qty   = i_temp-menge.
          I_RECIPT-QTY   = I_MSEG-MENGE.
       i_mbewh-lbkum = i_mbewh-lbkum - i_temp-menge.
          I_MBEWH-LBKUM = I_MBEWH-LBKUM - I_MSEG-MENGE.
     elseif ( i_mbewh-lbkum < i_temp-menge ).
        ELSEIF ( I_MBEWH-LBKUM < I_MSEG-MENGE ).
          I_RECIPT-MATNR = I_MBEWH-MATNR.
          I_RECIPT-BWTAR = I_MBEWH-BWTAR.
       i_recipt-budat = i_temp-budat.
          I_RECIPT-BUDAT = I_MSEG-BUDAT.
*Type Conversion From Sy-datum to type d.
          DATE1 = DATE.
          DATE2 = I_RECIPT-BUDAT.
*Calculation of Difference of dates
          CALL FUNCTION 'SD_DATETIME_DIFFERENCE'
            EXPORTING
              DATE1    = DATE1
              TIME1    = SY-UZEIT
              DATE2    = DATE2
              TIME2    = SY-UZEIT
            IMPORTING
              DATEDIFF = I_RECIPT-DAYS.
          IF SY-SUBRC <> 0.
          ENDIF.
          I_RECIPT-QTY   = I_MBEWH-LBKUM.
          I_MBEWH-LBKUM = '0.00'.
        ENDIF.
        MODIFY I_MBEWH.
        APPEND I_RECIPT.
           exit.
end of changes
      ENDLOOP.
endif.
      IF  I_MBEWH-LBKUM <> '0.00'.
     clear i_temp.
        CLEAR I_MSEG.
      ENDIF.
     endloop.
   endif.
  end of changes
    ENDLOOP.
**********FINAL RECIPT TABLE WITH AGE
    SORT I_RECIPT BY MATNR BWTAR DAYS.
    LOOP AT I_RECIPT.
*Calculation of Fiscal yr for moving price.
      PERFORM PERIOD_CALCULATION USING  I_RECIPT-BUDAT+4(2)
        I_RECIPT-BUDAT+0(4)  I_RECIPT-MONTH
        I_RECIPT-YEAR.
      IF I_RECIPT-BWTAR = 'X'.
        I_RECIPT-BWTAR = ' '.
      ENDIF.
**************Moving Price for All material for all months......
     SELECT  SINGLE VERPR
                VPRSV
                STPRS
                FROM MBEWH
                INTO  (I_RECIPT-VERPR,
                      VPRSV,
                      STPRS )
               WHERE MATNR = I_RECIPT-MATNR
                 AND BWTAR = I_RECIPT-BWTAR
                 AND BWKEY = P_WERKS
                 AND LFMON = I_RECIPT-MONTH
                 AND LFGJA = I_RECIPT-YEAR
                 and lbkum = i_recipt-qty.
     IF SY-SUBRC <> 0.
       SELECT  SINGLE VERPR
                  VPRSV
                  STPRS
                  FROM MBEW
                  INTO  (I_RECIPT-VERPR,
                        VPRSV,
                        STPRS )
                 WHERE MATNR = I_RECIPT-MATNR
                   AND BWKEY = P_WERKS
                 and lbkum = i_recipt-qty.
     ENDIF.
     IF I_RECIPT-VERPR IS INITIAL.
       SELECT SINGLE VERPR
                  VPRSV
                  STPRS
                  FROM EBEWH
                  INTO  (I_RECIPT-VERPR,
                        VPRSV,
                        STPRS )
                 WHERE MATNR = I_RECIPT-MATNR
                   AND BWTAR = I_RECIPT-BWTAR
                   AND BWKEY = P_WERKS
                   AND LFMON = I_RECIPT-MONTH
                   AND LFGJA = I_RECIPT

Answer 1

Never mind. I updated my aperture in app store and it fixed the problem. Thank you.