Index: vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml
===================================================================
diff -u -r70209 -r70219
--- vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 70209)
+++ vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 70219)
@@ -20,9 +20,9 @@
 <Implementation><![CDATA[
 	#dim ProductGroep As %String = "KAD"
 	
-	Do ..AssertDoos(..GeefVouwErrondDoosKAD(1128.2, 142, 80), ProductGroep, 219, 0)
-	Do ..AssertDoos(..GeefVouwErrondDoosKAD(2089, 142, 80), ProductGroep, 209, 1)
-	Do ..AssertDoos(..GeefVouwErrondDoosKAD(2088, 142, 80), ProductGroep, 219, 0)
+	Do ..AssertDoos(..GeefVouwErrondDoosKAD(1128.2, 142, 80), ProductGroep, 219, 0, ##class(APPS.Verpakking.enu.MachineID).VH())
+	Do ..AssertDoos(..GeefVouwErrondDoosKAD(2089, 142, 80), ProductGroep, 209, 1, ##class(APPS.Verpakking.enu.MachineID).VH())
+	Do ..AssertDoos(..GeefVouwErrondDoosKAD(2088, 142, 80), ProductGroep, 219, 0, ##class(APPS.Verpakking.enu.MachineID).VH())
 	//recept 219 met swap 1 lijkt precies nooit de optimale oplossing
 ]]></Implementation>
 </Method>
@@ -31,18 +31,18 @@
 <Implementation><![CDATA[
 	#dim ProductGroep As %String = "TBX"
 	
-	Do ..AssertDoos(..GeefVouwErrondDoosTBX(1000, 190, 45), ProductGroep, 219, 0)
-	Do ..AssertDoos(..GeefVouwErrondDoosTBX(200, 500, 45), ProductGroep, 219, 1)
-	Do ..AssertDoos(..GeefVouwErrondDoosTBX(200, 190, 45), ProductGroep, 209, 0)	
-	Do ..AssertDoos(..GeefVouwErrondDoosTBX(150, 200, 45), ProductGroep, 209, 1)
+	Do ..AssertDoos(..GeefVouwErrondDoosTBX(1000, 190, 45), ProductGroep, 219, 0, ##class(APPS.Verpakking.enu.MachineID).HALUX())
+	Do ..AssertDoos(..GeefVouwErrondDoosTBX(200, 500, 45), ProductGroep, 219, 1, ##class(APPS.Verpakking.enu.MachineID).HALUX())
+	Do ..AssertDoos(..GeefVouwErrondDoosTBX(200, 190, 45), ProductGroep, 209, 0, ##class(APPS.Verpakking.enu.MachineID).HALUX())	
+	Do ..AssertDoos(..GeefVouwErrondDoosTBX(150, 200, 45), ProductGroep, 209, 1, ##class(APPS.Verpakking.enu.MachineID).HALUX())
 ]]></Implementation>
 </Method>
 
 <Method name="AssertDoos">
-<FormalSpec>Doos:APPS.Verpakking.Doos,ProductGroep:%String,VerwachteRecipe:%String,VerwachteSwap:%String</FormalSpec>
+<FormalSpec>Doos:APPS.Verpakking.Doos,ProductGroep:%String,VerwachteRecipe:%String,VerwachteSwap:%String,MachineId:APPS.Verpakking.enu.MachineID</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..Optimizer.Optimize(.Doos, ProductGroep, ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec())
+	Do ..Optimizer.Optimize(.Doos, ProductGroep, ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec(), MachineId)
 	
 	Do $$$AssertEquals(Doos.Recipe, VerwachteRecipe)
 	Do $$$AssertEquals(Doos.Swap, VerwachteSwap)