Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33987 -r34509
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33987)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 34509)
@@ -136,7 +136,7 @@
 	Set VerzendingItem.KostPrijs = Verzending.KostPrijs
 	Set VerzendingItem.LeverDag = Verzending.LeverDag
 	Set VerzendingItem.LeverDatum = Verzending.LeverDatum 
-	Set VerzendingItem.LeverTijd = Verzending.LeverTijd
+	Set VerzendingItem.LeverTijd = $ZTIMEH(Verzending.LeverTijd ,2) 
 	Set VerzendingItem.Omschrijving = Verzending.Omschrijving
 	Set VerzendingItem.TransportFirma = Verzending.TransportFirma
 	Set VerzendingItem.Optie = ..CarbonNeutralConverteerder(Verzending.Optie)
@@ -149,6 +149,8 @@
 <ReturnType>WSdata.EC.ExterneVerkoop.Optie</ReturnType>
 <Implementation><![CDATA[
 	#dim Optie As WSdata.EC.ExterneVerkoop.Optie = ##class(WSdata.EC.ExterneVerkoop.Optie).%New()
+	Quit:CarbonNeutral="" Optie
+
 	Set Optie.Omschrijving = CarbonNeutral.Omschrijving
 	Set Optie.MogelijkeWaarden = ..MogelijkeWaardenConverteer(CarbonNeutral.MogelijkeWaarden)
 	Quit Optie