Index: WS/EC/ExterneVerkoopService.cls.xml
===================================================================
diff -u -r33250 -r33259
--- WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33250)
+++ WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33259)
@@ -135,9 +135,7 @@
 <Method name="BewaarGekozenZending">
 <FormalSpec>OfferteId:%String,VerzendingKeuze:WS.EC.ExterneVerkoop.VerzendingKeuze</FormalSpec>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	/// te bewaren bij offerte.
-	/// Foutmelding indien er iets fout loopt indien opgeslagen geen result.
+<Implementation><![CDATA[	Quit ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New().BewaarGekozenZending(OfferteId, VerzendingKeuze)
 ]]></Implementation>
 </Method>
 </Class>
Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33248 -r33259
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33248)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33259)
@@ -3,6 +3,33 @@
 <Class name="WS.EC.Unishop.InternationaleZending.DummyService">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="BewaarGekozenZending">
+<FormalSpec>OfferteId:%String,VerzendingKeuze:WS.EC.ExterneVerkoop.VerzendingKeuze</FormalSpec>
+<Implementation><![CDATA[
+	if (VerzendingKeuze.Code > 4) {
+		Do ..OngeldigeVerzendKeuze()
+	} elseif (VerzendingKeuze.OptieKeuze.ID > 1) {
+		Do ..OngeldigeOptieKeuze()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OngeldigeVerzendKeuze">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Exception = ##class(TECH.Exceptions.InvalidUserInputException).%New("Ongeldige verzend keuze.")	
+	do ##class(TECH.ExceptionHandler).Throw(Exception)
+]]></Implementation>
+</Method>
+
+<Method name="OngeldigeOptieKeuze">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Exception = ##class(TECH.Exceptions.InvalidUserInputException).%New("Ongeldige optie keuze.")	
+	do ##class(TECH.ExceptionHandler).Throw(Exception)
+]]></Implementation>
+</Method>
+
 <Method name="GeefMogelijkeZendingen">
 <FormalSpec>OfferteId:%String</FormalSpec>
 <ReturnType>WS.EC.ExterneVerkoop.MogelijkeVerzendingen</ReturnType>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(revision 0)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(revision 33259)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.DummyService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: BewaarGekozenZending ">
+<Implementation><![CDATA[
+	#dim OfferteId As %String = "1"
+	#dim VerzendingKeuze As WS.EC.ExterneVerkoop.VerzendingKeuze = ##class(WS.EC.ExterneVerkoop.VerzendingKeuze).%New()
+	Set VerzendingKeuze.Code = 1
+	Set VerzendingKeuze.KostPrijs = 50.2
+	Set VerzendingKeuze.LeverDatum = "" 
+	Set VerzendingKeuze.Omschrijving = "Test verzending"
+	Set VerzendingKeuze.OptieKeuze = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()  
+	Set VerzendingKeuze.OptieKeuze.ID = 1
+	Set VerzendingKeuze.OptieKeuze.Omschrijving = "test optie"
+	Set VerzendingKeuze.OptieKeuze.Prijs = 40.0  
+	
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
+	Do TestUnit.BewaarGekozenZending(OfferteId, VerzendingKeuze)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BewaarGekozenZending met foutieve verzend keuze">
+<Implementation><![CDATA[
+	#dim OfferteId As %String = "1"
+	#dim VerzendingKeuze As WS.EC.ExterneVerkoop.VerzendingKeuze = ##class(WS.EC.ExterneVerkoop.VerzendingKeuze).%New()
+	Set VerzendingKeuze.Code = 10
+	Set VerzendingKeuze.KostPrijs = 50.2
+	Set VerzendingKeuze.LeverDatum = "" 
+	Set VerzendingKeuze.Omschrijving = "Test verzending"
+	Set VerzendingKeuze.OptieKeuze = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()  
+	Set VerzendingKeuze.OptieKeuze.ID = 1
+	Set VerzendingKeuze.OptieKeuze.Omschrijving = "test optie"
+	Set VerzendingKeuze.OptieKeuze.Prijs = 40.0  
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige verzend keuze.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException",Substrings))
+
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
+	Do TestUnit.BewaarGekozenZending(OfferteId, VerzendingKeuze)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BewaarGekozenZending met foutieve optie keuze">
+<Implementation><![CDATA[
+	#dim OfferteId As %String = "1"
+	#dim VerzendingKeuze As WS.EC.ExterneVerkoop.VerzendingKeuze = ##class(WS.EC.ExterneVerkoop.VerzendingKeuze).%New()
+	Set VerzendingKeuze.Code = 1
+	Set VerzendingKeuze.KostPrijs = 50.2
+	Set VerzendingKeuze.LeverDatum = "" 
+	Set VerzendingKeuze.Omschrijving = "Test verzending"
+	Set VerzendingKeuze.OptieKeuze = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()  
+	Set VerzendingKeuze.OptieKeuze.ID = 10
+	Set VerzendingKeuze.OptieKeuze.Omschrijving = "test optie"
+	Set VerzendingKeuze.OptieKeuze.Prijs = 40.0  
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige optie keuze.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException",Substrings))
+	
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
+	Do TestUnit.BewaarGekozenZending(OfferteId, VerzendingKeuze)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>