Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r48404 -r58622
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 48404)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 58622)
@@ -3193,6 +3193,7 @@
 <Implementation><![CDATA[
 	#dim FileNameMetPlaceholder As %String = ..GeefUniekeNaamVoorFTP(URLKey,##class(TECH.File).GeefBestandsnaam(Bestandsnaam),##class(TECH.File).GeefExtensie(Bestandsnaam))
 	#dim FileName As %String = ..VervangPlaceholder(FileNameMetPlaceholder)
+	Do ..VoegToeLogging("GetDocumentURLDirect","Bestand '"_Bestandsnaam_"' met key '"_URLKey_"' wordt verplaatst naar "_..#DocumentPadCache_"\"_FileName)
 	Do ##class(TECH.File).CopyFile(Bestandsnaam,..#DocumentPadCache_"\"_FileName)
 	Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
 	#dim DocURL As %String = $$$vHisieDownloadExtern_"/"_FileName
@@ -3343,9 +3344,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeLogging">
+<FormalSpec>Actie:%String,Detail:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Logger = ##class(vhLib.Logger).%New("")
+	Do Logger.Debug(Actie,Detail)
+]]></Implementation>
+</Method>
+
 <Method name="CopyFileFTP">
 <FormalSpec>FromPath:%String,ToPath:%String,FileName:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ..VoegToeLogging("CopyFileFTP","Kopieer via FTP : Bestand '"_FileName_"' van '"_FromPath_"' naar "_ToPath)
+
 	Set FTPFileName=$P(FileName,".",$L(FileName,".")-1)_".ftp"
 	Set FTPFileDevice=$$OPEN^vhDEV(FromPath,FTPFileName,"W","M")
 	Use FTPFileDevice
@@ -3356,6 +3368,7 @@
 	Do CLOSE^vhDEV(FTPFileDevice) 
 	Set Command="FTP -s:"_$$FULLPAD^vhDEV(FromPath,FTPFileName)
 	Set X=$ZF(-1,Command)
+	Do ..VoegToeLogging("CopyFileFTP","Succesvol gekopieerd via FTP : Bestand '"_FileName_"'.")
 	; opkuis bestanden
 	Do SCANDIR^vhDEV(FromPath,"*.*",,"X",1)
 ]]></Implementation>