Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r37114 -r37175
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37114)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37175)
@@ -3,21 +3,22 @@
 <Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.impl.ZendingDetails.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="StandaardBerekenInput">
+<Type>APPS.TRANSP.OfferteService.dto.BerekenInput</Type>
+<InitialExpression>##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Method name="Test : Bij een offerte worden oude offertegegevens verwijderd voor het bepalen van nieuwe offertegegevens">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
-	Set OfferteData.Items.GetAt(1).CarbonNeutralPrijs = 0.80
-	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(OfferteData)
+	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(..GeenOfferteData())
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(..GeenOfferteData())
 
 	Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 	
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy)
+	#dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefVerwijderViaOfferteIDAangeroepen(),1)
 ]]></Implementation>
@@ -26,19 +27,15 @@
 <Method name="Test : Bij het opvragen van zendingdetails worden de VerzendMogelijkheden bewaard">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
-	Set OfferteData.Items.GetAt(1).CarbonNeutralPrijs = 0.80
-	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(OfferteData)
+	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS"))
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(..GeenOfferteData())
 
 	Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 	
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy)
 	
+	#dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
+	
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefMaakAangeroepen(),1)
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefBewaarAangeroepen(),1)
 ]]></Implementation>
@@ -47,18 +44,15 @@
 <Method name="Test : Bij het opvragen van zendingdetails wordt het aantal palletten bewaard">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
+	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
 	Set OfferteData.Items.GetAt(1).AantalPalletten = 2
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(OfferteData)
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(..GeenOfferteData())
 
 	Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 	
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefLaatsteBewaardeVerzendingMogelijkheid().Verzending.AantalPalletten,2)
 ]]></Implementation>
@@ -67,8 +61,7 @@
 <Method name="Test : Bij het opvragen van zendingdetails wordt de verkoopprijs berekend">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
+	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
 	Set OfferteData.Items.GetAt(1).Code = ##class(APPS.TRANSP.enu.ServiceCode).DHLFreight()
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(OfferteData)
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(..GeenOfferteData())
@@ -78,10 +71,8 @@
 	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar).%New()
 	Do VerkoopprijsBerekenaarMock.VerwachtMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00)
 	
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarMock)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarMock)
+	#dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
 	Do VerkoopprijsBerekenaarMock.Verifieer()
 ]]></Implementation>
@@ -90,8 +81,7 @@
 <Method name="Test : Bij het opvragen van zendingdetails worden de nodige transportfirmas bepaald">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
+	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
 	Set OfferteData.Items.GetAt(1).Code = ##class(APPS.TRANSP.enu.ServiceCode).DHLFreight()
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(OfferteData)
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(..GeenOfferteData())
@@ -101,39 +91,36 @@
 	Set TransportFirmaBepalerMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler).%New()
 	Do TransportFirmaBepalerMock.VerwachtMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator())
 	
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFirmaBepalerMock)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFirmaBepalerMock)
 	
+	#dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
+	
 	Do TransportFirmaBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Bij het ophalen van zendingdetails wordt de carbonneutral optie met mogelijkewaarden aangemaakt als de transportfirma dit ondersteund">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
+	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
 	Set OfferteData.Items.GetAt(1).CarbonNeutralPrijs = 0.80
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(OfferteData)
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(..GeenOfferteData())
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	
-	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.Count(),1) {
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Optie.Omschrijving ,"Wenst u de CO2-uitstoot van uw levering te compenseren ? ")
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.Count() ,2)
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Omschrijving ,"Ja, ik betaal hiervoor &euro; 0.80. ")
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).ID ,0)
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).ID ,1)
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Prijs ,0.80)
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).Prijs ,0)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
+	
+	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) {
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.Omschrijving ,"Wenst u de CO2-uitstoot van uw levering te compenseren ? ")
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.Count() ,2)
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Omschrijving ,"Ja, ik betaal hiervoor &euro; 0.80. ")
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).ID ,0)
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).ID ,1)
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Prijs ,0.80)
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).Prijs ,0)
 	}
 ]]></Implementation>
 </Method>
