Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r33411 -r33539
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33411)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33539)
@@ -53,7 +53,7 @@
 	Set ZendingDetail.LeverDag = OfferteItem.LeverDag
 	Set ZendingDetail.Omschrijving = OfferteItem.Omschrijving
 	Set ZendingDetail.KostPrijs = OfferteItem.Kostprijs
-	Set ZendingDetail.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(OfferteItem.CarbonNeutralPrijs)
+	Set ZendingDetail.Optie = ..ConverteerNaarCarbonNeutralOptie(OfferteItem.CarbonNeutralPrijs)
 	Set ZendingDetail.TransportFirma = TransportFirma
 	Quit ZendingDetail
 ]]></Implementation>
@@ -67,16 +67,15 @@
 	Quit:((CarbonNeutralPrijs = 0) || (CarbonNeutralPrijs = "")) ""
 	
 	#dim CarbonNeutral As WS.EC.ExterneVerkoop.dto.Optie = ##class(WS.EC.ExterneVerkoop.dto.Optie).%New()
-	Set CarbonNeutral.ID = 1
 	Set CarbonNeutral.Omschrijving = "Wenst u de CO2-uitstoot van uw levering te compenseren ?"
 	#dim SelectieOptie1 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
-	Set SelectieOptie1.ID = 0
+	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.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
-	Set SelectieOptie2.ID = 1
+	Set SelectieOptie2.ID = "1"
 	Set SelectieOptie2.Prijs = 0
 	Set SelectieOptie2.Omschrijving = "nee"
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie2)
Index: WSdata/EC/ExterneVerkoop/Optie.cls.xml
===================================================================
diff -u -r33415 -r33539
--- WSdata/EC/ExterneVerkoop/Optie.cls.xml	(.../Optie.cls.xml)	(revision 33415)
+++ WSdata/EC/ExterneVerkoop/Optie.cls.xml	(.../Optie.cls.xml)	(revision 33539)
@@ -3,10 +3,6 @@
 <Class name="WSdata.EC.ExterneVerkoop.Optie">
 <Super>%Library.SerialObject</Super>
 
-<Property name="ID">
-<Type>TECH.Integer</Type>
-</Property>
-
 <Property name="Omschrijving">
 <Type>TECH.String</Type>
 </Property>
@@ -21,8 +17,6 @@
 <State>OptieState</State>
 <StreamLocation>^WSdata.EC.ExterneVer282E.OptieS</StreamLocation>
 <Data name="OptieState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>ID</Value>
 </Value>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r33380 -r33539
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 33380)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 33539)
@@ -16,14 +16,13 @@
 	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
 	If $$$AssertEquals(ZendingDetails.Count(),1) {
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).CarbonNeutral.ID ,"1")
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).CarbonNeutral.Omschrijving ,"Wenst u de CO2-uitstoot van uw levering te compenseren ?")
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).CarbonNeutral.MogelijkeWaarden.Count() ,2)
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(1).Omschrijving ,"ja, ik betaal hiervoor 0.80 EUR")
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(1).ID ,0)
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(2).ID ,1)
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(1).Prijs ,0.80)
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).CarbonNeutral.MogelijkeWaarden.GetAt(2).Prijs ,0)
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.Omschrijving ,"Wenst u de CO2-uitstoot van uw levering te compenseren ?")
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.Count() ,2)
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Omschrijving ,"ja, ik betaal hiervoor 0.80 EUR")
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).ID ,0)
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).ID ,1)
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Prijs ,0.80)
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).Prijs ,0)
 	}
 ]]></Implementation>
 </Method>
@@ -41,7 +40,7 @@
 	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
 	If $$$AssertEquals(ZendingDetails.Count(),1) {
-		Do $$$AssertFalse($IsObject(ZendingDetails.GetAt(1).CarbonNeutral))
+		Do $$$AssertFalse($IsObject(ZendingDetails.GetAt(1).Optie))
 	}
 ]]></Implementation>
 </Method>
Index: WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml
===================================================================
diff -u -r33415 -r33539
--- WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml	(.../VerzendingItem.cls.xml)	(revision 33415)
+++ WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml	(.../VerzendingItem.cls.xml)	(revision 33539)
@@ -35,7 +35,7 @@
 <Type>TECH.Decimal</Type>
 </Property>
 
-<Property name="CarbonNeutral">
+<Property name="Optie">
 <Type>WSdata.EC.ExterneVerkoop.Optie</Type>
 </Property>
 
