Index: vhUnitTest/BL/Prod/TestImageLink.cls.xml
===================================================================
diff -u -r74755 -r74862
--- vhUnitTest/BL/Prod/TestImageLink.cls.xml	(.../TestImageLink.cls.xml)	(revision 74755)
+++ vhUnitTest/BL/Prod/TestImageLink.cls.xml	(.../TestImageLink.cls.xml)	(revision 74862)
@@ -10,18 +10,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ImageRootDir">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim LegacyHADWIZ As BL.Legacy.HADWIZ   ; Trigger om deze test te laten runnen bij Compile van de legacy-klasse. 
 	Set ..ImageLink = ##class(BL.Prod.ImageLink).%New()
+	Set ..ImageRootDir = ##class(TECH.Config.ConfigMgr).Instance().GeefString("ImagesDirectory","\\Notes01\Images")
 	Do ##super(aTestName)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGetInfoPageURL">
 <Implementation><![CDATA[
-	#dim ProductID As %String = 11698
+	#dim ProductID As %String = 11698   ; ProductID moet een bestaand product inAdmin zijn, anders loop je tegen OLDSCHOOL {Quit:ObjRef=""} in BL.Prod.ImageLink :-P 
 	
 	Set ProductStub = ##class(vhTest.Mock.DOM.PM.Product).%New()
 	Do ProductStub.IndienMethodCall("GeefIdentNr").DanReturn("0.251.845.3")
@@ -33,7 +38,7 @@
 	Set BLLegacyHADWIZ = ##class(BL.Legacy.HADWIZ).%New(ProductApiStub)
 	
 	Set ..ImageLink = ##class(BL.Prod.ImageLink).%New(BLLegacyHADWIZ)
-			
+	
 	Do $$$AssertEquals(..ImageLink.GetInfoPageURL(ProductID,"E"),"https://www.vanhoecke.be/nl/product/decrypt/okUqvaTf7ch56Msx!dINMA--")	
 	Do $$$AssertEquals(..ImageLink.GetInfoPageURL(ProductID,"I"),"https://www.vanhoecke.be/nl/product/decrypt/okUqvaTf7ch56Msx!dINMA--")
 ]]></Implementation>
