Index: vhTest/Mock/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml
===================================================================
diff -u -r45483 -r45491
--- vhTest/Mock/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45483)
+++ vhTest/Mock/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45491)
@@ -7,6 +7,20 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
+
+<Method name="GenereerDataOpt">
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,Klantnaam:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Korting:%String="0"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GenereerDataOpt",UnishopVerwerker,KlantId,Klantnaam,GebruikerId,Email,Taal,Korting)
+]]></Implementation>
+</Method>
+
+<Method name="Registreer">
+<FormalSpec>RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensResponse</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Registreer",RegistreerContactGegevensRequest)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Test.cls.xml
===================================================================
diff -u -r45481 -r45491
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Test.cls.xml	(.../Test.cls.xml)	(revision 45481)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Test.cls.xml	(.../Test.cls.xml)	(revision 45491)
@@ -10,12 +10,26 @@
 	Set DecrypteerderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
 	Do DecrypteerderMock.VerwachtMethodCall("Decrypteer",Request).ExactAantalKeer(1)
 	
-	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(,,,,,,,,DecrypteerderMock)
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(DecrypteerderMock)
 	Do Authenticator.Decrypteer(Request)
 	
 	Do DecrypteerderMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test RegistreerContactGegevens">
+<Implementation><![CDATA[
+	#dim Request As WS.Vhisie4.Auth.DecrypteerRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	
+	Set RegistreerderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
+	Do RegistreerderMock.VerwachtMethodCall("Registreer",Request).ExactAantalKeer(1)
+	
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(,RegistreerderMock)
+	Do Authenticator.RegistreerContactGegevens(Request)
+	
+	Do RegistreerderMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml
===================================================================
diff -u -r45483 -r45491
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45483)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45491)
@@ -2,6 +2,162 @@
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder">
 <Super>TECH.Mockable</Super>
