Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r33411 -r33415
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33411)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33415)
@@ -22,6 +22,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()
 	Do ZendingDetails.Insert(ZendingDetail)
 	
 	Set HaalZendingDetailsMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New()
Index: WSdata/EC/ExterneVerkoop/Optie.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/Optie.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/Optie.cls.xml	(revision 33415)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+
+<Property name="MogelijkeWaarden">
+<Type>WSdata.EC.ExterneVerkoop.Selectie</Type>
+<Collection>list</Collection>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>OptieState</State>
+<StreamLocation>^WSdata.EC.ExterneVer282E.OptieS</StreamLocation>
+<Data name="OptieState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>ID</Value>
+</Value>
+<Value name="2">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="3">
+<Value>MogelijkeWaarden</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSdata/EC/ExterneVerkoop/VerzendingMogelijkheid.cls.xml
===================================================================
diff -u -r33411 -r33415
--- WSdata/EC/ExterneVerkoop/VerzendingMogelijkheid.cls.xml	(.../VerzendingMogelijkheid.cls.xml)	(revision 33411)
+++ WSdata/EC/ExterneVerkoop/VerzendingMogelijkheid.cls.xml	(.../VerzendingMogelijkheid.cls.xml)	(revision 33415)
@@ -20,7 +20,7 @@
 </Property>
 
 <Property name="Verzending">
-<Type>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</Type>
+<Type>WSdata.EC.ExterneVerkoop.VerzendingItem</Type>
 </Property>
 
 <Index name="OfferteIDIndex">
Index: WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml	(revision 33415)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSdata.EC.ExterneVerkoop.VerzendingItem">
+<Super>%Library.SerialObject</Super>
+
+<Property name="TransportFirma">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Code">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Duurtijd">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LeverDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="LeverTijd">
+<Type>%Time</Type>
+</Property>
+
+<Property name="LeverDag">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="KostPrijs">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="CarbonNeutral">
+<Type>WSdata.EC.ExterneVerkoop.Optie</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>VerzendingItemState</State>
+<StreamLocation>^WSdata.EC.E282E.VerzendingItemS</StreamLocation>
+<Data name="VerzendingItemState">
+<Value name="1">
+<Value>TransportFirma</Value>
+</Value>
+<Value name="2">
+<Value>Code</Value>
+</Value>
+<Value name="3">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="4">
+<Value>Duurtijd</Value>
+</Value>
+<Value name="5">
+<Value>LeverDatum</Value>
+</Value>
+<Value name="6">
+<Value>LeverTijd</Value>
+</Value>
+<Value name="7">
+<Value>LeverDag</Value>
+</Value>
+<Value name="8">
+<Value>KostPrijs</Value>
+</Value>
+<Value name="9">
+<Value>CarbonNeutral</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33411 -r33415
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33411)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33415)
@@ -64,7 +64,6 @@
 	 
 	while VerzendingMogelijkhedenIterator.HasNext() {
 		#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingConverteer(OfferteID, VerzendingMogelijkhedenIterator.Next())
-		Do ##class(Tools.Wlip).%New(26).String(VerzendingMogelijkheid)
 		Do ..VerzendingMogelijkheidRepository.Bewaar(VerzendingMogelijkheid)
 	}
 ]]></Implementation>
@@ -79,10 +78,61 @@
 	Set VerzendingMogelijkheid.ID = Verzending.Code
 	Set VerzendingMogelijkheid.OfferteID = OfferteID
 	Set VerzendingMogelijkheid.TransporteurID = Verzending.TransportFirma
-	Set VerzendingMogelijkheid.Verzending = Verzending 
+	Set VerzendingMogelijkheid.Verzending = ..VerzendingMogelijkheidConverteer(Verzending)
 	Quit VerzendingMogelijkheid
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendingMogelijkheidConverteer">
+<FormalSpec>Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</FormalSpec>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingItem</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendingItem As WSdata.EC.ExterneVerkoop.VerzendingItem = ##class(WSdata.EC.ExterneVerkoop.VerzendingItem).%New()
+	Set VerzendingItem.Code = Verzending.Code
+	Set VerzendingItem.Duurtijd = Verzending.Duurtijd
+	Set VerzendingItem.KostPrijs = Verzending.KostPrijs
+	Set VerzendingItem.LeverDag = Verzending.LeverDag
+	Set VerzendingItem.LeverDatum = Verzending.LeverDatum 
+	Set VerzendingItem.LeverTijd = Verzending.LeverTijd
+	Set VerzendingItem.Omschrijving = Verzending.Omschrijving
+	Set VerzendingItem.TransportFirma = Verzending.TransportFirma
+	Set VerzendingItem.CarbonNeutral = ..CarbonNeutralConverteerder(Verzending.CarbonNeutral)
+	Quit VerzendingItem
+]]></Implementation>
+</Method>
+
+<Method name="CarbonNeutralConverteerder">
+<FormalSpec>CarbonNeutral:WS.EC.ExterneVerkoop.dto.Optie</FormalSpec>
+<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 = ..MogelijkeWaardenConverteerder(CarbonNeutral.MogelijkeWaarden)
+	Quit Optie
+]]></Implementation>
+</Method>
+
+<Method name="MogelijkeWaardenConverteerder">
+<FormalSpec>MogelijkeWaarden:%ListOfObjects(ELEMENTTYPE="WS.EC.ExterneVerkoop.dto.Selectie")</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="WSdata.EC.ExterneVerkoop.Selectie"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim Selecties As %ListOfObjects = ##class(%ListOfObjects).%New() 
+	
+	#dim MogelijkeWaardenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(MogelijkeWaarden)
+	While MogelijkeWaardenIterator.HasNext()	
+	{
+		#dim MogelijkeWaarde As WS.EC.ExterneVerkoop.dto.Selectie = MogelijkeWaardenIterator.Next()
+		#dim Selectie As WSdata.EC.ExterneVerkoop.Selectie = ##class(WSdata.EC.ExterneVerkoop.Selectie).%New()
+		set Selectie.ID = MogelijkeWaarde.ID
+		set Selectie.Omschrijving = MogelijkeWaarde.Omschrijving
+		Do Selecties.Insert(Selectie)
+	}
+	
+	Quit Selecties
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSdata/EC/ExterneVerkoop/Selectie.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/Selectie.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/Selectie.cls.xml	(revision 33415)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSdata.EC.ExterneVerkoop.Selectie">
+<Super>%Library.SerialObject</Super>
+
+<Property name="ID">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Prijs">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ID:TECH.Integer="",Omschrijving:TECH.String="",Prijs:TECH.Decimal=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ID = ID
+	Set ..Omschrijving = Omschrijving
+	Set ..Prijs = Prijs
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>SelectieState</State>
+<StreamLocation>^WSdata.EC.Externe282E.SelectieS</StreamLocation>
+<Data name="SelectieState">
+<Value name="1">
+<Value>ID</Value>
+</Value>
+<Value name="2">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="3">
+<Value>Prijs</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>