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>