Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml
===================================================================
diff -u -r32389 -r32416
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 32389)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 32416)
@@ -103,6 +103,8 @@
 <Implementation><![CDATA[
 	#dim FtpString As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("KvikFactuur.Export.Ftp.Configuratie")
 	#dim FtpConfiguratie As TECH.Ftp.FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New(FtpString)
+	#dim FtpBestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("KvikFactuur.Export.Ftp.ServerBestandLocatie")
+	Set FtpConfiguratie.ServerBestandsLocatie = FtpBestandLocatie
 	quit FtpConfiguratie
 ]]></Implementation>
 </Method>
@@ -114,7 +116,8 @@
 	try {
 		#dim NieuwBestandLocatie As %String = ##class(TECH.Files).AppendSubPath(..BestandLocatie,SubLocatie) 
 		#dim NieuwBestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(NieuwBestandLocatie,..BestandsNaam)
-		Do $ZUTIL(140,11,..GeefBestandVolledigeNaam(),NieuwBestandVolledigeNaam)
+		
+		Do ##class(TECH.Files).CopyFile(..GeefBestandVolledigeNaam(),NieuwBestandVolledigeNaam)
 		Do ##class(TECH.File).Delete(..GeefBestandVolledigeNaam())
 	} catch {}
 ]]></Implementation>
Index: vhDeploy/Deploy20160127FtpBestandsLocatie.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160127FtpBestandsLocatie.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160127FtpBestandsLocatie.cls.xml	(revision 32416)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160127FtpBestandsLocatie">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItem bestandslocatie voor Factuur export Ftp toevoegen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "KvikFactuur.Export.Ftp.ServerBestandLocatie"
+	#dim ProductieKvikFactuurFtp As %String = ""
+	#dim DevelopmentKvikFactuurFtp As %String = "Kvik"
+	
+	If ('(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel)))
+	{
+		If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving() = "PROD"){
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,ProductieKvikFactuurFtp)
+		}Else{
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,DevelopmentKvikFactuurFtp)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>