Index: APPS/common/Document/impl/DocBase/WebServerUrlDocBaseV7Bepaler.cls.xml
===================================================================
diff -u
--- APPS/common/Document/impl/DocBase/WebServerUrlDocBaseV7Bepaler.cls.xml	(revision 0)
+++ APPS/common/Document/impl/DocBase/WebServerUrlDocBaseV7Bepaler.cls.xml	(revision 73818)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.common.Document.impl.DocBase.WebServerUrlDocBaseV7Bepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="SubDir">
+<Type>%String</Type>
+<Default>Tmp\</Default>
+</Parameter>
+
+<Property name="DocBaseDirectoryUtils">
+<Type>BL.Sys.FOP.DocBaseDirectoryUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DocBaseDirectoryUtils = ##class(BL.Sys.FOP.DocBaseDirectoryUtils).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefUrl">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InetPubURL As %String = ..DocBaseDirectoryUtils.GeefFOPInetPubURL()
+	#dim SubDir As %String = ..GeefSubDirAlsUrl()
+	Quit ##class(TECH.Files).AppendFile(InetPubURL, SubDir_BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLokaalPadOpIISServer">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LokaalPadVanInetpub As %String = ..DocBaseDirectoryUtils.GeefFOPInetPubDir()
+	#dim SubDir As %String = ..GeefSubDir()
+	Quit ##class(TECH.Files).AppendFile(LokaalPadVanInetpub _ SubDir, BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefNetwerkLocatieViaSharedMap">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.Exceptions.UnimplementedException).Throw("De NetwerkSharedMapVanInetpub op DocBase is niet beschikbaar.")   ; Hierdoor kan de opkuis niet door Caché getriggered worden.
+]]></Implementation>
+</Method>
+
+<Method name="GeefSubDirAlsUrl">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $TR(..GeefSubDir(), "\", "/")
+]]></Implementation>
+</Method>
+
+<Method name="GeefSubDir">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..#SubDir
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>