Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r37657 -r37817
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37657)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37817)
@@ -18,6 +18,11 @@
 <Default>1</Default>
 </Parameter>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DateTimeAPI">
 <Type>TECH.DateTime.impl.DateTimeAPI</Type>
 <Private>1</Private>
@@ -35,6 +40,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	set ..Logger = ##class(vhLib.Logger).%New()
 	Set ..DateTimeAPI = $$$Inject(DateTimeAPI,##class(TECH.DateTime.impl.DateTimeAPI).%New())
 	Set ..Kopieerder = $$$Inject(Kopieerder,##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New())
 	Quit $$$OK
@@ -89,6 +95,8 @@
 	
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1")	
 	
+	Do ..Logger.Info("BLOrdRsp UpdateVerwerkVlag ", "Toelevering : "_ToeleveringsNummer_"."_ToeleveringsUniekLijnNummer_" Aantal "_Aantal_" op "_LeverDatum )		
+	
 	set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100)
 
 	quit:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer)))
@@ -138,7 +146,9 @@
 <Method name="VerwijderToelevering">
 <FormalSpec>ToeleveringsNummer:%String</FormalSpec>
 <Implementation><![CDATA[
+	
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1")
+	Do ..Logger.Info("BLOrdRsp VerwijderToelevering", "Toelevering : "_ToeleveringsNummer)		
 	Kill @..#Global(ToeleveringsNummer)
 ]]></Implementation>
 </Method>