Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r70302 -r70303
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70302)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70303)
@@ -81,15 +81,8 @@
 		Set BasisDoos.Swap = 2
 		Set BasisDoos.AltSwap = 2
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1")
-		Set Param.Value = BasisDoos.K1
-		Do BasisDoos.Params.Insert(Param)
-		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
-		Set Param.Value = BasisDoos.K2
-		Do BasisDoos.Params.Insert(Param)
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1"), BasisDoos.K1))
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2"), BasisDoos.K2))
 				
 	} ElseIf (ProductGroep = "TAORBOX") {
 		Set BasisDoos.BoxSelect = "TAORBOX WRAPAROUND" 			//Meta 509
@@ -98,16 +91,9 @@
 		Set BasisDoos.Height = Params("HOOGTE")
 		Set BasisDoos.Width = Params("BREEDTE")
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1")
-		Set Param.Value = BasisDoos.K1
-		Do BasisDoos.Params.Insert(Param)
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1"), BasisDoos.K1))
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2"), BasisDoos.K2))
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
-		Set Param.Value = BasisDoos.K2
-		Do BasisDoos.Params.Insert(Param)
-		
 	} ElseIf ((ProductGroep = "OL") || (ProductGroep = "PR")) { //|| (ProductGroep = "TAOR INDELINGEN")
 		If ((ProductGroep = "OL") || (ProductGroep = "PR"))  { 
 			Set BasisDoos.BoxSelect = "OL WRAPAROUND"				//Meta 469 PRNr 924574
@@ -134,16 +120,9 @@
 			}
 		}
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1")
-		Set Param.Value = BasisDoos.K1
-		Do BasisDoos.Params.Insert(Param)
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1"), BasisDoos.K1))
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2"), BasisDoos.K2))
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
-		Set Param.Value = BasisDoos.K2
-		Do BasisDoos.Params.Insert(Param)
-		
 	} ElseIf (ProductGroep = "TBX") {
 		Set BasisDoos.BoxSelect = "TBX WRAPAROUND"				//Meta 498
 		Set BasisDoos.LogoPrint = "TBX DRAWER"
@@ -153,15 +132,8 @@
 		Set BasisDoos.K1 = 60
 		Set BasisDoos.K2 = 110
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1")
-		Set Param.Value = BasisDoos.K1
-		Do BasisDoos.Params.Insert(Param)
-		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
-		Set Param.Value = BasisDoos.K2
-		Do BasisDoos.Params.Insert(Param)
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1"), BasisDoos.K1))
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2"), BasisDoos.K2))
 	}
 ]]></Implementation>
 </Method>
@@ -170,45 +142,25 @@
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.dto.V1LosseOnderdelen,&Params:%String,ProductGroep:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	/*
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = "Q"
-	Set Param.Value = 1
-	Do BasisDoos.Params.Insert(Param)
-	*/
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1"), BasisDoos.K1))
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2"), BasisDoos.K2))
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1")
-	Set Param.Value = BasisDoos.K1
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
-	Set Param.Value = BasisDoos.K2
-	Do BasisDoos.Params.Insert(Param)
-	
 	If (ProductGroep = "TBX") {
 		Set BasisDoos.BoxSelect = "TBX V1 LOOSE COMP"		//Meta 456
 		Set BasisDoos.Depth = Params("LODIEPTE")
 		Set BasisDoos.Height = Params("LOHOOGTE")
 		Set BasisDoos.Width = Params("LOBREEDTE")
 		Set BasisDoos.T = $Select($D(Params("LOCP")): Params("LOCP"), 1: BasisDoos.T)
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "T")
-		Set Param.Value = BasisDoos.T
-		Do BasisDoos.Params.Insert(Param)
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "T"), BasisDoos.T))
 	} ElseIf (ProductGroep = "TAORBOX") {
 		Set BasisDoos.BoxSelect = "TAORBOX V1 LOOSE COMP"	//Meta 505
 		Set BasisDoos.Depth = Params("DIEPTE")
 		Set BasisDoos.Height = Params("HOOGTE")
 		Set BasisDoos.Width = Params("BREEDTE")
 		Set BasisDoos.T = $Select($D(Params("BREEDTECP")): Params("BREEDTECP"), 1: BasisDoos.T)
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "T")
-		Set Param.Value = BasisDoos.T
-		Do BasisDoos.Params.Insert(Param)
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "T"), BasisDoos.T))
 	}
 ]]></Implementation>
 </Method>
