FishEye: Tag 35903 refers to a dead (removed) revision in file `vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r36439 -r36453
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 36439)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 36453)
@@ -38,8 +38,8 @@
 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	Set ResultaatTBXBestel = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	Set ResultaatUNIBestel = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
-	#dim ResultaatTBX As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..TandemboxBesteller.MaakOfferte(Aanvraag)
-	#dim ResultaatUNI As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..UnishopBesteller.MaakOfferte(Aanvraag)	
+	#dim ResultaatUNI As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..UnishopBesteller.MaakOfferte(Aanvraag)
+	#dim ResultaatTBX As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..TandemboxBesteller.MaakOfferte(Aanvraag)	
 	
 	If $$$Not($IsObject(ResultaatTBX.Exceptie) || $IsObject(ResultaatUNI.Exceptie)){
 		If $$$HasLength(ResultaatTBX.OfferteIDTBX) {
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r36264 -r36453
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36264)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36453)
@@ -240,7 +240,7 @@
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
 	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
+	Do UnishopBestellerSpy.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,2)
 ]]></Implementation>
@@ -254,7 +254,7 @@
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
 	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)	
+	Do UnishopBestellerSpy.MaakOfferte(Aanvraag)	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
 ]]></Implementation>
 </Method>
@@ -268,7 +268,7 @@
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
 	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)	
+	Do UnishopBestellerSpy.MaakOfferte(Aanvraag)	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,1)
 ]]></Implementation>
 </Method>
@@ -283,7 +283,7 @@
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
 	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
+	Do UnishopBestellerSpy.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,2)
 ]]></Implementation>
@@ -299,7 +299,7 @@
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
 	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
+	Do UnishopBestellerSpy.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,2)
 ]]></Implementation>
@@ -316,7 +316,7 @@
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
 	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
+	Do UnishopBestellerSpy.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
 ]]></Implementation>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r36439 -r36453
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36439)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36453)
@@ -162,6 +162,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Afdwingen dat TBXBesteller VOOR UNIshopbesteller wordt uitgevoerd">
+<Implementation><![CDATA[
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
+	#dim TandemboxBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy).%New()
+	
+	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)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanvraag">
 <Private>1</Private>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml
===================================================================
diff -u -r35743 -r36453
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 35743)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 36453)
@@ -8,11 +8,17 @@
 <InitialExpression>0</InitialExpression>
 </Property>
 
-<Method name="PlaatsBestelling">
+<Property name="UitvoerTijdstip">
+<Type>%TimeStamp</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakOfferte">
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
-	do ..VoegToeLijnen(1234,Aanvraag.Order)
+	Set ..UitvoerTijdstip = $zts
+	Do ..VoegToeLijnen(1234,Aanvraag.Order)
 	Quit ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(1234)
 ]]></Implementation>
 </Method>
@@ -44,6 +50,12 @@
 <Implementation><![CDATA[	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="GeefUitvoerTijdstip">
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..UitvoerTijdstip
+]]></Implementation>
+</Method>
 </Class>