Index: vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml
===================================================================
diff -u -r70302 -r72323
--- vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 70302)
+++ vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 72323)
@@ -20,9 +20,9 @@
 <Implementation><![CDATA[
 	#dim ProductGroep As %String = "KAD"
 	
-	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())
+	Do ..AssertDoosPanotec(..GeefVouwErrondDoosKAD(1128.2, 142, 80), ProductGroep, 209, 0, ##class(APPS.Verpakking.enu.MachineID).VH())
+	Do ..AssertDoosPanotec(..GeefVouwErrondDoosKAD(2089, 142, 80), ProductGroep, 219, 1, ##class(APPS.Verpakking.enu.MachineID).VH())
+	Do ..AssertDoosPanotec(..GeefVouwErrondDoosKAD(2088, 142, 80), ProductGroep, 209, 0, ##class(APPS.Verpakking.enu.MachineID).VH())
 	//recept 219 met swap 1 lijkt precies nooit de optimale oplossing
 ]]></Implementation>
 </Method>
@@ -31,13 +31,35 @@
 <Implementation><![CDATA[
 	#dim ProductGroep As %String = "TBX"
 	
-	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())
+	Do ..AssertDoosKraft(..GeefVouwErrondDoosTBX(1000, 190, 45), ProductGroep, 219, 0, ##class(APPS.Verpakking.enu.MachineID).HALUX())
+	Do ..AssertDoosKraft(..GeefVouwErrondDoosTBX(200, 500, 45), ProductGroep, 219, 0, ##class(APPS.Verpakking.enu.MachineID).HALUX())
+	Do ..AssertDoosKraft(..GeefVouwErrondDoosTBX(200, 190, 45), ProductGroep, 209, 0, ##class(APPS.Verpakking.enu.MachineID).HALUX())	
+	Do ..AssertDoosKraft(..GeefVouwErrondDoosTBX(150, 200, 45), ProductGroep, 209, 0, ##class(APPS.Verpakking.enu.MachineID).HALUX())
 ]]></Implementation>
 </Method>
 
+<Method name="AssertDoosPanotec">
+<FormalSpec>Doos:APPS.Verpakking.dto.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(), MachineId)
+	
+	Do $$$AssertEquals(Doos.Recipe, VerwachteRecipe)
+	Do $$$AssertEquals(Doos.Swap, VerwachteSwap)
+]]></Implementation>
+</Method>
+
+<Method name="AssertDoosKraft">
+<FormalSpec>Doos:APPS.Verpakking.dto.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).Kraft(), MachineId)
+	
+	Do $$$AssertEquals(Doos.Recipe, VerwachteRecipe)
+	Do $$$AssertEquals(Doos.Swap, VerwachteSwap)
+]]></Implementation>
+</Method>
+
 <Method name="AssertDoos">
 <FormalSpec>Doos:APPS.Verpakking.dto.Doos,ProductGroep:%String,VerwachteRecipe:%String,VerwachteSwap:%String,MachineId:APPS.Verpakking.enu.MachineID</FormalSpec>
 <Private>1</Private>
Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r72317 -r72323
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 72317)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 72323)
@@ -139,6 +139,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (ProductGroep = "KAD") {
+		
+		If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) {
+			Set BasisDoos.Recipe = 209
+			Set BasisDoos.AltRecipe = 219
+		}
+		
 		Set BasisDoos.Swap = 0
 		Set BasisDoos.AltSwap = 0
 		
@@ -175,7 +181,7 @@
 			Set BasisDoos.Swap = BasisDoos.AltSwap
 		}	
 		
-		Set ..BreedtePlano = ..BreedtePlano + 200 //200 als buffer omdat hij soms zijn VH machine zijn koppen niet kan zetten, zie confluence
+		Set ..BreedtePlano = ..BreedtePlano + 100 //100 als buffer omdat hij soms zijn VH machine zijn koppen niet kan zetten, zie confluence
 		
 		If (..BreedtePlano > 2399) {
 			Set ..BreedtePlano = 2399