FishEye: Tag 52120 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EC/KlantSessieDataBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml
===================================================================
diff -u -r39401 -r52120
--- vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml	(.../KlantSessieDataGeneratorTbx.cls.xml)	(revision 39401)
+++ vhPowerTools/APPS/EC/KlantSessieDataGeneratorTbx.cls.xml	(.../KlantSessieDataGeneratorTbx.cls.xml)	(revision 52120)
@@ -69,7 +69,7 @@
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	#dim KlantSessieDataBepaler As APPS.EC.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim KlantSessieDataBepaler As APPS.EC.impl.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
 	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
 	
 	Set KlantSessieData.Email = Email
Index: vhTest/Fake/APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(revision 52120)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EC.impl.KlantSessieDataBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.KlantSessieDataBepaler</Super>
+
+<Method name="GeefEncryptedKlantSessieData">
+<FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefEncryptedKlantSessieDataVoorHandel">
+<FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefEncryptedKlantSessieDataVoorVHShop">
+<FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantSessieData">
+<FormalSpec>EncryptedKlantSessieData:%String,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<ReturnType>APPS.EC.dto.KlantSessieData</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml
===================================================================
diff -u -r50840 -r52120
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 50840)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 52120)
@@ -29,7 +29,7 @@
 </Property>
 
 <Property name="KlantSessieDataBepaler">
