Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r41945 -r51117
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 41945)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 51117)
@@ -52,6 +52,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PersonalityRepository">
+<Type>DOM.common.impl.PersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>BonNummer:%Integer</FormalSpec>
 <Private>1</Private>
@@ -63,6 +68,7 @@
 	Set ..OrderApi = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	Set ..PersonalityViaOorsprongBepaler = ##class(DOM.VKP.impl.DataM.DataMOrder.PersonalityViaOorsprongBepaler).%New()
 	Set ..PartijApi = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
+	Set ..PersonalityRepository = ##class(DOM.common.impl.PersonalityRepository).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -379,6 +385,29 @@
 <Implementation><![CDATA[	Quit ..GeefAanbrengers().Find(AanbrengerCode)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEindPersonality">
+<ReturnType>DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality
+	Try {
+		#dim OorsprongKettingString As %String = $P(..NodeHoofding,"\",59)
+		
+		Set OorsprongKettingString = $Replace(OorsprongKettingString,"((","")
+		Set OorsprongKettingString = $Replace(OorsprongKettingString,"))","")
+		
+		#dim OorsprongKetting As %List = ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKettingString, "), (")
+		
+		#dim PersonalityID As %Integer = $Piece($List(OorsprongKetting,1),",",1)
+		Set Personality = ..PersonalityRepository.GeefViaID(PersonalityID)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Personality = ..PersonalityRepository.GeefViaID(##class(DOM.common.enu.Personality).VanHoecke())
+	}
+	
+	Quit Personality
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/VKP/Bon.cls.xml
===================================================================
diff -u -r29059 -r51117
--- vhTest/Mock/DOM/VKP/Bon.cls.xml	(.../Bon.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/VKP/Bon.cls.xml	(.../Bon.cls.xml)	(revision 51117)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.DOM.VKP.Bon">
 <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
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+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.VKP.Bon,Tools.Mock.MockClassBase</Super>
 <Inheritance>left</Inheritance>
@@ -59,6 +58,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEindPersonality">
+<ReturnType>DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEindPersonality")
+]]></Implementation>
+</Method>
+
 <Method name="GeefFactuurID">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFactuurID")
Index: DOM/VKP/Bon.cls.xml
===================================================================
diff -u -r29059 -r51117
--- DOM/VKP/Bon.cls.xml	(.../Bon.cls.xml)	(revision 29059)
+++ DOM/VKP/Bon.cls.xml	(.../Bon.cls.xml)	(revision 51117)
@@ -178,6 +178,11 @@
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefEindPersonality">
+<Abstract>1</Abstract>
+<ReturnType>DOM.common.Personality</ReturnType>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefEindPersonality/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefEindPersonality/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefEindPersonality/Test.cls.xml	(revision 51117)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMBonAbstract.GeefEindPersonality.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Uitlevering">
+<Type>%String</Type>
+<Default>347827</Default>
+</Parameter>
+
+<Parameter name="KlantNummer">
+<Type>%String</Type>
+<Default>3042</Default>
+</Parameter>
+
+<Parameter name="FactuurNummer">
+<Type>%String</Type>
+<Default>427987</Default>
+</Parameter>
+
+<Property name="Ketting">
+<Type>%String</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ^KU1(..#Uitlevering,"F") = ..#KlantNummer_"\"_..#FactuurNummer_"\P\"
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ^KUL(..#KlantNummer,"F",..#Uitlevering,1)
+	Kill ^KU1(..#Uitlevering,"F")
+	
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Kill ^KUL(..#KlantNummer,"F",..#Uitlevering,1)
+	Kill ^KU1(..#Uitlevering,"F")
+	
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met crappy data">
+<Implementation><![CDATA[
+	#dim Ketting As %String = $$$DummyString
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met 0 items">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "()"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met 1 items (bv Van Hoecke)">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "((1, ""K||7833"", 255025))"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met 2 items (bv Hein -&gt; Van Hoecke)">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "((11, ""hein_221"", 255024), (1, ""K||7833"", 255025))"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).Hein())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met 3 items (bv Seefelder -&gt; Hein -&gt; Van Hoecke)">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "((13, ""seefelder"", 1234), (11, ""hein_221"", 255024), (1, ""K||7833"", 255025))"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).Seefelder())
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<FormalSpec>Ketting:%String</FormalSpec>
+<ReturnType>DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[
+	Set $P(^KUL(..#KlantNummer,"F",..#Uitlevering,1),"\",59) = Ketting
+	
+	Set DataMBonAbstract = ##class(DOM.VKP.impl.DataM.DataMBon).%New(..#Uitlevering)
+	Quit DataMBonAbstract.GeefEindPersonality()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>