Index: vhTest/Mock/DOM/common/impl/HandelPersonalityRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/common/impl/HandelPersonalityRepository.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/common/impl/HandelPersonalityRepository.cls.xml	(revision 41743)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.common.impl.HandelPersonalityRepository">
+<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>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.impl.HandelPersonalityRepository,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/common/impl/HandelPersonalityRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/common/impl/HandelPersonalityRepository.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/common/impl/HandelPersonalityRepository.cls.xml	(revision 41743)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.common.impl.HandelPersonalityRepository">
+<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.common.impl.HandelPersonalityRepository</Super>
+</Class>
+
+
+</Export>
Index: DOM/common/impl/HandelPersonalityRepository.cls.xml
===================================================================
diff -u -r41618 -r41743
--- DOM/common/impl/HandelPersonalityRepository.cls.xml	(.../HandelPersonalityRepository.cls.xml)	(revision 41618)
+++ DOM/common/impl/HandelPersonalityRepository.cls.xml	(.../HandelPersonalityRepository.cls.xml)	(revision 41743)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.common.impl.HandelPersonalityRepository">
-<Super>TECH.Persistentie.impl.Repository</Super>
+<Super>TECH.Persistentie.impl.Repository,TECH.Mockable</Super>
 
 <Parameter name="DataClassName">
 <Default>DOM.common.impl.HandelPersonality</Default>
