How to generate Inventory Report to display all details at end of mon/yr?

Question

Hi Guys..
I would like to know how we can generate a
Inventory report to display all inventory details at the end of every
month or year?
Also, another question.How can we create a PO past delivery date report?
Any help is appreciated.
Thanks,
Sri Harsha;

Answer 1

Hi,
Pls the code here-
TYPES :
        BEGIN OF ty_mard,
          matnr TYPE matnr,
          werks TYPE werks_d,
          lgort TYPE lgort_d,
          labst TYPE labst,
          retme TYPE retme,
          umlme TYPE umlme,
        END OF ty_mard.
TYPES :
       BEGIN OF ty_mska,
          matnr TYPE matnr,
          kalab TYPE labst,
          vbeln TYPE vbeln,
          posnr TYPE posnr,
        END OF ty_mska.
TYPES :
        BEGIN OF ty_vbap,
          matnr TYPE matnr,
          kwmeng TYPE kwmeng,
          pstyv TYPE pstyv,
        END OF ty_vbap.
TYPES :
        BEGIN OF ty_mbew,
          matnr TYPE matnr,
          salk3 TYPE salk3,
          stprs TYPE stprs,
        END OF ty_mbew.
TYPES :
        BEGIN OF ty_mchb,
          matnr TYPE matnr,
          charg TYPE charg_d,
        END OF ty_mchb.
TYPES :
        BEGIN OF ty_mara,
          matnr TYPE matnr,
          mfrpn TYPE mfrpn,
        END OF ty_mara.
TYPES :
       BEGIN OF ty_makt,
         matnr TYPE matnr,
         maktx TYPE maktx,
       END OF ty_makt.
TYPES :
        BEGIN OF ty_ekpo,
         matnr TYPE matnr,
         netpr TYPE bprei,
         meins TYPE bstme,
        END OF ty_ekpo.
DATA :
       BEGIN OF final OCCURS 0,
        matnr LIKE mard-matnr,
        maktx LIKE makt-maktx,
        werks LIKE mard-werks,
        lgort LIKE mard-lgort,
        mfrpn LIKE mara-mfrpn,
        usp LIKE mbew-stprs,
        labst LIKE mard-labst,
        salk3 LIKE mbew-salk3,
        kalab LIKE mska-kalab,
        vbeln LIKE mska-vbeln,
        sov LIKE ekpo-netpr,
        uom LIKE ekpo-meins,
        posnr LIKE mska-posnr,
        pstyv LIKE vbap-pstyv,
        kwmeng LIKE vbap-kwmeng,
        retme LIKE mard-retme,
        umlme LIKE mard-umlme,
       END OF final.
DATA :
      BEGIN OF itab OCCURS 0,
        matnr LIKE mard-matnr,
        werks LIKE mard-werks,
        lgort LIKE mard-lgort,
        labst LIKE mard-labst,
        retme LIKE mard-retme,
        umlme LIKE mard-umlme,
        charg LIKE mchb-charg,
      END OF itab.
DATA :
       i_mard TYPE STANDARD TABLE OF ty_mard,
       i_mbew TYPE STANDARD TABLE OF ty_mbew,
       i_mchb TYPE STANDARD TABLE OF ty_mchb,
       i_mara TYPE STANDARD TABLE OF ty_mara,
       i_vbap TYPE STANDARD TABLE OF ty_vbap,
       i_mska TYPE STANDARD TABLE OF ty_mska,
       i_makt TYPE STANDARD TABLE OF ty_makt,
       i_ekpo TYPE STANDARD TABLE OF ty_ekpo.
DATA :
       wa_mard TYPE ty_mard,
       wa_mbew TYPE ty_mbew,
       wa_mchb TYPE ty_mchb,
       wa_mara TYPE ty_mara,
       wa_vbap TYPE ty_vbap,
       wa_mska TYPE ty_mska,
       wa_makt TYPE ty_makt,
       wa_ekpo TYPE ty_ekpo.
DATA :
       sov_total TYPE currency,
       urestrict_total type currency.
*Select options:
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR gf_matnr, " Material No.
                 s_werks FOR gf_werks, " Plant
                 s_lgort FOR gf_lgort, " Storage Location
                 s_charg FOR gf_charg. " Batch No.
SELECTION-SCREEN END OF BLOCK a.
*Validation of Selection Fields
AT SELECTION-SCREEN.
  IF     s_matnr IS INITIAL
     AND s_werks IS INITIAL
     AND s_lgort IS INITIAL
     AND s_charg IS INITIAL.
    MESSAGE e001(zcir).
  ENDIF.
