Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33370 -r33381
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33370)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33381)
@@ -91,6 +91,8 @@
 	Set ZendingDetail1.Code = 1
 	Set ZendingDetail1.CarbonNeutral = ..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 = "Maandag"
 	Set ZendingDetail1.KostPrijs = 44.00
 	Set ZendingDetail1.Omschrijving = "UPS Express"
 	Do ZendingDetails.Items.Insert(ZendingDetail1)
@@ -99,6 +101,8 @@
 	Set ZendingDetail2.Code = 2
 	Set ZendingDetail2.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0.5)
 	Set ZendingDetail2.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
+	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
+	Set ZendingDetail1.LeverDag = "Maandag"
 	Set ZendingDetail2.KostPrijs = 40.00
 	Set ZendingDetail2.Omschrijving = "UPS Express Saver"
 	Do ZendingDetails.Items.Insert(ZendingDetail2)
@@ -107,6 +111,8 @@
 	Set ZendingDetail3.Code = 3
 	Set ZendingDetail3.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0.2)
 	Set ZendingDetail3.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),2, ##class(TECH.enu.DatePart).Dag())
+	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
+	Set ZendingDetail1.LeverDag = "Dinsdag"
 	Set ZendingDetail3.KostPrijs = 36.50
 	Set ZendingDetail3.Omschrijving = "UPS Standaard" 
 	Do ZendingDetails.Items.Insert(ZendingDetail3)
@@ -115,6 +121,8 @@
 	Set ZendingDetail4.Code = 4
 	Set ZendingDetail4.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0)
 	Set ZendingDetail4.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),6, ##class(TECH.enu.DatePart).Dag())
+	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
+	Set ZendingDetail1.LeverDag = "Vrijdag"
 	Set ZendingDetail4.KostPrijs = 50.00
 	Set ZendingDetail4.Omschrijving = "DHL Freight"
 	Do ZendingDetails.Items.Insert(ZendingDetail4)