Index: vhTest/Fake/DOM/common/impl/PersonalityKlantBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/common/impl/PersonalityKlantBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/common/impl/PersonalityKlantBepaler.cls.xml	(revision 46113)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.common.impl.PersonalityKlantBepaler">
+<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.PersonalityKlantBepaler</Super>
+
+<Method name="GeefKlantID">
+<FormalSpec>Personality:DOM.common.Personality,KlantIDVanEindklant:%String</FormalSpec>
+<ReturnType>DOM.common.PartijID</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDaro">
+<FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDestil">
+<FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDupont">
+<FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleBE">
+<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleNL">
+<FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHein">
+<FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKisch">
+<FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkNoteborn">
+<FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoecke">
+<FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoeckeVoorHalux">
+<FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanRaemdonck">
+<FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/common/impl/PersonalityKlantBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/common/impl/PersonalityKlantBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/common/impl/PersonalityKlantBepaler.cls.xml	(revision 46113)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler">
+<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.PersonalityKlantBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefKlantID">
+<FormalSpec>Personality:DOM.common.Personality,KlantIDVanEindklant:%String</FormalSpec>
+<ReturnType>DOM.common.PartijID</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantID",Personality,KlantIDVanEindklant)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDaro">
+<FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDestil">
+<FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDestil",DestilPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDupont">
+<FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDupont",DupontPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleBE">
+<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleBE",HaefeleBEPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleNL">
+<FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleNL",HaefeleNLPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHein">
+<FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHein",HeinPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKisch">
+<FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkNoteborn">
+<FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkNoteborn",NotebornPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkSFS",SFSPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoecke">
+<FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkVanHoecke",VanHoeckePersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoeckeVoorHalux">
+<FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkVanHoeckeVoorHalux",VanHoeckVoorHaluxPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanRaemdonck">
+<FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkVanRaemdonck",VanRaemdonckPersonality)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/impl/PersonalityKlantBepaler.cls.xml
===================================================================
diff -u -r33452 -r46113
--- DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 33452)
+++ DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 46113)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.common.impl.PersonalityKlantBepaler">
-<Super>DOM.common.PersonalityKlantBepaler,DOM.common.VanHoeckeOfAnderePersonalityVisitor</Super>
+<Super>DOM.common.PersonalityKlantBepaler,DOM.common.VanHoeckeOfAnderePersonalityVisitor,TECH.Mockable</Super>
 
 <Property name="KlantIDVanVHKlant">
 <Type>DOM.common.PartijID</Type>
Index: vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r42200 -r46113
--- vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 42200)
+++ vhTest/Utils/DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 46113)
@@ -11,6 +11,7 @@
 	Set StandaardWinkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
 	Set StandaardWinkelkar.Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Root")
 	Do StandaardWinkelkar.ZetKlantID($$$DummyInteger)
+	Do StandaardWinkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
 	
 	Set GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New("GroepLijn")
 	Do GroepLijn.Sublijnen.Insert(..GeefProductLijn(2, 7.75, 15.5))