*Function Module for Checking the inputs
  CALL FUNCTION 'MMIM_ENTRYCHECK_MAIN'
    TABLES
      it_matnr = s_matnr
      it_werks = s_werks
      it_lgort = s_lgort.
*Checking of input values for S_CHARG
  IF NOT s_charg-low IS INITIAL OR NOT s_charg-high IS INITIAL.
    SELECT charg FROM mchb into table LT_charg WHERE charg IN s_charg.
    IF sy-subrc NE 0.
      MESSAGE e002(zcir).
    ENDIF.
    clear wa_mchb.
  ENDIF.
*TOP OF PAGE
TOP-OF-PAGE.
  FORMAT COLOR COL_HEADING.
  WRITE sy-uline(105).
  WRITE :/ '|',2 text-101, "MATERIAL NO:
         16 text-102,    "MATERIAL DESCRIPTION
         52 text-103,    "PLANT
         60 text-104,    "STORAGE LOCATION.
         74 text-105,    "MANUFACTURE PARTNER NO.
         88 text-106,    "VALUATED STOCK.
         95 text-107.    "STANDARD PRICE.
        105 '|'.
  FORMAT COLOR COL_GROUP.
  WRITE :/ '|',2 text-108, " UNRESTRCTED STOCK
          16 text-109,     " SALES DOCUMENT NO:
          20 text-110,     " ITEM NO:
          27 text-111,     " UNIT
          32 text-112,     " NET VALUE
          39 text-113,     " ITEM CATEGRY
          50 text-114,     " QUANTITY
          60 text-115,     " BLOCKED STOCK
          79 text-116,     " TOTAL STOCK
          95 text-117.     " STOCK TRANSFER
         87 '|'.
  FORMAT COLOR OFF.
  WRITE sy-uline(105).
*START OF SELECTION
START-OF-SELECTION.
  IF NOT s_matnr IS INITIAL
    OR NOT s_werks IS INITIAL
    OR NOT s_lgort IS INITIAL.
    PERFORM select1.
  ELSEIF NOT s_charg IS INITIAL.
    PERFORM select2.
  ELSEIF NOT s_matnr IS INITIAL
    OR NOT s_werks IS INITIAL
    OR NOT s_lgort IS INITIAL
    AND NOT s_charg IS INITIAL.
    PERFORM select3.
  ENDIF.
  PERFORM final1.
  PERFORM collect.
*END OF SELECTION
END-OF-SELECTION.
  LOOP AT LT_FINAL.
    FORMAT COLOR COL_KEY.
    WRITE :/2 LT_FINAL-matnr,
           14 LT_FINAL-maktx,
           52 LT_FINAL-werks,
           58 LT_FINAL-lgort,
           69 LT_FINAL-mfrpn,
           73 LT_FINAL-labst,
           87 LT_FINAL-usp.
    FORMAT COLOR OFF.
    FORMAT COLOR COL_NORMAL.
    WRITE :/2 LT_FINAL-kalab,
            14 LT_FINAL-vbeln,
            17 LT_FINAL-posnr,
            24 LT_FINAL-uom,
            28 LT_FINAL-sov,
            36 LT_FINAL-pstyv,
            46 LT_FINAL-kwmeng,
            57 LT_FINAL-retme,
            65 LT_FINAL-salk3,
            75 LT_FINAL-umlme.
  ENDLOOP.
  FORMAT COLOR COL_TOTAL.
  WRITE :/2 text-119,     " TOTAL VALUE
          28 V_sov_total,
          87 V_urestrict_total.
  FORMAT COLOR OFF.
Form Name: select1
text: Population of internal table LT_MARD and using LT_MARD populating
      the internal table LT_MCHB
FORM select1.
  SELECT matnr
         werks
         lgort
         labst
         retme
         umlme
         FROM mard
         INTO TABLE LT_mard
         WHERE matnr IN s_matnr
         AND werks IN s_werks
         AND lgort IN s_lgort.
  SELECT matnr
         charg
         FROM mchb
         INTO TABLE LT_mchb
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
ENDFORM.                                                    "select1
Form Name: select2
text:Population of internal table LT_MCHB and using LT_MCHB populating
     LT_MARD
FORM select2.
  SELECT matnr
         charg
         FROM mchb
         INTO TABLE LT_mchb
         WHERE charg IN s_charg.
  SELECT matnr
         werks
         lgort
         labst
         retme
         umlme
         FROM mard
         INTO TABLE LT_mard
         FOR ALL ENTRIES IN LT_mchb
         WHERE matnr EQ LT_mchb-matnr.
