Index: BL/Flow/Basis/DocNew.cls.xml
===================================================================
diff -u -r2038 -r2042
--- BL/Flow/Basis/DocNew.cls.xml	(.../DocNew.cls.xml)	(revision 2038)
+++ BL/Flow/Basis/DocNew.cls.xml	(.../DocNew.cls.xml)	(revision 2042)
@@ -327,11 +327,7 @@
 	Else  Do
 	. Set FtpSrcPath=""   ; TO DO : indicate that SourceData should be retrieved from the (temp)Stream object
 
-	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)
 	Set ..FopTask=Task
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
Index: BL/Flow/Offerte/Doc.cls.xml
===================================================================
diff -u -r2038 -r2042
--- BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 2038)
+++ BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 2042)
@@ -199,11 +199,7 @@
 	Else  Do
 	. Set FtpSrcPath=""   ; TO DO : indicate that SourceData should be retrieved from the (temp)Stream object
 
-	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
Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r2038 -r2042
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 2038)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 2042)
@@ -2988,18 +2988,6 @@
 	Set Status=$$$OK        ;Invullen bij fout (komt in de logging terecht=INTERNAL MESSAGE, gebruiker ziet deze boodschap NIET)
 	Set InterfaceError=""   ;Invullen als een andere boodschap dan de standaard boodschap aan de gebruiker moet getoond worden
 	
- /***   *** /
-	// Tijdelijk aanpassen van de input-parameters om de oproepen van PrijsLijst te kunnen testen  (Added by WimV on 08/09/2011) 
-	If Toegang=$$$tgFactuur Do
-	. Set Toegang=$$$tgPrijsLijst
-	. Set RecordType=$$$rtCHECK
-	. Set DocNr=""
-	Else  If Toegang=$$$tgWebShop Do
-	. Set Toegang=$$$tgPrijsLijst
-	. Set RecordType=$$$rtPDF   ; $$$rtXML   ; 
-	. Set DocNr=""
- /***   ***/
-	
 	;Factuur
 	If Toegang=$$$tgFactuur Do
 	. Set Status=##class(BL.Flow.Factuur.Doc).ValidateFactNr("F",DocNr,KlantNr)
@@ -3040,18 +3028,16 @@
 	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"PL.pdf"
 	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).RenderAndFtpFromXML(XMLPad,$$$vHisieDownloadIntern,,FileName) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
-	. . ;Set:($$$ISOK(Status)) DocURL="http://res.vanhoecke.be/cat/vanhoecke/pdf/test.pdf" ; tijdens test
 	. Else  If RecordType=$$$rtXML Do
 	. . // Converteren van gearchiveerde prijslijst XML naar XML voor XLS 
 	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
 	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"PL.xml"
 	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).TransformToXMLAndFtpFromXML(XMLPad,$$$vHisieDownloadIntern,,FileName) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
-	. . ;Set:($$$ISOK(Status)) DocURL="http://res.vanhoecke.be/cat/vanhoecke/pdf/test.xml" ; tijdens test
 	. Else  If RecordType=$$$rtCHECK Do
 	. . // Alleen controleren of er een gearchiveerde prijslijst XML bestaat 
 	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
-	. . Set KlantHeeftPrijslijst=($L(XMLPad)) && (KlantNr'=1000)   ; Klant 1000 als test : geen prijslijst
+	. . Set KlantHeeftPrijslijst=($L(XMLPad)) && (KlantNr'=1000)   ; Klant 1000 als test : geen prijslijst (09/09/2011)
 	. . Set DocURL=$S(KlantHeeftPrijslijst:"HAS DOC", 1:"NO DOC")
 	;Webshop
 	Else  If Toegang=$$$tgWebShop Do
@@ -3107,9 +3093,6 @@
 	
 	Set lbArchivedXMLFiles=##class(BL.Flow.PrijsLijst.Doc).ArchiveFullPathUser(KlantNr)
 	Set XMLPadVoorActuelePrijslijst=$LG(lbArchivedXMLFiles,1)
-	
-	;Set XMLPadVoorActuelePrijslijst="Dummy pad for testing"   ; WimV on 08/09/2011 
-
 	Quit XMLPadVoorActuelePrijslijst
 ]]></Implementation>
 </Method>
Index: BL/Sys/FOP/TaskMgr.cls.xml
===================================================================
diff -u -r2038 -r2042
--- BL/Sys/FOP/TaskMgr.cls.xml	(.../TaskMgr.cls.xml)	(revision 2038)
+++ BL/Sys/FOP/TaskMgr.cls.xml	(.../TaskMgr.cls.xml)	(revision 2042)
@@ -317,18 +317,31 @@
 	Else  Do
 	. Set FtpSrcPath=""   ; TO DO : indicate that SourceData should be retrieved from the (temp)Stream object
 
-	If $$$LCase(FtpServer)?1(1"vhisiedownload.vanhoecke.be",1"testftp") Do
-	. Set tmpUserName="Tineke"
-	. Set tmpPassWord="T!neKe"
-	. Set tmpPort=""
-	. Set tmpBinaryFtp=""
+	Do ..GeefFtpConnectionSettings(FtpServer, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp)
 	Set DeleteAfterSend=1
 	Set:($$$ISOK(sc)) sc=Task.AddActionFtp(FtpServer,FtpSrcPath,.DestDir,.DestFName, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp, DeleteAfterSend)
 	Set ..FopTask=Task
 	Quit sc
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFtpConnectionSettings">
+<Description>
+Tijdelijk hard-coded credentials </Description>
+<FormalSpec><![CDATA[FtpServer:%String,&UserName:%String,&PassWord:%String,&FtpPort:%String,&BinaryFtp:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	If $$$LCase(FtpServer)?1(1"vhisiedownload.vanhoecke.be",1"testftp") {
+		Set UserName="Tineke"
+		Set PassWord="T!neKe"
+		Set FtpPort=""
+		Set BinaryFtp=""
+	}
+	Else {
+	}
+	Quit
+]]></Implementation>
+</Method>
+
 <Method name="BuildTaskRenderAndFileFromXML">
 <Description>
 FopTask voor "Render And File" aanmaken.