Reg : Z report for Stock on given date

Dear ABAP Guru's,
Iam in need of urgent report inorder to find Stock on given(particular) single date but not SAP standard report.That Stock Value should match the MC.9 value.Pls help me

Hi,
This code may help you.
*& Report ZDH_ITC_STOREP
REPORT ZDH_ITC_STOREP.
TABLES: T001L.
type-pools slis.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: GT_HEADER TYPE SLIS_T_LISTHEADER.
DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: GT_EVENTS TYPE SLIS_T_EVENT.
TYPES: BEGIN OF TY_FINAL,
       MATNR TYPE MCHB-MATNR,
       MATDES TYPE MAKT-MAKTX,
       BATNO TYPE MCHB-CHARG,
       UMIL TYPE MCHB-CLABS,
       UCFC TYPE MCHB-CLABS,
       BMIL TYPE MCHB-CSPEM,
       BCFC TYPE MCHB-CLABS,
       TMIL TYPE MCHB-CLABS,
       TCFC TYPE MCHB-CLABS,
       END OF TY_FINAL.
TYPES: BEGIN OF TY_MCHB,
      MATNR TYPE MCHB-MATNR,      " Material Number
      CHARG TYPE MCHB-CHARG,      " Batch Number
      CLABS TYPE MCHB-CLABS,      " Valuated Unrestricted-Use Stock
      CSPEM TYPE MCHB-CSPEM,      " Blocked Stock
      UCFC TYPE MCHB-CLABS,
      bcfc TYPE MCHB-CLABS,
      END OF TY_MCHB.
*TYPES: BEGIN OF TY_MARA,
*     MATNR TYPE MARA-MATNR,
*     END OF TY_MARA.
TYPES: BEGIN OF TY_MAKT,
     MATNR TYPE MAKT-MATNR,       " Material Number
     MAKTX TYPE MAKT-MAKTX,       " MATERIAL DESCRIPTION
     END OF TY_MAKT.
TYPES:BEGIN OF TY_MARM,
     MATNR TYPE MARM-MATNR,       "MATERIAL NUMBER
     UMREN TYPE MARM-UMREN,       "Denominator for conversion to base units of measure
     UMREZ TYPE MARM-UMREZ,       "Numerator for Conversion to Base Units of Measure
   END OF TY_MARM.
DATA: IT_FINAL TYPE STANDARD TABLE OF TY_FINAL,
      WA_FINAL TYPE TY_FINAL.
DATA: IT_MCHB TYPE STANDARD TABLE OF TY_MCHB,
      WA_MCHB TYPE TY_MCHB.
*DATA: IT_MARA TYPE STANDARD TABLE OF TY_MARA,
*      WA_MARA TYPE TY_MARA.
DATA: IT_MAKT TYPE STANDARD TABLE OF TY_MAKT,
      WA_MAKT TYPE TY_MAKT.
DATA: IT_MARM TYPE STANDARD TABLE OF TY_MARM,
      WA_MARM TYPE TY_MARM.
data: atot, btot type MCHB-CLABS.
PARAMETERS: PA_FACT TYPE T001W-WERKS OBLIGATORY,                  "FACTORY
            PA_DATE TYPE SY-DATUM OBLIGATORY.                     "DATE
SELECT-OPTIONS: SO_STLO FOR T001L-LGORT OBLIGATORY.               " STORAGE LOCATION
* GETTING THE MATERIALS
SELECT MATNR CHARG CLABS CSPEM
FROM MCHB
INTO TABLE IT_MCHB
WHERE WERKS = PA_FACT
AND LGORT IN SO_STLO.
* GETTING THE BRAND DESCRIPTION FROM THE ABOVE SELECTED MATERIAL
SELECT MATNR MAKTX
FROM MAKT
INTO TABLE IT_MAKT
FOR ALL ENTRIES IN IT_MCHB
WHERE MATNR = IT_MCHB-MATNR
AND SPRAS = 'EN'.
* GETTING THE BATCH CODE FOR THE ABOVE MATERIAL AND BRAND
SELECT MATNR UMREN UMREZ
FROM MARM
INTO TABLE IT_MARM
FOR ALL ENTRIES IN IT_MCHB
WHERE MATNR = IT_MCHB-MATNR.
* CALCULATING THE TOTALS OF BLOCKED AND UNRESTRICTED QTY
LOOP AT IT_MCHB INTO WA_MCHB.
READ TABLE IT_MARM INTO WA_MARM WITH KEY MATNR = WA_MCHB-MATNR.
WA_MCHB-ucfc = ( ( WA_MARM-UMREN / WA_MARM-umrez ) * wa_mchb-clabs ).
    WA_MCHB-bcfc = ( ( wa_marm-umren / wa_marm-umrez ) * wa_mchb-cspem ).