+
+<Property name="LoginParameterBepaler">
+<Type>WSimpl.Unishop.Login.ParameterBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HandelPersonalityRepository">
+<Type>DOM.common.impl.HandelPersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HandelKlantDataRepository">
+<Type>DOM.VKP.impl.HandelKlantDataRepository</Type>
+<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>
+
+<Property name="SettingsManager">
+<Type>WSimpl.Vhisie4.SettingsManager</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KortingBewaarder">
+<Type>WSimpl.Unishop.Login.KortingBewaarder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantSessieDataBepaler">
+<Type>APPS.EC.KlantSessieDataBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,HandelKlantDataRepository:DOM.VKP.impl.HandelKlantDataRepository,HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,WebshopSessionService:APPS.EC.WebshopSessionService,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,SettingsManager:WSimpl.Vhisie4.SettingsManager,LoginKortingBewaarder:WSimpl.Unishop.Login.KortingBewaarder,KlantSessieDataBepaler:APPS.EC.KlantSessieDataBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LoginParameterBepaler = $$$Inject(LoginParameterBepaler, ##class(WSimpl.Unishop.Login.ParameterBepaler).%New())
+	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository,##class(DOM.common.impl.HandelPersonalityRepository).%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())
+	Set ..SettingsManager = $$$Inject(SettingsManager,##class(WSimpl.Vhisie4.SettingsManager).%New())
+	Set ..KortingBewaarder = $$$Inject(LoginKortingBewaarder,##class(WSimpl.Unishop.Login.KortingBewaarder).%New())
+	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler,##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Registreer">
+<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()
+	
+	If (RegistreerContactGegevensRequest.Ref = "") {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ref is verplicht"))
+	} ElseIf (RegistreerContactGegevensRequest.Naam = "") {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Naam is verplicht"))
+	} 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.VKP.impl.HandelKlantData
+		If RegistreerContactGegevensRequest.Header.KlantId = "" {
+			Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_..WebshopSessionService.GeefVolgendeKlantID(HandelPersonality.GeefID())
+			Set KlantData = ..GeefHandelKlantDataVoorRegistreer(KlantId,RegistreerContactGegevensRequest)
+		} Else {
+			Set KlantData = ..HandelKlantDataRepository.GeefViaID(..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId)
+		}
+		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
+		Set KlantData.KlantId = RegistreerContactGegevensRequest.KlantId
+		Set KlantData.GebruikerId = RegistreerContactGegevensRequest.GebruikerId
+		Set KlantData.KortingFactor = RegistreerContactGegevensRequest.KortingFactor
+		
+		Do ..BewaarKlant(HandelPersonality,KlantData)
+
+		Set Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.ID,..SettingsManager.GeefVhisie4Prefix(HandelPersonality),"")
+		Set Response.GebruikerId = 1
+		Set Response.GebruikerNaam = ""
+		Set Response.KlantNaam = KlantData.Naam
+		Set Response.DataOpt = ..GenereerDataOpt(..SettingsManager.GeefWebshopVerwerker(HandelPersonality),Response.KlantId,Response.KlantNaam,Response.GebruikerId,RegistreerContactGegevensRequest.EmailAdres,RegistreerContactGegevensRequest.Header.Taal,RegistreerContactGegevensRequest.KortingFactor)
+		
+		Do ..KortingBewaarder.BewaarMeegegevenKorting(RegistreerContactGegevensRequest.Ref,Response.DataOpt)
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="GenereerDataOpt">
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,Klantnaam:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Korting:%String="0"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	
+	Set KlantSessieData.Email = Email
+	Set KlantSessieData.KlantID = KlantId
+	set KlantSessieData.GebruikerID = GebruikerId
+	Set KlantSessieData.KlantNaam = Klantnaam
+	Set KlantSessieData.Korting = Korting
+	Set KlantSessieData.Taal = Taal
+	
+	Quit ..KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(KlantSessieData, UnishopVerwerker)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHandelKlantDataVoorRegistreer">
+<FormalSpec>KlantId:DOM.VKP.VanHoeckeKlantID,RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.impl.HandelKlantData</ReturnType>
+<Implementation><![CDATA[
+	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ..HandelKlantDataRepository.Maak()
+	
+	Set HandelKlantData.ID = KlantId
+	Set HandelKlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
+	Set HandelKlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
+	Set HandelKlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
+	Set HandelKlantData.Naam = RegistreerContactGegevensRequest.Naam
+	Set HandelKlantData.Postcode = RegistreerContactGegevensRequest.Postcode
+	Set HandelKlantData.StraatEnNr = RegistreerContactGegevensRequest.StraatEnNr
+	Set HandelKlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
+	
+	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..HandelPersonalityRepository.GeefViaID(RegistreerContactGegevensRequest.Header.PersonalityId)
+	Do ..BewaarKlant(HandelPersonality,HandelKlantData)
+	
+	Quit HandelKlantData
+]]></Implementation>
+</Method>
+
+<Method name="BewaarKlant">
+<FormalSpec>Personality:DOM.common.Personality,KlantData:DOM.common.dto.HandelKlantData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..KlantDataBewaarder.Bewaar(Personality, KlantData)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml
===================================================================
diff -u -r45481 -r45491
--- WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 45481)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 45491)
@@ -3,67 +3,25 @@
 <Class name="WSimpl.Vhisie4.Auth.HandelAuthenticator">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="LoginParameterBepaler">
