Index: BL/EC/Common.inc.rou
===================================================================
diff -u -r760 -r2009
--- BL/EC/Common.inc.rou	(.../Common.inc.rou)	(revision 760)
+++ BL/EC/Common.inc.rou	(.../Common.inc.rou)	(revision 2009)
@@ -29,6 +29,7 @@
  #define tgUitlevering    "MN:UL"
  #define tgHistoriek      "MN:HS"
  #define tgFavorites      "MN:FV"
+ #define tgPrijsLijst     "MN:PL"
  #define tgKlantProdRef   "MN:KPR"
  #define tgIntraStat      "MN:IS"
  
@@ -255,7 +256,9 @@
  
 	;RecordTypes
 	#Define rtPDF    "PDF"
- 
+ 	#define rtXML	 "XML"
+ 	#define rtCHECK	 "CHK"
+ 	
 	;FTP servername
 	#Define vHisieDownloadIntern  "vhisiedownload.vanhoecke.be"
 	#Define vHisieDownloadExtern  "http://res.vanhoecke.be/vhisiedownload"
Index: BL/Flow/PrijsLijst/Doc.cls.xml
===================================================================
diff -u -r1890 -r2009
--- BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1890)
+++ BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 2009)
@@ -284,6 +284,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TransformToXMLAndFtpFromXML">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>XmlPath:%String,FtpPath:%String,FileName:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="RenderAndFTPFromXML">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>XmlPath:%String,FtpPath:%String,FileName:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="RenderAndFileFromXML">
 <Description>
 XmlPath t.o.v. FOP-server definiëren
Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r1074 -r2009
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 1074)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 2009)
@@ -2976,6 +2976,8 @@
 </Method>
 
 <Method name="GetDocumentURL">
+<Description>
+s x=##class(BL.EC.Data).%New().GetDocumentURL("XX","MN:PL","CHK","",1239)</Description>
 <FormalSpec>URLKey,Toegang,RecordType,DocNr,KlantNr</FormalSpec>
 <ReturnType>BL.EC.pxDocLink</ReturnType>
 <Implementation><![CDATA[
@@ -3018,6 +3020,24 @@
 	..  Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"LEV"_DocNr_".pdf"
 	..  Set Status=##class(BL.Flow.Levering.Doc).RenderAndFtpDoc(DocNr,$$$vHisieDownloadIntern,,FileName) 
 	..  Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Prijslijst
+	Else  If Toegang=$$$tgPrijsLijst Do
+	. If RecordType=$$$rtPDF Do ; converteren van gearchiveerde prijslijst XML naar PDF
+	.. 	Set XMLPad=$LG(##class(BL.Flow.PrijsLijst.Doc).ArchiveFullPathUser(KlantNr))
+	..  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=$LG(##class(BL.Flow.PrijsLijst.Doc).ArchiveFullPathUser(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 controle of gearchiveerde prijslijst XML bestaat
+	.. 	Set XMLPad=$LG(##class(BL.Flow.PrijsLijst.Doc).ArchiveFullPathUser(KlantNr))
+	..  ;Set DocURL="NO DOC"
+	..  Set:$L(XMLPad) DocURL="HAS DOC"
 	;Webshop
 	Else  If Toegang=$$$tgWebShop Do
 	. $$$blFlowOfferte