Index: vhUnitTest/BL/Prod/TestImageLink.cls.xml
===================================================================
diff -u -r71097 -r74755
--- vhUnitTest/BL/Prod/TestImageLink.cls.xml	(.../TestImageLink.cls.xml)	(revision 71097)
+++ vhUnitTest/BL/Prod/TestImageLink.cls.xml	(.../TestImageLink.cls.xml)	(revision 74755)
@@ -22,9 +22,20 @@
 <Method name="TestGetInfoPageURL">
 <Implementation><![CDATA[
 	#dim ProductID As %String = 11698
+	
+	Set ProductStub = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefIdentNr").DanReturn("0.251.845.3")
+	
+	Set ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("BestaatProduct",ProductID).DanReturn($$$True)
+	Do ProductApiStub.IndienMethodCall("GeefProduct",ProductID).DanReturn(ProductStub)
+	
+	Set BLLegacyHADWIZ = ##class(BL.Legacy.HADWIZ).%New(ProductApiStub)
+	
+	Set ..ImageLink = ##class(BL.Prod.ImageLink).%New(BLLegacyHADWIZ)
 			
-	Do $$$AssertEquals(..ImageLink.GetInfoPageURL(ProductID,"E"),"http://res.vanhoecke.be/Catalog/Product.aspx?VLHimzz0zXRIkd/3xTllV4RElL0UsOfFaTMgwppjtKQ=")	
-	Do $$$AssertEquals(..ImageLink.GetInfoPageURL(ProductID,"I"),"http://res.vanhoecke.be/Catalog/Product.aspx?VLHimzz0zXRIkd/3xTllV4RElL0UsOfFaTMgwppjtKQ=")
+	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>
 </Method>
 
Index: BL/Legacy/HADWIZ.cls.xml
===================================================================
diff -u -r74012 -r74755
--- BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 74012)
+++ BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 74755)
@@ -7,18 +7,31 @@
 <Type>%ListOfDataTypes</Type>
 </Property>
 
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductLijnen = ##class(%ListOfDataTypes).%New()
+	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..Logger = ##class(vhLib.Logger).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -194,18 +207,21 @@
 </Method>
 
 <Method name="GeefProductInfoUrlVhisie4">
-<ClassMethod>1</ClassMethod>
+<Description>
+Voobeeld : 
+  Returnvalue: https://www-test.vanhoecke.be/nl/product/decrypt/iTYqj5vudgCR0rIEUYeM1A--   (DEV)</Description>
 <FormalSpec>ProductId:%String,Taal:%String="N"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim AesKey As %String = "wG1wFnu08vM78FzL"
+	#dim ProductInfoAesKey As %String = ..ConfigMgr.GeefString("BL.Legacy.HADWIZ_ProductInfoAesKey")
+	#dim ProductInfoDomein As %String = ..ConfigMgr.GeefString("BL.Legacy.HADWIZ_ProductInfoDomein")
 	
 	#dim ProductAlsUrlInput As %String = ""
-	#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	;#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()	
 	
-	If ProductApi.BestaatProduct(ProductId) {
-		#dim IdentNummer As %String = ProductApi.GeefProduct(ProductId).GeefIdentNr()
-		#dim EncryptedValue As %String = $System.Encryption.Base64Encode($System.Encryption.AESCBCEncrypt(IdentNummer,AesKey,""))
+	If ..ProductApi.BestaatProduct(ProductId) {
+		#dim IdentNummer As %String = ..ProductApi.GeefProduct(ProductId).GeefIdentNr()
+		#dim EncryptedValue As %String = $System.Encryption.Base64Encode($System.Encryption.AESCBCEncrypt(IdentNummer,ProductInfoAesKey,""))
 		Set ProductAlsUrlInput = $Translate(EncryptedValue, "/+=", "!_-")
 	}
 	#dim SubFolder As %String = $Case(Taal, 
@@ -216,8 +232,8 @@
 			 : "/nl")
 	Set SubFolder = SubFolder _ "/product/decrypt"
 	
-	// TODO : domeinnaam in config-item steken (?) 
-	Quit "https://www.vanhoecke.be" _ SubFolder _ "/" _ ProductAlsUrlInput
+	// domeinnaam in config-item 
+	Quit ProductInfoDomein _ SubFolder _ "/" _ ProductAlsUrlInput
 ]]></Implementation>
 </Method>
 
Index: HADWIZ.mac.rou
===================================================================
diff -u -r71072 -r74755
--- HADWIZ.mac.rou	(.../HADWIZ.mac.rou)	(revision 71072)
+++ HADWIZ.mac.rou	(.../HADWIZ.mac.rou)	(revision 74755)
@@ -165,7 +165,7 @@
 	
 	Quit:'##class(Res.ImageLink).HasImage("PR",PRNr)&&'(IsOrgal&&$L(##class(cspBasis.ProductList).DataDefValueURL("N",$$$OLGroep,KenmID,"InfoSleutel","LB")))
 	New R,K,FP,FilePath,ID
-	Set FilePath = ##class(BL.Legacy.HADWIZ).GeefProductInfoUrlVhisie4(PRNr,"N")
+	Set FilePath = ##class(BL.Legacy.HADWIZ).%New().GeefProductInfoUrlVhisie4(PRNr,"N")
 	Set Url=FilePath
 	Do:$L(FilePath)
 	. Do STORE^vhTERMINA()
Index: BL/Prod/ImageLink.cls.xml
===================================================================
diff -u -r71050 -r74755
--- BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 71050)
+++ BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 74755)
@@ -42,6 +42,11 @@
 <Default>PR</Default>
 </Parameter>
 
+<Property name="BlLegacyHADWIZ">
+<Type>BL.Legacy.HADWIZ</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Toepassing">
 <Type>APPS.common.enu.Toepassing.AutoComplete</Type>
 <Private>1</Private>
@@ -53,6 +58,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="%OnNew">
+<FormalSpec>BlLegacyHADWIZ:BL.Legacy.HADWIZ=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BlLegacyHADWIZ = $$$Inject(BlLegacyHADWIZ, ##class(BL.Legacy.HADWIZ).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="SVGSetPRNr">
 <Description><![CDATA[
 d ##class(BL.Prod.ImageLink).SVGSetPRNr($$SELECT^PRODUKT6(),0)
@@ -329,7 +346,7 @@
 	If ($E(Gebruik)'="E")&&(ObjType="HALID") Do ; Intern en Halux product
 	. Set FilePath="http://192.168.1.6/csp/admin1/PRGAProduct.csp?PRNR="_PRNr
 	Else  If ((ObjType=..#ObjType) || (ObjType = "MAT")) Do ; Intern of extern voor beslag product
-	. Set FilePath = ##class(BL.Legacy.HADWIZ).GeefProductInfoUrlAspx(PRNr,Taal)
+	. Set FilePath = ..BlLegacyHADWIZ.GeefProductInfoUrlVhisie4(PRNr,Taal)
 	Quit $G(FilePath)
 ]]></Implementation>
 </Method>