Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r33248 -r33249
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33248)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33249)
@@ -68,11 +68,13 @@
 	Set CarbonNeutral.Omschrijving = "Wenst u de CO2-uitstoot van uw levering te compenseren ?"
 	#dim SelectieOptie1 As WS.EC.ExterneVerkoop.SelectieOptie = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()
 	Set SelectieOptie1.ID = 0
+	Set SelectieOptie1.Prijs = CarbonNeutralPrijs
 	Set SelectieOptie1.Omschrijving = "ja, ik betaal hiervoor " _$FNUMBER(CarbonNeutralPrijs,"",2) _" EUR"
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie1)
 	
 	#dim SelectieOptie2 As WS.EC.ExterneVerkoop.SelectieOptie = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()
 	Set SelectieOptie2.ID = 1
+	Set SelectieOptie2.Prijs = 0
 	Set SelectieOptie2.Omschrijving = "nee"
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie2)
 	Quit CarbonNeutral
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r33248 -r33249
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 33248)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 33249)
@@ -22,6 +22,8 @@
 		Do $$$AssertEquals(ZendingDetails.Items.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(1).Omschrijving ,"ja, ik betaal hiervoor 0.80 EUR")
 		Do $$$AssertEquals(ZendingDetails.Items.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(1).ID ,0)
 		Do $$$AssertEquals(ZendingDetails.Items.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(2).ID ,1)
+		Do $$$AssertEquals(ZendingDetails.Items.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(1).Prijs ,0.80)
+		Do $$$AssertEquals(ZendingDetails.Items.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(2).Prijs ,0)
 	}
 ]]></Implementation>
 </Method>