Closing Stock of a Material

Question

If I know the Material Code and Plant then how can I determine the closing stock of that material for a particular date?
I know that from the table MARD I can get the value of today's closing stock. But how can I know any other days closing stock.
This is very urgent.
Regards,
Subhasish

Answer 1

Hi
Check this out.... <b>Though this is for Opening Stock</b>, you can have receipts and issues in that period for the material and then calculate the Closing Stock.
*&      Form  GET_OPENING_STOCK
  ******* USE THIS LOGIC FOR GETTING OPENING STOCK OF A BATCH ******
  ********** THE WAY ITS DONE (TO SOME EXTENT) IN Trxn MB5B **********    
  **************** VERY USEFUL TO GET STOCK FASTER **************
FORM GET_OPENING_STOCK .
  DATA: TOTAL TYPE P DECIMALS 3.
  CLEAR       OPTOT.
  REFRESH: IMARD, G_T_MSEG_LEAN.
  CLEAR:   IMARD, G_T_MSEG_LEAN.
*- Select data from IMARD
  SELECT * FROM MARD INTO CORRESPONDING FIELDS OF TABLE IMARD
                                          WHERE WERKS = P_PLANT-LOW
                                          AND   MATNR = OPBAL-MATNR.
  IF SY-SUBRC = 0.
    READ TABLE IMARD INDEX 1.
    IF SY-SUBRC = 0.
      TOTAL = IMARD-LABST.
    ENDIF.
  ENDIF.
*- Select data from MSEG and MKPF
  SELECT
             MKPF~MBLNR
             MKPF~MJAHR
             MKPF~BLART
             MKPF~BUDAT
             MKPF~CPUDT
             MSEG~MATNR
             MSEG~WERKS
             MSEG~LGORT
             MSEG~CHARG
             MSEG~SHKZG
             MSEG~MENGE
           INTO CORRESPONDING FIELDS OF TABLE G_T_MSEG_LEAN
           FROM MKPF AS MKPF  JOIN MSEG AS MSEG
                    ON MKPFMANDT  =  MSEGMANDT  AND
                       MKPFMBLNR  =  MSEGMBLNR  AND
                       MKPFMJAHR  =  MSEGMJAHR
           WHERE MSEG~MATNR  =   OPBAL-MATNR
             AND MSEG~WERKS  =   P_PLANT-LOW
             AND MSEG~CHARG  =   OPBAL-BATCH
             AND MKPF~BUDAT  GE  P_DATE-LOW.
  SORT  G_T_MSEG_LEAN    BY WERKS MATNR CHARG SHKZG DESCENDING.
  IF NOT G_T_MSEG_LEAN[] IS INITIAL.
    LOOP AT G_T_MSEG_LEAN.
      IF G_T_MSEG_LEAN-SHKZG = 'H'.
        TOTAL = TOTAL + G_T_MSEG_LEAN-MENGE.
      ELSE.
        TOTAL = TOTAL - G_T_MSEG_LEAN-MENGE.
      ENDIF.
    ENDLOOP.
*- Assign Stock
    OPTOT = TOTAL.
  ENDIF.
ENDFORM.                    " GET_OPENING_STOCK
Regards,
Raj