Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r33395 -r33411
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33395)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33411)
@@ -19,7 +19,7 @@
 	Do NaarBerekenInputConverterMock.VerwachtMethodCall("Convert", DummyVerpakkingen, DummyLeverAdres,OfferteID).DanReturn(DummyBerekenInput)
 
 	set ZendingDetails = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
-	set ZendingDetail = ##class(WS.EC.ExterneVerkoop.Verzending).%New()
+	set ZendingDetail = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail.Code = "1"
 	Set ZendingDetail.TransportFirma = "UPS"
 	Do ZendingDetails.Insert(ZendingDetail)
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml
===================================================================
diff -u -r33398 -r33411
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33398)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33411)
@@ -11,7 +11,7 @@
 	Set VerzendingKeuze.KostPrijs = 50.2
 	Set VerzendingKeuze.LeverDatum = "" 
 	Set VerzendingKeuze.Omschrijving = "Test verzending"
-	Set VerzendingKeuze.OptieKeuze = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()  
+	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  
@@ -29,7 +29,7 @@
 	Set VerzendingKeuze.KostPrijs = 50.2
 	Set VerzendingKeuze.LeverDatum = "" 
 	Set VerzendingKeuze.Omschrijving = "Test verzending"
-	Set VerzendingKeuze.OptieKeuze = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()  
+	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  
@@ -50,7 +50,7 @@
 	Set VerzendingKeuze.KostPrijs = 50.2
 	Set VerzendingKeuze.LeverDatum = "" 
 	Set VerzendingKeuze.Omschrijving = "Test verzending"
-	Set VerzendingKeuze.OptieKeuze = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()  
+	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  
Index: WS/EC/ExterneVerkoop/dto/SelectieOptie.cls.xml
===================================================================
diff -u -r33251 -r33411
--- WS/EC/ExterneVerkoop/dto/SelectieOptie.cls.xml	(.../SelectieOptie.cls.xml)	(revision 33251)
+++ WS/EC/ExterneVerkoop/dto/SelectieOptie.cls.xml	(.../dto/Selectie.cls.xml)	(revision 33411)
@@ -1,8 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="WS.EC.ExterneVerkoop.SelectieOptie">
+<Class name="WS.EC.ExterneVerkoop.dto.Selectie">
 <Super>TECH.DataTransferObject</Super>
 
+<Parameter name="XMLTYPE">
+<Default>WS.EC.ExterneVerkoop.dto.Selectie</Default>
+</Parameter>
+
 <Property name="ID">
 <Type>TECH.Integer</Type>
 </Property>
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33394 -r33411
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33394)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33411)
@@ -71,7 +71,7 @@
 </Method>
 
 <Method name="VerzendingConverteer">
-<FormalSpec>OfferteID:%String,Verzending:WS.EC.ExterneVerkoop.Verzending</FormalSpec>
+<FormalSpec>OfferteID:%String,Verzending:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</FormalSpec>
 <Private>1</Private>
 <ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid</ReturnType>
 <Implementation><![CDATA[
FishEye: Tag 33411 refers to a dead (removed) revision in file `WS/EC/ExterneVerkoop/Verzending.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 33411 refers to a dead (removed) revision in file `WS/EC/ExterneVerkoop/Optie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33398 -r33411
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33398)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33411)
@@ -87,7 +87,7 @@
 	
 	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
 	
-	#dim ZendingDetail1 As WS.EC.ExterneVerkoop.Verzending = ##class(WS.EC.ExterneVerkoop.Verzending).%New()
+	#dim ZendingDetail1 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail1.Code = 1
 	Set ZendingDetail1.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0.9)
 	Set ZendingDetail1.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
@@ -97,7 +97,7 @@
 	Set ZendingDetail1.Omschrijving = "UPS Express"
 	Do ZendingDetails.Items.Insert(ZendingDetail1)
 
-	#dim ZendingDetail2 As WS.EC.ExterneVerkoop.Verzending = ##class(WS.EC.ExterneVerkoop.Verzending).%New()
+	#dim ZendingDetail2 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail2.Code = 2
 	Set ZendingDetail2.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0.5)
 	Set ZendingDetail2.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
