Index: vhUnitTest/APPS/common/impl/StockNiveauService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/impl/StockNiveauService/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/impl/StockNiveauService/Test.cls.xml	(revision 33145)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.common.impl.StockNiveauService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantNummer">
+<Type>%string</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Parameter name="OrderNummer">
+<Type>%String</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Parameter name="OrderLijnNummer">
+<Type>%String</Type>
+<Default>101</Default>
+</Parameter>
+
+<Parameter name="ProductNummer">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Parameter name="Datum">
+<Type>%String</Type>
+<Default>02/01/16</Default>
+</Parameter>
+
+<Property name="Datum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Datum = $zDateH(..#Datum, 4)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Do ##class(zTryout.MVI.KOD.Order).VerwijderOrder(..#OrderNummer, ..#KlantNummer)
+	Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#ProductNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: aantal in reservatie">
+<Implementation><![CDATA[
+	#dim Order As zTryout.MVI.KOD.Order = ##class(zTryout.MVI.KOD.Order).MaakOrder(..#OrderNummer, ..#KlantNummer)
+	#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = ##class(zTryout.MVI.KOD.Order.OrderLijn).MaakOrderLijn(..#OrderNummer, ..#OrderLijnNummer, ..#KlantNummer)
+
+	Do OrderLijn.ZetUniekOrderLijnNummer("abcd") // automatisch nummer toekennen
+	
+	#dim IOOrder As zTryout.MVI.ORDW.IO.Order = ##class(zTryout.MVI.ORDW.IO.Order).MaakOrder(..#OrderNummer, OrderLijn.GeefUniekOrderLijnNummer())
+	#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).MaakProduct(..#ProductNummer)
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
+	
+	Do WinkelOrder.ZetLeverweek($zDateH("01/03/16", 4))
+	Do WinkelOrder.ZetAantal(5)
+	
+	#dim StockNiveauService As APPS.common.StockNiveauService = ##class(APPS.common.impl.StockNiveauService).%New(..#ProductNummer)
+	
+	Do $$$AssertEquals(StockNiveauService.GeefAantalInReservatie(), 5)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r33085 -r33145
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 33085)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 33145)
@@ -189,17 +189,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsInReceptie">
-<FormalSpec>ToeleveringNr,ToeleveringLijnNr</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	set LeverancierNr = $piece(^KTO1(ToeleveringNr),"\",1)
-	set TLUNr = $piece(^KTO(LeverancierNr,ToeleveringNr,ToeleveringLijnNr),"\",15)
-	set Result = $data(^RCP("IT",ToeleveringNr,TLUNr))
-	quit Result
-]]></Implementation>
-</Method>
-
 <Method name="GeefAantalInReservatie">
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
@@ -251,13 +240,14 @@
 </Method>
 
 <Method name="IsInReservatie">
-<FormalSpec>OrderNr,OrderLijnNr</FormalSpec>
+<FormalSpec>OrderNummer:%String,OrderLijnNummer:%String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	set KlantNr = $piece(^KO1(OrderNr,"F"),"\",1)
-	set OLUNr = $piece(^KOD(KlantNr,"F",OrderNr,OrderLijnNr),"\",15)
-	set Result = $data(^ORDW("IO",OrderNr,OLUNr))
-	quit Result
+	#dim KlantNummer As %String = $Piece(^KO1(OrderNummer, "F"), "\", 1)
+	#dim UniekOrderLijnNummer As %String = $Piece(^KOD(KlantNummer, "F", OrderNummer, OrderLijnNummer), "\", 15)
+
+	Quit $Data(^ORDW("IO", OrderNummer, UniekOrderLijnNummer))
 ]]></Implementation>
 </Method>
 
@@ -292,7 +282,7 @@
 	quit:$length(..AantalInTransfert) ..AantalInTransfert
 
 	set Result = 0
-
+	
 	set idxWNode = "W    0.0R"
 	for { set idxWNode = $Order(^KPR(..PRNr,idxWNode)) Quit:'$$$StartsWith(idxWNode,"W    0.0R")
 		 set OrderNr = $extract(idxWNode,18,23)