Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r58282 -r58294
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 58282)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 58294)
@@ -18,70 +18,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaardgedrag: handel levert niet rechtstreeks">
+<Method name="Test Alle Personalities">
 <Implementation><![CDATA[
-	
+	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).RandomValue(..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth, ..Personality.Dupont,..Personality.BiemarBois,..Personality.CampeTonny,..Personality.Rini)))
+	while PersonalityIterator.HasNext() {
+		#dim PersonalityId as %String = PersonalityIterator.Next()
+		if ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth, ..Personality.Dupont,..Personality.BiemarBois,..Personality.CampeTonny,..Personality.Rini,..Personality.Furnifit){
+			Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
+		} ElseIf ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.VanHoecke,..Personality.VanHoeckeVoorHalux,..Personality.SFS,..Personality.Kisch,..Personality.Destil,..Personality.HaefeleBE,..Personality.VanRaemdonck,..Personality.Noteborn,..Personality.Daro,..Personality.BeslagDesign,..Personality.Demo,..Personality.Galimberti,..Personality.Pavanello,..Personality.Ferexpert,..Personality.Beslagteknikk,..Personality.YachtSupplier) {
+			Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
+		} else {
+			do ..Fail("Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Niet getest")
+		}
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test: HafeleNL levert rechtstreeks">
-<Implementation><![CDATA[
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.HaefeleNL))
-]]></Implementation>
-</Method>
-
-<Method name="Test: Hein levert rechtstreeks">
-<Implementation><![CDATA[
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Hein))
-]]></Implementation>
-</Method>
-
-<Method name="Test: Seefelder levert rechtstreeks">
-<Implementation><![CDATA[
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Seefelder))
-]]></Implementation>
-</Method>
-
-<Method name="Test: Zweygart levert rechtstreeks">
-<Implementation><![CDATA[
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Zweygart))
-]]></Implementation>
-</Method>
-
-<Method name="Test: JBarth levert rechtstreeks">
-<Implementation><![CDATA[
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.JBarth))
-]]></Implementation>
-</Method>
-
-<Method name="Test: BiemarBois levert rechtstreeks">
-<Implementation><![CDATA[
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.BiemarBois))
-]]></Implementation>
-</Method>
-
-<Method name="Test: CampeTonny levert rechtstreeks">
-<Implementation><![CDATA[
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.CampeTonny))
-]]></Implementation>
-</Method>
-
-<Method name="Test: Rini levert rechtstreeks">
-<Implementation><![CDATA[
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Rini))
-]]></Implementation>
-</Method>
-
 <Method name="Test: Dupont levert rechtstreeks ifv ProjectSetting">
 <Implementation><![CDATA[
 	Set ProjectSettingsApiMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()