Index: BL/Prod/ImageLink.cls.xml
===================================================================
diff -u -r74755 -r74862
--- BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 74755)
+++ BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 74862)
@@ -624,6 +624,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefImageDir">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GeefString("ImagesDirectory","\\Notes01\Images")
+]]></Implementation>
+</Method>
+
 <Method name="CreateURL">
 <FormalSpec>Toepassing:APPS.common.enu.Toepassing,Pad:%String,FileNaam:%String,Extensie:%String,Sequence:%String="",DirectoryCode:%String=""</FormalSpec>
 <Implementation><![CDATA[
@@ -644,14 +652,14 @@
 	
 	If Toepassing=##class(APPS.common.enu.Toepassing).Bartender(){
 		If ..IsDirectoryCodeWebOL(DirectoryCode) {
-			Set Root="\\Notes01\Images\Orgalux",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+			Set Root=..GeefImageDir()_"\Orgalux",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 		}Else{ 
-			Set Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+			Set Root=..GeefImageDir(),Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 		}
 	}
 	
 	If (Toepassing = ..Toepassing.AX) {
-		Set Root = "\\Notes01\Images"
+		Set Root = ..GeefImageDir()
 		Set Delim = "\"
 		Set URL = ..AddPaths(Root, ..AddPaths(Pad, FileNaam _ ..GeefSequentieNummer(Sequence) _ "." _ Extensie, Delim), Delim)
 	}
@@ -669,21 +677,21 @@
 		}	
 	}
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopLink() Root="//res.vanhoecke.be/Images",Delim="/",URL="http:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbed() Root="//Notes01/Images",Delim="/",URL="file:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbedPS() Root="//Notes01/Images",Delim="/",URL="file:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbedPDF() Root="//Notes01/Images",Delim="/",URL="file:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).Print() Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).File() Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbed() Root=..GeefImageDir(),Delim="/",URL="file:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbedPS() Root=..GeefImageDir(),Delim="/",URL="file:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).FopEmbedPDF() Root=..GeefImageDir(),Delim="/",URL="file:"_$$$URL(..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim))
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).Print() Root=..GeefImageDir(),Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).File() Root=..GeefImageDir(),Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 	Set:Toepassing=##class(APPS.common.enu.Toepassing).Label() Root="",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).LabelRoot() Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).Wms() Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).Makova() Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
-	Set:Toepassing=##class(APPS.common.enu.Toepassing).Thumbnail() Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).LabelRoot() Root=..GeefImageDir(),Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).Wms() Root=..GeefImageDir(),Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).Makova() Root=..GeefImageDir(),Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+	Set:Toepassing=##class(APPS.common.enu.Toepassing).Thumbnail() Root=..GeefImageDir(),Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 	If Toepassing=##class(APPS.common.enu.Toepassing).BartenderVoorkeurVector() { 
 		If ..IsDirectoryCodeWebOL(DirectoryCode) {
-			Set Root="\\Notes01\Images\Orgalux",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+			Set Root=..GeefImageDir()_"\Orgalux",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 		}Else{
-			Set Root="\\Notes01\Images",Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
+			Set Root=..GeefImageDir(),Delim="\",URL=..AddPaths(Root,..AddPaths(Pad,FileNaam_$S($G(Sequence):"."_$E(1000+Sequence,2,4),1:"")_"."_Extensie,Delim),Delim)
 		}
 	}
 	Quit $G(URL)
@@ -711,7 +719,7 @@
 <FormalSpec>RelatiefPadNaarFolderOnderImagesFolder:%String,FileNaam:%String,Extensie:%String,Sequence:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Root As %String ="\\Notes01\Images"
+	
 	#dim Delim As %String ="\"
 	
 	#dim SequentieSuffix As %String = ""
@@ -722,7 +730,7 @@
 	
 	#dim BestandsNaamInclSequenceEnExtensie As %String = FileNaam _ SequentieSuffix _ "." _ Extensie
 	#dim RelatiefPadOnderImagesFolder As %String = ..AddPaths( RelatiefPadNaarFolderOnderImagesFolder, BestandsNaamInclSequenceEnExtensie, Delim)
-	#dim AbsoluutPad As %String =..AddPaths( Root, RelatiefPadOnderImagesFolder, Delim )
+	#dim AbsoluutPad As %String =..AddPaths( ..GeefImageDir(), RelatiefPadOnderImagesFolder, Delim )
 	
 	Quit AbsoluutPad
 ]]></Implementation>