Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33516 -r33518
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33516)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33518)
@@ -8,7 +8,7 @@
 <Implementation><![CDATA[
 	if (VerzendingMogelijkheidID > 4) {
 		Do ..OngeldigeVerzendKeuze()
-	} elseif (OptieKeuze.ID > 1) {
+	} elseif (OptieKeuze > 1) {
 		Do ..OngeldigeOptieKeuze()
 	}
 ]]></Implementation>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml
===================================================================
diff -u -r33413 -r33518
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33413)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33518)
@@ -6,10 +6,7 @@
 <Method name="Test: ZetGekozenVerzendingMogelijkheid ">
 <Implementation><![CDATA[
 	#dim OfferteId As %String = "1"
-	Set OptieKeuze = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()  
-	Set OptieKeuze.ID = 1
-	Set OptieKeuze.Omschrijving = "test optie"
-	Set OptieKeuze.Prijs = 40.0  
+	#dim OptieKeuze As %Intger = 1
 	
 	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
 	Do TestUnit.ZetGekozenVerzendingMogelijkheid(OfferteId, 1,OptieKeuze)
@@ -19,10 +16,7 @@
 <Method name="Test: ZetGekozenVerzendingMogelijkheid met foutieve verzend keuze">
 <Implementation><![CDATA[
 	#dim OfferteId As %String = "1"
-	Set OptieKeuze = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()  
-	Set OptieKeuze.ID = 1
-	Set OptieKeuze.Omschrijving = "test optie"
-	Set OptieKeuze.Prijs = 40.0  
+	#dim OptieKeuze As %Integer = 1
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige verzend keuze.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.OngeldigeVerzendKeuze",Substrings))
@@ -35,10 +29,7 @@
 <Method name="Test: ZetGekozenVerzendingMogelijkheid met foutieve optie keuze">
 <Implementation><![CDATA[
 	#dim OfferteId As %String = "1"
-	Set OptieKeuze = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()  
-	Set OptieKeuze.ID = 10
-	Set OptieKeuze.Omschrijving = "test optie"
-	Set OptieKeuze.Prijs = 40.0  
+	#dim OptieKeuze As %Integer = 5
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige optie keuze.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.OngeldigeOptieKeuze",Substrings))