Index: APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u -r52008 -r52120
--- APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 52008)
+++ APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 52120)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EC.impl.KlantSessieDataBepaler">
-<Super>APPS.EC.KlantSessieDataBepaler,TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Method name="GeefKlantSessieData">
 <FormalSpec>EncryptedKlantSessieData:%String,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
@@ -10,33 +10,32 @@
 	#dim DataOptArray As %String = ""
 	Do DecryptDataOpt^cspBasis.TBX.Lib(EncryptedKlantSessieData,.DataOptArray,DomeinVerwerker)
 	
-	Set KSD = ##class(APPS.EC.dto.KlantSessieData).%New()
-	Set KSD.GebruikerID = $G(DataOptArray("GebruikerID"))
-	Set KSD.Taal = $G(DataOptArray("Taal"))
-	Set KSD.Email = $G(DataOptArray("EMail"))
-	Set KSD.KlantID = $G(DataOptArray("KLNummer"))
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	
+	Set KlantSessieData.GebruikerID = $Get(DataOptArray("GebruikerID"))
+	Set KlantSessieData.Taal = $Get(DataOptArray("Taal"))
+	Set KlantSessieData.Email = $Get(DataOptArray("EMail"))
+	Set KlantSessieData.KlantID = $Get(DataOptArray("KLNummer"))
+	Set KlantSessieData.KlantNaam = $Get(DataOptArray("KLNaam"))
+	Set KlantSessieData.Korting = $Get(DataOptArray("Korting"))
 
-	If DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).VHEPN() {
-		Set KSD.KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID($G(DataOptArray("KLNummer")))
-		Set KSD.GebruikerID = "Vhisie||"_KSD.KlantID_"||"_ $G(DataOptArray("GebruikerID"))
+	If (DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).VHEPN()) {
+		Set KlantSessieData.KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID($Get(DataOptArray("KLNummer")))
+		Set KlantSessieData.GebruikerID = "Vhisie||" _ KlantSessieData.KlantID _ "||" _  $Get(DataOptArray("GebruikerID"))
+	} ElseIf (DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).SFS()) {
+		Do ..PasAanKortingVoorAlpnach(KlantSessieData)
 	}
-	Set KSD.KlantNaam = $G(DataOptArray("KLNaam"))
-	Set KSD.Korting = $G(DataOptArray("Korting"))
-	
-	If DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).SFS() {
-		Do ..PasAanKortingVoorAlpnach(KSD)
-	}
 
-	Quit KSD
+	Quit KlantSessieData
 ]]></Implementation>
 </Method>
 
 <Method name="PasAanKortingVoorAlpnach">
-<FormalSpec>KSD:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (KSD.KlantID = "83723") { 
-		Set KSD.Korting = 27.7
+	If (KlantSessieData.KlantID = "83723") { 
+		Set KlantSessieData.Korting = 27.7
 	}
 ]]></Implementation>
 </Method>
@@ -59,19 +58,19 @@
 <FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim KSD As APPS.EC.dto.KlantSessieData = KlantSessieData
+	#dim KlantNr As %String = KlantSessieData.KlantID
+	#dim GebruikerNr As %String = KlantSessieData.GebruikerID
 	
-	#dim KlantNr As %String = KSD.KlantID
-	#dim GebruikerNr As %String = KSD.GebruikerID
-	If DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).VHEPN() {
-		Set KlantNr=##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KSD.KlantID)
-		Set GebruikerNr = $Piece(KSD.GebruikerID,"Vhisie||"_KSD.KlantID_"||",2)
+	If (DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).VHEPN()) {
+		Set KlantNr = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantSessieData.KlantID)
+		Set GebruikerNr = $Piece(KlantSessieData.GebruikerID, "Vhisie||" _ KlantSessieData.KlantID _ "||", 2)
 	}
 	
-	#dim DataOpt As %String = KSD.Taal_"\"_KlantNr_"\"_KSD.KlantNaam_"\"_KSD.Email_"\"_KSD.Korting_"\"_GebruikerNr
-    Set %blnBuildRef=1
+	#dim DataOpt As %String = KlantSessieData.Taal _ "\" _ KlantNr _ "\" _ KlantSessieData.KlantNaam _ "\" _ KlantSessieData.Email _ "\" _ KlantSessieData.Korting _ "\" _ GebruikerNr
+    Set %blnBuildRef = 1
     #dim DataOptEncrypted As %String = $$EncryptDataOpt^cspBasis.TBX.Lib(DataOpt,DomeinVerwerker)
 	Kill %blnBuildRef	
+	
 	Quit DataOptEncrypted
 ]]></Implementation>
 </Method>