Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r68825 -r68847
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 68825)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 68847)
@@ -190,6 +190,7 @@
 	Set BasisDoos.Height = Params("ZIJHOOGTE")
 	Set BasisDoos.Width = Params("BREEDTE")
 	Set BasisDoos.H2 = $Select($D(Params("RUGHOOGTE")): Params("RUGHOOGTE"), 1:BasisDoos.H2)
+	Set BasisDoos.OverhangSize = Params("RUGHOOGTE") - Params("ZIJHOOGTE")
 	
 	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
 	Set Param.Key = "1"
@@ -205,17 +206,11 @@
 	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")
+	Set Param.Value = BasisDoos.OverhangSize
 	Do BasisDoos.Params.Insert(Param)
-	
-	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
-	Set Param.Key = "OVERHANGTHICKNESS"
-	Set Param.Value = 30
-	Do BasisDoos.Params.Insert(Param)
-	*/
 ]]></Implementation>
 </Method>