Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r50057 -r53674
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 50057)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 53674)
@@ -92,6 +92,17 @@
 	Quit Personality.GeefPrefix()_KlantCode
 ]]></Implementation>
 </Method>
+
+<Method name="IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel">
+<FormalSpec>PersonalityID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Hein()) $$$True
+	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Seefelder()) $$$True
+	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL()) $$$True
+	Quit $$$False
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r52195 -r53674
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 52195)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 53674)
@@ -117,6 +117,23 @@
 <Implementation><![CDATA[	Quit 15
 ]]></Implementation>
 </Method>
+
+<Method name="RandomValue">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Value As TECH.String = ""
+	#dim ValueList As TECH.Iterator = ..ValueList()
+	#dim ValueToBeIgnoredIterator As TECH.Iterator = ##class(TECH.ArrayOneDimIterator).%New(.ValueToBeIgnored)
+	While ( Value = "" ) || ( ( ValueToBeIgnoredIterator.HasNext() ) && (##class(TECH.ListUtils).IsValueInIterator(Value,ValueToBeIgnoredIterator)) ) {
+		Set Value = ValueList.GetAt($random(ValueList.Count()+1))
+		Do ValueToBeIgnoredIterator.Reset()
+	}
+
+	Quit Value
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/common/PersonalityService.cls.xml
===================================================================
diff -u -r46621 -r53674
--- vhTest/Mock/DOM/common/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 46621)
+++ vhTest/Mock/DOM/common/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 53674)
@@ -42,6 +42,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("IsOnrechtstreeksKlantBij",KlantPersonality,LeverancierPersonality)
 ]]></Implementation>
 </Method>
+
+<Method name="IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel">
+<FormalSpec>PersonalityID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel",PersonalityID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/PersonalityService.cls.xml
===================================================================
diff -u -r46621 -r53674
--- DOM/common/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 46621)
+++ DOM/common/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 53674)
@@ -33,6 +33,12 @@
 <FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel">
+<Abstract>1</Abstract>
+<FormalSpec>PersonalityID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(revision 53674)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.common.impl.PersonalityService.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag: handel levert niet rechtstreeks">
+<Implementation><![CDATA[
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).RandomValue(##class(DOM.common.enu.Personality).HaefeleNL(), ##class(DOM.common.enu.Personality).Hein(), ##class(DOM.common.enu.Personality).Seefelder())))
+]]></Implementation>
+</Method>
+
+<Method name="Test: HafeleNL levert rechtstreeks">
+<Implementation><![CDATA[
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).HaefeleNL()))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Hein levert rechtstreeks">
+<Implementation><![CDATA[
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).Hein()))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Seefelder levert rechtstreeks">
+<Implementation><![CDATA[
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).Seefelder()))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>