Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72266 -r72273
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72266)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72273)
@@ -289,9 +289,10 @@
 	While OverdozenIterator.HasNext() {	
 		#dim Overdoos As APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer = OverdozenIterator.Next()
 		#dim OptiDataOverdoosBodem As DS.Prod.OptiBox.OptiData = ""
+		#dim IsOverdoosNodig As %Boolean = ..IsOverdoosNodig(CubeIQResponse)
 		#dim AfbeeldingCodeOverdoos As %String = ..GeefGetalAangevuldMetVoorloopNullen(NummerOverdoos, 2) _"_"_ ..GeefGetalAangevuldMetVoorloopNullen(CubeIQResponse.cubeiq.loadedcontainers.loadedcontainer.GetAt(NummerOverdoos).numblocks, 3) _".jpg"
-		#dim SnijDataOverdoosBodem As DS.Prod.OptiBox.SnijData = ..MaakMetaDataVoorSnijOpdrachtenOverdoos(Overdoos, .OptiDataOverdoosBodem, AfbeeldingCodeOverdoos, "")
-		#dim SnijDataOverdoosDeksel As DS.Prod.OptiBox.SnijData = ..MaakMetaDataVoorSnijOpdrachtenOverdoos(Overdoos, .OptiDataOverdoosBodem, AfbeeldingCodeOverdoos, SnijDataOverdoosBodem)
+		#dim SnijDataOverdoosBodem As DS.Prod.OptiBox.SnijData = ..MaakMetaDataVoorSnijOpdrachtenOverdoos(Overdoos, .OptiDataOverdoosBodem, AfbeeldingCodeOverdoos, IsOverdoosNodig,  "")
+		#dim SnijDataOverdoosDeksel As DS.Prod.OptiBox.SnijData = ..MaakMetaDataVoorSnijOpdrachtenOverdoos(Overdoos, .OptiDataOverdoosBodem, AfbeeldingCodeOverdoos,IsOverdoosNodig,  SnijDataOverdoosBodem)
 		#dim NummerDoos As %Integer = 1
 		#dim NummerAfbeelding As %Integer = 1
 		#dim BlocksIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CubeIQResponse.cubeiq.blocks.block)
@@ -332,7 +333,9 @@
 							Set DeelVanBoxDataBerekend.Breedte = ..CalcMetDefault(1, DeelVanBoxDataBerekend.BreedteExec, .Params)
 							Set DeelVanBoxDataBerekend.Diepte = ..CalcMetDefault(1, DeelVanBoxDataBerekend.DiepteExec, .Params)
 							Set DeelVanBoxDataBerekend.Hoogte = ..CalcMetDefault(1, DeelVanBoxDataBerekend.HoogteExec, .Params)
-							Do ..MaakMetaDataVoorSnijOpdracht(DeelVanBoxDataBerekend, .OptiDataInnerDoos, ..CalcMetDefault(1, DeelVanBoxData.AantalExec, .Params), "", BoxData.ObjRef, SnijDataDoos, OptiDataDoos, OptiDataDoos,SnijDataDoos)
+							For Index=1:1:..CalcMetDefault(1, DeelVanBoxData.AantalExec, .Params) {
+								Do ..MaakMetaDataVoorSnijOpdracht(DeelVanBoxDataBerekend, .OptiDataInnerDoos, 1, "", BoxData.ObjRef, SnijDataDoos, OptiDataDoos, OptiDataDoos,SnijDataDoos)
+							}
 						}
 						
 						Set Block.quantity = Block.quantity - 1
@@ -347,6 +350,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsOverdoosNodig">
+<FormalSpec>CubeIQResponse:APPS.Verpakking.dto.CubeIQ.Response</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#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 ProductIdEersteProduct As %String = $Piece(CubeIQResponse.cubeiq.blocks.block.GetAt(1).productid, "||", 2)
+	#dim IsProductEenOrgaluxBasispakket As %Boolean = (##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductIdEersteProduct).GeefClassificatieKnoop().GeefID() = ##class(DOM.PM.enu.Classificatie).OrgaluxBasispakket())
+	
+	If ((AantalNodigeOverdozenVoorBon = 1) && (AantalProductenInBon = 1) && (AantalDozenVanEersteProduct = 1) && $$$Not(IsProductEenOrgaluxBasispakket)) {
+		Set IsOverdoosNodig = $$$False
+	}
+	
+	Quit IsOverdoosNodig
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrigineleBoxDataUitLijst">
 <FormalSpec>BoxDataLijst:%ListOfObjects,BoxDataID:%String</FormalSpec>
 <Private>1</Private>
