FishEye: Tag 46605 refers to a dead (removed) revision in file `vhTest/Fake/APPS/EC/Transport/impl/TransportFirmaBepalerFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r41491 -r46605
--- vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 41491)
+++ vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 46605)
@@ -82,10 +82,10 @@
 	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
 	Do VerkoopprijsBerekenaarMock.VerwachtMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00)
 
-	Set VerkoopprijsBerekenaarFactoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do VerkoopprijsBerekenaarFactoryMock.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
+	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
 	
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarFactoryMock)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,TransportFactoryStub)
 	#dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy)
 	
 	Do VerkoopprijsBerekenaarMock.Verifieer()
@@ -105,13 +105,13 @@
 	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
 	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00)
 
-	Set VerkoopprijsBerekenaarFactoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.VerkoopprijsBerekenaarFactory).%New()
-	Do VerkoopprijsBerekenaarFactoryMock.VerwachtMethodCall("GeefVerkoopprijsBerekenaar", ..SessieDummy).DanReturn(VerkoopprijsBerekenaarMock)
+	Set TransportFactoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do TransportFactoryMock.VerwachtMethodCall("GeefVerkoopprijsBerekenaar", ..SessieDummy).DanReturn(VerkoopprijsBerekenaarMock)
 	
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarFactoryMock)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,TransportFactoryMock)
 	#dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,, ..SessieDummy)
 	
-	Do VerkoopprijsBerekenaarFactoryMock.Verifieer()
+	Do TransportFactoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -128,10 +128,10 @@
 	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
 	Do TransportFirmaBepalerMock.VerwachtMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
 	
-	Set TransportFirmaBepalerFactoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.TransportFirmaBepalerFactory).%New()
-	Do TransportFirmaBepalerFactoryMock.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
+	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
 
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFirmaBepalerFactoryMock)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,TransportFactoryStub)
 	#dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy)
 	
 	Do TransportFirmaBepalerMock.Verifieer()
@@ -151,13 +151,13 @@
 	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
 	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
 	
-	Set TransportFirmaBepalerFactoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.TransportFirmaBepalerFactory).%New()
-	Do TransportFirmaBepalerFactoryMock.VerwachtMethodCall("GeefTransportFirmaBepaler",..SessieDummy).DanReturn(TransportFirmaBepalerMock)
+	Set TransportFactoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do TransportFactoryMock.VerwachtMethodCall("GeefTransportFirmaBepaler",..SessieDummy).DanReturn(TransportFirmaBepalerMock)
 
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFirmaBepalerFactoryMock)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFactoryMock)
 	#dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy)
 	
-	Do TransportFirmaBepalerFactoryMock.Verifieer()
+	Do TransportFactoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
FishEye: Tag 46605 refers to a dead (removed) revision in file `APPS/EC/Transport/impl/LandenBepalerFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 46605 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EC/Transport/impl/VerkoopprijsBerekenaarFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml
===================================================================
diff -u -r41491 -r46605
--- WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml	(.../BeschikbareLandenBepaler.cls.xml)	(revision 41491)
+++ WSimpl/Unishop/BeschikbareLandenBepaler.cls.xml	(.../BeschikbareLandenBepaler.cls.xml)	(revision 46605)
@@ -13,8 +13,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LandenBepalerFactory">
-<Type>APPS.EC.Transport.impl.LandenBepalerFactory</Type>
+<Property name="TransportFactory">
+<Type>APPS.EC.Transport.impl.Factory</Type>
 <Private>1</Private>
 </Property>
 
