Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u -r45823 -r45829
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 45823)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 45829)
@@ -40,18 +40,27 @@
 	#dim KlantData As DOM.VKP.impl.HandelKlantData
 	#dim KlantId As %String = ""
 	
-	If ((RegistreerContactGegevensRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein() && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId))){
-		Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId
-		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
-	} ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
-		Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_..WebshopSessionService.GeefVolgendeKlantID(RegistreerContactGegevensRequest.Header.PersonalityId)
-		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
+	If (RegistreerContactGegevensRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein()){
+		If $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId) {
+			Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId
+			Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
+		} Else {
+			Do ##class(TECH.Exceptions.InvalidInputException).Throw("KlantID moet ingevuld zijn")
+		}
 	} Else {
-		Try {
-			Set KlantData = ..HandelKlantDataRepository.GeefViaID(..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId)
-		} Catch {
-			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon geen klantdata openen met id '"_RegistreerContactGegevensRequest.Header.KlantId_"'")
-		}		
+		If ((RegistreerContactGegevensRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein() && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId))){
+			Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId
+			Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
+		} ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
+			Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_..WebshopSessionService.GeefVolgendeKlantID(RegistreerContactGegevensRequest.Header.PersonalityId)
+			Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
+		} Else {
+			Try {
+				Set KlantData = ..HandelKlantDataRepository.GeefViaID(..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId)
+			} Catch {
+				Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon geen klantdata openen met id '"_RegistreerContactGegevensRequest.Header.KlantId_"'")
+			}		
+		}
 	}
 		
 	Quit KlantData
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r45828 -r45829
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 45828)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 45829)
@@ -92,6 +92,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Hein heeft KlantId niet ingevuld: error">
+<Implementation><![CDATA[
+	#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.KlantId = ""
+	
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
+	
+	#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)
+	
+	Set SettingsManagerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager).%New()
+	Do SettingsManagerMock.VerwachtMethodCall("GeefVhisie4Prefix",HandelPersonalityStub).DanReturn("hein_")
+	
+	Set WebshopSessionServiceMock = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",RegistreerContactGegevensRequestStub.Header.PersonalityId).ExactAantalKeer(0)
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("KlantID moet ingevuld zijn")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Set Bepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New(HandelKlantDataRepositoryMock,SettingsManagerMock,WebshopSessionServiceMock)
+	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = Bepaler.Bepaal(RegistreerContactGegevensRequestStub,HandelPersonalityStub)
+	
+	Do $$$AssertEquals(HandelKlantData.ID,"hein_5")
+	Do SettingsManagerMock.Verifieer()
+	Do HandelKlantDataRepositoryMock.Verifieer()
+	Do WebshopSessionServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Niet-Hein heeft KlantId ingevuld en bestaat niet: error">
 <Implementation><![CDATA[
 	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()