Index: TECH/Ftp/impl/FtpApiFileBased.cls.xml
===================================================================
diff -u
--- TECH/Ftp/impl/FtpApiFileBased.cls.xml	(revision 0)
+++ TECH/Ftp/impl/FtpApiFileBased.cls.xml	(revision 2866)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Ftp.impl.FtpApiFileBased">
+<Super>TECH.Ftp.impl.FtpAPI</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Path">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = ##class(TECH.File.impl.FileAPI).%New()
+	set ..Path = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory"),"FTP")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Connecteer">
+<FormalSpec>Configuratie:TECH.Ftp.FtpConfiguratie</FormalSpec>
+</Method>
+
+<Method name="VerbreekVerbinding">
+</Method>
+
+<Method name="VerzendBestand">
+<FormalSpec>VolledigeBestandsNaam:%String,ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[	do ..FileAPI.CopyFile(VolledigeBestandsNaam,##class(TECH.Files).AppendFile(..Path,ServerBestandsNaam))
+]]></Implementation>
+</Method>
+
+<Method name="VerzendStream">
+<FormalSpec>Stream:%Stream,ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim FullFilename As %String = ##class(TECH.Files).AppendFile(..Path,ServerBestandsNaam)
+	do:##class(TECH.File).Exists(FullFilename) ##class(TECH.File).Delete(FullFilename)
+	
+	set WriteableFile = ##class(TECH.File.impl.FileWriter).%New()
+	do WriteableFile.Open(FullFilename,$$$true)
+	do WriteableFile.WriteStream(Stream)
+	do WriteableFile.Close()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBestand">
+<FormalSpec>ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	if '##class(TECH.File).Delete(##class(TECH.Files).AppendFile(..Path,ServerBestandsNaam)){
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ftp kan het bestand niet Verwijderen ! " _ServerBestandsNaam)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLijst">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim FileArray As %ArrayOfDataTypes
+	If '..FtpSessie.NameList("",.FileArray) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ftp kan bestandlijst niet opvragen ! ")
+		}
+	quit FileArray
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Ftp/impl/FtpAPI.cls.xml
===================================================================
diff -u -r2241 -r2866
--- TECH/Ftp/impl/FtpAPI.cls.xml	(.../FtpAPI.cls.xml)	(revision 2241)
+++ TECH/Ftp/impl/FtpAPI.cls.xml	(.../FtpAPI.cls.xml)	(revision 2866)
@@ -1,23 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Ftp.impl.FtpAPI">
-<Super>TECH.Ftp.FtpAPI,%RegisteredObject</Super>
+<Super>TECH.RegisteredObject,TECH.Ftp.FtpAPI</Super>
 
 <Property name="FtpSessie">
 <Type>%Net.FtpSession</Type>
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="Connecteer">
 <FormalSpec>Configuratie:TECH.Ftp.FtpConfiguratie</FormalSpec>
 <Implementation><![CDATA[