MB52 unrestricted quantity

Dear all, when I am getting the report of MB52for a specific material, I get back the information that there is a special stock "E" for a sales order with inrestricted value 1.
Though, when I get the sales order, I check and there has been a delivery with goods issue and there has also been an invoice.
What is the problem with MB52 and I get this value of inrestrusted since the sales order has been completed.

Sales order, delivery and invoice are completed - this is one thing. Stock in your warehouse is another thing.
If you had more parts in sales order stock than it was ordered then after GI (of the ordered quantity) the difference remained in sales order special stock.
It can e.g. happen that someone manually moved the stock into the SOs special stock segment after GI.
It may also happen that the order quantity has been reduced but the stock till was there and only a part of it was issued...
Etc.
Why is it a problem for you? Why do you think tMB52 is wrong?
You should check the goods movements in MB51, youshould check the order history in VA03, etc. and find out what happened
Edited by: Csaba Szommer on Jul 21, 2010 10:31 AM

Similar Messages

I would like to know how to get the unrestricted quantity excluding actual customer ordr quantities on a given group of items?

I would like to know how to get the unrestricted quantity excluding actual customer ordr quantities on a given group of items?

Hi , Welcome to the HP Forums!
It is a terrific place to find answers and tips!
For you to have the best experience in the HP forum I would like to direct your attention to the HP Forums Guide.Learn How to Post and More I grasp you would like to replace the keyboard and would like the part number and where to purchase one. Here is a link to the HP Pavilion 17 Notebook PC HP Pavilion 15 Notebook PC Maintenance and Service Guide . Please note chapter 3, page 20, item 2 for the replacement keyboard part numbers. You stated you were having a difficulty locating where to purchase the part. Here is a link to HP Notebook PCs - Ordering HP Certified Replacement Parts for your convenience. You can also try a Google search with the part number for other vendors that may have one. To say thanks for replying please click the thumbs up icon below. If this has addressed your query please choose solution provided to help other people locate this information. Best of Luck!

Unrestricted quantity not reducing in MMBE

When we are reserving materials through maintenance order (IW31),
we can see the reserved quantity through MMBE.
but the unrestricted quantity remains the same and does not reduce.
This is not correct. If we are reserving a material in the maintenance
order, then its unrestricted quantity should reduce and the reserved
quantity should increase.
This is not happening in our current scenario.
For e.g
if there is a material A and it has unrestricted quantity as 2.
If i reserve 1 quantity through maintenance order.
Then its unrestricted quantity should reduce to 1 and reserved quantity should increase to 1.
but when we view the MMBE transaction, it shows quantity 2 in unrestricted and 1 in reserved.
Shouldn't the unrestricted quantity reduce to 1??
Please advise.

Hi,
I have done further investigation and found something further wrong with this.
E.g, Material A has unrestricted stock as 5.
I createa a reservation for 1 through maintenance order.
So, effectively, unrestricted stock = 4 and reserved stock = 1 (total = 5)
But SAP (MMBE) is showing unrestricted stock = 5 an reserved stock = 1 (That means I have quantity 6 in total !!!!!!!!!! which is wrong)
Now, I do an unplanned goods withdrawal agains cost center for quantity 5. SAP lets me do it. Ideally, it should give me altleast a warning that quantity 1 is reserved.
Now when i do my planned goods issue for the maintenance order, it gives error 'deficit stock'.
This is wrong business process!! If i have reserved quantity 1, how can somebody else issue it??
Please advise,
Many thanks.

MB5b Value is not matching with MB52 value

Hi Expert,
Please tell me what is the difference between tcode mb5b and mb52.In our system MB5B Valuated Stock Qty and Value is not Matching with MB52 (Unrestricted + GIT+ stock in QI) stock and value.
Edited by: lifesgud on Apr 26, 2011 2:50 PM

Hi,
Please post this thread on the Inventory Management forums for the relevant expertise (component MM-IM-GF-REP). Unfortunately I don't have sufficient permissions to move it for you.
Rgds,
Colum

Difference Between MB5B and MB52 Stock

Hi Expert,
Please tell me what is the difference between tcode mb5b and mb52.In our system MB5B Valuated Stock Qty and Value is not Matching with MB52 (Unrestricted + GIT+ stock in QI) stock and value.

Hi,
T-Code
MB5B : Stocks for Posting Date
This will allow you to display the stock between the given period,
MB52 : List of Warehouse Stocks on Hand
This will allow you to see avialable/current stock on hand.
hope this makes you clear or else are you looking for anyhting more,,,,
Regards,
Kiran.

Physical inventory document - for all A parts

