Opening stock in LTP scenario

Hi
We activated MRP area and due to that we cannot use average plant stock in LTP scenarios in MS31.
Is there is any way to influence opening stock,If we select any other option other than average plant stock.

Hello
Your question is not clear for me.
On the LTP scenario settings (MS32) you have the following options for the opening stock:
No opening stock
1
Safety stock as opening stock
2
Plant stock at time of planning
3
Average plant stock from material master record
Take a look on the F1 help for more details.
BR
Caetano

Similar Messages

MS31-Opening Stock in LTP

Hi Everybody;
I want to use LTP. In MS31 screen I wanted to copy "opening stock" . I choosed "2-Plant stock at time of planning" and system copied all plant stock. I wanted to copy only the "Storage location stock also planned at plant level" according to customization step (Define Storage Location MRP per Plant-OMIR ).
Ex:
Materaial A; Storage lcoation S1 ==> Stock :100 and Cutomization:Storage location stock excluded from MRP
Materaial A; Storage lcoation S2 ==> Stock :200 and Cutomization:Storage location stock also planned at plant level
System copies the stock as 300 and shows thi number in MS04. But according to planning logic it must be 200.
How can I handle this situation?
Thanks for kind helps.

Hi,
There is no user-exit to influence opening stock.
If the effort justifies the business need, then maybe you can do some trial & error with MS29 to get close to your exact need.
Regards,
Vivek
Added
Just an after thought - you can maintain the stock level which you want as opening stock in safety stock field in material master & in your plng scenario, maintain opening stock as 1. Once the data is read-in, you may remove the safety stock. This is another which i could think of, do evalaute the pro's n con's at your end.

Stock Ledger Report in Day Wise not giving correct values for Opening Stock

Dear Experts,
I m working on Sock ledger report to give the day wise data.
since yesterdays closing Stock will become opening stock of today,
To get Opening Stock,
I have restricted the stock key figure with 2 variables on calday
                              (DATE FROM var with <=(Lessthan or equal to) and offset -1
                               DATE TO      var with <=(Lessthan or equal to) and offset -1)
To get Closing Stock,
I have restricted the Stock key figure with 2 variables on calday
                              (DATE FROM var with <=(Lessthan or equal to)
                               DATE TO      var with <=(Lessthan or equal to) )
But in the output Opening stock values are not coming correctly and for given range of dates,
for last date, opening stock is showing as Zero.
Could you please tell me how can I achieve the correct values for opening stock.
Thanks in advance.

Hi Arjun,
Seems like you are making it more complicated. What is your selection screen criteria?
Ideally you should only use the offset.
You will have say Calday in rows and stock in Column
____________Opening Stock_____________Closing Stock
01/06/2009___(Closing stock of 31/05/2009)_(Stock of 01/06/2009)
02/06/2009___(Closing stock of 01/06/2009)_(Stock of 02/06/2009)
03/06/2009___(Closing stock of 02/06/2009)_(Stock of 03/06/2009)
So, from above scenario, create one RKFs and include Calday in it. Create a replacement path variable on calday and apply the offset as -1.
So, your Opening Stock will be calculated by closign stock of previous day.
- Danny

Calculation of Opening Stock

Hello Gurus,
I am using 0IC_C03 for stocks. Infosource 2LIS_03_BX, 2LIS_03_BF & 2LIS_03_UM is populating data to the cube.
How do I calculate Opening stock values. I need a column for displaying op. stock.
pls guide.
thanks in advance..

