Index: APPS/Verpakking/KartonRepository.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/KartonRepository.cls.xml	(revision 0)
+++ APPS/Verpakking/KartonRepository.cls.xml	(revision 70219)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.KartonRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>APPS.Verpakking.Data.Karton</Default>
+</Parameter>
+
+<Method name="GeefKartonBreedte">
+<FormalSpec>Dikte:%Decimal,Breedte:%Decimal,LogoPrint:%String,MachineId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVeldViaFilter("Breedte", "Dikte = ? AND Breedte >= ? AND LogoPrint = ? AND MachineId = ? ORDER BY BREEDTE ASC", $LB(Dikte, Breedte, LogoPrint, MachineId))
+]]></Implementation>
+</Method>
+
+<Method name="GeefKartonID">
+<FormalSpec>Dikte:%Decimal,Breedte:%Decimal,LogoPrint:%String,MachineId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVeldViaFilter("CardboardID", "Dikte = ? AND Breedte >= ? AND LogoPrint = ? AND MachineId = ? ORDER BY BREEDTE ASC", $LB(Dikte, Breedte, LogoPrint, MachineId))
+]]></Implementation>
+</Method>
+
+<Method name="GeefVeldViaFilter">
+<FormalSpec>Veld:%String,Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT "_ Veld _" FROM " _SqlTableName _" WHERE " _Filter
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+	#dim Result As %String 
+
+	If ResultSet.Next() {
+		Set Result = ResultSet.GetData(1)	
+	}
+	
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/Data/Karton.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/Data/Karton.cls.xml	(revision 0)
+++ APPS/Verpakking/Data/Karton.cls.xml	(revision 70219)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.Data.Karton">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="CardboardID">
+<Type>%String</Type>
+</Property>
+
+<Property name="LogoPrint">
+<Type>%String</Type>
+</Property>
+
+<Property name="Dikte">
+<Type>%Float</Type>
+</Property>
+
+<Property name="Breedte">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Kost">
+<Type>%Float</Type>
+</Property>
+
+<Property name="Actief">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ProductId">
+<Type>%String</Type>
+</Property>
+
+<Property name="MachineId">
+<Type>%String</Type>
+</Property>
+
+<Index name="UniqueIndex">
+<Properties>CardboardID,MachineId</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Verpakking.Data.KartonD</DataLocation>
+<DefaultData>KartonDefaultData</DefaultData>
+<IdLocation>^APPS.Verpakking.Data.KartonD</IdLocation>
+<IndexLocation>^APPS.Verpakking.Data.KartonI</IndexLocation>
+<StreamLocation>^APPS.Verpakking.Data.KartonS</StreamLocation>
+<Data name="KartonDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>CardboardID</Value>
+</Value>
+<Value name="3">
+<Value>LogoPrint</Value>
+</Value>
+<Value name="4">
+<Value>Dikte</Value>
+</Value>
+<Value name="5">
+<Value>Breedte</Value>
+</Value>
+<Value name="6">
+<Value>Kost</Value>
+</Value>
+<Value name="7">
+<Value>Actief</Value>
+</Value>
+<Value name="8">
+<Value>ProductId</Value>
+</Value>
+<Value name="9">
+<Value>MachineId</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r70204 -r70219
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70204)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70219)
@@ -103,22 +103,31 @@
 			Set BaseRef = $Piece(BaseRef,".",1,2) //Bij TAOR komt er nog een 3e piece achter, dit zou verder in de flow anders voor fouten zorgen
 			#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
 			#dim Doos As APPS.Verpakking.Doos = ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam)
-			Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, Prioriteit, MachineTechnologie, BoxDataID) //SnijdataID toevoegen voor overdozen?
+			Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, MachineTechnologie, BoxDataID) //SnijdataID toevoegen voor overdozen?
 			
 			If ($$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) && (ProductGroep = "PR")) {
 				Set Doos.LogoPrint = "TBX DRAWER"
 			}
-			Do ..Optimizer.Optimize(.Doos, ProductGroep, MachineTechnologie)
 			
+			If (MachineID = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()) {
+				Set Doos.CardBoardThickness = 3
+			}
+			Do ..Optimizer.Optimize(.Doos, ProductGroep, MachineTechnologie, MachineID)
+			
 			If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
