Custom report -extract MSEG+MKPF and MD04 Entries

Question

Hi,
My Base requirement is to SUM up MB51 quanity values monthly and also MD04 values for same material, plant, monthly dates and upload it to a custom table .
So my code should update monthly a custom table which consists of
Material,Plant ,quantity- SEP 06,quantity-oct 06,quantity- NOV 06 ..... quantity- DEC 07.
For this I picked entries for MB51 like this & later using FM MD_STOCK_REQUIREMENTS_LIST_API to capture MD04 entries.
but with this I can get only one month at a time? What is the good way to update all entries(For all months) at a time?
SELECT MKPFMBLNR MKPFBUDAT MSEGERFMG MSEGBWART MSEGMATNR MSEGWERKS MSEG~MEINS
  INTO CORRESPONDING FIELDS OF TABLE T_MKPF
  FROM MKPF
  INNER JOIN MSEG
  ON MKPFMBLNR EQ MSEGMBLNR
  WHERE MATNR IN S_MATNR
  AND WERKS IN S_WERKS
  AND BUDAT IN S_BUDAT
  AND ( BWART = '101' OR BWART = '102').
  LOOP AT T_MKPF.
    MOVE T_MKPF TO WA_DATA.
    AT END OF MATNR.
      SUM.
      T_DATA-ERFMG = T_MKPF-ERFMG.
      T_DATA-MATNR = WA_DATA-MATNR .
      T_DATA-WERKS = WA_DATA-WERKS.
      T_DATA-BUDAT = WA_DATA-BUDAT.
      T_DATA-MEINS = WA_DATA-MEINS.
      APPEND T_DATA.
      CLEAR T_DATA.
      CLEAR : WA_DATA.
    ENDAT.
  ENDLOOP.
LOOP AT T_DATA.
    CLEAR: V_MATNR, V_PLWRK.
    MOVE T_DATA-MATNR TO V_MATNR.
    MOVE T_DATA-WERKS TO V_PLWRK.
    CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'
      EXPORTING
        MATNR                    = V_MATNR
        WERKS                    = V_PLWRK
      TABLES
        MDEZX                    = T_MDEZ
      EXCEPTIONS
        MATERIAL_PLANT_NOT_FOUND = 1
        PLANT_NOT_FOUND          = 2
        OTHERS                   = 3.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    LOOP AT T_MDEZ WHERE DAT00 IN S_BUDAT.
      IF  T_MDEZ-DELB0 = 'PldOrd' OR  T_MDEZ-DELB0 = 'PurRqs'  OR T_MDEZ-DELB0 = 'POitem' .
        MOVE ABS( T_MDEZ-MNG01 ) TO Y_MNG01.
        ADD Y_MNG01 TO X_MNG01.
        CLEAR: Y_MNG01.
      ENDIF.
    ENDLOOP.
    T_OUTPUT-ERFMG = X_MNG01 + T_DATA-ERFMG.
    SELECT SINGLE MAKTX FROM MAKT
      INTO T_OUTPUT-MAKTX
   WHERE MATNR = T_DATA-MATNR
   AND SPRAS = 'EN'.
    IF SY-SUBRC IS INITIAL.
      MOVE T_DATA-MATNR TO T_OUTPUT-MATNR.
      SHIFT T_OUTPUT-MATNR LEFT DELETING LEADING ZEROS.
      MOVE T_DATA-WERKS TO T_OUTPUT-WERKS.
      MOVE T_DATA-MEINS TO T_OUTPUT-MEINS.
      APPEND T_OUTPUT.
    ENDIF.
    CLEAR: X_MNG01.
  ENDLOOP.
Regards
Praveen
Message was edited by:
        PRAVEEN s

Answer 1

Hi Praveen,
Instead of picking up data from different place's, try to use single view or function module where you will get all required data.
Regards,
Amey