Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt
===================================================================
diff -u -r37021 -r37022
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt	(.../WS.EC.ExterneVerkoopService.txt)	(revision 37021)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt	(.../WS.EC.ExterneVerkoopService.txt)	(revision 37022)
@@ -1271,10 +1271,20 @@
             <s:element name="GeefVerzendingMogelijkhedenResponse">
                 <s:complexType>
                     <s:sequence>
-                        <s:element name="GeefVerzendingMogelijkhedenResult" type="s0:ArrayOfVerzendingMogelijkheidVerzendingMogelijkheid"/>
+                        <s:element name="GeefVerzendingMogelijkhedenResult" type="s0:VerzendingMogelijkheden"/>
                     </s:sequence>
                 </s:complexType>
             </s:element>
+            <s:complexType name="VerzendingMogelijkheden">
+                <s:complexContent>
+                    <s:extension base="s0:DataTransferObject">
+                        <s:sequence>
+                            <s:element minOccurs="0" name="Titel" type="s:string"/>
+                            <s:element minOccurs="0" name="VerzendingMogelijkheidList" type="s0:ArrayOfVerzendingMogelijkheidVerzendingMogelijkheid"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
             <s:complexType name="ArrayOfVerzendingMogelijkheidVerzendingMogelijkheid">
                 <s:sequence>
                     <s:element maxOccurs="unbounded" minOccurs="0" name="VerzendingMogelijkheid" nillable="true" type="s0:VerzendingMogelijkheid"/>
Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r37021 -r37022
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37021)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37022)
@@ -64,10 +64,9 @@
 			While OfferteDataIterator.HasNext()	{
 				Set OfferteDataItem = OfferteDataIterator.Next()
 				Set ZendingDetail = ..GeefZendingDetail(TransportFirma, OfferteDataItem)
-				Do ZendingDetails.Insert(ZendingDetail)
+				Do ZendingDetails.VerzendingMogelijkheidList.Insert(ZendingDetail)
 				Do ..VerzendingMogelijkheidRepository.Bewaar(..ConverteerZendingDetail(BerekenInput.Referentie, ZendingDetail))
 			} 
-
 		} catch {
 			Do Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
 		}
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r37021 -r37022
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37021)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37022)
@@ -14,8 +14,8 @@
 	Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 	
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy)
-	set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefVerwijderViaOfferteIDAangeroepen(),1)
 ]]></Implementation>
@@ -32,8 +32,8 @@
 	Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 	
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy)
-	set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefMaakAangeroepen(),1)
 	Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefBewaarAangeroepen(),1)
@@ -51,17 +51,17 @@
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.Count(),1) {
-		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 &euro; 0.80. ")
-		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)
+	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.Count(),1) {
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Optie.Omschrijving ,"Wenst u de CO2-uitstoot van uw levering te compenseren ? ")
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Optie.MogelijkeWaarden.Count() ,2)
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Omschrijving ,"Ja, ik betaal hiervoor &euro; 0.80. ")
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).ID ,0)
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).ID ,1)
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Prijs ,0.80)
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).Prijs ,0)
 	}
 ]]></Implementation>
 </Method>
@@ -77,16 +77,16 @@
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.Count(),1) {
-		Do $$$AssertFalse($IsObject(ZendingDetails.GetAt(1).Optie))
+	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.Count(),1) {
+		Do $$$AssertFalse($IsObject(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Optie))
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Kostprijs wordt voorzien door transportfirma">
+<Method name="Test : Verkoopprijs wordt voorzien door transportfirma">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
 	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("UPS")
@@ -97,11 +97,11 @@
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.Count(),1) {
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).VerkoopPrijs,44.5)
+	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.Count(),1) {
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).VerkoopPrijs,44.5)
 	}
 ]]></Implementation>
 </Method>
@@ -120,13 +120,13 @@
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub,VerzendingMogelijkheidRepositoryDummy)
-	set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
 	#dim LeverDatumDummy As %Date = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10,##class(TECH.enu.DatePart).Dag())