Hi,
We are in the process of preparing our system for physical inventory count for all A parts (Cycle count indicator is A).
1. We ran MI24 to get all open physical inventory documents.(they are around 100).
2.Then we ran MI31 (didn't create batch input) for all A parts and the following are checked - 1. Material marked for deletion 2. only materials w/o zero stock 3. Unrestrcited use 4. Blocked 4. Include inventoried materials 5. Included inventoried batches. The variant for MI31 includes all A parts in the material selection and the required plant and SL are input. The output said, phy inventory documents could be created for 656 materials.
3. I wrote a query with MARC and MARD to get all A parts with unrestricted quantity > 0 for the above specified plant and SL. The list produced 882.
The above two counts are not matching.
I ran MI31 for some of the materials which are in the list materials as per point 3 but not in the above 2. But MI31 said, no physical inventory document can be created.
We want to make sure both the both numbers are equal (step 1 + 2 = step 3), to make sure all A parts will be counted. Can anyone explain why they are not matching? or Am I missing something?
OR any other ways to make sure all A parts will be counted. Thanks,
Regards,
Sundar.

Please refer my comment. It may be useful for you.
There are two ways if you want to carry out Physical Inventory count
1)Manual -
First check if there are no open PI document for a material using MI31.
Then carry out three transactions one after another MI01, MI04, MI07
2) Automatic
Maintain CC physical inv. indicator in material master i.e A, B, C
Before that ensure that you have maintained SPRO setting for A, B and C.
Ok Now check the planned count date in MARC table. Run a Z program to change the last count date
Now run MICN and schedule a job to create PI documents

Able to post Invoice for Blocked stock from quality

Hi
I did GR for material against PO for 50 pcs, During QA32 stock posting i posted 30 pcs to Unres. stock(101) and 20 pieces to blocked stock(350) storage locations.
Now when I am trying to create MIRO invoice verification, I am getting all the 50 pcs and available to post also for the entire quantity. How the system is allowing me to carryout Invoice verification for the blocked stock 20 pcs also ???
It should allow me to process the 30 pcs only which are in unres. stock .
How do I block the blocked stock from getting invoiced ?
Please help
Thanks
Samuel

Dear Jurgen
Thanks for the reply, master does contain the control key, I also have the inpsection set_up for the materials. During PO in delivery tab at item level I am getting stock type as Quality Inspection. During GR, lot is getting generated and we are able to Stock post it using QA11. Every thing works fine till the stock is there in Quality till the run of Txn QA11. But once stock is out of quality we are having the issue for the stock posted to blocked, I can understand MIRO picking up Unrestricted Quantity of the Lot but why it is also picking the quantity posted to blocked stock as we do not want to pay the vendor for this stock quanitity till we clear it.
Is there any normal config setting to stop it form geting picked during MIRO.
Thanks

How to change the reserved quanities?

Hi,
I have to change the valuation class for the materials in a particular plant. But some matetials have unrestricted as well as reserved quanitities. For the materials which have Unrestricted quantity, I have done transfer posting in MB1B with mov type 309. and so I have changed the valuation class in MM02.
But I got stuck for the materials having reserved quanitity. Please suggest what to do.
Regards,
Rosh

HI,
If reservation created against a material code, system allows you to change valuation class. As per your query you have moved the existing stock to change valuation class but you have not seen reservation. Sure changes will just effect / update in materials taken in reservation too. but it will not create any discrepancy.
See just go through your business process if you want its creating any discrepancy you have option to change / delete reservation by mb22 / MBVR.

Stock overview report and query

Dear all
I am devoloping report bsed on fields are Unrestricted quantity, Quality Inspection Qty, Blocked Qty, Return Qty.
the same report is developed from ECC based on The MARD and MBEW tables. now in BW 0ic_c03 is the cube but i am not able to find these fields

Hi,
Pl check following thread
Inventory cube 0ic_c03
Thanks and regards
Kiran

BAPI to get the Material in Stock

Hi Experts,
     I have requirement in which I have to call the function module(RFC Enabled) or BAPI which give the following fields as listed below
1.Plant
2.Material
3.Material description
4.Batch number
5.Material type
6.Basic unit of measure
7.Storage location
8.Unrestricted quantity (not consignment)
9.Reserved quantity
10.Quantity under inspection,
11.Blocked
12.Returns
13.Stock in transit
Please help me out soon.
Thanks and regards,
Kuldeep Verma

Hi,
BAPI_MATERIAL_AVAILABILITY is the correct BAPI to get the details.
here is the sample code:
REPORT ZREPORT_MAT.
data: ENDLEADTME type BAPICM61M-WZTER,
      AV_QTY_PLT type BAPICM61V-WKBST,
      DIALOGFLAG type BAPICM61V-DIAFL,
      RETURN type BAPIRETURN,
      WMDVSX type table of BAPIWMDVS,
      WMDVEX type table of BAPIWMDVE.
CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
EXPORTING
    plant                    = '1100'
    material                 = '000000000300000292'
    unit                     = 'EA'
CHECK_RULE               =
STGE_LOC                 =
BATCH                    =
CUSTOMER                 =
DOC_NUMBER               =
ITM_NUMBER               =
WBS_ELEM                 =
STOCK_IND                =
DEC_FOR_ROUNDING         =
DEC_FOR_ROUNDING_X       =
READ_ATP_LOCK            =
READ_ATP_LOCK_X          =
MATERIAL_EVG             =
IMPORTING
   ENDLEADTME               = ENDLEADTME
   AV_QTY_PLT               = AV_QTY_PLT
   DIALOGFLAG               = DIALOGFLAG
   RETURN                   = RETURN
