Index: BL/Sys/FOP/Test.cls.xml
===================================================================
diff -u -r66530 -r73460
--- BL/Sys/FOP/Test.cls.xml	(.../Test.cls.xml)	(revision 66530)
+++ BL/Sys/FOP/Test.cls.xml	(.../Test.cls.xml)	(revision 73460)
@@ -572,34 +572,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestFtpSend">
-<Description>
-Voert een TEST FtpSend uit.   Oproepen via : 
-  s sc=##class(BL.Sys.FOP.Test).TestFtpSend()</Description>
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	/*   * /
-	Set SrcPath=$$$CvtFopE2Ntw("E:\FOP\PDFTest\Factuur")_"\Facts002c.pdf"
-	s sc=##class(BL.Sys.FOP.Test).FtpSend(SrcPath,FtpServer,,"Tineke","T!neKe",.DestDir,DestFName)
-	;s sc=##class(BL.Sys.FOP.Test).FtpSend(SrcPath,$G(FtpServer,"vhisiedownload.vanhoecke.be"),,"Tineke","T!neKe",DestDir,DestFName)
-	q sc
-	/*   */
-	
-#define FtpServer    "vhisiedownload.vanhoecke.be"
-#define DestDir      ""
-#define FtpServer2   "testFTP"
-#define DestDir2     "Blum\TestWV\"
-#define SrcPath      "\\cache02\c$\Temp\FactuurList_40157.xml"
-	Set %ClientIP=$G(%ClientIP,"192.168.1.97")
-	Set SrcPath=$$$SrcPath
-	Set DestFName="testfileFTP_"_$P($H,",",2)_".txt"
-	Set sc=..FtpSend(SrcPath,$$$FtpServer,,"Tineke","T!neKe",$$$DestDir,DestFName)
-	W $$ParseStatus^vhLib(sc)
-	Quit sc
-]]></Implementation>
-</Method>
-
 <Method name="FtpSend">
 <Description>
 Voert een FtpSend  uit.