Index: DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar.cls.xml
===================================================================
diff -u -r46112 -r46113
--- DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar.cls.xml	(.../MaatwerkLijnProductBerekenaar.cls.xml)	(revision 46112)
+++ DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar.cls.xml	(.../MaatwerkLijnProductBerekenaar.cls.xml)	(revision 46113)
@@ -23,15 +23,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PersonalityKlantBepaler">
+<Type>DOM.common.impl.PersonalityKlantBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceProduct</FormalSpec>
+<FormalSpec>LijnRepository:DOM.EC.Winkelkar.impl.LijnRepository,BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceProduct,PersonalityKlantBepaler:DOM.common.impl.PersonalityKlantBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LijnRepository = $$$Inject(LijnRepository, ##class(DOM.EC.Winkelkar.impl.LijnRepository).%New())
 	Set ..BerekeningService = $$$Inject(BerekeningService, ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New())
+	Set ..PersonalityKlantBepaler = $$$Inject(PersonalityKlantBepaler, ##class(DOM.common.impl.PersonalityKlantBepaler).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -53,7 +59,7 @@
 	If $IsObject(Lijn) {
 		If ($$$Not(Lijn.IsMaatwerkProductBerekend()) || ..Overschrijven) {
 			#dim Product As DOM.PM.MaatwerkProduct
-			Set Product = ..BerekeningService.MaakProductVanKenmerken(MaatwerkLijn.GeefIngegevenKenmerken(), ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID()), MaatwerkLijn.GeefAantal())
+			Set Product = ..BerekeningService.MaakProductVanKenmerken(MaatwerkLijn.GeefIngegevenKenmerken(), ..PersonalityKlantBepaler.GeefKlantID(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID()), MaatwerkLijn.GeefAantal())
 			if $IsObject(Product) {
 				Do Lijn.ZetProductID(Product.GeefID())
 				Do ..LijnRepository.Bewaar(Lijn)
Index: vhUnitTest/DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar/Test.cls.xml
===================================================================
diff -u -r42200 -r46113
--- vhUnitTest/DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 42200)
+++ vhUnitTest/DOM/EC/Winkelkar/impl/MaatwerkLijnProductBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 46113)
@@ -18,7 +18,10 @@
 	Set BerekeningServiceMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
 	Do BerekeningServiceMock.VerwachtMethodCall("MaakProductVanKenmerken" , MaatwerkLijn.GeefIngegevenKenmerken(), Winkelkar.GeefKlantID(), MaatwerkLijn.GeefAantal()).DanReturn(MaatwerkProductMock)
 	
-	Set MaatwerkLijnProductBerekenaar = ##class(DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar).%New(LijnRepositoryMock, BerekeningServiceMock)
+	Set PersonalityKlantBepalerStub = ##class(vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler).%New()
+	Do PersonalityKlantBepalerStub.IndienMethodCall("GeefKlantID",Winkelkar.GeefPersonality(),Winkelkar.GeefKlantID()).DanReturn(Winkelkar.GeefKlantID())
+	
+	Set MaatwerkLijnProductBerekenaar = ##class(DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar).%New(LijnRepositoryMock, BerekeningServiceMock, PersonalityKlantBepalerStub)
 	Do MaatwerkLijnProductBerekenaar.BerekenProducten(Winkelkar, $$$False)
 	
 	Do $$$AssertEquals(MaatwerkLijn.GeefProductID(), "ProductID")
@@ -45,7 +48,10 @@
 	Set BerekeningServiceMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
 	Do BerekeningServiceMock.VerwachtMethodCall("MaakProductVanKenmerken" , $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).Nooit()
 	
-	Set MaatwerkLijnProductBerekenaar = ##class(DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar).%New(LijnRepositoryMock, BerekeningServiceMock)
+	Set PersonalityKlantBepalerStub = ##class(vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler).%New()
+	Do PersonalityKlantBepalerStub.IndienMethodCall("GeefKlantID",Winkelkar.GeefPersonality(),Winkelkar.GeefKlantID()).DanReturn("ollekebollekeknol")
+	
+	Set MaatwerkLijnProductBerekenaar = ##class(DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar).%New(LijnRepositoryMock, BerekeningServiceMock, PersonalityKlantBepalerStub)
 	Do MaatwerkLijnProductBerekenaar.BerekenProducten(Winkelkar, $$$False)
 	
 	Do $$$AssertEquals(MaatwerkLijn.GeefProductID(), "OrigineleProductID")
@@ -72,7 +78,10 @@
 	Set BerekeningServiceStub = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
 	Do BerekeningServiceStub.IndienMethodCall("MaakProductVanKenmerken" , $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(MaatwerkProductStub)
 	
-	Set MaatwerkLijnProductBerekenaar = ##class(DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar).%New(LijnRepositoryStub, BerekeningServiceStub)
+	Set PersonalityKlantBepalerStub = ##class(vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler).%New()
+	Do PersonalityKlantBepalerStub.IndienMethodCall("GeefKlantID",Winkelkar.GeefPersonality(),Winkelkar.GeefKlantID()).DanReturn("ollekebollekeknol")
+	
+	Set MaatwerkLijnProductBerekenaar = ##class(DOM.EC.Winkelkar.impl.MaatwerkLijnProductBerekenaar).%New(LijnRepositoryStub, BerekeningServiceStub, PersonalityKlantBepalerStub)
 	Do MaatwerkLijnProductBerekenaar.BerekenProducten(Winkelkar, $$$True)
 	
 	Do $$$AssertEquals(MaatwerkLijn.GeefProductID(), "ProductID")