Index: APPS/Halux/common/impl/BatchService.cls.xml
===================================================================
diff -u -r57036 -r57115
--- APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 57036)
+++ APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 57115)
@@ -5,6 +5,23 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject,APPS.Halux.common.BatchService</Super>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Logger:vhLib.Logger=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New(""))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BestaatBatch">
 <FormalSpec>BatchID:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -121,20 +138,19 @@
 <Method name="VerwijderToeleveringenUitBatches">
 <FormalSpec>TeVerwijderenToeleveringenInBatch:%ArrayOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	#dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New("")
 	Set ToeleveringIterator = ##class(TECH.ListIterator).%New(TeVerwijderenToeleveringenInBatch)
 	While ToeleveringIterator.HasNext() {
 		#dim BatchId As %String = ToeleveringIterator.Next()
 		#dim Batch As APPS.Halux.common.Batch = ..GeefBatch(BatchId)
 		If $IsObject(Batch) {
 			#dim ToeleveringId As %String = ToeleveringIterator.Key()
 			If Batch.IsReedsGestart() {
-				Do Logger.Warning("VerwijderToeleveringenUitBatches","Toelevering '"_ToeleveringId_"' kan NIET gewist worden, want Batch '"_Batch.GeefID()_"' is reeds gestart.")
+				Do ..Logger.Warning("VerwijderToeleveringenUitBatches","Toelevering '"_ToeleveringId_"' kan NIET gewist worden, want Batch '"_Batch.GeefID()_"' is reeds gestart.")
 			}
 			Else {
 				Do Batch.VerwijderToeleveringViaID(ToeleveringId)
 				Do Batch.Save()
-				Do Logger.Warning("VerwijderToeleveringenUitBatches","In Batch '"_Batch.GeefID()_"' werd toelevering '"_ToeleveringId_"' gewist uit lijst van toeleveringen.")
+				Do ..Logger.Warning("VerwijderToeleveringenUitBatches","In Batch '"_Batch.GeefID()_"' werd toelevering '"_ToeleveringId_"' gewist uit lijst van toeleveringen.")
 			}
 		}
 	}
@@ -144,13 +160,12 @@
 <Method name="VerwijderBatchesOuderDan">
 <FormalSpec>AantalDagen:%Integer=30</FormalSpec>
 <Implementation><![CDATA[
-	#Dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New()
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT ID FROM APPS_Halux_common_impl.BatchImpl WHERE DATEDIFF('dd',AanmaakTijdStip,CURRENT_TIMESTAMP) > ? AND IsActief = 0")
 	set ResultSet.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical()
 	Do ResultSet.Execute(AantalDagen)
 	While (ResultSet.Next()) {
-		Do Logger.Info("Verwijderen batch", ResultSet.Data("ID"))
+		Do ..Logger.Info("Verwijderen batch", ResultSet.Data("ID"))
 		Do ##class(APPS.Halux.common.impl.BatchImpl).%DeleteId(ResultSet.Data("ID"))
 	}
 ]]></Implementation>