Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml
===================================================================
diff -u -r33411 -r33413
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33411)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33413)
@@ -6,60 +6,45 @@
 <Method name="Test: ZetGekozenVerzendingMogelijkheid ">
 <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.dto.Selectie).%New()  
-	Set VerzendingKeuze.OptieKeuze.ID = 1
-	Set VerzendingKeuze.OptieKeuze.Omschrijving = "test optie"
-	Set VerzendingKeuze.OptieKeuze.Prijs = 40.0  
+	Set OptieKeuze = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()  
+	Set OptieKeuze.ID = 1
+	Set OptieKeuze.Omschrijving = "test optie"
+	Set OptieKeuze.Prijs = 40.0  
 	
 	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
-	Do TestUnit.ZetGekozenVerzendingMogelijkheid(OfferteId, VerzendingKeuze)
+	Do TestUnit.ZetGekozenVerzendingMogelijkheid(OfferteId, 1,OptieKeuze)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZetGekozenVerzendingMogelijkheid 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.dto.Selectie).%New()  
-	Set VerzendingKeuze.OptieKeuze.ID = 1
-	Set VerzendingKeuze.OptieKeuze.Omschrijving = "test optie"
-	Set VerzendingKeuze.OptieKeuze.Prijs = 40.0  
+	Set OptieKeuze = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()  
+	Set OptieKeuze.ID = 1
+	Set OptieKeuze.Omschrijving = "test optie"
+	Set OptieKeuze.Prijs = 40.0  
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige verzend keuze.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.OngeldigeVerzendKeuze",Substrings))
 
 	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
-	Do TestUnit.ZetGekozenVerzendingMogelijkheid(OfferteId, VerzendingKeuze)
+	Do TestUnit.ZetGekozenVerzendingMogelijkheid(OfferteId, 10, OptieKeuze)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZetGekozenVerzendingMogelijkheid 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.dto.Selectie).%New()  
-	Set VerzendingKeuze.OptieKeuze.ID = 10
-	Set VerzendingKeuze.OptieKeuze.Omschrijving = "test optie"
-	Set VerzendingKeuze.OptieKeuze.Prijs = 40.0  
+	Set OptieKeuze = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()  
+	Set OptieKeuze.ID = 10
+	Set OptieKeuze.Omschrijving = "test optie"
+	Set OptieKeuze.Prijs = 40.0  
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige optie keuze.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.OngeldigeOptieKeuze",Substrings))
 	
 	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
-	Do TestUnit.ZetGekozenVerzendingMogelijkheid(OfferteId, VerzendingKeuze)
+	Do TestUnit.ZetGekozenVerzendingMogelijkheid(OfferteId, 1, OptieKeuze)
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 33413 refers to a dead (removed) revision in file `WS/EC/ExterneVerkoop/VerzendingKeuze.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33411 -r33413
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33411)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33413)
@@ -4,11 +4,11 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="ZetGekozenVerzendingMogelijkheid">
-<FormalSpec>OfferteId:%String,VerzendingKeuze:WS.EC.ExterneVerkoop.VerzendingKeuze</FormalSpec>
+<FormalSpec>OfferteId:%String,VerzendingMogelijkheidCode:%Integer,OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
 <Implementation><![CDATA[
-	if (VerzendingKeuze.Code > 4) {
+	if (VerzendingMogelijkheidCode > 4) {
 		Do ..OngeldigeVerzendKeuze()
-	} elseif (VerzendingKeuze.OptieKeuze.ID > 1) {
+	} elseif (OptieKeuze.ID > 1) {
 		Do ..OngeldigeOptieKeuze()
 	}
 ]]></Implementation>