Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r34836 -r34865
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 34836)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 34865)
@@ -74,7 +74,7 @@
 	
 	#dim VerzendingMogelijkheidDummy As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid).%New()
 	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
-	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaID",VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
+	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID", OfferteID, VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
 	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("VerwijderViaOfferteID",OfferteID).DanDoeNiks()
 
 	#dim OptieKeuze As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
@@ -133,7 +133,7 @@
 	
 	#dim VerzendingMogelijkheidDummy As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid).%New()
 	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
-	Do VerzendingMogelijkheidRepositoryMock.IndienMethodCall("GeefViaID",VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
+	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID", OfferteID, VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
 
 	#dim OptieKeuze As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
 	#dim Service As WS.EC.Unishop.InternationaleZending.Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock)
Index: WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r33899 -r34865
--- WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33899)
+++ WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 34865)
@@ -17,6 +17,33 @@
 	Do ..QueryAPI.ExecuteDynamicQuery(SqlStatement,lbParams)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefViaOfferteIDEnVerzendingMogelijkheidID">
+<FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	 Quit ..GeefViaFilter("OfferteID = ? AND ID = ?",$LB(OfferteID,VerzendingMogelijkheidID))
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaFilter">
+<FormalSpec>Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT ID1 FROM " _SqlTableName _" WHERE " _Filter
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+
+	if ResultSet.Next() {
+		#dim Result As TECH.Persistent = ..GeefViaID(ResultSet.GetData(1))	
+		do:ResultSet.Next() ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen unieke data in '"_SqlTableName_"' gevonden met filter '"_Filter_"' en parameters '"_$$$LCVT(Params)_"'")
+	} else {
+		do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen data in '"_SqlTableName_"' gevonden met filter '"_Filter_"' en parameters '"_$$$LCVT(Params)_"'")
+	}
+	quit Result
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r33428 -r34865
--- vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33428)
+++ vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 34865)
@@ -27,6 +27,13 @@
 <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>
 </Class>
 
 
Index: zTryout/KCA/ExterneVerkoop.cls.xml
===================================================================
diff -u -r34829 -r34865
--- zTryout/KCA/ExterneVerkoop.cls.xml	(.../ExterneVerkoop.cls.xml)	(revision 34829)
+++ zTryout/KCA/ExterneVerkoop.cls.xml	(.../ExterneVerkoop.cls.xml)	(revision 34865)
@@ -8,7 +8,7 @@
 <Implementation><![CDATA[
 	write !,"start"
 	#dim VerkoopService As WS.EC.ExterneVerkoopService = ##class(WS.EC.ExterneVerkoopService).%New()
-	#dim Result As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerkoopService.GeefVerzendingMogelijkheden("100834")
+	#dim Result As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerkoopService.GeefVerzendingMogelijkheden("100836")
 	Write $$ObjToXML^vhLib(Result.GetAt(1))
 	Write $$ObjToXML^vhLib(Result.GetAt(2))
 	Write $$ObjToXML^vhLib(Result.GetAt(3))
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r34836 -r34865
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 34836)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 34865)
@@ -72,19 +72,40 @@
 </Method>
 
 <Method name="ZetGekozenVerzendingMogelijkheid">
-<FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
+<FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
-	#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaID(VerzendingMogelijkheidID) 
+	#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaOfferteIDEnVerzendingMogelijkheidID(OfferteID,VerzendingMogelijkheidID) 
 	Do Offerte.ZetVerzendingItem($$ConstructClone^vhLib.Class(VerzendingMogelijkheid.Verzending,##class(APPS.VKP.impl.Offerte.VerzendingItem).%ClassName(1)))
-	Do Offerte.ZetCarbonNeutral(..OptieKeuzeConverteer(OptieKeuze))
+	
+	#dim GeselecteerdeOptie As WS.EC.ExterneVerkoop.dto.Selectie = ..GeefGeselecteerdeOptie(VerzendingMogelijkheid, OptieKeuze)
+	
+	Do Offerte.ZetCarbonNeutral(..OptieKeuzeConverteer(GeselecteerdeOptie))
 	Do Offerte.ZetLeverDatum(VerzendingMogelijkheid.Verzending.LeverDatum)
 	#dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder()
 	Do OfferteBewaarder.Bewaar(Offerte)
 	Do ..VerzendingMogelijkheidRepository.VerwijderViaOfferteID(OfferteID)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGeselecteerdeOptie">
+<FormalSpec>VerzendingMogelijkheid:WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid,OptieKeuze:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.EC.ExterneVerkoop.dto.Selectie</ReturnType>
+<Implementation><![CDATA[
+	#dim result As WS.EC.ExterneVerkoop.dto.Selectie = ""
+	for counter=1:1:VerzendingMogelijkheid.Verzending.Optie.MogelijkeWaarden.Count()
+	{
+		#dim Item As WS.EC.ExterneVerkoop.dto.Selectie = VerzendingMogelijkheid.Verzending.Optie.MogelijkeWaarden.GetAt(counter)
+		if $IsObject(Item) && (Item.ID = OptieKeuze)
+		{
+			Set result = Item
+		}
+	}
+	Quit result
+]]></Implementation>
+</Method>
+
 <Method name="OptieKeuzeConverteer">
 <FormalSpec>OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie=""</FormalSpec>
 <Private>1</Private>