Stock report with grn no & date

hello gurus,
I need standard stock reports available in SAP with GRN no. and date.
points assured*
Anand

Hi
Use MB5B stock on posting date.By using this T code
1.You see stock on a perticular date
2.If you give selection date rangeL ex 01.07.2007 to 16.07.2007 then
   It will display Stock as on 01.07.2007
   Stock as on 16.07.2007
   and all the goods movement between 01.07.2007 to 16.07.2007.
Use MMBE, after executing select Material movements from Environment tab in menu bar.It will also display all the material movements for that material.
Regards
Ramakrishna

Similar Messages

Please help to get onhand stock report with last purchase and billed date warehouse and item wise

please help to get onhand stock report with last purchase and billed date warehouse and item wise

Hi Rajeesh Ambadi...
Try This
SELECT distinct T0.ITEMCODE , t1.ItemName, T0.ONHAND as 'Total Qty',
T1.LASTPURDAT ,t1.LastPurPrc
FROM OITW T0 INNER JOIN OITM T1 ON T0.ITEMCODE = T1.ITEMCODE
INNER JOIN OITB T2 ON T1.ITMSGRPCOD=T2.ITMSGRPCOD left join ibt1 t3 on t3.itemcode = t0.itemcode and t3.whscode = t0.whscode
WHERE
T0.ONHAND>0
AND T0.WhsCode ='[%0]'
Hope Helpful
Regards
Kennedy

Stock Report as on any date.

i am developing a stock report as on any date where i have to get the closing stock of unrestricted blocked and transit stock as on any date.
i have taken a table mkpf and mseg to get the quantity and date.
i am not getting what all movement type i should use to get the closing stock for unrestricted blocked and transit and what method i shoud use?
please help me out.

Jairaj Kumar ,
Your Report is Little bit complex and time consuming as well.We did a Report same as like you but not Special Stock (means for all of Stock).
For Closing Balance Which will be Opening Balance of next perio/ next day , can be calculated based on DEBIT / Credit inidcator available in the table you are using. This will used of calculate Stock balance. along with movement type for date range.
Hope this will give some info about for ur requirement. Note refer to Tcode MB5L for reference.

Crystal Report with text(csv) data file, can we set it as input parameter?

Hi,
I am a new user of Crystal Reports 2008.
I have created a report with charts in it. The input data comes from a csv text file.
Can I set the name of this text file as an input parameter?
as I need to generate 44 similar reports with different text filenames(and data)?
Thank you.
Regards

Brian,
Thanks much.
I did exactly what you said.
Just to see any change, I first gave a bad report file name just to see if I am accidentally pointing to a different file,
but I got an error saying report not found.
Then I renamed my original datafile name and generated a report and it still generated one without giving an error.
Then I also gave a junk name to the logoninfo and printed that name, the new name was assigned to logoninfo, but the code did not error out.
It ended up generating the report.
Now here is what I think is happening,
1) The save data in report option seems to be still on even though I have turned it off in 2 locations
a) file -> Report Options
b) file -> Options -> Reporting tab.
2) For some reason the logoninfo is getting ignored as well.
Since I did not see any answers yesterday I posted a link to this thread on the .Net forum
Crystal Report with text(csv) data file, can we set it as input param? C#
and Ludek Uher says that I am connecting to the text file via a DAO database engine and so need to use the same code for changing the text file as for changing an Access database.
But the link he gave me tells me to try the same thing that we have been trying..
Here is my plan,
1) I will first try and find out why my save data with report option is still on ( but it shows off in Crystal ).
2) why is LogonInfo getting ignored.
Meanwhile any suggestions from anyone are welcome.

Crystal Report with text(csv) data file, can we set it as input param? C#

Hi,
I am new to the forums and posted a question which belonged to the .net - SAP Crystal reports group.
Can someone help me with my problem? following is the thread that I have started.
Crystal Report with text(csv) data file, can we set it as input parameter?
Thank you in advance.

