Index: vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r47119 -r47121
--- vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 47119)
+++ vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 47121)
@@ -29,17 +29,7 @@
 
 	Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 	
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,..GeefTransportFactoryStub())
 	#dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefVerwijderViaOfferteIDAangeroepen(),1)
@@ -54,17 +44,7 @@
 
 	Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 	
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,..GeefTransportFactoryStub())
 	#dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefMaakAangeroepen(),1)
@@ -82,17 +62,7 @@
 
 	Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 	
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00)
-
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-	
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefLaatsteBewaardeVerzendingMogelijkheid().Verzending.AantalPalletten,2)
@@ -217,17 +187,7 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) {
@@ -253,17 +213,7 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) {
@@ -286,17 +236,7 @@
 	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
 	Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub)
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, ..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheden.Titel,"[ZendingDetailsTitelVoorEenVerzendingMogelijkheid]")
@@ -318,17 +258,7 @@
 	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
 	Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub)
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, ..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheden.Titel,"[ZendingDetailsTitel]")
@@ -351,17 +281,7 @@
 	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
 	Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub)
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, ..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Opmerking ,"([AantalPalletten] 2)")
@@ -384,17 +304,7 @@
 	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New()
 	Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub)
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, ..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Opmerking ,"")
@@ -412,17 +322,7 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub(44.5))
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) {
@@ -445,17 +345,7 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub,VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub,VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	#dim LeverDatumDummy As %Date = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10,##class(TECH.enu.DatePart).Dag())
@@ -474,17 +364,7 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),2) {
@@ -502,17 +382,7 @@
 	
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub())
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
 	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),3) {
@@ -531,17 +401,7 @@
 	
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub())
 	
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
@@ -561,17 +421,7 @@
 	
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub())
 	
 	#dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 	
@@ -596,17 +446,7 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 
-	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
-	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
-
-	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
-	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5)
-
-	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
-	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
-	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
-
-	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub)
+	Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,..GeefTransportFactoryStub())
 	#dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy)
 ]]></Implementation>
 </Method>
@@ -624,6 +464,24 @@
 <Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTransportFactoryStub">
+<FormalSpec>Prijs:%Numeric=44.5</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.EC.Transport.impl.Factory</ReturnType>
+<Implementation><![CDATA[
+	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New()
+	Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
+
+	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New()
+	Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(Prijs)
+
+	Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New()
+	Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock)
+	Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock)
+	Quit TransportFactoryStub
+]]></Implementation>
+</Method>
 </Class>