* WA_MCHB-ucfc = atot.
* WA_MCHB-bcfc = btot.
modify IT_MCHB from WA_MCHB TRANSPORTING ucfc bcfc WHERE MATNR = WA_MCHB-MATNR.
READ TABLE it_makt into wa_makt with key MATNR = WA_MCHB-matnr.
WA_FINAL-matnr = WA_MCHB-MATNR.
WA_FINAL-MATDES = wa_makt-maktx.
WA_FINAL-BATNO = wa_mchb-CHARG.
WA_FINAL-UMIL = wa_MCHB-CLABS.
wa_final-UCFC = WA_MCHB-ucfc.
wa_final-bcfc = WA_MCHB-bcfc.
wa_final-bmil = WA_MCHB-CSPEM.
WA_FINAL-tmil = WA_MCHB-clabs + WA_MCHB-CSPEM.
WA_FINAL-tcfc = WA_MCHB-ucfc + WA_MCHB-bcfc.
append wa_final to IT_FINAL.
ENDLOOP.
perform buildheader USING GT_HEADER[].
PERFORM FIELDCATINIT USING GT_FIELDCAT[].
perform alvdisplay.
PERFORM build_layout USING GS_LAYOUT.
*&      Form buildheader
*       text
* --> p1        text
* <-- p2        text
FORM buildheader USING RT_HEADER TYPE SLIS_T_LISTHEADER..
DATA: TP TYPE SLIS_LISTHEADER.
DATA: TEXT(20) TYPE C,
        DT TYPE SY-DATUM.
TP-TYP = 'H'.
TP-INFO = 'STOCK REPORT '.
APPEND TP TO RT_HEADER.
CLEAR TP.
WRITE SY-DATUM TO DT DD/MM/YYYY.
CONCATENATE 'DATE :' DT INTO TEXT.
TP-TYP = 'S'.
TP-INFO = TEXT.
APPEND TP TO RT_HEADER.
CLEAR TP.
ENDFORM.                    " buildheader
*&      Form alvdisplay
*       text
* --> p1        text
* <-- p2        text
FORM alvdisplay .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                 = 'ZDH_ITC_STOREP'
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
   IS_LAYOUT                          = GS_LAYOUT
   IT_FIELDCAT                        = GT_FIELDCAT[]
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
TABLES
    T_OUTTAB                          = IT_FINAL
EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " alvdisplay
*&      Form FIELDCATINIT
*       text
* --> p1        text
* <-- p2        text
FORM FIELDCATINIT USING FINIT TYPE SLIS_T_FIELDCAT_ALV.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
LS_FIELDCAT-FIELDNAME       = 'MATNR'.
LS_FIELDCAT-SELTEXT_L       = 'MATERIAL NO'.
LS_FIELDCAT-KEY        = 'X'.
LS_FIELDCAT-JUST = 'L'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME       = 'MATDES'.
LS_FIELDCAT-SELTEXT_L       = 'BRAND'.
LS_FIELDCAT-KEY        = 'X'.
LS_FIELDCAT-JUST = 'L'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME       = 'BATNO'.
LS_FIELDCAT-SELTEXT_L       = 'BATCH NO'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME       = 'UMIL'.
LS_FIELDCAT-SELTEXT_L       = 'RESTRICTED'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME       = 'UCFC'.
LS_FIELDCAT-SELTEXT_L       = 'UCFC'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME       = 'BMIL'.
LS_FIELDCAT-SELTEXT_L       = 'BLOCKED'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME       = 'BCFC'.
LS_FIELDCAT-SELTEXT_L       = 'BCFC'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME       = 'TMIL'.
LS_FIELDCAT-SELTEXT_L       = 'TOTAL MIL'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME       = 'TCFC'.
LS_FIELDCAT-SELTEXT_L       = 'TCFC'.
APPEND LS_FIELDCAT TO FINIT.
CLEAR LS_FIELDCAT.
ENDFORM.                    " FIELDCATINIT
*&      Form BUILDLAYOUT
*       text
*      -->P_GS_LAYOUT[] text
FORM BUILD_LAYOUT USING RS_LAYOUT TYPE SLIS_LAYOUT_ALV.
RS_LAYOUT-NO_INPUT = 'X'.
RS_LAYOUT-ZEBRA = 'X'.
RS_LAYOUT-COLWIDTH_OPTIMIZE = ' '.
RS_LAYOUT-NO_COLHEAD = ' '.
RS_LAYOUT-NO_VLINE = ' '.
RS_LAYOUT-INFO_FIELDNAME = 'WS_COLOR'.
ENDFORM.
                    " BUILDLAYOUT
