Index: vhUnitTest/DOM/common/Personality/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/Personality/Base.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/Personality/Base.cls.xml	(revision 45709)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.common.Personality.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Enum">
+<Type>vhUnitTest.DOM.common.Personality.Enums</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(revision 45709)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.common.Personality.GeefLeverancierData.Test">
+<Super>vhUnitTest.DOM.common.Personality.Base</Super>
+
+<Method name="Test: Alle Personalities Hebben GeefLeverancierData">
+<Implementation><![CDATA[
+	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
+	while PersonalityIterator.HasNext() {
+		#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityIterator.Next())
+		try {
+			do Personality.GeefLeverancierData()
+		} catch {
+			do ##class(TECH.ExceptionHandler).Catch()
+			do $$$AssertFalse(1,"GeefLeverancierData niet gedefinieerd voor "_Personality.%ClassName(1))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestVanHoecke">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.VanHoecke,"","")
+]]></Implementation>
+</Method>
+
+<Method name="TestVanHoeckeVoorHalux">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.VanHoeckeVoorHalux,"","")
+]]></Implementation>
+</Method>
+
+<Method name="TestSFS">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.SFS,..Enum.Personality.VanHoecke,..Enum.Klant.SFS)
+]]></Implementation>
+</Method>
+
+<Method name="TestHaefeleBE">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.HaefeleBE,..Enum.Personality.VanHoecke,..Enum.Klant.HaefeleBelgie)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGeefLeverancierData">
+<FormalSpec>PersonalityID:DOM.common.enu.Personality,VerwachtePersonalityId:DOM.common.enu.Personality,VerwachteId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	do $$$AssertEquals(Personality.GeefLeverancierData().EigenKlantId,VerwachteId)
+	do $$$AssertEquals(Personality.GeefLeverancierData().PersonalityId,VerwachtePersonalityId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/VanHoeckePersonality.cls.xml
===================================================================
diff -u -r29059 -r45709
--- DOM/common/VanHoeckePersonality.cls.xml	(.../VanHoeckePersonality.cls.xml)	(revision 29059)
+++ DOM/common/VanHoeckePersonality.cls.xml	(.../VanHoeckePersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New()
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 0
Index: DOM/common/LeverancierPersonalityData.cls.xml
===================================================================
diff -u
--- DOM/common/LeverancierPersonalityData.cls.xml	(revision 0)
+++ DOM/common/LeverancierPersonalityData.cls.xml	(revision 45709)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.LeverancierPersonalityData">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="EigenKlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="PersonalityId">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PersonalityId:%String="",EigenKlantId:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..PersonalityId = PersonalityId
+	set ..EigenKlantId = EigenKlantId
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/HeinPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/HeinPersonality.cls.xml	(.../HeinPersonality.cls.xml)	(revision 41838)
+++ DOM/common/HeinPersonality.cls.xml	(.../HeinPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Hein())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: DOM/common/HandelPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/HandelPersonality.cls.xml	(.../HandelPersonality.cls.xml)	(revision 41838)
+++ DOM/common/HandelPersonality.cls.xml	(.../HandelPersonality.cls.xml)	(revision 45709)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.common.HandelPersonality">
+<Abstract>1</Abstract>
 <Super>DOM.common.Personality</Super>
 
 <Method name="GeefPrefix">
Index: DOM/common/KischPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/KischPersonality.cls.xml	(.../KischPersonality.cls.xml)	(revision 41838)
+++ DOM/common/KischPersonality.cls.xml	(.../KischPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Kisch())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: DOM/common/SFSPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/SFSPersonality.cls.xml	(.../SFSPersonality.cls.xml)	(revision 41838)
+++ DOM/common/SFSPersonality.cls.xml	(.../SFSPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).SFS())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: DOM/common/HaefeleBEPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/HaefeleBEPersonality.cls.xml	(.../HaefeleBEPersonality.cls.xml)	(revision 41838)
+++ DOM/common/HaefeleBEPersonality.cls.xml	(.../HaefeleBEPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).HaefeleBelgie())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: DOM/common/DestilPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/DestilPersonality.cls.xml	(.../DestilPersonality.cls.xml)	(revision 41838)
+++ DOM/common/DestilPersonality.cls.xml	(.../DestilPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Destil())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: DOM/common/NotebornPersonality.cls.xml
===================================================================
diff -u -r29059 -r45709
--- DOM/common/NotebornPersonality.cls.xml	(.../NotebornPersonality.cls.xml)	(revision 29059)
+++ DOM/common/NotebornPersonality.cls.xml	(.../NotebornPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Noteborn())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: vhUnitTest/DOM/common/Personality/GeefTaal/Test.cls.xml
===================================================================
diff -u -r29059 -r45709
--- vhUnitTest/DOM/common/Personality/GeefTaal/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/common/Personality/GeefTaal/Test.cls.xml	(.../Test.cls.xml)	(revision 45709)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.common.Personality.GeefTaal.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.common.Personality.Base</Super>
 
 <Method name="TestAllePersonalitiesHebbenGeefTaal">
 <Implementation><![CDATA[
@@ -19,17 +19,17 @@
 </Method>
 
 <Method name="TestVanHoecke">
-<Implementation><![CDATA[	do ..AssertTaal(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.enu.Taal).Nederlands())
+<Implementation><![CDATA[	do ..AssertTaal(..Enum.Personality.VanHoecke,##class(DOM.enu.Taal).Nederlands())
 ]]></Implementation>
 </Method>
 
 <Method name="TestVanHoeckeVoorHalux">
-<Implementation><![CDATA[	do ..AssertTaal(##class(DOM.common.enu.Personality).VanHoeckeVoorHalux(),##class(DOM.enu.Taal).Nederlands())
+<Implementation><![CDATA[	do ..AssertTaal(..Enum.Personality.VanHoeckeVoorHalux,##class(DOM.enu.Taal).Nederlands())
 ]]></Implementation>
 </Method>
 
 <Method name="TestSFS">
-<Implementation><![CDATA[	do ..AssertTaal(##class(DOM.common.enu.Personality).SFS(),##class(DOM.enu.Taal).Duits())
+<Implementation><![CDATA[	do ..AssertTaal(..Enum.Personality.SFS,##class(DOM.enu.Taal).Duits())
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/DOM/common/Personality.cls.xml
===================================================================
diff -u -r29632 -r45709
--- vhTest/Mock/DOM/common/Personality.cls.xml	(.../Personality.cls.xml)	(revision 29632)
+++ vhTest/Mock/DOM/common/Personality.cls.xml	(.../Personality.cls.xml)	(revision 45709)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.DOM.common.Personality">
 <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.common.Personality,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: vhUnitTest/DOM/common/Personality/IsHandel/Test.cls.xml
===================================================================
diff -u -r29059 -r45709
--- vhUnitTest/DOM/common/Personality/IsHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/common/Personality/IsHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 45709)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.common.Personality.IsHandel.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.common.Personality.Base</Super>
 
 <Method name="TestAllePersonalitiesHebbenGeefTaal">
 <Implementation><![CDATA[
@@ -19,22 +19,22 @@
 </Method>
 
 <Method name="TestVanHoecke">
-<Implementation><![CDATA[	do ..AssertIsHandel(##class(DOM.common.enu.Personality).VanHoecke(),$$$false)
+<Implementation><![CDATA[	do ..AssertIsHandel(..Enum.Personality.VanHoecke,$$$false)
 ]]></Implementation>
 </Method>
 
 <Method name="TestVanHoeckeVoorHalux">
-<Implementation><![CDATA[	do ..AssertIsHandel(##class(DOM.common.enu.Personality).VanHoeckeVoorHalux(),$$$false)
+<Implementation><![CDATA[	do ..AssertIsHandel(..Enum.Personality.VanHoeckeVoorHalux,$$$false)
 ]]></Implementation>
 </Method>
 
 <Method name="TestSFS">
-<Implementation><![CDATA[	do ..AssertIsHandel(##class(DOM.common.enu.Personality).SFS(),$$$true)
+<Implementation><![CDATA[	do ..AssertIsHandel(..Enum.Personality.SFS,$$$true)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHaefeleBE">
-<Implementation><![CDATA[	do ..AssertIsHandel(##class(DOM.common.enu.Personality).HaefeleBE(),$$$true)
+<Implementation><![CDATA[	do ..AssertIsHandel(..Enum.Personality.HaefeleBE,$$$true)
 ]]></Implementation>
 </Method>
 
Index: DOM/common/HaefeleNLPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/HaefeleNLPersonality.cls.xml	(.../HaefeleNLPersonality.cls.xml)	(revision 41838)
+++ DOM/common/HaefeleNLPersonality.cls.xml	(.../HaefeleNLPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).HaefeleNederland())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit 1
Index: DOM/common/VanHoeckeVoorHaluxPersonality.cls.xml
===================================================================
diff -u -r29059 -r45709
--- DOM/common/VanHoeckeVoorHaluxPersonality.cls.xml	(.../VanHoeckeVoorHaluxPersonality.cls.xml)	(revision 29059)
+++ DOM/common/VanHoeckeVoorHaluxPersonality.cls.xml	(.../VanHoeckeVoorHaluxPersonality.cls.xml)	(revision 45709)
@@ -22,6 +22,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New()
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 0
Index: DOM/common/VanRaemdonckPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/VanRaemdonckPersonality.cls.xml	(.../VanRaemdonckPersonality.cls.xml)	(revision 41838)
+++ DOM/common/VanRaemdonckPersonality.cls.xml	(.../VanRaemdonckPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).VanRaemdonck())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: vhUnitTest/DOM/common/Personality/Enums.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/common/Personality/Enums.cls.xml	(revision 0)
+++ vhUnitTest/DOM/common/Personality/Enums.cls.xml	(revision 45709)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.common.Personality.Enums">
+<Super>%SerialObject</Super>
+
+<Property name="Personality">
+<Type>DOM.common.enu.Personality.AutoComplete</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Klant">
+<Type>DOM.VKP.enu.Klant.AutoComplete</Type>
+<Transient>1</Transient>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^vhUnitTest.DOM.commo967C.EnumsS</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: DOM/common/DupontPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/DupontPersonality.cls.xml	(.../DupontPersonality.cls.xml)	(revision 41838)
+++ DOM/common/DupontPersonality.cls.xml	(.../DupontPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).DuPont())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: DOM/common/DaroPersonality.cls.xml
===================================================================
diff -u -r41838 -r45709
--- DOM/common/DaroPersonality.cls.xml	(.../DaroPersonality.cls.xml)	(revision 41838)
+++ DOM/common/DaroPersonality.cls.xml	(.../DaroPersonality.cls.xml)	(revision 45709)
@@ -24,6 +24,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).DaroFactors())
+]]></Implementation>
+</Method>
+
 <Method name="IsHandel">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
Index: vhUnitTest/DOM/common/Personality/GeefKlantID/Test.cls.xml
===================================================================
diff -u -r29059 -r45709
--- vhUnitTest/DOM/common/Personality/GeefKlantID/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/common/Personality/GeefKlantID/Test.cls.xml	(.../Test.cls.xml)	(revision 45709)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.common.Personality.GeefKlantID.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.common.Personality.Base</Super>
 
 <Method name="TestAllePersonalitiesHebbenGeefKlantID">
 <Implementation><![CDATA[
@@ -19,17 +19,17 @@
 </Method>
 
 <Method name="TestVanHoecke">
-<Implementation><![CDATA[	do ..AssertKlant(##class(DOM.common.enu.Personality).VanHoecke(),"K||4682")
+<Implementation><![CDATA[	do ..AssertKlant(..Enum.Personality.VanHoecke,"K||4682")
 ]]></Implementation>
 </Method>
 
 <Method name="TestVanHoeckeVoorHalux">
-<Implementation><![CDATA[	do ..AssertKlant(##class(DOM.common.enu.Personality).VanHoeckeVoorHalux(),"K||4682")
+<Implementation><![CDATA[	do ..AssertKlant(..Enum.Personality.VanHoeckeVoorHalux,"K||4682")
 ]]></Implementation>
 </Method>
 
 <Method name="TestSFS">
-<Implementation><![CDATA[	do ..AssertKlant(##class(DOM.common.enu.Personality).SFS(),"K||12486")
+<Implementation><![CDATA[	do ..AssertKlant(..Enum.Personality.SFS,"K||12486")
 ]]></Implementation>
 </Method>
 
Index: DOM/common/Personality.cls.xml
===================================================================
diff -u -r29059 -r45709
--- DOM/common/Personality.cls.xml	(.../Personality.cls.xml)	(revision 29059)
+++ DOM/common/Personality.cls.xml	(.../Personality.cls.xml)	(revision 45709)
@@ -7,36 +7,48 @@
 <Method name="GeefID">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefCode">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefNaam">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="Accept">
 <Abstract>1</Abstract>
 <FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefTaal">
 <Abstract>1</Abstract>
 <ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefKlantID">
 <Abstract>1</Abstract>
 <ReturnType>DOM.common.PartijID</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefLeverancierData">
+<Abstract>1</Abstract>
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+</Method>
+
 <Method name="IsHandel">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>