Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r34076 -r37015
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 34076)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37015)
@@ -3,18 +3,57 @@
 <Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.impl.ZendingDetails.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test : Carbon neutral wordt voorzien door transportfirma. ">
+<Method name="Test : Oude offertegegevens worden verwijderd">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
+	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).DHL(),$$$ElkeWaarde).DanReturn(##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New())
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
+	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefVerwijderViaOfferteIDAangeroepen(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test : VerzendMogelijkheden worden bewaard">
+<Implementation><![CDATA[
+	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	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).DHL(),$$$ElkeWaarde).DanReturn(##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New())
+
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	
+	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefMaakAangeroepen(),1)
+	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefBewaarAangeroepen(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Carbon neutral wordt voorzien door transportfirma">
+<Implementation><![CDATA[
+	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	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).DHL(),$$$ElkeWaarde).DanReturn(##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New())
+
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	
 	If $$$AssertEquals(ZendingDetails.Count(),1) {
 		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.Omschrijving ,"Wenst u de CO2-uitstoot van uw levering te compenseren ? ")
 		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.Count() ,2)
@@ -27,15 +66,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Carbon neutral wordt niet voorzien door transportfirma. ">
+<Method name="Test : Carbon neutral wordt niet voorzien door transportfirma">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
+	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
 	Set OfferteData.Items.GetAt(1).CarbonNeutralPrijs = ""
 	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(##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New())
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
@@ -45,15 +86,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Kostprijs wordt voorzien door transportfirma. ">
+<Method name="Test : Kostprijs wordt voorzien door transportfirma">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
+	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
 	Set OfferteData.Items.GetAt(1).Kostprijs = 44.5
 	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(##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New())
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
@@ -63,18 +106,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Leverdatum wordt voorzien door transportfirma. ">
+<Method name="Test : Leverdatum wordt voorzien door transportfirma">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
+	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
 	Set OfferteData.Items.GetAt(1).Duurtijd = 10
 	Set OfferteData.Items.GetAt(1).OphaalDatum = ..GeefHuidigeDatum()
 	Set OfferteData.Items.GetAt(1).LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10,##class(TECH.enu.DatePart).Dag())
 	Set OfferteData.Items.GetAt(1).LeverDag = "Mon"
 	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(##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New())
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
@@ -99,7 +144,9 @@
 	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(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL"))
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
@@ -116,7 +163,9 @@
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS",2))
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL"))
 	
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
@@ -135,7 +184,9 @@
 	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(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL",2))
 	
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
@@ -154,7 +205,9 @@
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS",3))
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL",2))
 	
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
@@ -169,7 +222,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : GeefZendingDetails van twee transportfirma&apos;s Waarbij 1 transportfirma faalt bij het ophalen van gegevens ">
+<Method name="Test : GeefZendingDetails van twee transportfirma&apos;s Waarbij 1 transportfirma faalt bij het ophalen van gegevens">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
 	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS"))
@@ -178,7 +231,9 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyException")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.GeneralErrorException, Substrings))
 
-	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub)
+	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 = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 ]]></Implementation>
Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r36534 -r37015
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 36534)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37015)
@@ -13,14 +13,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerzendingMogelijkheidRepository">
+<Type>WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TransportOfferteService:APPS.TRANSP.OfferteService</FormalSpec>
+<FormalSpec>TransportOfferteService:APPS.TRANSP.OfferteService,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..TransportOfferteService = $$$Implementation(TransportOfferteService, ##class(APPS.TRANSP.impl.OfferteService).%New())
+	Set ..VerzendingMogelijkheidRepository = $$$Inject(VerzendingMogelijkheidRepository, ##class(WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -39,8 +45,11 @@
 <ReturnType>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</ReturnType>
 <Implementation><![CDATA[
 	Do ..ZetVertaler(Taal)
-	
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
+
+	Do ..VerzendingMogelijkheidRepository.VerwijderViaOfferteID(BerekenInput.Referentie)
+
+	Set ZendingDetails = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
+
 	#dim Exceptions As List Of %String = ##class(%ListOfDataTypes).%New()
 	#dim Details As List Of %String = ##class(%ListOfDataTypes).%New()
 	
@@ -53,13 +62,17 @@
 			Do ..VoegToeAanList(.Details, OfferteData.Details)
 			#dim OfferteDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(OfferteData.Items)
 			While OfferteDataIterator.HasNext()	{
-				Do ZendingDetails.Insert(..GeefZendingDetail(TransportFirma, OfferteDataIterator.Next()))
+				Set OfferteDataItem = OfferteDataIterator.Next()
+				Set ZendingDetail = ..GeefZendingDetail(TransportFirma, OfferteDataItem)
+				Do ZendingDetails.Insert(ZendingDetail)
+				Do ..VerzendingMogelijkheidRepository.Bewaar(..VerzendingConverteer(BerekenInput.Referentie, ZendingDetail))
 			} 
+
 		} catch {
 			Do Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
 		}
 	}
-	
+
 	If (Exceptions.Count() > 0)
 	{
 		Do ..ThrowException(Exceptions, Details)	
@@ -106,7 +119,7 @@
 <Private>1</Private>
 <ReturnType>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</ReturnType>
 <Implementation><![CDATA[
-	#dim ZendingDetail As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
+	Set ZendingDetail = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail.Code = OfferteItem.Code
 	Set ZendingDetail.LeverDatum = OfferteItem.LeverDatum
 	Set ZendingDetail.LeverTijd = OfferteItem.LeverTijd
@@ -162,6 +175,73 @@
 	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendingConverteer">
+<FormalSpec>OfferteID:%String,Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid</ReturnType>
+<Implementation><![CDATA[
+	Set VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.Maak()
+	Set VerzendingMogelijkheid.ID = Verzending.Code
+	Set VerzendingMogelijkheid.OfferteID = OfferteID
+	Set VerzendingMogelijkheid.TransporteurID = Verzending.TransportFirma
+	Set VerzendingMogelijkheid.Verzending = ..VerzendingMogelijkheidConverteer(Verzending)
+	Quit VerzendingMogelijkheid
+]]></Implementation>
+</Method>
+
+<Method name="VerzendingMogelijkheidConverteer">
+<FormalSpec>Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</FormalSpec>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem</ReturnType>
+<Implementation><![CDATA[
+	Set VerzendingItem = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem).%New()
+	Set VerzendingItem.Code = Verzending.Code
+	Set VerzendingItem.Duurtijd = Verzending.Duurtijd
+	Set VerzendingItem.KostPrijs = Verzending.KostPrijs
+	Set VerzendingItem.LeverDag = Verzending.LeverDag
+	Set VerzendingItem.LeverDatum = Verzending.LeverDatum 
+	Set VerzendingItem.LeverTijd = Verzending.LeverTijd
+	Set VerzendingItem.Omschrijving = Verzending.Omschrijving
+	Set VerzendingItem.TransportFirma = Verzending.TransportFirma
+	Set VerzendingItem.Optie = ..CarbonNeutralConverteerder(Verzending.Optie)
+	Quit VerzendingItem
+]]></Implementation>
+</Method>
+
+<Method name="CarbonNeutralConverteerder">
+<FormalSpec>CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie</FormalSpec>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie</ReturnType>
+<Implementation><![CDATA[
+	Set Optie = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie).%New()
+	Quit:CarbonNeutral="" Optie
+
+	Set Optie.Omschrijving = CarbonNeutral.Omschrijving
+	Set Optie.MogelijkeWaarden = ..MogelijkeWaardenConverteer(CarbonNeutral.MogelijkeWaarden)
+	Quit Optie
+]]></Implementation>
+</Method>
+
+<Method name="MogelijkeWaardenConverteer">
+<FormalSpec>MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie")</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim Selecties As %ListOfObjects = ##class(%ListOfObjects).%New() 
+	
+	#dim MogelijkeWaardenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MogelijkeWaarden)
+	While MogelijkeWaardenIterator.HasNext()	
+	{
+		#dim MogelijkeWaarde As WS.EC.ExterneVerkoop.dto.Selectie = MogelijkeWaardenIterator.Next()
+		#dim Selectie As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie).%New()
+		set Selectie.ID = MogelijkeWaarde.ID
+		set Selectie.Omschrijving = MogelijkeWaarde.Omschrijving
+		set Selectie.Prijs = MogelijkeWaarde.Prijs
+		Do Selecties.Insert(Selectie)
+	}
+	
+	Quit Selecties
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r36317 -r37015
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 36317)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 37015)
@@ -37,18 +37,12 @@
 	Set HaalZendingDetailsMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New()
 	Do HaalZendingDetailsMock.VerwachtMethodCall("GeefZendingDetails",DummyBerekenInput,"E").DanReturn(ZendingDetails)
 	
-	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
-	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("VerwijderViaOfferteID",$$$ElkeWaarde).DanDoeNiks()
-	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
-	
-	
-	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock, NaarBerekenInputConverterMock, HaalZendingDetailsMock, VerzendingMogelijkheidRepositoryMock, DummyWinkelKarService)
+	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock, NaarBerekenInputConverterMock, HaalZendingDetailsMock, , DummyWinkelKarService)
 	#dim Resultaat As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = Service.GeefMogelijkeZendingen(OfferteID)
 	
 	Do VerkoopOfferteServiceMock.Verifieer()
 	Do NaarBerekenInputConverterMock.Verifieer()
 	Do HaalZendingDetailsMock.Verifieer()
-	Do VerzendingMogelijkheidRepositoryMock.Verifieer()
 	
 	Do $$$AssertEqualsList(ZendingDetails, Resultaat)
 ]]></Implementation>
