Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r71574 -r72242
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 71574)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 72242)
@@ -123,7 +123,7 @@
 					#dim RequestXml as %String
 					Do SnijRequest.XMLExportToString(.RequestXml)
 					
-					Set ^LogKartonOpdrachten2(ProductId, "VH Doos", $Increment(^LogKartonOpdrachten2)) = RequestXml
+					//Set ^LogKartonOpdrachten2(ProductId, "VH Doos", $Increment(^LogKartonOpdrachten2)) = RequestXml
 				}
 			}
 		}
@@ -191,7 +191,7 @@
 </Method>
 
 <Method name="MaakSnijDef">
-<FormalSpec>Doos:APPS.Verpakking.dto.Doos,MachineID:APPS.Verpakking.enu.MachineID</FormalSpec>
+<FormalSpec>Doos:APPS.Verpakking.dto.Doos</FormalSpec>
 <Private>1</Private>
 <ReturnType>DS.Prod.OptiBox.sub.emSnijDef</ReturnType>
 <Implementation><![CDATA[
@@ -373,7 +373,7 @@
 	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
 	Set OptiData = ..MaakOptiData(Doos, BaseRef, Aantal, Product, MachineID, Prioriteit)
 	Set SnijData = ..MaakSnijData(Doos, BaseRef, OptiData, Product, MachineID, Prioriteit, IsHerberekenVerpakkingInAdmin)
-	Set SnijDef = ..MaakSnijDef(Doos, SnijData)
+	Set SnijDef = ..MaakSnijDef(Doos)
 	Do SnijData.SnijDefs.SetAt(SnijDef, MachineID)	
 	#dim SaveStatus As %Status = SnijData.%Save()
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData in MaakEnUpdateDataVoorSnijOpdracht is niet gelukt.")
Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r72160 -r72242
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 72160)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 72242)
@@ -9,7 +9,7 @@
 </Property>
 
 <Method name="VulAanBasisInformatieDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String="",MachineId:APPS.Verpakking.enu.MachineID,ProductId:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String="",MachineId:APPS.Verpakking.enu.MachineID,ProductId:%String="",BoxData:DS.Prod.OptiBox.BoxData=""]]></FormalSpec>
 <Implementation><![CDATA[
 	Set ..MachineTechnologie = MachineTechnologie
 	Set ListOfPackageDesignItems = ##class(%ListOfDataTypes).%New()
@@ -23,31 +23,31 @@
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1LosseOnderdelen")) {
 		Do ..VulAanV1LosseOnderdelen(.BasisDoos, .Params, ProductGroep)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.VouwErrondDoos")) {
-		Do ..VulAanVouwErrondDoos(.BasisDoos, .Params, ProductGroep, BoxDataID, MachineId)
+		Do ..VulAanVouwErrondDoos(.BasisDoos, .Params, ProductGroep, BoxDataID, BoxData, MachineId)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1DoosMetDeksel")) {
 		Do ..VulAanV1DoosMetDeksel(.BasisDoos, .Params, ProductGroep)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.V1Flatpack")) {
 		Do ..VulAanV1Flatpack(.BasisDoos, .Params)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.ComplexeScheiding")) {
-		Do ..VulAanComplexeScheiding(.BasisDoos, .Params, ProductGroep, BoxDataID)
+		Do ..VulAanComplexeScheiding(.BasisDoos, .Params, ProductGroep, BoxDataID, BoxData)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.Vulstuk")) {
-		Do ..VulAanVulstuk(.BasisDoos, BoxDataID)
+		Do ..VulAanVulstuk(.BasisDoos, BoxDataID, BoxData)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.VulstukKlein")) {
-		Do ..VulAanVulstukKlein(.BasisDoos, BoxDataID)
+		Do ..VulAanVulstukKlein(.BasisDoos, BoxDataID, BoxData)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.VouwErrondDoosBuffer")) {
-		Do ..VulAanVouwErrondDoosBuffer(.BasisDoos, BoxDataID)
+		Do ..VulAanVouwErrondDoosBuffer(.BasisDoos, BoxDataID, BoxData)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.ZelfstaandMetDeksel")) {
-		Do ..VulAanZelfstaandMetDeksel(.BasisDoos, BoxDataID)
+		Do ..VulAanZelfstaandMetDeksel(.BasisDoos, BoxDataID, BoxData)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.dto.Overdoos")) {
-		Do ..VulAanOverdoos(.BasisDoos, BoxDataID)
+		Do ..VulAanOverdoos(.BasisDoos, BoxDataID, BoxData)
 	}
 	
 	Set BasisDoos.Depth = ##class(TECH.Math).Round(BasisDoos.Depth,0)
 	Set BasisDoos.Height = ##class(TECH.Math).Round(BasisDoos.Height,0)
 	Set BasisDoos.Width = ##class(TECH.Math).Round(BasisDoos.Width,0)
 	
-	//XS karton is voorlopig enkel voor kartonverpakkingen voor lades
-	If (..HeeftXSKartonVoorLades(ProductId)) {
+	//XS karton is voorlopig enkel voor kartonverpakkingen voor lades - OL producten crashen nog op het feit dat zij geen ingegevenkenmerken hebben, daarom de conditie machine <> 'VH'
+	If ($$$Not(MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()) && (..HeeftXSKartonVoorLades(ProductId))) {
 		Set BasisDoos.LogoPrint = "XS"
 	}
 	
@@ -61,6 +61,14 @@
 		Set BasisDoos.LogoPrint = "TBX DRAWER"
 	}
 	
+	If (MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()) {
+		If (BasisDoos.LogoPrint = "ORGALUX WHITE") {
+			Set BasisDoos.CardBoardThickness = 4.2
+		} Else {
+			Set BasisDoos.CardBoardThickness = 6.7
+		}
+	}
+	
 	Quit BasisDoos
 ]]></Implementation>
 </Method>
