Index: BL/Legacy/HADWIZ.cls.xml
===================================================================
diff -u -r69788 -r71048
--- BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 69788)
+++ BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 71048)
@@ -181,6 +181,47 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductInfoUrlAspx">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductId:%String,Taal:%String="N"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:($$$Trim(Taal)="") Taal = "N"
+	
+	#dim Qstring As %String = $system.Encryption.Base64Encode($system.Encryption.AESEncode("PRNR="_ProductId_"&Taal="_Taal,"1q2gg34l5U6p789Q"))
+	Quit "http://res.vanhoecke.be/Catalog/Product.aspx?"_Qstring
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductInfoUrlVhisie4">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductId:%String,Taal:%String="N"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:($$$Trim(Taal)="") Taal = "N"
+	
+	#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim Korttekst As %String = ""
+	#dim KorttekstAlsUrlInput As %String = ""
+	
+	#dim SubFolder As %String = $Case(Taal, 
+			"N" : "/nl/producten", 
+			"F" : "/fr/produits", 
+			"E" : "/en/products", 
+			"D" : "/de/Produkte", 
+			 : "/nl/producten")
+			
+	If ProductApi.BestaatProduct(ProductId) {
+		Set Korttekst = ProductApi.GeefProduct(ProductId).GeefKorttekst()
+		Set KorttekstAlsUrlInput = $$$LCase($$$Trim(Korttekst))
+		Set KorttekstAlsUrlInput = ##class(TECH.StringUtils).Replace(KorttekstAlsUrlInput,"  "," ", , , $$$True)   ; Last param True to ensure all double (and triple) spaces are replaced by 1 space)
+		Set KorttekstAlsUrlInput = ##class(TECH.StringUtils).Replace(KorttekstAlsUrlInput," ","-")
+	}
+	
+	Quit "https://www.vanhoecke.be" _ SubFolder _ "/" _ KorttekstAlsUrlInput
+]]></Implementation>
+</Method>
+
 <Method name="IsInetpubFolderBeschikbaar">
 <Description>
 Bepaalt of de destination directory "inetpub-folder op FOP via netwerk-share" beschikbaar/bereikbaar is voor Kaderdeur pdf. </Description>