-				If (MachineID = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()) {
-					Set Doos.CardBoardThickness = 3
-					Set Doos.CardBoardID = "TBX DRAWER EB 1430"
-				}
 				If ((MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()) || (MachineID = ##class(APPS.Verpakking.enu.MachineID).TAOR())) {
 					Set Doos.CardBoardThickness = 4
 				}
 			}
+			
+			If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
+				If (Prioriteit <= 7) {
+					Set Prioriteit = 8				//Niet dringend
+				} Else {
+					Set Prioriteit = 10				//Dringend
+				}
+			}
+			
 			#dim SnijData As DS.Prod.OptiBox.SnijData = ""
 			#dim OptiData As DS.Prod.OptiBox.OptiData
 			#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef
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)
Index: vhTest/Fake/APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r68405 -r70219
--- vhTest/Fake/APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 68405)
+++ vhTest/Fake/APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70219)
@@ -8,9 +8,8 @@
 <Super>APPS.Verpakking.DoosAanvuller</Super>
 
 <Method name="VulAanBasisInformatieDoos">
-<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,Prioriteit:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r70209 -r70219
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70209)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70219)
@@ -17,15 +17,21 @@
 <Private>1</Private>
 </Property>
 
-<Property name="btCardboardRepository">
-<Type>DS.Prod.OptiBox.sub.btCardboardRepository</Type>
+<Property name="KartonRepository">
+<Type>APPS.Verpakking.KartonRepository</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MachineId">
+<Type>APPS.Verpakking.enu.MachineID</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Optimize">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineId:APPS.Verpakking.enu.MachineID]]></FormalSpec>
 <Implementation><![CDATA[
-	Set ..btCardboardRepository = ##class(DS.Prod.OptiBox.sub.btCardboardRepository).%New()
+	Set ..KartonRepository = ##class(APPS.Verpakking.KartonRepository).%New()
+	Set ..MachineId = MachineId
 		
 	If (BasisDoos.%Extends("APPS.Verpakking.V1HogeRug")) {
 		Do ..OptmizeV1HogeRug(.BasisDoos)
@@ -53,7 +59,7 @@
 		Do ..OptimizeOverdoos(.BasisDoos)
 	}
 	
-	Set BasisDoos.CardBoardID = ..btCardboardRepository.GeefKartonID(BasisDoos.CardBoardThickness, ..BreedtePlano, BasisDoos.LogoPrint)
+	Set BasisDoos.CardBoardID = ..KartonRepository.GeefKartonID(BasisDoos.CardBoardThickness, ..BreedtePlano, BasisDoos.LogoPrint, ..MachineId)
 	
 	If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) && (BasisDoos.Swap = 1) {
 		#dim OrigineleWidth As %Decimal = BasisDoos.Width
@@ -126,8 +132,8 @@
 			Set BasisDoos.AltSwap = 1
 		}
 		
-		#dim NodigeKartonBreedteRecept = $Select(BreedtePlanoRecept <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint), 1: 9999999)
-		#dim NodigeKartonBreedteAltRecept =  $Select(BreedtePlanoAltRecept <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoAltRecept, BasisDoos.LogoPrint), 1: 9999999)
+		#dim NodigeKartonBreedteRecept = $Select(BreedtePlanoRecept <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoRecept, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		#dim NodigeKartonBreedteAltRecept =  $Select(BreedtePlanoAltRecept <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoAltRecept, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		
 		#dim OppTotaleKartonRecept As %Decimal = DieptePlanoRecept * NodigeKartonBreedteRecept
 		#dim OppTotaleKartonAltRecept As %Decimal = DieptePlanoAltRecept * NodigeKartonBreedteAltRecept
@@ -147,8 +153,8 @@
 		#dim BreedtePlanoNaSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
 		#dim DieptePlanoNaSwapRecept219 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		
-		#dim NodigeKartonBreedteVoorSwapRecept219 = $Select(BreedtePlanoVoorSwapRecept219 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint), 1: 9999999)
-		#dim NodigeKartonBreedteNaSwapRecept219 = $Select(BreedtePlanoNaSwapRecept219 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint), 1: 9999999)
+		#dim NodigeKartonBreedteVoorSwapRecept219 = $Select(BreedtePlanoVoorSwapRecept219 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		#dim NodigeKartonBreedteNaSwapRecept219 = $Select(BreedtePlanoNaSwapRecept219 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept219, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		
 		#dim OppTotaleKartonVoorSwapRecept219 As %Decimal = DieptePlanoVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219
 		#dim OppTotaleKartonNaSwapRecept219 As %Decimal = DieptePlanoNaSwapRecept219 * NodigeKartonBreedteNaSwapRecept219
@@ -163,8 +169,8 @@
 		#dim BreedtePlanoNaSwapRecept209 As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		#dim DieptePlanoNaSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 		
-		#dim NodigeKartonBreedteVoorSwapRecept209 = $Select(BreedtePlanoVoorSwapRecept209 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint), 1: 9999999)
-		#dim NodigeKartonBreedteNaSwapRecept209 = $Select(BreedtePlanoNaSwapRecept209 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint), 1: 9999999)
+		#dim NodigeKartonBreedteVoorSwapRecept209 = $Select(BreedtePlanoVoorSwapRecept209 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+		#dim NodigeKartonBreedteNaSwapRecept209 = $Select(BreedtePlanoNaSwapRecept209 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept209, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 		
 		#dim OppTotaleKartonVoorSwapRecept209 As %Decimal = DieptePlanoVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209
 		#dim OppTotaleKartonNaSwapRecept209 As %Decimal = DieptePlanoNaSwapRecept209 * NodigeKartonBreedteNaSwapRecept209
@@ -221,8 +227,8 @@
 	#dim BreedtePlanoNaSwapRecept220 As %Decimal = BasisDoos.Width + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
 	#dim DieptePlanoNaSwapRecept220 As %Decimal = (BasisDoos.RS * (1 - BasisDoos.RT)) + (BasisDoos.Height * (1 - BasisDoos.RT)) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.LS + (BasisDoos.Height * (1 - BasisDoos.LT)) + (BasisDoos.LS * (1 - BasisDoos.LT))
 	
-	#dim NodigeKartonBreedteVoorSwapRecept220 = $Select(BreedtePlanoVoorSwapRecept220 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept220, BasisDoos.LogoPrint), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept220 = $Select(BreedtePlanoNaSwapRecept220 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept220, BasisDoos.LogoPrint), 1: 9999999)
+	#dim NodigeKartonBreedteVoorSwapRecept220 = $Select(BreedtePlanoVoorSwapRecept220 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept220, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	#dim NodigeKartonBreedteNaSwapRecept220 = $Select(BreedtePlanoNaSwapRecept220 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept220, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
 	#dim OppTotaleKartonVoorSwapRecept220 As %Decimal = DieptePlanoVoorSwapRecept220 * NodigeKartonBreedteVoorSwapRecept220
 	#dim OppTotaleKartonNaSwapRecept220 As %Decimal = DieptePlanoNaSwapRecept220 * NodigeKartonBreedteNaSwapRecept220
@@ -237,8 +243,8 @@
 	#dim BreedtePlanoNaSwapRecept210 As %Decimal = (BasisDoos.LS * (1 - BasisDoos.LT)) + (BasisDoos.Height * (1 - BasisDoos.LT)) + BasisDoos.LS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + BasisDoos.CardBoardThickness + (BasisDoos.RT * BasisDoos.LS) + (BasisDoos.LT * BasisDoos.RS) + BasisDoos.RS + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.RS + (BasisDoos.Height * (1 - BasisDoos.RT)) + (BasisDoos.RS * (1 - BasisDoos.RT))
 	#dim DieptePlanoNaSwapRecept210 As %Decimal = BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Width + BasisDoos.CardBoardThickness + BasisDoos.Height + ( 2 * BasisDoos.CardBoardThickness) + BasisDoos.FS
 	
-	#dim NodigeKartonBreedteVoorSwapRecept210 = $Select(BreedtePlanoVoorSwapRecept210 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept210, BasisDoos.LogoPrint), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept210 = $Select(BreedtePlanoNaSwapRecept210 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept210, BasisDoos.LogoPrint), 1: 9999999)
+	#dim NodigeKartonBreedteVoorSwapRecept210 = $Select(BreedtePlanoVoorSwapRecept210 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept210, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	#dim NodigeKartonBreedteNaSwapRecept210 = $Select(BreedtePlanoNaSwapRecept210 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept210, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
 	#dim OppTotaleKartonVoorSwapRecept210 As %Decimal = DieptePlanoVoorSwapRecept210 * NodigeKartonBreedteVoorSwapRecept210
 	#dim OppTotaleKartonNaSwapRecept210 As %Decimal = DieptePlanoNaSwapRecept210 * NodigeKartonBreedteNaSwapRecept210
@@ -293,8 +299,8 @@
 	#dim BreedtePlanoNaSwapRecept207 As %Decimal = BasisDoos.Width + 10 + BasisDoos.Height +  BasisDoos.Width + 10 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Flap
 	#dim DieptePlanoNaSwapRecept207 As %Decimal = BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height
 	
-	#dim NodigeKartonBreedteVoorSwapRecept207 = $Select(BreedtePlanoVoorSwapRecept207 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept207, BasisDoos.LogoPrint), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept207 = $Select(BreedtePlanoNaSwapRecept207 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept207, BasisDoos.LogoPrint), 1: 9999999)
+	#dim NodigeKartonBreedteVoorSwapRecept207 = $Select(BreedtePlanoVoorSwapRecept207 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	#dim NodigeKartonBreedteNaSwapRecept207 = $Select(BreedtePlanoNaSwapRecept207 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept207, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
 	#dim OppTotaleKartonVoorSwapRecept207 As %Decimal = DieptePlanoVoorSwapRecept207 * NodigeKartonBreedteVoorSwapRecept207
 	#dim OppTotaleKartonNaSwapRecept207 As %Decimal = DieptePlanoNaSwapRecept207 * NodigeKartonBreedteNaSwapRecept207
@@ -309,8 +315,8 @@
 	#dim BreedtePlanoNaSwapRecept217 As %Decimal = BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.Depth + 20 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Height
 	#dim DieptePlanoNaSwapRecept217 As %Decimal =  BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.Width + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Flap
 	
-	#dim NodigeKartonBreedteVoorSwapRecept217 = $Select(BreedtePlanoVoorSwapRecept217 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept217, BasisDoos.LogoPrint), 1: 9999999)
-	#dim NodigeKartonBreedteNaSwapRecept217 = $Select(BreedtePlanoNaSwapRecept217 <= ..#AfmetingBreedsteKarton: ..btCardboardRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept217, BasisDoos.LogoPrint), 1: 9999999)
+	#dim NodigeKartonBreedteVoorSwapRecept217 = $Select(BreedtePlanoVoorSwapRecept217 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoVoorSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
+	#dim NodigeKartonBreedteNaSwapRecept217 = $Select(BreedtePlanoNaSwapRecept217 <= ..#AfmetingBreedsteKarton: ..KartonRepository.GeefKartonBreedte(BasisDoos.CardBoardThickness, BreedtePlanoNaSwapRecept217, BasisDoos.LogoPrint, ..MachineId), 1: 9999999)
 	
 	#dim OppTotaleKartonVoorSwapRecept217 As %Decimal = DieptePlanoVoorSwapRecept217 * NodigeKartonBreedteVoorSwapRecept217
 	#dim OppTotaleKartonNaSwapRecept217 As %Decimal = DieptePlanoNaSwapRecept217 * NodigeKartonBreedteNaSwapRecept217
Index: vhTest/Mock/APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r69601 -r70219
--- vhTest/Mock/APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 69601)
+++ vhTest/Mock/APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70219)
@@ -9,8 +9,8 @@
 <Inheritance>right</Inheritance>
 
 <Method name="Optimize">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Optimize",.BasisDoos,ProductGroep,MachineTechnologie)
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineId:APPS.Verpakking.enu.MachineID]]></FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Optimize",.BasisDoos,ProductGroep,MachineTechnologie,MachineId)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhDeploy/Deploy20221213OpvullenDataKarton.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20221213OpvullenDataKarton.cls.xml	(revision 0)
+++ vhDeploy/Deploy20221213OpvullenDataKarton.cls.xml	(revision 70219)
@@ -0,0 +1,234 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20221213OpvullenDataKarton">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Data persisteren voor karton per machine</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "BLANK BC 1400"
+	Set KartonData.LogoPrint = "BLANK"
+	Set KartonData.Dikte = 6.7
+	Set KartonData.Breedte = 1400.0
+	Set KartonData.Kost = 0.777
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "1649077"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "BLANK BC 2400"
+	Set KartonData.LogoPrint = "BLANK"
+	Set KartonData.Dikte = 6.7
+	Set KartonData.Breedte = 2400.0
+	Set KartonData.Kost = 1.332
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "360515"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "ORGALUX OUTER BC 1400"
+	Set KartonData.LogoPrint = "ORGALUX OUTER"
+	Set KartonData.Dikte = 6.7
+	Set KartonData.Breedte = 1400.0
+	Set KartonData.Kost = 0.777
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353741"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "ORGALUX OUTER BC 2400"
+	Set KartonData.LogoPrint = "ORGALUX OUTER"
+	Set KartonData.Dikte = 6.7
+	Set KartonData.Breedte = 2400.0
+	Set KartonData.Kost = 1.332
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353742"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "ORGALUX WHITE EB 1400"
+	Set KartonData.LogoPrint = "ORGALUX WHITE"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 1400.0
+	Set KartonData.Kost = 1.092
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "1649077"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "ORGALUX WHITE EB 2000"
+	Set KartonData.LogoPrint = "ORGALUX WHITE"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 2000.0
+	Set KartonData.Kost = 1.092
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "1649078"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "ORGALUX WHITE EB 620"
+	Set KartonData.LogoPrint = "ORGALUX WHITE"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 620.0
+	Set KartonData.Kost = 0.338
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "1649080"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "ORGALUX WHITE EB 840"
+	Set KartonData.LogoPrint = "ORGALUX WHITE"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 840.0
+	Set KartonData.Kost = 0.458
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "1649081"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX OUTER BC 2400"
+	Set KartonData.LogoPrint = "TBX OUTER"
+	Set KartonData.Dikte = 6.7
+	Set KartonData.Breedte = 2400.0
+	Set KartonData.Kost = 1.332
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353746"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 1430"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 1430.0
+	Set KartonData.Kost = 0.7436
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353743"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).HALUX()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 1650"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 1650.0
+	Set KartonData.Kost = 0.858
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353744"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).HALUX()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 2400"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 2400.0
+	Set KartonData.Kost = 1.248
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353745"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).HALUX()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 950"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 950.0
+	Set KartonData.Kost = 0.7436
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "360508"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).HALUX()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 1430"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 1430.0
+	Set KartonData.Kost = 0.7436
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353743"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).TAOR()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 1650"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 1650.0
+	Set KartonData.Kost = 0.858
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353744"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).TAOR()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 2400"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 2400.0
+	Set KartonData.Kost = 1.248
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "353745"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).TAOR()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 950"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 4.2
+	Set KartonData.Breedte = 950.0
+	Set KartonData.Kost = 0.7436
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "360508"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).TAOR()
+	
+	Do KartonData.%Save()
+	
+	Set KartonData = ##class(APPS.Verpakking.Data.Karton).%New()
+	Set KartonData.CardboardID = "TBX DRAWER EB 1430"
+	Set KartonData.LogoPrint = "TBX DRAWER"
+	Set KartonData.Dikte = 3
+	Set KartonData.Breedte = 1430.0
+	Set KartonData.Kost = 0.7436
+	Set KartonData.Actief = 1
+	Set KartonData.ProductId = "?"
+	Set KartonData.MachineId = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()
+	
+	Do KartonData.%Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/Doos.cls.xml
===================================================================
diff -u -r70204 -r70219
--- APPS/Verpakking/Doos.cls.xml	(.../Doos.cls.xml)	(revision 70204)
+++ APPS/Verpakking/Doos.cls.xml	(.../Doos.cls.xml)	(revision 70219)
@@ -10,6 +10,7 @@
 <Property name="BoxSelect">
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="BOXSELECT"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
 <Property name="CardBoardID">
