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