tables
    wmdvsx                   = WMDVSX
    wmdvex                   = WMDVEX
break developer.
write:/ AV_QTY_PLT.
Reward points if useful.

Generating a report using ABAP query

Hi All,
I want to generate a anlytical report using ABAP query, There are 3 different transactions/steps have to be executed to get this data in an actionable form.
1. MB52 - Unrestricted Stock
2. ZCustomquery - Custom query in SAP R3
3. Combine above two in a single report.
Please suggest me how can i proceed,
1. Example i have created query name called Finalrepot
2. How can i call above zcustomquery and Transaction (MB52) in the Query.
Thanks for your help
Pradeep

Hi,
Check below link to create ABAP query (SAP Query)
http://www.thespot4sap.com/Articles/SAP_ABAP_Queries_Create_The_Query.asp
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVQUE/BCSRVQUE.pdf
Best regards,
Brijesh

I want sample code and tables for my requriement

Hi Experts,
I have MATNR(material no), Werks(plant) and date as selection screen fields Based on this I have to get procurement data. i.e Material
Description
Vendor
Vendor name
Product hierarchy
Qty unrestricted
Date product recieve at warehouse.
i.e.Based on MATERIAL and PLANT I have to get total unrestricted quantity of that material.
please provide me relevant tables and sample code
thanx in advance

I have MATNR(material no), Werks(plant) and date as selection screen fields Based on this I have to get procurement data. i.e
Material - EKPO
Description - MAKT
Vendor - EKKO
Vendor name - LFA1
Product hierarchy - (???)
Qty unrestricted - EKPO
Date product recieve at warehouse. (EKKO)
Please provide me relevant tables (As Above)
and
sample code - You need to contact technical expert

Direct production in collective order network, automatic 261...

hi all,
i have a problem in a schenario with collective order network.
i have order B part of collective order network of order A. and material of order B has special procurement key 52 maintained in it. and colletive order of goods movement is selected in order type setting of order B.
now the problem is when i confirm the order B, its header material automatically gets issued to order A (as per the settings that is fine.. ).
but when i canel \ reverse the order A, i can not see 262 for material of order B which was issued automatically....??? why so?
and if i try to revrse order B, it stucs in COGI with the error of deficit of sales order quantity (or unrestricted quantity)....
can somebody tell me how to sollve this? how to get 262 of the header material of order B?
best regards,
Maulin
Edited by: Maulin Munshi on Jun 17, 2009 8:27 AM

If you're doing the confirmation of parent order (leading order) at header level (meaning you use CO15) then you can only confirm that particular order and not any child order. If you want the child orders to be confirmed also after completely confirming you'd have to change the control key of last operation of routing in leading material as milestone and use CO11 or CO11N and just confirm the last operation, it will automatically confirm all the operations in the leading order and all the sub orders (child orders). I don't think your OPKI setting will solve the issue.
Production orders that belong to collective orders are generally confirmed like normal production orders. However, you should note the following:
    When you carry out a confirmation at header or suboperation level, you can only confirm the order concerned.
    When you confirm at operation level, you can confirm operations for all orders as long as you work with milestone operations or progress confirmations.
    When there is a confirmation in the collective order, the system sets the status CFCO (release occurred in network) at the header level of the leading order in the collective order.
If you want to read more than what I mentioned, you go to this link

Batches at a location

HI,
1 ) In my initial screen, I need to get batches at a particular storage location,plant.I need to join mchb,mska and mkol.Is there a FM to get all this data.Also I should get batches where UnRestricted Quantity or Blocked Qty is not zero.
2 ) When I get all my batches and I select a material I should get batches for that material at all storage locations.
Any help is highly appreciated.
Thanks..

I need for a particular material group,storage location and plant.
Thanks..

Traffic Signals in ALV Without using oops only for normal Grid Display.

Hi Experts ,
I need to add traffic signals into my normal ALV Grid program without using oops concepts.
Please any one send me full code or provide me one program code without using oops concept for normal ALV Grid .
I searched in many forums but i found most of the programs wriiten using oops concept with ALV's but here my requirement without using oops concept and only normal reuse_alv_grid_display.
Thanks in Advance.
Venky.

You can check the below sample code.Traffic light is implemented in it.
REPORT ztest NO STANDARD PAGE HEADING
 LINE-SIZE 255 MESSAGE-ID zlqm.
TYPE-POOLS : slis,icon.
TABLES :qals,qave.
INCLUDE : zlqmr002_top, "Global Data Declaration
 zlqmr002_selection_screen, "Selection Screen Inputs
 zlqmr002_subroutine. "Subroutines
INITIALIZATION
INITIALIZATION.
PERFORM variant_init.
AT SELECTION-SCREEN
AT SELECTION-SCREEN.
Check for Variant existance
PERFORM pai_of_selection_screen.
*Validation for Material
AT SELECTION-SCREEN ON s_matnr.
IF NOT s_matnr IS INITIAL.
 SELECT SINGLE matnr
 INTO g_matnr
 FROM mara
 WHERE matnr IN s_matnr.
 IF sy-subrc <> 0.
 SET CURSOR FIELD 'S_MATNR'.
 MESSAGE e000 WITH text-003.
 ENDIF.