Index: DOM/common/impl/HandelPersonality.cls.xml
===================================================================
diff -u -r41692 -r41743
--- DOM/common/impl/HandelPersonality.cls.xml	(.../HandelPersonality.cls.xml)	(revision 41692)
+++ DOM/common/impl/HandelPersonality.cls.xml	(.../HandelPersonality.cls.xml)	(revision 41743)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.common.impl.HandelPersonality">
-<Super>DOM.common.impl.Personality,DOM.common.HandelPersonality</Super>
+<Super>DOM.common.impl.Personality,DOM.common.HandelPersonality,TECH.Mockable</Super>
 
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml	(revision 41743)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.RegistreerContactGegevens.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geen Ref ingevuld -&gt; error">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	Set RegistreerContactGegevensRequestStub.Ref = ""
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ref is verplicht")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New()
+	
+	Do Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen EmailAdres ingevuld -&gt; error">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	Set RegistreerContactGegevensRequestStub.Naam = ""
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Naam is verplicht")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New()
+	
+	Do Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen Naam ingevuld -&gt; error">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	Set RegistreerContactGegevensRequestStub.EmailAdres = ""
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("EmailAdres is verplicht")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New()
+	
+	Do Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Leeg KlantId: nieuwe aanmaken">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	Set RegistreerContactGegevensRequestStub.Header.KlantId = ""
+	
+	#dim HandelKlantDataDummy As DOM.VKP.impl.HandelKlantData = ##class(vhTest.Utils.DOM.VKP.HandelKlantData).StandaardHandelKlantData()
+	Set HandelKlantDataRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Bewaar",HandelKlantDataDummy).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.impl.HandelPersonality).%New("","")
+	Do HandelPersonalityStub.IndienMethodCall("GeefVhisie4Prefix").DanReturn("Vhisie4Prefix")
+	Do HandelPersonalityStub.IndienMethodCall("GeefWebshopVerwerker").DanReturn("")
+	
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.VerwachtMethodCall("GeefViaID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityStub)
+	
+	Set WebshopSessionServiceStub = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	Do WebshopSessionServiceStub.IndienMethodCall("GeefVolgendeKlantID",HandelPersonalityStub.GeefID()).DanReturn("1")
+	
+	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(,,HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,WebshopSessionServiceStub,KlantDataBewaarderStub)
+	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	
+	Do HandelKlantDataRepositoryMock.Verifieer()
+	Do HandelPersonalityRepositoryStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: KlantId ingevuld en bestaat: data updaten">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	
+	Set HandelKlantDataRepositoryMock = ##class(vhTest.Mock.DOM.common.impl.HandelPersonalityRepository).%New()
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(0)
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("GeefViaID").ExactAantalKeer(0)
+	
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.impl.HandelPersonality).%New("","")
+	Do HandelPersonalityStub.IndienMethodCall("GeefVhisie4Prefix").DanReturn("Vhisie4Prefix")
+	
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.DOM.common.impl.HandelPersonalityRepository).%New()
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityStub)
+	
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(,,HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub)
+	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	
+	Do HandelKlantDataRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: KlantId ingevuld en bestaat niet: error">
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml
===================================================================
diff -u -r41692 -r41743
--- WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41692)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41743)
@@ -33,8 +33,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WebshopSessionService">
+<Type>APPS.EC.WebshopSessionService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantDataBewaarder">
+<Type>APPS.VKP.KlantDataBewaarder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,Logger:vhLib.Logger</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</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -43,9 +53,11 @@
 	Set ..LoginParameterBepaler = $$$Inject(LoginParameterBepaler, ##class(WSimpl.Unishop.Login.ParameterBepaler).%New())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New("WS.VHISIE4"))
 	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
-	Set ..HandelPersonalityRepository = ##class(DOM.common.impl.HandelPersonalityRepository).%New()
+	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository,##class(DOM.common.impl.HandelPersonalityRepository).%New())
 	Set ..KlantDataBepaler = ##class(DOM.VKP.impl.KlantDataBepaler).%New()
-	Set ..HandelKlantDataRepository = ##class(DOM.VKP.impl.HandelKlantDataRepository).%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())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -102,36 +114,38 @@
 <Implementation><![CDATA[
 	#Dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensResponse).%New()
 	
-	If ("" = RegistreerContactGegevensRequest.Ref) {
+	If (RegistreerContactGegevensRequest.Ref = "") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ref is verplicht"))
-	} ElseIf ("" = RegistreerContactGegevensRequest.Naam) {
+	} ElseIf (RegistreerContactGegevensRequest.Naam = "") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Naam is verplicht"))
-	} ElseIf ("" = RegistreerContactGegevensRequest.EmailAdres) {
+	} ElseIf (RegistreerContactGegevensRequest.EmailAdres = "") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("EmailAdres is verplicht"))
 	} Else {
-		
 		#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..HandelPersonalityRepository.GeefViaID(RegistreerContactGegevensRequest.Header.PersonalityId)
 		
-		
 		#dim KlantId As %String = ""
 		#dim KlantData As DOM.common.dto.HandelKlantData
 		If RegistreerContactGegevensRequest.Header.KlantId = "" {
-			Set KlantId = HandelPersonality.GeefVhisie4Prefix()_##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService().GeefVolgendeKlantID(HandelPersonality.GeefID())
+			Set KlantId = HandelPersonality.GeefVhisie4Prefix()_..WebshopSessionService.GeefVolgendeKlantID(HandelPersonality.GeefID())
 			Set KlantData = ..GeefHandelKlantData(KlantId,RegistreerContactGegevensRequest)
-			Do ..BewaarKlant(HandelPersonality,KlantData)
 		} Else {
 			Set KlantData = ..HandelKlantDataRepository.GeefViaID(HandelPersonality.GeefVhisie4Prefix()_RegistreerContactGegevensRequest.Header.KlantId)
-			Set KlantData.Naam = RegistreerContactGegevensRequest.Naam
-			Set KlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
-			Do ..BewaarKlant(HandelPersonality,KlantData)
 		}
+		Set KlantData.Naam = RegistreerContactGegevensRequest.Naam
+		Set KlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
+		Set KlantData.StraatEnNr = RegistreerContactGegevensRequest.StraatEnNr
+		Set KlantData.Postcode = RegistreerContactGegevensRequest.Postcode
+		Set KlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
+		Set KlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
+		Set KlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
+		
+		Do ..BewaarKlant(HandelPersonality,KlantData)
 
 		Set Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.ID,HandelPersonality.GeefVhisie4Prefix(),"")
 		Set Response.GebruikerId = 1
 		Set Response.GebruikerNaam = ""
 		Set Response.KlantNaam = KlantData.Naam
 		Set Response.DataOpt = ##class(vhPowerTools.APPS.EC.KlantSessieDataGeneratorUnishop).%New().GenereerDataOpt(HandelPersonality.GeefWebshopVerwerker(),Response.KlantId,Response.KlantNaam,Response.GebruikerId)
