Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r59337 -r62674
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 59337)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 62674)
@@ -38,7 +38,7 @@
 <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)
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
 	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Dupont))
@@ -48,6 +48,21 @@
 	Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Dupont))
 ]]></Implementation>
 </Method>
+
+<Method name="Test: HaefeleBE levert rechtstreeks ifv ProjectSetting">
+<Implementation><![CDATA[
+	Set ProjectSettingsApiMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$True)
+	
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.HaefeleBE))
+	
+	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$False)
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
+	Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.HaefeleBE))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r62185 -r62674
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 62185)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 62674)
@@ -123,6 +123,9 @@
 	If ..ProjectSettingsAPI.IsActiefDuPontNaarEindklant() {
 		Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Dupont()) $$$True
 	}
+	If ..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant() {
+		Quit:(PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()) $$$True
+	}
 	Quit $$$False
 ]]></Implementation>
 </Method>