@@ -94,7 +102,7 @@
 </Method>
 
 <Method name="VulAanVouwErrondDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoos,&Params:%String,ProductGroep:%String,BoxDataID:%String,MachineId:APPS.Verpakking.enu.MachineID]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoos,&Params:%String,ProductGroep:%String,BoxDataID:%String,BoxData:DS.Prod.OptiBox.BoxData,MachineId:APPS.Verpakking.enu.MachineID=""]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (ProductGroep = "KAD") {
@@ -140,20 +148,24 @@
 		
 		Set BasisDoos.LogoPrint = "ORGALUX WHITE"
 		
-		If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
-			Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-		} Else {
-			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+		If (BoxData = "") {
+			If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+				Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+			} Else {
+				#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+			}
 		}
 		
-		Set BasisDoos.Depth = BoxData.DiepteExec
-		Set BasisDoos.Height = BoxData.HoogteExec
-		Set BasisDoos.Width = BoxData.BreedteExec
+		Set BasisDoos.Depth = BoxData.Diepte
+		Set BasisDoos.Height = BoxData.Hoogte
+		Set BasisDoos.Width = BoxData.Breedte
 		
 		#dim ParamKey As %String
 		For ParamKey = "K1","K2" {
 			If (BoxData.Params.IsDefined(ParamKey)) {
-				Set $property(BasisDoos, ParamKey) = BoxData.Params.GetAt(ParamKey).WaardeExec
+				If $$$Not(BoxData.Params.GetAt(ParamKey).Waarde = "") {
+					Set $property(BasisDoos, ParamKey) = BoxData.Params.GetAt(ParamKey).Waarde
+				}
 			}
 		}
 		
@@ -269,7 +281,7 @@
 </Method>
 
 <Method name="VulAanComplexeScheiding">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.ComplexeScheiding,&Params:%String,ProductGroep:%String,BoxDataID:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.ComplexeScheiding,&Params:%String,ProductGroep:%String,BoxDataID:%String,BoxData:DS.Prod.OptiBox.BoxData]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (ProductGroep = "TBX") {
@@ -287,20 +299,24 @@
 		Set BasisDoos.BoxSelect = "OL COMPLEX SEPARATOR"		//Meta 483 PRNr 881438
 		Set BasisDoos.LogoPrint = "ORGALUX WHITE"
 		
-		If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
-			Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-		} Else {
-			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+		If (BoxData = "") {
+			If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+				Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+			} Else {
+				#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+			}
 		}
 		
-		Set BasisDoos.Depth = BoxData.DiepteExec
-		Set BasisDoos.Height = BoxData.HoogteExec
-		Set BasisDoos.Width = BoxData.BreedteExec
+		Set BasisDoos.Depth = BoxData.Diepte
+		Set BasisDoos.Height = BoxData.Hoogte
+		Set BasisDoos.Width = BoxData.Breedte
 		
 		#dim Param As %String
 		For Param = "Fold3","Fold4","Fold5","NBR" {
 			If (BoxData.Params.IsDefined(Param)) {
-				Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).WaardeExec
+				If $$$Not(BoxData.Params.GetAt(Param).Waarde = "") {
+					Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).Waarde
+				}
 			}
 		}
 	}
