Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r46253 -r47345
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 46253)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 47345)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:AXimpl.EventRaiser,ConfigIn:AXimpl.ConfigIn</FormalSpec>
 <Private>1</Private>
@@ -34,13 +39,17 @@
 	Set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	Set ..EventRaiser = $$$Inject(EventRaiser,##class(AXimpl.EventRaiser).%New())
 	Set ..ConfigIn = $$$Inject(ConfigIn,##class(AXimpl.ConfigIn).%New())
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	
 	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Verwerk">
 <FormalSpec>FullFilename:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ..Logger.Info("Verwerking inkomende AX bestand", "Bestandsnaam " _FullFilename)
+	
 	Try {
 
 		#dim SubPath As %String = ..ExtractSubPath(FullFilename)
@@ -94,7 +103,7 @@
 <Implementation><![CDATA[
 	#dim ExceptionMessage As %String = "Filename : " _FullFilename _$$$CRLF
 	Set ExceptionMessage = ExceptionMessage _Exception.GeefOmschrijving()
-	Do ##class(vhLib.Logger).%New().Error("Verwerking inkomende AX bestand", ExceptionMessage)
+	Do ..Logger.Error("Verwerking inkomende AX bestand", ExceptionMessage)
 ]]></Implementation>
 </Method>
 </Class>