HTH
Regards,
Dhruv Shah

Similar Messages

Report for stock in transit datewise

I need stock in transit datewise. Is there any report possible for that ? Which table and fields should I refer. please revert.
Regs,
Appie

Hi,
T.Code: MB5T can be used for Report for stock in transit, but date wise u can't get here. U have to develop areport or by querry u can develop a report.
U can get date (MKPF-BUDAT) wise details by giving movement type in MSEG table u get all the details in the tables.
Regards,
Chinna

PR and PO should be display in IWBK report for stock item.

Hi Exterts,
Our client requirement is to display PR and PO number in IWBK report for stock item as well.
I know PR and PO can be display in IWBK report for non-stock item but how we can display PR and PO for stock item,as PR is generated through MRP for stock item.
Please share your ideas on this.
Regards
Vishu

Vishu,
In typical MRP settings you "procure to stock" not "procure to order".
This means that there is no direct link between the PM/CS orders and any PR/POs created via MRP.
Subsequently you will not be able to show this data in IWBK.
However, we are currently designing a customer-specific report similar to IWBK that also counts the number of open POs for a given material on a PM/CS work order. The user can then navigate to ME2M (PO list) or MD04 (stock requirements list) to get further details.
PeteA

MULTI LEVEL REPORT FOR STOCK TRANSPORT PURCHASE ORDER

Hi,
I will have lot of stock transport purchase orders,like md4c transaction where we get multilevel report for sale order/production order,is there any report for stock transport purchase orders.its urgent kindly help

goto purchase order history tab
you can see all the details of PO-deluvery-GI, GR, imvoice. Click on delivery, you can see the billing document throughdocument flow button.
This function is not availilable for production order, hence we have MD4c.

Report for stock transfer from plant to plant

Hi,
Is there any standard report for stock transfer from plant to plant .
If not is there any enhancements to get the above report.
Regards,
Ravindranath.

Hi Ravi,
U can use the tcode MB51 and their u can give the input as 301 if it is 1 step in the mvt type or use 303 and 305 for 2 step transfer. and generate the report.
if u want the list of stock transport orders then use tcode ME2N and the input parameter as item category "U" and generate the report.
hope it wud have answered ur question
Reward if useful
Shawn

Table for Stock on Specific Date in the Past.

Hi ..,
Please give me the Name of the Table to find the stock on Specific Date for a given material in the Past. like the T.code we use MB5B.
regards.

Hi
MB5B uses a list of tables & logic to get the Stock for a particular posting date.
if you want the stock run this report in your Z- report & export the Values to your Z-report & use them accordingly.
Hope this helps
Thanks & Regards
Kishore

Find material Stock to given date

I have been asked to customize the standard report transaction MB5L. I have created ZPROGRAM for the report. I have an input field for date to get material stock till that date.How can i calculate material stock till the given date ?

