Closing Stock as on date.

Hi All,
I need the information how to get the closing stock of items on a desired date.
help me writing a query for that.
I tried fro that but not able to get it.

Hi,
Try this
select t1.ItemCode,max(t1.dscription) [Name],(sum(isnull(t1.InQty,0)) - sum(isnull(t1.OutQty,0)) ) [ClsStock],(sum(t1.transvalue)) [ClsValue]
from OINM t1
where t1.DocDate >= '[%0]' and t1.DocDate <= '[%1]'
group by
t1.ItemCode
Regards,
Bala

Similar Messages

Storage location wise Opening/Closing Stock on posting date (mb5b)

Hi,
Report mb5b gives opening stock and closing stock as on date. In the selection screen, if we do not enter specific storage location then the opening/closing stock is displayed as sum of all storage location stocks for a given material.
Where as if we enter storage location, it gives storage location specific output. (with Storage loc/batch stock radio button)
My requirement is - without entering storage location in the initial screen, the system should display storage location specific opening/closing stock.
To get this, presently I need to execute mb5b transaction individually for every storage location.
Warm regards,
MS

Hi Madhavi
This report you can have in T code MC.6 and another t code for opening and closing stock in t code MC.9
Regards
Vivek
-- Reward if helpful
Edited by: Supergene on Feb 28, 2008 3:17 PM

Functional Specification For Opening And closing stock On Particular Date

Dear Gurus,
I am creating report for opening and closing stock on particular date in which batch and storage location should also be included. I want to know the tables and fields for the same.I have searched the forum and got report on month basis but I want this report on posting day basis.kindly suggest tables and fields. Thanks in Advance

Dear sir,
There are many other colums that client wants to add which are not present in MB5B transaction.columns which client wants to add are as follows...
Material Number
Material Description
Material Type
Material Group
External material Group
Movement Type
Plant
Storage Location
Customer Number
Customer Name
Vendor Number
Vendor Name
Posting Date     Receipt Doc. Number
Issue Doc. Number
Reference Issue Document Number
Opening Stock Quanity
Material Receipt Quantity
Material Issue Quantity
Material Closing Stock Quantity
Value Of Closing Stock
And for this I want tables and logic for the same. kindly provide the solution for the same.

Opening stock will be the closing stock of previous date

Hi All,
Good day. I am developing an ALV report that will show opening stock(LABST) as well as closing stock(Calculated) for a range of date and materials. Problem here is that from MARD table I am getting only the last opening stock, because it has no common date field with MSEG table. So, I have to calculate the opening stock as the closing stock of previous date. How can I calculate this? Is there any FM to get the opening stock ?
Date          Material            Opening St       Closing St
27.03.2009     2100002          91.000          191.00
28.03.2009     2100002          191.000          123.00
29.03.2009     2100002          123.000          103.00
With regards,
Tripod.
Edited by: Tripod on Aug 23, 2011 12:13 PM