ENDFORM.                                                    "select2
Form Name: select3
text: Population of internal table LT_TAB using inner join and then
      populating internal tables LT_MARD and LT_MCHB
FORM select3.
  SELECT a~matnr
         a~werks
         a~lgort
         a~labst
         a~retme
         a~umlme
         b~charg
         INTO CORRESPONDING FIELDS OF TABLE LT_TAB
         FROM mard AS a
         INNER JOIN mchb AS b ON bmatnr = amatnr
         WHERE a~matnr IN s_matnr
         OR a~werks IN s_werks
         OR a~lgort IN s_lgort
         AND b~charg IN s_charg.
  LOOP AT LT_TAB.
    MOVE: LT_TAB-matnr TO wa_mard-matnr,
          LT_TAB-werks TO wa_mard-werks,
          LT_TAB-lgort TO wa_mard-lgort,
          LT_TAB-labst TO wa_mard-labst,
          LT_TAB-retme TO wa_mard-retme,
          LT_TAB-umlme TO wa_mard-umlme,
          LT_TAB-matnr TO wa_mchb-matnr,
          LT_TAB-charg TO wa_mchb-charg.
    APPEND wa_mard TO LT_mard.
    APPEND wa_mchb TO LT_mchb.
  ENDLOOP.
ENDFORM.                                                    "select3
Form Name:collect
text:population of LT_FINAL internal table-LT_FINAL using other internal
      tables
FORM collect.
  LOOP AT LT_mard INTO wa_mard.
    MOVE : wa_mard-matnr TO LT_FINAL-matnr,
           wa_mard-werks TO LT_FINAL-werks,
           wa_mard-lgort TO LT_FINAL-lgort,
           wa_mard-labst TO LT_FINAL-labst,
           wa_mard-retme TO LT_FINAL-retme,
           wa_mard-umlme TO LT_FINAL-umlme.
    READ TABLE LT_makt INTO wa_makt WITH KEY matnr = wa_mard-matnr.
    MOVE wa_makt-maktx TO LT_FINAL-maktx.
    READ TABLE LT_mska INTO wa_mska WITH KEY matnr = wa_mard-matnr.
    MOVE: wa_mska-kalab TO LT_FINAL-kalab,
          wa_mska-vbeln TO LT_FINAL-vbeln,
          wa_mska-posnr TO LT_FINAL-posnr.
    READ TABLE LT_vbap INTO wa_vbap WITH KEY matnr = wa_mard-matnr.
    MOVE: wa_vbap-kwmeng TO LT_FINAL-kwmeng.
    READ TABLE LT_mara INTO wa_mara WITH KEY matnr = wa_mard-matnr.
    MOVE : wa_mara-mfrpn TO LT_FINAL-mfrpn.
    READ TABLE LT_mbew INTO wa_mbew WITH KEY matnr = wa_mard-matnr.
  Calculation of Unrestricted value
    LT_FINAL-usp = wa_mard-labst * wa_mbew-stprs.
    V_urestrict_total = V_urestrict_total + ( wa_mard-labst * wa_mbew-stprs ).
   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
     EXPORTING
       input         = V_urestrict_total
    IMPORTING
      OUTPUT        = V_urestrict_total
    MOVE wa_mbew-salk3 TO LT_FINAL-salk3.
    READ TABLE LT_ekpo INTO wa_ekpo WITH KEY matnr = wa_mard-matnr.
    MOVE wa_ekpo-meins TO LT_FINAL-uom.
  Calculation of Sales Order Value
    LT_FINAL-sov = wa_mska-kalab * wa_ekpo-netpr.
    V_sov_total = V_sov_total + ( wa_mska-kalab * wa_ekpo-netpr ).
    APPEND LT_FINAL.
  ENDLOOP.
ENDFORM.                    "collect
*Form Name:FINAL1
*Population of all the internal tables
FORM FINAL1.
  SELECT matnr
         kalab
         vbeln
         posnr
         FROM mska
         INTO TABLE LT_mska
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
  SELECT matnr
         kwmeng
         pstyv
         FROM vbap
         INTO TABLE LT_vbap
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
  SELECT matnr
         salk3
         stprs
         FROM mbew
         INTO TABLE LT_mbew
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
  SELECT matnr
         mfrpn
         FROM mara
         INTO TABLE LT_mara
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
  SELECT matnr
         maktx
         FROM makt
         INTO TABLE LT_makt
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
  SELECT matnr
         netpr
         FROM ekpo
         INTO TABLE LT_ekpo
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
ENDFORM.                                                    "final1
Reward if helpful.
Chandralekha