@@ -226,20 +178,9 @@
 	Set BasisDoos.H2 = $Select($D(Params("RUGHOOGTE")): (Params("RUGHOOGTE") + 12.6), 1:BasisDoos.H2) // +12.6 gebeurt in de optimizer, is niet terug te vinden in cache ergens
 	Set BasisDoos.OverhangSize = Params("RUGHOOGTE") - Params("ZIJHOOGTE")
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "H2")
-	Set Param.Value = BasisDoos.H2
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "T")
-	Set Param.Value = BasisDoos.T
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "K")
-	Set Param.Value = BasisDoos.K
-	Do BasisDoos.Params.Insert(Param)
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "H2"), BasisDoos.H2))
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "T"), BasisDoos.T))
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "K"), BasisDoos.K))
 ]]></Implementation>
 </Method>
 
@@ -253,10 +194,7 @@
 	Set BasisDoos.Height = Params("ZIJHOOGTE")
 	Set BasisDoos.Width = Params("BREEDTE")
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K")
-	Set Param.Value = BasisDoos.K
-	Do BasisDoos.Params.Insert(Param)
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K"), BasisDoos.K))
 ]]></Implementation>
 </Method>
 
@@ -270,10 +208,7 @@
 		Set BasisDoos.Height = Params("HOOGTE")
 		Set BasisDoos.Width = Params("BREEDTE")
 		
-		Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K")
-		Set Param.Value = BasisDoos.K
-		Do BasisDoos.Params.Insert(Param)
+		Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K"), BasisDoos.K))
 	}
 ]]></Implementation>
 </Method>
@@ -290,20 +225,9 @@
 	Set BasisDoos.K2 = $Select($D(Params("K2")): Params("K2"), 1: BasisDoos.K2)
 	Set BasisDoos.K3 =  $Select($D(Params("K3")): Params("K3"), 1: BasisDoos.K3)	
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1")		//Flap rechts deel 1
-	Set Param.Value = BasisDoos.K1
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")		//Flap rechts deel 2
-	Set Param.Value = BasisDoos.K2
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "K3")		//Flap links
-	Set Param.Value = BasisDoos.K3
-	Do BasisDoos.Params.Insert(Param)
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K1"), BasisDoos.K1)) //Flap rechts deel 1
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2"), BasisDoos.K2)) //Flap rechts deel 2
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "K3"), BasisDoos.K3)) //Flap links, ))
 ]]></Implementation>
 </Method>
 
