Index: APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml
===================================================================
diff -u -r29059 -r66930
--- APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml	(.../WebServerUrlBepaler.cls.xml)	(revision 29059)
+++ APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml	(.../WebServerUrlBepaler.cls.xml)	(revision 66930)
@@ -8,6 +8,13 @@
 <Default>E:\InetpubFOP</Default>
 </Parameter>
 
+<Parameter name="SharedMapNaarInetpub">
+<Description>
+Naam van de Netwerk-share op FOP, zonder de servernaam of backslashes! </Description>
+<Type>%String</Type>
+<Default>InetpubFOP</Default>
+</Parameter>
+
 <Parameter name="SubDir">
 <Type>%String</Type>
 <Default>\pdfs\Tmp\</Default>
@@ -25,7 +32,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ServerNaam=$$$Implementation(ServerNaam,"fop")
+	Set ..ServerNaam=$$$If($$$HasLength($G(ServerNaam)),ServerNaam,"fop")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -50,6 +57,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNetwerkLocatieViaSharedMap">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim NetwerkLocatieVanInetpub As %String = ..GeefNetwerkSharedMapVanInetpub()
+	#dim SubDir As %String = ..GeefSubDir()
+	Quit ##class(TECH.Files).AppendFile(NetwerkLocatieVanInetpub_SubDir, BestandNaam)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLokaalPadOpIISServer">
 <FormalSpec>BestandNaam:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -81,6 +98,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNetwerkSharedMapVanInetpub">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	; LET OP: de shared map is alleen aanwezig op Fop ! 
+	Quit "\\"_ ..ServerNaam _"\"_ ..#SharedMapNaarInetpub _""
+]]></Implementation>
+</Method>
+
 <Method name="GeefLokaalPadVanInetpub">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>