Index: vhTest/Fake/TECH/Ftp/FtpAPI/SchrijfNaarBestand.cls.xml
===================================================================
diff -u -r32380 -r32489
--- vhTest/Fake/TECH/Ftp/FtpAPI/SchrijfNaarBestand.cls.xml	(.../SchrijfNaarBestand.cls.xml)	(revision 32380)
+++ vhTest/Fake/TECH/Ftp/FtpAPI/SchrijfNaarBestand.cls.xml	(.../SchrijfNaarBestand.cls.xml)	(revision 32489)
@@ -27,6 +27,14 @@
 
 <Method name="VerzendStream">
 <FormalSpec>Stream:%Stream,ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim NieuweVolledigeBestandsNaam As %String = ##class(TECH.Files).AppendFile(..Configuratie.ServerBestandsLocatie,ServerBestandsNaam)
+    Set FileStream=##class(%File).%New(NieuweVolledigeBestandsNaam)
+    Do FileStream.Open("WSN")
+    Do FileStream.CopyFrom(Stream)
+    d FileStream.Close()
+    s FileStream=""
+]]></Implementation>
 </Method>
 </Class>