@@ -368,7 +391,7 @@
 </Method>
 
 <Method name="MaakMetaDataVoorSnijOpdrachtenOverdoos">
-<FormalSpec><![CDATA[Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,SnijDataParent:DS.Prod.OptiBox.SnijData=""]]></FormalSpec>
+<FormalSpec><![CDATA[Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,IsOverdoosNodig:%Boolean,SnijDataParent:DS.Prod.OptiBox.SnijData=""]]></FormalSpec>
 <Private>1</Private>
 <ReturnType>DS.Prod.OptiBox.SnijData</ReturnType>
 <Implementation><![CDATA[
@@ -385,7 +408,7 @@
 	Set BoxDataOverdoosAangevuld.Breedte = Overdoos.overallwidth
 	Set BoxDataOverdoosAangevuld.Diepte = Overdoos.overalllength
 	Set BoxDataOverdoosAangevuld.Hoogte = Overdoos.overallheight
-	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijDataVoorOverdoos(BoxDataOverdoos, Overdoos, .OptiData, AfbeeldingCode, SnijDataParent)
+	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijDataVoorOverdoos(BoxDataOverdoos, Overdoos, .OptiData, AfbeeldingCode, SnijDataParent, IsOverdoosNodig)
 	#dim SnijDefOverdoos As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxDataOverdoosAangevuld)
 	Do SnijData.SnijDefs.SetAt(SnijDefOverdoos, ##class(APPS.Verpakking.enu.MachineID).VH())
 	#dim SaveStatus As %Status = SnijData.%Save()
@@ -479,7 +502,7 @@
 </Method>
 
 <Method name="MaakSnijDataVoorOverdoos">
-<FormalSpec><![CDATA[BoxData:DS.Prod.OptiBox.BoxData,Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,SnijDataBodem:DS.Prod.OptiBox.SnijData]]></FormalSpec>
+<FormalSpec><![CDATA[BoxData:DS.Prod.OptiBox.BoxData,Overdoos:APPS.Verpakking.dto.CubeIQ.Response.LoadedContainer,&OptiData:DS.Prod.OptiBox.OptiData,AfbeeldingCode:%String,SnijDataBodem:DS.Prod.OptiBox.SnijData,IsOverdoosNodig:%Boolean]]></FormalSpec>
 <Private>1</Private>
 <ReturnType>DS.Prod.OptiBox.SnijData</ReturnType>
 <Implementation><![CDATA[
@@ -496,9 +519,9 @@
 		Set SnijData.BoxUsage = "BOTTOM"
 		Set SnijData.PPSPrioriteit = 1
 	}
-	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
-	Set SnijData.Hoogte = Overdoos.overallheight	
+	Set SnijData.Diepte = (Overdoos.overalllength + 15) //Extra zodat dozen makkelijk in overdoos geraken
+	Set SnijData.Breedte = (Overdoos.overallwidth + 15) //Extra zodat dozen makkelijk in overdoos geraken
+	Set SnijData.Hoogte = Overdoos.overallheight
 	Set SnijData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
 	
 	If (OptiData = "") {
@@ -531,6 +554,10 @@
 	Set SnijData.SnijMachineID = ##class(APPS.Verpakking.enu.MachineID).VH()
 	Set SnijData.Simulate = $$$False
 	
+	If $$$Not(IsOverdoosNodig) {
+		Set SnijData.Status = "X"
+	}
+	
 	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)
@@ -597,7 +624,7 @@
 	Set SnijData.Aantal = 1
 	
 	If (BoxDataMetID.%ClassName(1) = "DS.Prod.OptiBox.BoxDataMetID") { //Is niet zo voor kartonhulpstukken (deel van kartons)
-			Set SnijData.ProductAantal = $Select(BoxDataMetID.AantalProductenGenest > 1: BoxDataMetID.AantalProductenGenest, 1:ProductAantal)
+		Set SnijData.ProductAantal = $Select(BoxDataMetID.AantalProductenGenest > 1: BoxDataMetID.AantalProductenGenest, 1:ProductAantal)
 	} Else {
 		Set SnijData.ProductAantal = ProductAantal
 	}