Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r33428 -r33431
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33428)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33431)
@@ -75,6 +75,58 @@
 	Do VerzendingMogelijkheidRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetGekozenVerzendingMogelijkheid bewaart Verzendingmogelijkheid en geeft foutmelding op niet gekende offerteID">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 3
+	#dim VerzendingMogelijkheidID As %String = 1
+	
+	#dim DummyException As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New("OfferteID bestaat niet.")
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefOfferte",OfferteID).DanException(DummyException)
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("OfferteID bestaat niet.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	
+	#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()
+
+	#dim Service As WS.EC.Unishop.InternationaleZending.Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock)
+	Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetGekozenVerzendingMogelijkheid bewaart Verzendingmogelijkheid  en geeft foutmelding bij BewaarOfferte">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 1
+	#dim VerzendingMogelijkheidID As %String = 1
+	
+	#dim DummyException As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan offerte niet bewaren.")
+
+	#dim VerkoopOfferteDummy As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do VerkoopOfferteDummy.IndienMethodCall("ZetVerzendingMogelijkheid",$$$ElkeWaarde).DanDoeNiks()
+	Do VerkoopOfferteDummy.IndienMethodCall("ZetCarbonNeutral",$$$ElkeWaarde).DanDoeNiks()
+
+	#dim OfferteBewaarderDummy As vhTest.Mock.APPS.VKP.OfferteBewaarder = ##class(vhTest.Mock.APPS.VKP.OfferteBewaarder).%New()
+	Do OfferteBewaarderDummy.IndienMethodCall("Bewaar",$$$ElkeWaarde).DanException(DummyException)
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan offerte niet bewaren.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefOfferte",OfferteID).DanReturn(VerkoopOfferteDummy)
+	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefOfferteBewaarder").DanReturn(OfferteBewaarderDummy)
+	
+	#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)
+
+	#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)
+	Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,OptieKeuze)
+]]></Implementation>
+</Method>
 </Class>