Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r1464 -r1651
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1464)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1651)
@@ -16,6 +16,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="InclReservatieWMS">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PRNr">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -82,7 +87,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock=""</FormalSpec>
+<FormalSpec>PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock="",InclReservatieWMS:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -94,6 +99,7 @@
 	set ..implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(PRNr,Datum)
 	set ..Datum = Datum
 	set ..Magazijn = Magazijn
+	set ..InclReservatieWMS = InclReservatieWMS
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -105,7 +111,7 @@
 	
 	set dtoStock.Fysisch = ..GeefFysischeStock()
 	set dtoStock.Praktisch = ..GeefPraktischeStock()
-	set dtoStock.FysischMinReservaties = ..GeefFysischeStockMinReservaties()
+	;set dtoStock.FysischMinReservaties = ..GeefFysischeStockMinReservaties()
 	set dtoStock.Theoretisch = ..GeefTheoretischeStock()
 	set dtoStock.InOrder = ..GeefAantalInOrder()
 	set dtoStock.InToelevering = ..GeefAantalInToelevering()
@@ -133,13 +139,18 @@
 	}
 	
 	set ..Fysisch = Result
+	
+	if ..InclReservatieWMS set ..Fysisch = ..Fysisch - ..GeefAantalInReservatie()
+
 	quit Result
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFysischeStockMinReservaties">
-<ReturnType>%Float</ReturnType>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method GeefFysischeStockMinReservaties() As %Float
+{
 	quit:$length(..FysischMinReservatie) ..FysischMinReservatie
 	
 	set Result = 0
@@ -152,8 +163,10 @@
 	set ..FysischMinReservatie = Result 
 	
 	quit Result
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="GeefPraktischeStock">
 <ReturnType>%Float</ReturnType>