@@ -71,6 +71,9 @@
 <Value name="9">
 <Value>CarbonNeutral</Value>
 </Value>
+<Value name="10">
+<Value>Optie</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/EC/ExterneVerkoop/dto/Selectie.cls.xml
===================================================================
diff -u -r33411 -r33539
--- WS/EC/ExterneVerkoop/dto/Selectie.cls.xml	(.../Selectie.cls.xml)	(revision 33411)
+++ WS/EC/ExterneVerkoop/dto/Selectie.cls.xml	(.../Selectie.cls.xml)	(revision 33539)
@@ -8,7 +8,7 @@
 </Parameter>
 
 <Property name="ID">
-<Type>TECH.Integer</Type>
+<Type>TECH.String</Type>
 </Property>
 
 <Property name="Omschrijving">
@@ -20,7 +20,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ID:TECH.Integer="",Omschrijving:TECH.String="",Prijs:TECH.Decimal=""</FormalSpec>
+<FormalSpec>ID:TECH.String="",Omschrijving:TECH.String="",Prijs:TECH.Decimal=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
Index: WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheid.cls.xml
===================================================================
diff -u -r33411 -r33539
--- WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheid.cls.xml	(.../VerzendingMogelijkheid.cls.xml)	(revision 33411)
+++ WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheid.cls.xml	(.../VerzendingMogelijkheid.cls.xml)	(revision 33539)
@@ -35,7 +35,7 @@
 <Type>TECH.Decimal</Type>
 </Property>
 
-<Property name="CarbonNeutral">
+<Property name="Optie">
 <Type>WS.EC.ExterneVerkoop.dto.Optie</Type>
 </Property>
 </Class>
Index: WS/EC/ExterneVerkoop/dto/Optie.cls.xml
===================================================================
diff -u -r33411 -r33539
--- WS/EC/ExterneVerkoop/dto/Optie.cls.xml	(.../Optie.cls.xml)	(revision 33411)
+++ WS/EC/ExterneVerkoop/dto/Optie.cls.xml	(.../Optie.cls.xml)	(revision 33539)
@@ -3,10 +3,6 @@
 <Class name="WS.EC.ExterneVerkoop.dto.Optie">
 <Super>TECH.DataTransferObject</Super>
 
-<Property name="ID">
-<Type>TECH.Integer</Type>
-</Property>
-
 <Property name="Omschrijving">
 <Type>TECH.String</Type>
 </Property>
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33484 -r33539
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33484)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33539)
@@ -68,8 +68,10 @@
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
 	#dim WinkelKarID As %String = ..OfferteService.GeefWinkelKarID(OfferteID)
-	///#dim VerzendWijze AS APPS.VKP.VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New() ///Afhaling()
-	///Quit ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New().GeefVroegsteLeverDatum(WinkelKarID, VerzendWijze)
+	
+	/// #dim VerzendWijze AS APPS.VKP.VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New() ///Afhaling()
+	/// Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..KlantNr, ..GeefVerzendingWijze(), AfleverAdres.GeefLand().GeefCode(), AfleverAdres.GeefPostcode(), ..OrderID)	}
+	/// Quit ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New().GeefVroegsteLeverDatum(WinkelKarID, VerzendWijze)
 	Quit ..WinkelKarService.GeefVroegsteLeverDatum(WinkelKarID)
 ]]></Implementation>
 </Method>
@@ -140,7 +142,7 @@
 	Set VerzendingItem.LeverTijd = Verzending.LeverTijd
 	Set VerzendingItem.Omschrijving = Verzending.Omschrijving
 	Set VerzendingItem.TransportFirma = Verzending.TransportFirma
-	Set VerzendingItem.CarbonNeutral = ..CarbonNeutralConverteerder(Verzending.CarbonNeutral)
+	Set VerzendingItem.Optie = ..CarbonNeutralConverteerder(Verzending.Optie)
 	Quit VerzendingItem
 ]]></Implementation>
 </Method>
