Stock on a particular date
Dear All,
I am creating a customised report for showing all the importatnt data (like stock, consumption, production, sale in one report) at client level.
In this report I am required to show the stock of material on a particular date, entered by the user in the selection screen.
(In stanard SAP, report MB5B servers the purpose.)
Can you please suggest how can I get the same information in the customised report.?
(I do not prefer using method: month opening stock + total receipts - total consumption)
Is there any alternative way?
Thanks and regards
Sarang
Hi
The MB5B report gives you all the data, if you donot want some of the data, copy the Report, & from the Output Parameters remove the Fields which you dont want.
if you want the ALV functionality add the same to that.
Thanks & Regards
Kishore
Similar Messages
-
Closing stock of a particular date
how to get plant wise material closing stock on any particular date. say previous months end date. I am calculating that from MSEG table with the help of MSEGINSMK and MSEGSHKZG field. (with date filtaration by joining MBLNR of MKPF table) But stock is showing different with the closing stock showing in MB5B report for that date. I don't know which BWART of MSEG table to be excluded. My email id is [email protected]
Hi,
This is a stock aging report, you can use this for reference.
Logic: Based on current stock and value from MBEW table. The latest receipt dates were taken till the qty tallies off.Rejections and reversals are considered.
The movement types considered are ('101','102','105','106','122','123','131','132','301','302','309','310','501','502','531','532','561','562','701','702').
*& Report ZMM03_TRY *
REPORT ZMM03 LINE-SIZE 226
LINE-COUNT 35(2)
NO STANDARD PAGE HEADING..
TABLES : S032, "Current Stock And Grouping Terms
MBEW, "Material Valuation
T023T, "Material Group Desc.
MAKT, "Material Description
EKPO. "Purchasing Document Item.
DATA : BEGIN OF T_HEADER OCCURS 0,
MTART LIKE MARA-MTART,
MATNR LIKE MBEW-MATNR,
BWKEY LIKE MBEW-BWKEY,
MATKL LIKE MARA-MATKL,
MAKTX LIKE MAKT-MAKTX,
MEINS LIKE MARA-MEINS,
LBKUM LIKE MBEW-LBKUM,
SALK3 LIKE MBEW-SALK3,
VERPR LIKE MBEW-VERPR,
CLSTK LIKE MBEW-LBKUM,
CLVAL LIKE CKMLCR-SALK3,
UNIT LIKE CKMLCR-PVPRS,
END OF T_HEADER.
DATA : BEGIN OF T_MSEG OCCURS 0,
MATNR LIKE MSEG-MATNR,
WERKS LIKE MSEG-WERKS,
BUDAT LIKE MKPF-BUDAT,
MBLNR LIKE MKPF-MBLNR,
MJAHR LIKE MKPF-MJAHR,
ZEILE LIKE MSEG-ZEILE,
LFBNR LIKE MSEG-LFBNR,
LFBJA LIKE MSEG-LFBJA,
LFPOS LIKE MSEG-LFPOS,
BWART LIKE MSEG-BWART,
MENGE LIKE MSEG-MENGE,
EBELN LIKE MSEG-EBELN,
EBELP LIKE MSEG-EBELP,
XAUTO LIKE MSEG-XAUTO,
UMMAT LIKE MSEG-UMMAT,
UMWRK LIKE MSEG-UMWRK,
MARK(1),
END OF T_MSEG.
TYPE-POOLS : SLIS.
DATA : L_STOCK TYPE MSEG-MENGE.
DATA : WA_MSEG LIKE T_MSEG.
DATA : WA_MSEG1 LIKE T_MSEG.
DATA : T_ITEMS LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : T_CUR_STOCK LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : L_LBKUM TYPE MBEW-LBKUM.
DATA : BEGIN OF T_OUTPUT OCCURS 0,
WERKS LIKE MSEG-WERKS,
MATNR LIKE MSEG-MATNR,
BUDAT LIKE MKPF-BUDAT,
MENGE LIKE MSEG-MENGE,
PDAYS TYPE I,
PVAL TYPE MSEG-MENGE,
MAKTX LIKE MAKT-MAKTX,
CQTY LIKE MSEG-MENGE,
CPRC LIKE MBEW-SALK3,
END OF T_OUTPUT.
DATA: GRID_TAB TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA : T_SORT TYPE SLIS_T_SORTINFO_ALV,
WA_SORT TYPE SLIS_SORTINFO_ALV.
*AT SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-014.
SELECTION-SCREEN SKIP 1.
PARAMETERS : P_DATE LIKE S032-LETZTABG OBLIGATORY DEFAULT SY-DATUM.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-015.
PARAMETERS : P_WERKS TYPE S032-WERKS OBLIGATORY.
SELECT-OPTIONS : S_LGORT FOR S032-LGORT,
S_MATNR FOR S032-MATNR.
SELECTION-SCREEN END OF BLOCK 2.
SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE TEXT-016.
SELECT-OPTIONS : S_MTART FOR S032-MTART,
S_MATKL FOR S032-MATKL.
SELECTION-SCREEN END OF BLOCK 3.
IF P_DATE IS INITIAL AND
P_WERKS IS INITIAL AND
S_LGORT IS INITIAL AND
S_MATNR IS INITIAL AND
S_MTART IS INITIAL AND
S_MATKL IS INITIAL.
MESSAGE I398(00) WITH 'Enter Selection Critirea'(019).
SY-SUBRC = '1'.
ELSE.
SELECT AMATNR ABWKEY BMATKL BMTART CMAKTX BMEINS A~LBKUM
A~SALK3
INTO CORRESPONDING FIELDS OF TABLE T_HEADER
FROM MBEW AS A INNER JOIN MARA AS B ON AMATNR = BMATNR
INNER JOIN MAKT AS C ON AMATNR = CMATNR
WHERE A~MATNR IN S_MATNR
AND A~BWKEY EQ P_WERKS
AND MATKL IN S_MATKL
AND MTART IN S_MTART
AND BWTAR EQ ' '
AND C~SPRAS = SY-LANGU.
IF SY-SUBRC EQ 0.
SELECT ABUDAT AMBLNR AMJAHR BZEILE BMATNR BWERKS B~BWART
BMENGE BLFBNR BLFBJA BLFPOS BEBELN BEBELP B~XAUTO
BUMMAT BUMWRK
INTO CORRESPONDING FIELDS OF TABLE T_MSEG
FROM MKPF AS A INNER JOIN MSEG AS B ON AMBLNR = BMBLNR
AND AMJAHR = BMJAHR
FOR ALL ENTRIES IN T_HEADER
WHERE A~BUDAT <= P_DATE
AND B~MATNR = T_HEADER-MATNR
AND B~WERKS = T_HEADER-BWKEY
AND B~BWART IN ('101',
'102',
'105',
'106',
'122',
'123',
'301',
'302',
'701',
'702',
'131',
'132',
'309',
'310',
'501',
'502',
'531',
'532',
'561',
'562').
PERFORM GET_DEAD_STOCK.
PERFORM DISPLAY_OUTPUT.
ELSE.
MESSAGE S398(00) WITH 'No Data found for'(013)
'Given Selection Critirea'(017).
LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
*& Form get_dead_stock
text
FORM GET_DEAD_STOCK .
LOOP AT T_HEADER.
SORT T_MSEG BY MATNR WERKS BUDAT DESCENDING MBLNR DESCENDING.
LOOP AT T_MSEG WHERE MATNR = T_HEADER-MATNR
AND WERKS = T_HEADER-BWKEY
AND ( BWART = '101' OR
BWART = '105' OR
BWART = '501' OR
BWART = '531' OR
BWART = '561' OR
BWART = '701' OR
BWART = '309' OR
BWART = '301' OR
BWART = '131' ).
IF T_MSEG-BWART = 101.
READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 102.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 122.
IF SY-SUBRC = 0.
READ TABLE T_MSEG INTO WA_MSEG1 WITH KEY LFBNR = WA_MSEG-MBLNR
LFBJA = WA_MSEG-MJAHR
LFPOS = WA_MSEG-ZEILE
BWART = 123.
IF SY-SUBRC EQ 0.
WA_MSEG-MARK = 'X'.
MODIFY T_MSEG FROM WA_MSEG.
CONTINUE.
ELSE.
IF T_MSEG-MENGE EQ WA_MSEG-MENGE.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ELSE.
T_MSEG-MENGE = T_MSEG-MENGE - WA_MSEG-MENGE.
MODIFY T_MSEG.
ENDIF.
ENDIF.
ENDIF.
ELSEIF T_MSEG-BWART = 105.
READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 106.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
ELSEIF T_MSEG-BWART = 131.
READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 132.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
ELSEIF T_MSEG-BWART = 501.
READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 502.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
ELSEIF T_MSEG-BWART = 301.
READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 302.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
ELSEIF T_MSEG-BWART = 531.
READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 532.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
ELSEIF T_MSEG-BWART = 561.
READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 562.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
ELSEIF T_MSEG-BWART = 701.
READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 702.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
ELSEIF T_MSEG-BWART = 309.
READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
LFBJA = T_MSEG-MJAHR
LFPOS = T_MSEG-ZEILE
BWART = 310.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ELSEIF T_MSEG-XAUTO = ' '.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ELSEIF T_MSEG-MATNR EQ T_MSEG-UMMAT.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
ENDIF.
SELECT SINGLE EBELN INTO EKPO-EBELN FROM EKPO
WHERE EBELN = T_MSEG-EBELN
AND EBELP = T_MSEG-EBELP
AND KNTTP = 'K'.
IF SY-SUBRC = 0.
T_MSEG-MARK = 'X'.
MODIFY T_MSEG.
CONTINUE.
ENDIF.
TMENGE = TMENGE - t_mseg-MENGE.
ENDLOOP.
ENDLOOP.
DELETE T_MSEG WHERE MARK = 'X'.
DELETE T_MSEG WHERE ( BWART = '102' OR
BWART = '106' OR
BWART = '502' OR
BWART = '532' OR
BWART = '562' OR
BWART = '702' OR
BWART = '310' OR
BWART = '302' OR
BWART = '123' OR
BWART = '122' OR
BWART = '132' ).
SORT T_HEADER BY MATNR BWKEY.
DELETE ADJACENT DUPLICATES FROM T_HEADER COMPARING MATNR BWKEY.
T_CUR_STOCK[] = T_MSEG[].
SORT T_CUR_STOCK BY MATNR WERKS.
LOOP AT T_CUR_STOCK.
WA_MSEG = T_CUR_STOCK.
AT END OF WERKS.
ENDAT.
ENDLOOP.
LOOP AT T_HEADER.
CLEAR L_LBKUM.
L_LBKUM = T_HEADER-LBKUM.
REFRESH T_ITEMS.
CLEAR T_ITEMS.
LOOP AT T_MSEG WHERE MATNR EQ T_HEADER-MATNR
AND WERKS EQ T_HEADER-BWKEY.
T_ITEMS = T_MSEG.
APPEND T_ITEMS.
CLEAR T_ITEMS.
ENDLOOP.
SORT T_ITEMS BY BUDAT DESCENDING
MBLNR DESCENDING.
CLEAR L_LBKUM.
LOOP AT T_ITEMS.
L_LBKUM = T_ITEMS-MENGE - T_HEADER-LBKUM.
IF L_LBKUM GE 0.
T_OUTPUT-MATNR = T_HEADER-MATNR.
T_OUTPUT-WERKS = T_HEADER-BWKEY.
T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
T_OUTPUT-MENGE = T_HEADER-LBKUM.
APPEND T_OUTPUT.
CLEAR T_OUTPUT.
EXIT.
ELSE.
T_HEADER-LBKUM = T_HEADER-LBKUM - T_ITEMS-MENGE.
T_OUTPUT-MATNR = T_HEADER-MATNR.
T_OUTPUT-WERKS = T_HEADER-BWKEY.
T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
T_OUTPUT-MENGE = T_ITEMS-MENGE.
APPEND T_OUTPUT.
CLEAR T_OUTPUT.
CONTINUE.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDFORM. " get_dead_stock
*& Form DISPLAY_OUTPUT
text
FORM DISPLAY_OUTPUT .
DATA: L_DAYS TYPE I.
DATA : WA_OUTPUT LIKE T_OUTPUT.
DATA : T_FINAL LIKE T_OUTPUT OCCURS 0 WITH HEADER LINE.
DATA : WA_FINAL LIKE T_OUTPUT.
DATA : L_CQTY TYPE MSEG-MENGE,
L_CPRC TYPE MBEW-SALK3.
DATA : L_TITLE TYPE LVC_TITLE.
DATA : L_NAME1 TYPE T001W-NAME1.
*C-- Not to output when the quantity is zero.
DELETE T_OUTPUT WHERE MENGE EQ 0.
SORT T_OUTPUT BY WERKS MATNR BUDAT.
LOOP AT T_OUTPUT.
T_FINAL = T_OUTPUT.
AT NEW MATNR.
CLEAR T_HEADER.
READ TABLE T_HEADER WITH KEY MATNR = T_OUTPUT-MATNR
BWKEY = T_OUTPUT-WERKS.
ENDAT.
T_FINAL-MAKTX = T_HEADER-MAKTX.
IF T_HEADER-LBKUM GT 0.
T_FINAL-PVAL = ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
ELSE.
CLEAR T_FINAL-PVAL.
ENDIF.
L_CQTY = L_CQTY + T_OUTPUT-MENGE.
IF T_HEADER-LBKUM GT 0.
L_CPRC = L_CPRC + ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
ENDIF.
CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
EXPORTING
BEG_DA = T_OUTPUT-BUDAT
END_DA = P_DATE
IMPORTING
NO_CAL_DAY = L_DAYS
EXCEPTIONS
DATEINT_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
WRITE : 70 'Error While Calculating days'(018) .
ELSE.
T_FINAL-PDAYS = L_DAYS.
ENDIF.
T_FINAL-CQTY = L_CQTY.
T_FINAL-CPRC = L_CPRC.
APPEND T_FINAL.
AT END OF MATNR.
CLEAR : L_CPRC, L_CQTY.
ENDAT.
ENDLOOP.
PERFORM BUILD_FIELD_CATALOG.
WA_SORT-FIELDNAME = 'MATNR'.
WA_SORT-SPOS = '1'.
APPEND WA_SORT TO T_SORT.
SELECT SINGLE NAME1 FROM T001W INTO L_NAME1
WHERE WERKS = P_WERKS.
CONCATENATE 'Plant: ' P_WERKS ',' L_NAME1 INTO L_TITLE.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-CPROG
I_GRID_TITLE = L_TITLE
IT_FIELDCAT = GRID_TAB[]
IT_SORT = T_SORT
I_SAVE = 'A'
TABLES
T_OUTTAB = T_FINAL[].
SORT T_FINAL BY WERKS MATNR BUDAT.
LOOP AT T_FINAL.
WRITE : /10 T_FINAL-MATNR.
WRITE : 30 T_FINAL-WERKS.
WRITE : 40 T_FINAL-BUDAT.
WRITE : 50 T_FINAL-MENGE.
**C-- FM to find the number of days between
**C-- todays date and the posting date
CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
EXPORTING
BEG_DA = T_FINAL-BUDAT
END_DA = P_DATE
IMPORTING
NO_CAL_DAY = L_DAYS
EXCEPTIONS
DATEINT_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
WRITE : 70 'Error While Calculating days'(018) .
ELSE.
WRITE : 70 L_DAYS.
ENDIF.
AT END OF MATNR.
ULINE.
READ TABLE T_HEADER WITH KEY MATNR = T_FINAL-MATNR
BWKEY = T_FINAL-WERKS.
IF SY-SUBRC EQ 0.
WRITE : /1 'Total Valuated Stock', T_HEADER-LBKUM.
WRITE : /1 'Value of total valuated Stock', T_HEADER-SALK3.
ULINE.
ENDIF.
ENDAT.
ENDLOOP.
ENDFORM. " DISPLAY_OUTPUT
*& Form BUILD_FIELD_CATALOG
text
--> p1 text
<-- p2 text
FORM BUILD_FIELD_CATALOG .
DATA : CNT1 TYPE I.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Material'.
GRID_TAB-FIELDNAME = 'MATNR'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Material Description'.
GRID_TAB-FIELDNAME = 'MAKTX'.
GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Date of Reciept'.
GRID_TAB-FIELDNAME = 'BUDAT'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Quantity'.
GRID_TAB-FIELDNAME = 'MENGE'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Pending Days'.
GRID_TAB-FIELDNAME = 'PDAYS'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Value'.
GRID_TAB-FIELDNAME = 'PVAL'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Cumulative Quantity'.
GRID_TAB-FIELDNAME = 'CQTY'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Value of Cumulative Quantity'.
GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-FIELDNAME = 'CPRC'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
ENDFORM. " BUILD_FIELD_CATALOG -
Closing Stock of a particular date:Function Module
Hello Experts,
I m developig a report in which I want Closing Stock amount of a particular date.
Is there any funtion module for this, as in tables S031, mard I m getting Closing Stock as on date.
Pls suggest
PriyankaHi Priyanka,
I didnt find any function module for this purpose.
You can create your FM for this purpose.
You can refer following thread for the reference:
Re: closing stock of a particular date
Closing Stock of a Material
Re: Stock on a particulare date
Hope this will help.
Regards,
Nitin. -
Logic to build report to get the stock on a particular date
Dear Guru's,
We are trying to build a report for getting the stock on a particular date. It is not possible to copy MB5B that option is ruled out. We have also tried to get the data from MBEWH but that is also not helping as the table is not updated for all the periods.
Please advice
Thanks,
SamDear Sameer,
You can copy MB5B report and can modify as per your reuirement.
If you want get stock a paticular date.It is hard to get, why because you have to fetch all the Material documents
and you have to use MBEW table to get the current date stock and you have to do add/subtract from calculated stock.
Due to this there will performance issues also.
So try to copy MB5B and change as per your requirement.
regards
Subhash -
Hi,
i am developing a STOCk-in-transit report, wherein , i need to display stock on a date entered by the user on selection screen. The stock includes all stock type (unrestricted, quality and blocked stock). How do we calculate the stock on a particular date?check out the logic in this program if it helps...
TABLES : MARA,MAKT,MARD,t001w,stpo,stas.
data : begin of t_mara occurs 0,
matnr like mara-matnr,
end of t_mara.
data : begin of t_mard occurs 0,
matnr like mara-matnr,
werks like mard-werks,
labst like mard-labst,
insme like mard-insme,
speme like mard-speme,
end of t_mard.
data : l_stk1 like mard-labst,
l_stk2 like mard-insme,
l_stk3 like mard-speme.
---- BOM -
DATA : BEGIN OF it_mast OCCURS 0,
matnr LIKE mast-matnr,
werks LIKE mast-werks,
stlan LIKE mast-stlan,
stlnr LIKE mast-stlnr,
stlal LIKE mast-stlal,
END OF it_mast.
DATA : BEGIN OF wa_mast OCCURS 0,
matnr LIKE mast-matnr,
werks LIKE mast-werks,
stlan LIKE mast-stlan,
stlnr LIKE mast-stlnr,
stlal LIKE mast-stlal,
END OF wa_mast.
DATA : BEGIN OF it_mast1 OCCURS 0,
matnr LIKE mast-matnr,
werks LIKE mast-werks,
stlan LIKE mast-stlan,
stlnr LIKE mast-stlnr,
stlal LIKE mast-stlal,
END OF it_mast1.
DATA : BEGIN OF it_stas OCCURS 0,
stlty LIKE stas-stlty,
stlnr LIKE stas-stlnr,
stlal LIKE stas-stlal,
stlkn LIKE stas-stlkn,
stasz LIKE stas-stasz,
datuv LIKE stas-datuv,
stvkn LIKE stas-stvkn,
END OF it_stas.
DATA : BEGIN OF it_stpo OCCURS 0,
stlty LIKE stpo-stlty,
stlnr LIKE stpo-stlnr,
stlkn LIKE stpo-stlkn,
stpoz LIKE stpo-stpoz,
idnrk LIKE stpo-idnrk,
meins LIKE stpo-meins,
menge LIKE stpo-menge,
END OF it_stpo.
DATA : BEGIN OF t_stpo OCCURS 0,
stlty LIKE stpo-stlty,
stlnr LIKE stpo-stlnr,
stlkn LIKE stpo-stlkn,
stpoz LIKE stpo-stpoz,
idnrk LIKE stpo-idnrk,
meins LIKE stpo-meins,
menge LIKE stpo-menge,
END OF t_stpo.
DATA : BEGIN OF wa_stpo1 OCCURS 0,
stlty LIKE stpo-stlty,
stlnr LIKE stpo-stlnr,
stlkn LIKE stpo-stlkn,
stpoz LIKE stpo-stpoz,
idnrk LIKE stpo-idnrk,
meins LIKE stpo-meins,
menge LIKE stpo-menge,
END OF wa_stpo1.
data: begin of it_final occurs 0,
stlnr like stpo-stlnr,
matnr like mast-matnr,
menge like stpo-menge,
end of it_final.
data: begin of it_final1 occurs 0,
stlnr like stpo-stlnr,
matnr like mast-matnr,
menge like stpo-menge,
end of it_final1.
data mult_par type c.
-- END OF BOM--
data: WA_TOTSTK like mard-speme.
data G_Matno like mara-matnr.
data bom_req_qty like mard-speme.
data WA_AVLSTUS like mard-speme.
select-options: S_Matno FOR mara-matnr.
parameterS : P_plant like t001w-werks,
P_BOM like mara-matnr.
perform validation.
perform Inputdata.
perform Calcdata.
form validation.
if S_Matno is initial.
message e001 with text-001.
ENDIF.
if P_plant is initial.
message e001 with text-002.
endif.
if P_BOM is initial.
message e001 with text-003.
endif.
select matnr from mara INTO table t_mara
where matnr in S_Matno.
if sy-subrc <> 0.
message e001 with text-004.
endif.
select single * from t001w where werks = P_plant.
if sy-subrc <> 0.
message e001 with text-005.
endif.
select single * from mara where matnr = P_BOM.
if sy-subrc <> 0.
message e001 with text-004.
endif.
endform.
form Inputdata.
select matnr from mara into table t_mara
where matnr in S_Matno.
if sy-subrc = 0.
select matnr werks labst insme speme from
mard into table t_mard
for all entries in t_mara
where matnr = t_mara-matnr and
werks = P_plant.
endif.
endform.
form Calcdata.
loop at t_mara.
select single * from makt where matnr = t_mara-matnr.
if sy-subrc = 0.
G_Matno = t_mara-matnr.
*WRITE:/ SY-ULINE(164).
WRITE:1 sy-vline.
write:2 t_mara-matnr.
write:19 sy-vline.
write:20 makt-maktx.
write:56 sy-vline.
endif.
loop at t_mard.
if t_mard-matnr = t_mara-matnr.
l_stk1 = l_stk1 + t_mard-labst.
l_stk2 = l_stk2 + t_mard-insme.
l_stk3 = l_stk3 + t_mard-speme.
endif.
endloop.
write:57 l_stk1.
write:74 sy-vline.
write:75 l_stk2.
write:92 sy-vline.
write:93 l_stk3.
write:110 sy-vline.
WA_TOTSTK = l_stk1 + l_stk2 + l_stk3.
write:111 WA_TOTSTK.
WRITE:128 SY-VLINE.
perform BOMDATA.
write:129 bom_req_qty.
write:146 sy-vline.
if bom_req_qty >= 1.
WA_AVLSTUS = ( ( 1 / bom_req_qty ) * WA_TOTSTK ).
else.
WA_AVLSTUS = '0.00'.
ENDIF.
write:147 WA_AVLSTUS.
write:164 sy-vline.
write:sy-uline(164).
clear l_stk1.
clear l_stk2.
clear l_stk3.
clear bom_req_qty.
clear WA_TOTSTK.
endloop.
endform.
FORM BOMDATA.
select matnr werks stlan stlnr stlal from mast into
table it_mast
where matnr = P_BOM and stlal = '01' and stlan = '1'
and werks = P_plant.
if sy-subrc = 0.
select stlty stlnr stlal stlkn stasz datuv stvkn from stas
into table it_stas
for all entries in it_mast
where stlnr = it_mast-stlnr and
stlal = it_mast-stlal and
stlty = 'M'.
if sy-subrc = 0.
SELECT stlty stlnr stlkn stpoz idnrk meins menge from stpo into table it_stpo
for all entries in it_stas
where stlty = 'M' and
stlnr = it_stas-stlnr and
stlkn = it_stas-stlkn.
endif.
endif.
perform get_data.
perform process_data.
perform display_data.
ENDFORM.
form process_data.
if mult_par = 'Y'.
refresh it_stpo.
loop at wa_mast.
select matnr werks stlan stlnr stlal from mast into table it_mast
where matnr = wa_mast-matnr
and stlal = '01' and stlan = '1'.
if sy-subrc = 0.
loop at it_mast.
SELECT stlty stlnr stlkn stpoz idnrk meins menge from stpo into table wa_stpo1
where stlnr = it_mast-stlnr.
if sy-subrc = 0.
clear wa_stpo1.
loop at wa_stpo1.
read table t_stpo with key idnrk = wa_mast-matnr.
if t_stpo-menge > 1.
it_stpo-stlty = wa_stpo1-stlty.
it_stpo-stlnr = wa_stpo1-stlnr.
it_stpo-stlkn = wa_stpo1-stlkn.
it_stpo-idnrk = wa_stpo1-idnrk.
it_stpo-meins = wa_stpo1-meins.
it_stpo-menge = wa_stpo1-menge * 2.
else.
move-corresponding wa_stpo1 to it_stpo.
endif.
append it_stpo.
clear wa_stpo1.
clear it_stpo.
endloop.
refresh wa_stpo1.
clear wa_mast.
endif.
endloop.
endif.
endloop.
refresh wa_mast.
perform get_data.
ELSE.
perform display_data.
endif.
endform. "process_data
form get_data.
loop at it_stpo.
select matnr werks stlan stlnr stlal from mast into
table it_mast
where matnr = it_stpo-idnrk
and stlal = '01' and stlan = '1'.
if not it_mast[] is initial.
loop at it_mast.
move-corresponding it_mast to wa_mast.
append wa_mast.
move-corresponding it_stpo to t_stpo.
append t_stpo.
endloop.
clear t_stpo.
else.
it_final-stlnr = it_stpo-stlnr.
it_final-matnr = it_stpo-idnrk.
it_final-menge = it_stpo-menge.
append it_final.
endif.
endloop.
if not wa_mast[] is initial.
mult_par = 'Y'.
clear it_stpo.
else.
mult_par = ''.
endif.
loop at it_final.
move-corresponding it_final to it_final1.
append it_final1.
endloop.
refresh it_final.
refresh it_mast.
perform process_data.
endform. "get_data
form display_data.
sort it_final1 by matnr.
loop at it_final1.
if it_final1-matnr = G_Matno.
bom_req_qty = bom_req_qty + it_final1-menge.
endif.
endloop.
refresh it_stpo.
refresh it_mast.
clear it_final1.
REFRESH it_final1.
endform. "display_data
TOP-OF-PAGE.
WRITE:/ SY-ULINE(164).
WRITE:/1 SY-VLINE,
2 'Part Number',
19 sy-vline,
20 'Description',
56 sy-vline,
57 'Unrestricted Qty',
74 sy-vline,
75 'Quality Qty',
92 sy-vline,
93 'Blocked Qty',
110 sy-vline,
111 'Tot. Avl. Stk',
128 sy-vline,
129 ' Q/E ',
146 SY-VLINE,
147 'Avl Status',
164 sy-vline.
WRITE:SY-ULINE(164).
Regards,
Bikash -
Vendor Stock On A Particular Date
Hi,
How can we see the Vendor Stock on a Particular Date.
For example, today is 04.08.2007, and actually we want to see the Stock of a Vendor as on 31.03.2007.
Regards.PK Karn
Vendor stock is dynamic report so cant get from any t.code
Try to make use of material document and extract the data from table
Thanks
Bala -
How to calculate Opening Stock for a particular date.
Hi Experts,
I have a sitution to calculate Opening stock for a particular date.
please help me with the necessary Fields & Tables required.
Appriciate If any Sample coding available.
Thanks & regards,
Venkat.Hi Venkat,
To Calculate Opening Stock & Closing stock there are different procedures.
It just depends of\n the client requirements & usage of the material.
For example, we have different types of stocks, like, Through Pipeline, Special, Unristricted, quality, safety,
and many types of stocks.... so all these types are indicated in MSEG tabe in SOBTZ field,...
Now Comimg to your Query, You need to calculate OPENING & CLOSING STOCK.
We have a similiar standard report in MB5B Tcode..
to get the same results in your report do like this...
For valuated stock go to the MARDH, MBEWH, MCHBH tables But I Prefer MBEWH.
here in MBEWH give the month & year and you get the result in LBKUM field...
For Special stock, You need to go to another table like MKOLH,,(I forgot still 2 more) and
give the month & year inputs and you will get the result in SLABS field.
and remaining MB5B refers to its deetails lists with different Movement types,
whcih you can get clearly from MSEG Table...
Hope you can write the select Queries accordingly.
Thanks & Regards,
Dileep .C -
Highest stock value on particular date.
Hi all,
Where we can find the highest stock value for particular material for particular date .
for the insurance purpose, we want to identify on which date highest stock value is lying with us.
Thanks & Regards,
Vinay PatelHi Hareesha,
You have given me transaction code for mean stock & mean value.This is not solution for my question
total stock total value date
100 500 01.02.2007
50 300 02.02.2007
200 600 03.02.2007
225 580 04.02.2007
so here 0n 03.02.2007 its showing highest value.
Thanks & Regards,
Vinay Patel -
Hi guys,
Can we get stock of any material as on a specified date without using mb5b? Which table will store this data?
Please help me out on this
thanks in advance
saiHello Chintu,
MB5B is the best report to get material stock on specific date.
There is no direct table which stores stock on particular date, but SAP system calculates strategically with GR, GI and material transfers to get this data. If you want report on that then I think need to develop it.
Does MB5B not meet your requirement? Pl. explain the requirement so we can suggest accordingly.
Regards
Arif Mansuri -
Valuated stock as on particular date such as end of the month
Dear Guru,
Can anyone help me out by telling me about "How to get periodic valuated stock quantity i.e. stock for particular plant , storage location as on end of particular month or as on particular date?"
Thanks in advance.
regards,
Manerkar Sameer
Moderator message: please do more research before posting, e.g. ask your functional contact person.
Edited by: Thomas Zloch on Nov 18, 2011 1:18 PMHi,
Material is valuated or not depends on Material Type. So, in your case you need to know which material types are valuated. In standard SAP system Material Type UNBW and NLAG are not valuated in term of price, generally others are!
For a particular material: MMBE(Standard report) or MM02 (Accounting view).
Hope helped
Reetesh -
FG stock on a particular date for a specific customer
Hi all,
I need to develop one report in which i need FG stock for a particular customer on a particular date. For ex on 5/11/11 what was the FG stock against xyz customer.
Is there any logic available for this requirement. can you please tell me which tables i should look for?
ThanksFG stock for a particular customer on a particular date.
Is it Make to Order stock? If it is not, then you may not find the details. If it is MTO, then use t.code MB5B. Using this, you can find stock on particular date.
Regards, -
Stock quantity at particular date
Here today my stock is 500, if i want to know last month same date what was my stock position can i get???
Edited by: Csaba Szommer on Jun 18, 2011 2:26 PMHI,
we can get this report thru SAP standard without vendor selection, do the following steps
1. goto MB5B
2. Give plant /material details
3. give selection date
4. select stock type option as special stock
5. select special stoct indicator as "O" for material provided to vendor
excute the same , you will get a report with qty and value posted for the vendor from the plant
here by copying this standard program we can add one more input parameter as vendor, then we can get this report vendorwise also.
try this and let us know
Regards
Sridharan -
Need stock on particular date entered on selection screen
I am creating a stock in transit report and need stock on particular date entered by the user on selection screen.How do I calculate stock on a particular date?
same thread...
Re: Stock on a particulare date -
Inventory cube 0IC_C03 ,Stock on particular date
Hi All,
We are trying to get the stock on a particular date using cube 0IC_C03 ,but we are unable to get the total stock on a given date.
1)Ex: I want stock on 01.12.2009 ,but in the query output I am getting null values.
I am only getting the total stock quantity on the loaded date for ex:04.01.2010(which is my data loading date in to the cube).
2)And when we restrict 0calday with <=01.12.2009 ,i have to get the total stock till 01.12.2009
Thanks®ards,
SunithaHi,
Check
Treatment of historical full loads with Inventory cube
Setting up material movement/inventory with limit locking time
1)Ex: I want stock on 01.12.2009 ,but in the query output I am getting null values.
I am only getting the total stock quantity on the loaded date for ex:04.01.2010(which is my data loading date in to the cube).
For 2LIS_03_BX it will give the extracted date only
2)And when we restrict 0calday with <=01.12.2009 ,i have to get the total stock till 01.12.2009
try with below options.
Use :
0VALSTCKVAL " for Value
0VALSTCKQTY " for Qty
0CALMONTH " for Month
Use the above combinations in New Selections in columns and go it.
For Qty Opening:
New Selection bad drag abd drop following things
0VALSTCKQTY " for Qty
0CALMONTH " for Month and restrict with less then or equalto option variable (single value, user input) and set the offeset
value = -1 bcoz if user will give 12.2009 , so it will display 11.2009 closing stock, this is opening for 12.2009.
For Qty Closing:
New Selection bad drag abd drop following things
0VALSTCKQTY " for Qty
0CALMONTH " for Month and restrict with less then or equalto option variable (single value, user input) .
In the same way build for Value and other Keyfigures on 0IC_C03.
And
Drag & drop
0MATERAIL
0PLANT " Give some Input Variable.
See the steps.
Treatment of historical full loads with Inventory cube
Setting up material movement/inventory with limit locking time
If it is BI 7 then for BX in in DTP in Extraction Tab you need to select Extacrion mode = NON-Cumulative option.
Thanks
Reddy -
Full stock of a particular site
Dear Friends,
Is it possible to see all article stock from a single report.
For example: I'll put MS01/DC01 and it will show me the stocks of RM/SFG/FG.
Regards,
ZubaerZubaer,
Your request is somewhat vague.
I am not aware of a report that will display the inventory of a Bill of Materials.
I don't know what "MS01/DC01" is, but I assume you are referring to a generic material/distribution plant combination..
You can display inventory quantities in detail across plants of a single material or material group by using transaction RWBE.
You can display inventory quantities in list form by using transaction MB52
You can display stocks on a particular date by using transaction MB5B.
Other inventory reports are available. Enter SAP1 at the command line, which will take you to a menu listing of most available reports in std SAP. Select Materials Management > Inventory Management. Try the resultant listing to see if any of these reports meets your requirements.
Rgds,
DB49
Maybe you are looking for
-
Hello, At my company, they run the MR11 to check for GR/IR variances and then clear these variances using the F.13 transaction. Finally, the F.19 transaction is run to check for PO's having the GR/IR variance. There are some old PO's of 2005/2006 whi
-
How can i install free apps in my iPad 2 without card?
How can i install free apps in my iPad 2 without card?
-
Hi All, I have 7.0 Template. now I want to make changes in the Navigation Block item.What i want to do is, I want to see more than 1 characteristic in a row in the navigation block in the report. Can anybody help me change this? I know it is possible
-
HELP! Color transition property greyed out in Dreamweaver CC
I'm trying to add a color change transition for the text in my navigation and the color property is greyed out. How can I change this?
-
Hey All, not sure if you can help but my phone was great at the start, stored loads of messages etc. but now its started turning its self off and then when i turn it back on all my text messages in my in box (not sent etc) have been deleted. also now