Opening stock of a month

Question

Hi All,
I got this code from SDN for closing and opening stock,but it is not showing any out put can any one check this once.
tables:mardh.
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 type c,
       CURRENT_STOCK type c.
parameters : P_werks like mardh-werks.
*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_mard-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.

Answer 1

Hi,
You can use MBEWH (history stock) and MBEW( current stock) for the valuated stock report. If you want to take details of transaction, you might have to go to MKPF+MSEG tables.
Thanks and regards,
S. Chandra mouli.