Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml
===================================================================
diff -u -r37031 -r38146
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 37031)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 38146)
@@ -3,6 +3,11 @@
 <Class name="APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger">
 <Super>TECH.RegisteredObject</Super>
 
+<Parameter name="Applicatie">
+<Type>%String</Type>
+<Default>AankoopControle</Default>
+</Parameter>
+
 <Property name="XmlCorrelater">
 <Type>TECH.XMLCorrelater</Type>
 <Private>1</Private>
@@ -28,18 +33,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder,Service:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie(..#Applicatie)
+	set ..Logger = ##class(vhLib.Logger).%New()
 	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
 	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
 	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New())
-	set ..Service = $$$Inject(Service,##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New())
+	set ..Service = $$$Inject(Service,##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New())	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -48,13 +59,16 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
  	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") ##class(%ListOfObjects).%New()
+	Do ..Logger.Info("XML Orderbevestigingberichten verwerken","Begin inlezen bestanden")		
 
 	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
 	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
 	While BestandenListIterator.HasNext()
 	{
 		Do ..VerwerkXMLBestand(BestandenListIterator.Next().Name)
 	}
+	Do ..Logger.Info("XML Orderbevestigingberichten verwerken","Einde inlezen bestanden")
+
 	Quit BestandenList
 ]]></Implementation>
 </Method>
@@ -65,9 +79,11 @@
 <Implementation><![CDATA[
 	try
 	{
+		Do ..Logger.Info("Orderbevestigingberichten verwerken",BestandVolledigeNaam)
 		Set COASO = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
 		Do ..Service.Bewaar(COASO)
 		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
+		Do ..Logger.Info("Orderbevestigingberichten verwerken","Bericht verwerkt en gearchiveerd")
 	} 
 	catch 
 	{