Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72367 -r72419
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72367)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72419)
@@ -462,7 +462,7 @@
 	Set OptiData = ..MaakOptiData(BoxDataMetID, Product, OptiDataParent, OptiDataBoxParent)
 	#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijData(BoxDataMetID, Sequentie, OptiData, Product, SnijDataParent, SnijDataBoxParent, ProductAantal, AfbeeldingCode)
 	
-	If ($$$Not(##class(TECH.ListUtils).Contains(..TeGroepoerenVolumes, SnijData.BoxData.%Id()))) {
+	If ($$$Not(##class(TECH.ListUtils).Contains(..TeGroepoerenVolumes, SnijData.BoxData.%Id())) && $$$Not(BoxDataMetID.Meta.OptiType = "VOLUME")) {
 		#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(BoxDataMetID)
 		Do SnijData.SnijDefs.SetAt(SnijDef, ##class(APPS.Verpakking.enu.MachineID).VH())
 		
@@ -628,14 +628,14 @@
 		Set SnijData.BoxParent = SnijDataParent
 	}
 	
-	If ((BoxDataMetID.VolumeVan = "") && $$$Not(##class(TECH.ListUtils).Contains(..TeGroepoerenVolumes, SnijData.BoxData.%Id()))) {
+	If ((BoxDataMetID.VolumeVan = "") && $$$Not(##class(TECH.ListUtils).Contains(..TeGroepoerenVolumes, SnijData.BoxData.%Id())) && $$$Not(BoxDataMetID.Meta.OptiType = "VOLUME")) {
 		Set SnijData.BoxSelect = BoxDataMetID.Meta.BoxSelect.GetAt(1).Naam
 	}
 	
 	If $$$Not(BoxDataMetID.DeelVan = "") {
 		Set SnijData.BoxUsage = "SUB"
 		Set SnijData.PPSPrioriteit = 40
-	} ElseIf $$$Not(BoxDataMetID.VolumeVan = "") || (##class(TECH.ListUtils).Contains(..TeGroepoerenVolumes, SnijData.BoxData.%Id())) {
+	} ElseIf ($$$Not(BoxDataMetID.VolumeVan = "") || (##class(TECH.ListUtils).Contains(..TeGroepoerenVolumes, SnijData.BoxData.%Id())) || (BoxDataMetID.Meta.OptiType = "VOLUME")) {
 		Set SnijData.BoxUsage = "VOL"
 		Set SnijData.PPSPrioriteit = 1
 	} Else {
@@ -966,7 +966,7 @@
 		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
 		Set BoxData = ..CopyBoxData(BoxData)
 		
-		If $$$Not(BoxData.Meta.ProductGroep = "TAOR indelingen") { //Heeft geen boxselect
+		If ($$$Not(BoxData.Meta.ProductGroep = "TAOR indelingen") && $$$Not(BoxData.Meta.OptiType = "VOLUME")) { //Hebben geen boxselect
 			If (BoxData.Meta.BoxSelect.GetAt(1).Naam = "OL WRAPAROUND BUFFER") 
 			{
 				If (BoxData.Params.GetAt("LT").WaardeExec = 0) {
@@ -1267,12 +1267,12 @@
 	If ($IsObject(HttpRequest.HttpResponse)) {
 		If $$$Not(HttpRequest.HttpResponse.StatusCode = 200) {
 			#dim ErrorInfo as %String = HttpRequest.HttpResponse.Data.Read(HttpRequest.HttpResponse.Data.Size)
-			Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("Fout bij opvragen optimalisatie stapeling via cubeIQ: HttpRequest to "_HttpRequest.Server_" failed. " _ $$$CRLF _ HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo)
+			Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("Fout bij opvragen optimalisatie stapeling via cubeIQ voor bon " _ ..BonId_ " : HttpRequest to "_HttpRequest.Server_" failed. " _ $$$CRLF _ HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo)
 			Do ##class(TECH.ExceptionHandler).Throw(Exception)
 		}
 	}
 	Else {
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Fout bij opvragen optimalisatie stapeling via cubeIQ: HttpResponse is onverwacht leeg. HttpRequest to "_HttpRequest.Server_" failed.")
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Fout bij opvragen optimalisatie stapeling via cubeIQ" _ ..BonId_ " : HttpResponse is onverwacht leeg. HttpRequest to "_HttpRequest.Server_" failed.")
 	}
 ]]></Implementation>
 </Method>