Index: vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml
===================================================================
diff -u -r72290 -r74459
--- vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 72290)
+++ vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 74459)
@@ -32,14 +32,32 @@
 		#dim Personality As DOM.common.Personality = PersonalityIterator.Next()
 		If ($$$Not(Personality.%Extends(##class(DOM.common.DemoPersonality).%ClassName($$$True)))) {
 			continue:(Personality.GeefID() = ..Enum.Personality.VanHoeckeVoorHalux)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLAbler)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLBiuroStyl)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLCMeube)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLDemo)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLDrewno)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLDrewTrans)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLHeban)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLHorst)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLIntar)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLKOK)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLKosmaz)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMarkat)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMeble)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMebloa)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMeblolux)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMeblostyl)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMerkur)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLPakdrew)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLSAS)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLSchach)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLWior)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLWiP)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumCZSchachermayer)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumCZJAF)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumCZTwd)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumCZDrevoTrust)
 		
 		do ..AssertIsGeldigKlantId(Personality)
 		}