Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r46643 -r53408
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 46643)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 53408)
@@ -57,53 +57,93 @@
 </Method>
 
 <Method name="Test: Hein heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
+<Implementation><![CDATA[	Do ..AanmakenKlantVoorPersonality(##class(DOM.common.enu.Personality).Hein())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Seefelder heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
+<Implementation><![CDATA[	Do ..AanmakenKlantVoorPersonality(##class(DOM.common.enu.Personality).Seefelder())
+]]></Implementation>
+</Method>
+
+<Method name="Test: BeslagDesign heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
+<Implementation><![CDATA[	Do ..AanmakenKlantVoorPersonality(##class(DOM.common.enu.Personality).BeslagDesign())
+]]></Implementation>
+</Method>
+
+<Method name="AanmakenKlantVoorPersonality">
+<FormalSpec>PersonalityId:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
+	#dim Personality As DOM.common.impl.HandelPersonality = ##class(DOM.common.impl.PersonalityRepository).%New().GeefViaID(PersonalityId)
+	
 	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
-	Set RegistreerContactGegevensRequestStub.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein()
+	Set RegistreerContactGegevensRequestStub.Header.PersonalityId = Personality.GeefID()
 	
 	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
 	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
-	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("hein_")
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn(Personality.GeefPrefix())
 	
 	#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("GeefViaID","hein_"_RegistreerContactGegevensRequestStub.Header.KlantId).ExactAantalKeer(0)
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("GeefViaID",Personality.GeefPrefix()_RegistreerContactGegevensRequestStub.Header.KlantId).ExactAantalKeer(0)
 	
+	#dim VolgendeKlantId As %String = "5"
 	Set WebshopSessionServiceMock = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
-	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",RegistreerContactGegevensRequestStub.Header.PersonalityId).ExactAantalKeer(0)
+	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",RegistreerContactGegevensRequestStub.Header.PersonalityId).ExactAantalKeer(0).DanReturn(VolgendeKlantId)
 	
 	Set Bepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New(HandelKlantDataRepositoryMock,WebshopSessionServiceMock)
 	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = Bepaler.Bepaal(RegistreerContactGegevensRequestStub,HandelPersonalityStub)
 	
-	Do $$$AssertEquals(HandelKlantData.ID,"hein_5")
+	Do $$$AssertEquals(HandelKlantData.ID,Personality.GeefPrefix()_VolgendeKlantId)
 	Do HandelKlantDataRepositoryMock.Verifieer()
 	Do WebshopSessionServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Hein heeft KlantId niet ingevuld: nieuw nummer genereren">
+<Implementation><![CDATA[	Do ..NieuwNummerGenererenBinnenPersonality(##class(DOM.common.enu.Personality).Hein())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Seefelder heeft KlantId niet ingevuld: nieuw nummer genereren">
+<Implementation><![CDATA[	Do ..NieuwNummerGenererenBinnenPersonality(##class(DOM.common.enu.Personality).Seefelder())
+]]></Implementation>
+</Method>
+
+<Method name="Test: BeslagDesign heeft KlantId niet ingevuld: nieuw nummer genereren">
+<Implementation><![CDATA[	Do ..NieuwNummerGenererenBinnenPersonality(##class(DOM.common.enu.Personality).BeslagDesign())
+]]></Implementation>
+</Method>
+
+<Method name="NieuwNummerGenererenBinnenPersonality">
+<FormalSpec>PersonalityId:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
+	#dim Personality As DOM.common.impl.HandelPersonality = ##class(DOM.common.impl.PersonalityRepository).%New().GeefViaID(PersonalityId)
+	
 	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
-	Set RegistreerContactGegevensRequestStub.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein()
+	Set RegistreerContactGegevensRequestStub.Header.PersonalityId = Personality.GeefID()
 	Set RegistreerContactGegevensRequestStub.Header.KlantId = ""
 	
 	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
 	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
-	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("hein_")
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn(Personality.GeefPrefix())
 	
 	#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("GeefViaID","hein_"_RegistreerContactGegevensRequestStub.Header.KlantId).ExactAantalKeer(0)
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("GeefViaID",Personality.GeefPrefix()_RegistreerContactGegevensRequestStub.Header.KlantId).ExactAantalKeer(0)
 	
+	#dim VolgendeKlantId As %String = "5"
 	Set WebshopSessionServiceMock = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
-	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",RegistreerContactGegevensRequestStub.Header.PersonalityId).ExactAantalKeer(1).DanReturn(5)
+	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",RegistreerContactGegevensRequestStub.Header.PersonalityId).ExactAantalKeer(1).DanReturn(VolgendeKlantId)
 	
 	Set Bepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New(HandelKlantDataRepositoryMock,WebshopSessionServiceMock)
 	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = Bepaler.Bepaal(RegistreerContactGegevensRequestStub,HandelPersonalityStub)
 	
-	Do $$$AssertEquals(HandelKlantData.ID,"hein_5")
+	Do $$$AssertEquals(HandelKlantData.ID,Personality.GeefPrefix()_VolgendeKlantId)
 	Do HandelKlantDataRepositoryMock.Verifieer()
 	Do WebshopSessionServiceMock.Verifieer()
 ]]></Implementation>