Index: zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml
===================================================================
diff -u -r33147 -r33151
--- zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml	(.../Test.cls.xml)	(revision 33147)
+++ zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml	(.../Test.cls.xml)	(revision 33151)
@@ -54,7 +54,7 @@
 <Implementation><![CDATA[
 	#dim Order As zTryout.MVI.KOD.Order = ##class(zTryout.MVI.KOD.Order).%New(..#BestaandOrderNummer, ..#KlantNummer)
 	#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = ##class(zTryout.MVI.KOD.Order.OrderLijn).MaakOrderLijn(..#BestaandOrderNummer, "abcd", ..#KlantNummer)
-	
+
 	Do $$$AssertTrue($IsObject(Order.GeefOrderLijn("abcd")))
 ]]></Implementation>
 </Method>
Index: zTryout/MVI/UnitTest/KPR/Product/WinkelOrder/Test.cls.xml
===================================================================
diff -u -r33143 -r33151
--- zTryout/MVI/UnitTest/KPR/Product/WinkelOrder/Test.cls.xml	(.../Test.cls.xml)	(revision 33143)
+++ zTryout/MVI/UnitTest/KPR/Product/WinkelOrder/Test.cls.xml	(.../Test.cls.xml)	(revision 33151)
@@ -9,12 +9,12 @@
 </Parameter>
 
 <Parameter name="OrderNummer">
-<Type>%Integer</Type>
+<Type>%String</Type>
 <Default>111111</Default>
 </Parameter>
 
 <Parameter name="OrderLijnNummer">
-<Type>%Integer</Type>
+<Type>%String</Type>
 <Default>101</Default>
 </Parameter>
 
@@ -45,7 +45,7 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	//Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#ProductNummer)
+	Do ##class(zTryout.MVI.KPR.Product).VerwijderProduct(..#ProductNummer)
 ]]></Implementation>
 </Method>
 
@@ -54,7 +54,9 @@
 	Do ..MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, 25, "", "")
 	
 	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
-	Do $$$AssertEquals(WinkelOrder.GeefAantal(), 25)
+	
+	Set $Piece(^KPR(..#ProductNummer, WinkelOrder.GeefSleutel()), "\", 1) = 30
+	Do $$$AssertEquals(WinkelOrder.GeefAantal(), 30)
 ]]></Implementation>
 </Method>
 
@@ -63,9 +65,10 @@
 	Do ..MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, 25, "", "")
 	
 	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
-	
 	Do WinkelOrder.ZetAantal(30)
-	Do $$$AssertEquals(WinkelOrder.GeefAantal(), 30)
+
+	#dim Aantal As %Integer = $Piece(^KPR(..#ProductNummer, WinkelOrder.GeefSleutel()), "\", 1)
+	Do $$$AssertEquals(Aantal, 30)
 ]]></Implementation>
 </Method>
 
@@ -74,21 +77,21 @@
 	Do ..MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, "", "", ..WinkelOrderType.KOM)
 	
 	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
-	Do $$$AssertEquals(WinkelOrder.GeefType(), ..WinkelOrderType.KOM)
+	
+	Set $Piece(^KPR(..#ProductNummer, WinkelOrder.GeefSleutel()), "\", 3) = ..WinkelOrderType.Stock
+	Do $$$AssertEquals(WinkelOrder.GeefType(), ..WinkelOrderType.Stock)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZetType">
 <Implementation><![CDATA[
 	Do ..MaakWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer, "", "", ..WinkelOrderType.KOM)
 	
-	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)
-		
+	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).GeefWinkelOrder(..#ProductNummer, ..Datum, ..#OrderNummer, ..#OrderLijnNummer)	
 	Do WinkelOrder.ZetType(..WinkelOrderType.Stock)
-	Do $$$AssertEquals(WinkelOrder.GeefType(), ..WinkelOrderType.Stock)
 	
-	Do WinkelOrder.ZetType(..WinkelOrderType.KOM)
-	Do $$$AssertEquals(WinkelOrder.GeefType(), ..WinkelOrderType.KOM)
+	#dim Type As zTryout.MVI.KPR.Product.enu.WinkelOrderType = $Piece(^KPR(..#ProductNummer, WinkelOrder.GeefSleutel()), "\", 3)
+	Do $$$AssertEquals(Type, ..WinkelOrderType.Stock)
 ]]></Implementation>
 </Method>
 