@@ -140,7 +134,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: BerekenPalletGegevens roept StapelingBepaler.Bereken op met CollisOpPallet">
+<Method name="Test: BerekenPalletGegevens roept StapelingBepaler Bereken op met CollisOpPallet">
 <Implementation><![CDATA[
 	#dim OfferteID As %String = 999
 	
Index: vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r33903 -r37015
--- vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33903)
+++ vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37015)
@@ -14,12 +14,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CarbonNeutralConverteerder">
+<FormalSpec>CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie</FormalSpec>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MogelijkeWaardenConverteer">
+<FormalSpec>MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie")</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="VertalerGet">
 <ReturnType>DOM.common.Transl.Vertaler</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
+<Method name="VerzendingMogelijkheidConverteer">
+<FormalSpec>Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</FormalSpec>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZetVertaler">
 <FormalSpec>Taal:DOM.enu.Taal="N"</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml
===================================================================
diff -u -r36809 -r37015
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml	(.../Service.cls.xml)	(revision 36809)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml	(.../Service.cls.xml)	(revision 37015)
@@ -14,6 +14,30 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",COASO)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverDatum">
+<FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLeverDatum",ToeleveringNummer,ToeleveringLijnNummer,index)
+]]></Implementation>
+</Method>
+
+<Method name="KopieerNaarBLimp">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("KopieerNaarBLimp")
+]]></Implementation>
+</Method>
+
+<Method name="UpdateVerwerkVlag">
+<FormalSpec>ToeleveringsNummer:%String,ToeleveringsUniekLijnNummer:%String,Aantal:%String,LeverDatum:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("UpdateVerwerkVlag",ToeleveringsNummer,ToeleveringsUniekLijnNummer,Aantal,LeverDatum)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToelevering">
+<FormalSpec>ToeleveringsNummer:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderToelevering",ToeleveringsNummer)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r33391 -r37015
--- vhTest/Fake/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33391)
+++ vhTest/Fake/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 37015)
@@ -7,11 +7,35 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository</Super>
 