Basically you will have to use
An "historical" table with stock at end of periods
- MBEWH Material Valuation: History
- MARDH Material Master Storage Location Segment: History
etc.
A "flow" table for movement before last period recorded and date asked for
- MSEG/MKPF Document Segment: Material
- BSIM Secondary Index, Documents for Material
<i>(Use MSEG/MKPF for quantities and BSIM for valuations its easier than matching the two files, valuation can vary without movement in MSEG and some movement in MSEG don't reflect in accounting)</i>
Regards

Report for stock statement

hi guy's,
   i am doing report for the stock statement .... my issue is in MB5B if i reverse some document it shows as it move's to issue QTY and my receipt is same but my closing stock is correct ...is there any std report avalible ....
thank's in advance

Use this code :
TABLES : MSEG,MKPF,MARA,MAKT,BEWART,MSLB,BSIM.
TYPE-POOLS : SLIS.
DATA : IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
       IT_LIST_HEADER TYPE SLIS_T_LISTHEADER,
       IT_EVENTS TYPE SLIS_T_EVENT,
       GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
       WA_SORT TYPE SLIS_SORTINFO_ALV,
       IT_SORT TYPE SLIS_T_SORTINFO_ALV,
       REPID LIKE SY-REPID,
       FRM_DATE(10),TO_DATE(10),
       DISPTEXT(255),DISPTEXT2(255).
TYPES : BEGIN OF ST_OPBAL,
         MATNR LIKE MSEG-MATNR,
         MAKTX LIKE MAKT-MAKTX,
         BATCH LIKE MSEG-CHARG,
         BWART LIKE MSEG-BWART,
         MENGE LIKE MSEG-MENGE,
         ZEILE LIKE MSEG-ZEILE,
         WERKS LIKE MSEG-WERKS,
         SOBKZ LIKE MSEG-SOBKZ,
         BUDAT LIKE MKPF-BUDAT,
         SHKZG LIKE MSEG-SHKZG,
         DMBTR LIKE MSEG-DMBTR,
         MBLNR LIKE MSEG-MBLNR,
         LGORT LIKE MSEG-LGORT,
       END OF ST_OPBAL.
DATA : OPBAL TYPE ST_OPBAL OCCURS 0 WITH HEADER LINE,
       TMP_OPBAL TYPE ST_OPBAL OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF BAL_NOREF OCCURS 0,
          MATNR LIKE MARA-MATNR,
          SHKZG LIKE MSEG-SHKZG,
          DMBTR LIKE MSEG-DMBTR,
       END OF BAL_NOREF.
DATA : BEGIN OF OPBAL2 OCCURS 0,
         SNO(3)      TYPE N,
         MATNR       LIKE MSEG-MATNR,
         MAKTX       LIKE MAKT-MAKTX,
         OP_BAL      LIKE MSEG-MENGE,
         OP_STKVAL   LIKE MSEG-DMBTR,   "NEW
         REC         LIKE MSEG-MENGE,
         T_OPBAL_REC LIKE MSEG-MENGE,
         REC_STKVAL LIKE MSEG-DMBTR,   "NEW
         ISS         LIKE MSEG-MENGE,
         ISS_STKVAL LIKE MSEG-DMBTR,   "NEW
         SALES       LIKE MSEG-MENGE,
         T_ISS       LIKE MSEG-MENGE,
         CL_BAL      LIKE MSEG-MENGE,
         BATCH       LIKE MSEG-CHARG,
         SUBCON      LIKE MSEG-MENGE,
         CL_STKVAL   LIKE MSEG-DMBTR,
       END OF OPBAL2.
DATA SERNO(4) TYPE C.
DATA OPTOT TYPE P DECIMALS 3.
DATA RECTOT TYPE P DECIMALS 3.
DATA ISSTOT TYPE P DECIMALS 3.
DATA TOTALL TYPE P DECIMALS 3.
DATA FLG        TYPE N.
DATA FLAG       TYPE N.
DATA STOCKVAL        TYPE MSEG-DMBTR.
DATA REC_STOCKVAL    TYPE MSEG-DMBTR.
DATA ISS_STOCKVAL    TYPE MSEG-DMBTR.
DATA CL_STKVAL       TYPE MSEG-DMBTR.
SELECTION-SCREEN BEGIN OF BLOCK X WITH FRAME.
     SELECT-OPTIONS: P_MATNR FOR MSEG-MATNR,
                     P_MGRP FOR MARA-MATKL,
                     P_DATE FOR MKPF-BUDAT,
     P_PLANT FOR MSEG-WERKS DEFAULT 'NB01' OBLIGATORY NO INTERVALS
                                                NO-EXTENSION .
     SELECT-OPTIONS: P_STLOC FOR MSEG-LGORT NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK X.
INITIALIZATION.
   REPID = SY-REPID.
   PERFORM FILL_FLDCAT USING IT_FLDCAT.
   PERFORM FILL_EVENTS USING IT_EVENTS.
   PERFORM FILL_LAYOUT USING GS_LAYOUT.
START-OF-SELECTION.
CONCATENATE P_DATE-LOW6(2) '.' P_DATE-LOW4(2) '.' P_DATE-LOW+0(4)
INTO FRM_DATE.
CONCATENATE P_DATE-HIGH6(2) '.' P_DATE-HIGH4(2) '.' P_DATE-HIGH+0(4)
INTO TO_DATE.
CONCATENATE TEXT-003 FRM_DATE' TO : ' TO_DATE INTO DISPTEXT.
CONCATENATE TEXT-004 P_PLANT-LOW ' Storage Location : ' P_STLOC-LOW
INTO DISPTEXT2.
PERFORM FILL_HEADER USING IT_LIST_HEADER.
SELECT A~MATNR
          F~MAKTX
          A~CHARG
          A~BWART
          A~MENGE
          A~ZEILE
          A~WERKS
          A~SOBKZ
          D~BUDAT
          A~SHKZG
          A~DMBTR
          A~MBLNR
          A~LGORT
          INTO TABLE OPBAL
   FROM MKPF AS D JOIN MSEG AS A
           ON DMBLNR = AMBLNR AND
              DMJAHR = AMJAHR
        JOIN MARA AS E
           ON EMATNR = AMATNR
        JOIN MAKT AS F
           ON FMATNR = AMATNR
   WHERE   A~MATNR IN P_MATNR
     AND   A~WERKS IN P_PLANT
     AND   A~KZBEW IN (' ','B')
     AND   E~MATKL IN P_MGRP
     AND   A~BWART NOT IN ('541','542','321','322','121')
     AND   A~KZVBR NOT IN ('A')
     AND   D~BUDAT LE P_DATE-HIGH.
LOOP AT OPBAL WHERE BWART EQ '544' AND LGORT EQ ''.
   TMP_OPBAL = OPBAL.
   APPEND TMP_OPBAL.
ENDLOOP.
DELETE OPBAL WHERE ( BWART EQ '309' AND DMBTR EQ 0 ).
DELETE OPBAL WHERE ( BWART NE '543' AND LGORT EQ '' ).
LOOP AT TMP_OPBAL.
   OPBAL = TMP_OPBAL.
   APPEND OPBAL.
ENDLOOP.
STOCKVAL = 0.
SORT OPBAL BY MATNR BATCH BUDAT.
LOOP AT OPBAL.
SELECT SINGLE LBLAB INTO MSLB-LBLAB FROM MSLB
                        WHERE MATNR = OPBAL-MATNR.
IF OPBAL-BUDAT LT P_DATE-LOW.
     IF OPBAL-SHKZG = 'H'.
        OPTOT = OPTOT - OPBAL-MENGE.
     ELSEIF OPBAL-SHKZG = 'S'.
        OPTOT = OPTOT + OPBAL-MENGE.
     ENDIF.
For the duration   II part *****************
ELSEIF OPBAL-BUDAT IN P_DATE.
     IF OPBAL-SHKZG = 'H'.
        ISSTOT      = ISSTOT + OPBAL-MENGE.
     ELSEIF OPBAL-SHKZG = 'S'.
        RECTOT = RECTOT + OPBAL-MENGE.
     ENDIF.
ENDIF.
AT END OF BATCH. " modified for chek
   READ TABLE OPBAL INDEX SY-TABIX.
   CLEAR BAL_NOREF. REFRESH BAL_NOREF.
   SELECT MATNR SHKZG SUM( DMBTR )
     INTO TABLE BAL_NOREF
     FROM BSIM
    WHERE BUDAT LT P_DATE-LOW AND
          MATNR EQ OPBAL-MATNR AND
          BWTAR EQ OPBAL-BATCH AND
          BWKEY IN P_PLANT     AND
          BLART IN ('RE','WE','WA','PR')
    GROUP BY MATNR SHKZG.
   LOOP AT BAL_NOREF.
      IF BAL_NOREF-SHKZG = 'H'.
         STOCKVAL = STOCKVAL - BAL_NOREF-DMBTR.
      ELSE.
         STOCKVAL = STOCKVAL + BAL_NOREF-DMBTR.
      ENDIF.
   ENDLOOP.
   CLEAR BAL_NOREF. REFRESH BAL_NOREF.
   SELECT MATNR SHKZG SUM( DMBTR )
     INTO TABLE BAL_NOREF
     FROM BSIM
    WHERE BUDAT IN P_DATE AND
          MATNR EQ OPBAL-MATNR AND
          BWTAR EQ OPBAL-BATCH AND
          BWKEY IN P_PLANT     AND
          BLART IN ('RE','WE','WA','PR')
    GROUP BY MATNR SHKZG.
   LOOP AT BAL_NOREF.
      IF BAL_NOREF-SHKZG = 'H'.
         ISS_STOCKVAL = ISS_STOCKVAL + BAL_NOREF-DMBTR.
      ELSE.
         REC_STOCKVAL = REC_STOCKVAL + BAL_NOREF-DMBTR.
      ENDIF.
   ENDLOOP.
   " MSLB-LBLAB (STOCK WITH SUBCONTRACTOR).
   CL_STKVAL       = STOCKVAL + REC_STOCKVAL - ISS_STOCKVAL.
   TOTALL = OPTOT + RECTOT - ISSTOT.
   IF OPTOT = '0'   AND RECTOT = '0' AND ISSTOT = '0'.
      FLG = 1.
   ENDIF.
   IF FLG = 1.
      CLEAR FLG.
   ELSE.
      SERNO = SERNO + 1.
      OPBAL2-SNO         = SERNO.
      OPBAL2-MATNR       = OPBAL-MATNR.
      OPBAL2-MAKTX       = OPBAL-MAKTX.
      OPBAL2-OP_BAL      = OPTOT.
      OPBAL2-REC         = RECTOT.
      OPBAL2-T_OPBAL_REC = OPTOT + RECTOT.
      OPBAL2-ISS         = ISSTOT.
      OPBAL2-T_ISS       = ISSTOT.
      OPBAL2-CL_BAL      = TOTALL.
      OPBAL2-BATCH       = OPBAL-BATCH.
      OPBAL2-SUBCON      = MSLB-LBLAB.
      OPBAL2-OP_STKVAL   = STOCKVAL.
      OPBAL2-ISS_STKVAL = ISS_STOCKVAL.
      OPBAL2-REC_STKVAL = REC_STOCKVAL.
      OPBAL2-CL_STKVAL   = CL_STKVAL.
      APPEND OPBAL2.
   ENDIF.
OPTOT = 0.
RECTOT = 0.
ISSTOT = 0.
STOCKVAL = 0.
ISS_STOCKVAL = 0.
REC_STOCKVAL = 0.
CL_STKVAL    = 0.
ENDAT.
ENDLOOP.
WA_SORT-SPOS = 1.
WA_SORT-FIELDNAME = 'MATNR'.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = REPID
      IT_FIELDCAT        = IT_FLDCAT
      IT_EVENTS          = IT_EVENTS
      IS_LAYOUT          = GS_LAYOUT
      IT_SORT            = IT_SORT
    TABLES
      T_OUTTAB           = OPBAL2.
FORM FILL_FLDCAT USING P_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
   PERFORM FILL_PARAM_FLDCAT USING 1 'SNo'          'SNO'       ' ' 'X'
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 2 'Material No.' 'MATNR'     ' ' 'X'
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 3 'Description' 'MAKTX'     ' ' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 4 'Op.Bal'      'OP_BAL'     'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 5 'Op.Stock Val' 'OP_STKVAL' 'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 6 'Receipts'     'REC'       'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 7 'Total'     'T_OPBAL_REC' 'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 8 'Rect.Val.' 'REC_STKVAL'   'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 9 'Issues'    'ISS'          'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 10 'Iss. Val.' 'ISS_STKVAL'   'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 11 'Cl. Bal.'     'CL_BAL'    'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 12 'Cl.Stock Val' 'CL_STKVAL' 'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 13 'BATCH '       'BATCH'     ' ' ' '
   'OPBAL2' P_FLDCAT.
ENDFORM.
FORM FILL_PARAM_FLDCAT USING VALUE(P_COL) VALUE(P_TEXT) VALUE(P_FLDNAME)
                       VALUE(P_DOSUM) VALUE(P_NOZERO) VALUE(P_TABNAME)
                       PP_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
   DATA : WA_FLDCAT TYPE SLIS_FIELDCAT_ALV.
   CLEAR WA_FLDCAT.
     WA_FLDCAT-COL_POS   = P_COL.
     WA_FLDCAT-SELTEXT_M = P_TEXT.
     WA_FLDCAT-FIELDNAME = P_FLDNAME.
     WA_FLDCAT-TABNAME   = P_TABNAME.
     WA_FLDCAT-DO_SUM    = P_DOSUM.
     WA_FLDCAT-NO_ZERO   = P_NOZERO.
   APPEND WA_FLDCAT TO PP_FLDCAT.
ENDFORM.
FORM FILL_HEADER USING P_IT_LIST_HEADER TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-INFO = TEXT-002.
APPEND LS_LINE TO P_IT_LIST_HEADER.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-INFO = DISPTEXT.
APPEND LS_LINE TO P_IT_LIST_HEADER.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-INFO = DISPTEXT2.
APPEND LS_LINE TO P_IT_LIST_HEADER.
ENDFORM.
FORM FILL_EVENTS USING P_IT_EVENTS TYPE SLIS_T_EVENT.
   DATA LS_EVENT TYPE SLIS_ALV_EVENT.
   MOVE 'TOP_OF_PAGE' TO LS_EVENT-FORM.
   MOVE 'TOP_OF_PAGE' TO LS_EVENT-NAME.
   APPEND LS_EVENT TO P_IT_EVENTS.
ENDFORM.
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
   EXPORTING
     IT_LIST_COMMENTARY       = IT_LIST_HEADER.
ENDFORM.
FORM FILL_LAYOUT USING P_GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
   P_GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
   P_GS_LAYOUT-ZEBRA             = 'X'.
   P_GS_LAYOUT-FLEXIBLE_KEY      = 'X'.
ENDFORM.
FOR TESTING PURPOSE.
*SORT OPBAL BY BUDAT.
*CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM = REPID
     IT_FIELDCAT        = IT_FLDCAT
     IT_EVENTS          = IT_EVENTS
   TABLES
     T_OUTTAB           = OPBAL.
*FORM FILL_FLDCAT USING P_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
PERFORM FILL_PARAM_FLDCAT USING 1 'MBLNR'        'MBLNR'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 2 'CREDIT/DEBIT' 'SHKZG'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 3 'MOV.TYP.'     'BWART'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 4 'ST.LOC.'     'LGORT'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 5 'STOCK VAL'    'DMBTR'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 6 'POS.DATE'     'BUDAT'
'OPBAL' P_FLDCAT.
*ENDFORM.

Standard Report for stock Aging

Hello all,
can anyone plz let us know that is there any standard report in SAP for stock aging? actually i have to see the materials quantity whose 311 movement not done after 321 and also from how many days it is pending.
Kindly help and tell how can i find those materials quantity, while user also do 311 for partial quantity?
Regards.

Hi @ABAP@
Check the followings...
MB24 - Reservations for Material
MB25 - Reservations for Account Assignment
MB51 - Material Document List
MB52 - List of Warehouse Stocks on Hand MB53 - Display Plant Stock Availability
MB54 - Consignment Stocks
MB56 - Analyze Batch Where-Used List
MB57 - Build Up Batch Where-Used List
MB58 - Consgmt and Ret. Packag. at Customer
MB59 - Material Document List
MB5B - Stocks for Posting Date
MB5C - Pick-Up List
MB5L - List of Stock Values: Balances
MB5M - ShL.exp/prod.date
MB5S - Display List of GR/IR Balances
MB5W - List of Stock Values
MB9A - Analyze Archived Material Documents
MBAL - Material Documents: Read Archive
MBGR - Display Material Documents by Movement Reason
MBSI - Find Inventory Sampling
MBSM - Display Cancelled Material Documents
MMBE - Stock Overview
MD07 - Current Material Overview
MR51 - Material Line Items
MRKO - Settle Consignment/Pipeline Liabilities
MB5T - Stock in transit CC

Re: Report for Stock Movement

Hi All,
Can we get a report from SAP for the receipts and issues material wise for
any particular period - for a particular plant & overall?
Plant Part Code Description Opg Bal Receipts Issues/Sale
Closing stock
Best Regards
Siva

Dear,
MB5B--stock on posting date.
MB51--Material document list inthis report u can get desire result with help of m.type
Mc.2 stock analysys by plant
Mc.6---stock anylaysys by s.loc
Regards,
Gopala.S

SAP Standard Report for Stock Balances

Hi All,
Do we have a standard SAP report that gives the output in this format (or something close to this)
Date     Stock     Plant 1               Plant 2
          Material 1     Material 2     Material 3     Material 1     Material 2     Material 3
1/1/2008     Opening Stock
     GR
     GI
     Closing Stock
1/2/2008     Opening Stock
     GR
     GI
     Closing Stock
1/3/2008     Opening Stock
     GR
     GI
     Closing Stock
Regards
Tom

Hi Jack,
As per your report requirement, there is no standard transaction available in SAP.
You have develop Z- Report for your requirement.
But keeping in mind the follwoing constarints
1) If it is a huge number of materials, Then the report will hours together. It may be lead to performance issue of the System. Because it has to get huge data from different tables as per you logic.
2) The report is not suitable for print. Because it will run pages together.Since you are including Opening balance, GR details, GI details and Closing balance for each materail.
Thanks & Best Regards
Girisha M S