@@ -29,13 +29,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LandenBepalerFactory:APPS.EC.Transport.impl.LandenBepalerFactory,VertaalAPI:DOM.common.Transl.VertaalAPI,Sorter:WSimpl.Unishop.BeschikbareLandenSort</FormalSpec>
+<FormalSpec>TransportFactory:APPS.EC.Transport.impl.Factory,VertaalAPI:DOM.common.Transl.VertaalAPI,Sorter:WSimpl.Unishop.BeschikbareLandenSort</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..LandenBepalerFactory = $$$Inject(LandenBepalerFactory,##class(APPS.EC.Transport.impl.LandenBepalerFactory).%New())
+	Set ..TransportFactory = $$$Inject(TransportFactory,##class(APPS.EC.Transport.impl.Factory).%New())
 	Set ..VertaalAPI = $$$Inject(VertaalAPI,##class(DOM.DomeinContext).Instance().GeefVertaalAPI())
 	Set ..Sorter = $$$Inject(Sorter,##class(WSimpl.Unishop.BeschikbareLandenSort).%New())
 	Set ..Comparator = ##class(WSimpl.Unishop.BeschikbareLandenComparator).%New()
@@ -56,7 +56,7 @@
 <Implementation><![CDATA[
 	Do ..ZetVertaler(Taal)
 	#dim Landen As WS.EC.ExterneVerkoop.dto.Landen = ##class(WS.EC.ExterneVerkoop.dto.Landen).%New()
-	#dim BeschikbareLandCodes As TECH.Iterator = ..LandenBepalerFactory.GeefLandenBepaler(Sessie).GeefLandCodes()
+	#dim BeschikbareLandCodes As TECH.Iterator = ..TransportFactory.GeefLandenBepaler(Sessie).GeefLandCodes()
 	
 	While BeschikbareLandCodes.HasNext()
 	{	
Index: vhTest/Fake/APPS/EC/Transport/impl/Factory.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EC/Transport/impl/Factory.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EC/Transport/impl/Factory.cls.xml	(revision 46605)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EC.Transport.impl.Factory">
+<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>APPS.EC.Transport.impl.Factory</Super>
+
+<Method name="GeefLandenBepaler">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.LandenBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefTransportFirmaBepaler">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.TransportFirmaBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerkoopprijsBerekenaar">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.VerkoopprijsBerekenaar</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(revision 46605)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Transport.impl.Factory.GeefLandenBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VanHoeckeLandenBepalerClassName">
+<Type>%String</Type>
+<InitialExpression>##class(APPS.EC.Transport.VanHoecke.impl.LandenBepaler).%ClassName(1)</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="HeinLandenBepalerClassName">
+<Type>%String</Type>
+<InitialExpression>##class(APPS.EC.Transport.Hein.impl.LandenBepaler).%ClassName(1)</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Method name="Test: geeft LandenBepaler hein als de context personality hein is">
+<Implementation><![CDATA[
+	Set LandenBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).Hein(), "")
+	Do $$$AssertEquals($classname(LandenBepalerFactory.GeefLandenBepaler(Sessie)),..HeinLandenBepalerClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft LandenBepaler hein als de klant hein is en de personality is Van Hoecke">
+<Implementation><![CDATA[
+	Set LandenBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).Hein())
+	Do $$$AssertEquals($classname(LandenBepalerFactory.GeefLandenBepaler(Sessie)),..HeinLandenBepalerClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft LandenBepaler vanhoecke als het geen hein klant en geen hein personality is">
+<Implementation><![CDATA[
+	Set LandenBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(), "")
+	Do $$$AssertEquals($classname(LandenBepalerFactory.GeefLandenBepaler(Sessie)),..VanHoeckeLandenBepalerClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft de juiste LandenBepaler voor de overeenkomstige personality">
+<Implementation><![CDATA[
+	set VerwachteBepalers = ##class(%ArrayOfDataTypes).%New()
+	
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).VanHoecke())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).VanHoeckeVoorHalux())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).SFS())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Dupont())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Kisch())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Destil())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).HaefeleBE())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).VanRaemdonck())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Noteborn())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Daro())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).HaefeleNL()) 
+	
+	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Hein())
+	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
+
+	Set LandenBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+
+	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
+	While PersonalityIterator.HasNext()	{
+		#dim PersonalityID As DOM.common.enu.Personality = PersonalityIterator.Next()
+		#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(PersonalityID, "")
+		Do $$$AssertEquals($classname(LandenBepalerFactory.GeefLandenBepaler(Sessie)), VerwachteBepalers.GetAt(PersonalityID),PersonalityID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft de juiste TransportFirmaBepaler voor de overeenkomstige klant">
+<Implementation><![CDATA[
+	Set LandenBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+
+	#dim KlantIterator As TECH.Iterator = ##class(DOM.VKP.enu.Klant).ValueListIterator()
+	While KlantIterator.HasNext() {
+		#dim KlantID As DOM.common.enu.Personality = KlantIterator.Next()
+		#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(),KlantID)
+		Do $$$AssertEquals($classname(LandenBepalerFactory.GeefLandenBepaler(Sessie)), $$VerwachteLandenBepaler(KlantID))
+	}
+	
+VerwachteLandenBepaler(KlantId)
+	Quit $$$If(KlantID=##class(DOM.VKP.enu.Klant).Hein(),..HeinLandenBepalerClassName,..VanHoeckeLandenBepalerClassName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(revision 46605)
@@ -0,0 +1,108 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Transport.impl.Factory.GeefTransportFirmaBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VanHoeckeTransportFirmaBepalerClassName">
+<Type>%String</Type>
+<InitialExpression>##class(APPS.EC.Transport.VanHoecke.impl.TransportFirmaBepaler).%ClassName(1)</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="HeinTransportFirmaBepalerClassName">
+<Type>%String</Type>
+<InitialExpression>##class(APPS.EC.Transport.Hein.impl.TransportFirmaBepaler).%ClassName(1)</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Method name="Test: geeft TransportFirmaBepaler hein als de context personality hein is">
+<Implementation><![CDATA[
+	Set TransportFirmaBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).Hein(), "")
+	Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(Sessie).%ClassName(1),..HeinTransportFirmaBepalerClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft TransportFirmaBepaler hein als de klant hein is">
+<Implementation><![CDATA[
+	Set TransportFirmaBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).Hein())
+	Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(Sessie).%ClassName(1),..HeinTransportFirmaBepalerClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft TransportFirmaBepaler vanhoecke als het geen hein klant en geen hein personality is">
+<Implementation><![CDATA[
+	Set TransportFirmaBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(), "")
+	Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(Sessie).%ClassName(1),..VanHoeckeTransportFirmaBepalerClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft de juiste TransportFirmaBepaler voor de overeenkomstige personality">
+<Implementation><![CDATA[
+	#dim VerwachteBepalers As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).VanHoecke())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).VanHoeckeVoorHalux())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).SFS())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Dupont())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Kisch())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Destil())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).HaefeleBE())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).VanRaemdonck())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Noteborn())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Daro())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).HaefeleNL()) 
+	
+	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Hein())
+	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
+	
+
+	#dim TransportFirmaBepalerFactory As APPS.EC.Transport.impl.Factory
+	Set TransportFirmaBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+
+	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
+	While PersonalityIterator.HasNext()	{
+		#dim PersonalityID As DOM.common.enu.Personality = PersonalityIterator.Next()
+		#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(PersonalityID, "")
+		Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(Sessie).%ClassName(1), VerwachteBepalers.GetAt(PersonalityID))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft de juiste TransportFirmaBepaler voor de overeenkomstige klant">
+<Implementation><![CDATA[
+	#dim TransportFirmaBepalerFactory As APPS.EC.Transport.impl.Factory
+	Set TransportFirmaBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
+
+	#dim KlantIterator As TECH.ListIterator = ##class(DOM.VKP.enu.Klant).ValueListIterator()
+	While KlantIterator.HasNext() {
+		#dim KlantID As DOM.common.enu.Personality = KlantIterator.Next()
+		#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(),KlantID)
+		Do $$$AssertEquals(TransportFirmaBepalerFactory.GeefTransportFirmaBepaler(Sessie).%ClassName(1), ..GeefVerwachteTransportFirmaBepaler(KlantID))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteTransportFirmaBepaler">
+<FormalSpec>KlantID:DOM.VKP.enu.Klant</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerwachteBepaler As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	Do VerwachteBepaler.SetAt(..HeinTransportFirmaBepalerClassName, ##class(DOM.VKP.enu.Klant).Hein()) 
+
+	#dim VerwachtelndenBepaler As %String = VerwachteBepaler.GetAt(KlantID)
+	if VerwachtelndenBepaler = "" {
+		Quit ..VanHoeckeTransportFirmaBepalerClassName
+	} else {
+		Quit VerwachtelndenBepaler
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Transport/impl/Factory.cls.xml
===================================================================
diff -u
--- APPS/EC/Transport/impl/Factory.cls.xml	(revision 0)
+++ APPS/EC/Transport/impl/Factory.cls.xml	(revision 46605)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Transport.impl.Factory">
+<Super>TECH.Mockable</Super>
+
+<Property name="PersonalityService">
+<Type>DOM.common.PersonalityService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PersonalityRepo">
+<Type>DOM.common.impl.PersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PersonalityService:DOM.common.PersonalityService,PersonalityRepo:DOM.common.impl.PersonalityRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..PersonalityService = $$$Inject(PersonalityService,##class(DOM.common.impl.PersonalityService).%New())
+	set ..PersonalityRepo = $$$Inject(PersonalityRepo,##class(DOM.common.impl.PersonalityRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLandenBepaler">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.LandenBepaler</ReturnType>
+<Implementation><![CDATA[	Quit $$$If(..IsHeinGerelateerd(Sessie) , ##class(APPS.EC.Transport.Hein.impl.LandenBepaler).%New() , ##class(APPS.EC.Transport.VanHoecke.impl.LandenBepaler).%New())
+]]></Implementation>
+</Method>
+
+<Method name="GeefTransportFirmaBepaler">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.TransportFirmaBepaler</ReturnType>
+<Implementation><![CDATA[	quit $$$If(..IsHeinGerelateerd(Sessie),##class(APPS.EC.Transport.Hein.impl.TransportFirmaBepaler).%New(), ##class(APPS.EC.Transport.VanHoecke.impl.TransportFirmaBepaler).%New())
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerkoopprijsBerekenaar">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.VerkoopprijsBerekenaar</ReturnType>
+<Implementation><![CDATA[	Quit $$$If(..IsHeinGerelateerd(Sessie),##class(APPS.EC.Transport.Hein.impl.VerkoopprijsBerekenaar).%New(),##class(APPS.EC.Transport.VanHoecke.impl.VerkoopprijsBerekenaar).%New())
+]]></Implementation>
+</Method>
+
+<Method name="IsHeinGerelateerd">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit (..IsHeinPersonality(Sessie) || ..IsHeinBijVanHoecke(Sessie))
+]]></Implementation>
+</Method>
+
+<Method name="IsHeinPersonality">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(Sessie.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Hein()) $$$True
+	Quit:..PersonalityService.IsKlantBij(..PersonalityRepo.GeefViaID(Sessie.GeefPersonalityID()),##class(DOM.common.HeinPersonality).Instance()) $$$True
+	Quit $$$False
+]]></Implementation>
+</Method>
+
+<Method name="IsHeinBijVanHoecke">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Sessie.GeefKlantID() = ##class(DOM.VKP.enu.Klant).Hein()) && ( Sessie.GeefPersonalityID() = ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Unishop/BeschikbareLandenBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r41491 -r46605
--- vhUnitTest/WSimpl/Unishop/BeschikbareLandenBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 41491)
+++ vhUnitTest/WSimpl/Unishop/BeschikbareLandenBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 46605)
@@ -26,10 +26,10 @@
 	#dim LandenBepalerMock As vhTest.Mock.APPS.EC.Transport.LandenBepaler = ##class(vhTest.Mock.APPS.EC.Transport.LandenBepaler).%New()
 	Do LandenBepalerMock.VerwachtMethodCall("GeefLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG","SE")))
 
-	#dim LandenBepalerFactoryMock As vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory = ##class(vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory).%New()
-	Do LandenBepalerFactoryMock.IndienMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerMock)
+	#dim TransportFactoryMock As vhTest.Mock.APPS.EC.Transport.impl.Factory = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do TransportFactoryMock.IndienMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerMock)
 	
-	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(LandenBepalerFactoryMock, VertaalAPIStub)
+	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(TransportFactoryMock, VertaalAPIStub)
 	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal",..SessieDummy)
 
 	Do LandenBepalerMock.Verifieer()
@@ -47,13 +47,13 @@
 	#dim LandenBepalerMock As vhTest.Mock.APPS.EC.Transport.LandenBepaler = ##class(vhTest.Mock.APPS.EC.Transport.LandenBepaler).%New()
 	Do LandenBepalerMock.IndienMethodCall("GeefLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG","SE")))
 
-	#dim LandenBepalerFactoryMock As vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory = ##class(vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory).%New()
-	Do LandenBepalerFactoryMock.VerwachtMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerMock)
+	#dim TransportFactoryMock As vhTest.Mock.APPS.EC.Transport.impl.Factory = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do TransportFactoryMock.VerwachtMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerMock)
 	
-	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(LandenBepalerFactoryMock, VertaalAPIStub)
+	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(TransportFactoryMock, VertaalAPIStub)
 	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal",..SessieDummy)
 
-	Do LandenBepalerFactoryMock.Verifieer()
+	Do TransportFactoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -68,10 +68,10 @@
 	#dim LandenBepalerStub As vhTest.Mock.APPS.EC.Transport.LandenBepaler = ##class(vhTest.Mock.APPS.EC.Transport.LandenBepaler).%New()
 	Do LandenBepalerStub.IndienMethodCall("GeefLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG","SE")))
 
-	#dim LandenBepalerFactoryStub As vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory = ##class(vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory).%New()
-	Do LandenBepalerFactoryStub.IndienMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerStub)
+	#dim FactoryStub As vhTest.Mock.APPS.EC.Transport.impl.Factory = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do FactoryStub.IndienMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerStub)
 	
-	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(LandenBepalerFactoryStub, VertaalAPIMock)
+	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(FactoryStub, VertaalAPIMock)
 	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal",..SessieDummy)
 
 	Do VertaalAPIMock.Verifieer()
@@ -89,16 +89,16 @@
 	#dim LandenBepalerStub As vhTest.Mock.APPS.EC.Transport.LandenBepaler = ##class(vhTest.Mock.APPS.EC.Transport.LandenBepaler).%New()
 	Do LandenBepalerStub.IndienMethodCall("GeefLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG")))
 
-	#dim LandenBepalerFactoryStub As vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory = ##class(vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory).%New()
-	Do LandenBepalerFactoryStub.IndienMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerStub)
+	#dim FactoryStub As vhTest.Mock.APPS.EC.Transport.impl.Factory = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do FactoryStub.IndienMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerStub)
 
 	#dim BeschikbareLandenList As WS.EC.ExterneVerkoop.dto.Landen = ##class(WS.EC.ExterneVerkoop.dto.Landen).%New()
 	Do BeschikbareLandenList.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New("BG","[BG]"))
 	#dim DataTransferObjectListMatcher As Tools.Mock.ArgumentMatchers.DataTransferObjectListMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectListMatcher).%New(BeschikbareLandenList)
 
 	#dim SorterSpy As vhTest.Spy.WSimpl.Unishop.BeschikbareLandenSort = ##class(vhTest.Spy.WSimpl.Unishop.BeschikbareLandenSort).%New()
 	
-	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(LandenBepalerFactoryStub, VertaalAPIStub, SorterSpy)
+	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(FactoryStub, VertaalAPIStub, SorterSpy)
 	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal",..SessieDummy)
 
 	Do $$$AssertTrue(SorterSpy.IsSortOpgeroepen)
@@ -117,10 +117,10 @@
 	#dim LandenBepalerStub As vhTest.Mock.APPS.EC.Transport.LandenBepaler = ##class(vhTest.Mock.APPS.EC.Transport.LandenBepaler).%New()
 	Do LandenBepalerStub.IndienMethodCall("GeefLandCodes").DanReturn(##class(TECH.ListbuildIterator).%New($ListBuild("BG")))
 	
-	#dim LandenBepalerFactoryStub As vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory = ##class(vhTest.Mock.APPS.EC.Transport.impl.LandenBepalerFactory).%New()
-	Do LandenBepalerFactoryStub.IndienMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerStub)
+	#dim FactoryStub As vhTest.Mock.APPS.EC.Transport.impl.Factory = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do FactoryStub.IndienMethodCall("GeefLandenBepaler",..SessieDummy).DanReturn(LandenBepalerStub)
 
-	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(LandenBepalerFactoryStub, VertaalAPIStub)
+	#dim BeschikbareLandenBepaler As WSimpl.Unishop.BeschikbareLandenBepaler = ##class(WSimpl.Unishop.BeschikbareLandenBepaler).%New(FactoryStub, VertaalAPIStub)
 	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = BeschikbareLandenBepaler.Bepaal("DummyTaal",..SessieDummy)
 
 	Do $$$AssertEquals(EuropeseLanden.GetAt(1).Code,"BG")
FishEye: Tag 46605 refers to a dead (removed) revision in file `vhTest/Fake/APPS/EC/Transport/impl/VerkoopprijsBerekenaarFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 46605 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EC/Transport/impl/LandenBepalerFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 46605 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EC/Transport/impl/TransportFirmaBepalerFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 46605 refers to a dead (removed) revision in file `APPS/EC/Transport/impl/TransportFirmaBepalerFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(revision 46605)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Transport.impl.Factory.GeefVerkoopprijsBerekenaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VanHoeckeVerkoopprijsBerekenaarClassName">
+<Type>%String</Type>
+<InitialExpression>##class(APPS.EC.Transport.VanHoecke.impl.VerkoopprijsBerekenaar).%ClassName(1)</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="HeinVerkoopprijsBerekenaarClassName">
+<Type>%String</Type>
+<InitialExpression>##class(APPS.EC.Transport.Hein.impl.VerkoopprijsBerekenaar).%ClassName(1)</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Method name="Test: geeft verkoopprijsberekenaar hein als de context personality hein is">
+<Implementation><![CDATA[
+	Set Factory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).Hein(),"")
+	Do $$$AssertEquals(Factory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1),..HeinVerkoopprijsBerekenaarClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft verkoopprijsberekenaar hein als de klant hein is">
+<Implementation><![CDATA[
+	Set Factory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Hein())
+	Do $$$AssertEquals(Factory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1),..HeinVerkoopprijsBerekenaarClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft verkoopprijsberekenaar vanhoecke als de context geen personality hein en geen klant hein is">
+<Implementation><![CDATA[
+	Set Factory = ##class(APPS.EC.Transport.impl.Factory).%New()
+	#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(),"")
+	Do $$$AssertEquals(Factory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1),..VanHoeckeVerkoopprijsBerekenaarClassName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft de juiste verkoopprijsberekenaar voor de overeenkomstige personality">
+<Implementation><![CDATA[
+	Set VerwachteBepalers = ##class(%ArrayOfDataTypes).%New()
+	
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).VanHoecke())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).VanHoeckeVoorHalux())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).SFS())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Dupont())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Kisch())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Destil())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).HaefeleBE())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).VanRaemdonck())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Noteborn())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Daro())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).HaefeleNL()) 
+
+	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Hein())
+	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Seefelder())
+
+	Set Factory = ##class(APPS.EC.Transport.impl.Factory).%New()
+
+	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
+	While PersonalityIterator.HasNext()
+	{
+		#dim PersonalityID As DOM.common.enu.Personality = PersonalityIterator.Next()
+		#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(PersonalityID, "")
+		Do $$$AssertEquals(Factory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1), VerwachteBepalers.GetAt(PersonalityID))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft de juiste verkoopprijsberekenaar voor de overeenkomstige van hoecke klant">
+<Implementation><![CDATA[
+	Set Factory = ##class(APPS.EC.Transport.impl.Factory).%New()
+
+	#dim KlantIterator As TECH.ListIterator = ##class(DOM.VKP.enu.Klant).ValueListIterator()
+	While KlantIterator.HasNext() {
+		#dim KlantID As DOM.common.enu.Personality = KlantIterator.Next()
+		#dim Sessie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(##class(DOM.common.enu.Personality).VanHoecke(),KlantID)
+		Do $$$AssertEquals(Factory.GeefVerkoopprijsBerekenaar(Sessie).%ClassName(1), $$VerwachteVerkoopprijsBerekenaar(KlantID))
+	}
+	
+VerwachteVerkoopprijsBerekenaar(KlantID)
+	quit $$$If(KlantID = ##class(DOM.VKP.enu.Klant).Hein() , ..HeinVerkoopprijsBerekenaarClassName , ..VanHoeckeVerkoopprijsBerekenaarClassName )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 46605 refers to a dead (removed) revision in file `vhTest/Fake/APPS/EC/Transport/impl/LandenBepalerFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 46605 refers to a dead (removed) revision in file `APPS/EC/Transport/impl/VerkoopprijsBerekenaarFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/APPS/EC/Transport/impl/Factory.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EC/Transport/impl/Factory.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EC/Transport/impl/Factory.cls.xml	(revision 46605)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EC.Transport.impl.Factory">
+<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>APPS.EC.Transport.impl.Factory,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefLandenBepaler">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.LandenBepaler</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLandenBepaler",Sessie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTransportFirmaBepaler">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.TransportFirmaBepaler</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTransportFirmaBepaler",Sessie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerkoopprijsBerekenaar">
+<FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
+<ReturnType>APPS.EC.Transport.VerkoopprijsBerekenaar</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerkoopprijsBerekenaar",Sessie)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 46605 refers to a dead (removed) revision in file `vhUnitTest/APPS/EC/Transport/impl/TransportFirmaBepalerFactory/GeefTransportFirmaBepaler/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 46605 refers to a dead (removed) revision in file `vhUnitTest/APPS/EC/Transport/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 46605 refers to a dead (removed) revision in file `vhUnitTest/APPS/EC/Transport/impl/LandenBepalerFactory/GeefLandenBepaler/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?