Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml
===================================================================
diff -u -r72310 -r72314
--- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72310)
+++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml	(.../OrgaluxBonOptimizer.cls.xml)	(revision 72314)
@@ -18,16 +18,10 @@
 <Default>730</Default>
 </Parameter>
 
-<Property name="LoadId">
+<Property name="ContainerId">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
-<Parameter name="ContainerId">
-<Type>%String</Type>
-<Default>Overdoos</Default>
-</Parameter>
-
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
@@ -53,11 +47,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BonBevatEenNietOnderTeBrengenProduct">
-<Type>%Boolean</Type>
-<InitialExpression>0</InitialExpression>
-</Property>
-
 <Property name="BonId">
 <Type>%String</Type>
 <Private>1</Private>
@@ -115,7 +104,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..Logger = ##class(vhLib.Logger).%New("VH doos service")
+	Set ..Logger = ##class(vhLib.Logger).%New("Optimaliseer bon orgalux")
 	Set ..BoxDataRepository = ##class(APPS.Verpakking.BoxDataRepository).%New()
 	Set ..SnijDataRepository = ##class(APPS.Verpakking.SnijDataRepository).%New()
 	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
@@ -141,10 +130,11 @@
 <Method name="Optimize">
 <FormalSpec>BonId:%String</FormalSpec>
 <Implementation><![CDATA[
-		Do ..Logger.Info("Optimize bon orgalux", "Start optimize bon " _ BonId _".")	
+		Do ..Logger.Info("Optimaliseer bon orgalux", "Start optimaliseren bon " _ BonId _".")	
 		Set ..BonId = BonId
-		Set ..CubeIQRequestBuilder.ContainerId = ..#ContainerId
-	 	Set ..CubeIQRequestBuilder.LoadId = ..#ContainerId _ "_" _ ..BonId
+		Set ..ContainerId = "Overdoos_"_..BonId
+		Set ..CubeIQRequestBuilder.ContainerId = ..ContainerId
+	 	Set ..CubeIQRequestBuilder.LoadId = ..ContainerId
 		
 	 	#dim OrigineleBoxDataLijst As List of DS.Prod.OptiBox.BoxDataMetID = ..GeefBoxDataVoorBonMetNesting(BonId)	 	
 	 	#dim BoxDataLijstVanTeMakenKartons As List of DS.Prod.OptiBox.BoxDataMetID = ..GroepeerBoxDataIndienNodig(OrigineleBoxDataLijst)
@@ -158,15 +148,15 @@
 	 	
 	 	If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) {
 		 	#dim FoutOmschrijving As %String = "Geen afbeelding gevonden voor optimale stapeling gevonden voor bon "_ ..BonId _" met JobId "_ ..JobId _ ". Indien nodig, probeer manueel de stapeling van de bon opnieuw te optimaliseren via 'Do ##class(BL.PPS.OL.OptiBox).OptimizeBon(BonNr)'."
-			Do ..Logger.Warning("Optimaliseer bon orgalux", FoutOmschrijving)
+			Do ..Logger.Warning("Ontbrekende afbeelding voor bon", FoutOmschrijving)
 	 	}
 	 	
 		Do ..SnijDataRepository.VerwijderViaBonId(..BonId)
 		
 		Do ..ProcessCubeIQResponse(CubeIQResponse, BoxDataLijstVanTeMakenKartons, OrigineleBoxDataLijst)
 		Do ..MaakOptiboxQueue()
 		
-		Do ..Logger.Info("Optimize bon orgalux", "Finished optimize bon " _ BonId _".")
+		Do ..Logger.Info("Optimaliseer bon orgalux", "Klaar met optimaliseren bon " _ BonId _".")
 ]]></Implementation>
 </Method>
 
@@ -269,14 +259,14 @@
 	
 	If $$$Not(CubeIQResponse.cubeiq.unloadedproducts = "") {
 		#dim WarningOmschrijving As %String = "Er is minstens 1 product van bon " _ ..BonId _ " die niet kon ondergebracht worden in de overdozen ondanks de producten groter dan een pallet al werden uitgefilterd."
-		Do ..Logger.WarningMail("Optimize bon orgalux", WarningOmschrijving)
+		Do ..Logger.WarningMail("Bepaal minimum aantal palletten", WarningOmschrijving)
 	}
 	
 	Set MinimumAantalPallettenVoorBon = CubeIQResponse.cubeiq.loadedcontainers.loadedcontainer.Count()
 	
 	If (MinimumAantalPallettenVoorBon = 0) {
 		#dim FoutOmschrijving As %String = "Het minimum aantal palletten voor bon " _ ..BonId _ " is 0. Dit kan niet kloppen en moet manueel worden nagekeken."
-		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
+		Do ..Logger.ErrorMail("Bepaal minimum aantal palletten", FoutOmschrijving)
 		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
@@ -790,7 +780,7 @@
 		Set BoxDataGegroepeerdeMatten = ..CopyBoxData(BoxDataGegroepeerdeMatten)
 	} Else {
 		#dim FoutOmschrijving As %String = "Geen boxdata gevonden voor boxdataID: 'OL||Antislipmat groep||1'."
-		Do ..Logger.ErrorMail("Optimaliseer bon orgalux", FoutOmschrijving)
+		Do ..Logger.ErrorMail("GeefBoxDataVoorGegroepeerdeMatten", FoutOmschrijving)
 		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New(FoutOmschrijving)	
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}