Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72282 -r72285
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72282)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72285)
@@ -210,11 +210,11 @@
 							}
 				 		}
 					 	
-				 		Set Hoogte = (Hoogte + 80)
+				 		Set Hoogte = (Hoogte + 180)
 				 	}
-				 	Set Diepte = (Diepte + 80)
+				 	Set Diepte = (Diepte + 180)
 			 	}
-			 	Set Breedte = (Breedte + 80)
+			 	Set Breedte = (Breedte + 180)
 		 	}
 	 	}
 	 	
@@ -363,7 +363,7 @@
 	#dim IsOverdoosNodig As %Boolean = $$$True
 	#dim AantalNodigeOverdozenVoorBon As %Decimal = CubeIQResponse.cubeiq.loadedcontainers.loadedcontainer.Count()
 	#dim AantalProductenInBon As %Decimal = CubeIQResponse.cubeiq.blocks.block.Count()
-	#dim AantalDozenVanEersteProduct As %Decimal = CubeIQResponse.cubeiq.blocks.block.GetAt(1).quantity
+	#dim AantalDozenVanEersteProduct As %Decimal = +CubeIQResponse.cubeiq.blocks.block.GetAt(1).quantity
 	#dim ProductIdEersteProduct As %String = $Piece(CubeIQResponse.cubeiq.blocks.block.GetAt(1).productid, "||", 2)
 	#dim IsProductEenOrgaluxBasispakket As %Boolean = $$$False
 	
@@ -571,6 +571,9 @@
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData voor de overdozen in MaakSnijData is niet gelukt.")
 	Set SnijData.BoxDeelVan = $Select(SnijDataBodem = "":SnijData, 1: SnijDataBodem)
 	
+	Set SaveStatus = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData voor de overdozen in MaakSnijData is niet gelukt.")
+	
 	Quit SnijData
 ]]></Implementation>
 </Method>
@@ -625,6 +628,7 @@
 	If $$$Not(BoxDataMetID.VolumeVan = "") {
 		If (BoxDataMetID.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
 			Set SnijData.PPSSubgroep = "MAT"
+			Set SnijData.Status = "V"
 		}
 	} Else {
 		Set SnijData.PPSSubgroep = BoxDataMetID.Meta.PPSSubgroep
@@ -665,6 +669,8 @@
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData in MaakSnijData is niet gelukt.")
 	
 	Set SnijData.BoxDeelVan = SnijData
+	Set SaveStatus = SnijData.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van SnijData in MaakSnijData is niet gelukt.")
 	
 	Quit SnijData
 ]]></Implementation>
@@ -808,13 +814,13 @@
 	Set BoxDataGegroepeerdeMatten.Aantal = 0
 	
 	#dim BoxDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
-	#dim GroeperingdoosHoogte As %Integer = 5
+	#dim GroeperingdoosHoogte As %Integer = 10
 	#dim GroeperingdoosBreedte As %Integer = 0
 	#dim GroeperingdoosDiepte As %Integer = 0
 	While BoxDataIterator.HasNext() {
 		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
 		If (($$$Not(BoxData.VolumeVan = "") && (BoxData.VolumeVan.%Id() = "OL||Antislipmat groep||1"))) {
-			Set GroeperingdoosHoogte = GroeperingdoosHoogte + BoxData.Hoogte
+			Set GroeperingdoosHoogte = GroeperingdoosHoogte + (BoxData.Hoogte * BoxData.Aantal)
 			Set GroeperingdoosBreedte = ##class(TECH.Math).Max(GroeperingdoosBreedte, ##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte))
 			Set GroeperingdoosDiepte = ##class(TECH.Math).Max(GroeperingdoosDiepte, ##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte))
 			Set BoxDataGegroepeerdeMatten.Aantal = 1
@@ -971,7 +977,7 @@
 	Set GegroepeerdeBoxDataLijst = ##class(%ListOfObjects).%New()
 	#dim BoxDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
 	
-	#dim BoxDataVoorGegroepeerdeMatten As DS.Prod.OptiBox.BoxData = ..GeefBoxDataVoorGegroepeerdeMatten(BoxDataLijst)
+	#dim BoxDataVoorGegroepeerdeMatten As DS.Prod.OptiBox.BoxDataMetID = ..GeefBoxDataVoorGegroepeerdeMatten(BoxDataLijst)
 	If (BoxDataVoorGegroepeerdeMatten.Aantal > 0) {
 		Do GegroepeerdeBoxDataLijst.Insert(BoxDataVoorGegroepeerdeMatten)	
 	}