ENDIF.
*Validation for Plant
AT SELECTION-SCREEN ON s_werk.
IF NOT s_werk IS INITIAL.
 SELECT SINGLE werks
 INTO g_werk
 FROM t001w
 WHERE werks IN s_werk.
 IF sy-subrc <> 0.
 SET CURSOR FIELD 'S_WERK'.
 MESSAGE e000 WITH text-004.
 ENDIF.
ENDIF.
*Validation for Inspection Type
AT SELECTION-SCREEN ON s_art.
IF NOT s_art IS INITIAL.
 SELECT SINGLE art
 INTO g_art
 FROM tq30
 WHERE art IN s_art.
 IF sy-subrc <> 0.
 SET CURSOR FIELD 'S_ART'.
 MESSAGE e000 WITH text-005.
 ENDIF.
ENDIF.
*Validation for Code group
AT SELECTION-SCREEN ON s_vcdgrp.
IF NOT s_vcdgrp IS INITIAL.
 SELECT SINGLE codegruppe
 INTO g_vcdgrp
 FROM qpgr
 WHERE codegruppe IN s_vcdgrp.
 IF sy-subrc <> 0.
 SET CURSOR FIELD 'S_VCDGRP'.
 MESSAGE e000 WITH text-006.
 ENDIF.
ENDIF.
*Validation for Code
AT SELECTION-SCREEN ON s_vcode.
IF NOT s_vcode IS INITIAL.
 SELECT SINGLE code
 INTO g_vcode
 FROM qpcd
 WHERE code IN s_vcode.
 IF sy-subrc <> 0.
 SET CURSOR FIELD 'S_VCODE'.
 MESSAGE e000 WITH text-007.
 ENDIF.
ENDIF.
Process on value request
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vcdgrp-low.
PERFORM get_codegroup.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vcdgrp-high.
PERFORM get_codegroup.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vcode-low.
PERFORM get_code.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vcode-high.
PERFORM get_code.
START-OF-SELECTION.
START-OF-SELECTION.
**Selecting data form Database tables
PERFORM select_data TABLES i_out i_out1.
END-OF-SELECTION
END-OF-SELECTION.
**Generate ALV
PERFORM generate_alv.
DATA TYPES
TYPES : BEGIN OF t_qals,
 matnr TYPE qals-matnr, "Material
 werk TYPE qals-werk, "Plant
 mengeneinh TYPE qals-mengeneinh, "UOM
 lmenge01 TYPE qals-lmenge01, "Unrestricted qty
 lmenge02 TYPE qals-lmenge02, "Scrap qty
 lmenge03 TYPE qals-lmenge03, "Sample qty
 lmenge04 TYPE qals-lmenge04, "Blocked qty
 lmenge05 TYPE qals-lmenge05, "Retain qty
 lmenge06 TYPE qals-lmenge06, "Othermat qty
 lmenge07 TYPE qals-lmenge07, "RTV qty
 lmenge08 TYPE qals-lmenge08, "Exp.scrap qty
 prueflos TYPE qals-prueflos, "Inspection lot
 art TYPE qals-art, "Inspection type
 charg TYPE qals-charg, "Batch
 vcode TYPE qave-vcode, "Usage decision
 vdatum TYPE qave-vdatum, "Date
 qmnum TYPE qmel-qmnum, "Notification
 END OF t_qals.
TYPES : BEGIN OF t_out,
 icon TYPE icon-id, "Status
 matnr TYPE qals-matnr, "Material
 werk TYPE qals-werk, "Plant
 mengeneinh TYPE qals-mengeneinh, "UOM
 vcode TYPE qave-vcode, "Usage decision
 mncod(30) TYPE c, "Disposition
 lmenge01 TYPE qals-lmenge01, "Unrestricted qty
 lmenge02 TYPE qals-lmenge02, "Scrap qty
 lmenge03 TYPE qals-lmenge03, "Sample qty
 lmenge04 TYPE qals-lmenge04, "Blocked qty
 lmenge05 TYPE qals-lmenge05, "Retain qty
 lmenge06 TYPE qals-lmenge06, "Othermat qty
 lmenge07 TYPE qals-lmenge07, "RTV qty
 lmenge08 TYPE qals-lmenge08, "Exp.scrap qty
 prueflos TYPE qals-prueflos, "Inspection lot
 art TYPE qals-art, "Inspection type
 qmnum TYPE qmel-qmnum, "Notification
 vdatum TYPE qave-vdatum, "Date
 charg TYPE qals-charg, "Batch
 END OF t_out.
TYPES : BEGIN OF t_qmsm,
 qmnum TYPE qmsm-qmnum,
 manum TYPE qmsm-manum,
 mncod TYPE qmsm-mncod,
 END OF t_qmsm.
