Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r46643 -r46721
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 46643)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 46721)
@@ -13,8 +13,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KlantIdValidator">
-<Type>APPS.CRM.impl.KlantIDValidator</Type>
+<Property name="PersonalityService">
+<Type>DOM.common.PersonalityService</Type>
 <Private>1</Private>
 </Property>
 
@@ -29,13 +29,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantIdValidator:APPS.CRM.impl.KlantIDValidator="",KlantDataRepository:DOM.VKP.impl.KlantDataRepository="",KlantDataFactory:DOM.VKP.impl.KlantDataFactory=""</FormalSpec>
+<FormalSpec>PersonalityService:DOM.common.PersonalityService="",KlantDataRepository:DOM.VKP.impl.KlantDataRepository="",KlantDataFactory:DOM.VKP.impl.KlantDataFactory=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..KlantIdValidator = $$$Inject(KlantIdValidator, ##class(APPS.CRM.impl.KlantIDValidator).%New())
+	Set ..PersonalityService = $$$Inject(PersonalityService, ##class(DOM.common.impl.PersonalityService).%New())
 	Set ..KlantDataRepository = $$$Inject(KlantDataRepository, ##class(DOM.VKP.impl.KlantDataRepository).%New())
 	Set ..KlantDataFactory = $$$Inject(KlantDataFactory, ##class(DOM.VKP.impl.KlantDataFactory).%New())
 	
@@ -71,7 +71,7 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, SFSPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, SFSPersonality)
+	Do ..ValideerKlantId(..KlantDataDto.ID, SFSPersonality)
 	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
@@ -81,7 +81,7 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, HaefeleBEPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, HaefeleBEPersonality)
+	Do ..ValideerKlantId(..KlantDataDto.ID, HaefeleBEPersonality)
 	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
@@ -91,7 +91,7 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, HaefeleNLPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, HaefeleNLPersonality)
+	Do ..ValideerKlantId(..KlantDataDto.ID, HaefeleNLPersonality)
 	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
@@ -101,8 +101,8 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, HeinPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, HeinPersonality)
-	Do ..ConverteerHandelKlantData(..KlantData, ..KlantDataDto)
+	Do ..ValideerKlantId(..KlantDataDto.ID, HeinPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
 
@@ -111,8 +111,8 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, SeefelderPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, SeefelderPersonality)
-	Do ..ConverteerHandelKlantData(..KlantData, ..KlantDataDto)
+	Do ..ValideerKlantId(..KlantDataDto.ID, SeefelderPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
 
@@ -121,7 +121,7 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, DestilPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, DestilPersonality)
+	Do ..ValideerKlantId(..KlantDataDto.ID, DestilPersonality)
 	Do ..ConverteerHandelKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
@@ -131,7 +131,7 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, DupontPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, DupontPersonality)
+	Do ..ValideerKlantId(..KlantDataDto.ID, DupontPersonality)
 	Do ..ConverteerHandelKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
@@ -141,7 +141,7 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, VanRaemdonckPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, VanRaemdonckPersonality)
+	Do ..ValideerKlantId(..KlantDataDto.ID, VanRaemdonckPersonality)
 	Do ..ConverteerVanRaemdonckKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
@@ -151,7 +151,7 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, KischPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, KischPersonality)
+	Do ..ValideerKlantId(..KlantDataDto.ID, KischPersonality)
 	Do ..ConverteerKischKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
@@ -161,7 +161,7 @@
 <Implementation><![CDATA[
 	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, DaroPersonality)
 	
-	Do ..KlantIdValidator.Valideer(..KlantDataDto.ID, DaroPersonality)
+	Do ..ValideerKlantId(..KlantDataDto.ID, DaroPersonality)
 	Do ..ConverteerDaroKlantData(..KlantData, ..KlantDataDto)
 ]]></Implementation>
 </Method>
@@ -237,6 +237,13 @@
 	Set KlantData.EmailAdres = KlantDataDto.EmailAdres
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerKlantId">
+<FormalSpec>KlantId:%String,Personality:DOM.common.Personality</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do:$$$Not(..PersonalityService.IsGeldigKlantId(Personality,KlantId)) ##class(TECH.Exceptions.InvalidInputException).Throw("De klant '"_KlantId_"' is niet geldig voor personality '"_##class(DOM.common.enu.Personality).LogicalToDisplay(Personality.GeefID())_"'.")
+]]></Implementation>
+</Method>
 </Class>