Index: vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml
===================================================================
diff -u -r72286 -r72391
--- vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 72286)
+++ vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 72391)
@@ -26,18 +26,7 @@
 
 <Method name="Test: Correcte Personality-KlantData wordt geïnstantieerd op basis van Personality">
 <Implementation><![CDATA[
-	#dim Uitzonderingen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).VanHoecke())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).VanHoeckeVoorHalux())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).Noteborn())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLCMeube())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLDemo())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMeble())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMebloa())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMerkur())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLPakdrew())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLSAS())
-	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLSchach())
+	#dim Uitzonderingen As %ListOfDataTypes = ..GeefLijstVanUitgezonderdePersonalities()
 	
 	#dim Filter As TECH.Filter = ##class(TECH.Filter.ValueBasedFilter).%New(Uitzonderingen)
 	#dim Iterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(##class(DOM.common.enu.Personality).ValueListIterator(),, Filter)
@@ -78,6 +67,34 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLijstVanUitgezonderdePersonalities">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Uitzonderingen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).VanHoecke())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).VanHoeckeVoorHalux())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).Noteborn())
+	
+	// alle distributeurs van Blum Polen hebben dezelfde prefix: _BPLD
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLAbler())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLCMeube())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLDemo())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMeble())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMebloa())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMeblolux())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMerkur())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMeurer())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLPakdrew())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLSAS())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLSchach())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLWiP())
+	
+	Quit Uitzonderingen
+]]></Implementation>
+</Method>
 </Class>