TYPES: BEGIN OF t_disp,
 qmnum TYPE qmsm-qmnum,
 mncod(30) TYPE c,
 END OF t_disp.
TYPES: BEGIN OF t_codegrp,
 katalogart TYPE qpgt-katalogart,
 codegruppe TYPE qpgt-codegruppe,
 kurztext TYPE qpgt-kurztext,
 END OF t_codegrp.
TYPES: BEGIN OF t_code,
 katalogart TYPE qpct-katalogart,
 codegruppe TYPE qpct-codegruppe,
 code TYPE qpct-code,
 version TYPE qpct-version,
 kurztext TYPE qpct-kurztext,
 END OF t_code.
INTERNAL TABLES
DATA: i_qals TYPE TABLE OF t_qals,
 wa_qals LIKE LINE OF i_qals,
 i_qmsm TYPE TABLE OF t_qmsm,
 wa_qmsm TYPE t_qmsm,
 i_disp TYPE TABLE OF t_disp,
 wa_disp LIKE LINE OF i_disp,
 i_out TYPE TABLE OF t_out,
 wa_out TYPE t_out,
 i_out1 TYPE TABLE OF t_out,
 wa_out1 TYPE t_out,
 i_codegrp TYPE TABLE OF t_codegrp,
 i_code TYPE TABLE OF t_code,
 i_qmsm_tmp TYPE TABLE OF t_qmsm.
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
 i_layout TYPE slis_layout_alv,
 g_repid TYPE sy-repid,
 wa_fieldcat TYPE slis_fieldcat_alv.
Global Variables
DATA : g_matnr TYPE matnr,
 g_werk TYPE werks,
 g_art TYPE qpart,
 g_vcdgrp TYPE qvgruppe,
 g_vcode TYPE qvcode,
 g_red TYPE c,
 g_yellow TYPE c,
 g_table(6) TYPE c,
 g_save(1) TYPE c,
 g_exit(1) TYPE c,
 g_report TYPE sy-repid,
 g_var TYPE disvariant,
 g_variant TYPE disvariant.
Constants
CONSTANTS: c_green TYPE icon-id VALUE '@08@',
 c_yellow TYPE icon-id VALUE '@09@',
 c_red TYPE icon-id VALUE '@0A@'.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR qals-matnr, "Material Number
 s_werk FOR qals-werk, "Plant
 s_art FOR qals-art, "Inspection Type
 s_vcdgrp FOR qave-vcodegrp, "Usage Decision Code Group
 s_vcode FOR qave-vcode, "Usage Decision Code
 s_vdatum FOR qave-vdatum. "Usage Decision Code Date
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: p_all RADIOBUTTON GROUP g1 DEFAULT 'X',
 p_excp RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-009.
"Variant Selection
PARAMETERS: p_vari TYPE disvariant-variant.
SELECTION-SCREEN END OF BLOCK b3.
*& Form select_data
 Select Inspection Details
FORM select_data TABLES p_out STRUCTURE wa_out
 p_out1 STRUCTURE wa_out.
DATA:l_mncod(30) TYPE c.
REFRESH : i_qals,i_qmsm,i_qmsm_tmp,i_disp,p_out.
SELECT qalsmatnr qalswerk qals~mengeneinh
 qalslmenge01 qalslmenge02 qals~lmenge03
 qalslmenge04 qalslmenge05 qals~lmenge06
 qalslmenge07 qalslmenge08 qals~prueflos
 qalsart qalscharg qave~vcode
 qavevdatum qmelqmnum
 INTO CORRESPONDING FIELDS OF TABLE i_qals
 FROM qals
 INNER JOIN qave
 ON qalsprueflos = qaveprueflos
 INNER JOIN qmel
 ON qalsprueflos = qmelprueflos
 WHERE qals~matnr IN s_matnr
 AND qals~werk IN s_werk
 AND qals~art IN s_art
 AND qals~stat34 EQ 'X'
 AND qave~vcodegrp IN s_vcdgrp
 AND qave~vcode IN s_vcode
 AND qave~vdatum IN s_vdatum.
IF sy-subrc NE 0.
 MESSAGE i000 WITH text-008.
ENDIF.
IF NOT i_qals IS INITIAL.
 SELECT qmnum manum mncod INTO TABLE i_qmsm
 FROM qmsm
 FOR ALL ENTRIES IN i_qals
 WHERE qmnum EQ i_qals-qmnum
 AND mngrp LIKE 'Q_D%'
 AND kzloesch NE 'X'.
ENDIF.
***Concatenation of Disposition Codes
IF NOT i_qmsm IS INITIAL.
 i_qmsm_tmp = i_qmsm.
 SORT i_qmsm_tmp BY qmnum mncod.
 DELETE ADJACENT DUPLICATES FROM i_qmsm_tmp COMPARING qmnum mncod+0(2).
 CLEAR wa_qmsm.
 LOOP AT i_qmsm_tmp INTO wa_qmsm.
 MOVE wa_qmsm-qmnum TO wa_disp-qmnum.
 CONCATENATE l_mncod wa_qmsm-mncod+0(2) INTO l_mncod SEPARATED BY space.
 AT END OF qmnum.
 SHIFT l_mncod LEFT DELETING LEADING space.
 MOVE l_mncod TO wa_disp-mncod.
 APPEND wa_disp TO i_disp.
 CLEAR:wa_disp,l_mncod.
 ENDAT.
 ENDLOOP.
