Index: vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(revision 41754)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.VKP.impl.KlantDataBepaler">
+<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>DOM.VKP.impl.KlantDataBepaler,vhTest.Mock.DOM.VKP.KlantDataBepaler</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefKlantData">
+<FormalSpec>Personality:DOM.common.Personality,KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<ReturnType>DOM.common.dto.KlantData</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantData",Personality,KlantID)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDaro">
+<FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDestil">
+<FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDestil",DestilPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDupont">
+<FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDupont",DupontPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleBE">
+<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleBE",HaefeleBEPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleNL">
+<FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleNL",HaefeleNLPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHein">
+<FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHein",HeinPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKisch">
+<FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkNoteborn">
+<FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkNoteborn",NotebornPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkSFS",SFSPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoecke">
+<FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkVanHoecke",VanHoeckePersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoeckeVoorHalux">
+<FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkVanHoeckeVoorHalux",VanHoeckVoorHaluxPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanRaemdonck">
+<FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkVanRaemdonck",VanRaemdonckPersonality)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml
===================================================================
diff -u -r41747 -r41754
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 41747)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 41754)
@@ -58,6 +58,7 @@
 	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.impl.HandelPersonality).%New("","")
 	Do HandelPersonalityStub.IndienMethodCall("GeefVhisie4Prefix").DanReturn("Vhisie4Prefix")
 	Do HandelPersonalityStub.IndienMethodCall("GeefWebshopVerwerker").DanReturn("")
