Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r69113 -r69591
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69113)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69591)
@@ -3,9 +3,16 @@
 <Class name="APPS.Verpakking.DoosAanvuller">
 <Super>TECH.Mockable</Super>
 
+<Property name="MachineTechnologie">
+<Type>APPS.Verpakking.enu.MachineTechnologie</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="VulAanBasisInformatieDoos">
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,Prioriteit:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie]]></FormalSpec>
 <Implementation><![CDATA[
+	Set ..MachineTechnologie = MachineTechnologie
+	
 	If (BasisDoos.%Extends("APPS.Verpakking.V1HogeRug")) {
 		Do ..VulAanV1HogeRug(.BasisDoos, .Params)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LageRug")) {
@@ -60,12 +67,12 @@
 		Set BasisDoos.AltSwap = 2
 		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "1"
+		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.Doos.Param).%New()
-		Set Param.Key = "2"
+		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
 		Set Param.Value = BasisDoos.K2
 		Do BasisDoos.Params.Insert(Param)
 				
@@ -77,12 +84,12 @@
 		Set BasisDoos.Width = Params("BREEDTE")
 		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "1"
+		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.Doos.Param).%New()
-		Set Param.Key = "2"
+		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
 		Set Param.Value = BasisDoos.K2
 		Do BasisDoos.Params.Insert(Param)
 		
@@ -120,12 +127,12 @@
 		Set BasisDoos.K2 = 110
 		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "1"
+		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.Doos.Param).%New()
-		Set Param.Key = "2"
+		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
 		Set Param.Value = BasisDoos.K2
 		Do BasisDoos.Params.Insert(Param)
 	}
@@ -144,12 +151,12 @@
 	*/
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "1"
+	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.Doos.Param).%New()
-	Set Param.Key = "2"
+	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "K2")
 	Set Param.Value = BasisDoos.K2
 	Do BasisDoos.Params.Insert(Param)
 	
@@ -161,7 +168,7 @@
 		Set BasisDoos.T = $Select($D(Params("LOCP")): Params("LOCP"), 1: BasisDoos.T)
 		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "3"
+		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "T")
 		Set Param.Value = BasisDoos.T
 		Do BasisDoos.Params.Insert(Param)
 	} ElseIf (ProductGroep = "TAORBOX") {
@@ -172,7 +179,7 @@
 		Set BasisDoos.T = $Select($D(Params("BREEDTECP")): Params("BREEDTECP"), 1: BasisDoos.T)
 		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "3"
+		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "T")
 		Set Param.Value = BasisDoos.T
 		Do BasisDoos.Params.Insert(Param)
 	}
@@ -193,17 +200,17 @@
 	Set BasisDoos.OverhangSize = Params("RUGHOOGTE") - Params("ZIJHOOGTE")
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "1"
+	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.Doos.Param).%New()
-	Set Param.Key = "2"
+	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.Doos.Param).%New()
-	Set Param.Key = "3"
+	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"3", 1: "K")
 	Set Param.Value = BasisDoos.K
 	Do BasisDoos.Params.Insert(Param)
 ]]></Implementation>
@@ -220,7 +227,7 @@
 	Set BasisDoos.Width = Params("BREEDTE")
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "1"
+	Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K")
 	Set Param.Value = BasisDoos.K
 	Do BasisDoos.Params.Insert(Param)
 ]]></Implementation>
@@ -237,7 +244,7 @@
 		Set BasisDoos.Width = Params("BREEDTE")
 		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "1"
+		Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"1", 1: "K")
 		Set Param.Value = BasisDoos.K
 		Do BasisDoos.Params.Insert(Param)
 	}
@@ -257,17 +264,17 @@
 	Set BasisDoos.K3 =  $Select($D(Params("K3")): Params("K3"), 1: BasisDoos.K3)	
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "1"		//Flap rechts deel 1
+	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.Doos.Param).%New()
-	Set Param.Key = "2"		//Flap rechts deel 2
+	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.Doos.Param).%New()
-	Set Param.Key = "3"		//Flap links
+	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)
 ]]></Implementation>
@@ -297,47 +304,47 @@
 	}*/
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "2" 				//Fold3 Afstand van tweede vouw tot derde vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold4
-	Set Param.Key = "3"					//Fold4 Afstand van derde vouw tot vierde vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold5
-	Set Param.Key = "4"					//Fold5 Afstand van vierde vouw tot vijfde vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold6
-	Set Param.Key = "5"					//Fold6 Afstand van vijfde vouw tot zesde vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold7
-	Set Param.Key = "6"					//Fold7 Afstand van zesde vouw tot zevende vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold8
-	Set Param.Key = "7"					//Fold8 Afstand van zevende vouw tot achtste vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold9
-	Set Param.Key = "8"					//Fold9 Afstand van achtste vouw tot negende vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold10
-	Set Param.Key = "9"					//Fold10 Afstand van negende vouw tot tiende vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold11
-	Set Param.Key = "10"				//Fold11 Afstand van tiende vouw tot elfde vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
 	Set Param.Value = BasisDoos.Fold12
-	Set Param.Key = "11"				//Fold12 Afstand van elfde vouw tot twaalfde vouw, indien nul dan afsnijden
+	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.Doos.Param).%New()
-	Set Param.Key = "1"					//NBR Aantal scheidingen naast elkaar
+	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)
 ]]></Implementation>