Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r29059 -r38084
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 29059)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 38084)
@@ -3044,7 +3044,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetDocumentURL">
+<Method name="GetDocumentURLold">
 <Description>
 s x=##class(BL.EC.Data).%New().GetDocumentURL("XX","MN:PL","CHK","",1239)</Description>
 <FormalSpec>URLKey,Toegang,RecordType,DocNr,KlantNr</FormalSpec>
@@ -3153,6 +3153,172 @@
 ]]></Implementation>
 </Method>
 
+<Parameter name="DocumentPadDocBase">
+<Default>\\cache01\AX.EC\TempDoc</Default>
+</Parameter>
+
+<Parameter name="DocumentPadCache">
+<Default>f:\AX.EC\TempDoc</Default>
+</Parameter>
+
+<Method name="GetDocumentURL">
+<Description>
+s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:FA","PDF","409656",1736)
+s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:OD","PDF","166946",1736)
+s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:OF","PDF","573781",1736)
+s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:UL","PDF","324914",1736)</Description>
+<FormalSpec>URLKey,Toegang,RecordType,DocNr,KlantNr</FormalSpec>
+<ReturnType>BL.EC.pxDocLink</ReturnType>
+<Implementation><![CDATA[
+	#Define errCannotOpenDoc      "PR:CannotOpenDoc"
+	#Define errOfferteIsOngeldig   "OfferteIsOngeldig"
+	
+	Set DocURL=""						;Indien leeg, dan geeft de functie een fout terug
+	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
+	
+	;Factuur
+	If Toegang=$$$tgFactuur Do
+	. Set Status=##class(BL.Flow.Factuur.Doc).ValidateFactNr("F",DocNr,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"FAC"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Factuur.Doc).RenderAndFileDoc(DocNr,"F",,.FilePad)
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Order
+	Else  If (Toegang=$$$tgOrder) || (Toegang=$$$tgContractOrder) Do
+	. Set Status=##class(BL.Flow.Order.Doc).ValidateORDNr(DocNr,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"ORD"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Order.Doc).RenderAndFileDoc(DocNr,.FilePad)
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Offerte
+	Else  If Toegang=$$$tgOfferte Do
+	. Set Status=##class(BL.Flow.Offerte.Doc).ValidateOFFNr(DocNr,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"OFF"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Offerte.Doc).RenderAndFileDoc("O-"_DocNr,.FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Uitlevering
+	Else  If Toegang=$$$tgUitlevering Do
+	. Set Status=##class(BL.Flow.Levering.Doc).ValidateBONNr(DocNr,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"LEV"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Levering.Doc).RenderAndFileDoc(DocNr,.FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	;Prijslijst
+	Else  If Toegang=$$$tgPrijsLijst Do
+	. If RecordType=$$$rtPDF Do 
+	. . // Converteren van gearchiveerde prijslijst XML naar PDF 
+	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"PL","pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).RenderAndFileFromXML(XMLPad,FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	. Else  If RecordType=$$$rtXML Do
+	. . // Converteren van gearchiveerde prijslijst XML naar XML voor XLS 
+	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"PL","xml")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).TransformToXMLFromXML(XMLPad,FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	. 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 (09/09/2011)
+	. . Set DocURL=$S(KlantHeeftPrijslijst:"HAS DOC", 1:"NO DOC")
+	;Webshop
+	Else  If Toegang=$$$tgWebShop Do
+	. $$$blFlowOfferte
+	. Set:'DocNr DocNr=%ECSession.PrevWebShopID ; onthouden omdat de flex app na goedvoor order geen WebShopId meer heeft
+	. Set objOfferte=%blFlowOfferte.Open(DocNr)
+	. If '$IsObject(objOfferte) Do  Quit
+	. . Set Status=$$$ERROR($$$GeneralError,"Offerte hoofding '"_DocNr_"' kan niet geopend worden.")
+	. Set Status=##class(BL.Flow.Offerte.Doc).ValidateFlowOfferte(objOfferte,KlantNr)
+	. Quit:($$$ISERR(Status))
+	. If %blFlowOfferte.IsVervallen() Do  Quit
+	. . Set InterfaceError=$$$Translate($$$errOfferteIsOngeldig)
+	. . Set Status=$$$ERROR($$$GeneralError,"Offerte vervallen") 
+	. If objOfferte.Controle="P" Do  Quit
+	. . Set Status=$$$ERROR($$$GeneralError,"Er zijn fouten opgetreden tijdens controle van offerte '"_DocNr_"' ("_objOfferte.Commentaar_").") 
+	. If RecordType=$$$rtPDF Do
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"F"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName)
+	. . Set Status=##class(BL.Flow.Offerte.Doc).RenderAndFileDoc(DocNr,.FilePad) 
+	. . If ($$$ISOK(Status)) Do
+	. . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	. . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName
+	Else  Do
+	. Set Status=$$$ERROR($$$GeneralError,"Toegang '"_Toegang_"' is onbekend")
+
+	;-----------------------------
+	;TIJDELIJK: OPZETTELIJKE ERROR
+	;Set DocURL=""						;Indien leeg, dan geeft de functie een fout terug
+	;Set Status=$$$ERROR($$$GeneralError,"PDFs kunnen tijdelijk niet worden aangemaakt wegens onderhoud.")        ;Invullen bij fout (komt in de logging terecht=INTERNAL MESSAGE, gebruiker ziet deze boodschap NIET)
+	;Set InterfaceError="Deze optie is tijdelijk buiten gebruik wegens onderhoud, onze excuses voor het eventuele ongemak."
+	;Set InterfaceError=InterfaceError_$C(13,10)_"Veuillez noter que, en raison de l'entretien, les services de site web ne seront pas disponibles. Nous sommes désolés pour le dérangement"
+	;Set InterfaceError=InterfaceError_$C(13,10)_"Export temporary unavailable due to maintanance, we apologize for any inconvenience."   ;Invullen als een andere boodschap dan de standaard boodschap aan de gebruiker moet getoond worden
+	;-----------------------------
+	
+	If DocURL="" Do
+	. ;ERROR!
+	. Set:(InterfaceError="") InterfaceError=$$$Translate($$$errCannotOpenDoc)   ;Std error invullen indien niet ingevuld
+	. Set pxDocLink=##class(BL.EC.pxDocLink).Create(InterfaceError,"","")
+	. Do AddToLog^BL.EC.Common($$$logGrpError,"Data","GetDocURL",InterfaceError_"(extra info: "_$$ParseStatus^vhLib(Status)_"), URLKey: "_URLKey_", Toegang: "_Toegang_", RecordType: "_RecordType_", DocNr: "_DocNr)
+	Else  Do
+	. ;SUCCESS!
+	. 
+	. Do AddToLog^BL.EC.Common($$$logGrpToegang,"Data","GetDocURL","URLKey: "_URLKey_", Toegang: "_Toegang_", RecordType: "_RecordType_", DocNr: "_DocNr_" -> "_DocURL)
+	. Set pxDocLink=##class(BL.EC.pxDocLink).Create("","",DocURL)
+
+	Quit pxDocLink
+]]></Implementation>
+</Method>
+
+<Method name="CopyFileFTP">
+<FormalSpec>FromPath:%String,ToPath:%String,FileName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set FTPFileName=$P(FileName,".",$L(FileName,".")-1)_".ftp"
+	Set FTPFileDevice=$$OPEN^vhDEV(FromPath,FTPFileName,"W","M")
+	Use FTPFileDevice
+	Write "OPEN "_$$$vHisieDownloadIntern,!!
+	Write "USER Tineke ""T!neKe""",!
+	Write "PUT "_$$FULLPAD^vhDEV(FromPath,FileName),!
+	Write "BYE",!
+	Do CLOSE^vhDEV(FTPFileDevice) 
+	Set Command="FTP -s:"_$$FULLPAD^vhDEV(FromPath,FTPFileName)
+	Set X=$ZF(-1,Command)
+	; opkuis bestanden
+	Do SCANDIR^vhDEV(FromPath,"*.*",,"X",1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefXMLPadVoorActuelePrijslijst">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNr:%String</FormalSpec>