Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r58696 -r58697
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 58696)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 58697)
@@ -3357,16 +3357,19 @@
 <FormalSpec>FromPath:%String,ToPath:%String,FileName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VoegToeLogging("CopyFileFTP","Kopieer via FTP : Bestand '"_FileName_"' van '"_FromPath_"' naar "_ToPath)
+	
+	#dim FTPFileName,FTPFileDevice,Command As %String
+	#dim FtpServerAdres As %String = $$$vHisieDownloadIntern   ; "192.168.100.3"
 
 	Set FTPFileName=$P(FileName,".",1,$L(FileName,".")-1)_".ftp"
 	Set FTPFileDevice=$$OPEN^vhDEV(FromPath,FTPFileName,"W","M")
 	Use FTPFileDevice
-	Write "OPEN "_$$$vHisieDownloadIntern,!!
+	Write "OPEN "_FtpServerAdres,!!
 	Write "USER APELL ""LéK&è§""",!
 	Write "PUT "_$$FULLPAD^vhDEV(FromPath,FileName),!
 	Write "BYE",!
 	Do CLOSE^vhDEV(FTPFileDevice) 
-	Do ..VoegToeLogging("CopyFileFTP","Starten FTP met FTP commandfile: '"_FTPFileName_"'.")
+	Do ..VoegToeLogging("CopyFileFTP","Starten FTP met FTP commandfile: '"_FTPFileName_"' naar adres '"_FtpServerAdres_"'.")
 	Set Command="FTP -s:"_$$FULLPAD^vhDEV(FromPath,FTPFileName)
 	Set X=$ZF(-1,Command)
 	Do ..VoegToeLogging("CopyFileFTP","Succesvol gekopieerd via FTP : Bestand '"_FileName_"'.")