-<Type>WSimpl.Unishop.Login.ParameterBepaler</Type>
+<Property name="Decrypteerder">
+<Type>WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="HandelPersonalityRepository">
-<Type>DOM.common.impl.HandelPersonalityRepository</Type>
+<Property name="Registreerder">
+<Type>WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="HandelKlantDataRepository">
-<Type>DOM.VKP.impl.HandelKlantDataRepository</Type>
-<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>
-
-<Property name="SettingsManager">
-<Type>WSimpl.Vhisie4.SettingsManager</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KortingBewaarder">
-<Type>WSimpl.Unishop.Login.KortingBewaarder</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KlantSessieDataBepaler">
-<Type>APPS.EC.KlantSessieDataBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Decrypteerder">
-<Type>WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,HandelKlantDataRepository:DOM.VKP.impl.HandelKlantDataRepository,HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,WebshopSessionService:APPS.EC.WebshopSessionService,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,SettingsManager:WSimpl.Vhisie4.SettingsManager,LoginKortingBewaarder:WSimpl.Unishop.Login.KortingBewaarder,KlantSessieDataBepaler:APPS.EC.KlantSessieDataBepaler,Decrypteerder:WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder</FormalSpec>
+<FormalSpec>Decrypteerder:WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder,Registreerder:WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..LoginParameterBepaler = $$$Inject(LoginParameterBepaler, ##class(WSimpl.Unishop.Login.ParameterBepaler).%New())
-	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository,##class(DOM.common.impl.HandelPersonalityRepository).%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())
-	Set ..SettingsManager = $$$Inject(SettingsManager,##class(WSimpl.Vhisie4.SettingsManager).%New())
-	Set ..KortingBewaarder = $$$Inject(LoginKortingBewaarder,##class(WSimpl.Unishop.Login.KortingBewaarder).%New())
-	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler,##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
 	Set ..Decrypteerder = $$$Inject(Decrypteerder,##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New())
+	Set ..Registreerder = $$$Inject(Registreerder,##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -79,99 +37,9 @@
 <Method name="RegistreerContactGegevens">
 <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()
-	
-	If (RegistreerContactGegevensRequest.Ref = "") {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ref is verplicht"))
-	} ElseIf (RegistreerContactGegevensRequest.Naam = "") {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Naam is verplicht"))
-	} 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.VKP.impl.HandelKlantData
-		If RegistreerContactGegevensRequest.Header.KlantId = "" {
-			Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_..WebshopSessionService.GeefVolgendeKlantID(HandelPersonality.GeefID())
-			Set KlantData = ..GeefHandelKlantDataVoorRegistreer(KlantId,RegistreerContactGegevensRequest)
-		} Else {
-			Set KlantData = ..HandelKlantDataRepository.GeefViaID(..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId)
-		}
-		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
-		Set KlantData.KlantId = RegistreerContactGegevensRequest.KlantId
-		Set KlantData.GebruikerId = RegistreerContactGegevensRequest.GebruikerId
-		Set KlantData.KortingFactor = RegistreerContactGegevensRequest.KortingFactor
-		
-		Do ..BewaarKlant(HandelPersonality,KlantData)
-
-		Set Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.ID,..SettingsManager.GeefVhisie4Prefix(HandelPersonality),"")
-		Set Response.GebruikerId = 1
-		Set Response.GebruikerNaam = ""
-		Set Response.KlantNaam = KlantData.Naam
-		Set Response.DataOpt = ..GenereerDataOpt(..SettingsManager.GeefWebshopVerwerker(HandelPersonality),Response.KlantId,Response.KlantNaam,Response.GebruikerId,RegistreerContactGegevensRequest.EmailAdres,RegistreerContactGegevensRequest.Header.Taal,RegistreerContactGegevensRequest.KortingFactor)
-		
-		Do ..KortingBewaarder.BewaarMeegegevenKorting(RegistreerContactGegevensRequest.Ref,Response.DataOpt)
-	}
-	
-	Quit Response
+<Implementation><![CDATA[	Quit ..Registreerder.Registreer(RegistreerContactGegevensRequest)
 ]]></Implementation>
 </Method>
-
-<Method name="GenereerDataOpt">
-<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,Klantnaam:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Korting:%String="0"</FormalSpec>
-<ReturnType>%String</ReturnType>
-<WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
-	
-	Set KlantSessieData.Email = Email
-	Set KlantSessieData.KlantID = KlantId
-	set KlantSessieData.GebruikerID = GebruikerId
-	Set KlantSessieData.KlantNaam = Klantnaam
-	Set KlantSessieData.Korting = Korting
-	Set KlantSessieData.Taal = Taal
-	
-	Quit ..KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(KlantSessieData, UnishopVerwerker)
-]]></Implementation>
-</Method>
-
-<Method name="GeefHandelKlantDataVoorRegistreer">
-<FormalSpec>KlantId:DOM.VKP.VanHoeckeKlantID,RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.VKP.impl.HandelKlantData</ReturnType>
-<Implementation><![CDATA[
-	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ..HandelKlantDataRepository.Maak()
-	
-	Set HandelKlantData.ID = KlantId
-	Set HandelKlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
-	Set HandelKlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
-	Set HandelKlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
-	Set HandelKlantData.Naam = RegistreerContactGegevensRequest.Naam
-	Set HandelKlantData.Postcode = RegistreerContactGegevensRequest.Postcode
-	Set HandelKlantData.StraatEnNr = RegistreerContactGegevensRequest.StraatEnNr
-	Set HandelKlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
-	
-	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..HandelPersonalityRepository.GeefViaID(RegistreerContactGegevensRequest.Header.PersonalityId)
-	Do ..BewaarKlant(HandelPersonality,HandelKlantData)
-	
-	Quit HandelKlantData
-]]></Implementation>
-</Method>
-
-<Method name="BewaarKlant">
-<FormalSpec>Personality:DOM.common.Personality,KlantData:DOM.common.dto.HandelKlantData</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	Do ..KlantDataBewaarder.Bewaar(Personality, KlantData)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Fake/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml
===================================================================
diff -u -r45483 -r45491
--- vhTest/Fake/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45483)
+++ vhTest/Fake/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45491)
@@ -6,6 +6,20 @@
 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>WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder</Super>
