Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33987 -r34046
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33987)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 34046)
@@ -171,40 +171,40 @@
 	Set ZendingDetail1.LeverDag = ..Vertaler.GeefVertaling("Maandag_Kort")
 	Set ZendingDetail1.KostPrijs = 44.00
 	Set ZendingDetail1.Omschrijving = "UPS (Worldwide) Express"
-	Set ZendingDetail1.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
+	Set ZendingDetail1.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail1.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail1)
 
 	#dim ZendingDetail2 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail2.Code = 3
 	Set ZendingDetail2.Optie = ..ConverteerNaarCarbonNeutralOptie(0.5)
 	Set ZendingDetail2.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
-	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
-	Set ZendingDetail1.LeverDag = ..Vertaler.GeefVertaling("Maandag_Kort")
+	Set ZendingDetail2.LeverTijd = ##class(TECH.DateTime).CurrentTime()
+	Set ZendingDetail2.LeverDag = ..Vertaler.GeefVertaling("Maandag_Kort")
 	Set ZendingDetail2.KostPrijs = 40.00
 	Set ZendingDetail2.Omschrijving = "UPS Express Saver"
-	Set ZendingDetail2.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
+	Set ZendingDetail2.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail2.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail2)
 
 	#dim ZendingDetail3 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail3.Code = 4
 	Set ZendingDetail3.Optie = ..ConverteerNaarCarbonNeutralOptie(0.2)
 	Set ZendingDetail3.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),2, ##class(TECH.enu.DatePart).Dag())
-	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
-	Set ZendingDetail1.LeverDag = ..Vertaler.GeefVertaling("Dinsdag_Kort")
+	Set ZendingDetail3.LeverTijd = ##class(TECH.DateTime).CurrentTime()
+	Set ZendingDetail3.LeverDag = ..Vertaler.GeefVertaling("Dinsdag_Kort")
 	Set ZendingDetail3.KostPrijs = 36.50
 	Set ZendingDetail3.Omschrijving = "UPS Standard" 
-	Set ZendingDetail3.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
+	Set ZendingDetail3.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail3.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail3)
 
 	#dim ZendingDetail4 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail4.Code = 5
 	Set ZendingDetail4.Optie = ..ConverteerNaarCarbonNeutralOptie(0)
 	Set ZendingDetail4.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),6, ##class(TECH.enu.DatePart).Dag())
-	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
-	Set ZendingDetail1.LeverDag = ..Vertaler.GeefVertaling("Vrijdag_Kort")
+	Set ZendingDetail4.LeverTijd = ##class(TECH.DateTime).CurrentTime()
+	Set ZendingDetail4.LeverDag = ..Vertaler.GeefVertaling("Vrijdag_Kort")
 	Set ZendingDetail4.KostPrijs = 50.00
 	Set ZendingDetail4.Omschrijving = "DHL Freight"
-	Set ZendingDetail4.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
+	Set ZendingDetail4.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail4.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail4)
 	
 	Quit ZendingDetails
@@ -238,7 +238,7 @@
 	#dim SelectieOptie2 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
 	Set SelectieOptie2.ID = "1"
 	Set SelectieOptie2.Omschrijving = ..Vertaler.GeefVertaling("Nee")
-	Set SelectieOptie1.Prijs = 0
+	Set SelectieOptie2.Prijs = 0
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie2)
 	Quit CarbonNeutral
 ]]></Implementation>