Index: APPS/Verpakking/CubeIQRequestBuilder.cls.xml
===================================================================
diff -u -r72263 -r72291
--- APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(.../CubeIQRequestBuilder.cls.xml)	(revision 72263)
+++ APPS/Verpakking/CubeIQRequestBuilder.cls.xml	(.../CubeIQRequestBuilder.cls.xml)	(revision 72291)
@@ -206,6 +206,9 @@
 		Set Korttekst = Product.GeefKorttekst()
 	}
 	
+	Set Korttekst = $Replace(Korttekst, "/", " ")
+	Set Korttekst = $Replace(Korttekst, "\", " ")
+	
 	Quit Korttekst
 ]]></Implementation>
 </Method>
Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72287 -r72291
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72287)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72291)
@@ -150,10 +150,11 @@
 	 	#dim OrigineleBoxDataLijst As List of DS.Prod.OptiBox.BoxDataMetID = ..GeefBoxDataVoorBonMetNesting(BonId)	 	
 	 	#dim BoxDataLijstVanTeMakenKartons As List of DS.Prod.OptiBox.BoxDataMetID = ..GroepeerBoxDataIndienNodig(OrigineleBoxDataLijst)
 	 	#dim BoxDataLijstVanTeStapelenDozen As List of DS.Prod.OptiBox.BoxDataMetID = ..VerwijderNietTeStapelenKartons(BoxDataLijstVanTeMakenKartons)
-	 	#dim BoxDataLijstVanTeStapelenDozenVergroot As List of DS.Prod.OptiBox.BoxDataMetID = ..VergrootDimensiesVoorKartonsMetBufferzone(BoxDataLijstVanTeStapelenDozen)
-	 	Do ..BepaalGrootsteGrondOppervlak(BoxDataLijstVanTeStapelenDozenVergroot)
+	 	#dim BoxDataLijstVanTeStapelenDozenVergrootVoorKartonsMetBufferzone As List of DS.Prod.OptiBox.BoxDataMetID = ..VergrootDimensiesVoorKartonsMetBufferzone(BoxDataLijstVanTeStapelenDozen)
+	 	#dim BoxDataLijstVanTeStapelenDozenVergrootVoorOrgaluxBasisPaketten As List of DS.Prod.OptiBox.BoxDataMetID = ..VergrootDimensiesVoorOrgaluxBasisPaketten(BoxDataLijstVanTeStapelenDozen)
+	 	Do ..BepaalGrootsteGrondOppervlak(BoxDataLijstVanTeStapelenDozenVergrootVoorOrgaluxBasisPaketten)
 	 	
-	 	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefBesteStapeling(BoxDataLijstVanTeStapelenDozenVergroot)
+	 	#dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefBesteStapeling(BoxDataLijstVanTeStapelenDozenVergrootVoorOrgaluxBasisPaketten)
 	 	Set ..JobId = $Piece(CubeIQResponse.cubeiq.loads.load.GetAt(1).jobid, "-", 1)
 	 	Do ##class(Tools.Wlip).%New(110).String("beste stapeling "_..JobId)
 	 	If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) { //check niet nodig indien geen overdoos nodig?
@@ -210,11 +211,11 @@
 							}
 				 		}
 					 	
-				 		Set Hoogte = (Hoogte + 180)
+				 		Set Hoogte = (Hoogte + 80)
 				 	}
-				 	Set Diepte = (Diepte + 180)
+				 	Set Diepte = (Diepte + 80)
 			 	}
-			 	Set Breedte = (Breedte + 180)
+			 	Set Breedte = (Breedte + 80)
 		 	}
 	 	}
 	 	
@@ -933,6 +934,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VergrootDimensiesVoorOrgaluxBasisPaketten">
+<FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set GegroepeerdeBoxDataLijst = ##class(%ListOfObjects).%New()
+	#dim BoxDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BoxDataLijst)
+	
+	While BoxDataIterator.HasNext() {
+		#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataIterator.Next()
+		Set BoxData = ..CopyBoxData(BoxData)
+		#dim ProductId As %Integer = BoxData.ObjRef
+		
+		If (..ProductAPI.BestaatProduct(ProductId)) {
+			#dim IsProductEenOrgaluxBasispakket As %Boolean = (##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductId).GeefClassificatieKnoop().GeefID() = ##class(DOM.PM.enu.Classificatie).OrgaluxBasispakket())
+			
+			If (IsProductEenOrgaluxBasispakket) {
+				Set BoxData.Breedte = BoxData.Breedte + 10
+				Set BoxData.Breedte = BoxData.Diepte + 10
+			}
+		}
+		
+		Do GegroepeerdeBoxDataLijst.Insert(BoxData)
+	}
+	
+	Quit GegroepeerdeBoxDataLijst
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderNietTeStapelenKartons">
 <FormalSpec>BoxDataLijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>