ENDIF.
***Transfer of data to the output table
LOOP AT i_qals INTO wa_qals.
 MOVE-CORRESPONDING wa_qals TO wa_out.
 CLEAR wa_disp.
 READ TABLE i_disp INTO wa_disp
 WITH KEY qmnum = wa_qals-qmnum.
 IF sy-subrc EQ 0.
 MOVE wa_disp-mncod TO wa_out-mncod.
 ENDIF.
 PERFORM check_quantity USING wa_qals.
 CLEAR wa_qmsm.
 LOOP AT i_qmsm INTO wa_qmsm
 WHERE qmnum EQ wa_qals-qmnum.
 PERFORM check_group USING wa_qals
 wa_qmsm.
 CLEAR wa_qmsm.
 ENDLOOP.
 IF g_red NE 'X'.
 CLEAR wa_qmsm.
 LOOP AT i_qmsm INTO wa_qmsm WHERE qmnum = wa_qals-qmnum
 AND mncod0(2) NE wa_qals-vcode0(2).
 g_yellow = 'X'.
 ENDLOOP.
 ENDIF.
 IF g_yellow EQ 'X'.
 MOVE c_yellow TO wa_out-icon.
 ELSEIF g_red EQ 'X'.
 MOVE c_red TO wa_out-icon.
 ELSE.
 MOVE c_green TO wa_out-icon.
 ENDIF.
 APPEND wa_out TO p_out.
 CLEAR:wa_qals,wa_out,g_red,g_yellow.
ENDLOOP.
***IF only exceptions are need to be displayed
IF p_excp EQ 'X'.
 CLEAR wa_out.
 LOOP AT p_out INTO wa_out WHERE icon EQ c_red.
 APPEND wa_out TO p_out1.
 ENDLOOP.
ENDIF.
ENDFORM. " select_data
*& Form populate_fieldcat
 Populate the Fieldcat Table
FORM populate_fieldcat USING p_table TYPE c.
**status
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'ICON'.
wa_fieldcat-seltext_l = text-010.
wa_fieldcat-outputlen = 15.
wa_fieldcat-icon = 'X'.
APPEND wa_fieldcat TO i_fieldcat.
**Material
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-seltext_l = text-011.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO i_fieldcat.
**Plant
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'WERK'.
wa_fieldcat-seltext_l = text-012.
wa_fieldcat-outputlen = 7.
APPEND wa_fieldcat TO i_fieldcat.
**Usage Decision
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'VCODE'.
wa_fieldcat-seltext_l = text-013.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO i_fieldcat.
**Dispositions
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'MNCOD'.
wa_fieldcat-seltext_l = text-014.
wa_fieldcat-outputlen = 18.
APPEND wa_fieldcat TO i_fieldcat.
**UOM
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'MENGENEINH'.
wa_fieldcat-seltext_l = text-015.
wa_fieldcat-outputlen = 18.
APPEND wa_fieldcat TO i_fieldcat.
**Unrestricted Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'LMENGE01'.
wa_fieldcat-seltext_l = text-016.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Scrap Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'LMENGE02'.
wa_fieldcat-seltext_l = text-017.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Sample Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'LMENGE03'.
wa_fieldcat-seltext_l = text-018.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Blocked Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'LMENGE04'.
wa_fieldcat-seltext_l = text-019.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Retain Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'LMENGE05'.
wa_fieldcat-seltext_l = text-020.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Other Mat Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'LMENGE06'.
wa_fieldcat-seltext_l = text-021.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**RTV Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'LMENGE07'.
wa_fieldcat-seltext_l = text-022.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Exp. Scrap Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'LMENGE08'.
wa_fieldcat-seltext_l = text-023.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Inspection Lot
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'PRUEFLOS'.
wa_fieldcat-seltext_l = text-024.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Inspection Type
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'ART'.
wa_fieldcat-seltext_l = text-025.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Notification
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'QMNUM'.
wa_fieldcat-seltext_l = text-026.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Date
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'VDATUM'.
wa_fieldcat-seltext_l = text-027.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Batch
CLEAR wa_fieldcat.
wa_fieldcat-tabname = p_table.
wa_fieldcat-fieldname = 'CHARG'.
wa_fieldcat-seltext_l = text-028.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
ENDFORM. " populate_fieldcat
*& Form check_quantity
 To Check the Quantity
FORM check_quantity USING p_qals TYPE t_qals.
IF wa_qals-lmenge01 GT 0.
 LOOP AT i_disp TRANSPORTING NO FIELDS
 WHERE qmnum EQ wa_qals-qmnum
 AND ( mncod CP 'UI'
 OR mncod CP 'SR'
 OR mncod CP 'ND' ).
 ENDLOOP.
 IF sy-subrc NE 0.
 g_red = 'X'.
 ENDIF.