+
+<Method name="GenereerDataOpt">
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,Klantnaam:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Korting:%String="0"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Registreer">
+<FormalSpec>RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensResponse</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml
===================================================================
diff -u -r45482 -r45491
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 45482)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 45491)
@@ -43,8 +43,8 @@
 	Set KortingBewaarderMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
 	Do KortingBewaarderMock.VerwachtMethodCall("BewaarMeegegevenKorting",RegistreerContactGegevensRequestStub.Ref,DataOpt).ExactAantalKeer(1)
 	
-	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(,HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,,KlantDataBewaarderStub,SettingsManagerStub,KortingBewaarderMock,KlantSessieDataBepalerStub)
-	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(,HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,,KlantDataBewaarderStub,SettingsManagerStub,KortingBewaarderMock,KlantSessieDataBepalerStub)
+	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 	
 	Do HandelKlantDataRepositoryMock.Verifieer()
 	Do KortingBewaarderMock.Verifieer()
@@ -60,9 +60,9 @@
 	#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()
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
 	
-	Do Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 ]]></Implementation>
 </Method>
 
@@ -74,9 +74,9 @@
 	#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()
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
 	
-	Do Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 ]]></Implementation>
 </Method>
 
@@ -88,9 +88,9 @@
 	#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()
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
 	
-	Do Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 ]]></Implementation>
 </Method>
 
@@ -122,8 +122,8 @@
 	Do SettingsManagerStub.IndienMethodCall("GeefVhisie4Prefix",HandelPersonalityStub).DanReturn("daro_")
 	Do SettingsManagerStub.IndienMethodCall("GeefWebshopVerwerker",HandelPersonalityStub).DanReturn("DARO")
 	
-	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(,HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,WebshopSessionServiceStub,KlantDataBewaarderStub,SettingsManagerStub)
-	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(,HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,WebshopSessionServiceStub,KlantDataBewaarderStub,SettingsManagerStub)
+	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 	
 	Do HandelKlantDataRepositoryMock.Verifieer()
 	Do HandelPersonalityRepositoryStub.Verifieer()
@@ -138,8 +138,8 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon object van type DOM.VKP.impl.HandelKlantData niet openen met id 'daro_UT_Ongeldig'")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.BaseException).%ClassName(1),Substrings))
 	
-	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New()
-	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
+	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 ]]></Implementation>
 </Method>
 </Class>