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>