@@ -344,50 +268,17 @@
 		}
 	}
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "Fold3") 				//Fold3 Afstand van tweede vouw tot derde vouw, indien nul dan afsnijden
-	Set Param.Value = BasisDoos.Fold3
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold4
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "Fold4")					//Fold4 Afstand van derde vouw tot vierde vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold5
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"4", 1: "Fold5")					//Fold5 Afstand van vierde vouw tot vijfde vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold6
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"5", 1: "Fold6")					//Fold6 Afstand van vijfde vouw tot zesde vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold7
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"6", 1: "Fold7")					//Fold7 Afstand van zesde vouw tot zevende vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold8
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"7", 1: "Fold8")					//Fold8 Afstand van zevende vouw tot achtste vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold9
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"8", 1: "Fold9")					//Fold9 Afstand van achtste vouw tot negende vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold10
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"9", 1: "Fold10")					//Fold10 Afstand van negende vouw tot tiende vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold11
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"10", 1: "Fold11")				//Fold11 Afstand van tiende vouw tot elfde vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Value = BasisDoos.Fold12
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"11", 1: "Fold12")				//Fold12 Afstand van elfde vouw tot twaalfde vouw, indien nul dan afsnijden
-	Do BasisDoos.Params.Insert(Param)
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "NBR")					//NBR Aantal scheidingen naast elkaar
-	Set Param.Value = BasisDoos.NBR
-	Do BasisDoos.Params.Insert(Param)
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "Fold3"), BasisDoos.Fold3)) //Fold3 Afstand van tweede vouw tot derde vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "Fold4"), BasisDoos.Fold4)) //Fold4 Afstand van derde vouw tot vierde vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"4", 1: "Fold5"),  BasisDoos.Fold5)) //Fold5 Afstand van vierde vouw tot vijfde vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"5", 1: "Fold6"), BasisDoos.Fold6)) //Fold6 Afstand van vijfde vouw tot zesde vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"6", 1: "Fold7"), BasisDoos.Fold7)) //Fold7 Afstand van zesde vouw tot zevende vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"7", 1: "Fold8"), BasisDoos.Fold8)) //Fold8 Afstand van zevende vouw tot achtste vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"8", 1: "Fold9"), BasisDoos.Fold9)) //Fold9 Afstand van achtste vouw tot negende vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"9", 1: "Fold10"), BasisDoos.Fold10)) //Fold10 Afstand van negende vouw tot tiende vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"10", 1: "Fold11"), BasisDoos.Fold11)) //Fold11 Afstand van tiende vouw tot elfde vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"11", 1: "Fold12"), BasisDoos.Fold12)) //Fold12 Afstand van elfde vouw tot twaalfde vouw, indien nul dan afsnijden
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "NBR"), BasisDoos.NBR)) //NBR Aantal scheidingen naast elkaar
 ]]></Implementation>
 </Method>
 
@@ -412,10 +303,7 @@
 		Set $property(BasisDoos, "QO") = BoxData.Params.GetAt("QO").WaardeExec
 	}
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "QO")
-	Set Param.Value = BasisDoos.QO
-	Do BasisDoos.Params.Insert(Param)
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "QO"), BasisDoos.QO))
 ]]></Implementation>
 </Method>
 
@@ -462,30 +350,11 @@
 		}
 	}
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "FS")
-	Set Param.Value = BasisDoos.FS
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "LT")
-	Set Param.Value = BasisDoos.LT
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "LS")
-	Set Param.Value = BasisDoos.LS
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"4", 1: "RT")
-	Set Param.Value = BasisDoos.RT
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"5", 1: "RS")
-	Set Param.Value = BasisDoos.RS
-	Do BasisDoos.Params.Insert(Param)
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "FS"), BasisDoos.FS))
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "LT"), BasisDoos.LT))
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "LS"), BasisDoos.LS))
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"4", 1: "RT"), BasisDoos.RT))
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"5", 1: "RS"), BasisDoos.RS))
 ]]></Implementation>
 </Method>
 
@@ -510,10 +379,7 @@
 		Set $property(BasisDoos, "Flap") = BoxData.Params.GetAt("Flap").WaardeExec
 	}
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "Flap")
-	Set Param.Value = BasisDoos.Flap
-	Do BasisDoos.Params.Insert(Param)
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "Flap"), BasisDoos.Flap))
 ]]></Implementation>
 </Method>
 
@@ -545,20 +411,22 @@
 		}
 	}
 	
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "M"), BasisDoos.M))	
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "HL"), BasisDoos.HL))
+	Do BasisDoos.Params.Insert(..GeefDoosParam($Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "AG"), BasisDoos.AG))
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoosParam">
+<FormalSpec>Key:%String,Value:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Verpakking.dto.Doos.Param</ReturnType>
+<Implementation><![CDATA[
 	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "M")
-	Set Param.Value = BasisDoos.M
-	Do BasisDoos.Params.Insert(Param)
+	Set Param.Key = Key
+	Set Param.Value = Value
 	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "HL")
-	Set Param.Value = BasisDoos.HL
-	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.dto.Doos.Param).%New()
-	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "AG")
-	Set Param.Value = BasisDoos.AG
-	Do BasisDoos.Params.Insert(Param)
+	Quit Param
 ]]></Implementation>
 </Method>
 </Class>