How to get a opening stock of a material on a particular date

Question

Hi,
Could you pls provide me the logic of how to get the opening stock of the material on a particular date. I searched the forum and found the logic to fetch the closing stock at a given period but not for a date.
An immediate response would be really appreciated.
Thanks
Harris

Answer 1

Dear,
Please read following part of my code
FORM GET_OPENING .
   IF IT_FINAL[] IS NOT INITIAL.
     SELECT *  FROM MARD
       INTO CORRESPONDING FIELDS OF TABLE IT_MARD
       FOR ALL ENTRIES IN IT_FINAL
       WHERE MATNR = IT_FINAL-MATNR
       AND   WERKS = '1000'.
     SELECT A~MBLNR A~MJAHR A~BUDAT B~WAERS B~ZEILE B~BWART B~MATNR B~WERKS B~LGORT B~CHARG B~SHKZG B~MENGE B~MEINS B~BUSTM B~XAUTO
       INTO CORRESPONDING FIELDS OF TABLE IT_MKPF
       FROM  MKPF AS A JOIN MSEG AS B
       ON A~MANDT = B~MANDT
       AND A~MBLNR = B~MBLNR
       AND A~MJAHR = B~MJAHR
       FOR ALL ENTRIES IN IT_FINAL
       WHERE B~MATNR = IT_FINAL-MATNR
       AND   A~BUDAT GE P_BUDAT-LOW
       AND   B~WERKS = '1000'.
   ENDIF.
   AKTDAT = SY-DATLO + 30.
   IF NOT ( P_BUDAT-HIGH IS INITIAL OR P_BUDAT-HIGH > AKTDAT ).
     LOOP AT IT_MKPF INTO WA_MKPF WHERE BUDAT > P_BUDAT-HIGH.
       MOVE-CORRESPONDING WA_MKPF TO IT_MKPF1.
       APPEND IT_MKPF1.
       DELETE IT_MKPF.
     ENDLOOP.
   ENDIF.
   SORT IT_MKPF1 BY WERKS MATNR SHKZG.
   LOOP AT IT_MKPF1.
     IF ( IT_MKPF1-XAUTO IS INITIAL ) OR
         ( IT_MKPF1-BUSTM <> 'MA02' AND  IT_MKPF1-BUSTM <> 'MA05' ) .
       MOVE-CORRESPONDING IT_MKPF1 TO IT_MAT.
       COLLECT IT_MAT.
     ELSE.
       DELETE IT_MKPF1.
     ENDIF.
   ENDLOOP.
   SORT IT_MKPF BY WERKS MATNR SHKZG DESCENDING.
   LOOP AT IT_MKPF INTO WA_MKPF.
     IF ( WA_MKPF-XAUTO IS INITIAL ) OR
        ( WA_MKPF-BUSTM <> 'MA02' AND
        WA_MKPF-BUSTM <> 'MA05' ).
       MOVE-CORRESPONDING WA_MKPF TO T_MAT.
       COLLECT T_MAT.
     ELSE.
       DELETE IT_MKPF.
     ENDIF.
   ENDLOOP.
   LOOP AT IT_MARD.
     CLEAR IT_MAT-MENGE.
     MOVE-CORRESPONDING IT_MARD TO FINAL.
     READ TABLE IT_MAT WITH KEY WERKS = IT_MARD-WERKS
                                LGORT = IT_MARD-LGORT
                                MATNR = IT_MARD-MATNR
                                SHKZG = 'S'.
     FINAL-ENDMENGE = IT_MARD-LABST + IT_MARD-INSME + IT_MARD-SPEME + IT_MARD-EINME + IT_MARD-RETME - IT_MAT-MENGE.
     CLEAR IT_MAT-MENGE.
     READ TABLE IT_MAT WITH KEY WERKS = IT_MARD-WERKS
                                LGORT = IT_MARD-LGORT
                                MATNR = IT_MARD-MATNR
                                SHKZG = 'H'.
     FINAL-ENDMENGE = FINAL-ENDMENGE + IT_MAT-MENGE.
     COLLECT FINAL.
   ENDLOOP.
   LOOP AT FINAL.
     CLEAR T_MAT-MENGE.
     READ TABLE T_MAT WITH KEY WERKS = FINAL-WERKS
                                MATNR = FINAL-MATNR
                                SHKZG = 'S'.
     MOVE T_MAT-MENGE TO FINAL-SOLL.
     CLEAR T_MAT-MENGE.
     READ TABLE T_MAT WITH KEY WERKS = FINAL-WERKS
                                MATNR = FINAL-MATNR
                                SHKZG = 'H'.
     MOVE T_MAT-MENGE TO FINAL-HABEN.
     FINAL-ANFMENGE = FINAL-ENDMENGE - FINAL-SOLL + FINAL-HABEN.
     MODIFY FINAL.
   ENDLOOP.
   LOOP AT FINAL.
     WA_FINAL1-MATNR = FINAL-MATNR.
     WA_FINAL1-MEINS = FINAL-MEINS.
     WA_FINAL1-OP_MENGE = FINAL-ANFMENGE.
     WA_FINAL1-RE_MENGE = FINAL-SOLL.
     WA_FINAL1-IS_MENGE = FINAL-HABEN.
     WA_FINAL1-CL_MENGE = FINAL-ENDMENGE.
*  WA_FINAL-LGORT = FINAL-LGORT.
*    READ TABLE IT_MAKT WITH KEY MATNR = FINAL-MATNR.
*    MOVE IT_MAKT-MAKTX TO WA_FINAL-MAKTX.
     APPEND WA_FINAL1 TO IT_FINAL1.
   ENDLOOP.
ENDFORM.                    " GET_OPENING