Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33211 -r33218
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33211)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33218)
@@ -1,45 +1,44 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WS.EC.Unishop.InternationaleZending.DummyService">
-<Super>vhLib.WebService</Super>
+<Super>TECH.RegisteredObject</Super>
 
-<Parameter name="SERVICENAME">
-<Default>WS.EC.Unishop.InternationaleZending.DummyService</Default>
-</Parameter>
-
 <Method name="GeefMogelijkeZendingen">
 <FormalSpec>OfferteId:%String</FormalSpec>
 <ReturnType>WS.EC.Unishop.InternationaleZending.dto.Details</ReturnType>
-<WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim ZendingDetails As WS.EC.Unishop.InternationaleZending.dto.Details = ##class(WS.EC.Unishop.InternationaleZending.dto.Details).%New()
 	
 	#dim ZendingDetail1 As WS.EC.Unishop.InternationaleZending.dto.Detail = ##class(WS.EC.Unishop.InternationaleZending.dto.Detail).%New()
 	Set ZendingDetail1.Code = 1
 	Set ZendingDetail1.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0.9)
-	#dim LeverDatum1 As %Date = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
-	Set ZendingDetail1.Omschrijving = ##class(TECH.DateTime).GeefDatumInPuntNotatie(LeverDatum1) _" UPS Express ? 44.00"
+	Set ZendingDetail1.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
+	Set ZendingDetail1.KostPrijs = 44.00
+	Set ZendingDetail1.Omschrijving = "UPS Express"
 	Do ZendingDetails.Items.Insert(ZendingDetail1)
 
 	#dim ZendingDetail2 As WS.EC.Unishop.InternationaleZending.dto.Detail = ##class(WS.EC.Unishop.InternationaleZending.dto.Detail).%New()
 	Set ZendingDetail2.Code = 2
 	Set ZendingDetail2.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0.5)
-	#dim LeverDatum2 As %Date = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
-	Set ZendingDetail2.Omschrijving = ##class(TECH.DateTime).GeefDatumInPuntNotatie(LeverDatum2) _" UPS Express Saver ? 40.00"
+	Set ZendingDetail2.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
+	Set ZendingDetail2.KostPrijs = 40.00
+	Set ZendingDetail2.Omschrijving = "UPS Express Saver"
 	Do ZendingDetails.Items.Insert(ZendingDetail2)
 
 	#dim ZendingDetail3 As WS.EC.Unishop.InternationaleZending.dto.Detail = ##class(WS.EC.Unishop.InternationaleZending.dto.Detail).%New()
 	Set ZendingDetail3.Code = 3
 	Set ZendingDetail3.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0.2)
-	#dim LeverDatum3 As %Date = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),2, ##class(TECH.enu.DatePart).Dag())
-	Set ZendingDetail3.Omschrijving = ##class(TECH.DateTime).GeefDatumInPuntNotatie(LeverDatum3) _" UPS Standaard ? 36.00"
+	Set ZendingDetail3.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),2, ##class(TECH.enu.DatePart).Dag())
+	Set ZendingDetail3.KostPrijs = 36.50
+	Set ZendingDetail3.Omschrijving = "UPS Standaard" 
 	Do ZendingDetails.Items.Insert(ZendingDetail3)
 
 	#dim ZendingDetail4 As WS.EC.Unishop.InternationaleZending.dto.Detail = ##class(WS.EC.Unishop.InternationaleZending.dto.Detail).%New()
 	Set ZendingDetail4.Code = 4
 	Set ZendingDetail4.CarbonNeutral = ..ConverteerNaarCarbonNeutralOptie(0)
-	#dim LeverDatum4 As %Date = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),6, ##class(TECH.enu.DatePart).Dag())
-	Set ZendingDetail4.Omschrijving = ##class(TECH.DateTime).GeefDatumInPuntNotatie(LeverDatum4) _" DHL Freight ? 50.00"
+	Set ZendingDetail4.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),6, ##class(TECH.enu.DatePart).Dag())
+	Set ZendingDetail4.KostPrijs = 50.00
+	Set ZendingDetail4.Omschrijving = "DHL Freight"
 	Do ZendingDetails.Items.Insert(ZendingDetail4)
 	
 	Quit ZendingDetails
Index: WS/EC/ExterneVerkoopService.cls.xml
===================================================================
diff -u -r29059 -r33218
--- WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 29059)
+++ WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33218)
@@ -123,6 +123,14 @@
 	Quit ##class(APPS.EC.impl.ExterneVerkoopService).%New().DupliceerOfferte(OfferteID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMogelijkeZendingen">
+<FormalSpec>OfferteId:%String</FormalSpec>
+<ReturnType>WS.EC.Unishop.InternationaleZending.dto.Details</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New().GeefMogelijkeZendingen(OfferteId)
+]]></Implementation>
+</Method>
 </Class>