Index: BL/Flow/PrijsLijst/Doc.cls.xml
===================================================================
diff -u -r2038 -r2042
--- BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 2038)
+++ BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 2042)
@@ -291,7 +291,7 @@
 Deze call maakt 2 afzonderlijke opdrachten : 
 nl. eerst een XSLTransform (via WS rechtstreeks naar DocBase) en daarna de Ftp-send (is caché-task via de FOP-scheduler) 
 
- s sc=##class(BL.Flow.PrijsLijst.Doc).TransformToXMLAndFtpFromXML("\\Notes01\Archive\PrijsLijst\PrijsLijst_1239_20081001.xml","testftp",,"TestWimV.xml")   w sc,!,$G(fp),! </Description>
+ s sc=##class(BL.Flow.PrijsLijst.Doc).TransformToXMLAndFtpFromXML("\\Notes01\Archive\PrijsLijst\PrijsLijst_1239_20081001.xml","vhisiedownload.vanhoecke.be",,"TestWimV.xml")   w sc,! </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>XmlPath:%String,FtpServer:%String,DestDir:%String,DestFName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -308,11 +308,7 @@
 	If $$$ISOK(sc) {
 		// De getransformeerde xml via ftp naar www verzenden 
 		Set FtpSrcPath=FilePath
-		If $$$LCase(FtpServer)?1(1"vhisiedownload.vanhoecke.be",1"testftp") Do
-		. Set tmpUserName="Tineke"
-		. Set tmpPassWord="T!neKe"
-		. Set tmpPort=""
-		. Set tmpBinaryFtp=""
+		Do ##class(BL.Sys.FOP.TaskMgr).GeefFtpConnectionSettings(FtpServer, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp)
 		Set DeleteAfterSend=1
 		Set ActionFTP=##class(Sys.FOP.SubTaskFTP).%New(FtpServer,FtpSrcPath,.DestDir,.DestFName, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp, DeleteAfterSend)
 		Set sc=##class(BL.Sys.FOP.CommonTasks).SendFileToFtpServer(ActionFTP, $$$rmInLine,)
@@ -325,7 +321,9 @@
 <Method name="RenderAndFtpFromXML">
 <Description>
 Deze call maakt 1 FOP-scheduler opdracht, die de volledige Prijslijst-xml omzet naar PDF-versie en deze via ftp naar de www verzendt 
-XmlPath t.o.v. FOP-server definiëren</Description>
+XmlPath t.o.v. FOP-server definiëren
+Oproepen via :
+  s sc=##class(BL.Flow.PrijsLijst.Doc).RenderAndFtpFromXML("\\Notes01\Archive\PrijsLijst\PrijsLijst_1239_20081001.xml","vhisiedownload.vanhoecke.be",,"TestWimV.pdf")   w sc,! </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>XmlPath:%String,FtpServer:%String,DestDir:%String,DestFName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -343,11 +341,7 @@
 	
 	// SubTask toevoegen voor verzenden via FTP
 	Set FtpSrcPath=FilePath
-	If $$$LCase(FtpServer)?1(1"vhisiedownload.vanhoecke.be",1"testftp") Do
-	. Set tmpUserName="Tineke"
-	. Set tmpPassWord="T!neKe"
-	. Set tmpPort=""
-	. Set tmpBinaryFtp=""
+	Do ##class(BL.Sys.FOP.TaskMgr).GeefFtpConnectionSettings(FtpServer, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp)
 	Set DeleteAfterSend=1
 	Set:($$$ISOK(sc)) sc=Task.AddActionFtp(FtpServer,FtpSrcPath,.DestDir,.DestFName, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp, DeleteAfterSend)
 	Quit:($$$ISERR(sc)) sc