Looking at the original thread, you are connecting to the text file via the DAO database engine:
"I added the text file as follow, new connection -> Access/Excell (DAO) -> select the file and the database type as text"
Thus I would use the same code for changing the text file as for changing an Access database. See Kbase [1218178 - Error: "Logon failed" when connecting to Access database in .NET application|http://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/oss_notes_boj/sdn_oss_boj_bi/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/scn_bosap/notes%7B6163636573733d36393736354636443646363436353344333933393338323636393736354637333631373036453646373436353733354636453735364436323635373233443330333033303331333233313338333133373338%7D.do] for more information. If that does not work, you may want to consider connecting via ODBC or feeding the data from the text file to and ADO .NET dataset and pointing the report at the dataset.
Ludek
Follow us on Twitter http://twitter.com/SAPCRNetSup
Got Enhancement ideas? Try the [SAP Idea Place|https://ideas.sap.com/community/products_and_solutions/crystalreports]

Sub:Stock report with sales unit of measurement - reg.,

Hi guru's
we have a requirement to have the stock report with sales unit of measure instead of base unit of measure can anybody guide me how to do this.
thanks in advance
tulja singh.

From std. , I think your requirement can not satisfied.
Make customized report.
Take the help of ABAPER.

Stock Report with Batch Number

Hi ,
My Client requires stock report with Batch numbers .required report format is
Item Code,BatchNumber,OpenQty,OpenVal,PurchaseQty,PurchaseVal,SalesQty,SalesVal,ClosQty,CloseVal
I tried using query on wiki for stock report but that query is written in 2007 and Batch tables and OINM table is changes in 8.81.
http://wiki.sdn.sap.com/wiki/display/B1/SAPB1SQLH-INItemInventoryOpeningandClosingStockper+warehouse
can any one help with stock report- batches.
Thanks,
Preeti

HI,
use below query as basis and mofiy the fields required. it shows linking in batch and transaction tables:
SELECT distinct T0.ItemCode,T0.ItemName ,T0.DocDate ,T0.DocType ,T0.DocNum,T0.LocCode ,t4.DistNumber as [BatchNumber], T1.Quantity ,T5.CalcPrice as [Price]
FROM [OITL] T0
          INNER JOIN [ITL1] T1 ON T1.[LogEntry] = T0.[LogEntry]
          INNER JOIN OBTN T4 on T1.MdAbsEntry=T4.AbsEntry
          INNER JOIN [OITM] T2 ON T2.[ItemCode] = T0.[ItemCode]
          Inner JOin OINM T5 on T0.ItemCode =T5.ItemCode and T0.LocCode = T5.Warehouse and T0.AppDocNum = T5.BASE_REF
Thanks,
Neetu

How to process reports with two different date fields

Morning all,
This question is somewhat similar to what I asked few days back. I created two different reports for two different departments (Credit Control and Free of Charge Control).
These two reports pull data from two different date fields and has different status check ups.
Few days back my director requested me if he can have both reports in one report. That is when I asked question from all of you regarding two reports.
Anyhow, that was created by implementing two sub reports however, the director asked me to combine the two different reports into one in such a way that the output records should be added up with each other hence one single report with all combined data of Credit Control and Free of Charges (not two sub reports in one report).
The problem here which I am getting is that, both reports uses two different date fields. I can live with two different statuses as that can be easily done within formula/RT however how to create a report with Report Selection Formula condition which looks in both date fields and produces results accordingly?
I have tried this by not putting any condition in report selection formula and ran the report, it produced total results from past 6 years.
Any ideas how to produce combined report which has two different date fields?
Many thanks in advance
Regards
Jehanzeb
What I

Charliy,
No the both dates are from two different databases, tables and fields. The Credit date field is from KLAB database under max table where as the FOC date field is from SAE database under maxmast table. Klab date is under credit2 table where as foc date is under order header table.
So its more like this:
Klab->Max-Credit2--->Credit_date
Sae->Maxmast->Order_header---Date entered.
two dates totally different tables, dbs
however, I will try your idea too and see if that works.
Regards
Jehanzeb

Schedule a report with the system date imbeded in the file name

Hello,
Could anyone tell me how I can schedule a crystal report with the system date imbedded in the file name (FileNameYYYYMMDD) through BOE? When I scheduled the report through BOE, I gave a file name and selected Attach Date Time, but the file name is coming out slightly differently and with the time imbedded as well (FileNameYYYY-MM-DD-HH-MN I think). Is there a way to change the default system date time format in BOE so that the date stamp comes out the way we want it?
Thanks!

%SI_STARTTIME% will add the time the report ran too.
Adding onlt the date will necessarily have to be done via the appropriate SDK.

Create a listing of reports with last run date and # of times run

Hi All,
I want to create a listing of reports with last run date and number of times report is run in the past 18 months.
If anybody can please help me with the query for the same.
Regards,
Sk
Edited by: user10989244 on Aug 18, 2009 7:12 AM

Hi Sk
Assuming you have the collection of statistics enabled, which it is out of the box, you can get the information you need from the EUL5_QPP_STATS table. This script will help:
SELECT
QPP.QS_DOC_OWNER WORKBOOK_OWNER,
QPP.QS_DOC_NAME WORKBOOK_NAME,
QPP.QS_DOC_DETAILS WORKSHEET_NAME,
QPP.QS_CREATED_BY RUN_BY,
TRUNC(MAX(QPP.QS_CREATED_DATE)) LAST_USED_DATE,
COUNT(QPP.QS_ID) TIMES_USED
FROM
EUL5_QPP_STATS QPP
WHERE
QPP.QS_CREATED_DATE >= ADD_MONTHS(SYSDATE, -18)
GROUP BY
QPP.QS_DOC_OWNER,
QPP.QS_DOC_NAME,
QPP.QS_CREATED_BY,
QPP.QS_DOC_DETAILS
ORDER BY 1,2,3;
Best wishes
Michael

Batch wise stock report with qty and value as on date

is there any report so that we can see the stock qty with value as on date,
i have tried mb5b but it is showing only qty and batch combination not qty value and batch combination
plz suggest me, it is very urgent.
nitin

MBEWH is the valuation history, this is only updated with the first movement after a period closure. And the period is a month.
There is no table in SAP that holds the stock information on daily basis.
You have to develope this yourself. Easiest method by copying a table like MBEW and MARD daily to a Z-Table.
A stock situation at a certain date can be calculated with MB5B.
Edited by: Jürgen L. on Aug 5, 2008 4:06 PM

Stock report with value and qauntity for given date not month wise

Hi gems,
can any body give me the standard report for Stock value and qauntity for given date not month wise at storage location level

Hi
check the report S_P00_07000139 with the option inventory and raw material report- detail and selection date (from, to date same). List will give opening & closing balances with goods movment and their values.
Thanks

Stock report with the field... last stock changed at certain date?

Is there any standard report with the date of the last change of the stock value and quantity?
Points granted
BR
Saso

Hi people,
I want to know why MBEWH have not any material stock information for period when doesn´t exist any inventory movement for some materials, for example I have a case in 12.2006 period the material A have stock quantity 100 and value 1000 and the next period 01.2007 no stock movements were done for this reason the MBEWH had to had the same values stock 100 and value 1000 in 01.2007 period, but in MBEWH is missing, there is not any information for material A in this period.
Anybody knows about this problem?
Thanks.
Lili.

Stock report with date range

Hi Experts.
Material stock report (unrestricted, blocked, quality) with in date range.
getting information in T-CODE: MB52 but not in date range.
In mard table i did't find the date for unrestricted, blocked and quality.
from where can i get that information and how should i link all
Need a psudo code for it.
If any one worked on this kind of object plz send me the code.
Points assured..
Regards..
Ravi Reddy.

Hi
Check this sample code hope it will helpfull for you
*DATA: ED TYPE F.
DATA : ED(15) TYPE N .
TABLES: EKKO, EKBE, EKPO, KONH , KONV ,LFA1 ,ESLL.
TYPE-POOLS: SLIS.
DATA: val1 like konh-vakey.
Data:GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
     G_REPID LIKE SY-REPID,
     G_GRID_TITLE TYPE LVC_TITLE.
Data:G_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
DATA:G_TABNAME TYPE SLIS_TABNAME VALUE 'ITAB1',
G_SAVE .
DATA:GS_VARIANT LIKE DISVARIANT.
DATA:LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA:GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
     G_SAVE = 'A'.
DATA: BEGIN OF ITAB OCCURS 10,
          EBELN LIKE EKKO-EBELN,
*          LIFNR like p_vendor,
          LIFNR LIKE EKKO-LIFNR,
          NAME1 LIKE LFA1-NAME1,
          NAME2 LIKE LFA1-NAME2,
*          EBELP LIKE EKBE-EBELP,
          BELNR LIKE EKBE-BELNR,
          VGABE LIKE EKBE-VGABE,
          GJAHR LIKE EKBE-GJAHR,
          KNUMV LIKE EKKO-KNUMV,
          EKORG LIKE EKKO-EKORG,
          BEDAT LIKE EKKO-BEDAT,
*          VAKEY LIKE KONH-VAKEY,
     END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 10,
          NAME1 LIKE LFA1-NAME1,
          NAME2 LIKE LFA1-NAME2,
          EBELN LIKE EKPO-EBELN,
          LIFNR LIKE EKKO-LIFNR,
          EBELP LIKE EKPO-EBELP,
*          EBELP LIKE EKBE-EBELP,
          KNUMH LIKE KONH-KNUMH,
          BELNR LIKE EKBE-BELNR,
          MATNR LIKE EKPO-MATNR,
          TXZ01 LIKE EKPO-TXZ01,
          PS_PSP_PNR LIKE EKKN-PS_PSP_PNR,
          EXTROW LIKE ESLL-EXTROW,
          SRVPOS LIKE ESLL-SRVPOS,
          KTEXT1 LIKE ESLL-KTEXT1,
          KOSTL LIKE EKKN-KOSTL,
          NETPR LIKE EKPO-NETPR,
          NETWR LIKE EKPO-NETWR,
          ED1 TYPE p decimals 2,
          KBETR2 LIKE KONV-KBETR,
          KBETR1 LIKE KONV-KBETR,
          KBETR LIKE KONV-KBETR,
*          KBETR3 LIKE KONV-KBETR,
          KWERT LIKE KONV-KWERT, " THIS IS FOR FREIGHT
          KWERT1 LIKE KONV-KWERT, " THIS IS FOR PBXX OR PB00
          KWERT2 LIKE KONV-KWERT, " THIS FOR OTHER CONDITION
          MENGE LIKE EKPO-MENGE,
*          TOTAL(15) type .
          TOTAL TYPE p decimals 2,
          VAKEY LIKE KONH-VAKEY,
          WERKS LIKE EKPO-WERKS,
          MWSKZ LIKE EKPO-MWSKZ,
          PACKNO LIKE EKPO-PACKNO,
          KNUMV LIKE KONV-KNUMV,
          SUB_PACKNO LIKE ESLL-SUB_PACKNO,
          GJAHR LIKE RSEG-GJAHR,
      END OF ITAB1.
DATA: BEGIN OF ITAB2 OCCURS 10,
         EBELN LIKE EKKN-EBELN,
         EBELP LIKE EKKN-EBELP,
         PS_PSP_PNR LIKE EKKN-PS_PSP_PNR,
         KOSTL      LIKE EKKN-KOSTL,
      END OF ITAB2.
data: begin of itab3 occurs 10,
        KNUMH LIKE KONH-KNUMH,
        KSCHL LIKE KONH-KSCHL,
     end of itab3.
data: begin of itab4 occurs 10,
        KBETR LIKE KONP-KBETR,
      end of itab4.
data: begin of itab5 occurs 10,
        KPOSN LIKE KONV-KPOSN,
        KNUMV LIKE KONV-KNUMV,
        KSCHL LIKE KONV-KSCHL,
        KBETR LIKE KONV-KBETR,
        KWERT LIKE KONV-KWERT, " THIS IS FOR FREIGHT
*          KAWRT LIKE KONV-KAWRT,
     end of itab5.
DATA: BEGIN OF ITAB6 OCCURS 10,
*          PACKNO LIKE EKPO-PACKNO,
          SUB_PACKNO LIKE ESLL-SUB_PACKNO,
        END OF ITAB6.
DATA: BEGIN OF ITAB7 OCCURS 10,
       BELNR LIKE RSEG-BELNR,
       GJAHR LIKE RSEG-GJAHR,
END OF ITAB7.
DATA: BEGIN OF ITAB8 OCCURS 10,
       SUB_PACKNO LIKE ESLL-SUB_PACKNO,
       SRVPOS LIKE ESLL-SRVPOS,
       EXTROW LIKE ESLL-EXTROW,
       KTEXT1 LIKE ESLL-KTEXT1,
END OF ITAB8.
*selection-screen
*SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*SELECTION-SCREEN SKIP 2.
*SELECTION-SCREEN BEGIN OF LINE.
*SELECTION-SCREEN COMMENT 25(23) text-002.
**SELECT-OPTIONS: s_lifnr FOR ekko-lifnr.
*PARAMETERS:p_lifnr LIKE ekko-lifnr obligatory.
*SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
PERFORM get_data.
* PERFORM field_catalog.
* PERFORM display_data.
END-OF-SELECTION.
**&      Form display_data
**       text
*FORM display_data.
*data: new(15) TYPE N.
* CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
*    EXPORTING
*      i_callback_program = sy-repid
*      it_fieldcat        = int_cat[]
*    TABLES
*      t_outtab           = int_out
*    EXCEPTIONS
*      program_error      = 1
*      OTHERS             = 2.
*ENDFORM.                    "display_data
PERFORM GET_DATA.
PERFORM CALL_ALV_GRID.
FORM CALL_ALV_GRID.
PERFORM FIELDCAT_INIT USING GT_FIELDCAT[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM                = G_repid
      I_CALLBACK_USER_COMMAND           = G_USER_COMMAND
      I_GRID_TITLE                      = G_GRID_TITLE
      IT_FIELDCAT                       = GT_FIELDCAT[]
      I_DEFAULT                         = 'X'
      I_SAVE                            = G_SAVE
      IS_VARIANT                        = Gs_VARIANT
    TABLES
      T_OUTTAB                          = ITAB1.
ENDFORM.
FORM FIELDCAT_INIT
       USING RT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-seltext_l     = 'Vendo No'.
LS_FIELDCAT-FIELDNAME     = 'LIFNR'.
LS_FIELDCAT-REF_FIELDNAME = 'LIFNR'.
LS_FIELDCAT-REF_TABNAME   = 'EKKO'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
   CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-SELTEXT_L = 'Vendor Name'.
LS_FIELDCAT-FIELDNAME     = 'NAME1'.
LS_FIELDCAT-REF_FIELDNAME = 'NAME1'.
LS_FIELDCAT-REF_TABNAME   = 'LFA1'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
* CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-FIELDNAME     = 'NAME2'.
* LS_FIELDCAT-REF_FIELDNAME = 'NAME2'.
* LS_FIELDCAT-REF_TABNAME   = 'LFA1'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-seltext_l   = 'Purchase Document No'.
LS_FIELDCAT-FIELDNAME     = 'EBELN'.
LS_FIELDCAT-REF_FIELDNAME = 'EBELN'.
LS_FIELDCAT-REF_TABNAME   = 'EKKO'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
* CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-FIELDNAME     = 'VGABE'.
* LS_FIELDCAT-REF_FIELDNAME = 'VGABE'.
* LS_FIELDCAT-REF_TABNAME   = 'EKBE'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-SELTEXT_L     = 'Item No'.
LS_FIELDCAT-FIELDNAME     = 'EBELP'.
LS_FIELDCAT-REF_FIELDNAME = 'EBELP'.
LS_FIELDCAT-REF_TABNAME   = 'EKPO'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
* CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-FIELDNAME     = 'BELNR'.
* LS_FIELDCAT-REF_FIELDNAME = 'BELNR'.
* LS_FIELDCAT-REF_TABNAME   = 'EKBE'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
   CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-SELTEXT_L     = 'Document Con'.
LS_FIELDCAT-FIELDNAME     = 'KNUMH'.
LS_FIELDCAT-REF_FIELDNAME = 'KNUMH'.
LS_FIELDCAT-REF_TABNAME   = 'KONH'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
*   CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-SELTEXT_L = 'Service/Material No'.
* LS_FIELDCAT-FIELDNAME     = 'MATNR'.
* LS_FIELDCAT-REF_FIELDNAME = 'MATNR'.
* LS_FIELDCAT-REF_TABNAME   = 'EKPO'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
*   CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-SELTEXT_L = 'Service / Material description' .
* LS_FIELDCAT-FIELDNAME     = 'TXZ01'.
* LS_FIELDCAT-REF_FIELDNAME = 'TXZ01'.
* LS_FIELDCAT-REF_TABNAME   = 'EKPO'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
*   CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-SELTEXT_L = 'WBS Element' .
* LS_FIELDCAT-FIELDNAME     = 'PS_PSP_PNR'.
* LS_FIELDCAT-REF_FIELDNAME = 'PS_PSP_PNR'.
* LS_FIELDCAT-REF_TABNAME   = 'EKKN'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
*   CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-SELTEXT_L = 'Serial Number' .
* LS_FIELDCAT-FIELDNAME     = 'EXTROW'.
* LS_FIELDCAT-REF_FIELDNAME = 'PACKNO'.
* LS_FIELDCAT-REF_TABNAME   = 'ESLL'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
* CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-SELTEXT_L = 'Service Number' .
* LS_FIELDCAT-FIELDNAME     = 'SRVPOS'.
* LS_FIELDCAT-REF_FIELDNAME = 'SRVPOS'.
* LS_FIELDCAT-REF_TABNAME   = 'ESLL'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
*   CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-SELTEXT_L = 'Dscription' .
* LS_FIELDCAT-FIELDNAME     = 'KTEXT1'.
* LS_FIELDCAT-REF_FIELDNAME = 'KTEXT1'.
* LS_FIELDCAT-REF_TABNAME   = 'ESLL'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
*   CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
*    LS_FIELDCAT-SELTEXT_L = 'Cost Center'.
* LS_FIELDCAT-FIELDNAME     = 'KOSTL'.
* LS_FIELDCAT-REF_FIELDNAME = 'KOSTL'.
* LS_FIELDCAT-REF_TABNAME   = 'EKKN'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-FIELDNAME     = 'NETWR'.
LS_FIELDCAT-FIELDNAME     = 'NETPR'.
LS_FIELDCAT-reptext_ddic = 'Basic'.
* LS_FIELDCAT-SELTEXT_L    = 'Basic'.
   LS_FIELDCAT-REF_FIELDNAME = 'NETPR'.
LS_FIELDCAT-REF_TABNAME   = 'EKPO'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-FIELDNAME     = 'NETWR'.
* LS_FIELDCAT-FIELDNAME     = 'NETPR'.
* LS_FIELDCAT-reptext_ddic = ''.
* LS_FIELDCAT-SELTEXT_L    = 'Basic'.
   LS_FIELDCAT-REF_FIELDNAME = 'NETWR'.
LS_FIELDCAT-REF_TABNAME   = 'EKPO'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
    LS_FIELDCAT-SELTEXT_L = 'Excise'.
LS_FIELDCAT-FIELDNAME     = 'ED1'.
LS_FIELDCAT-REF_FIELDNAME = 'ED1'.
* LS_FIELDCAT-REF_TABNAME   = 'EKKN'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
   CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-SELTEXT_L = 'Insurance'.
LS_FIELDCAT-FIELDNAME     = 'KBETR2'.
    LS_FIELDCAT-REF_FIELDNAME = 'KBETR'.
LS_FIELDCAT-REF_TABNAME   = 'KONV'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-SELTEXT_L     = 'Frieght'.
LS_FIELDCAT-FIELDNAME     = 'KWERT'.
LS_FIELDCAT-REF_FIELDNAME = 'KWERT'.
LS_FIELDCAT-REF_TABNAME   = 'KONV'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
* CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-SELTEXT_L     = '' .
* LS_FIELDCAT-FIELDNAME     = 'KBETR1'.
* LS_FIELDCAT-REF_FIELDNAME = 'KBETR'.
* LS_FIELDCAT-REF_TABNAME   = 'KONV'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
*CLEAR LS_FIELDCAT.
* LS_FIELDCAT-TABNAME       = G_TABNAME.
* LS_FIELDCAT-SELTEXT_L     = 'PBXX'.
* LS_FIELDCAT-FIELDNAME     = 'KWERT1'.
* LS_FIELDCAT-REF_FIELDNAME = 'KWERT'.
* LS_FIELDCAT-REF_TABNAME   = 'KONV'.
* APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-SELTEXT_L     = 'VAT/ST '.
LS_FIELDCAT-FIELDNAME     = 'KBETR'.
LS_FIELDCAT-REF_FIELDNAME = "KBETR".
LS_FIELDCAT-REF_TABNAME   = 'KONV'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-SELTEXT_L     = 'OTHER '.
LS_FIELDCAT-FIELDNAME     = 'KWERT2'.
LS_FIELDCAT-REF_FIELDNAME = "KWERT".
LS_FIELDCAT-REF_TABNAME   = 'KONV'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-TABNAME       = G_TABNAME.
LS_FIELDCAT-SELTEXT_L = 'TOTAL'.
LS_FIELDCAT-FIELDNAME     = 'TOTAL'.
LS_FIELDCAT-REF_FIELDNAME = 'TOTAL'.
* LS_FIELDCAT-REF_TABNAME   = 'EKKN'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
   ENDFORM.                    " FIELDCAT_INIT
   FORM GET_DATA.
   SELECT A~EBELN A~LIFNR A~EKORG A~KNUMV B~VGABE B~GJAHR B~BELNR
           L~NAME1 L~NAME2
        FROM EKKO AS A
                      INNER JOIN EKBE AS B ON B~EBELN = A~EBELN
                      INNER JOIN LFA1 AS L ON L~LIFNR = A~LIFNR
                      INTO CORRESPONDING
                      FIELDS OF TABLE ITAB.
*                      WHERE B~VGABE = '2'.
SELECT EKPO~EBELN EKPO~EBELP EKPO~MATNR EKPO~TXZ01 EKPO~WERKS
          EKPO~NETWR EKPO~MENGE EKPO~MWSKZ EKPO~NETPR EKPO~PACKNO
          FROM EKPO
                    INTO CORRESPONDING FIELDS OF TABLE ITAB1
                    FOR ALL ENTRIES IN ITAB
                    WHERE EKPO~EBELN = ITAB-EBELN and
                          EKPO~BUKRS = 'company code'.
   SELECT EKKN~EBELN EKKN~EBELP EKKN~KOSTL EKKN~PS_PSP_PNR
      FROM EKKN
               INTO CORRESPONDING FIELDS OF TABLE ITAB2
               FOR ALL ENTRIES IN ITAB1
               WHERE EKKN~EBELN = ITAB1-EBELN AND
                     EKKN~EBELP = ITAB1-EBELP.
   SELECT KONV~KNUMV KONV~KSCHL KONV~KBETR KONV~KWERT KONV~KWERT
              KONV~KPOSN
      FROM KONV
          INTO CORRESPONDING FIELDS OF TABLE ITAB5
          WHERE KONV~KNUMV =   ITAB1-KNUMV AND
                KONV~KPOSN = ITAB1-EBELP.
*    SELECT LFA1~NAME1 LFA1~NAME2 FROM LFA1
*    INTO CORRESPONDING FIELDS OF TABLE ITAB1
*    WHERE LFA1~LIFNR = ITAB-LIFNR.
* SELECT ESLL~SUB_PACKNO ESLL~SRVPOS
*           ESLL~EXTROW ESLL~KTEXT1 FROM ESLL
*       INTO CORRESPONDING FIELDS OF TABLE ITAB6
*       FOR ALL ENTRIES IN ITAB1
*       WHERE ESLL~PACKNO = ITAB1-PACKNO .
**         SELECT ESLL~SUB_PACKNO FROM ESLL
**       INTO CORRESPONDING FIELDS OF TABLE ITAB6
**       FOR ALL ENTRIES IN ITAB1
**       WHERE ESLL~PACKNO = ITAB1-PACKNO.
*        SELECT ESLL~SUB_PACKNO ESLL~SRVPOS
*           ESLL~EXTROW ESLL~KTEXT1 FROM ESLL
*       INTO CORRESPONDING FIELDS OF TABLE ITAB8
*       FOR ALL ENTRIES IN ITAB6
*       WHERE ESLL~PACKNO = ITAB6-SUB_PACKNO .
* SELECT RSEG~BELNR RSEG~GJAHR FROM RSEG
*        INTO CORRESPONDING FIELDS OF TABLE ITAB7
*        FOR ALL ENTRIES IN ITAB
*        WHERE RSEG~BELNR = ITAB-BELNR AND
*              RSEG~GJAHR = ITAB-GJAHR.
*LOOP AT ITAB1.
LOOP AT ITAB.
              READ TABLE ITAB1 WITH KEY EBELN = ITAB-EBELN.
*         IF ITAB1-EBELN = ITAB-EBELN.
                IF sy-subrc eq 0.
*                          ITAB1-EBELN = ITAB-EBELN.
                          ITAB1-LIFNR = ITAB-LIFNR.
*                          ITAB1-EBELP = ITAB-EBELP.
                          ITAB1-BELNR = ITAB-BELNR.
                          ITAB1-KNUMV = ITAB-KNUMV.
                          ITAB1-NAME1 = ITAB-NAME1.
                          ITAB-NAME2 = ITAB-NAME2.
                          ITAB1-GJAHR = ITAB-GJAHR.
                modify itab1 index   sy-tabix.
        ENDIF.
ENDLOOP.
*LOOP AT ITAB2.
*         READ TABLE ITAB1 WITH KEY EBELN = ITAB2-EBELN.
*          IF sy-subrc eq 0.
*              ITAB1-EBELN = ITAB2-EBELN.
*              ITAB1-PS_PSP_PNR = ITAB2-PS_PSP_PNR.
*              ITAB1-KOSTL = ITAB2-KOSTL.
*               modify itab1 transporting ps_psp_pnr kostl
*               where ebeln = Itab2-ebeln AND EBELP = ITAB2-EBELP.
*          ENDIF.
*ENDLOOP.
LOOP AT ITAB1.
**ON CHANGE OF   ITAB1-ebeln or itab1-ebelp.
*     concatenate itab1-werks itab1-lifnr itab1-matnr
*         into val1.
*   MOVE VAL1 TO ITAB1-VAKEY.
*   MODIFY ITAB1.
*    SELECT KONH~KNUMH KONH~KSCHL FROM KONH
*        INTO CORRESPONDING FIELDS OF TABLE ITAB3
*        FOR ALL ENTRIES IN ITAB1
*        WHERE KONH~VAKEY = ITAB1-VAKEY.
**endon.
**        sort Itab3 by kschl descending.
**        Select konp-kbetr from konp into itab4 where
**        KONP~KNUMH = ITAB3-KNUMH AND KONP~KSCHL = ITAB3-KSCHL.
**ON CHANGE OF ITAB1-ebelp.
**LOOP AT ITAB3
** ON CHANGE OF ITAB1-ebelp.
*              itab1-knumh = itab3-knumh.
**              SELECT KONP~KBETR FROM KONP INTO CORRESPONDING FIELDS
**              OF TABLE ITAB4
**              FOR ALL ENTRIES IN ITAB3   WHERE
**              KONP~KNUMH = ITAB3-KNUMH AND KONP~KSCHL = ITAB3-KSCHL .
**              IF ITAB3-KSCHL = 'JMOP' .
**               ED = ITAB4-KBETR / 1000 * ITAB1-NETWR .
**              ENDIF.
**             IF ITAB3-KSCHL = 'JEC1'.
**              Itab1-ed1 = ITAB4-KBETR / 1000 * ED.
**              ADD ED TO ITAB1-ED1.
**             modify ITAB1 transporting ed1.
**             ENDIF.
*              IF ITAB3-KSCHL = 'JMOP' .
*               ED = 16 / 100 * ITAB1-NETWR .
*              ENDIF.
*             IF ITAB3-KSCHL = 'JEC1'.
*              Itab1-ed1 = 2 / 100 * ED.
*              ADD ED TO ITAB1-ED1.
*             modify ITAB1 transporting ed1.
*             ENDIF.
**        ENDLOOP.
**endon.
modify ITAB1.
*endon.
LOOP AT ITAB5.
     IF ITAB5-KSCHL = 'NAVS' OR ITAB5-KSCHL = 'NAVM'.
            ITAB1-KBETR = ITAB5-KBETR.
             modify ITAB1 transporting KBETR
             where KNUMV = ITAB1-KNUMV AND EBELP = ITAB1-EBELP .
           ELSEIF ITAB5-KSCHL = 'FRA1' OR ITAB5-KSCHL = 'FRC1' OR
                ITAB5-KSCHL = 'FRB1'.
                   ITAB1-KWERT = ITAB5-KWERT .
                   modify ITAB1 transporting KWERT
                   where KNUMV = ITAB1-KNUMV AND EBELP = ITAB1-EBELP
*               IF ITAB5-KSCHL = 'FRA1'.
*                    ITAB1-KBETR1 = ITAB5-KBETR / 1000 * ITAB1-NETWR .
*                   modify ITAB1 transporting KBETR1
*                   where KNUMV = ITAB1-KNUMV AND EBELP = ITAB1-EBELP
*                 ELSEIF ITAB5-KSCHL = 'FRC1' .
*                   ITAB1-KBETR1 = ITAB5-KBETR * ITAB1-MENGE .
*                   modify ITAB1 transporting KBETR1
*                   where KNUMV = ITAB1-KNUMV AND EBELP = ITAB1-EBELP
*                 ELSEIF ITAB5-KSCHL = 'FRB1' .
*                    ITAB1-KBETR1 = ITAB5-KBETR .
*                   modify ITAB1 transporting KBETR1
*                   where KNUMV = ITAB1-KNUMV AND EBELP = ITAB1-EBELP
*              ENDIF.
*           **THIS CODE IS FOR iNSURANCE CONDITION
           ELSEIF ITAB5-KSCHL = 'ZGIN' OR ITAB5-KSCHL = 'ZIN2'.
                   ITAB1-KBETR2 = ITAB5-KBETR.
                   modify ITAB1 transporting KBETR2
                   where KNUMV = ITAB1-KNUMV AND EBELP = ITAB1-EBELP
*           **THIS CODE IS FOR PBXX OR PB00 CONDITION
*          ELSEIF ITAB5-KSCHL = 'PBXX' OR ITAB5-KSCHL = 'PB00'.
*                   ITAB1-KWERT1 = ITAB5-KWERT1.
*                   modify ITAB1 transporting KWERT1
*                   where KNUMV = ITAB1-KNUMV AND EBELP = ITAB1-EBELP
**          ELSEIF ITAB5-KSCHL = 'JOCM' OR ITAB5-KSCHL = 'RA00' OR
**                 ITAB5-KSCHL = 'RA01' OR ITAB5-KSCHL = 'RB00' OR
**                 ITAB5-KSCHL = 'RC00' OR
**THIS CODE IS FOR OTHER CONDITION
           ELSEIF ITAB5-KSCHL = 'RL01' OR ITAB5-KSCHL = 'ZA00' OR
                 ITAB5-KSCHL = 'ZA01' OR ITAB5-KSCHL = 'ZAE1' OR
                 ITAB5-KSCHL = 'ZAED' OR
                 ITAB5-KSCHL = 'ZAFR' OR ITAB5-KSCHL = 'ZB00' OR
                 ITAB5-KSCHL = 'ZBCH' OR ITAB5-KSCHL = 'ZBED' OR
                 ITAB5-KSCHL = 'ZC00' OR
                 ITAB5-KSCHL = 'ZCEX' OR ITAB5-KSCHL = 'ZCIF' OR
                 ITAB5-KSCHL = 'ZHC1' OR ITAB5-KSCHL = 'ZHC2' OR
                 ITAB5-KSCHL = 'ZHCT' OR
                 ITAB5-KSCHL = 'ZHCV' OR ITAB5-KSCHL = 'ZJOC' OR
                 ITAB5-KSCHL = 'ZOTH' OR ITAB5-KSCHL = 'ZOTP' OR
                 ITAB5-KSCHL = 'ZOTT' OR
                 ITAB5-KSCHL = 'ZPK1' OR ITAB5-KSCHL = 'ZPK2' OR
                 ITAB5-KSCHL = 'ZPK3' OR ITAB5-KSCHL = 'ZPK4' OR
                 ITAB5-KSCHL = 'ZRPO' OR
                 ITAB5-KSCHL = 'ZSE1' OR ITAB5-KSCHL = 'ZSED' OR
                 ITAB5-KSCHL = 'ZSFR' OR ITAB5-KSCHL = 'ZSTX' OR
                 ITAB5-KSCHL = 'ZTPI' OR
                 ITAB5-KSCHL = 'ZTPV' OR ITAB5-KSCHL = 'ZTRD' OR
                 ITAB5-KSCHL = 'ZWCT'.
                   ITAB1-KWERT2 = ITAB5-KWERT.
                   modify ITAB1 transporting KWERT2
                   where KNUMV = ITAB1-KNUMV AND EBELP = ITAB1-EBELP
          modify itab1.
       ENDIF.
ENDLOOP .
ITAB1-TOTAL = ITAB1-NETWR + ITAB1-KWERT2 + ITAB1-KWERT + ITAB1-KBETR.
*              ITAB1-TOTAL = ITAB1-NETWR + ITAB1-ED1 + ITAB1-KBETR2 +
*                     ITAB1-KBETR1 + ITAB1-KBETR + ITAB1-KWERT   .
                 modify ITAB1 transporting TOTAL.
LOOP AT ITAB6.
          ITAB1-SUB_PACKNO = ITAB6-SUB_PACKNO.
*           modify ITAB1.
ENDLOOP.
LOOP AT ITAB7.
        ITAB1-BELNR = ITAB7-BELNR.
        ITAB1-GJAHR = ITAB7-GJAHR.
ENDLOOP.
LOOP AT ITAB8.
          ITAB1-SUB_PACKNO = ITAB8-SUB_PACKNO.
          ITAB1-SRVPOS = ITAB8-SRVPOS.
          ITAB1-EXTROW = ITAB8-EXTROW.
          ITAB1-KTEXT1 = ITAB8-KTEXT1.
          modify ITAB1.
ENDLOOP.
* SELECT ESLL~PACKNO ESLL~SUB_PACKNO ESLL~SRVPOS ESLL~KTEXT1
*          FROM ESLL
*          INTO CORRESPONDING FIELDS OF TABLE ITAB6
*          WHERE ESLL~PACKNO = ITAB1-PACKNO.
** delete adjacent duplicates from itab1 comparing EBELN .
modify ITAB1.
endloop.
sort Itab1 by EBELN Ascending.
        SELECT KONV~KBETR FROM KONV
        INTO ITAB1-KBETR
        WHERE KONV~KSCHL = 'NAVS' OR KONV~KSCHL = 'NAVM'.
        ENDSELECT.
        ITAB1-KBETR = ITAB5-KBETR.
*ENDLOOP.
*ENDLOOP.
*ENDLOOP.
ENDFORM.
Reward all helpfull answers
Regards
Pavan

Stock report for a specific date.

Hi Gurus,
Can any one please tell me if there is any option is SAP by which i can get the stock status for a particular day. I mean if i want to check what was the stock report on last week some day, is there an option in SAP to do that. This report should give the stock of that day and any movements after that day should not be included in that report, for example if 10 quantity of a material was available on 26/03/09 and 5 were either moved or consumed, can i get the status in past for 26/03/09 today as quantity 10 rather than quantity 5 which is available today.
Regards
Anoop

hi,
Try with t.code MB5B -Stock on Posting date. You can get what you want.
Regards,
Prasath

Stock report with grn no & date

Similar Messages

Maybe you are looking for