@@ -54,11 +55,6 @@
 <Parameter name="XMLPROJECTION" value="COLLECTION"/>
 </Property>
 
-<Property name="Priority">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="PRIORITY"/>
-</Property>
-
 <Property name="Recipe">
 <Type>%Integer</Type>
 <Parameter name="XMLNAME" value="RECIPE"/>
Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r70204 -r70219
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70204)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70219)
@@ -9,7 +9,7 @@
 </Property>
 
 <Method name="VulAanBasisInformatieDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,Prioriteit:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
 	Set ..MachineTechnologie = MachineTechnologie
 	Set ListOfPackageDesignItems = ##class(%ListOfDataTypes).%New()
@@ -46,18 +46,6 @@
 	Set BasisDoos.Height = ##class(TECH.Math).Round(BasisDoos.Height,0)
 	Set BasisDoos.Width = ##class(TECH.Math).Round(BasisDoos.Width,0)
 	
-	If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
-		If (Prioriteit = "-1") {
-			Set BasisDoos.Priority = "Simulation"
-		} ElseIf (Prioriteit <= 7) {
-			Set BasisDoos.Priority = 8				//Niet dringend
-		} Else {
-			Set BasisDoos.Priority = 10				//Dringend
-		}
-	} Else {
-		Set BasisDoos.Priority = Prioriteit
-	}
-	
 	Quit BasisDoos
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r69601 -r70219
--- vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69601)
+++ vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70219)
@@ -9,8 +9,8 @@
 <Inheritance>right</Inheritance>
 
 <Method name="VulAanBasisInformatieDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,Prioriteit:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String=""]]></FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VulAanBasisInformatieDoos",.BasisDoos,.Params,ProductGroep,Prioriteit,MachineTechnologie,BoxDataID)
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String=""]]></FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VulAanBasisInformatieDoos",.BasisDoos,.Params,ProductGroep,MachineTechnologie,BoxDataID)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml
===================================================================
diff -u -r69601 -r70219
--- vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 69601)
+++ vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 70219)
@@ -16,7 +16,7 @@
 	#dim Aantal As %Decimal = 1
 	Kill Params
 	Set PRNr = "3098795"