@@ -42,43 +47,45 @@
 <Method name="TestGeefAbsoluutAfbeeldingPadOpNotesImagesAlsUNCxxZonderSequentie">
 <Implementation><![CDATA[
 	#Dim ActueelPad As %String = ..ImageLink.GeefAbsoluutAfbeeldingPadOpNotesImagesAlsUNC( "relatieffolderpad", "bestandsnaam", "extensie" )
-	Do $$$AssertEquals( "\\Notes01\Images\relatieffolderpad\bestandsnaam.extensie", ActueelPad )
+	Do $$$AssertEquals( ..ImageRootDir_"\relatieffolderpad\bestandsnaam.extensie", ActueelPad )
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefAbsoluutAfbeeldingPadOpNotesImagesAlsUNCxxMetSequentie">
 <Implementation><![CDATA[
 	#Dim ActueelPad As %String = ..ImageLink.GeefAbsoluutAfbeeldingPadOpNotesImagesAlsUNC( "relatieffolderpad", "bestandsnaam", "extensie", 5 )
-	Do $$$AssertEquals( "\\Notes01\Images\relatieffolderpad\bestandsnaam.005.extensie", ActueelPad )
+	Do $$$AssertEquals( ..ImageRootDir_ "\relatieffolderpad\bestandsnaam.005.extensie", ActueelPad )
 ]]></Implementation>
 </Method>
 
 <Method name="TestCreateURLLABELROOTZonderSequentie">
 <Implementation><![CDATA[
 	#Dim ActueelPad As %String = ..ImageLink.CreateURL( ##class(APPS.common.enu.Toepassing).BartenderVoorkeurVector(), "relatieffolderpad", "bestandsnaam", "extensie" )
-	Do $$$AssertEquals( "\\Notes01\Images\relatieffolderpad\bestandsnaam.extensie", ActueelPad )
+	Do $$$AssertEquals( ..ImageRootDir _ "\relatieffolderpad\bestandsnaam.extensie", ActueelPad )
 ]]></Implementation>
 </Method>
 
 <Method name="TestCreateURLLABELROOTMetSequentie">
 <Implementation><![CDATA[
 	#Dim ActueelPad As %String = ..ImageLink.CreateURL( ##class(APPS.common.enu.Toepassing).BartenderVoorkeurVector(), "relatieffolderpad", "bestandsnaam", "extensie", 5 )
-	Do $$$AssertEquals( "\\Notes01\Images\relatieffolderpad\bestandsnaam.005.extensie", ActueelPad )
+	Do $$$AssertEquals( ..ImageRootDir _ "\relatieffolderpad\bestandsnaam.005.extensie", ActueelPad )
 ]]></Implementation>
 </Method>
 
 <Method name="TestGetProductImageURLProduct">
 <Implementation><![CDATA[
 	#dim ProductID As %String = 11698		
 	Set ImageLink = ##class(BL.Prod.ImageLink).%New()
+
+	Set ImageRoot = ##class(TECH.Config.ConfigMgr).Instance().GeefString("ImagesDirectory","\\Notes01\Images") _ "\"
 	
 	#dim BestandNaam As %String = "41589344_BT_P_1_PB_BAU_SALL_AOF_V1"
 	#dim JPGGroot As %String = "BLUM\W\"_BestandNaam_".JPG"
-	#dim UncJPGGroot As %String = "\\Notes01\Images\"_JPGGroot
-	#dim UncEPS As %String = "\\Notes01\Images\BLUM\P\"_BestandNaam_".EPS"
-	#dim UncJPGKlein As %String = "\\Notes01\Images\BLUM\T\"_BestandNaam_".JPG"
+	#dim UncJPGGroot As %String = ImageRoot _ JPGGroot
+	#dim UncEPS As %String = ImageRoot _ "BLUM\P\"_BestandNaam_".EPS"
+	#dim UncJPGKlein As %String = ImageRoot _ "BLUM\T\"_BestandNaam_".JPG"
 	#dim ResJPG As %String = "http://res.vanhoecke.be/Images/BLUM/W/"_BestandNaam_".JPG"
-	#dim FileJPG As %String = "file://Notes01/Images/BLUM/W/"_BestandNaam_".JPG"
+	#dim FileJPG As %String = "file:" _ $TR(ImageRoot,"\","/")_ "BLUM/W/"_BestandNaam_".JPG"
 	#dim Leeg As %String = ""
 	
 	Do $$$AssertEquals(..ImageLink.GetProductImageURL(ProductID,##class(APPS.common.enu.Toepassing).Flex()),ResJPG,"Flex")
@@ -107,10 +114,10 @@
 	
 	#dim BestandNaam As %String = "VB5010S2"
 	#dim JPGGroot As %String = "Orgalux\ViaSleutelG\"_BestandNaam_".JPG"
-	#dim UncJPGGroot As %String = "\\Notes01\Images\"_JPGGroot
-	#dim UncJPGKlein As %String = "\\Notes01\Images\Orgalux\ViaSleutelK\"_BestandNaam_".JPG"
+	#dim UncJPGGroot As %String = ..ImageRootDir _ "\"_JPGGroot
+	#dim UncJPGKlein As %String = ..ImageRootDir _ "\Orgalux\ViaSleutelK\"_BestandNaam_".JPG"
 	#dim ResJPG As %String = "http://res.vanhoecke.be/Images/Orgalux/ViaSleutelG/"_BestandNaam_".JPG"
-	#dim FileJPG As %String = "file://Notes01/Images/Orgalux/ViaSleutelG/"_BestandNaam_".JPG"
+	#dim FileJPG As %String = "file:" _ $TR(..ImageRootDir,"\","/") _"/Orgalux/ViaSleutelG/"_BestandNaam_".JPG"
 	
 	Do $$$AssertEquals(..ImageLink.GetProductImageURL(ProductID,##class(APPS.common.enu.Toepassing).Flex()),ResJPG,"Flex")		
 	Do $$$AssertEquals(..ImageLink.GetProductImageURL(ProductID,##class(APPS.common.enu.Toepassing).VhintraShell()),ResJPG,"VhintraShell")
@@ -150,6 +157,14 @@
 	Do $$$AssertEquals(..ImageLink.CreateURL(##class(APPS.common.enu.Toepassing).WWW(),Pad,BestandNaam,Extensie,,"WebOL"),"http://res.vanhoecke.be/Images/ORGALUX/Orgalux/ViaSleutelG/UNITTESTBESTAND.JPG")
 	Do $$$AssertEquals(..ImageLink.CreateURL(##class(APPS.common.enu.Toepassing).WWW(),Pad,BestandNaam,Extensie,,"WebVH"),"http://res.vanhoecke.be/media/Orgalux/ViaSleutelG/UNITTESTBESTAND.JPG")
 	Do $$$AssertEquals(..ImageLink.CreateURL(##class(APPS.common.enu.Toepassing).WWW(),Pad,BestandNaam,Extensie,,"vHintra"),"http://"_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"/csp/vhintra/Orgalux/ViaSleutelG/UNITTESTBESTAND.JPG")
+
+	#dim UncJPGGroot2 As %String = "\\Vanhoecke.be\T2_apps\PRD\Images\"_JPGGroot
+	#dim UncJPGKlein2 As %String = "\\Vanhoecke.be\T2_apps\PRD\Images\Orgalux\ViaSleutelK\"_BestandNaam_".JPG"
+	#dim FileJPG2 As %String = "file://Vanhoecke.be/T2_apps/PRD/Images/Orgalux/ViaSleutelG/"_BestandNaam_".JPG"
+
+	Do $$$AssertEquals(..ImageLink.CreateURL(##class(APPS.common.enu.Toepassing).WWW(),Pad,BestandNaam,Extensie,,"WebOL"),"http://res.vanhoecke.be/Images/ORGALUX/Orgalux/ViaSleutelG/UNITTESTBESTAND.JPG")
+	Do $$$AssertEquals(..ImageLink.CreateURL(##class(APPS.common.enu.Toepassing).WWW(),Pad,BestandNaam,Extensie,,"WebVH"),"http://res.vanhoecke.be/media/Orgalux/ViaSleutelG/UNITTESTBESTAND.JPG")
+	Do $$$AssertEquals(..ImageLink.CreateURL(##class(APPS.common.enu.Toepassing).WWW(),Pad,BestandNaam,Extensie,,"vHintra"),"http://"_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"/csp/vhintra/Orgalux/ViaSleutelG/UNITTESTBESTAND.JPG")
 ]]></Implementation>
 </Method>
 </Class>