@@ -107,7 +107,7 @@
 	Set ZendingDetail2.Omschrijving = "UPS Express Saver"
 	Do ZendingDetails.Items.Insert(ZendingDetail2)
 
-	#dim ZendingDetail3 As WS.EC.ExterneVerkoop.Verzending = ##class(WS.EC.ExterneVerkoop.Verzending).%New()
+	#dim ZendingDetail3 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail3.Code = 3
 	Set ZendingDetail3.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0.2)
 	Set ZendingDetail3.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),2, ##class(TECH.enu.DatePart).Dag())
@@ -117,7 +117,7 @@
 	Set ZendingDetail3.Omschrijving = "UPS Standaard" 
 	Do ZendingDetails.Items.Insert(ZendingDetail3)
 
-	#dim ZendingDetail4 As WS.EC.ExterneVerkoop.Verzending = ##class(WS.EC.ExterneVerkoop.Verzending).%New()
+	#dim ZendingDetail4 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail4.Code = 4
 	Set ZendingDetail4.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0)
 	Set ZendingDetail4.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),6, ##class(TECH.enu.DatePart).Dag())
@@ -141,19 +141,19 @@
 <Method name="ConverteerNaarCarbonNeutralOptie">
 <FormalSpec>CarbonNeutralPrijs:TECH.Decimal</FormalSpec>
 <Private>1</Private>