-	If $$$AssertEquals(ZendingDetails.Count(),1) {
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).LeverDatum  ,LeverDatumDummy)
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).LeverDag  ,"ma")
+	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.Count(),1) {
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).LeverDatum  ,LeverDatumDummy)
+		Do $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).LeverDag  ,"ma")
 	}
 ]]></Implementation>
 </Method>
@@ -147,12 +147,12 @@
 	Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
 
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
-	set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.Count(),2) {
-		Do $$$AssertContains(ZendingDetails.GetAt(1).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.GetAt(2).Omschrijving,"DHL")	
+	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.Count(),2) {
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Omschrijving,"UPS")
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(2).Omschrijving,"DHL")	
 	}
 ]]></Implementation>
 </Method>
@@ -167,13 +167,12 @@
 
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+ 	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.Count(),3) {
-		Do $$$AssertContains(ZendingDetails.GetAt(1).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.GetAt(2).Omschrijving,"UPS")	
-		Do $$$AssertContains(ZendingDetails.GetAt(3).Omschrijving,"DHL")	
+	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.Count(),3) {
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Omschrijving,"UPS")
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(2).Omschrijving,"UPS")	
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(3).Omschrijving,"DHL")	
 	}
 ]]></Implementation>
 </Method>
@@ -189,12 +188,12 @@
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.Count(),3) {
-		Do $$$AssertContains(ZendingDetails.GetAt(1).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.GetAt(2).Omschrijving,"DHL")	
-		Do $$$AssertContains(ZendingDetails.GetAt(3).Omschrijving,"DHL")	
+	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.Count(),3) {
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Omschrijving,"UPS")
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(2).Omschrijving,"DHL")	
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(3).Omschrijving,"DHL")	
 	}
 ]]></Implementation>
 </Method>
@@ -210,14 +209,14 @@
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
-	If $$$AssertEquals(ZendingDetails.Count(),5) {
-		Do $$$AssertContains(ZendingDetails.GetAt(1).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.GetAt(2).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.GetAt(3).Omschrijving,"UPS")
-		Do $$$AssertContains(ZendingDetails.GetAt(4).Omschrijving,"DHL")	
-		Do $$$AssertContains(ZendingDetails.GetAt(5).Omschrijving,"DHL")	
+	If $$$AssertEquals(ZendingDetails.VerzendingMogelijkheidList.Count(),5) {
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(1).Omschrijving,"UPS")
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(2).Omschrijving,"UPS")
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(3).Omschrijving,"UPS")
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(4).Omschrijving,"DHL")	
+		Do $$$AssertContains(ZendingDetails.VerzendingMogelijkheidList.GetAt(5).Omschrijving,"DHL")	
 	}
 ]]></Implementation>
 </Method>
@@ -235,7 +234,7 @@
 
 	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy)
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
-	#dim ZendingDetailsResult As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	Set ZendingDetailsResult = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 ]]></Implementation>
 </Method>
 </Class>
Index: WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml
===================================================================
diff -u -r33411 -r37022
--- WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml	(.../VerzendingMogelijkheden.cls.xml)	(revision 33411)
+++ WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml	(.../VerzendingMogelijkheden.cls.xml)	(revision 37022)
@@ -1,15 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden">
-<Super>%ListOfObjects</Super>
+<Super>TECH.DataTransferObject</Super>
 
-<Parameter name="ELEMENTTYPE">
-<Default>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</Default>
-</Parameter>
+<Property name="Titel">
+<Type>%String</Type>
+</Property>
 
-<Storage name="Custom">
-<Type>%Library.CompleteCustomStorage</Type>
-</Storage>
+<Property name="VerzendingMogelijkheidList">
+<Type>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid</Type>
+<Collection>list</Collection>
+</Property>
 </Class>
 
 
