Index: DOM/VKP/impl/DemoKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/DemoKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/DemoKlantData.cls.xml	(revision 52196)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.DemoKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml
===================================================================
diff -u -r46826 -r52196
--- vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 46826)
+++ vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 52196)
@@ -30,10 +30,11 @@
 	#dim PersonalityIterator As TECH.Iterator = ..PersonalityRepo.ZoekAlle()
 	while PersonalityIterator.HasNext() {
 		#dim Personality As DOM.common.Personality = PersonalityIterator.Next()
+		If (($$$Not(Personality.%Extends(##class(DOM.common.BeslagDesignPersonality).%ClassName($$$True)))) && ($$$Not(Personality.%Extends(##class(DOM.common.DemoPersonality).%ClassName($$$True))))) {
+			continue:(Personality.GeefID() = ..Enum.Personality.VanHoeckeVoorHalux)
 		
-		continue:(Personality.GeefID() = ..Enum.Personality.VanHoeckeVoorHalux)
-		
 		do ..AssertIsGeldigKlantId(Personality)
+		}
 	}
 ]]></Implementation>
 </Method>
Index: DOM/VKP/impl/BeslagDesignKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/BeslagDesignKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/BeslagDesignKlantData.cls.xml	(revision 52196)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.BeslagDesignKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>