ENDIF.
IF wa_qals-lmenge02 GT 0 AND g_red NE 'X'.
 LOOP AT i_disp TRANSPORTING NO FIELDS
 WHERE qmnum EQ wa_qals-qmnum
 AND ( mncod CP 'SC'
 OR mncod CP 'SR' ).
 ENDLOOP.
 IF sy-subrc NE 0.
 g_red = 'X'.
 ENDIF.
ENDIF.
IF wa_qals-lmenge04 GT 0 AND g_red NE 'X'.
 LOOP AT i_disp TRANSPORTING NO FIELDS
 WHERE qmnum EQ wa_qals-qmnum
 AND ( mncod CP 'RW'
 OR mncod CP 'RD' ).
 ENDLOOP.
 IF sy-subrc NE 0.
 g_red = 'X'.
 ENDIF.
ENDIF.
IF wa_qals-lmenge05 GT 0 AND g_red NE 'X'.
 LOOP AT i_disp TRANSPORTING NO FIELDS
 WHERE qmnum EQ wa_qals-qmnum
 AND mncod CP 'R1'.
 ENDLOOP.
 IF sy-subrc NE 0.
 g_red = 'X'.
 ENDIF.
ENDIF.
IF wa_qals-lmenge06 GT 0 AND g_red NE 'X'.
 LOOP AT i_disp TRANSPORTING NO FIELDS
 WHERE qmnum EQ wa_qals-qmnum
 AND mncod CP 'RD'.
 ENDLOOP.
 IF sy-subrc NE 0.
 g_red = 'X'.
 ENDIF.
ENDIF.
IF wa_qals-lmenge07 GT 0 AND g_red NE 'X'.
 LOOP AT i_disp TRANSPORTING NO FIELDS
 WHERE qmnum EQ wa_qals-qmnum
 AND mncod CP 'RV'.
 ENDLOOP.
 IF sy-subrc NE 0.
 g_red = 'X'.
 ENDIF.
ENDIF.
IF wa_qals-lmenge08 GT 0 AND g_red NE 'X'.
 LOOP AT i_disp TRANSPORTING NO FIELDS
 WHERE qmnum EQ wa_qals-qmnum
 AND ( mncod CP 'SC'
 OR mncod CP 'SE' ).
 ENDLOOP.
 IF sy-subrc NE 0.
 g_red = 'X'.
 ENDIF.
ENDIF.
ENDFORM. " check_quantity
*& Form check_group
 To check the Disposition Code
FORM check_group USING p_qals TYPE t_qals
 p_qmsm TYPE t_qmsm.
IF p_qmsm-mncod+0(2) EQ 'UI' AND
 NOT p_qals-lmenge01 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'RW' AND
 NOT p_qals-lmenge04 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'SC' AND
 NOT p_qals-lmenge02 GT 0 AND
 NOT p_qals-lmenge08 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'SE' AND
 NOT p_qals-lmenge08 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'RV' AND
 NOT p_qals-lmenge07 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'SR' AND
 NOT p_qals-lmenge01 GT 0 AND
 NOT p_qals-lmenge02 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'ND' AND
 NOT p_qals-lmenge01 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'R1' AND
 NOT p_qals-lmenge05 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'RD' AND
 NOT p_qals-lmenge04 GT 0 AND
 NOT p_qals-lmenge06 GT 0.
 g_red = 'X'.
 EXIT.
ENDIF.
ENDFORM. " check_group
*& Form call_alv
 Call ALV Grid Display
FORM call_alv TABLES p_out STRUCTURE wa_out.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = g_repid
 i_callback_pf_status_set = 'PF_STATUS_SET'
 i_callback_user_command = 'USER_COMMAND'
 is_layout = i_layout
 it_fieldcat = i_fieldcat[]
 TABLES
 t_outtab = p_out
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " call_alv
*& Form generate_alv
 Build ALV
FORM generate_alv .
IF NOT i_out IS INITIAL OR
 NOT i_out1 IS INITIAL.
 g_repid = sy-repid.
 IF p_excp EQ 'X'.
 MOVE 'I_OUT1' TO g_table.
 ELSEIF p_all EQ 'X'.
 MOVE 'I_OUT' TO g_table.
 ENDIF.
 PERFORM populate_fieldcat USING g_table.
 i_layout-zebra = 'X'.
 i_layout-colwidth_optimize = 'X'.
 IF p_excp = 'X'.
 PERFORM call_alv TABLES i_out1.
 ELSEIF p_all = 'X'.
 PERFORM call_alv TABLES i_out.
 ENDIF.
ENDIF.
ENDFORM. " generate_alv
*& Form PF_STATUS_SET
 Setting PF Status
FORM pf_status_set USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'STATUS1' .
ENDFORM. "PF_STATUS_SET
*& Form USER_COMMAND
 User Command Processing
FORM user_command USING r_ucomm TYPE sy-ucomm
 rs_selfield TYPE slis_selfield.