-<ReturnType>WS.EC.ExterneVerkoop.Optie</ReturnType>
+<ReturnType>WS.EC.ExterneVerkoop.dto.Optie</ReturnType>
 <Implementation><![CDATA[
 	Quit:((CarbonNeutralPrijs = 0) || (CarbonNeutralPrijs = "")) ""
 	
-	#dim CarbonNeutral As WS.EC.ExterneVerkoop.Optie = ##class(WS.EC.ExterneVerkoop.Optie).%New()
+	#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.SelectieOptie = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()
+	#dim SelectieOptie1 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
 	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.SelectieOptie = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()
+	#dim SelectieOptie2 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
 	Set SelectieOptie2.ID = 1
 	Set SelectieOptie2.Omschrijving = "nee"
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie2)
FishEye: Tag 33411 refers to a dead (removed) revision in file `WS/EC/ExterneVerkoop/SelectieOptie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WSdata/EC/ExterneVerkoop/VerzendingMogelijkheid.cls.xml
===================================================================
diff -u -r33384 -r33411
--- WSdata/EC/ExterneVerkoop/VerzendingMogelijkheid.cls.xml	(.../VerzendingMogelijkheid.cls.xml)	(revision 33384)
+++ WSdata/EC/ExterneVerkoop/VerzendingMogelijkheid.cls.xml	(.../VerzendingMogelijkheid.cls.xml)	(revision 33411)
@@ -20,7 +20,7 @@
 </Property>
 
 <Property name="Verzending">
-<Type>WS.EC.ExterneVerkoop.Verzending</Type>
+<Type>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</Type>
 </Property>
 
 <Index name="OfferteIDIndex">
Index: WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml
===================================================================
diff -u -r33404 -r33411
--- WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml	(.../VerzendingMogelijkheden.cls.xml)	(revision 33404)
+++ WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml	(.../VerzendingMogelijkheden.cls.xml)	(revision 33411)
@@ -4,7 +4,7 @@
 <Super>%ListOfObjects</Super>
 
 <Parameter name="ELEMENTTYPE">
-<Default>WS.EC.ExterneVerkoop.Verzending</Default>
+<Default>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</Default>
 </Parameter>
 
 <Storage name="Custom">
Index: WS/EC/ExterneVerkoop/dto/Verzending.cls.xml
===================================================================
diff -u -r33380 -r33411
--- WS/EC/ExterneVerkoop/dto/Verzending.cls.xml	(.../Verzending.cls.xml)	(revision 33380)
+++ WS/EC/ExterneVerkoop/dto/Verzending.cls.xml	(.../dto/VerzendingMogelijkheid.cls.xml)	(revision 33411)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="WS.EC.ExterneVerkoop.Verzending">
+<Class name="WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid">
 <Super>TECH.DataTransferObject</Super>
 
 <Property name="TransportFirma">
@@ -36,7 +36,7 @@
 </Property>
 
 <Property name="CarbonNeutral">
-<Type>WS.EC.ExterneVerkoop.Optie</Type>
+<Type>WS.EC.ExterneVerkoop.dto.Optie</Type>
 </Property>
 </Class>
 
Index: WS/EC/ExterneVerkoop/VerzendingKeuze.cls.xml
===================================================================
diff -u -r33250 -r33411
--- WS/EC/ExterneVerkoop/VerzendingKeuze.cls.xml	(.../VerzendingKeuze.cls.xml)	(revision 33250)
+++ WS/EC/ExterneVerkoop/VerzendingKeuze.cls.xml	(.../VerzendingKeuze.cls.xml)	(revision 33411)
@@ -20,7 +20,7 @@
 </Property>
 
 <Property name="OptieKeuze">
-<Type>WS.EC.ExterneVerkoop.SelectieOptie</Type>
+<Type>WS.EC.ExterneVerkoop.dto.Selectie</Type>
 </Property>
 </Class>
 
Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r33380 -r33411
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33380)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33411)
@@ -44,9 +44,9 @@
 <Method name="GeefZendingDetail">
 <FormalSpec>TransportFirma:%String,OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
 <Private>1</Private>
-<ReturnType>WS.EC.ExterneVerkoop.Verzending</ReturnType>
+<ReturnType>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</ReturnType>
 <Implementation><![CDATA[
-	#dim ZendingDetail As WS.EC.ExterneVerkoop.Verzending = ##class(WS.EC.ExterneVerkoop.Verzending).%New()
+	#dim ZendingDetail As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail.Code = OfferteItem.Code
 	Set ZendingDetail.LeverDatum = OfferteItem.LeverDatum
 	Set ZendingDetail.LeverTijd = OfferteItem.LeverTijd
@@ -62,20 +62,20 @@
 <Method name="ConverteerNaarCarbonNeutralOptie">
 <FormalSpec>CarbonNeutralPrijs:TECH.Decimal</FormalSpec>
 <Private>1</Private>
-<ReturnType>WS.EC.ExterneVerkoop.Optie</ReturnType>
+<ReturnType>WS.EC.ExterneVerkoop.dto.Optie</ReturnType>
 <Implementation><![CDATA[
 	Quit:((CarbonNeutralPrijs = 0) || (CarbonNeutralPrijs = "")) ""
 	
-	#dim CarbonNeutral As WS.EC.ExterneVerkoop.Optie = ##class(WS.EC.ExterneVerkoop.Optie).%New()
+	#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.SelectieOptie = ##class(WS.EC.ExterneVerkoop.SelectieOptie).%New()
+	#dim SelectieOptie1 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%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()
+	#dim SelectieOptie2 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
 	Set SelectieOptie2.ID = 1
 	Set SelectieOptie2.Prijs = 0
 	Set SelectieOptie2.Omschrijving = "nee"
Index: WS/EC/ExterneVerkoop/dto/Optie.cls.xml
===================================================================
diff -u -r33248 -r33411
--- WS/EC/ExterneVerkoop/dto/Optie.cls.xml	(.../Optie.cls.xml)	(revision 33248)
+++ WS/EC/ExterneVerkoop/dto/Optie.cls.xml	(.../dto/Optie.cls.xml)	(revision 33411)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="WS.EC.ExterneVerkoop.Optie">
+<Class name="WS.EC.ExterneVerkoop.dto.Optie">
 <Super>TECH.DataTransferObject</Super>
 
 <Property name="ID">
@@ -12,7 +12,7 @@
 </Property>
 
 <Property name="MogelijkeWaarden">
-<Type>WS.EC.ExterneVerkoop.SelectieOptie</Type>
+<Type>WS.EC.ExterneVerkoop.dto.Selectie</Type>
 <Collection>list</Collection>
 </Property>
 </Class>