Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72246 -r72257
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72246)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72257)
@@ -147,8 +147,7 @@
 		Set ..CubeIQRequestBuilder.ContainerId = ..#ContainerId
 	 	Set ..CubeIQRequestBuilder.LoadId = ..#ContainerId _ "_" _ ..BonId
 		
-	 	#dim OrigineleBoxDataLijst As List of DS.Prod.OptiBox.BoxData = ..GeefBoxDataVoorBonMetNesting(BonId)
-	 	
+	 	#dim OrigineleBoxDataLijst As List of DS.Prod.OptiBox.BoxData = ..GeefBoxDataVoorBonMetNesting(BonId)	 	
 	 	#dim BoxDataLijstVanTeMakenKartons As List of DS.Prod.OptiBox.BoxData = ..GroepeerBoxDataIndienNodig(OrigineleBoxDataLijst)
 	 	#dim BoxDataLijstVanTeStapelenDozen As List of DS.Prod.OptiBox.BoxData = ..VerwijderNietTeStapelenKartons(BoxDataLijstVanTeMakenKartons)
 	 	Do ..BepaalGrootsteGrondOppervlak(BoxDataLijstVanTeStapelenDozen)
@@ -323,7 +322,9 @@
 						While DelenVanBoxDataIterator.HasNext() {
 							#dim DeelVanBoxData As DS.Prod.OptiBox.BoxData = DelenVanBoxDataIterator.Next()
 							#dim OptiDataInnerDoos As DS.Prod.OptiBox.OptiData = ""
-							Do ..MaakMetaDataVoorSnijOpdracht(DeelVanBoxData, .OptiDataInnerDoos, 1, "", BoxData.ObjRef, SnijDataDoos, OptiDataDoos, OptiDataDoos,SnijDataDoos)
+							Set Params("PRODAANTAL") = 1
+							Set Params("AANTAL") = 1
+							Do ..MaakMetaDataVoorSnijOpdracht(DeelVanBoxData, .OptiDataInnerDoos, ..CalcMetDefault(1, DeelVanBoxData.AantalExec, .Params), "", BoxData.ObjRef, SnijDataDoos, OptiDataDoos, OptiDataDoos,SnijDataDoos)
 						}
 						
 						Set Block.quantity = Block.quantity - 1
@@ -413,7 +414,7 @@
 		If $$$Not(BoxDataMetID.VolumeVan = "") 
 		{
 			If (BoxDataMetID.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
-				//TODO echte boxdata ophalen ..BoxDataRepository.GeefBoxDataViaID(BoxDataId)
+				
 				#dim Index as %Integer = 0
 				#dim Product As DOM.PM.Product = $Select(..ProductAPI.BestaatProduct(BoxDataMetID.ObjRef)= $$$False: "", 1: ..ProductAPI.GeefProduct(BoxDataMetID.ObjRef))
 				#dim OptiData As DS.Prod.OptiBox.OptiData = ..MaakOptiData(BoxDataMetID, Product, OptiDataParent)
@@ -486,7 +487,6 @@
 	} Else {
 		Set SnijData.BoxUsage = "BOTTOM"
 		Set SnijData.PPSPrioriteit = 1
-		Set SnijData.PrintStatus = "P"
 	}
 	Set SnijData.Diepte = (Overdoos.overalllength + 10) //Extra cm zodat dozen makkelijk in overdoos geraken
 	Set SnijData.Breedte = (Overdoos.overallwidth + 10) //Extra cm zodat dozen makkelijk in overdoos geraken
@@ -521,16 +521,12 @@
 	Set SnijData.Reference = "L." _ ..BonId _ "."_ OptiData.%Id()
 	;Set SnijData.SnijHistoriek = "????????????????????????????"
 	Set SnijData.SnijMachineID = ##class(APPS.Verpakking.enu.MachineID).VH()
-	Set SnijData.Status = "O"
 	Set SnijData.Simulate = $$$False
 	
 	Set SaveStatus = SnijData.%Save()
 	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 2e keer bewaren van SnijData voor de overdozen in MaakSnijData is niet gelukt.")
-	
 	Quit SnijData
 ]]></Implementation>
 </Method>
@@ -551,7 +547,6 @@
 		Set SnijData.Parent = SnijDataParent
 	} Else {
 		Set SnijData.Parent = SnijDataBoxParent
-		Set SnijData.PrintStatus = "P"
 	}
 	
 	If $$$Not(SnijDataBoxParent = "") {
@@ -587,14 +582,16 @@
 		If (BoxDataMetID.VolumeVan.%Id() = "OL||Antislipmat groep||1") {
 			Set SnijData.PPSSubgroep = "MAT"
 		}
-		Set SnijData.Status = "VF"
 	} Else {
-		Set SnijData.PPSSubgroep = BoxDataMetID.Meta.PPSSubgroep	
-		Set SnijData.Status = "O"
+		Set SnijData.PPSSubgroep = BoxDataMetID.Meta.PPSSubgroep
 	}
 	
 	Set SnijData.Aantal = 1
-	Set SnijData.ProductAantal = ProductAantal
+	If (BoxDataMetID.AantalProductenGenest > 1) {
+		Set SnijData.ProductAantal = BoxDataMetID.AantalProductenGenest
+	} Else {
+		Set SnijData.ProductAantal = ProductAantal
+	}
 	Set SnijData.PRNr = +BoxDataMetID.ObjRef
 	Set SnijData.Reference = "L." _ ..BonId _ "."_ OptiData.%Id()
 	;Set SnijData.SnijHistoriek = "????????????????????????????"
@@ -623,8 +620,6 @@
 	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 2e keer bewaren van SnijData in MaakSnijData is niet gelukt.")
 	
 	Quit SnijData
 ]]></Implementation>
@@ -943,7 +938,8 @@
 					#dim Aantal As %Integer = GelijkVerdeeldeAantallenLijstIterator.Next()
 					Set Params("PRODAANTAL") = Aantal
 					Set Params("AANTAL") = Aantal
-					Set BoxData.Aantal = Aantal / BoxData.MaxCombinAantal //???????????? TODO
+					Set BoxData.AantalProductenGenest = Aantal
+					Set BoxData.Aantal = 1
 					Set BoxData.Breedte = ..CalcMetDefault(1, BoxData.BreedteExec, .Params)
 					Set BoxData.Diepte = ..CalcMetDefault(1, BoxData.DiepteExec, .Params)
 					Set BoxData.Hoogte = ..CalcMetDefault(1, BoxData.HoogteExec, .Params)