CASE r_ucomm.
 WHEN 'UDG'.
 IF p_all EQ 'X'.
 CLEAR wa_out.
 READ TABLE i_out INTO wa_out INDEX rs_selfield-tabindex.
 SET PARAMETER ID 'QLS' FIELD wa_out-prueflos.
 ELSEIF p_excp EQ 'X'.
 CLEAR wa_out1.
 READ TABLE i_out1 INTO wa_out1 INDEX rs_selfield-tabindex.
 SET PARAMETER ID 'QLS' FIELD wa_out1-prueflos.
 ENDIF.
 CALL TRANSACTION 'QA13' AND SKIP FIRST SCREEN.
 WHEN 'QNF'.
 IF p_all EQ 'X'.
 CLEAR wa_out.
 READ TABLE i_out INTO wa_out INDEX rs_selfield-tabindex.
 SET PARAMETER ID 'IQM' FIELD wa_out-qmnum.
 ELSEIF p_excp EQ 'X'.
 CLEAR wa_out1.
 READ TABLE i_out1 INTO wa_out1 INDEX rs_selfield-tabindex.
 SET PARAMETER ID 'IQM' FIELD wa_out1-qmnum.
 ENDIF.
 CALL TRANSACTION 'QM03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM. "USER_COMMAND
*& Form variant_init
 Initialize variant
FORM variant_init .
Set Options: save variants userspecific or general
g_save = 'A'.
g_report = sy-repid.
g_var-report = g_report.
Get default variant
g_variant = g_var.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
 EXPORTING
 i_save = g_save
 CHANGING
 cs_variant = g_variant
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 0.
 p_vari = g_variant-variant.
ENDIF.
ENDFORM. " variant_init
*& Form f4_for_variant
 F4 help for variant
FORM f4_for_variant .
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
 EXPORTING
 is_variant = g_var
 i_save = g_save
 IMPORTING
 e_exit = g_exit
 es_variant = g_variant
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 2.
 MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
 IF g_exit = space.
 p_vari = g_variant-variant.
 ENDIF.
ENDIF.
ENDFORM. " f4_for_variant
*& Form pai_of_selection_screen
 Check existence of Variant
FORM pai_of_selection_screen .
IF NOT p_vari IS INITIAL.
 MOVE g_var TO g_variant.
 MOVE p_vari TO g_variant-variant.
 CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
 EXPORTING
 i_save = g_save
 CHANGING
 cs_variant = g_variant.
 g_var = g_variant.
ELSE.
 PERFORM variant_init.
ENDIF.
ENDFORM. " pai_of_selection_screen
*& Form get_codegroup
 Get F4 help for Code Group
FORM get_codegroup .
DATA: i_return TYPE TABLE OF ddshretval.
SELECT katalogart codegruppe kurztext FROM qpgt
 INTO TABLE i_codegrp
 WHERE katalogart EQ '3'
 AND sprache EQ sy-langu.
IF sy-subrc EQ 0.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 retfield = 'CODEGRUPPE'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 dynprofield = 'S_VCDGRP'
 value_org = 'S'
 TABLES
 value_tab = i_codegrp[]
 return_tab = i_return[]
 EXCEPTIONS
 parameter_error = 1
 no_values_found = 2
 OTHERS = 3
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
ENDFORM. " get_codegroup
*& Form get_code
 Get F4 help for Code
FORM get_code .
DATA: l_field TYPE rsscr-name VALUE 'S_VCDGRP',
 l_field_kind TYPE rsscr-kind VALUE 'S',
 li_par_values TYPE TABLE OF rsparams,
 la_par_values TYPE rsparams,
 r_cdgrp TYPE RANGE OF qpct-codegruppe,
 la_cdgrp LIKE LINE OF r_cdgrp.
**Get the values entered in the selection screen
PERFORM f4_get_related_values IN PROGRAM rsdbspf4
 TABLES li_par_values
 USING l_field l_field_kind.
IF NOT li_par_values IS INITIAL.
 CLEAR:la_cdgrp,la_par_values.
 LOOP AT li_par_values INTO la_par_values.
 MOVE-CORRESPONDING la_par_values TO la_cdgrp.
 IF la_cdgrp-option IS INITIAL.
 MOVE 'EQ' TO la_cdgrp-option.
 ENDIF.
 APPEND la_cdgrp TO r_cdgrp.
 CLEAR la_cdgrp.
 ENDLOOP.
ENDIF.
SELECT katalogart codegruppe
 code version
 kurztext FROM qpct
 INTO TABLE i_code
 WHERE katalogart EQ '3'
 AND codegruppe IN r_cdgrp
 AND sprache EQ sy-langu.
IF sy-subrc EQ 0.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 retfield = 'CODE'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 dynprofield = 'S_VCODE'
 value_org = 'S'
 TABLES
 value_tab = i_code[]
 return_tab =
 EXCEPTIONS
 parameter_error = 1
 no_values_found = 2
 OTHERS = 3
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
ENDFORM. " get_code

MB52 unrestricted quantity

Similar Messages

Maybe you are looking for