Index: vhTest/Utils/APPS/TRANSP/OfferteService/dto/OfferteData.cls.xml
===================================================================
diff -u -r33621 -r33622
--- vhTest/Utils/APPS/TRANSP/OfferteService/dto/OfferteData.cls.xml	(.../OfferteData.cls.xml)	(revision 33621)
+++ vhTest/Utils/APPS/TRANSP/OfferteService/dto/OfferteData.cls.xml	(.../OfferteData.cls.xml)	(revision 33622)
@@ -73,41 +73,13 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
 <Implementation><![CDATA[
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
+	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ..GeefTransportOfferte()
 	
-	#dim OfferteItem1 As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
-	Set OfferteItem1.Code = 2
-	Set OfferteItem1.Omschrijving = "UPS Express"
-	Set OfferteItem1.Gegarandeerd = "1"
-	Set OfferteItem1.Duurtijd = 1
-	Set OfferteItem1.Kostprijs = 0
-	Set OfferteItem1.CarbonNeutralPrijs = 0
-	Set OfferteItem1.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
-
-	Do OfferteData.Items.Insert(OfferteItem1)
-
-	#dim OfferteItem2 As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
-	Set OfferteItem2.Code = 2
-	Set OfferteItem2.Omschrijving = "UPS Express"
-	Set OfferteItem2.Gegarandeerd = "1"
-	Set OfferteItem2.Duurtijd = 10
-	Set OfferteItem2.Kostprijs = 0
-	Set OfferteItem2.CarbonNeutralPrijs = 0
-	Set OfferteItem2.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
-
-	Do OfferteData.Items.Insert(OfferteItem2)
-
-	#dim OfferteItem3 As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
-	Set OfferteItem3.Code = 4
-	Set OfferteItem3.Omschrijving = "UPS Standard"
-	Set OfferteItem3.Gegarandeerd = "1"
-	Set OfferteItem3.Duurtijd = 8
-	Set OfferteItem3.Kostprijs = 0
-	Set OfferteItem3.CarbonNeutralPrijs = 0
-	Set OfferteItem3.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016")
-
-	Do OfferteData.Items.Insert(OfferteItem3)
-
+	for i=1:1:OfferteData.Items.Count()
+	{
+		Set OfferteData.Items.GetAt(i).CarbonNeutralPrijs = 0
+		Set OfferteData.Items.GetAt(i).Kostprijs = 0
+	}
 	Quit OfferteData
 ]]></Implementation>
 </Method>