Index: APPS/EC/enu/WebshopModusTbx.cls.xml
===================================================================
diff -u
--- APPS/EC/enu/WebshopModusTbx.cls.xml	(revision 0)
+++ APPS/EC/enu/WebshopModusTbx.cls.xml	(revision 39312)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.enu.WebshopModusTbx">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;START;COMPLETE;PROCESS;VIEW</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Normaal;AfgehandeldeIngave;Vrijgave;ReadOnly</Default>
+</Parameter>
+
+<Method name="Normaal">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebshopModusTbx</ReturnType>
+<Implementation><![CDATA[	Quit "START"
+]]></Implementation>
+</Method>
+
+<Method name="AfgehandeldeIngave">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebshopModusTbx</ReturnType>
+<Implementation><![CDATA[	Quit "COMPLETE"
+]]></Implementation>
+</Method>
+
+<Method name="Vrijgave">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebshopModusTbx</ReturnType>
+<Implementation><![CDATA[	Quit "PROCESS"
+]]></Implementation>
+</Method>
+
+<Method name="ReadOnly">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebshopModusTbx</ReturnType>
+<Implementation><![CDATA[	Quit "VIEW"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 39312 refers to a dead (removed) revision in file `WS/EC/WebshopSessionService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EC/enu/WebshopModusTbx/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/EC/enu/WebshopModusTbx/Verwerker.cls.xml	(revision 0)
+++ APPS/EC/enu/WebshopModusTbx/Verwerker.cls.xml	(revision 39312)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.enu.WebshopModusTbx.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>WebshopModusTbx:APPS.EC.enu.WebshopModusTbx</FormalSpec>
+<Implementation><![CDATA[
+	If WebshopModusTbx = "COMPLETE" {
+		Do ..VerwerkAfgehandeldeIngave()
+	} ElseIf WebshopModusTbx = "START" {
+		Do ..VerwerkNormaal()
+	} ElseIf WebshopModusTbx = "VIEW" {
+		Do ..VerwerkReadOnly()
+	} ElseIf WebshopModusTbx = "PROCESS" {
+		Do ..VerwerkVrijgave()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(WebshopModusTbx,"APPS.EC.enu.WebshopModusTbx",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAfgehandeldeIngave">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkNormaal">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkReadOnly">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVrijgave">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/APPS/EC/WebshopSessionService.cls.xml
===================================================================
diff -u -r36175 -r39312
--- vhPowerTools/APPS/EC/WebshopSessionService.cls.xml	(.../WS/EC/WebshopSessionService.cls.xml)	(revision 36175)
+++ vhPowerTools/APPS/EC/WebshopSessionService.cls.xml	(.../vhPowerTools/APPS/EC/KlantSessieDataGeneratorUnishop.cls.xml)	(revision 39312)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="WS.EC.WebshopSessionService">
+<Class name="vhPowerTools.APPS.EC.KlantSessieDataGeneratorUnishop">
 <Super>vhLib.WebService</Super>
 
 <Parameter name="SERVICENAME">
@@ -29,19 +29,13 @@
 </Method>
 
 <Method name="GenereerRef">
-<Description><![CDATA[
-- <b>PersonalityId:</b> DOM.common.enu.Personality <br/>
-- <b>Modus:</b> APPS.EC.enu.WebshopModus <br/>]]></Description>
-<FormalSpec>PersonalityId:%String,Modus:%String="Normaal"</FormalSpec>
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,Modus:APPS.EC.enu.WebshopModus="Normaal"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	#dim DomeinVerwerker As APPS.EC.enu.UniShopVerwerker = ..WebshopSessionService.GeefDomeinVerwerkerVoorPersonality(PersonalityId)
-	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityId)
 	#dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.dto.RefSessieData).%New()
 	
-	//Set RefSessieData.KlantID = Personality.GeefKlantID()
-	Set RefSessieData.Verwerker = DomeinVerwerker
+	Set RefSessieData.Verwerker = UnishopVerwerker
 	Set RefSessieData.WebshopModus = Modus
 	
 	Quit ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefEncryptedRefSessieData(RefSessieData)
@@ -60,7 +54,7 @@
 </Method>
 
 <Method name="DecrypteerDataOpt">
-<FormalSpec>DataOpt:%String,PersonalityId:%String</FormalSpec>
+<FormalSpec>DataOpt:%String,PersonalityId:DOM.common.enu.Personality</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
@@ -72,18 +66,10 @@
 </Method>
 
 <Method name="GenereerDataOpt">
-<Description><![CDATA[
-- <b>PersonalityId:</b> DOM.common.enu.Personality <br/>
-- <b>KlantId:</b> String <br/>
-- <b>GebruikerId:</b> String <br/>
-- <b>Email:</b> String <br/>
-- <b>Taal:</b> DOM.enu.Taal <br/>]]></Description>
-<FormalSpec>PersonalityId:%String,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N"</FormalSpec>
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityId)
-	#dim DomeinVerwerker As APPS.EC.enu.UniShopVerwerker = ..WebshopSessionService.GeefDomeinVerwerkerVoorPersonality(PersonalityId)
 	#dim KlantSessieDataBepaler As APPS.EC.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
 	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
 	
@@ -94,40 +80,31 @@
 	Set KlantSessieData.Korting = 0
 	Set KlantSessieData.Taal = Taal
 	
-	Quit KlantSessieDataBepaler.GeefEncryptedKlantSessieData(KlantSessieData, DomeinVerwerker)
+	Quit KlantSessieDataBepaler.GeefEncryptedKlantSessieData(KlantSessieData, UnishopVerwerker)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLoginUrl">
-<Description><![CDATA[
-- <b>PersonalityId:</b> DOM.common.enu.Personality <br/>
-- <b>KlantId:</b> String <br/>
-- <b>GebruikerId:</b> String <br/>
-- <b>Email:</b> String <br/>
-- <b>Taal:</b> DOM.enu.Taal <br/>
-- <b>Modus:</b> APPS.EC.enu.WebshopModus <br/>]]></Description>
-<FormalSpec>PersonalityId:%String,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N",Modus:%String="Normaal"</FormalSpec>
+<FormalSpec>PersonalityId:DOM.common.enu.Personality,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:%String="Normaal"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[	Quit ..GeefDomein(PersonalityId) _ ..GenereerLoginQueryString(PersonalityId, KlantId, GebruikerId, Email, Taal)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDomein">
-<Description><![CDATA[
-- <b>PersonalityId:</b> DOM.common.enu.Personality <br/>]]></Description>
-<FormalSpec>PersonalityId:%String</FormalSpec>
+<FormalSpec>PersonalityId:DOM.common.enu.Personality</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[	Quit ..WebshopSessionService.GeefDomein(PersonalityId)
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerLoginQueryString">
-<FormalSpec>PersonalityId:%String,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:%String="N",Modus:%String="Normaal"</FormalSpec>
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:%String="Normaal"</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(PersonalityId, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(PersonalityId, KlantId, GebruikerId, Email, Taal)
+<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(UnishopVerwerker, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(PersonalityId, KlantId, GebruikerId, Email, Taal)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EC/enu/WebshopModusTbx/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/EC/enu/WebshopModusTbx/AutoComplete.cls.xml	(revision 0)
+++ APPS/EC/enu/WebshopModusTbx/AutoComplete.cls.xml	(revision 39312)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.enu.WebshopModusTbx.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="AfgehandeldeIngave">
+<Type>%String</Type>
+<InitialExpression>"COMPLETE"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Normaal">
+<Type>%String</Type>
+<InitialExpression>"START"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ReadOnly">
+<Type>%String</Type>
+<InitialExpression>"VIEW"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Vrijgave">
+<Type>%String</Type>
+<InitialExpression>"PROCESS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml	(revision 0)
+++ vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml	(revision 39312)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.EC.KlantSessieDataGeneratorTbx">
+<Super>vhLib.WebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>WebshopSessionService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/WS/EC/Webshop</Default>
+</Parameter>
+
+<Property name="WebshopSessionService">
+<Type>APPS.EC.WebshopSessionService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..WebshopSessionService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerRef">
+<FormalSpec>WebShopVerwerker:APPS.EC.enu.WebShopVerwerker,Modus:APPS.EC.enu.WebshopModusTbx</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.dto.RefSessieData).%New()
+	
+	Set RefSessieData.Verwerker = WebShopVerwerker
+	Set RefSessieData.WebshopModus = Modus
+	
+	Quit ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefEncryptedRefSessieData(RefSessieData)
+]]></Implementation>
+</Method>
+
+<Method name="DecrypteerRef">
+<FormalSpec>Ref:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefRefSessieData(Ref)
+	
+	Quit "Verwerker:" _ RefSessieData.Verwerker _ "; WebshopModus:" _ RefSessieData.WebshopModus _ "; WSID:" _ RefSessieData.WSID _ "; KlantId:" _ RefSessieData.KlantID _ "; OfferteId:" _ RefSessieData.OfferteID
+]]></Implementation>
+</Method>
+
+<Method name="DecrypteerDataOpt">
+<FormalSpec>DataOpt:%String,PersonalityId:DOM.common.enu.Personality</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim DomeinVerwerker As APPS.EC.enu.UniShopVerwerker = ..WebshopSessionService.GeefDomeinVerwerkerVoorPersonality(PersonalityId)
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New().GeefKlantSessieData(DataOpt, DomeinVerwerker)
+
+	Quit "Taal:" _ KlantSessieData.Taal _ "; KlantNaam:" _ KlantSessieData.KlantNaam _ "; KlantId:" _ KlantSessieData.KlantID _ "; Email:" _ KlantSessieData.Email _ "; Korting:" _ KlantSessieData.Korting _ "; GebruikerID:" _ KlantSessieData.GebruikerID
+]]></Implementation>
+</Method>
+
+<Method name="GenereerDataOpt">
+<FormalSpec>WebShopVerwerker:APPS.EC.enu.WebShopVerwerker,KlantId:%String,KlantNaam:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim KlantSessieDataBepaler As APPS.EC.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	
+	Set KlantSessieData.Email = Email
+	Set KlantSessieData.GebruikerID = ""
+	Set KlantSessieData.KlantID = KlantId
+	Set KlantSessieData.KlantNaam = KlantNaam
+	Set KlantSessieData.Korting = 0
+	Set KlantSessieData.Taal = Taal
+	
+	Quit KlantSessieDataBepaler.GeefEncryptedKlantSessieData(KlantSessieData, WebShopVerwerker)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLoginUrl">
+<FormalSpec>PersonalityId:DOM.common.enu.Personality,KlantId:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:APPS.EC.enu.WebshopModusTbx</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..GeefDomein(PersonalityId) _ ..GenereerLoginQueryString(PersonalityId, KlantId, GebruikerId, Email, Taal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDomein">
+<FormalSpec>PersonalityId:DOM.common.enu.Personality</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..WebshopSessionService.GeefDomein(PersonalityId)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerLoginQueryString">
+<FormalSpec>WebShopVerwerker:APPS.EC.enu.WebShopVerwerker,KlantId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Modus:APPS.EC.enu.WebshopModusTbx</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "/login?TAAL=" _ Taal _ "&REF=" _ ..GenereerRef(WebShopVerwerker, Modus) _ "&DATAOPT=" _ ..GenereerDataOpt(WebShopVerwerker, KlantId, Email, Taal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>