+<Method name="GeefViaOfferteIDEnVerzendingMogelijkheidID">
+<FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderViaOfferteID">
 <FormalSpec>OfferteID:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+</Method>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhTest/Spy/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u
--- vhTest/Spy/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(revision 0)
+++ vhTest/Spy/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(revision 37015)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository</Super>
+
+<Property name="VerwijderViaOfferteIDAangeroepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="BewaarAangeroepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="MaakAangeroepen">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefViaOfferteIDEnVerzendingMogelijkheidID">
+<FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaOfferteID">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..VerwijderViaOfferteIDAangeroepen = ..VerwijderViaOfferteIDAangeroepen + 1
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[
+	Set ..MaakAangeroepen = ..MaakAangeroepen + 1
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	Set ..BewaarAangeroepen = ..BewaarAangeroepen + 1
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+</Method>
+
+<Method name="GeefVerwijderViaOfferteIDAangeroepen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwijderViaOfferteIDAangeroepen
+]]></Implementation>
+</Method>
+
+<Method name="GeefBewaarAangeroepen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..BewaarAangeroepen
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaakAangeroepen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakAangeroepen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r34865 -r37015
--- vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 34865)
+++ vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 37015)
@@ -9,31 +9,18 @@
 <Super>vhTest.Mock.TECH.Persistentie.Repository,WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="VerwijderViaOfferteID">