Func Module for Stock on any Date

Hi,
My Requirement is to create a report showing stock as per period with matrial value. MBEWH is the write table for this. But its not matching with G/L Account of the material type. So I need the Validate these MBEWH Entries against the actual stock. So i need a function module showing stock of material on any selected date or period . MB5B serves the exact report but i need a function module similar to that .
<REMOVED BY MODERATOR>
Thanks,
Mathivanan.G
Edited by: Alvaro Tejada Galindo on Jul 21, 2008 1:44 PM

there is no FM as such ... check MMBE ..
may be need to copy MB5B to z & make changes

Report for extracting the Expiratin date of the material

Hi gurus,
Is there any way We can extract the list of materials with SLED?
Any standard T code?
Regards
Shashi

Hi Sashi,
First of I assumes that your materials are Batch Managed.
Now go to any any of the Transaction where you can execute the report using option of Batch Field.
For Example MB52, MB51.Go to To MB52 go to Batch Field. Press F4 and use selection criteria
*Search for Batches with Expiry Date*
Select required Field like Plant , Material etc and enter you will find list of Materials with Batches and its Expiry Date.
And if you want to download it then just press right key of mouse, you will find the option for Download this report.
Regards.
Dhaval

Report for stock

Hello gurus
I want a standard report like mb52
but in this report there is no such field like
posting date.
i wanta report like mb52 with posting date because our bank want
How much stock at perticular date and
in period how much stock is carried out and consume.
I am waiting your reply
thank you
Regard,
Riten

