Index: vhUnitTest/APPS/common/impl/StockNiveauService/Test.cls.xml
===================================================================
diff -u -r33145 -r33153
--- vhUnitTest/APPS/common/impl/StockNiveauService/Test.cls.xml	(.../Test.cls.xml)	(revision 33145)
+++ vhUnitTest/APPS/common/impl/StockNiveauService/Test.cls.xml	(.../Test.cls.xml)	(revision 33153)
@@ -23,6 +23,11 @@
 <Default>123456</Default>
 </Parameter>
 
+<Parameter name="UniekOrderLijnNummer">
+<Type>%String</Type>
+<Default>abcd</Default>
+</Parameter>
+
 <Parameter name="Datum">
 <Type>%String</Type>
 <Default>02/01/16</Default>
@@ -33,6 +38,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="StockNiveauService">
+<Type>APPS.common.StockNiveauService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
@@ -45,29 +55,52 @@
 <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)
+	Do ##class(zTryout.MVI.ORDW.IO.Order).VerwijderOrder(..#OrderNummer, ..#UniekOrderLijnNummer)
+	
+	Do ##class(zTryout.MVI.KOD.Order).MaakOrder(..#OrderNummer, ..#KlantNummer)
+	Do ##class(zTryout.MVI.KPR.Product).MaakProduct(..#ProductNummer)
+	
+	#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = ##class(zTryout.MVI.KOD.Order.OrderLijn).MaakOrderLijn(..#OrderNummer, ..#OrderLijnNummer, ..#KlantNummer)
+	Do OrderLijn.ZetUniekOrderLijnNummer(..#UniekOrderLijnNummer)
+	
+	Set ..StockNiveauService = ##class(APPS.common.impl.StockNiveauService).%New(..#ProductNummer)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: aantal in reservatie">
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <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
+	Do ##super(aTestName)
 	
-	#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)
+	Do ##class(zTryout.MVI.KOD.Order).VerwijderOrder(..#OrderNummer, ..#KlantNummer)
+	Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#ProductNummer)
+	Do ##class(zTryout.MVI.ORDW.IO.Order).VerwijderOrder(..#OrderNummer, ..#UniekOrderLijnNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: aantal in order">
+<Implementation><![CDATA[
 	#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.GeefAantalInOrder(), 5)
+]]></Implementation>
+</Method>
+
+<Method name="Test: aantal in reservatie">
+<Implementation><![CDATA[
+	#dim IOOrder As zTryout.MVI.ORDW.IO.Order = ##class(zTryout.MVI.ORDW.IO.Order).MaakOrder(..#OrderNummer, ..#UniekOrderLijnNummer)
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
 	
-	Do $$$AssertEquals(StockNiveauService.GeefAantalInReservatie(), 5)
+	Do WinkelOrder.ZetLeverweek($zDateH("01/03/16", 4))
+	Do WinkelOrder.ZetAantal(5)
+
+	Do $$$AssertEquals(..StockNiveauService.GeefAantalInReservatie(), 5)
 ]]></Implementation>
 </Method>
 </Class>