@@ -104,14 +107,14 @@
 </Method>
 
 <Method name="MaakWinkelOrder">
-<FormalSpec>ProductNummer:%String,Datum:%Date,OrderNummer:%Integer,OrderLijnNummer:%Integer,Aantal:%Integer,Leverweek:%String,Type:zTryout.MVI.KPR.Product.enu.WinkelOrderType</FormalSpec>
+<FormalSpec>ProductNummer:%String,Datum:%Date,OrderNummer:%String,OrderLijnNummer:%String,Aantal:%Integer,Leverweek:%Date,Type:zTryout.MVI.KPR.Product.enu.WinkelOrderType</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim WinkelOrder As zTryout.MVI.KPR.Product.WinkelOrder = ##class(zTryout.MVI.KPR.Product.WinkelOrder).MaakWinkelOrder(ProductNummer, Datum, OrderNummer, OrderLijnNummer)
 
-	Set $Piece(^KPR(ProductNummer, WinkelOrder.GeefSleutel()), "\", 1) = Aantal
-	Set $Piece(^KPR(ProductNummer, WinkelOrder.GeefSleutel()), "\", 2) = Leverweek
-	Set $Piece(^KPR(ProductNummer, WinkelOrder.GeefSleutel()), "\", 3) = Type
+	Do WinkelOrder.ZetAantal(Aantal)
+	Do WinkelOrder.ZetLeverweek(Leverweek)
+	Do WinkelOrder.ZetType(Type)
 ]]></Implementation>
 </Method>
 </Class>
Index: zTryout/MVI/UnitTest/KOD/Order/OrderLijn/Test.cls.xml
===================================================================
diff -u -r33141 -r33151
--- zTryout/MVI/UnitTest/KOD/Order/OrderLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 33141)
+++ zTryout/MVI/UnitTest/KOD/Order/OrderLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 33151)
@@ -48,15 +48,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Geef- en ZetUniekOrderLijnNummer">
+<Method name="Test: GeefUniekOrderLijnNummer">
 <Implementation><![CDATA[
 	#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = ##class(zTryout.MVI.KOD.Order.OrderLijn).MaakOrderLijn(..#OrderNummer, ..#OrderLijnNummer, ..#KlantNummer)
-	Do $$$AssertEquals(OrderLijn.GeefUniekOrderLijnNummer(), "")
 	
-	Do OrderLijn.ZetUniekOrderLijnNummer("abcd")
+	Set $Piece(^KOD(..#KlantNummer, "F", ..#OrderNummer, ..#OrderLijnNummer), "\", 15) = "abcd"
 	Do $$$AssertEquals(OrderLijn.GeefUniekOrderLijnNummer(), "abcd")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetUniekOrderLijnNummer">
+<Implementation><![CDATA[
+	#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = ##class(zTryout.MVI.KOD.Order.OrderLijn).MaakOrderLijn(..#OrderNummer, ..#OrderLijnNummer, ..#KlantNummer)
+	Do OrderLijn.ZetUniekOrderLijnNummer("abcd")
+	
+	#dim UniekOrderLijnNummer As %String = $Piece(^KOD(..#KlantNummer, "F", ..#OrderNummer, ..#OrderLijnNummer), "\", 15)
+	Do $$$AssertEquals(UniekOrderLijnNummer, "abcd")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml
===================================================================
diff -u -r33146 -r33151
--- zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml	(.../Test.cls.xml)	(revision 33146)
+++ zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml	(.../Test.cls.xml)	(revision 33151)
@@ -44,8 +44,9 @@
 <Method name="Test: Geef KlantNummer">
 <Implementation><![CDATA[
 	#dim OrderIndex As zTryout.MVI.KOD.Order.Index1 = ##class(zTryout.MVI.KOD.Order.Index1).%New(..#BestaandOrderNummer)
+	#dim KlantNummer As %String = ^KO1(..#BestaandOrderNummer, "F")
 	
-	Do $$$AssertEquals(OrderIndex.GeefKlantNummer(), ..#KlantNummer)
+	Do $$$AssertEquals(KlantNummer, ..#KlantNummer)
 ]]></Implementation>
 </Method>
 </Class>