Index: vhTest/WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r36775 -r37022
--- vhTest/WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 36775)
+++ vhTest/WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 37022)
@@ -142,63 +142,63 @@
 <ReturnType>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</ReturnType>
 <Implementation><![CDATA[
 	
-	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
-
-	#dim ZendingDetail0 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
+	Set ZendingDetails = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
+	Set ZendingDetails.Titel = "Dummy data"
+	
+	Set ZendingDetail0 = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail0.Code = 1
 	Set ZendingDetail0.Optie = ..ConverteerNaarCarbonNeutralOptie(0.75)
 	Set ZendingDetail0.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
 	Set ZendingDetail0.LeverTijd = ##class(TECH.DateTime).CurrentTime()
 	Set ZendingDetail0.LeverDag = ..Vertaler.GeefVertaling("Maandag_Kort")
-	Set ZendingDetail0.KostPrijs = 48.00
+	Set ZendingDetail0.VerkoopPrijs = 48.00
 	Set ZendingDetail0.Omschrijving = "UPS (Worldwide) Express Plus"
 	Set ZendingDetail0.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
-	Do ZendingDetails.Insert(ZendingDetail0)
-
+	Do ZendingDetails.VerzendingMogelijkheidList.Insert(ZendingDetail0)
 	
-	#dim ZendingDetail1 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
+	Set ZendingDetail1 = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail1.Code = 2
 	Set ZendingDetail1.Optie = ..ConverteerNaarCarbonNeutralOptie(0.9)
 	Set ZendingDetail1.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 ZendingDetail1.KostPrijs = 44.00
+	Set ZendingDetail1.VerkoopPrijs = 44.00
 	Set ZendingDetail1.Omschrijving = "UPS (Worldwide) Express"
 	Set ZendingDetail1.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail1.Omschrijving)
-	Do ZendingDetails.Insert(ZendingDetail1)
+	Do ZendingDetails.VerzendingMogelijkheidList.Insert(ZendingDetail1)
 
-	#dim ZendingDetail2 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
+	Set ZendingDetail2 = ##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 ZendingDetail2.LeverTijd = ##class(TECH.DateTime).CurrentTime()
 	Set ZendingDetail2.LeverDag = ..Vertaler.GeefVertaling("Maandag_Kort")
-	Set ZendingDetail2.KostPrijs = 40.00
+	Set ZendingDetail2.VerkoopPrijs = 40.00
 	Set ZendingDetail2.Omschrijving = "UPS Express Saver"
 	Set ZendingDetail2.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail2.Omschrijving)
-	Do ZendingDetails.Insert(ZendingDetail2)
+	Do ZendingDetails.VerzendingMogelijkheidList.Insert(ZendingDetail2)
 
-	#dim ZendingDetail3 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
+	Set ZendingDetail3 = ##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 ZendingDetail3.LeverTijd = ##class(TECH.DateTime).CurrentTime()
 	Set ZendingDetail3.LeverDag = ..Vertaler.GeefVertaling("Dinsdag_Kort")
-	Set ZendingDetail3.KostPrijs = 36.50
+	Set ZendingDetail3.VerkoopPrijs = 36.50
 	Set ZendingDetail3.Omschrijving = "UPS Standard" 
 	Set ZendingDetail3.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail3.Omschrijving)
-	Do ZendingDetails.Insert(ZendingDetail3)
+	Do ZendingDetails.VerzendingMogelijkheidList.Insert(ZendingDetail3)
 
-	#dim ZendingDetail4 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
+	Set ZendingDetail4 = ##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 ZendingDetail4.LeverTijd = ##class(TECH.DateTime).CurrentTime()
 	Set ZendingDetail4.LeverDag = ..Vertaler.GeefVertaling("Vrijdag_Kort")
-	Set ZendingDetail4.KostPrijs = 50.00
+	Set ZendingDetail4.VerkoopPrijs = 50.00
 	Set ZendingDetail4.Omschrijving = "DHL Freight"
 	Set ZendingDetail4.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail4.Omschrijving)