Try not only to use MARD and MKPF/MSEG but also MARDH which contains closing stock of period preceding periods where movements happened. (ie. there is a record for May if a movement happened in June, and none for June if there was no movement in July, and no record exists for August as this is current period) - First look for MARD, MARDH records; and then only read MKPF/MSEG from last MARDH record found. (created back to 4.5A - [Material Master (Industry/Retail): Enhancements to Period Closing|http://help.sap.com/saphelp_45b/helpdata/en/35/b0e7ef87a62488e10000009b38f9b7/content.htm])
Regards,
Raymond

Negative closing stock on back date

All SAP Gurus,
We have made GR (MIGO) on todays posting date.
And issued the material on yesterday's posting date (past date), (where there was no stock on that date).
System allowed us to issue the material on past date, on which there was no stock.
And now showing closing stock on previous date as negative.
We want to avoid such negative closing stock.
What configuarational changes we need to do?
Regards,

hi
This is standard functionality .. u can not do anything in std. as there is no error message available for this
u can do one thing In OMSY u can remove remove the check mark in the ABp (Allow Back Posting) check box for your Company Code, to stop postings in the closed periods.
or in MMRV do not tick posting in previous period
Vishal.....

Closing Stock on Particular Date(MB5B Tcode)

Hi Experts,
I need closing stock as on some particular date. For e.g. closing stock as on 28.02.2014.
In my requirement i have to use that closing stock value for further calculations in a new customized report.I can see closing stock value by using MB5B tcode.
Please suggest some way to get closing stock as on some date so that i can use that in my Report.
Can i directly call MB5B transaction in my Report and get closing stock value?
Thanks & Regards,
Pankaj

Hello Pankaj,
In your Customised Report use MKPF and MSEG table
MKPF -----> Material and date range as the input
Then Pass Material document number from MKPF to MSEG table
MSEG -----> based on material document number from mkpf
Create Temporary variable
values comes from the mseg where have credit and debit entries
if debit entry "S" then subtract the values of the Mseg table from the temporary variable1
if credit entry "H" then Add the values of the mseg table to the temporary variable2
finally Add the temporary variable1 and temporary variable 2 and get the total stock.

Storage location wise opening, closing stock...date wise...report

Hi all Experts,
I am at client site and hav to provide a report containing opening, and closing stock (and issue qty if possible) storage location wise and date option wise.pls help
regards
vikas chhabra

Hi,
Use MB51 for date wise report
OR
Use MCL1, MCL5, MCL9, MCLD (If Warehouse Management you are using)
OR
You have to develop an own ABAP report.
Regards,
Biju K

Closing Stock of a particular date:Function Module

Hello Experts,
I m developig a report in which I want Closing Stock amount of a particular date.
Is there any funtion module for this, as in tables S031, mard I m getting Closing Stock as on date.
Pls suggest
Priyanka

Hi Priyanka,
I didnt find any function module for this purpose.
You can create your FM for this purpose.
You can refer following thread for the reference:
Re: closing stock of a particular date
Closing Stock of a Material
Re: Stock on a particulare date
Hope this will help.
Regards,
Nitin.

Closing stock report with GRPO

Hai all
Please help me to write this query,
For example
I have query to take closing stock report ,but my requirement is ,i want split up for Closing stock and closingvalue
like, if i have 40 closing stock means i want details how 40 is arrived
for example i run closing stock report as on 2009-03-31
means i want this format
Itemcode ClosingStock Closing value
ITM001         40                460
ITM002         20                210.......
ItemCode GRPOno. VendorCode quantity Rate GRPO Date
ITM001        10001          V0001      10       10      2009-02-01
ITM001        10002          V0002      20       11     2009-03-15
ITM001        10003          V0003      10       14    2009-03-31
ITM002        10021          V0011      10       10      2009-02-11
ITM002        10022          V0015      10       11     2009-03-14

Hai Jeyakanthan A
I want small change in your query
SELECT T0.ItemCode,T0.TransType, SUM(T0.InQty)-SUM(T0.OutQty) AS 'Closing Stock',SUM(T0.OpenValue) as 'Balance' FROM OINM T0
*where docdate <= '[%0]'*
GROUP BY T0.ItemCode,T0.TransType
Having
T0.TransType = 20 ORDER BY T0.ItemCode,T0.TransType
I tried this query for taking closing stock for given date, its giving me correct result
SELECT T0.ItemCode, T0.Ref1, T0.CardCode, T0.InQty, T0.Price, T0.DocDate FROM OINM T0 WHERE T0.TransType = 20 AND
(T0.DocDate >= '[%0]' AND
T0.DocDate <= '[%1]') ORDER BY T0.ItemCode, T0.Ref1, T0.CardCode, T0.InQty, T0.Price, T0.DocDate
In this query i want only the GRPO no,date,price.... for closing stock quantity
Edited by: Prasanna s on May 14, 2009 12:39 PM

CLOSING STOCK FOR A GIVEN PERIOD

hi all,
I have to design a report to find out the closing stock.How to find out closing stock for say 1st nov to 15th nov.In MBEW and MCHB , i am getting closing stock as on date. please help me out if there are any tables or any other way out through function modules.
Regards,
Devina

hi,
I will check that t code.
thanks and regards,
Devina

Open stock and closing stock

Hi
how to findout open stock for the date and closing stock .

hi
good
DATA : it_mard LIKE mard OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF t_mard OCCURS 0 ,
matnr LIKE mseg-matnr,
labst LIKE mard-labst,
END OF t_mard.
DATA : it_mardh TYPE mardh.
DATA : buper LIKE t009b-poper,
gjahr LIKE t009b-bdatj.
DATA : p_buper LIKE t009b-poper,
p_gjahr LIKE t009b-bdatj.
DATA : dt LIKE sy-datum.
*CLOSING STOCK OF PREVIOUS PERIOD
dt = sy-datum.
*get current period
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
EXPORTING
i_date = dt
i_periv = 'M3' "apr to march 4 spl periods
IMPORTING
e_buper = buper
e_gjahr = gjahr
EXCEPTIONS
input_false = 1
t009_notfound = 2
t009b_notfound = 3
OTHERS = 4.
*fetch previous period
CALL FUNCTION 'CKML_F_GET_PREVIOUS_PERIOD'
EXPORTING
input_period = buper
input_year = gjahr
input_periv = 'M3'
IMPORTING
previous_period = p_buper
previous_year = p_gjahr.
SELECT SINGLE * FROM mardh
WHERE matnr = p_matnr
AND werks = p_werks
AND lfmon = p_buper
AND lfgja = p_gjahr.
IF sy-subrc = 0.
CLOSING STOCK = mardh-labst.
ENDIF.
*to calculate current stock-----
SELECT * FROM mard
INTO CORRESPONDING FIELDS OF TABLE it_mard
WHERE matnr = it_marc-matnr
AND werks = p_werks.
IF NOT it_mard[] IS INITIAL.
LOOP AT it_mard.
t_mard-matnr = it_mard-matnr.
t_mard-labst = it_mard-labst.
COLLECT t_mard.
ENDLOOP.
READ TABLE t_mard INDEX 1.
CURRENT STOCK= t_mard-labst.
ENDIF.
thanks
mrutyun^

MB5B Report table for Open and Closing stock on date wise

Hi Frds,
I am trying get values of Open and Closing stock on date wise form the Table MARD and MBEW -Material Valuation but it does not match with MB5B reports,
Could anyone suggest correct table to fetch the values Open and Closing stock on date wise for MB5B reports.
Thanks
Mohan M

Hi,
Please check the below links...
Query for Opening And Closing Stock
Inventory Opening and Closing Stock
open stock and closing stock
Kuber

Opening and closing Stock report at Storage location level- date wise

Dear all
Is there any standard report to view opening and closing stock at storage location level? ( we have MB5B which resets the entry screen if we enter SLOC details).
Thanks
Sam

Do I have the option of selecting Storage Location wise opening and closing stock on a particular date or period, that is what I have requested? Is it possible, evenafter selecting storageloc/batch stock and entering all the SLOCs in the selection creen, the report output does not contain any SLOC, and using ctrl+F8 or display variant does not have SLOC as a field also.
pls gudie
sam

Closing stock of a particular date

how to get plant wise material closing stock on any particular date. say previous months end date. I am calculating that from MSEG table with the help of MSEGINSMK and MSEGSHKZG field. (with date filtaration by joining MBLNR of MKPF table) But stock is showing different with the closing stock showing in MB5B report for that date. I don't know which BWART of MSEG table to be excluded. My email id is [email protected]

Hi,
This is a stock aging report, you can use this for reference.
Logic: Based on current stock and value from MBEW table. The latest receipt dates were taken till the qty tallies off.Rejections and reversals are considered.
The movement types considered are ('101','102','105','106','122','123','131','132','301','302','309','310','501','502','531','532','561','562','701','702').
*& Report ZMM03_TRY                                                 *
REPORT ZMM03 LINE-SIZE 226
               LINE-COUNT 35(2)
                NO STANDARD PAGE HEADING..
TABLES : S032, "Current Stock And Grouping Terms
         MBEW, "Material Valuation
         T023T, "Material Group Desc.
         MAKT, "Material Description
         EKPO. "Purchasing Document Item.
DATA : BEGIN OF T_HEADER OCCURS 0,
       MTART LIKE MARA-MTART,
       MATNR LIKE MBEW-MATNR,
       BWKEY LIKE MBEW-BWKEY,
       MATKL LIKE MARA-MATKL,
       MAKTX LIKE MAKT-MAKTX,
       MEINS LIKE MARA-MEINS,
       LBKUM LIKE MBEW-LBKUM,
       SALK3 LIKE MBEW-SALK3,
       VERPR LIKE MBEW-VERPR,
       CLSTK LIKE MBEW-LBKUM,
       CLVAL LIKE CKMLCR-SALK3,
       UNIT LIKE CKMLCR-PVPRS,
       END OF T_HEADER.
DATA : BEGIN OF T_MSEG OCCURS 0,
       MATNR LIKE MSEG-MATNR,
       WERKS LIKE MSEG-WERKS,
       BUDAT LIKE MKPF-BUDAT,
       MBLNR LIKE MKPF-MBLNR,
       MJAHR LIKE MKPF-MJAHR,
       ZEILE LIKE MSEG-ZEILE,
       LFBNR LIKE MSEG-LFBNR,
       LFBJA LIKE MSEG-LFBJA,
       LFPOS LIKE MSEG-LFPOS,
       BWART LIKE MSEG-BWART,
       MENGE LIKE MSEG-MENGE,
       EBELN LIKE MSEG-EBELN,
       EBELP LIKE MSEG-EBELP,
       XAUTO LIKE MSEG-XAUTO,
       UMMAT LIKE MSEG-UMMAT,
       UMWRK LIKE MSEG-UMWRK,
       MARK(1),
       END OF T_MSEG.
TYPE-POOLS : SLIS.
DATA : L_STOCK TYPE MSEG-MENGE.
DATA : WA_MSEG LIKE T_MSEG.
DATA : WA_MSEG1 LIKE T_MSEG.
DATA : T_ITEMS LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : T_CUR_STOCK LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : L_LBKUM TYPE MBEW-LBKUM.
DATA : BEGIN OF T_OUTPUT OCCURS 0,
         WERKS LIKE MSEG-WERKS,
         MATNR LIKE MSEG-MATNR,
         BUDAT LIKE MKPF-BUDAT,
         MENGE LIKE MSEG-MENGE,
         PDAYS TYPE I,
         PVAL TYPE MSEG-MENGE,
         MAKTX LIKE MAKT-MAKTX,
         CQTY LIKE MSEG-MENGE,
         CPRC LIKE MBEW-SALK3,
       END OF T_OUTPUT.
DATA: GRID_TAB TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA : T_SORT TYPE SLIS_T_SORTINFO_ALV,
       WA_SORT TYPE SLIS_SORTINFO_ALV.
*AT SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-014.
SELECTION-SCREEN SKIP 1.
PARAMETERS : P_DATE LIKE S032-LETZTABG OBLIGATORY DEFAULT SY-DATUM.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-015.
PARAMETERS     : P_WERKS    TYPE S032-WERKS OBLIGATORY.
SELECT-OPTIONS : S_LGORT    FOR S032-LGORT,
                 S_MATNR    FOR S032-MATNR.
SELECTION-SCREEN END OF BLOCK 2.
SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE TEXT-016.
SELECT-OPTIONS : S_MTART    FOR S032-MTART,
                 S_MATKL    FOR S032-MATKL.
SELECTION-SCREEN END OF BLOCK 3.
IF P_DATE IS INITIAL AND
    P_WERKS IS INITIAL AND
    S_LGORT IS INITIAL AND
    S_MATNR IS INITIAL AND
    S_MTART IS INITIAL AND
    S_MATKL IS INITIAL.
MESSAGE I398(00) WITH 'Enter Selection Critirea'(019).
SY-SUBRC = '1'.
ELSE.
SELECT AMATNR ABWKEY BMATKL BMTART CMAKTX BMEINS A~LBKUM
         A~SALK3
       INTO CORRESPONDING FIELDS OF TABLE T_HEADER
       FROM MBEW AS A INNER JOIN MARA AS B ON AMATNR = BMATNR
                      INNER JOIN MAKT AS C ON AMATNR = CMATNR
                                        WHERE A~MATNR IN S_MATNR
                                          AND A~BWKEY EQ P_WERKS
                                          AND MATKL IN S_MATKL
                                          AND MTART IN S_MTART
                                          AND BWTAR EQ ' '
                                          AND C~SPRAS = SY-LANGU.
IF SY-SUBRC EQ 0.
    SELECT ABUDAT AMBLNR AMJAHR BZEILE BMATNR BWERKS B~BWART
           BMENGE BLFBNR BLFBJA BLFPOS BEBELN BEBELP B~XAUTO
           BUMMAT BUMWRK
        INTO CORRESPONDING FIELDS OF TABLE T_MSEG
        FROM MKPF AS A INNER JOIN MSEG AS B ON AMBLNR = BMBLNR
                                           AND AMJAHR = BMJAHR
         FOR ALL ENTRIES IN T_HEADER
                                         WHERE A~BUDAT <= P_DATE
                                           AND B~MATNR = T_HEADER-MATNR
                                           AND B~WERKS = T_HEADER-BWKEY
                                           AND B~BWART IN ('101',
                                                           '102',
                                                           '105',
                                                           '106',
                                                           '122',
                                                           '123',
                                                           '301',
                                                           '302',
                                                           '701',
                                                           '702',
                                                           '131',
                                                           '132',
                                                           '309',
                                                           '310',
                                                           '501',
                                                           '502',
                                                           '531',
                                                           '532',
                                                           '561',
                                                           '562').
    PERFORM GET_DEAD_STOCK.
    PERFORM DISPLAY_OUTPUT.
ELSE.
    MESSAGE S398(00) WITH 'No Data found for'(013)
    'Given Selection Critirea'(017).
    LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
*&      Form get_dead_stock
      text
FORM GET_DEAD_STOCK .
LOOP AT T_HEADER.
    SORT T_MSEG BY MATNR WERKS BUDAT DESCENDING MBLNR DESCENDING.
    LOOP AT T_MSEG WHERE MATNR = T_HEADER-MATNR
                     AND WERKS = T_HEADER-BWKEY
                     AND ( BWART = '101' OR
                           BWART = '105' OR
                           BWART = '501' OR
                           BWART = '531' OR
                           BWART = '561' OR
                           BWART = '701' OR
                           BWART = '309' OR
                           BWART = '301' OR
                           BWART = '131' ).
      IF T_MSEG-BWART = 101.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 102.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 122.
        IF SY-SUBRC = 0.
          READ TABLE T_MSEG INTO WA_MSEG1 WITH KEY LFBNR = WA_MSEG-MBLNR
                                     LFBJA = WA_MSEG-MJAHR
                                     LFPOS = WA_MSEG-ZEILE
                                     BWART = 123.
          IF SY-SUBRC EQ 0.
            WA_MSEG-MARK = 'X'.
            MODIFY T_MSEG FROM WA_MSEG.
            CONTINUE.
          ELSE.
            IF T_MSEG-MENGE EQ WA_MSEG-MENGE.
              T_MSEG-MARK = 'X'.
              MODIFY T_MSEG.
              CONTINUE.
            ELSE.
              T_MSEG-MENGE = T_MSEG-MENGE - WA_MSEG-MENGE.
              MODIFY T_MSEG.
            ENDIF.
          ENDIF.
        ENDIF.
      ELSEIF T_MSEG-BWART = 105.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 106.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 131.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 132.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 501.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 502.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 301.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 302.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 531.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 532.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 561.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 562.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 701.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 702.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 309.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 310.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ELSEIF T_MSEG-XAUTO = ' '.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ELSEIF T_MSEG-MATNR EQ T_MSEG-UMMAT.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ENDIF.
      SELECT SINGLE EBELN INTO EKPO-EBELN FROM EKPO
                         WHERE EBELN = T_MSEG-EBELN
                           AND EBELP = T_MSEG-EBELP
                           AND KNTTP = 'K'.
      IF SY-SUBRC = 0.
        T_MSEG-MARK = 'X'.
        MODIFY T_MSEG.
        CONTINUE.
      ENDIF.
     TMENGE = TMENGE - t_mseg-MENGE.
    ENDLOOP.
ENDLOOP.
DELETE T_MSEG WHERE MARK = 'X'.
DELETE T_MSEG WHERE ( BWART = '102' OR
                        BWART = '106' OR
                        BWART = '502' OR
                        BWART = '532' OR
                        BWART = '562' OR
                        BWART = '702' OR
                        BWART = '310' OR
                        BWART = '302' OR
                        BWART = '123' OR
                        BWART = '122' OR
                        BWART = '132' ).
SORT T_HEADER BY MATNR BWKEY.
DELETE ADJACENT DUPLICATES FROM T_HEADER COMPARING MATNR BWKEY.
T_CUR_STOCK[] = T_MSEG[].
SORT T_CUR_STOCK BY MATNR WERKS.
LOOP AT T_CUR_STOCK.
    WA_MSEG = T_CUR_STOCK.
    AT END OF WERKS.
    ENDAT.
ENDLOOP.
LOOP AT T_HEADER.
    CLEAR L_LBKUM.
    L_LBKUM = T_HEADER-LBKUM.
    REFRESH T_ITEMS.
    CLEAR T_ITEMS.
    LOOP AT T_MSEG WHERE MATNR EQ T_HEADER-MATNR
                     AND WERKS EQ T_HEADER-BWKEY.
      T_ITEMS = T_MSEG.
      APPEND T_ITEMS.
      CLEAR T_ITEMS.
    ENDLOOP.
    SORT T_ITEMS BY BUDAT DESCENDING
                    MBLNR DESCENDING.
    CLEAR L_LBKUM.
    LOOP AT T_ITEMS.
      L_LBKUM = T_ITEMS-MENGE - T_HEADER-LBKUM.
      IF L_LBKUM GE 0.
        T_OUTPUT-MATNR = T_HEADER-MATNR.
        T_OUTPUT-WERKS = T_HEADER-BWKEY.
        T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
        T_OUTPUT-MENGE = T_HEADER-LBKUM.
        APPEND T_OUTPUT.
        CLEAR T_OUTPUT.
        EXIT.
      ELSE.
        T_HEADER-LBKUM = T_HEADER-LBKUM - T_ITEMS-MENGE.
        T_OUTPUT-MATNR = T_HEADER-MATNR.
        T_OUTPUT-WERKS = T_HEADER-BWKEY.
        T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
        T_OUTPUT-MENGE = T_ITEMS-MENGE.
        APPEND T_OUTPUT.
        CLEAR T_OUTPUT.
        CONTINUE.
      ENDIF.
    ENDLOOP.
ENDLOOP.
ENDFORM.                    " get_dead_stock
*&      Form DISPLAY_OUTPUT
      text
FORM DISPLAY_OUTPUT .
DATA: L_DAYS TYPE I.
DATA : WA_OUTPUT LIKE T_OUTPUT.
DATA : T_FINAL LIKE T_OUTPUT OCCURS 0 WITH HEADER LINE.
DATA : WA_FINAL LIKE T_OUTPUT.
DATA : L_CQTY TYPE MSEG-MENGE,
         L_CPRC TYPE MBEW-SALK3.
DATA : L_TITLE TYPE LVC_TITLE.
DATA : L_NAME1 TYPE T001W-NAME1.
*C-- Not to output when the quantity is zero.
DELETE T_OUTPUT WHERE MENGE EQ 0.
SORT T_OUTPUT BY WERKS MATNR BUDAT.
LOOP AT T_OUTPUT.
    T_FINAL = T_OUTPUT.
    AT NEW MATNR.
      CLEAR T_HEADER.
      READ TABLE T_HEADER WITH KEY MATNR = T_OUTPUT-MATNR
                                   BWKEY = T_OUTPUT-WERKS.
    ENDAT.
    T_FINAL-MAKTX = T_HEADER-MAKTX.
    IF T_HEADER-LBKUM GT 0.
      T_FINAL-PVAL = ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
    ELSE.
      CLEAR T_FINAL-PVAL.
    ENDIF.
    L_CQTY = L_CQTY + T_OUTPUT-MENGE.
    IF T_HEADER-LBKUM GT 0.
      L_CPRC = L_CPRC + ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
    ENDIF.
    CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
      EXPORTING
        BEG_DA        = T_OUTPUT-BUDAT
        END_DA        = P_DATE
      IMPORTING
        NO_CAL_DAY    = L_DAYS
      EXCEPTIONS
        DATEINT_ERROR = 1
        OTHERS        = 2.
    IF SY-SUBRC <> 0.
      WRITE : 70 'Error While Calculating days'(018) .
    ELSE.
      T_FINAL-PDAYS = L_DAYS.
    ENDIF.
    T_FINAL-CQTY = L_CQTY.
    T_FINAL-CPRC = L_CPRC.
    APPEND T_FINAL.
    AT END OF MATNR.
      CLEAR : L_CPRC, L_CQTY.
    ENDAT.
ENDLOOP.
PERFORM BUILD_FIELD_CATALOG.
WA_SORT-FIELDNAME = 'MATNR'.
WA_SORT-SPOS = '1'.
APPEND WA_SORT TO T_SORT.
SELECT SINGLE NAME1 FROM T001W INTO L_NAME1
WHERE WERKS = P_WERKS.
CONCATENATE 'Plant: ' P_WERKS ',' L_NAME1 INTO L_TITLE.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-CPROG
      I_GRID_TITLE       = L_TITLE
      IT_FIELDCAT        = GRID_TAB[]
      IT_SORT            = T_SORT
      I_SAVE             = 'A'
    TABLES
      T_OUTTAB           = T_FINAL[].
SORT T_FINAL BY WERKS MATNR BUDAT.
LOOP AT T_FINAL.
   WRITE : /10 T_FINAL-MATNR.
   WRITE : 30 T_FINAL-WERKS.
   WRITE : 40 T_FINAL-BUDAT.
   WRITE : 50 T_FINAL-MENGE.
**C-- FM to find the number of days between
**C-- todays date and the posting date
   CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
     EXPORTING
       BEG_DA        = T_FINAL-BUDAT
       END_DA        = P_DATE
     IMPORTING
       NO_CAL_DAY    = L_DAYS
     EXCEPTIONS
       DATEINT_ERROR = 1
       OTHERS        = 2.
   IF SY-SUBRC <> 0.
     WRITE : 70 'Error While Calculating days'(018) .
   ELSE.
     WRITE : 70 L_DAYS.
   ENDIF.
   AT END OF MATNR.
     ULINE.
     READ TABLE T_HEADER WITH KEY MATNR = T_FINAL-MATNR
                                  BWKEY = T_FINAL-WERKS.
     IF SY-SUBRC EQ 0.
       WRITE : /1 'Total Valuated Stock', T_HEADER-LBKUM.
       WRITE : /1 'Value of total valuated Stock', T_HEADER-SALK3.
       ULINE.
     ENDIF.
   ENDAT.
ENDLOOP.
ENDFORM.                    " DISPLAY_OUTPUT
*&      Form BUILD_FIELD_CATALOG
      text
--> p1        text
<-- p2        text
FORM BUILD_FIELD_CATALOG .
DATA : CNT1 TYPE I.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Material'.
GRID_TAB-FIELDNAME = 'MATNR'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Material Description'.
GRID_TAB-FIELDNAME = 'MAKTX'.
GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Date of Reciept'.
GRID_TAB-FIELDNAME = 'BUDAT'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Quantity'.
GRID_TAB-FIELDNAME = 'MENGE'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Pending Days'.
GRID_TAB-FIELDNAME = 'PDAYS'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Value'.
GRID_TAB-FIELDNAME = 'PVAL'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Cumulative Quantity'.
GRID_TAB-FIELDNAME = 'CQTY'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Value of Cumulative Quantity'.
GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-FIELDNAME = 'CPRC'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
ENDFORM.                    " BUILD_FIELD_CATALOG

Tables/FM for opening/closing stock for material on given posting date

Hi All,
I had requirement of find the opening/closing stock for material on given posting date. The values we can find out using TCode - MB5B.
But I cannt use MB5B to extract data because I need to find detials for thousands of material.
Can you please adivce if their is any FM or tables through which i can find this detial on any given date apart from current date.
Thanks & Regards,

Hi,
[https://forums.sdn.sap.com/click.jspa?searchID=19631709&messageID=6593903]
[https://forums.sdn.sap.com/click.jspa?searchID=19631709&messageID=6630975]

Closing Stock as on date.

Similar Messages

Maybe you are looking for