-<FormalSpec>OfferteID:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaOfferteID",OfferteID)
-]]></Implementation>
-</Method>
-
-<Method name="Bewaar">
-<FormalSpec>Data:TECH.Persistent</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",Data)
-]]></Implementation>
-</Method>
-
-<Method name="GeefViaID">
-<FormalSpec>ID:%String</FormalSpec>
-<ReturnType>TECH.Persistent</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",ID)
-]]></Implementation>
-</Method>
-
 <Method name="GeefViaOfferteIDEnVerzendingMogelijkheidID">
 <FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer</FormalSpec>
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID",OfferteID,VerzendingMogelijkheidID)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderViaOfferteID">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaOfferteID",OfferteID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r36927 -r37015
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 36927)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 37015)
@@ -71,8 +71,6 @@
 		
 		Set BerekenInput = ..NaarBerekenInputConverter.Convert(Verpakkingen, LeverAdres, OfferteID, VroegsteAfhaalDatum)
 		Set VerzendingMogelijkheden = ..ZendingDetails.GeefZendingDetails(BerekenInput, Taal)
-
-		Do ..BewaarVerzendingMogelijkheden(OfferteID, VerzendingMogelijkheden)
 		
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -183,87 +181,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BewaarVerzendingMogelijkheden">
-<FormalSpec>OfferteID:%String,VerzendingMogelijkheden:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Do ..VerzendingMogelijkheidRepository.VerwijderViaOfferteID(OfferteID)
-	
-	#dim VerzendingMogelijkhedenIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(VerzendingMogelijkheden)
-	while VerzendingMogelijkhedenIterator.HasNext() {
-		#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid = ..VerzendingConverteer(OfferteID, VerzendingMogelijkhedenIterator.Next())
-		Do ..VerzendingMogelijkheidRepository.Bewaar(VerzendingMogelijkheid)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="VerzendingConverteer">
-<FormalSpec>OfferteID:%String,Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</FormalSpec>
-<Private>1</Private>
-<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid</ReturnType>
-<Implementation><![CDATA[
-	#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid).%New()
-	Set VerzendingMogelijkheid.ID = Verzending.Code
-	Set VerzendingMogelijkheid.OfferteID = OfferteID
-	Set VerzendingMogelijkheid.TransporteurID = Verzending.TransportFirma
-	Set VerzendingMogelijkheid.Verzending = ..VerzendingMogelijkheidConverteer(Verzending)
-	Quit VerzendingMogelijkheid
-]]></Implementation>
-</Method>
-
-<Method name="VerzendingMogelijkheidConverteer">
-<FormalSpec>Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</FormalSpec>
-<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem</ReturnType>
-<Implementation><![CDATA[
-	#dim VerzendingItem As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem).%New()
-	Set VerzendingItem.Code = Verzending.Code
-	Set VerzendingItem.Duurtijd = Verzending.Duurtijd
-	Set VerzendingItem.KostPrijs = Verzending.KostPrijs
-	Set VerzendingItem.LeverDag = Verzending.LeverDag
-	Set VerzendingItem.LeverDatum = Verzending.LeverDatum 
-	Set VerzendingItem.LeverTijd = Verzending.LeverTijd
-	Set VerzendingItem.Omschrijving = Verzending.Omschrijving
-	Set VerzendingItem.TransportFirma = Verzending.TransportFirma
-	Set VerzendingItem.Optie = ..CarbonNeutralConverteerder(Verzending.Optie)
-	Quit VerzendingItem
-]]></Implementation>
-</Method>
-
-<Method name="CarbonNeutralConverteerder">
-<FormalSpec>CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie</FormalSpec>
-<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie</ReturnType>
-<Implementation><![CDATA[
-	#dim Optie As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie).%New()
-	Quit:CarbonNeutral="" Optie
-
-	Set Optie.Omschrijving = CarbonNeutral.Omschrijving
-	Set Optie.MogelijkeWaarden = ..MogelijkeWaardenConverteer(CarbonNeutral.MogelijkeWaarden)
-	Quit Optie
-]]></Implementation>
-</Method>
-
-<Method name="MogelijkeWaardenConverteer">
-<FormalSpec>MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie")</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie"</ReturnTypeParams>
-<Implementation><![CDATA[
-	#dim Selecties As %ListOfObjects = ##class(%ListOfObjects).%New() 
-	
-	#dim MogelijkeWaardenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MogelijkeWaarden)
-	While MogelijkeWaardenIterator.HasNext()	
-	{
-		#dim MogelijkeWaarde As WS.EC.ExterneVerkoop.dto.Selectie = MogelijkeWaardenIterator.Next()
-		#dim Selectie As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie).%New()
-		set Selectie.ID = MogelijkeWaarde.ID
-		set Selectie.Omschrijving = MogelijkeWaarde.Omschrijving
-		set Selectie.Prijs = MogelijkeWaarde.Prijs
-		Do Selecties.Insert(Selectie)
-	}
-	
-	Quit Selecties
-]]></Implementation>
-</Method>
-
 <Method name="OngeldigeVerzendKeuze">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r33903 -r37015
--- vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33903)
+++ vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37015)
@@ -9,12 +9,33 @@
 <Super>WS.EC.Unishop.InternationaleZending.impl.ZendingDetails,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="CarbonNeutralConverteerder">
+<FormalSpec>CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie</FormalSpec>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("CarbonNeutralConverteerder",CarbonNeutral)
+]]></Implementation>
+</Method>
+
 <Method name="GeefZendingDetails">
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput,Taal:DOM.enu.Taal="N"</FormalSpec>
 <ReturnType>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefZendingDetails",BerekenInput,Taal)
 ]]></Implementation>
 </Method>
+
+<Method name="MogelijkeWaardenConverteer">
+<FormalSpec>MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie")</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MogelijkeWaardenConverteer",MogelijkeWaarden)
+]]></Implementation>
+</Method>
+
+<Method name="VerzendingMogelijkheidConverteer">
+<FormalSpec>Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</FormalSpec>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerzendingMogelijkheidConverteer",Verzending)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml
===================================================================
diff -u -r36809 -r37015
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml	(.../Service.cls.xml)	(revision 36809)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml	(.../Service.cls.xml)	(revision 37015)
@@ -9,8 +9,7 @@
 
 <Method name="Bewaar">
 <FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>