-
 	}
 	
 	Quit Response
@@ -163,9 +177,7 @@
 <Method name="BewaarKlant">
 <FormalSpec>Personality:DOM.common.Personality,KlantData:DOM.common.dto.KlantData</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim KlantDataBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
-	Do KlantDataBewaarder.Bewaar(Personality, KlantData)
+<Implementation><![CDATA[	Do ..KlantDataBewaarder.Bewaar(Personality, KlantData)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/DOM/common/impl/HandelPersonality.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/common/impl/HandelPersonality.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/common/impl/HandelPersonality.cls.xml	(revision 41743)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.common.impl.HandelPersonality">
+<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>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.impl.HandelPersonality,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefVhisie4Prefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVhisie4Prefix")
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebshopVerwerker">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefWebshopVerwerker")
+]]></Implementation>
+</Method>
+
+<Method name="IsHandel">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsHandel")
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>HandelPersonalityDefaultData</DefaultData>
+<Data name="HandelPersonalityDefaultData">
+<Subscript>"HandelPersonality"</Subscript>
+<Value name="1">
+<Value>MethodCallStubs</Value>
+</Value>
+<Value name="2">
+<Value>IsMethodCallVerwacht</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/VKP/HandelKlantData.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/HandelKlantData.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/HandelKlantData.cls.xml	(revision 41743)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.HandelKlantData">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardHandelKlantData">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.impl.HandelKlantData</ReturnType>
+<Implementation><![CDATA[
+	Set StandaardHandelKlantData = ##class(DOM.VKP.impl.HandelKlantData).%New()
+	#dim StraatEnNr As %String = "Ankerstraat 91"
+	#dim Postcode As %String = "9100"
+	#dim Gemeente As %String = "Sint-Niklaas"
+	#dim TelefoonNummer As %String = "03/987.65.43"
+	#dim FaxNummer As %String = "03/987.65.42"
+	#dim EmailAdres As %String = "email@example.com"
+	
+	Quit StandaardHandelKlantData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml	(revision 0)
+++ vhTest/Utils/WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml	(revision 41743)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardRegistreerContactGegevensRequest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensRequest</ReturnType>
+<Implementation><![CDATA[
+	Set RegistreerContactGegevensRequest = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensRequest).%New()
+	set RegistreerContactGegevensRequest.Header.PersonalityId = "10"
+	set RegistreerContactGegevensRequest.Header.KlantId = "5"
+	Set RegistreerContactGegevensRequest.Ref = "UBeb_iYH2PO0SX_09S2vbQ--"
+	Set RegistreerContactGegevensRequest.Naam = "Naam"
+	Set RegistreerContactGegevensRequest.StraatEnNr = "StraatEnNr"
+	Set RegistreerContactGegevensRequest.Postcode = "9100"
+	Set RegistreerContactGegevensRequest.Gemeente = "Gemeente"
+	Set RegistreerContactGegevensRequest.TelefoonNummer = "03/123.45.67"
+	Set RegistreerContactGegevensRequest.FaxNummer = "03/123.45.68"
+	Set RegistreerContactGegevensRequest.EmailAdres = "test@example.com"
+	
+	Quit RegistreerContactGegevensRequest
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerContactGegevensRequestZonderKlantId">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequest As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ..StandaardRegistreerContactGegevensRequest()
+	Set RegistreerContactGegevensRequest.Header.KlantId = ""
+	
+	Quit RegistreerContactGegevensRequest
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/common/impl/HandelPersonality.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/common/impl/HandelPersonality.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/common/impl/HandelPersonality.cls.xml	(revision 41743)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.common.impl.HandelPersonality">
+<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.common.impl.HandelPersonality</Super>
+
+<Method name="GeefVhisie4Prefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebshopVerwerker">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="IsHandel">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>