+	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn("")
 	
 	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
 	Do HandelPersonalityRepositoryStub.VerwachtMethodCall("GeefViaID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityStub)
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteer/Test.cls.xml
===================================================================
diff -u -r41608 -r41754
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 41608)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 41754)
@@ -6,6 +6,7 @@
 <Method name="Test Standaardgedrag">
 <Implementation><![CDATA[
 	#dim DecrypteerRequestStub As WS.Vhisie4.Auth.DecrypteerRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.DecrypteerRequest).StandaardDecrypteerRequest()
+	Set DecrypteerRequestStub.Header.PersonalityId = "10"
 	
 	Set LoginParameters = ##class(WSimpl.Unishop.Login.ParametersHandel).%New()
 	Set LoginParameters.GebruikerID = "daro_5_1"
@@ -16,26 +17,42 @@
 	
 	Set LoginParameterBepalerMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
 	Do LoginParameterBepalerMock.VerwachtMethodCall("GeefLoginParameters",DecrypteerRequestStub.Ref, DecrypteerRequestStub.DataOpt, DecrypteerRequestStub.Header.Taal, DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(LoginParameters)
+
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.impl.HandelPersonality).%New("","")
+	Do HandelPersonalityStub.IndienMethodCall("GeefVhisie4Prefix").DanReturn("Vhisie4Prefix")
+	Do HandelPersonalityStub.IndienMethodCall("GeefWebshopVerwerker").DanReturn("")
 	
-	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(LoginParameterBepalerMock)
+	Set KlantDataDummy = ##class(DOM.common.dto.KlantData).%New()
+	Set KlantDataDummy.ID = "5"
+	Set KlantDataDummy.Naam = "Tom Gilles The Spy"
+	Set KlantDataBepalerStub = ##class(vhTest.Mock.DOM.VKP.impl.KlantDataBepaler).%New()
+	Do KlantDataBepalerStub.IndienMethodCall("GeefKlantData",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(KlantDataDummy)
+		
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanReturn(KlantDataDummy)
 	
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.VerwachtMethodCall("GeefViaID",DecrypteerRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityStub)
+	
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(LoginParameterBepalerMock,,,HandelPersonalityRepositoryStub,,,KlantDataBepalerStub)
+	
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Authenticator.Decrypteer(DecrypteerRequestStub)
 	
 	Do $$$AssertEquals(Response.GebruikerId,"1")
 	Do $$$AssertEquals(Response.GebruikerNaam,"")
 	Do $$$AssertEquals(Response.IsGeldig,"1")
 	Do $$$AssertEquals(Response.IsContactGegevensFormulierNodig,"0")
 	Do $$$AssertEquals(Response.KlantId,"5")
-	Do $$$AssertEquals(Response.KlantNaam,"Tom Gillespy")
+	Do $$$AssertEquals(Response.KlantNaam,"Tom Gilles The Spy")
 	Do $$$AssertEquals(Response.PersonalityId,"10")
 	Do $$$AssertEquals(Response.Taal,"N")
 	Do $$$AssertEquals(Response.ToegelatenLadetypes.Count(),2)
 	
 	Do LoginParameterBepalerMock.Verifieer()
+	Do HandelPersonalityRepositoryStub.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ongeldig indien geen Ref">
+<Method name="aTest: ongeldig indien geen Ref">
 <Implementation><![CDATA[
 	Set DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
 	Set DecrypteerRequest.Ref = ""
@@ -47,7 +64,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: indien geen DataOpt klant en gebruiker leeg en IsContactGegevensFormulierNodig true">
+<Method name="aTest: indien geen DataOpt klant en gebruiker leeg en IsContactGegevensFormulierNodig true">
 <Implementation><![CDATA[
 	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.DecrypteerRequest).StandaardDecrypteerRequest()
 	Set DecrypteerRequest.DataOpt = ""
@@ -64,7 +81,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ongeldig indien geen Hostname">
+<Method name="aTest: ongeldig indien geen Hostname">
 <Implementation><![CDATA[
 	Set DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
 	Set DecrypteerRequest.Hostname = ""
@@ -76,7 +93,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: enkel TBX en LBX voor Destil">
+<Method name="aTest: enkel TBX en LBX voor Destil">
 <Implementation><![CDATA[
 	#dim DecrypteerRequestStub As WS.Vhisie4.Auth.DecrypteerRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.DecrypteerRequest).StandaardDecrypteerRequest()
 	
@@ -101,7 +118,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: enkel TBX en LBX voor Kisch">
+<Method name="aTest: enkel TBX en LBX voor Kisch">
 <Implementation><![CDATA[
 	#dim DecrypteerRequestStub As WS.Vhisie4.Auth.DecrypteerRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.DecrypteerRequest).StandaardDecrypteerRequest()
 	
@@ -126,7 +143,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: enkel LBX en TAX voor Daro">
+<Method name="aTest: enkel LBX en TAX voor Daro">
 <Implementation><![CDATA[
 	#dim DecrypteerRequestStub As WS.Vhisie4.Auth.DecrypteerRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.DecrypteerRequest).StandaardDecrypteerRequest()
 	
Index: vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(revision 41754)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.VKP.impl.KlantDataBepaler">
+<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>DOM.VKP.impl.KlantDataBepaler</Super>
+
+<Method name="GeefKlantData">
+<FormalSpec>Personality:DOM.common.Personality,KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<ReturnType>DOM.common.dto.KlantData</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDaro">
+<FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDestil">
+<FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDupont">
+<FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleBE">
+<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleNL">
+<FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHein">
+<FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKisch">
+<FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkNoteborn">
+<FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoecke">
+<FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoeckeVoorHalux">
+<FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanRaemdonck">
+<FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml
===================================================================
diff -u -r41750 -r41754
--- WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41750)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41754)
@@ -44,7 +44,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,Logger:vhLib.Logger,HandelKlantDataRepository:DOM.VKP.impl.HandelKlantDataRepository,HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,WebshopSessionService:APPS.EC.WebshopSessionService,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder</FormalSpec>
+<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,Logger:vhLib.Logger,HandelKlantDataRepository:DOM.VKP.impl.HandelKlantDataRepository,HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,WebshopSessionService:APPS.EC.WebshopSessionService,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,KlantDataBepaler:DOM.VKP.impl.KlantDataBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -54,7 +54,7 @@
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New("WS.VHISIE4"))
 	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
 	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository,##class(DOM.common.impl.HandelPersonalityRepository).%New())
-	Set ..KlantDataBepaler = ##class(DOM.VKP.impl.KlantDataBepaler).%New()
+	Set ..KlantDataBepaler = $$$Inject(KlantDataBepaler,##class(DOM.VKP.impl.KlantDataBepaler).%New())
 	Set ..HandelKlantDataRepository = $$$Inject(HandelKlantDataRepository,##class(DOM.VKP.impl.HandelKlantDataRepository).%New())
 	Set ..WebshopSessionService = $$$Inject(WebshopSessionService,##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService())
 	Set ..KlantDataBewaarder = $$$Inject(KlantDataBewaarder,##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder())
@@ -100,6 +100,7 @@
 			Set Response.IsGeldig = 1
 		} Catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ##class(Tools.Wlip).%New(127).String(Exception.ToString())
 			Set Response.IsGeldig = 0
 		}
 	}
Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r41617 -r41754
--- DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 41617)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 41754)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.VKP.impl.KlantDataBepaler">
-<Super>DOM.VKP.KlantDataBepaler,DOM.common.PersonalityVisitor,TECH.RegisteredObject</Super>
+<Super>DOM.VKP.KlantDataBepaler,DOM.common.PersonalityVisitor,TECH.Mockable</Super>
 
 <Property name="KlantDataDto">
 <Type>DOM.common.dto.KlantData</Type>
Index: vhTest/Fake/DOM/common/impl/HandelPersonality.cls.xml
===================================================================
diff -u -r41743 -r41754
--- vhTest/Fake/DOM/common/impl/HandelPersonality.cls.xml	(.../HandelPersonality.cls.xml)	(revision 41743)
+++ vhTest/Fake/DOM/common/impl/HandelPersonality.cls.xml	(.../HandelPersonality.cls.xml)	(revision 41754)
@@ -7,6 +7,59 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.common.impl.HandelPersonality</Super>
 
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Delete">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="GeefCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlant">
+<ReturnType>Derde.Klant.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantID">
+<ReturnType>DOM.common.PartijID</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefVhisie4Prefix">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
@@ -24,6 +77,25 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="OnDelete">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Validate">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
 </Class>
 
 
Index: vhTest/Mock/DOM/common/impl/HandelPersonality.cls.xml
===================================================================
diff -u -r41743 -r41754
--- vhTest/Mock/DOM/common/impl/HandelPersonality.cls.xml	(.../HandelPersonality.cls.xml)	(revision 41743)
+++ vhTest/Mock/DOM/common/impl/HandelPersonality.cls.xml	(.../HandelPersonality.cls.xml)	(revision 41754)
@@ -4,11 +4,64 @@
 <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
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.common.impl.HandelPersonality,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Accept",Visitor)
+]]></Implementation>
+</Method>
+
+<Method name="Delete">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Delete")
+]]></Implementation>
+</Method>
+
+<Method name="GeefCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefCode")
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefID")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlant">
+<ReturnType>Derde.Klant.Klant</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlant")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantID">
+<ReturnType>DOM.common.PartijID</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantID")
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNaam")
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPrefix")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTaal")
+]]></Implementation>
+</Method>
+
 <Method name="GeefVhisie4Prefix">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVhisie4Prefix")
@@ -27,6 +80,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnDelete">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("OnDelete")
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Save")
+]]></Implementation>
+</Method>
+
+<Method name="Validate">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Validate")
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>HandelPersonalityDefaultData</DefaultData>