@@ -320,73 +336,83 @@
 </Method>
 
 <Method name="VulAanVulstuk">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Vulstuk,BoxDataID:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Vulstuk,BoxDataID:%String,BoxData:DS.Prod.OptiBox.BoxData]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	//PRNr 924453
 	//Meta 466
 	Set BasisDoos.BoxSelect = "OL FILLER"
 	
-	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
-		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-	} Else {
-		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+	If (BoxData = "") {
+		If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+			Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+		} Else {
+			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+		}
 	}
 	
-	Set BasisDoos.Depth = BoxData.DiepteExec
-	Set BasisDoos.Height = BoxData.HoogteExec
-	Set BasisDoos.Width = BoxData.BreedteExec
+	Set BasisDoos.Depth = BoxData.Diepte
+	Set BasisDoos.Height = BoxData.Hoogte
+	Set BasisDoos.Width = BoxData.Breedte
 	
 	If (BoxData.Params.IsDefined("QO")) {
-		Set $property(BasisDoos, "QO") = BoxData.Params.GetAt("QO").WaardeExec
+		If $$$Not(BoxData.Params.GetAt("QO").Waarde = "") {
+			Set $property(BasisDoos, "QO") = BoxData.Params.GetAt("QO").Waarde
+		}
 	}
 	
 	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "QO"), BasisDoos.QO))
 ]]></Implementation>
 </Method>
 
 <Method name="VulAanVulstukKlein">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VulstukKlein,BoxDataID:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VulstukKlein,BoxDataID:%String,BoxData:DS.Prod.OptiBox.BoxData]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	//PRNr niet terug te vinden
 	//Meta 486
 	Set BasisDoos.BoxSelect = "OL FILLER SMALL"
 	
-	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
-		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-	} Else {
-		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+	If (BoxData = "") {
+		If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+			Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+		} Else {
+			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+		}
 	}
 	
-	Set BasisDoos.Depth = BoxData.DiepteExec
-	Set BasisDoos.Height = BoxData.HoogteExec
-	Set BasisDoos.Width = BoxData.BreedteExec
+	Set BasisDoos.Depth = BoxData.Diepte
+	Set BasisDoos.Height = BoxData.Hoogte
+	Set BasisDoos.Width = BoxData.Breedte
 ]]></Implementation>
 </Method>
 
 <Method name="VulAanVouwErrondDoosBuffer">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoosBuffer,BoxDataID:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.VouwErrondDoosBuffer,BoxDataID:%String,BoxData:DS.Prod.OptiBox.BoxData]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	//PRNr 794298 = recipe 220     PRNR 1772496 = recipe 210
 	//Meta 485
 	Set BasisDoos.BoxSelect = "OL WRAPAROUND BUFFER"
 	
-	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
-		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-	} Else {
-		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+	If (BoxData = "") {
+		If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+			Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+		} Else {
+			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+		}
 	}
 	
-	Set BasisDoos.Depth = BoxData.DiepteExec
-	Set BasisDoos.Height = BoxData.HoogteExec
-	Set BasisDoos.Width = BoxData.BreedteExec
+	Set BasisDoos.Depth = BoxData.Diepte
+	Set BasisDoos.Height = BoxData.Hoogte
+	Set BasisDoos.Width = BoxData.Breedte
 	
 	#dim Param As %String
 	For Param = "FS","LS","LT","RS","RT" {
 		If (BoxData.Params.IsDefined(Param)) {
-			Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).WaardeExec
+			If $$$Not(BoxData.Params.GetAt(Param).Waarde = "") {
+				Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).Waarde
+			}
 		}
 	}
 	
@@ -399,49 +425,55 @@
 </Method>
 
 <Method name="VulAanZelfstaandMetDeksel">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.ZelfstaandMetDeksel,BoxDataID:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.ZelfstaandMetDeksel,BoxDataID:%String,BoxData:DS.Prod.OptiBox.BoxData]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	//PRNr 1275155 = recipe 217 - PRNr 1251044 recipe 207 
 	//Meta 484
 	Set BasisDoos.BoxSelect = "OL SELFSTANDING"
 	
-	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
-		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-	} Else {
-		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+	If (BoxData = "") {
+		If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+			Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+		} Else {
+			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+		}
 	}
 	
