Index: APPS/Verpakking/V1HogeRug.cls.xml
===================================================================
diff -u -r68515 -r68520
--- APPS/Verpakking/V1HogeRug.cls.xml	(.../V1HogeRug.cls.xml)	(revision 68515)
+++ APPS/Verpakking/V1HogeRug.cls.xml	(.../V1HogeRug.cls.xml)	(revision 68520)
@@ -75,7 +75,7 @@
 
 <Property name="T">
 <Type>%Decimal</Type>
-<InitialExpression>25</InitialExpression>
+<InitialExpression>30</InitialExpression>
 <Parameter name="XMLNAME" value="T"/>
 <Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r68515 -r68520
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 68515)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 68520)
@@ -158,20 +158,22 @@
 		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.Doos.Param).%New()
-		Set Param.Key = "3" //"T"
-		Set Param.Value = $Select($D(Params("LOCP")): Params("LOCP"), 1: BasisDoos.T)
+		Set Param.Key = "3"
+		Set Param.Value = BasisDoos.T
 		Do BasisDoos.Params.Insert(Param)
 	} ElseIf (ProductGroep = "TAORBOX") {
 		Set BasisDoos.RecipeName = "TAORBOX V1 LOOSE COMP"	//Meta 505
 		Set BasisDoos.Depth = Params("DIEPTE")
 		Set BasisDoos.Height = Params("ZIJHOOGTE")
 		Set BasisDoos.Width = Params("BREEDTE")
-	
+		Set BasisDoos.T = $Select($D(Params("BREEDTECP")): Params("BREEDTECP"), 1: BasisDoos.T)
+		
 		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-		Set Param.Key = "3" //"T"
-		Set Param.Value = $Select($D(Params("BREEDTECP")): Params("BREEDTECP"), 1: BasisDoos.T)
+		Set Param.Key = "3"
+		Set Param.Value = BasisDoos.T
 		Do BasisDoos.Params.Insert(Param)
 	}
 ]]></Implementation>
@@ -187,22 +189,23 @@
 	Set BasisDoos.Depth = Params("DIEPTE")
 	Set BasisDoos.Height = Params("ZIJHOOGTE")
 	Set BasisDoos.Width = Params("BREEDTE")
+	Set BasisDoos.H2 = $Select($D(Params("RUGHOOGTE")): Params("RUGHOOGTE"), 1:BasisDoos.H2)
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "1" //"H2"
-	Set Param.Value = $Select($D(Params("RUGHOOGTE")): Params("RUGHOOGTE"), 1:0)
+	Set Param.Key = "1"
+	Set Param.Value = BasisDoos.H2
 	Do BasisDoos.Params.Insert(Param)
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "2" //"T"
-	Set Param.Value = 25
+	Set Param.Key = "2"
+	Set Param.Value = BasisDoos.T
 	Do BasisDoos.Params.Insert(Param)
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "3" //"K"
-	Set Param.Value = 110
+	Set Param.Key = "3"
+	Set Param.Value = BasisDoos.K
 	Do BasisDoos.Params.Insert(Param)
-	
+	/*
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
 	Set Param.Key = "OVERHANGSIZE"
 	Set Param.Value = Params("RUGHOOGTE") - Params("ZIJHOOGTE")
@@ -212,6 +215,7 @@
 	Set Param.Key = "OVERHANGTHICKNESS"
 	Set Param.Value = 30
 	Do BasisDoos.Params.Insert(Param)
+	*/
 ]]></Implementation>
 </Method>
 
@@ -226,8 +230,8 @@
 	Set BasisDoos.Width = Params("BREEDTE")
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "1" //"K"
-	Set Param.Value = 110
+	Set Param.Key = "1"
+	Set Param.Value = BasisDoos.K
 	Do BasisDoos.Params.Insert(Param)
 ]]></Implementation>
 </Method>
@@ -258,20 +262,23 @@
 	Set BasisDoos.Depth = Params("DIEPTE")
 	Set BasisDoos.Height = Params("HOOGTE")
 	Set BasisDoos.Width = Params("BREEDTE")
+	Set BasisDoos.K1 = $Select($D(Params("K1")): Params("K1"), 1: BasisDoos.K1)
+	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.Doos.Param).%New()
 	Set Param.Key = "1"		//Flap rechts deel 1
-	Set Param.Value = $Select($D(Params("K1")): Params("K1"), 1: BasisDoos.K1)	
+	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.Value =  $Select($D(Params("K2")): Params("K2"), 1: BasisDoos.K2)	
+	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.Value =  $Select($D(Params("K3")): Params("K3"), 1: BasisDoos.K3)	
+	Set Param.Value = BasisDoos.K3
 	Do BasisDoos.Params.Insert(Param)
 ]]></Implementation>
 </Method>
@@ -297,48 +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.Value = 0
+	Set Param.Value = BasisDoos.Fold3
 	Do BasisDoos.Params.Insert(Param)
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Value = 0
+	Set Param.Value = BasisDoos.Fold4
 	Set Param.Key = "3"					//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 = 0
+	Set Param.Value = BasisDoos.Fold5
 	Set Param.Key = "4"					//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 = 0
+	Set Param.Value = BasisDoos.Fold6
 	Set Param.Key = "5"					//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 = 0
+	Set Param.Value = BasisDoos.Fold7
 	Set Param.Key = "6"					//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 = 0
+	Set Param.Value = BasisDoos.Fold8
 	Set Param.Key = "7"					//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 = 0
+	Set Param.Value = BasisDoos.Fold9
 	Set Param.Key = "8"					//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 = 0
+	Set Param.Value = BasisDoos.Fold10
 	Set Param.Key = "9"					//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 = 0
+	Set Param.Value = BasisDoos.Fold11
 	Set Param.Key = "10"				//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 = 0
+	Set Param.Value = BasisDoos.Fold12
 	Set Param.Key = "11"				//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.Value = 0
 	Set Param.Key = "1"					//NBR Aantal scheidingen naast elkaar
-	Set Param.Value = 1
+	Set Param.Value = BasisDoos.NBR
 	Do BasisDoos.Params.Insert(Param)
 ]]></Implementation>
 </Method>