Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r38273 -r48404
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 38273)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 48404)
@@ -3053,7 +3053,7 @@
 </Method>
 
 <Method name="GeefUniekeNaamVoorFTP">
-<FormalSpec>GedeelteNaarBase64:%String,GedeelteLetterlijk:%String,Extensie:%String="pdf"</FormalSpec>
+<FormalSpec>GedeelteNaarBase64:%String,GedeelteLetterlijk:%String,Extensie:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -3187,6 +3187,21 @@
 <Default>\\cache01\AX.EC\TempDoc</Default>
 </Parameter>
 
+<Method name="GetDocumentURLDirect">
+<FormalSpec>URLKey,Bestandsnaam</FormalSpec>
+<ReturnType>BL.EC.pxDocLink</ReturnType>
+<Implementation><![CDATA[
+	#dim FileNameMetPlaceholder As %String = ..GeefUniekeNaamVoorFTP(URLKey,##class(TECH.File).GeefBestandsnaam(Bestandsnaam),##class(TECH.File).GeefExtensie(Bestandsnaam))
+	#dim FileName As %String = ..VervangPlaceholder(FileNameMetPlaceholder)
+	Do ##class(TECH.File).CopyFile(Bestandsnaam,..#DocumentPadCache_"\"_FileName)
+	Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName)
+	#dim DocURL As %String = $$$vHisieDownloadExtern_"/"_FileName
+	#dim pxDocLink As BL.EC.pxDocLink = ##class(BL.EC.pxDocLink).Create("","",DocURL)
+
+	Quit pxDocLink
+]]></Implementation>
+</Method>
+
 <Method name="GetDocumentURL">
 <Description>
 s x=##class(BL.EC.Data).%New().GetDocumentURL2("XX","MN:FA","PDF","409656",1736)