@@ -150,7 +152,6 @@
 <ReturnType>WSdata.EC.ExterneVerkoop.Optie</ReturnType>
 <Implementation><![CDATA[
 	#dim Optie As WSdata.EC.ExterneVerkoop.Optie = ##class(WSdata.EC.ExterneVerkoop.Optie).%New()
-	Set Optie.ID = CarbonNeutral.ID
 	Set Optie.Omschrijving = CarbonNeutral.Omschrijving
 	Set Optie.MogelijkeWaarden = ..MogelijkeWaardenConverteer(CarbonNeutral.MogelijkeWaarden)
 	Quit Optie
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r33484 -r33539
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33539)
@@ -29,7 +29,7 @@
 	set ZendingDetail = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail.Code = "1"
 	Set ZendingDetail.TransportFirma = "UPS"
-	Set ZendingDetail.CarbonNeutral = ##class(WS.EC.ExterneVerkoop.dto.Optie).%New()
+	Set ZendingDetail.Optie = ##class(WS.EC.ExterneVerkoop.dto.Optie).%New()
 	Do ZendingDetails.Insert(ZendingDetail)
 	
 	Set HaalZendingDetailsMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New()
Index: WSdata/EC/ExterneVerkoop/Selectie.cls.xml
===================================================================
diff -u -r33415 -r33539
--- WSdata/EC/ExterneVerkoop/Selectie.cls.xml	(.../Selectie.cls.xml)	(revision 33415)
+++ WSdata/EC/ExterneVerkoop/Selectie.cls.xml	(.../Selectie.cls.xml)	(revision 33539)
@@ -4,7 +4,7 @@
 <Super>%Library.SerialObject</Super>
 
 <Property name="ID">
-<Type>TECH.Integer</Type>
+<Type>TECH.String</Type>
 </Property>
 
 <Property name="Omschrijving">
@@ -16,7 +16,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ID:TECH.Integer="",Omschrijving:TECH.String="",Prijs:TECH.Decimal=""</FormalSpec>
+<FormalSpec>ID:TECH.String="",Omschrijving:TECH.String="",Prijs:TECH.Decimal=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt
===================================================================
diff -u -r33516 -r33539
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt	(.../WS.EC.ExterneVerkoopService.txt)	(revision 33516)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt	(.../WS.EC.ExterneVerkoopService.txt)	(revision 33539)
@@ -1217,7 +1217,7 @@
                             <s:element minOccurs="0" name="LeverTijd" type="s:time"/>
                             <s:element minOccurs="0" name="LeverDag" type="s0:String"/>
                             <s:element minOccurs="0" name="KostPrijs" type="s0:Decimal"/>
-                            <s:element minOccurs="0" name="CarbonNeutral" type="s0:Optie"/>
+                            <s:element minOccurs="0" name="Optie" type="s0:Optie"/>
                         </s:sequence>
                     </s:extension>
                 </s:complexContent>
@@ -1237,7 +1237,6 @@
                 <s:complexContent>
                     <s:extension base="s0:DataTransferObject">
                         <s:sequence>
-                            <s:element minOccurs="0" name="ID" type="s0:Integer"/>
                             <s:element minOccurs="0" name="Omschrijving" type="s0:String"/>
                             <s:element minOccurs="0" name="MogelijkeWaarden" type="s0:ArrayOfWS.EC.ExterneVerkoop.dto.SelectieWS.EC.ExterneVerkoop.dto.Selectie"/>
                         </s:sequence>
@@ -1253,7 +1252,7 @@
                 <s:complexContent>
                     <s:extension base="s0:DataTransferObject">
                         <s:sequence>
-                            <s:element minOccurs="0" name="ID" type="s0:Integer"/>
+                            <s:element minOccurs="0" name="ID" type="s0:String"/>
                             <s:element minOccurs="0" name="Omschrijving" type="s0:String"/>
                             <s:element minOccurs="0" name="Prijs" type="s0:Decimal"/>
                         </s:sequence>
Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33518 -r33539
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33518)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33539)
@@ -149,12 +149,12 @@
 	Set CarbonNeutral.ID = 1
 	Set CarbonNeutral.Omschrijving = "Wenst u de CO2-uitstoot van uw levering te compenseren ?"
 	#dim SelectieOptie1 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
-	Set SelectieOptie1.ID = 0
+	Set SelectieOptie1.ID = "0"
 	Set SelectieOptie1.Omschrijving = "ja, ik betaal hiervoor " _$FNUMBER(CarbonNeutralPrijs,"",2) _" EUR"
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie1)
 	
 	#dim SelectieOptie2 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
-	Set SelectieOptie2.ID = 1
+	Set SelectieOptie2.ID = "1"
 	Set SelectieOptie2.Omschrijving = "nee"
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie2)
 	Quit CarbonNeutral