-	Set BasisDoos.Depth = BoxData.DiepteExec
-	Set BasisDoos.Height = BoxData.HoogteExec
-	Set BasisDoos.Width = BoxData.BreedteExec
+	Set BasisDoos.Depth = BoxData.Diepte
+	Set BasisDoos.Height = BoxData.Hoogte
+	Set BasisDoos.Width = BoxData.Breedte
 	
 	If (BoxData.Params.IsDefined("Flap")) {
-		Set $property(BasisDoos, "Flap") = BoxData.Params.GetAt("Flap").WaardeExec
+		If $$$Not(BoxData.Params.GetAt("Flap").Waarde = "") {
+			Set $property(BasisDoos, "Flap") = BoxData.Params.GetAt("Flap").Waarde
+		}
 	}
 	
 	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "Flap"), BasisDoos.Flap))
 ]]></Implementation>
 </Method>
 
 <Method name="VulAanOverdoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Overdoos,BoxDataID:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Overdoos,BoxDataID:%String,BoxData:DS.Prod.OptiBox.BoxData]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	//Meta 464	
 	Set BasisDoos.BoxSelect = "OL OUTER"
 	
-	If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
-		Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-	} Else {
-		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+	If (BoxData = "") {
+		If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) {
+			Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+		} Else {
+			#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.")
+		}
 	}
 	
 	//in boxdata zit niets ivm overdoos, dat zit in de snijdata.. Snijdata op te halen adhv ObjRef = bonnr?
 	Do BasisDoos.PackageDesignItems.Insert("Item2")
-	Set BasisDoos.Depth = BoxData.DiepteExec
-	Set BasisDoos.Height = BoxData.HoogteExec
-	Set BasisDoos.Width = BoxData.BreedteExec
+	Set BasisDoos.Depth = BoxData.Diepte
+	Set BasisDoos.Height = BoxData.Hoogte
+	Set BasisDoos.Width = BoxData.Breedte
 	
 	If (BasisDoos.Height > 330) {
 		Set BasisDoos.AG = 1
@@ -450,7 +482,9 @@
 	#dim Param As %String
 	For Param = "M","HL","AG" {
 		If (BoxData.Params.IsDefined(Param)) {
-			Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).WaardeExec
+			If $$$Not(BoxData.Params.GetAt(Param).Waarde = "") {
+				Set $property(BasisDoos, Param) = BoxData.Params.GetAt(Param).Waarde
+			}
 		}
 	}
 	
Index: APPS/Verpakking/dto/Overdoos.cls.xml
===================================================================
diff -u -r70302 -r72242
--- APPS/Verpakking/dto/Overdoos.cls.xml	(.../Overdoos.cls.xml)	(revision 70302)
+++ APPS/Verpakking/dto/Overdoos.cls.xml	(.../Overdoos.cls.xml)	(revision 72242)
@@ -15,6 +15,7 @@
 
 <Property name="Recipe">
 <Type>%Integer</Type>
+<InitialExpression>35</InitialExpression>
 <Parameter name="XMLNAME" value="RECIPE"/>
 </Property>
 
Index: APPS/Verpakking/KartonRepository.cls.xml
===================================================================
diff -u -r72021 -r72242
--- APPS/Verpakking/KartonRepository.cls.xml	(.../KartonRepository.cls.xml)	(revision 72021)
+++ APPS/Verpakking/KartonRepository.cls.xml	(.../KartonRepository.cls.xml)	(revision 72242)
@@ -8,11 +8,18 @@
 <Default>APPS.Verpakking.Data.Karton</Default>
 </Parameter>
 
+<Method name="GeefBreedsteKarton">
+<FormalSpec>Dikte:%Decimal,LogoPrint:%String,MachineId:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVeldViaFilter("Breedte", "Dikte = ? AND LogoPrint = ? AND MachineId = ? AND Actief = ? ORDER BY BREEDTE DESC", $LB(Dikte, LogoPrint, MachineId, $$$True))
+]]></Implementation>
+</Method>
+
 <Method name="GeefKartonBreedte">
 <Description>
 Deze method geeft de kartonbreedte terug van het eerste resultaat dat hij vindt. Het resultaat zou altijd maar 1 karton mogen opleveren, anders is de data niet uniek en niet bruikbaar</Description>
 <FormalSpec>Dikte:%Decimal,Breedte:%Decimal,LogoPrint:%String,MachineId:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefVeldViaFilter("Breedte", "Dikte = ? AND Breedte >= ? AND LogoPrint = ? AND MachineId = ? AND Actief = ? ORDER BY BREEDTE ASC", $LB(Dikte, Breedte, LogoPrint, MachineId, $$$True))
 ]]></Implementation>
 </Method>
Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r71202 -r72242
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 71202)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 72242)
@@ -3,15 +3,15 @@
 <Class name="APPS.Verpakking.Optimizer">
 <Super>TECH.Mockable</Super>
 