Hi,
You can check business content query 0IC_C03_Q0012.
Just to be clear, you want to display opening stock (as on each day, or month, or ??).
I would think using the keyfigure 0TOTALSTCK (Total stock) or other such KF (for other categories of stocks) would do. System would do the calculation for you as I understand.
This may also help if you have not looked at it yet
<i>"How-to..." Paper for Inventory Management Scenarios in SAP BW: SAP offers a document dealing with the special features in implementing SAP BW in the Inventory Management area.
To display this document, in the SAP Service Marketplace (http://service.sap.com), select the Quick Link /bw, then choose SAP BW InfoIndex in the Navigation area and follow the Non-cumulatives link in the list. The document is named How to...Handle inventory management scenarios in SAP BW 3.x (pdf).</i>
cheers,

How to loading the opening stock balance into Infocube 0IC_C03

Dear Expers,
I have referenced SDN a expert's documentation, but I canu2019t go on at page 10 .
Check: How Tou2026 [Handle Inventory Management Scenarios in BW|http://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/f83be790-0201-0010-4fb0-98bd7c01e328]
(1)original text:
Loading the opening stock balance (InfoSource 2LIS_03_BX) into InfoCube
0IC_C03. In the InfoPackage, choose the upload mode u201CCreate opening balanceu201D
(see screenshot).
Question:
How to find option that upload mode u201CCreate opening balanceu201D?
i'm use to customize infopackage. i can not use default infopackage, when i click the defualt infopackage, will error prompt: Data target '0DF_C07' removed from list of loadable targets; not loadable
(2) I actived BI Contnet (0IC_C03), I seen that the data flow as following:
Datasource(2LIS_03_BX)->transformation->Infosource(2LIS_03_BX_TR)-> transformation->Infocube(0IC_C03)
Datasource(2LIS_03_BF)->transformation->Infosource(2LIS_03_ BF TR)-> transformation->Infocube(0ICC03)
Datasource(2LIS_03_UM)->transformation->Infosource(2LIS_03_UM TR)-> transformation->Infocube(0ICC03)
Quesiton: I donu2019t know whatu2019s version, neither like BW 7.X nor like BW 3.X,
Why have infosource in BW 7.X, how to use infosource load data to target?
Currently, I canu2019t create transfer rule and upate rule for this datasource & infosource.
Do I need to create a customize ODS?
Thank you very much , if you will answer me above two questions.
Best Regards
Steve

>
stevezhuang wrote:
> Dear Expers,
>
> I have referenced SDN a expert's documentation, but I canu2019t go on at page 10 .
>
> Check: How Tou2026 [Handle Inventory Management Scenarios in BW|http://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/f83be790-0201-0010-4fb0-98bd7c01e328]
>
> (1)original text:
> Loading the opening stock balance (InfoSource 2LIS_03_BX) into InfoCube
> 0IC_C03. In the InfoPackage, choose the upload mode u201CCreate opening balanceu201D
> (see screenshot).
>
> Question:
> How to find option that upload mode u201CCreate opening balanceu201D?
> i'm use to customize infopackage. i can not use default infopackage, when i click the defualt infopackage, will error prompt: Data target '0DF_C07' removed from list of loadable targets; not loadable
>
>
>
> (2) I actived BI Contnet (0IC_C03), I seen that the data flow as following:
> Datasource(2LIS_03_BX)->transformation->Infosource(2LIS_03_BX_TR)-> transformation->Infocube(0IC_C03)
>
> Datasource(2LIS_03_BF)->transformation->Infosource(2LIS_03_ BF TR)-> transformation->Infocube(0ICC03)
>
> Datasource(2LIS_03_UM)->transformation->Infosource(2LIS_03_UM TR)-> transformation->Infocube(0ICC03)
>
> Quesiton: I donu2019t know whatu2019s version, neither like BW 7.X nor like BW 3.X,
> Why have infosource in BW 7.X, how to use infosource load data to target?
> Currently, I canu2019t create transfer rule and upate rule for this datasource & infosource.
> Do I need to create a customize ODS?
>
>
> Thank you very much , if you will answer me above two questions.
>
>
> Best Regards
> Steve
You don't need to worry about 0DF_C07 as it was defence cube not activated during your Business Content Activaiton.
YOu can create your own infopackage for 2LIS_03_BX and there will be option generate intial status.
This loading will create your Opening Balance.
you need to compress this with NO Marker UPDATE option unchecked(as you will have to update hte marker).
After this load movements 2LIS_03_BF and reval 2LIS_03_UM. Compress this with NO MARKER UPDATE option checked.
Regards,
RK

What is meant by opening stock balance?

what is meant by opening stock balance and how we load the opening stock balance .Actually i gone through the document in SDN.But i didn't understood properly.Can anybody explain in simple words.

Hi Pardhu,
In many cases your SAP R/3 system goes live earlier than your BW system.
Say during go live in R/3 on 1st May 2009 - you had certain stock of product1 in inventory - say 100 PCS.
You then sold 20PCS of product1 and brought 40PCS until today.
So the stock of product1 in your inventory is 100 - 20 + 40 = 120.
Now if your BW system was to Go Live tomorrow.
You would have to let BW know what is your current stock level.
From tomorrow then you can record only movements in BW.. ie you will send only data of sold and brought pcs of prodct1 from tomorrow.
To inform BW about the current stock level you need the data source 2LIS_03_BX.
To send the movements to BW you have the data source 2LIS_03_BF.
2LIS_03_BX picks data from statistical table.
For the statistical table to reflect the current stock of product one , you need to run MNCB ---> which precisely calculate the current stock level of product1 using the logic 100 - 20 + 40 ie stock till date and stores it in the statistical table.
Then you load this data through 2LIS_03_BX to BW. Thus BW has the information of current stock.
Then you load the movemens only through 2LIS_03_BF after setting up the delta.
Markers can only be updaed when compression is done.
You choose to update the marker based on certain conditions.
BW uses markers to store the information of stock levels.
It stores the stock as the marker value(reference value) +/- delta changes.
When the cube is compressed you can update the marker. This will make the reference more current in time. Thus to calculate current stock you will have to take into account lesser deltas and a more current marker .. this improves performance...
For further details on this :
[How to handle inventory management scenarios|http://sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/f83be790-0201-0010-4fb0-98bd7c01e328]
Hope this helps,
Best regards,
Sunmit.

MS31 -Opening Stock

Hi Everybody;
I want to use LTP. In MS31 screen I wanted to copy "opening stock" . I choosed "2-Plant stock at time of planning" and system copied all plant stock. I wanted to copy only the "Storage location stock also planned at plant level" according to customization step (Define Storage Location MRP per Plant-OMIR ).
Ex:
Materaial A; Storage lcoation S1 ==> Stock :100 and Cutomization:Storage location stock excluded from MRP
Materaial A; Storage lcoation S2 ==> Stock :200 and Cutomization:Storage location stock also planned at plant level
System copies the stock as 300 and shows thi number in MS04. But according to planning logic it must be 200.
How can I handle this situation?
Thanks for kind helps.
Emre Özdursun

in the SOP during entering the qty enter the opening stock so that qty is adjsuetd along the planning line, this you can maintain for each material.
In MC88
foloow the menu path
goto -->opening stock and enter the opening stock.
this data can be passed to LTP so that your purpose is solved
pl come back

LTP Scenario

Hi guys,
I need to create a LTP scenario (ms31) that considers only purchase orders as fixed receipts. I manage to find two solutions:
1 Create a program to read the purchase orders from the operational environment e copy to simulation.
2 use the "consider fixed receipts" option in ms31 and using the BADI "MD_CHANGE_MRP_DATA" delete the fixed receipts that I don't want to be considered. The problem here is that I don't know how to represent this change on the transactions ms04, ms44 and ms47 that are been used to evaluate the plan.
- Anyone knows how to represent that on these transactions?
- Is there any other solution for this problem?

Sorry but you are wrong... The option "include firm recpts" is to include Purchase Orders, Production orders and reservations. You can see that below:
Long-term planning: include firmed issues and receipts
If this field has been selected, the system takes purchase orders, production orders and reservations into account in long-term planning. That means that they are copied from operative planning and taken into account as receipt elements.
The following receipt elements are also taken into account in long-term planning:
Shipping notification purchase orders
Schedule lines
Dependent and independent reservations
Transport releases for stock transfer orders
Transport releases for stock transfer reservations
QM-inspection lot

Opening Stock and Closing Stock Calculation

Hi,
My report requirement is to display the material, opening stock for the lower date, closing stock for the higher date and the in between all stock operations..how to fetch the opening stock and closing stock for a particular material ???.. what are the tables and fields for calculating them??..
Thanks,
Sri
Edited by: Sri on Feb 13, 2009 8:33 AM

Hi
We have done a similar reports. One showing opening stock/Closing stock and another one showing all the transactions for a particular day. What we did was we developed a program to fetch data from MARD table for unrestricted, blocked & Qulaity stock(Our requirement talks only about these 3 stocks). And we scheduled the program exactly at system time 00.00 hrs with A class job.(today's closing day stock is nothing but tomorrow's opening stock)
And for the second report which needs to pick all the transaction for a particular day, we picked it from MB51 entries. It is nothing but query between MKPF and MSEG.
I hope this helps.

Report for shedule vs supply and report for opening stock at back date.

Dear All Guru,
please can anybody reply me is there any standard report is available for
1) Report for shedule vs supply
2) and report for opening stock at back date.(ex- opening stock at last month 16th july or two months back on 10th may
pl suggest if any standard report is available or how we can data for this
Regards,
Vimlesh

Hi,
To see the opening stock at a particular date use T.Code: MB5B,
To see the scheduled quantity & delivered quantity use table EKET with the filed names MENGE & WEMNG.
Regards,
Prabu

Opening stock and closing stock required

hi experts,
              i am preparing daily report for material consumption .where i am getting BOM consumption for each material .
material    opening-stock      issues      closing-stock
material1
item1       1000                    1                    999
item2        10                       2                      8
material2
item1        999                   2                    997
item2        20                     3                     17
material3
item1       997                   2                     995
item3       30                    5                        25
this is a report for daily consumption of material.
but i want report for each material like this
item1             1000           5ie(221)         995
item2               20              3                         17
item3              30                5                      25
what is the logic for getting thsi output.
thanks
mani

check this sample code.
https://wiki.sdn.sap.com/wiki/pages/viewpage.action?pageId=15856
Regards
Peram

Opening Stock and Closing Stock

Hi,
I have one requirement to get a opening stock and closing stock of all materials, based on the plant date and mat type.
Could u tell me the flow of tables one by one
Its is possible to get the opening stock and closing stock of all materials.
Please Guide Me.
Thanks & Regards,
    Dhanush.S.T

go through this....
*& Report Z_OPEN_CLOSE                                                *
REPORT Z_OPEN_CLOSE MESSAGE-ID YW2 LINE-SIZE 231 LINE-COUNT 45
NO STANDARD PAGE HEADING.
Type Declaration *
TYPE-POOLS SLIS.
Tables *
TABLES: MKPF, " Material Document: Header Data
        MSEG, " Material Document: Item Data
        MARA,
        MARD,
        S031,
        EKKO,
        EKPO,
        LIKP,
        MAKT,
        J_1IWRKCUS,
        T001W,
        WB2_V_MKPF_MSEG2,
        MMIM_REP_PRINT,
        YW2_STKMOVEMENTS,
        YPLNT,
        MARDH.
Internal Tables *
DATA: I_WERKS LIKE J_1IWRKCUS OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_YPLNT OCCURS 0,
         PPLNT LIKE YPLNT-PPLNT,
         WPLNT LIKE YPLNT-WPLNT,
      END OF I_YPLNT.
DATA: BEGIN OF I_MKPF OCCURS 0,
        MBLNR LIKE MKPF-MBLNR,
        MJAHR LIKE MKPF-MJAHR,
        BUDAT LIKE MKPF-BUDAT,
        VGART LIKE MKPF-VGART,
        BWART LIKE MSEG-BWART,
        MATNR LIKE MSEG-MATNR,
        WERKS LIKE MSEG-WERKS,
        LGORT LIKE MSEG-LGORT,
        MENGE LIKE MSEG-MENGE,
        MEINS LIKE MSEG-MEINS,
        KUNNR LIKE MSEG-KUNNR,
        ZEILE LIKE MSEG-ZEILE,
        XAUTO LIKE MSEG-XAUTO,
        SHKZG LIKE MSEG-SHKZG,
        MATNR1 LIKE MSEG-MATNR,
      END OF I_MKPF.
DATA: BEGIN OF I_MARDH OCCURS 0,
       WERKS LIKE MARDH-WERKS,
       MEINS LIKE MARA-MEINS,
       MATNR LIKE MARDH-MATNR,
       LGORT LIKE MARDH-LGORT,
       LABST LIKE MARDH-LABST,
       LFGJA LIKE MARDH-LFGJA, "Added -MB
       LFMON LIKE MARDH-LFMON, "Added -MB
       PERIO(6),
       INSME LIKE MARDH-LABST,
       EINME LIKE MARDH-LABST,
       SPEME LIKE MARDH-LABST,
       RETME LIKE MARDH-LABST,
       O_STK LIKE MARDH-LABST, " Opening Stock
       C_STK LIKE MARDH-LABST, " Closing Stock
      END OF I_MARDH.
DATA: BEGIN OF I_MARD OCCURS 0,
       WERKS LIKE MARD-WERKS,
       MATNR LIKE MARD-MATNR,
       LGORT LIKE MARD-LGORT,
       LABST LIKE MARD-LABST,
       INSME LIKE MARD-LABST,
       MEINS LIKE MARA-MEINS,
       EINME LIKE MARD-LABST,
       SPEME LIKE MARD-LABST,
       RETME LIKE MARD-LABST,
      END OF I_MARD.
DATA: I_MARD1 LIKE I_MARD OCCURS 0 WITH HEADER LINE.
DATA: I_MARDH1 LIKE I_MARDH OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_MKPF1 OCCURS 0,
        MBLNR LIKE MKPF-MBLNR,
        WERKS LIKE MSEG-WERKS,
        MATNR LIKE MSEG-MATNR,
        BUDAT LIKE MKPF-BUDAT,
        BWART LIKE MSEG-BWART,
        MJAHR LIKE MKPF-MJAHR,
        VGART LIKE MKPF-VGART,
        LGORT LIKE MSEG-LGORT,
        MENGE LIKE MSEG-MENGE,
        MEINS LIKE MSEG-MEINS,
        XAUTO LIKE MSEG-XAUTO,
        SHKZG LIKE MSEG-SHKZG,
      END OF I_MKPF1.
DATA: BEGIN OF I_MKPF2 OCCURS 0,
       WERKS LIKE MSEG-WERKS,
       MATNR LIKE MSEG-MATNR,
       BUDAT LIKE MKPF-BUDAT,
       BWART LIKE MSEG-BWART,
       MJAHR LIKE MKPF-MJAHR,
       VGART LIKE MKPF-VGART,
       LGORT LIKE MSEG-LGORT,
       MENGE LIKE MSEG-MENGE,
       MEINS LIKE MSEG-MEINS,
       XAUTO LIKE MSEG-XAUTO,
     END OF I_MKPF2.
DATA: BEGIN OF I_FINAL5 OCCURS 0,
       WERKS LIKE MSEG-WERKS, " Plant
       MATNR LIKE MSEG-MATNR, " Material
       LGORT LIKE MSEG-LGORT, " Storage Location
       BUDAT LIKE MKPF-BUDAT, " Posting Date
       MTART LIKE MARA-MTART, " Material Type
       SPMON LIKE S031-SPMON, " Month
       MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TLOSS LIKE MARDH-LABST, " Total Loss
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        TRFSTK LIKE MARDH-LABST, "Transfer stock
        MENGE LIKE MSEG-MENGE,
        OTHADJ LIKE MARDH-LABST,
      END OF I_FINAL5.
DATA: BEGIN OF I_FINAL OCCURS 0,
        WERKS LIKE MSEG-WERKS, " Plant
        MATNR LIKE MSEG-MATNR, " Material
        BUDAT LIKE MKPF-BUDAT, " Posting Date
        MTART LIKE MARA-MTART, " Material Type
        SPMON LIKE S031-SPMON, " Month
        MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TRFSTK LIKE MARDH-LABST, "Material Transfer stock
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        TLOSS LIKE MARDH-LABST, " Total Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        OTHADJ LIKE MARDH-LABST,
       END OF I_FINAL.
DATA: I_FINAL1 LIKE I_FINAL OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_FINAL_TEMP OCCURS 0,
        WERKS LIKE MSEG-WERKS, " Plant
        MATNR LIKE MSEG-MATNR, " Material
        MTART LIKE MARA-MTART, " Material Type
        MAKTX LIKE MAKT-MAKTX, " Description
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TRFSTK LIKE MARDH-LABST, "Material Transfer stock
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        TLOSS LIKE MARDH-LABST, " Total Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        OTHADJ LIKE MARDH-LABST,
      END OF I_FINAL_TEMP.
For Materials
DATA: BEGIN OF I_MARA OCCURS 0,
       MATNR TYPE MARA-MATNR,
       MTART TYPE MARA-MTART,
       MEINS LIKE MARA-MEINS,
       LABST TYPE MARD-LABST,
       MAKTX LIKE MAKT-MAKTX,
      END OF I_MARA.
DATA: BEGIN OF I_STKMVMNTS OCCURS 0,
       BWART LIKE MSEG-BWART,
       SHKZG LIKE MSEG-SHKZG,
       VZBEW LIKE YW2_STKMOVEMENTS-VZBEW,
      END OF I_STKMVMNTS.
DATA: BEGIN OF I_FINALT OCCURS 0,
       WERKS LIKE MSEG-WERKS, " Plant
       MATNR LIKE MSEG-MATNR, " Material
       BUDAT LIKE MKPF-BUDAT, " Posting Date
       MTART LIKE MARA-MTART, " Material Type
       SPMON LIKE S031-SPMON, " Month
       MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
       MEINS LIKE MSEG-MEINS,
       O_STK LIKE MARDH-LABST, " opening stock
       TRECEP LIKE MARDH-LABST, " total receipts
       PRODU LIKE MARDH-LABST, " Net Receipts - Production
       RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
       SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
       TDISP LIKE MARDH-LABST, " total dispatches
       CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
       OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
       TRFSTK LIKE MARDH-LABST, "Material Transfer stock
       TRLOSS LIKE MARDH-LABST, " Transit Loss
       WHLOSS LIKE MARDH-LABST, " Warehouse Loss
       TLOSS LIKE MARDH-LABST, " Total Loss
       C_STK LIKE MARDH-LABST, " Closing Stock
       OTHADJ LIKE MARDH-LABST,
       MONTH(8) ,
      END OF I_FINALT.
DATA: IMKPFT LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
DATA: IMKPFT1 LIKE I_MKPF1 OCCURS 0 WITH HEADER LINE.
DATA: IMARDT LIKE I_MARD OCCURS 0 WITH HEADER LINE.
DATA: IMARDHT LIKE I_MARDH OCCURS 0 WITH HEADER LINE.
DATA: T_FINAL LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
DATA: IMKPFT2 LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
FCAT is used for the field catalog
DATA: FCAT TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY
                  WITH HEADER LINE INITIAL SIZE 0,
for excluding the ICONs from the application toolbar
      FEXC TYPE TABLE OF SLIS_EXTAB WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
FS_LAYO is used for Grid Layout
      FS_LAYO TYPE SLIS_LAYOUT_ALV,
FEVENTS to handle the events TOP OF PAGE & USER_COMMAND
      FEVENTS TYPE TABLE OF SLIS_ALV_EVENT WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
FHEADER is used for List header
      FHEADER TYPE TABLE OF SLIS_LISTHEADER WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
sort is used for sorting
      FSORT TYPE TABLE OF SLIS_SORTINFO_ALV WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
      FCAT1 TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY
                WITH HEADER LINE INITIAL SIZE 0,
      FS_LAYO1 TYPE SLIS_LAYOUT_ALV,
      GT_LIST_TOP_OF_PAGE1 TYPE SLIS_T_LISTHEADER,
      FEVENTS1 TYPE TABLE OF SLIS_ALV_EVENT WITH NON-UNIQUE DEFAULT KEY
             WITH HEADER LINE INITIAL SIZE 0,
       FHEADER1 TYPE TABLE OF SLIS_LISTHEADER WITH NON-UNIQUE DEFAULT
              KEY WITH HEADER LINE INITIAL SIZE 0,
       G_STATU_071 TYPE SLIS_FORMNAME VALUE 'Z_PFSTATUS',
       ALV_VARIANT1 LIKE DISVARIANT.
Variable Declaration *
TYPES: TRFF_TYPE_DEC_6_5(6) TYPE P DECIMALS 5.
DATA: FYEAR(4),
      MON(2),
      FYEAR1(4),
      MON1(2),
      OBAL LIKE MARD-LABST,
      CBAL LIKE MARD-LABST,
      INDEX TYPE I,
      COUNT,
      COUNT1 TYPE I,
      O_STK TYPE P DECIMALS 3,
      C_STK TYPE P DECIMALS 3,
      V_MJAHR LIKE MKPF-MJAHR,
      MONTHS TYPE TRFF_TYPE_DEC_6_5,
      MONTH TYPE I.
Global variables for handling ALV functionality
DATA: ALV_KEYINFO TYPE SLIS_KEYINFO_ALV,
      ALV_VARIANT LIKE DISVARIANT,
      ALV_LAYOUT TYPE SLIS_LAYOUT_ALV,
      ALV_REPID LIKE SY-REPID,
      ALV_PRINT TYPE SLIS_PRINT_ALV,
      ALV_DETAIL_FUNC(30),
      ALV_DEFAULT_VARIANT LIKE DISVARIANT-VARIANT,
      ALV_COLOURIZE_FIELDS LIKE MMIM_REP_PRINT-COLOR.
RANGES: R_BUDAT FOR MKPF-BUDAT.
*Added by Prabhu for year on 26.4.05.
DATA: IDATE LIKE R_BUDAT OCCURS 0 WITH HEADER LINE.
Selection Screen Elements *
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_WERKS FOR MARD-WERKS OBLIGATORY NO INTERVALS.
PARAMETER: P_SPMON LIKE S031-SPMON NO-DISPLAY .
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR OBLIGATORY,
                  S_LGORT FOR MSEG-LGORT NO-EXTENSION NO INTERVALS,
                  S_MBLNR FOR MKPF-MBLNR,
                  S_BUDAT FOR MKPF-BUDAT OBLIGATORY .
SELECTION-SCREEN END OF BLOCK BLK.
SELECTION-SCREEN BEGIN OF BLOCK BLK3 WITH FRAME TITLE TEXT-004.
      PARAMETER : MTART LIKE MARA-MTART DEFAULT 'FERT' NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK BLK3.
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN END OF BLOCK BLK2.
ADDED BY PRABHU FOR DAY-WISE REPORT.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-007.
PARAMETERS: D1 RADIOBUTTON GROUP P1 DEFAULT 'X',
              M1 RADIOBUTTON GROUP P1,
              Y1 RADIOBUTTON GROUP P1.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-006.
PARAMETERS: ALV_DEF LIKE DISVARIANT-VARIANT.
SELECTION-SCREEN END OF BLOCK B2.
DATA: S_BUDAT1 LIKE S_BUDAT OCCURS 0 WITH HEADER LINE."prabhu
Initialization *
INITIALIZATION.
PERFORM ALV_INIT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ALV_DEF.
PERFORM ALV_F4.
At Selection Screen
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spmon.
PERFORM monat_f4.
At Selection Screen *
AT SELECTION-SCREEN.
checking for the layout
PERFORM ALV_CHECK.
authorisation check for the Plant
PERFORM auth_check.
Validation for the Plant
PERFORM VALIDITY_CHECK.
IF MTART NE 'FERT'.
    MESSAGE E041 WITH 'Material Type must be FERT Only...'.
ENDIF.
IF D1 = 'X'." On 26.4.05.
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
ELSE.
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
ENDIF.
LOOP AT S_BUDAT.
    IF S_BUDAT-HIGH IS INITIAL.
      S_BUDAT-HIGH = S_BUDAT-LOW.
      MODIFY S_BUDAT.
    ENDIF.
ENDLOOP.
IDATE-LOW = S_BUDAT-LOW.
IDATE-HIGH = S_BUDAT-HIGH.
CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
    EXPORTING
       I_DATE_FROM = IDATE-LOW
       I_DATE_TO = IDATE-HIGH
   IMPORTING
E_DAYS =
      E_MONTHS = MONTH
E_YEARS =
DATA: I(3) TYPE C.
I = S_BUDAT-LOW+4(2).
CLEAR: R_BUDAT.
REFRESH: R_BUDAT.
*added by Prabhu for Only for Oneday.on 18.5.5
IF MONTH EQ '0'.
    MONTH = MONTH + 1.
ENDIF.
*added by Prabhu for Only for Oneday.on 18.5.5
DO MONTH TIMES.
    R_BUDAT-LOW = S_BUDAT-LOW.
    APPEND R_BUDAT.
ENDDO.
I = 0.
LOOP AT R_BUDAT.
    R_BUDAT-LOW4(2) = S_BUDAT-LOW4(2) + I.
    I = I + 1.
    R_BUDAT-LOW+6(2) = '01'.
    MODIFY R_BUDAT.
ENDLOOP.
LOOP AT R_BUDAT.
    CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
       EXPORTING
         DAY_IN = R_BUDAT-LOW
       IMPORTING
         LAST_DAY_OF_MONTH = R_BUDAT-HIGH
      EXCEPTIONS
        DAY_IN_NO_DATE = 1
        OTHERS = 2
    MODIFY R_BUDAT.
ENDLOOP.
LOOP AT R_BUDAT.
    IF R_BUDAT-LOW4(2) = S_BUDAT-LOW4(2).
      R_BUDAT-LOW = S_BUDAT-LOW.
      MODIFY R_BUDAT.
    ENDIF.
    IF R_BUDAT-HIGH4(2) = S_BUDAT-HIGH4(2).
      R_BUDAT-HIGH = S_BUDAT-HIGH.
      MODIFY R_BUDAT.
    ENDIF.
For Summary on 26.4.05.
    IF Y1 = 'X'.
      CLEAR R_BUDAT.
      REFRESH R_BUDAT.
      R_BUDAT-LOW = S_BUDAT-LOW.
      R_BUDAT-HIGH = S_BUDAT-HIGH.
      APPEND R_BUDAT.
      CLEAR R_BUDAT.
    ENDIF.
ENDLOOP.
At Selection Screen *
AT SELECTION-SCREEN OUTPUT.
Start of Selection *
START-OF-SELECTION.
V_MJAHR = P_SPMON+0(4).
Get plant distinction warehouse/production
PERFORM GET_PLANT_DISTINCTION.
Collect the data from various tables
PERFORM GETDATA_FG_STOCK.
here the number of rows in the output table is found
PERFORM OUTPUT_TABLE_CHECK.
here the top of the page code is written, that is to be displayed
in the output
PERFORM Z_TOP_OF_PAGE.
here ALV layout properties are set
PERFORM Z_LAYOUT_SETTINGS.
ALV EVENTS for TOP OF PAGE and for USER COMMAND
PERFORM Z_ALV_EVENTS.
The field catalog is defined for the Primary List is defined in
the subroutine CREATE_FIELD_CATALOG include program ZPRRDOCR_FCAT
PERFORM Z_CREATE_FIELD_CATALOG.
This is for displaying the output
PERFORM Z_REUSE_ALV_GRID_DISPLAY.
*& Form getdata_fg_stock
Getting data from standard tables
FORM GETDATA_FG_STOCK.
For getting the Start date & end date of the month
PERFORM get_month_dates.
Getting the Opening Stock from MARDH table
IF MON EQ '01'.
    MON1 = MON.
    FYEAR1 = FYEAR.
    MON = '12'.
    FYEAR = FYEAR - 1.
ELSE.
    MON1 = MON.
    FYEAR1 = FYEAR.
    MON = MON - 1.
    FYEAR = FYEAR.
ENDIF.
PERFORM GET_RECORDS_FROM_DB.
*added for Month Summary on 26.4.05.
LOOP AT R_BUDAT.
    S_BUDAT-LOW = R_BUDAT-LOW.
    S_BUDAT-HIGH = R_BUDAT-HIGH.
*for Month
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
*for summary.
    IF Y1 = 'X'.
      LOOP AT S_BUDAT.
        S_BUDAT1-SIGN = 'I'.
        S_BUDAT1-OPTION = 'NB'.
        S_BUDAT1-LOW = S_BUDAT-LOW.
        S_BUDAT1-HIGH = S_BUDAT-HIGH.
        APPEND S_BUDAT1.
        CLEAR S_BUDAT1.
      ENDLOOP.
    ENDIF.
    IMKPFT[] = I_MKPF[].
    IMKPFT2[] = I_MKPF[].
    IMARDT[] = I_MARD[].
    IMARDHT[] = I_MARDH[].
    PERFORM MONTH_WISE.
    PERFORM PROCESS_MOVEMENTS.
    PERFORM CALCULATE_OPENING_STOCK.
    PERFORM UPDATE_NON_TRANSACTION_ITMS.
    PERFORM DELETE_EMPTY_RECORDS.
    CLEAR: IMARDHT,IMARDT,IMKPFT1,IMKPFT,I_FINAL,I_FINAL5.
    REFRESH: IMARDHT,IMARDT,IMKPFT1,I_FINAL,I_FINAL5,IMKPFT.
ENDLOOP.
CLEAR: R_BUDAT.
REFRESH: R_BUDAT.
*end of changes for month.
ENDFORM. " getdata_fg_stock
FORM MONAT_F4 *
F4-Hilfe für Monat *
FORM MONAT_F4.
DATA: BEGIN OF MF_DYNPFIELDS OCCURS 1.
          INCLUDE STRUCTURE DYNPREAD.
DATA: END OF MF_DYNPFIELDS.
DATA: MF_RETURNCODE LIKE SY-SUBRC,
         MF_MONAT LIKE ISELLIST-MONTH,
         MF_HLP_REPID LIKE SY-REPID.
FIELD-SYMBOLS: .
Wert von Dynpro lesen
GET CURSOR FIELD MF_DYNPFIELDS-FIELDNAME.
APPEND MF_DYNPFIELDS.
MF_HLP_REPID = SY-REPID.
DO 2 TIMES.
    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        DYNAME               = MF_HLP_REPID
        DYNUMB               = SY-DYNNR
      TABLES
        DYNPFIELDS           = MF_DYNPFIELDS
      EXCEPTIONS
        INVALID_ABAPWORKAREA = 01
        INVALID_DYNPROFIELD = 02
        INVALID_DYNPRONAME   = 03
        INVALID_DYNPRONUMMER = 04
        INVALID_REQUEST      = 05
        NO_FIELDDESCRIPTION = 06
        UNDEFIND_ERROR       = 07.
    IF SY-SUBRC = 3.
Aktuelles Dynpro ist Wertemengenbild
      MF_HLP_REPID = 'SAPLALDB'.
    ELSE.
      READ TABLE MF_DYNPFIELDS INDEX 1.
Unterstriche durch Blanks ersetzen
      TRANSLATE MF_DYNPFIELDS-FIELDVALUE USING '_ '.
      EXIT.
    ENDIF.
ENDDO.
IF SY-SUBRC = 0.
Konvertierung ins interne Format
    CALL FUNCTION 'CONVERSION_EXIT_PERI_INPUT'
      EXPORTING
        INPUT         = MF_DYNPFIELDS-FIELDVALUE
      IMPORTING
        OUTPUT        = MF_MONAT
      EXCEPTIONS
        ERROR_MESSAGE = 1.
    IF MF_MONAT IS INITIAL.
Monat ist initial => Vorschlagswert aus akt. Datum ableiten
      MF_MONAT = SY-DATLO(6).
    ENDIF.
    CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
      EXPORTING
        ACTUAL_MONTH               = MF_MONAT
      IMPORTING
        SELECTED_MONTH             = MF_MONAT
        RETURN_CODE                = MF_RETURNCODE
      EXCEPTIONS
        FACTORY_CALENDAR_NOT_FOUND = 01
        HOLIDAY_CALENDAR_NOT_FOUND = 02
        MONTH_NOT_FOUND            = 03.
    IF SY-SUBRC = 0 AND MF_RETURNCODE = 0.
ASSIGN (MF_DYNPFIELDS-FIELDNAME) TO <MF_FELD>. " ==>> note 148804
<MF_FELD> = MF_MONAT.
      CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
        EXPORTING
          INPUT = MF_MONAT
        IMPORTING
          OUTPUT = MF_DYNPFIELDS-FIELDVALUE.
      COLLECT MF_DYNPFIELDS.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          DYNAME               = MF_HLP_REPID
          DYNUMB               = SY-DYNNR
        TABLES
          DYNPFIELDS           = MF_DYNPFIELDS
        EXCEPTIONS
          INVALID_ABAPWORKAREA = 01
          INVALID_DYNPROFIELD = 02
          INVALID_DYNPRONAME   = 03
          INVALID_DYNPRONUMMER = 04
          INVALID_REQUEST      = 05
          NO_FIELDDESCRIPTION = 06
          UNDEFIND_ERROR       = 07. "<<== note 148804
    ENDIF.
ENDIF.
ENDFORM.                                                    "MONAT_F4
*& Form get_month_dates
Calculating the Month Start & End Date
FORM GET_MONTH_DATES.
IF M1 = 'X'.
    FYEAR = P_SPMON+0(4).
    MON = P_SPMON+4(2).
    CONCATENATE FYEAR MON '01' INTO R_BUDAT-LOW.
    R_BUDAT-SIGN = 'I'.
    R_BUDAT-OPTION = 'BT'.
    CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
      EXPORTING
        I_DATE = R_BUDAT-LOW
      IMPORTING
        E_DATE = R_BUDAT-HIGH.
    APPEND R_BUDAT.
    CLEAR S_BUDAT.
    REFRESH S_BUDAT.
    S_BUDAT-SIGN = 'I'.
    S_BUDAT-OPTION = 'BT'.
    S_BUDAT-LOW = R_BUDAT-LOW.
    S_BUDAT-HIGH = R_BUDAT-HIGH.
    APPEND S_BUDAT.
ELSE.
    FYEAR = P_SPMON+0(4).
    MON = P_SPMON+4(2).
    CONCATENATE FYEAR MON '01' INTO R_BUDAT-LOW.
    R_BUDAT-SIGN = 'I'.
    R_BUDAT-OPTION = 'BT'.
    CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
      EXPORTING
        I_DATE = R_BUDAT-LOW
      IMPORTING
        E_DATE = R_BUDAT-HIGH.
    APPEND R_BUDAT.
ENDIF.
ENDFORM. " get_month_dates
*& Form output_table_Check
checking for records for output
FORM OUTPUT_TABLE_CHECK .
DESCRIBE TABLE I_FINALT LINES INDEX.
IF INDEX EQ 0.
    MESSAGE I041 WITH TEXT-005.
    LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. "OUTPUT_TABLE_CHECK
*& Form Z_TOP_OF_PAGE
for setting the details in the top of page *
has no formal paramters *
FORM Z_TOP_OF_PAGE.
DATA: V_MON(2),
V_YR(40),
V_FIN(18),
V_FIN1(48),
LOW(10),
HIGH(10).
V_MON = P_SPMON+4(2).
V_YR = P_SPMON+0(4).
FHEADER-TYP = 'H'.
FHEADER-INFO = 'Stock Register Report (FG Stock)'.
APPEND FHEADER.
CLEAR FHEADER.
*if m1 = 'X'.
CONCATENATE 'Month = ' v_mon '.' v_yr INTO v_fin.
fheader-typ = 'H'.
fheader-info = v_fin.
APPEND fheader.
CLEAR fheader.
*endif."prabhu on 18.5.5
IF D1 = 'X'.
    CLEAR S_BUDAT.
    LOOP AT S_BUDAT.
      CONCATENATE S_BUDAT-LOW6(2) '/' S_BUDAT-LOW4(2) '/'
      S_BUDAT-LOW+0(4) INTO LOW.
      CONCATENATE S_BUDAT-HIGH6(2) '/' S_BUDAT-HIGH4(2) '/'
      S_BUDAT-HIGH+0(4) INTO HIGH.
      CONCATENATE 'Date = ' LOW ' - ' HIGH INTO V_FIN1.
      FHEADER-TYP = 'H'.
      FHEADER-INFO = V_FIN1.
      APPEND FHEADER.
      CLEAR FHEADER.
    ENDLOOP.
ENDIF.
ENDFORM. " Z_TOP_OF_PAGE
*& Form Z_LAYOUT_SETTINGS
this is done for setting the properties for the layout of the *
grid *
has no formal paramters *
FORM Z_LAYOUT_SETTINGS.
FS_LAYO-ZEBRA = 'X'. " Output in Zebra pattern
FS_LAYO-DETAIL_POPUP = 'X'. " A popup window appears to give
FS_LAYO-DETAIL_TITLEBAR = TEXT-022.
FS_LAYO-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " Z_LAYOUT_SETTINGS
*& Form Z_ALV_EVENTS
This is used for handling the events TOP OF PAGE and the USER *
COMMAND event *
has no formal paramters *
FORM Z_ALV_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = FEVENTS[].
READ TABLE FEVENTS WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
    FEVENTS-FORM = 'Z_TOPOFPAGE'.
    MODIFY FEVENTS INDEX SY-TABIX.
    CLEAR FEVENTS.
ENDIF.
READ TABLE FEVENTS WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC = 0.
    FEVENTS-FORM = 'Z_USER_COMMAND'.
    MODIFY FEVENTS INDEX SY-TABIX.
    CLEAR FEVENTS.
ENDIF.
ENDFORM. "Z_ALV_EVENTS
*& Form Z_CREATE_FIELD_CATALOG
here the field catalog is created for the primary list *
no formal parameters *
FORM Z_CREATE_FIELD_CATALOG.
for the Plant
FCAT-FIELDNAME = 'WERKS'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '000005'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Plant'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material Type
FCAT-FIELDNAME = 'MTART'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '000006'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'MatTyp'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material No.
FCAT-FIELDNAME = 'MATNR'.
FCAT-KEY = 'X'.
fcat-hotspot = 'X'.
FCAT-OUTPUTLEN = '000018'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Material'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material Description
FCAT-FIELDNAME = 'MAKTX'.
FCAT-KEY = ''.
FCAT-OUTPUTLEN = '000040'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Description'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Unit of Measure
FCAT-FIELDNAME = 'MEINS'.
FCAT-KEY = ''.
FCAT-OUTPUTLEN = '03'.
FCAT-JUST = 'C'.
FCAT-SELTEXT_M = 'UOM'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'UNIT'.
APPEND FCAT.
CLEAR FCAT.
for the Plant
FCAT-FIELDNAME = 'MONTH'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '08'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'MONTH'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Opening Stock
FCAT-FIELDNAME = 'C_STK'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Opening Stock'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
fcat-do_sum = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Total Receipts
FCAT-FIELDNAME = 'TRECEP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Total Receipts'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Production
FCAT-FIELDNAME = 'PRODU'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Production'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Other Plant Receipts
FCAT-FIELDNAME = 'RECEP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Othr Plnt Recpts'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
Sales Return
FCAT-FIELDNAME = 'SAL_RET'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Sales Return'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
Total Dispatches
FCAT-FIELDNAME = 'TDISP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Total Dispatches'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.

Opening Stock + InwardQty + OutwardQty + Price and Closing Balance

Hi Members,
needs an SQL query for the " Stock Statement " From OINM Table to display opening stock , InwardQty as 'Receipts', OutwardQty as 'Issue', Price using Date and WareHouse as selection criteria.
Kindly Help me in this regard,
Thanks and Regards,
Venkatesh.R

used function in sql

How to remove the open stock

Dearl all,
I have created PO with QTy 50000 KL and GR has been done for 3000 KL now in MMBE open stock parcular material is showing 2000 KL now i dont want to receive 2000 KL qty, i tried to delete the line item in PO its showing error Msg qty2000 smaller than qty delivered 3000 and i blocked the line item but showing in the open stock (inMMBE) gow to remove it
please advice me
points will be rewarded
Regards
venu gopal

Hi
If you donot want to receive the Further 2000 KL, In the PO item, change the PO order qty to 3000 KL & flag the delivery completed indicator in the PO item
Thanks & Regards
Kishore

Opening Stock and Closing Stock fields and Calculation

Hi,
My report requirement is to display the material, opening stock for the lower date, closing stock for the higher date and the in between all stock operations..how to fetch the opening stock and closing stock for a particular material ???.. what are the tables and fields for calculating them??..
Thanks,
Sri

this is the code i wrote..
I had selected the data for the date entered and the previous date(l_date) also..
previous date for the opening stock.
now i am getting only receipts and issues correctly.. opening stock and the remaining
balance fields are not coming properly..please help me..
here rmenge for receipts,imenge for issues.
REPORT ZSTOCK no standard page heading line-size 180.
types: begin of ty_date,
       budat type budat,
       end of ty_date,
       begin of ty_mard,
        matnr type matnr,
        lgort type lgort_d,
        labst type labst,
        UMLME TYPE UMLMD,
        INSME TYPE INSME,
        EINME TYPE EINME,
        SPEME TYPE SPEME,
        RETME TYPE RETME,
       end of ty_mard,
       begin of ty_makt,
        matnr type matnr,
        maktx type maktx,
       end of ty_makt,
       begin of ty_mbew,
       matnr type matnr,
       bwkey type bwkey,
       lbkum type lbkum,
       salk3 type salk3,
       end of ty_mbew,
       begin of ty_mkpfmseg,
        mblnr type mblnr,
        budat type budat,
        bwart type bwart,
        matnr type matnr,
        lgort type lgort_d,
        shkzg type shkzg,
        dmbtr type dmbtr,
        menge type mseg-menge,
       end of ty_mkpfmseg,
       begin of ty_opstock,
       matnr type matnr,
       rdmbtr type dmbtr,
       idmbtr type dmbtr,
       bdmbtr type dmbtr,
       bmenge type menge_d,
       end of ty_opstock,
       begin of ty_output,
        mblnr type mblnr,
        budat type budat,
        matnr type matnr,
        maktx type maktx,
        bwart type bwart,
        lgort type lgort_d,
        shkzg type shkzg,
        rmenge type mseg-menge,
        rdmbtr type dmbtr,
        imenge type mseg-menge,
        idmbtr type dmbtr,
        dmbtr type dmbtr,
        bdmbtr type dmbtr,
        bmenge type menge_d,
       end of ty_output.
data: t_date type standard table of ty_date initial size 0,
      t_mard type standard table of ty_mard initial size 0,
      t_makt type standard table of ty_makt initial size 0,
      t_mkpfmseg type standard table of ty_mkpfmseg initial size 0,
      t_opstock type standard table of ty_opstock initial size 0,
      t_out type standard table of ty_output initial size 0,
      w_date type ty_date,
      w_mard type ty_mard,
      w_makt type ty_makt,
      w_mkpfmseg type ty_mkpfmseg,
      w_opstock type ty_opstock,
      w_out type ty_output,
      g_matnr type mara-matnr,
      g_lgort type t001l-lgort.
selection-screen begin of block b1 with frame.
parameters:p_werks type t001l-werks obligatory memory id pw.
select-options:s_lgort for g_lgort no-extension no intervals.
select-options: s_matnr for g_matnr.
parameters:p_date type mkpf-budat obligatory.
selection-screen end of block b1.
at selection-screen.
perform sub_validate_date.
start-of-selection.
data: l_date type sy-datum,
      l_row type i.
refresh t_date.
select budat from mkpf into table t_date.
sort t_date.
delete adjacent duplicates from t_date.
clear w_date.
read table t_date into w_date with key budat = p_date.
l_row = sy-tabix.
l_row = l_row - 1.
clear w_date.
read table t_date into w_date index l_row.
l_date = w_date-budat.
select    k~mblnr
          k~budat
          s~bwart
          s~matnr
          s~lgort
          s~shkzg
          s~dmbtr
          s~menge
          into table t_mkpfmseg
          from mkpf as k inner join mseg as s
          on kmblnr = smblnr and
             kmjahr = smjahr
          where k~budat between l_date and p_date and
                s~matnr in s_matnr and
                s~werks = p_werks and
                s~lgort in s_lgort.
if t_mkpfmseg is not initial.
sort t_mkpfmseg by budat ascending
                   matnr ascending.
select     matnr
           lgort
           labst
           umlme
           insme
           einme
           speme
           retme
           from mard
           into table t_mard
           for all entries in t_mkpfmseg
           where matnr = t_mkpfmseg-matnr and
                 werks = p_werks and
                 lgort in s_lgort.
select    matnr
          maktx
          from makt
          into table t_makt
          for all entries in t_mkpfmseg
          where matnr = t_mkpfmseg-matnr.
endif.
loop at t_mkpfmseg into w_mkpfmseg where budat = l_date.
   loop at t_mard into w_mard where matnr = w_mkpfmseg-matnr.
      w_opstock-matnr = w_mkpfmseg-matnr.
      if w_mkpfmseg-shkzg = 'S'.             " Receive
           w_opstock-rdmbtr = w_mkpfmseg-dmbtr.
           w_opstock-bmenge = w_mard-labst + w_mard-insme + w_mard-speme
                                + w_mard-einme +               w_mard-retme
                                - w_mkpfmseg-menge.
      elseif w_mkpfmseg-shkzg = 'H'.         " Issue
           w_opstock-idmbtr = w_mkpfmseg-dmbtr.
           w_opstock-bmenge = w_out-bmenge + w_mkpfmseg-menge.
      endif.
          w_opstock-bdmbtr = w_out-rdmbtr - w_out-idmbtr.
               append w_opstock to t_opstock.
              clear w_opstock.
   endloop.
endloop.
loop at t_mkpfmseg into w_mkpfmseg where budat = p_date.
   loop at t_mard into w_mard where matnr = w_mkpfmseg-matnr.
     clear w_makt.
     read table t_makt into w_makt with key matnr = w_mkpfmseg-matnr.
     if sy-subrc = 0.
      w_out-budat = w_mkpfmseg-budat.
      w_out-matnr = w_mard-matnr.
      w_out-maktx = w_makt-maktx.
      w_out-lgort = w_mard-lgort.
      w_out-mblnr = w_mkpfmseg-mblnr.
      w_out-bwart = w_mkpfmseg-bwart.
      w_out-shkzg = w_mkpfmseg-shkzg.
        if w_mkpfmseg-shkzg = 'S'.             " Receive
           w_out-rmenge = w_mkpfmseg-menge.
           w_out-rdmbtr = w_mkpfmseg-dmbtr.
           w_out-imenge = 0.
           w_out-bmenge = w_mard-labst + w_mard-insme + w_mard-speme
                                + w_mard-einme + w_mard-retme
                                - w_mkpfmseg-menge.
        elseif w_mkpfmseg-shkzg = 'H'.         " Issue
           w_out-imenge = w_mkpfmseg-menge.
           w_out-idmbtr = w_mkpfmseg-dmbtr.
           w_out-rmenge = 0.
           w_out-bmenge = w_out-bmenge + w_mkpfmseg-menge.
        endif.
           w_out-bdmbtr = w_out-rdmbtr - w_out-idmbtr.
               append w_out to t_out.
              clear w_out.
endif.
   endloop.
endloop.
write: / 'Material' , 12 'Description' ,40 'Location', 50 'Opening stock',70 'MvT',
          83 'Receipts' , 102 'Issues', 118 'Amount',135 'Balance Quan', 155 'Balance Amount'.
loop at t_out into w_out.
   write: / w_out-matnr, 12 w_out-maktx, 40 w_out-lgort.
   clear w_opstock.
   read table t_opstock into w_opstock with key matnr = w_out-matnr.
   if sy-subrc = 0.
     write: 45 w_out-bmenge.
    endif.
   write: 70 w_out-bwart,75 w_out-rmenge,92 w_out-imenge,
         110 w_out-bdmbtr, 130 w_out-bmenge, 150 w_out-bdmbtr.
endloop.
*&      Form SUB_VALIDATE_DATE
FORM SUB_VALIDATE_DATE.
    select budat
           from mkpf
           into table t_date
           where budat = p_date.
    if t_date is initial.
       message e001(zks) with 'select another date range'.
    endif.
ENDFORM.                    " SUB_VALIDATE_DATE
Edited by: Sri on Feb 18, 2009 8:31 AM

Opening stock in LTP scenario

Similar Messages

Maybe you are looking for