Index: zTryout/JWI/Haefele/UrlGenerator.cls.xml
===================================================================
diff -u
--- zTryout/JWI/Haefele/UrlGenerator.cls.xml	(revision 0)
+++ zTryout/JWI/Haefele/UrlGenerator.cls.xml	(revision 70688)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.Haefele.UrlGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Genereer">
+<FormalSpec>PersonalityID:%String,Ref:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim KlantID as %String = ""
+	
+ 	#dim Query As %String
+ 	Set Query = "select distinct KlantID from DOM_VKP_impl_Korting.Korting where personalityid  = ? "
+	#dim Personality as %String = ##class(DOM.common.enu.Personality).LogicalToDisplay(PersonalityID)
+	
+	Set Dev=0
+ 	Set Dev=$$OPEN^vhDEV("c:\temp\jwi\","MP_URL_"_ Personality _".TXT","W")
+ 	Use Dev
+	
+ 	#dim BaseUrl as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.EC.impl.Webshop.UrlBepaler_V4_" _  Personality )
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(PersonalityID))
+	While ResultSet.Next() {
+		Set KlantID = $p(ResultSet.Data("KlantID"),"_",2)
+
+		#dim Dataopt as %String = ..GenereerDataopt( Ref,KlantID,KlantID_" " _Personality,PersonalityID)
+		#dim Url as %String = BaseUrl _"/login?Taal=N&REF=" _ Ref _ "&DATAOPT=" _ Dataopt	
+		w ! ,KlantID _ " " _ Url
+	}
+	Close:Dev'=0 Dev
+]]></Implementation>
+</Method>
+
+<Method name="GenereerEen">
+<FormalSpec>PersonalityID:%String,Ref:%String,KlantID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Personality as %String = ##class(DOM.common.enu.Personality).LogicalToDisplay(PersonalityID)
+	
+ 	#dim BaseUrl as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.EC.impl.Webshop.UrlBepaler_V4_" _  Personality )
+	#dim Dataopt as %String = ..GenereerDataopt( Ref,KlantID,KlantID_" " _Personality,PersonalityID)
+	#dim Url as %String = BaseUrl _"/login?Taal=N&REF=" _ Ref _ "&DATAOPT=" _ Dataopt	
+	w ! ,KlantID _ " " _ Url
+]]></Implementation>
+</Method>
+
+<Method name="GenereerVoorBE">
+<Implementation><![CDATA[
+	#Dim PersonalityID as %String = "7"
+	#Dim Ref = "k0uGXfFcFjZZFa7InVf7aw--"
+	#dim KlantID as %String = ""
+
+ 	
+ 	#dim Query As %String
+ 	Set Query = "select distinct KlantID from DOM_VKP_impl_Korting.Korting where personalityid  = ? "
+	
+ 	
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(PersonalityID))
+	While ResultSet.Next() {
+		#dim url as %String = "https://hafelebe.drawerconfigurator.com/login?Taal=N&REF=" _ Ref _ "&DATAOPT="
+		Set KlantID = $p(ResultSet.Data("KlantID"),"_",2)
+		w ! ,KlantID _ " " _ url _ ..GenereerDataopt( Ref,KlantID,KlantID_" HBL")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GenereerVoorNL">
+<Implementation><![CDATA[
+	#Dim PersonalityID as %String = "12"
+	#Dim Ref = "8SH88xGWpyaTSiSba3ptxQ--"
+	#dim KlantID as %String = ""
+
+ 	
+ 	#dim Query As %String
+ 	Set Query = "select distinct KlantID from DOM_VKP_impl_Korting.Korting where personalityid  = ? "
+	
+ 	
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(PersonalityID))
+	While ResultSet.Next() {
+		#dim url as %String = "https://hafelenl.drawerconfigurator.com/login?Taal=N&REF=" _ Ref _ "&DATAOPT="
+		Set KlantID = $p(ResultSet.Data("KlantID"),"_",2)
+		w ! ,KlantID _ " " _ url _ ..GenereerDataopt( Ref,KlantID,KlantID_" HNL",PersonalityID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	// w !, ..GenereerDataopt("k0uGXfFcFjZZFa7InVf7aw--","123456")
+	#Dim PersonalityID as %String = "7"
+	#Dim Ref = "k0uGXfFcFjZZFa7InVf7aw--"
+	//#dim KlantID as %String = "BE2012986"
+	#dim KlantID as %String = "BE2002571"
+	w ! , Ref _ " " _ KlantID _ " " _ ..GenereerDataopt( Ref,KlantID,KlantID_" HBL",PersonalityID)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerDataopt">
+<FormalSpec>Ref:%String,KlantId:%String,KlantNaam:%String,PersonalityID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensRequest).%New()
+	Set Request.Header.PersonalityId = PersonalityID
+	Set Request.Header.Taal = "N"
+	Set Request.Ref = Ref
+	Set Request.Naam = KlantNaam
+	Set Request.KlantId = KlantId
+	
+	quit ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New().RegistreerContactGegevens(Request).DataOpt
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>