-<Parameter name="AfmetingBreedsteKarton">
+<Property name="AfmetingBreedsteKarton">
 <Description><![CDATA[
 Swap parameters zijn te vinden op het doos object
 Swap = 0 -> Geen swap
 Swap = 1 -> Breedte en diepte worden sowieso geswapt
 Swap = 2 -> Conditionele swap: enkel swappen indien de plano te breed is voor het breedste karton
 Sommige recepten hebben zowel swap 0 als 1 beschikbaar, in deze situatie moet worden gekekend welk recept het minste karton verbruikt]]></Description>
-<Default>2400</Default>
-</Parameter>
+<Type>%Integer</Type>
+</Property>
 
 <Property name="BasisDoos">
 <Type>APPS.Verpakking.dto.Doos</Type>
@@ -42,6 +42,7 @@
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.Doos,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineId:APPS.Verpakking.enu.MachineID]]></FormalSpec>
 <Implementation><![CDATA[
 	Set ..KartonRepository = ##class(APPS.Verpakking.KartonRepository).%New()
+	Set ..AfmetingBreedsteKarton = ..KartonRepository.GeefBreedsteKarton(BasisDoos.CardBoardThickness, BasisDoos.LogoPrint, MachineId)
 	Set ..MachineId = MachineId
 		
 	If (BasisDoos.%Extends("APPS.Verpakking.dto.V1HogeRug")) {
@@ -144,7 +145,7 @@
 		#dim BreedtePlanoRecept As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
 		#dim DieptePlanoRecept As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		
-		If (BreedtePlanoRecept > ..#AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
+		If (BreedtePlanoRecept > ..AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
 			Set BreedtePlanoRecept =  BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + BasisDoos.CardBoardThickness
 			Set DieptePlanoRecept = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 			Set BasisDoos.Swap = 1
@@ -153,14 +154,14 @@
 		#dim BreedtePlanoAltRecept As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 		#dim DieptePlanoAltRecept As %Decimal = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 		
-		If (BreedtePlanoAltRecept > ..#AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
+		If (BreedtePlanoAltRecept > ..AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
 			Set BreedtePlanoAltRecept =  BasisDoos.Depth + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Depth + 10 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K2
 			Set DieptePlanoAltRecept = BasisDoos.K1 + BasisDoos.CardBoardThickness + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.Width + 5 + BasisDoos.Height + BasisDoos.CardBoardThickness + BasisDoos.K1 + + BasisDoos.CardBoardThickness
 			Set BasisDoos.AltSwap = 1
 		}
 		Do ##class(vhLib.Logger).%New("GeefDoos").Info("KAD parameters", BreedtePlanoRecept _ " " _DieptePlanoRecept _ " " _BreedtePlanoAltRecept _ " " _DieptePlanoAltRecept_ " " _ BasisDoos.LogoPrint _ " " _ BasisDoos.CardBoardThickness)
-		#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 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
@@ -188,8 +189,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: ..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 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
@@ -204,8 +205,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: ..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 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
@@ -270,8 +271,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: ..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 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
@@ -286,8 +287,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: ..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 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
@@ -350,8 +351,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: ..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 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
@@ -366,8 +367,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: ..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 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
@@ -455,7 +456,7 @@
 		#dim BreedtePlanoRecept As %Decimal = BasisDoos.Height + BasisDoos.Depth + 35 + BasisDoos.Height
 		#dim DieptePlanoRecept As %Decimal = (BasisDoos.Height * (1-BasisDoos.AG)) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Width + 75 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (BasisDoos.Height * (1-BasisDoos.AG))
 		
-		If (BreedtePlanoRecept > ..#AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
+		If (BreedtePlanoRecept > ..AfmetingBreedsteKarton) { //Breedte grootste karton, als het te breed is wordt er geswapt -> Definitie van swap = 2
 			Set BreedtePlanoRecept =  BasisDoos.Height + BasisDoos.Width + 35 + BasisDoos.Height
 			Set DieptePlanoRecept = (BasisDoos.Height * (1-BasisDoos.AG)) + (2 * BasisDoos.CardBoardThickness) + BasisDoos.Height + BasisDoos.Depth + 75 + BasisDoos.Height + (2 * BasisDoos.CardBoardThickness) + (BasisDoos.Height * (1-BasisDoos.AG))
 			Set BasisDoos.Swap = 1