Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r63844 -r63970
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 63844)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 63970)
@@ -131,6 +131,9 @@
 	If ..ProjectSettingsAPI.IsActiefFerexpertNaarEindklant() {
 		Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Ferexpert()) $$$True
 	}
+	If ..ProjectSettingsAPI.IsActiefVanRaemdonckNaarEindklant() {
+		Quit:(PersonalityID = ##class(DOM.common.enu.Personality).VanRaemdonck()) $$$True
+	}
 	Quit $$$False
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r63827 -r63970
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 63827)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 63970)
@@ -18,15 +18,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Alle Personalities">
+<Method name="Test Alle Personalities met projectsettings false">
 <Implementation><![CDATA[
 	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
-	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
+
+
+	Set ProjectSettingsApiMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$False)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$False)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefPavanelloNaarEindklant").DanReturn($$$False)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefFerexpertNaarEindklant").DanReturn($$$False)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefVanRaemdonckNaarEindklant").DanReturn($$$False)
+	
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
+
 	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.Kleiner,..Personality.Layer, ..Personality.Dupont,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,..Personality.HaefeleSE,..Personality.HaefeleFI,..Personality.DSGroup){
+		if ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth,..Personality.Kleiner,..Personality.Layer,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,..Personality.HaefeleSE,..Personality.HaefeleFI,..Personality.DSGroup){
 			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,..Personality.DeceuninckDeforce,..Personality.Pierard,..Personality.HahleOy,..Personality.BiemarBois,..Personality.CampeTonny) {
+		} 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,..Personality.DeceuninckDeforce,..Personality.Pierard,..Personality.HahleOy,..Personality.BiemarBois,..Personality.CampeTonny, ..Personality.Dupont) {
 			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")
@@ -35,13 +45,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Alle Personalities met projectsettings true">
+<Implementation><![CDATA[
+	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
+
+
+	Set ProjectSettingsApiMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$True)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefPavanelloNaarEindklant").DanReturn($$$True)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefFerexpertNaarEindklant").DanReturn($$$True)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefVanRaemdonckNaarEindklant").DanReturn($$$True)
+	
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
+
+	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.Kleiner,..Personality.Layer, ..Personality.Dupont,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,..Personality.HaefeleSE,..Personality.HaefeleFI,..Personality.DSGroup,..Personality.HaefeleBE,..Personality.VanRaemdonck,..Personality.Pavanello,..Personality.Ferexpert){
+			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.Noteborn,..Personality.Daro,..Personality.BeslagDesign,..Personality.Demo,..Personality.Galimberti,..Personality.Beslagteknikk,..Personality.YachtSupplier,..Personality.DeceuninckDeforce,..Personality.Pierard,..Personality.HahleOy,..Personality.BiemarBois,..Personality.CampeTonny) {
+			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: Dupont levert rechtstreeks ifv ProjectSetting">
 <Implementation><![CDATA[
 	Set ProjectSettingsApiMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefPavanelloNaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefFerexpertNaarEindklant").DanReturn($$$True)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefVanRaemdonckNaarEindklant").DanReturn($$$True)
+	
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
 	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Dupont))
 	
@@ -57,6 +96,7 @@
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefPavanelloNaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefFerexpertNaarEindklant").DanReturn($$$True)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefVanRaemdonckNaarEindklant").DanReturn($$$True)
 	
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
@@ -74,6 +114,7 @@
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefPavanelloNaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefFerexpertNaarEindklant").DanReturn($$$True)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefVanRaemdonckNaarEindklant").DanReturn($$$True)
 	
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
@@ -91,6 +132,7 @@
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefPavanelloNaarEindklant").DanReturn($$$True)
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefFerexpertNaarEindklant").DanReturn($$$True)
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefVanRaemdonckNaarEindklant").DanReturn($$$True)
 	
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)