Index: vhUnitTest/APPS/common/Document/impl/DocBase/WebServerUrlBepaler/Test.cls.xml
===================================================================
diff -u -r29059 -r66925
--- vhUnitTest/APPS/common/Document/impl/DocBase/WebServerUrlBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/common/Document/impl/DocBase/WebServerUrlBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 66925)
@@ -58,6 +58,15 @@
 	Do $$$AssertEquals(UrlBepaler.GeefNetwerkLocatie(BestandNaam),"\\fop\E$\InetpubFOP\pdfs\Tmp\dummyfile.dmy")
 ]]></Implementation>
 </Method>
+
+<Method name="Test GeefNetwerkLocatieViaSharedMap met BestandNaam">
+<Implementation><![CDATA[
+	Set UrlBepaler = ##class(APPS.common.Document.impl.DocBase.WebServerUrlBepaler).%New()
+	#dim BestandNaam As %String = "dummyfile.dmy"
+	
+	Do $$$AssertEquals(UrlBepaler.GeefNetwerkLocatieViaSharedMap(BestandNaam),"\\fop\InetpubFOP\pdfs\Tmp\dummyfile.dmy")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml
===================================================================
diff -u -r29059 -r66925
--- 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 66925)
@@ -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>
@@ -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>
Index: vhTest/Mock/APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml
===================================================================
diff -u -r66924 -r66925
--- vhTest/Mock/APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml	(.../WebServerUrlBepaler.cls.xml)	(revision 66924)
+++ vhTest/Mock/APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml	(.../WebServerUrlBepaler.cls.xml)	(revision 66925)
@@ -28,6 +28,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNetwerkLocatieViaSharedMap">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNetwerkLocatieViaSharedMap",BestandNaam)
+]]></Implementation>
+</Method>
+
 <Method name="GeefUrl">
 <FormalSpec>BestandNaam:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Fake/APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml
===================================================================
diff -u -r29059 -r66925
--- vhTest/Fake/APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml	(.../WebServerUrlBepaler.cls.xml)	(revision 29059)
+++ vhTest/Fake/APPS/common/Document/impl/DocBase/WebServerUrlBepaler.cls.xml	(.../WebServerUrlBepaler.cls.xml)	(revision 66925)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNetwerkLocatieViaSharedMap">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefUrl">
 <FormalSpec>BestandNaam:%String</FormalSpec>
 <ReturnType>%String</ReturnType>