-<Type>APPS.EC.KlantSessieDataBepaler</Type>
+<Type>APPS.EC.impl.KlantSessieDataBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -44,19 +44,20 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,WebshopVerwerkerBepaler:WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler,KortingService:DOM.VKP.KortingService,KlantSessieDataBepaler:APPS.EC.KlantSessieDataBepaler,KlantDataBepaler:WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler</FormalSpec>
+<FormalSpec>HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository="",KlantDataBewaarder:APPS.VKP.KlantDataBewaarder="",WebshopVerwerkerBepaler:WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler="",KortingService:DOM.VKP.KortingService="",KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler="",KlantDataBepaler:WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository,##class(DOM.common.impl.HandelPersonalityRepository).%New())
-	Set ..KlantDataBewaarder = $$$Inject(KlantDataBewaarder,##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder())
-	Set ..KortingService = $$$Inject(KortingService,##class(DOM.VKP.impl.KortingService).%New())
-	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler,##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
-	Set ..KlantDataBepaler = $$$Inject(KlantDataBepaler,##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New())
-	Set ..WebshopVerwerkerBepaler = $$$Inject(WebshopVerwerkerBepaler,##class(WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler).%New())
+	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository, ##class(DOM.common.impl.HandelPersonalityRepository).%New())
+	Set ..KlantDataBewaarder = $$$Inject(KlantDataBewaarder, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder())
+	Set ..KortingService = $$$Inject(KortingService, ##class(DOM.VKP.impl.KortingService).%New())
+	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler, ##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
+	Set ..KlantDataBepaler = $$$Inject(KlantDataBepaler, ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New())
+	Set ..WebshopVerwerkerBepaler = $$$Inject(WebshopVerwerkerBepaler, ##class(WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler).%New())
 	Set ..PersonalityService = ##class(DOM.common.impl.PersonalityService).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -65,7 +66,7 @@
 <FormalSpec>RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensResponse</ReturnType>
 <Implementation><![CDATA[
-	#Dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensResponse).%New()
+	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensResponse).%New()
 	
 	If (RegistreerContactGegevensRequest.Naam = "") {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Naam is verplicht")
@@ -82,17 +83,17 @@
 		Set KlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
 		Set KlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
 		Set KlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
-		Set:$$$HasLength(RegistreerContactGegevensRequest.KlantId) KlantData.KlantId = ..PersonalityService.GeefKlantIdViaKlantCode(HandelPersonality,RegistreerContactGegevensRequest.KlantId)
-		Set KlantData.GebruikerId = KlantData.KlantId_"_"_RegistreerContactGegevensRequest.GebruikerId
+		Set:$$$HasLength(RegistreerContactGegevensRequest.KlantId) KlantData.KlantId = ..PersonalityService.GeefKlantIdViaKlantCode(HandelPersonality, RegistreerContactGegevensRequest.KlantId)
+		Set KlantData.GebruikerId = KlantData.KlantId _ "_" _ RegistreerContactGegevensRequest.GebruikerId
 		Set KlantData.KortingPercentage = RegistreerContactGegevensRequest.KortingPercentage
 		
 		Do ..BewaarKlant(HandelPersonality,KlantData)
 
-		Set Response.KlantId = ..PersonalityService.GeefKlantCodeViaKlantId(HandelPersonality,KlantData.KlantId)
+		Set Response.KlantId = ..PersonalityService.GeefKlantCodeViaKlantId(HandelPersonality, KlantData.KlantId)
 		Set Response.GebruikerId = RegistreerContactGegevensRequest.GebruikerId
 		Set Response.GebruikerNaam = ""
 		Set Response.KlantNaam = KlantData.Naam
-		Set Response.DataOpt = ..GenereerDataOpt(..WebshopVerwerkerBepaler.Bepaal(HandelPersonality),Response.KlantId,Response.KlantNaam,Response.GebruikerId,KlantData.EmailAdres,KlantData.Taal,KlantData.KortingPercentage)
+		Set Response.DataOpt = ..GenereerDataOpt(..WebshopVerwerkerBepaler.Bepaal(HandelPersonality), Response.KlantId, Response.KlantNaam, Response.GebruikerId, KlantData.EmailAdres, KlantData.Taal, KlantData.KortingPercentage)
 	}
 	
 	Quit Response
@@ -122,23 +123,24 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ..KlantDataBewaarder.Bewaar(Personality, KlantData)
-	Do ..BewaarKorting(Personality, KlantData , ##class(DOM.PM.enu.Variant).LegraboxPure())
-	Do ..BewaarKorting(Personality, KlantData , ##class(DOM.PM.enu.Variant).Taorbox())
-	Do ..BewaarKorting(Personality, KlantData , ##class(DOM.PM.enu.Variant).TandemboxAntaro())
+	Do ..BewaarKorting(Personality, KlantData, ##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..BewaarKorting(Personality, KlantData, ##class(DOM.PM.enu.Variant).Taorbox())
+	Do ..BewaarKorting(Personality, KlantData, ##class(DOM.PM.enu.Variant).TandemboxAntaro())
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarKorting">
 <FormalSpec>Personality:DOM.common.Personality,KlantData:DOM.common.dto.HandelKlantData,Variant:DOM.PM.enu.Variant</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	#dim KortingSpecificatie As DOM.VKP.dto.KortingSpecificaties = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
 	Set KortingSpecificatie.Aantal = 1
 	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
 	Set KortingSpecificatie.Variant = Variant
 	Set KortingSpecificatie.PersonalityID = Personality.GeefID()
 	Set KortingSpecificatie.KlantID = KlantData.KlantId
-	Do ..KortingService.StelInKorting(KortingSpecificatie,+(KlantData.KortingPercentage/100))
+	
+	Do ..KortingService.StelInKorting(KortingSpecificatie, +(KlantData.KortingPercentage/100))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r46643 -r52120
--- vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 46643)
+++ vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 52120)
@@ -21,8 +21,7 @@
 
 <Method name="VerwerkSeefelder">
 <FormalSpec>SeefelderPersonality:DOM.common.SeefelderPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleNL">
Index: WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r46643 -r52120
--- WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 46643)
+++ WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 52120)
@@ -34,14 +34,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler</FormalSpec>
+<FormalSpec>KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..KlantSessieDataBepaler = $$$Implementation(KlantSessieDataBepaler,##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
-	set ..KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler, ##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
+	Set ..KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -55,8 +56,7 @@
 	
 	Try {
 		Do:$length(DataOpt) ..ConverteerDataOptNaarKlantSessieData(DataOpt)
-	}
-	Catch {
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Message As %String = "Fout bij Decrypt van DataOpt voor domein '"_..RefSessieData.Verwerker_"' (Modus:"_..RefSessieData.WebshopModus_" / Klant:"_..RefSessieData.KlantID_" / Offerte:"_..RefSessieData.OfferteID_")"
 		Set NewException = ##class(TECH.Exceptions.InvalidInputException).%New(Message)
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>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml
===================================================================
diff -u -r50840 -r52120
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 50840)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 52120)
@@ -5,43 +5,42 @@
 
 <Method name="Test: Standaardgedrag: KlantId ingevuld en bestaat: data updaten">
 <Implementation><![CDATA[
-	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
-	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
+	#dim HandelPersonalityStub As vhTest.Mock.DOM.common.HandelPersonality = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("Accept", $$$ElkeWaarde).DanDoeNiks()
 	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("sfs_")
 	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).SFS())
 	
-	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID",##class(DOM.common.enu.Personality).SFS()).DanReturn(HandelPersonalityStub)
+	#dim HandelPersonalityRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).SFS()).DanReturn(HandelPersonalityStub)
 	
-	Set WebshopVerwerkerBepalerStub = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler).%New()
-	Do WebshopVerwerkerBepalerStub.IndienMethodCall("Bepaal",HandelPersonalityStub).DanReturn("SFS")
+	#dim WebshopVerwerkerBepalerStub As vhTest.Mock.WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler).%New()
+	Do WebshopVerwerkerBepalerStub.IndienMethodCall("Bepaal", HandelPersonalityStub).DanReturn("SFS")
 	
-	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
-	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	#dim KlantDataBewaarderStub As vhTest.Mock.APPS.VKP.KlantDataBewaarder = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	
 	#dim DataOpt As %String = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).DataOptSFSKlantMetKorting()
 	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
 	
-	Set KlantSessieDataBepalerStub = ##class(vhTest.Mock.APPS.EC.KlantSessieDataBepaler).%New()
-	Do KlantSessieDataBepalerStub.VerwachtMethodCall("GeefEncryptedKlantSessieDataVoorHandel",..Matches.DataTransferObject(KlantSessieData),"SFS").DanReturn(DataOpt)
+	#dim KlantSessieDataBepalerStub As vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler).%New()
+	Do KlantSessieDataBepalerStub.VerwachtMethodCall("GeefEncryptedKlantSessieDataVoorHandel", ..Matches.DataTransferObject(KlantSessieData), "SFS").DanReturn(DataOpt)
 	
-	Set KortingServiceMock = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
-	
 	#dim KortingSpecLbx As DOM.VKP.dto.KortingSpecificaties = ##class(vhTest.Utils.DOM.VKP.dto.KortingSpecificaties).LbxKortingSpecSFS()
 	#dim KortingSpecTax As DOM.VKP.dto.KortingSpecificaties = ##class(vhTest.Utils.DOM.VKP.dto.KortingSpecificaties).TaxKortingSpecSFS()
 	#dim KortingSpecTbx As DOM.VKP.dto.KortingSpecificaties = ##class(vhTest.Utils.DOM.VKP.dto.KortingSpecificaties).TbxKortingSpecSFS()
 		
+	#dim KortingServiceMock As vhTest.Mock.DOM.VKP.KortingService = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
 	Do KortingServiceMock.VerwachtMethodCall("StelInKorting",..Matches.DataTransferObject(KortingSpecLbx),.1).ExactAantalKeer(1)
 	Do KortingServiceMock.VerwachtMethodCall("StelInKorting",..Matches.DataTransferObject(KortingSpecTax),.1).ExactAantalKeer(1)
 	Do KortingServiceMock.VerwachtMethodCall("StelInKorting",..Matches.DataTransferObject(KortingSpecTbx),.1).ExactAantalKeer(1)
 	
 	#dim HandelKlantDataDummy As DOM.VKP.impl.HandelKlantData = ##class(vhTest.Utils.DOM.VKP.HandelKlantData).StandaardHandelKlantData()
-	Set KlantDataBepalerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New()
-	
 	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).SFSKlantMetKorting()
-	Do KlantDataBepalerMock.VerwachtMethodCall("Bepaal",RegistreerContactGegevensRequestStub,HandelPersonalityStub).ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
 	
-	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(HandelPersonalityRepositoryStub,KlantDataBewaarderStub,WebshopVerwerkerBepalerStub,KortingServiceMock,KlantSessieDataBepalerStub,KlantDataBepalerMock)
+	#dim KlantDataBepalerMock As vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler = ##class(vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New()
+	Do KlantDataBepalerMock.VerwachtMethodCall("Bepaal", RegistreerContactGegevensRequestStub, HandelPersonalityStub).ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
+	
+	#dim Registreerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(HandelPersonalityRepositoryStub, KlantDataBewaarderStub, WebshopVerwerkerBepalerStub, KortingServiceMock, KlantSessieDataBepalerStub, KlantDataBepalerMock)
 	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 	
 	Do KortingServiceMock.Verifieer()
@@ -58,7 +57,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Naam is verplicht")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
 	
-	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
+	#dim Registreerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
 	
 	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 ]]></Implementation>
Index: vhTest/Mock/APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(revision 52120)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.KlantSessieDataBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefEncryptedKlantSessieData">
+<FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEncryptedKlantSessieData",KlantSessieData,DomeinVerwerker)
+]]></Implementation>
+</Method>
+
+<Method name="GeefEncryptedKlantSessieDataVoorHandel">
+<FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEncryptedKlantSessieDataVoorHandel",KlantSessieData,DomeinVerwerker)
+]]></Implementation>
+</Method>
+
+<Method name="GeefEncryptedKlantSessieDataVoorVHShop">
+<FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEncryptedKlantSessieDataVoorVHShop",KlantSessieData)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantSessieData">
+<FormalSpec>EncryptedKlantSessieData:%String,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<ReturnType>APPS.EC.dto.KlantSessieData</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantSessieData",EncryptedKlantSessieData,DomeinVerwerker)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 52120 refers to a dead (removed) revision in file `vhTest/Dummy/APPS/EC/KlantSessieDataBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhPowerTools/APPS/EC/KlantSessieDataGeneratorUnishop.cls.xml
===================================================================
diff -u -r45471 -r52120
--- vhPowerTools/APPS/EC/KlantSessieDataGeneratorUnishop.cls.xml	(.../KlantSessieDataGeneratorUnishop.cls.xml)	(revision 45471)
+++ vhPowerTools/APPS/EC/KlantSessieDataGeneratorUnishop.cls.xml	(.../KlantSessieDataGeneratorUnishop.cls.xml)	(revision 52120)
@@ -69,7 +69,7 @@
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	#dim KlantSessieDataBepaler As APPS.EC.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim KlantSessieDataBepaler As APPS.EC.impl.KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
 	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
 	
 	Set KlantSessieData.Email = Email
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepaler/GeefLoginParameters/Test.cls.xml
===================================================================
diff -u -r43192 -r52120
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepaler/GeefLoginParameters/Test.cls.xml	(.../Test.cls.xml)	(revision 43192)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepaler/GeefLoginParameters/Test.cls.xml	(.../Test.cls.xml)	(revision 52120)
@@ -10,78 +10,73 @@
 
 <Method name="Test">
 <Implementation><![CDATA[
-	set KlantSessieDataBepalerSpy = ##class(vhTest.Mock.APPS.EC.KlantSessieDataBepaler).%New()
+	#dim KlantSessieDataBepalerMock As vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler).%New()
+	Do KlantSessieDataBepalerMock.VerwachtMethodCall("GeefKlantSessieData", $$$ElkeWaarde).ExactAantalKeer(0)
 	
-	do KlantSessieDataBepalerSpy.VerwachtMethodCall("GeefKlantSessieData",$$$ElkeWaarde).ExactAantalKeer(0)
+	#dim LoginParameterBepaler As WSimpl.Unishop.Login.ParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New(KlantSessieDataBepalerMock)
+	Do LoginParameterBepaler.GeefLoginParameters(..#Kisch, "", "", "")
 	
-	set LoginParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New(KlantSessieDataBepalerSpy)
-	do LoginParameterBepaler.GeefLoginParameters(..#Kisch,"","","")
-	
-	do KlantSessieDataBepalerSpy.Verifieer()
+	Do KlantSessieDataBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Verwachte Exceptie bij DataOpt Decrypt-error">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Fout bij Decrypt van DataOpt voor domein 'KISCH' (Modus:AlleenLezen / Klant:K||1000 / Offerte:1234)")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
-
 	#dim DataOptDummy As %String = $$$DummyString
-	set KlantSessieDataBepalerMock = ##class(vhTest.Mock.APPS.EC.KlantSessieDataBepaler).%New()
-	Do KlantSessieDataBepalerMock.IndienMethodCall("GeefKlantSessieData",DataOptDummy,"KISCH").DanException(##class(TECH.Exceptions.GeneralErrorException).%New("DummyMessage"))
 	
-	set LoginParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New(KlantSessieDataBepalerMock)
-	do LoginParameterBepaler.GeefLoginParameters(..#Kisch,DataOptDummy,"","")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Fout bij Decrypt van DataOpt voor domein 'KISCH' (Modus:AlleenLezen / Klant:K||1000 / Offerte:1234)")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	#dim KlantSessieDataBepalerStub As vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler = ##class(vhTest.Mock.APPS.EC.impl.KlantSessieDataBepaler).%New()
+	Do KlantSessieDataBepalerStub.IndienMethodCall("GeefKlantSessieData", DataOptDummy, "KISCH").DanException(##class(TECH.Exceptions.GeneralErrorException).%New("DummyMessage"))
+	
+	#dim LoginParameterBepaler As WSimpl.Unishop.Login.ParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New(KlantSessieDataBepalerStub)
+	Do LoginParameterBepaler.GeefLoginParameters(..#Kisch, DataOptDummy, "", "")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: DataOpt kan niet gedecript worden">
+<Method name="Test: DataOpt kan niet gedecrypt worden">
 <Implementation><![CDATA[
-	#define DataOptNietKisch "kt2ijlqAK/QLgcDhOELfqTg1ORp5xZXnO7lMBPy7bSNSwabj6K2SBz_k0jVRqxEZeajfZH8OdYzbAkBsW23sSg--"
+	#dim DataOptNietKisch As %String = "kt2ijlqAK/QLgcDhOELfqTg1ORp5xZXnO7lMBPy7bSNSwabj6K2SBz_k0jVRqxEZeajfZH8OdYzbAkBsW23sSg--"
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Invalid Decryption")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
-
-	set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
 	
-	set LoginParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New(KlantSessieDataBepaler)
-	do LoginParameterBepaler.GeefLoginParameters(..#Kisch,$$$DataOptNietKisch,"","")
+	#dim LoginParameterBepaler As WSimpl.Unishop.Login.ParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepaler.GeefLoginParameters(..#Kisch, DataOptNietKisch, "", "")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: DataOpt waarbij het klantnr niet ingevuld is">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("KlantSessieData is niet volledig")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	#dim DataOptZonderKlantNr As %String = "TBhqvOJP4JLgA3j/hOr7Jv7bYHDq9Br_UJGe/SvP5ar5vSSG7pRRE1E13IvxFnJe"
 	
-	#define DataOptZonderKlantNr 	"TBhqvOJP4JLgA3j/hOr7Jv7bYHDq9Br_UJGe/SvP5ar5vSSG7pRRE1E13IvxFnJe"
-	set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
-	
-	set LoginParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New(KlantSessieDataBepaler)
-	do LoginParameterBepaler.GeefLoginParameters(..#Kisch,$$$DataOptZonderKlantNr,"","")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("KlantSessieData is niet volledig")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+
+	#dim LoginParameterBepaler As WSimpl.Unishop.Login.ParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepaler.GeefLoginParameters(..#Kisch, DataOptZonderKlantNr, "", "")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: DataOpt waarbij het ingevuld is">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("KlantSessieData is niet volledig")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	#dim DataOptZonderKlantNr As %String = "TBhqvOJP4JLgA3j/hOr7Jv7bYHDq9Br_UJGe/SvP5ar5vSSG7pRRE1E13IvxFnJe"
 	
-	#define DataOptZonderKlantNr 	"TBhqvOJP4JLgA3j/hOr7Jv7bYHDq9Br_UJGe/SvP5ar5vSSG7pRRE1E13IvxFnJe"
-	set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
-	
-	set LoginParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New(KlantSessieDataBepaler)
-	do LoginParameterBepaler.GeefLoginParameters(..#Kisch,$$$DataOptZonderKlantNr,"","")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("KlantSessieData is niet volledig")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+
+	#dim LoginParameterBepaler As WSimpl.Unishop.Login.ParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepaler.GeefLoginParameters(..#Kisch, DataOptZonderKlantNr, "", "")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Werkende klant">
 <Implementation><![CDATA[
-	#define WerkendeDataOpt 	"nFvd9mfXUkpk//J61YC930o22j6Ph_d2UCMMK4kGTPl98AMpuoM_7qQ7lTcqEtqj"
-	set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim WerkendeDataOpt As %String = "nFvd9mfXUkpk//J61YC930o22j6Ph_d2UCMMK4kGTPl98AMpuoM_7qQ7lTcqEtqj"
 	
-	set LoginParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New(KlantSessieDataBepaler)
-	do LoginParameterBepaler.GeefLoginParameters(..#Kisch,$$$WerkendeDataOpt,"","")
+	#dim LoginParameterBepaler As WSimpl.Unishop.Login.ParameterBepaler = ##class(WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepaler.GeefLoginParameters(..#Kisch, WerkendeDataOpt, "", "")
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 52120 refers to a dead (removed) revision in file `APPS/EC/KlantSessieDataBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?