-	Set Prioriteit = "-1"
+	Set Prioriteit = "8"
 	Set ProductGroep = "TBX"
 	Set ReceptNaam = "V1 Boxkap doos"
 	Set MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()
@@ -36,8 +36,8 @@
 	Set DummyRequest.Box = DummyDoos
 	
 	Do DoosFactoryMock.VerwachtMethodCall("MaakDoos", ProductGroep, ReceptNaam).DanReturn(DummyDoos).ExactAantalKeer(1)
-	Do DoosAanvullerMock.VerwachtMethodCall("VulAanBasisInformatieDoos", DummyDoos, .Params, ProductGroep, Prioriteit, MachineTechnologie, "").DanDoeNiks().ExactAantalKeer(1)
-	Do OptimizerMock.VerwachtMethodCall("Optimize", DummyDoos, ProductGroep, MachineTechnologie).DanReturn(DummyDoos).ExactAantalKeer(1)
+	Do DoosAanvullerMock.VerwachtMethodCall("VulAanBasisInformatieDoos", DummyDoos, .Params, ProductGroep, MachineTechnologie, "").DanDoeNiks().ExactAantalKeer(1)
+	Do OptimizerMock.VerwachtMethodCall("Optimize", DummyDoos, ProductGroep, MachineTechnologie, MachineID).DanReturn(DummyDoos).ExactAantalKeer(1)
 	Do SnijRequestMakerMock.VerwachtMethodCall("MaakSnijRequest", DummyDoos, MachineTechnologie, MachineID, Prioriteit, Aantal, BaseRef).DanReturn(DummyRequest).ExactAantalKeer(1)
 	Do SnijDoosServiceMock.VerwachtMethodCall("SnijDoos", DummyRequest).DanDoeNiks().ExactAantalKeer(1)
 	Do ProductApiMock.VerwachtMethodCall("GeefProduct", PRNr).DanDoeNiks().ExactAantalKeer(0)