Index: BL/Flow/PrijsLijst/Doc.cls.xml
===================================================================
diff -u -r2009 -r2038
--- BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 2009)
+++ BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 2038)
@@ -285,16 +285,76 @@
 </Method>
 
 <Method name="TransformToXMLAndFtpFromXML">
+<Description>
+De volledige Prijslijst-xml omzetten naar de "XML-voor-Excel" versie  en deze via ftp naar de www verzenden 
+XmlPath t.o.v. FOP-server definiëren
+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>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>XmlPath:%String,FtpPath:%String,FileName:%String</FormalSpec>
-<Implementation><![CDATA[	Quit $$$OK
+<FormalSpec>XmlPath:%String,FtpServer:%String,DestDir:%String,DestFName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define SuffixUniqueJob   $TR($P($ZTS,",",2),".","_")_"_job"_$J
+	
+	Set FName=..#DocCode_"_FtpTemp"_$$$SuffixUniqueJob_"_"_$ZD($H,8)_".pdf"
+	Do ..BuildFileData("TempFTP", .FName,.Dir,.FilePath, "")
+	Quit:(Dir="") $$$ERROR($$$GeneralError,"Invalid directory specified: "_Dir)
+
+	// De volledige Prijslijst-xml omzetten naar de "XML-voor-Excel" versie 
+	Set sc=..TransformToXMLFromXML(XmlPath,FilePath)   ; Deze actie gebeurt onmiddellijk en in-process !!!  D.w.z. maakt geen gebruik van de FOP scheduler (bij gebrek van de implementatie) 
+	
+	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=""
+		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,)
+	}
+	
+	Quit sc
 ]]></Implementation>
 </Method>
 
-<Method name="RenderAndFTPFromXML">
+<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>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>XmlPath:%String,FtpPath:%String,FileName:%String</FormalSpec>
-<Implementation><![CDATA[	Quit $$$OK
+<FormalSpec>XmlPath:%String,FtpServer:%String,DestDir:%String,DestFName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define SuffixUniqueJob   $TR($P($ZTS,",",2),".","_")_"_job"_$J
+
+	Do ..BuildFileData("TempFTP", .FName,.Dir,.FilePath, "FtpTemp"_$$$SuffixUniqueJob)   ; The returned 'Dir' can be local path to FOP; the 'Dir in the FilePath' is the network-converted 'Dir'
+	Quit:(Dir="") $$$ERROR($$$GeneralError,"Invalid directory specified: "_Dir)
+
+	// Task definieren voor de omzetting naar PDF 
+	Set TFType="PDF"
+	Set Task=..CreateFopTask("DocRenderAndFtp",,)
+	Set sc=..DocSetRenderData(Task.AddDoc(), "FILE",XmlPath, ,TFType, $LB(), ..BuildXsltParams(,$G(pWithLogo,1),,"",""))
+	Set:($$$ISOK(sc)) sc=Task.AddActionFile(FName,Dir)
+	
+	// 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=""
+	Set DeleteAfterSend=1
+	Set:($$$ISOK(sc)) sc=Task.AddActionFtp(FtpServer,FtpSrcPath,.DestDir,.DestFName, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp, DeleteAfterSend)
+	Quit:($$$ISERR(sc)) sc
+	
+	// Task aan Queue van FOP-scheduler toevoegen (runmode InLine --> tevens ook wachten tot de task afgehandeld is)
+	Set sc=##class(BL.Sys.FOP.CommonTasks).RunFopTask(Task,$$$rmInLine)
+	Quit sc
 ]]></Implementation>
 </Method>