Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml
===================================================================
diff -u -r36454 -r36495
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml	(.../TandemboxBestellerSpy.cls.xml)	(revision 36454)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml	(.../TandemboxBestellerSpy.cls.xml)	(revision 36495)
@@ -4,7 +4,7 @@
 <Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller</Super>
 
 <Property name="UitvoerTijdstip">
-<Type>%TimeStamp</Type>
+<Type>TECH.Horolog</Type>
 <Private>1</Private>
 </Property>
 
@@ -18,7 +18,7 @@
 </Method>
 
 <Method name="GeefUitvoerTijdstip">
-<ReturnType>%TimeStamp</ReturnType>
+<ReturnType>TECH.Horolog</ReturnType>
 <Implementation><![CDATA[	Quit ..UitvoerTijdstip
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r36453 -r36495
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36453)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36495)
@@ -162,6 +162,11 @@
 ]]></Implementation>
 </Method>
 
+<Property name="HorologUnishop">
+<Type>TECH.Horolog</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Test: Afdwingen dat TBXBesteller VOOR UNIshopbesteller wordt uitgevoerd">
 <Implementation><![CDATA[
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
@@ -171,7 +176,9 @@
 	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerSpy, TandemboxBestellerSpy)	
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = BestelService.PlaatsBestelling(Aanvraag)
 	
-	Do $$$AssertTrue(##class(TECH.TimeStampUtils).DifferenceInMilliSeconds(UnishopBestellerSpy.GeefUitvoerTijdstip(),TandemboxBestellerSpy.GeefUitvoerTijdstip()) < 0)
+	Set ..HorologUnishop = UnishopBestellerSpy.GeefUitvoerTijdstip()
+	
+	Do $$$AssertTrue(..HorologUnishopGetDifferenceInMilliseconds(TandemboxBestellerSpy.GeefUitvoerTijdstip()) < 0)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml
===================================================================
diff -u -r36453 -r36495
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 36453)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 36495)
@@ -9,7 +9,7 @@
 </Property>
 
 <Property name="UitvoerTijdstip">
-<Type>%TimeStamp</Type>
+<Type>TECH.Horolog</Type>
 <Private>1</Private>
 </Property>
 
@@ -52,7 +52,7 @@
 </Method>
 
 <Method name="GeefUitvoerTijdstip">
-<ReturnType>%TimeStamp</ReturnType>
+<ReturnType>TECH.Horolog</ReturnType>
 <Implementation><![CDATA[	Quit ..UitvoerTijdstip
 ]]></Implementation>
 </Method>