-	Do ZendingDetails.Insert(ZendingDetail4)
+	Do ZendingDetails.VerzendingMogelijkheidList.Insert(ZendingDetail4)
 	
 	Quit ZendingDetails
 ]]></Implementation>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml
===================================================================
diff -u -r36432 -r37022
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 36432)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 37022)
@@ -87,11 +87,11 @@
 <FormalSpec>ZendingMogelijkheden:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do $$$AssertEquals(ZendingMogelijkheden.Count(),5)
-	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Omschrijving,"UPS (Worldwide) Express Plus")
-	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).ExtraInfo,"UPS will deliver your order in the early morning.")
-	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Optie.Omschrijving,"Would you like to compensate for the delivery-related CO2 emissions? ")
-	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Optie.ExtraInfo,"Compensate your CO2 emission by choosing carbon neutral. That way, you support reforestation projects, destruction of harmful waste and methane gases and waste water treatment.")
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.Count(),5)
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.GetAt(1).Omschrijving,"UPS (Worldwide) Express Plus")
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.GetAt(1).ExtraInfo,"UPS will deliver your order in the early morning.")
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.GetAt(1).Optie.Omschrijving,"Would you like to compensate for the delivery-related CO2 emissions? ")
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.GetAt(1).Optie.ExtraInfo,"Compensate your CO2 emission by choosing carbon neutral. That way, you support reforestation projects, destruction of harmful waste and methane gases and waste water treatment.")
 ]]></Implementation>
 </Method>
 
@@ -108,11 +108,11 @@
 <FormalSpec>ZendingMogelijkheden:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do $$$AssertEquals(ZendingMogelijkheden.Count(),5)
-	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Omschrijving,"UPS (Worldwide) Express Plus")
-	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).ExtraInfo,"UPS levert uw bestelling in de vroege ochtend.")
-	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Optie.Omschrijving,"Wenst u de CO2-uitstoot van uw levering te compenseren ? ")
-	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Optie.ExtraInfo,"Compenseer uw CO2-uitstoot door te kiezen voor carbon neutral. Zo ondersteunt u projecten rond herbebossing, vernietiging van schadelijke afval- en methaangassen en afvalwaterverwerking.")
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.Count(),5)
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.GetAt(1).Omschrijving,"UPS (Worldwide) Express Plus")
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.GetAt(1).ExtraInfo,"UPS levert uw bestelling in de vroege ochtend.")
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.GetAt(1).Optie.Omschrijving,"Wenst u de CO2-uitstoot van uw levering te compenseren ? ")
+	Do $$$AssertEquals(ZendingMogelijkheden.VerzendingMogelijkheidList.GetAt(1).Optie.ExtraInfo,"Compenseer uw CO2-uitstoot door te kiezen voor carbon neutral. Zo ondersteunt u projecten rond herbebossing, vernietiging van schadelijke afval- en methaangassen en afvalwaterverwerking.")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r37015 -r37022
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 37015)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 37022)
@@ -32,7 +32,7 @@
 	Set ZendingDetail.Code = "1"
 	Set ZendingDetail.TransportFirma = "UPS"
 	Set ZendingDetail.Optie = ##class(WS.EC.ExterneVerkoop.dto.Optie).%New()
-	Do ZendingDetails.Insert(ZendingDetail)
+	Do ZendingDetails.VerzendingMogelijkheidList.Insert(ZendingDetail)
 	
 	Set HaalZendingDetailsMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New()
 	Do HaalZendingDetailsMock.VerwachtMethodCall("GeefZendingDetails",DummyBerekenInput,"E").DanReturn(ZendingDetails)
@@ -44,7 +44,7 @@
 	Do NaarBerekenInputConverterMock.Verifieer()
 	Do HaalZendingDetailsMock.Verifieer()
 	
-	Do $$$AssertEqualsList(ZendingDetails, Resultaat)
+	Do $$$AssertEqualsList(ZendingDetails.VerzendingMogelijkheidList, Resultaat.VerzendingMogelijkheidList)
 ]]></Implementation>
 </Method>