Yes sir.
but I want all in one report against material at perticular date
Regard,
Riten
Edited by: riten patel on Jun 6, 2009 10:45 AM

Deploying custom report for custom hardware inventory data.

Hi!
I want do the following:
1) Extend Hardware Inventory using my own *.mof file. Like,
#pragma namespace ("\\\\.\\root\\cimv2\\SMS")
[ SMS_Report (TRUE),
SMS_Group_Name ("My Inventory"),
SMS_Class_ID ("CUSTOM|My_Inventory|4.0") ]
class My_Inventory : SMS_Class_Template
[SMS_Report(TRUE)] string SerialNumber;
[SMS_Report(TRUE)] string SomeData;
2) Extend Reporting system with my own report that will use data from custom hardware inventory. For example, joins inventoried data with SCCM resources.
3) Deploy 1) and 2) programmatically to any sccm installation. So, report should not be linked to concrete data source or report server url.
If you know the tools that may help me, it will be very helpful! Many thanks!

You should ask the .rdl part from the SQL Reporting services forums, you should get better answers from there, because this isn't purely a ConfigMgr issue.
http://social.msdn.microsoft.com/Forums/sqlserver/en-US/home?forum=sqlreportingservices

Reg : Z report for Stock on given date

Similar Messages

Maybe you are looking for