@@ -149,67 +136,57 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	
-	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.Count(),1) {
-		Do $$$AssertFalse($IsObject(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Optie))
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
+	
+	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) {
+		Do $$$AssertFalse($IsObject(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie))
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Titel voor 1 transportmogelijkheid wordt voorzien voor webshop">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
+	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(OfferteData)
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(..GeenOfferteData())
 
-
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-
 	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
 	#Dim VertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("", Taal)
 	#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 HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
-	Do $$$AssertEquals(ZendingDetails.Titel,"[ZendingDetailsTitelVoorEenVerzendingMogelijkheid]")
+	Do $$$AssertEquals(VerzendingMogelijkheden.Titel,"[ZendingDetailsTitelVoorEenVerzendingMogelijkheid]")
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Titel voor meerdere transportmogelijkheden wordt voorzien voor webshop">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteDataUPS As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteDataUPS = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
-	#dim OfferteDataDHL As APPS.TRANSP.OfferteService.dto.OfferteData
-	Set OfferteDataDHL = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
+	#dim OfferteDataUPS As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
+	#dim OfferteDataDHL As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(OfferteDataUPS)
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(OfferteDataDHL)
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-
 	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
 	#Dim VertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("", Taal)
 	#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 HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub)
+
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
-	Do $$$AssertEquals(ZendingDetails.Titel,"[ZendingDetailsTitel]")
+	Do $$$AssertEquals(VerzendingMogelijkheden.Titel,"[ZendingDetailsTitel]")
 ]]></Implementation>
 </Method>
 
@@ -229,12 +206,10 @@
 	#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 HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
-	Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Opmerking ,"([AantalPalletten] 2)")
+	Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Opmerking ,"([AantalPalletten] 2)")
 ]]></Implementation>
 </Method>
 
@@ -254,12 +229,10 @@
 	#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 HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
-	Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Opmerking ,"")
+	Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Opmerking ,"")
 ]]></Implementation>
 </Method>
 
@@ -274,13 +247,11 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.Count(),1) {
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).VerkoopPrijs,44.5)
+	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) {
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).VerkoopPrijs,44.5)
 	}
 ]]></Implementation>
 </Method>
@@ -299,15 +270,13 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub,VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub,VerzendingMogelijkheidRepositoryDummy)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
 	#dim LeverDatumDummy As %Date = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10,##class(TECH.enu.DatePart).Dag())
-	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.Count(),1) {
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).LeverDatum  ,LeverDatumDummy)
-		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.GetAt(1).LeverDag  ,"ma")
+	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) {
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).LeverDatum  ,LeverDatumDummy)
+		Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).LeverDag  ,"ma")
 	}
 ]]></Implementation>
 </Method>
@@ -320,14 +289,13 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	
-	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.Count(),2) {
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(2).Omschrijving,"DHL")	
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
+	
+	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),2) {
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Omschrijving,"UPS")
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(2).Omschrijving,"DHL")	
 	}
 ]]></Implementation>
 </Method>
@@ -340,15 +308,13 @@
 	
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
- 	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.Count(),3) {
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(2).Omschrijving,"UPS")	
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(3).Omschrijving,"DHL")	
+	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),3) {
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Omschrijving,"UPS")
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(2).Omschrijving,"UPS")	
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(3).Omschrijving,"DHL")	
 	}
 ]]></Implementation>
 </Method>
@@ -361,16 +327,14 @@
 	
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.Count(),3) {
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(2).Omschrijving,"DHL")	
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(3).Omschrijving,"DHL")	
+	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),3) {
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Omschrijving,"UPS")
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(2).Omschrijving,"DHL")	
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(3).Omschrijving,"DHL")	
 	}
 ]]></Implementation>
 </Method>
@@ -383,18 +347,16 @@
 	
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	
-	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheden.Count(),5) {
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(1).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(2).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(3).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(4).Omschrijving,"DHL")	
-		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheden.GetAt(5).Omschrijving,"DHL")	
+	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
+	
+	If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),5) {
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Omschrijving,"UPS")
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(2).Omschrijving,"UPS")
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(3).Omschrijving,"UPS")
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(4).Omschrijving,"DHL")	
+		Do $$$AssertContains(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(5).Omschrijving,"DHL")	
 	}
 ]]></Implementation>
 </Method>
@@ -410,10 +372,8 @@
 
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetailsResult As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden
-	Set ZendingDetailsResult = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
+	#dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput)
 ]]></Implementation>
 </Method>