Index: DOM/common/PersonalityService.cls.xml
===================================================================
diff -u
--- DOM/common/PersonalityService.cls.xml	(revision 0)
+++ DOM/common/PersonalityService.cls.xml	(revision 46607)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.PersonalityService">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="IsKlantBij">
+<Abstract>1</Abstract>
+<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonalty:DOM.common.Personality</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="IsOnrechtstreeksKlantBij">
+<Abstract>1</Abstract>
+<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonalty:DOM.common.Personality</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsKlantBij/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/impl/PersonalityService/IsKlantBij/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsKlantBij/Test.cls.xml	(revision 46607)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.common.impl.PersonalityService.IsKlantBij.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Personality is geen klant van zijn eigen">
+<Implementation><![CDATA[
+	set Personality1 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality1.IndienMethodCall("GeefID").DanReturn(1)
+	
+	set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	do $$$AssertFalse(Service.IsKlantBij(Personality1,Personality1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality2 is klant van Personality1">
+<Implementation><![CDATA[
+	set Personality1 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality1.IndienMethodCall("GeefID").DanReturn(1)
+	
+	set Personality2 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality2.IndienMethodCall("GeefID").DanReturn(2)
+	do Personality2.IndienMethodCall("GeefLeverancierData").DanReturn(##class(DOM.common.LeverancierPersonalityData).%New(1,12345))
+	
+	set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	do $$$AssertTrue(Service.IsKlantBij(Personality2,Personality1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality2 is geen klant van Personality1 wegens het ontbreken van leverancierdata">
+<Implementation><![CDATA[
+	set Personality1 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality1.IndienMethodCall("GeefID").DanReturn(1)
+	
+	set Personality2 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality2.IndienMethodCall("GeefID").DanReturn(2)
+	do Personality2.IndienMethodCall("GeefLeverancierData").DanReturn(##class(DOM.common.LeverancierPersonalityData).%New())
+	
+	set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	do $$$AssertFalse(Service.IsKlantBij(Personality2,Personality1))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/common/PersonalityService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/common/PersonalityService.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/common/PersonalityService.cls.xml	(revision 46607)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.common.PersonalityService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.PersonalityService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="IsKlantBij">
+<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonalty:DOM.common.Personality</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsKlantBij",KlantPersonality,LeverancierPersonalty)
+]]></Implementation>
+</Method>
+
+<Method name="IsOnrechtstreeksKlantBij">
+<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonalty:DOM.common.Personality</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsOnrechtstreeksKlantBij",KlantPersonality,LeverancierPersonalty)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u
--- DOM/common/impl/PersonalityRepository.cls.xml	(revision 0)
+++ DOM/common/impl/PersonalityRepository.cls.xml	(revision 46607)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.impl.PersonalityRepository">
+<Super>TECH.Persistentie.impl.Repository,TECH.Mockable</Super>
+
+<Parameter name="DataClassName">
+<Default>DOM.common.impl.Personality</Default>
+</Parameter>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsOnrechtstreeksKlantBij/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/impl/PersonalityService/IsOnrechtstreeksKlantBij/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsOnrechtstreeksKlantBij/Test.cls.xml	(revision 46607)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.common.impl.PersonalityService.IsOnrechtstreeksKlantBij.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Personality is geen klant van zijn eigen">
+<Implementation><![CDATA[
+	set Personality1 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality1.IndienMethodCall("GeefID").DanReturn(1)
+	
+	set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	do $$$AssertFalse(Service.IsOnrechtstreeksKlantBij(Personality1,Personality1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality2 is klant van Personality1 dan is de personality geen onrechtstreekse klant">
+<Implementation><![CDATA[
+	set Personality1 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality1.IndienMethodCall("GeefID").DanReturn(1)
+	
+	set Personality2 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality2.IndienMethodCall("GeefID").DanReturn(2)
+	do Personality2.IndienMethodCall("GeefLeverancierData").DanReturn(##class(DOM.common.LeverancierPersonalityData).%New(1,12345))
+	
+	set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	do $$$AssertFalse(Service.IsOnrechtstreeksKlantBij(Personality2,Personality1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality2 is geen onrechtstreekse klant van Personality1 wegens het ontbreken van leverancierdata">
+<Implementation><![CDATA[
+	set Personality1 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality1.IndienMethodCall("GeefID").DanReturn(1)
+	
+	set Personality2 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality2.IndienMethodCall("GeefID").DanReturn(2)
+	do Personality2.IndienMethodCall("GeefLeverancierData").DanReturn(##class(DOM.common.LeverancierPersonalityData).%New())
+
+	set StubRepo = ##class(vhTest.Mock.DOM.common.impl.PersonalityRepository).%New()
+	
+	set Service = ##class(DOM.common.impl.PersonalityService).%New(StubRepo)
+	do $$$AssertFalse(Service.IsOnrechtstreeksKlantBij(Personality2,Personality1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality3 is een onrechtstreekse klant van Personality1">
+<Implementation><![CDATA[
+	set Personality1 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality1.IndienMethodCall("GeefID").DanReturn(1)
+	
+	set Personality2 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality2.IndienMethodCall("GeefID").DanReturn(2)
+	do Personality2.IndienMethodCall("GeefLeverancierData").DanReturn(##class(DOM.common.LeverancierPersonalityData).%New(1,12345))
+	
+	set Personality3 = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	do Personality3.IndienMethodCall("GeefID").DanReturn(3)
+	do Personality3.IndienMethodCall("GeefLeverancierData").DanReturn(##class(DOM.common.LeverancierPersonalityData).%New(2,54321))
+	
+	set StubRepo = ##class(vhTest.Mock.DOM.common.impl.PersonalityRepository).%New()
+	do StubRepo.IndienMethodCall("GeefViaID",2).DanReturn(Personality2)
+	do StubRepo.IndienMethodCall("GeefViaID",1).DanReturn(Personality1)
+
+	set Service = ##class(DOM.common.impl.PersonalityService).%New(StubRepo)
+	do $$$AssertTrue(Service.IsOnrechtstreeksKlantBij(Personality3,Personality1))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/common/impl/PersonalityRepository.cls.xml	(revision 46607)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.common.impl.PersonalityRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.impl.PersonalityRepository</Super>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u
--- DOM/common/impl/PersonalityService.cls.xml	(revision 0)
+++ DOM/common/impl/PersonalityService.cls.xml	(revision 46607)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.impl.PersonalityService">
+<Super>TECH.RegisteredObject,DOM.common.PersonalityService</Super>
+
+<Property name="PersonalityRepo">
+<Type>DOM.common.impl.PersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PersonalityRepo:DOM.common.impl.PersonalityRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..PersonalityRepo = $$$Inject(PersonalityRepo,##class(DOM.common.impl.PersonalityRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsKlantBij">
+<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonalty:DOM.common.Personality</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(KlantPersonality.GeefID() = LeverancierPersonalty.GeefID()) $$$False
+	Quit:$$$Not($Length(KlantPersonality.GeefLeverancierData().PersonalityId)) $$$False
+
+	#dim IsKlantBij As %Boolean = $$$False
+	
+	If 'IsKlantBij && $Length(KlantPersonality.GeefLeverancierData().PersonalityId) {
+		set IsKlantBij = ( KlantPersonality.GeefLeverancierData().PersonalityId = LeverancierPersonalty.GeefID() )
+	}
+	
+	Quit IsKlantBij
+]]></Implementation>
+</Method>
+
+<Method name="IsOnrechtstreeksKlantBij">
+<FormalSpec>KlantPersonality:DOM.common.Personality,LeverancierPersonalty:DOM.common.Personality</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(KlantPersonality.GeefID() = LeverancierPersonalty.GeefID()) $$$False
+	Quit:$$$Not($Length(KlantPersonality.GeefLeverancierData().PersonalityId)) $$$False
+	
+	Quit:..IsKlantBij(KlantPersonality,LeverancierPersonalty) $$$False
+	
+	#dim IsOnrechtstreeksKlantBij As %Boolean = $$$False
+	Set KlantPersonality = ..PersonalityRepo.GeefViaID(KlantPersonality.GeefLeverancierData().PersonalityId)
+	while 'IsOnrechtstreeksKlantBij && $Length(KlantPersonality.GeefLeverancierData().PersonalityId) {
+		set IsOnrechtstreeksKlantBij = ( KlantPersonality.GeefLeverancierData().PersonalityId = LeverancierPersonalty.GeefID() )
+		set KlantPersonality = ..PersonalityRepo.GeefViaID(KlantPersonality.GeefLeverancierData().PersonalityId)
+	}
+	
+	quit IsOnrechtstreeksKlantBij
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/common/impl/PersonalityRepository.cls.xml	(revision 46607)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.common.impl.PersonalityRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.impl.PersonalityRepository,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",Data)
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",ID)
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Maak")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaID",ID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>