Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml =================================================================== diff -u -r36495 -r36543 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml (.../UnishopBestellerSpy.cls.xml) (revision 36495) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml (.../UnishopBestellerSpy.cls.xml) (revision 36543) @@ -4,13 +4,12 @@ APPS.EDI.Bestel.impl.BestelService.UnishopBesteller -%String +%Integer 0 TECH.Horolog -1 @@ -50,12 +49,6 @@ - - -TECH.Horolog - - Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml =================================================================== diff -u -r36495 -r36543 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml (.../TandemboxBestellerSpy.cls.xml) (revision 36495) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml (.../TandemboxBestellerSpy.cls.xml) (revision 36543) @@ -5,7 +5,6 @@ TECH.Horolog -1 @@ -16,12 +15,6 @@ Quit ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(1234) ]]> - - -TECH.Horolog - - Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml =================================================================== diff -u -r36495 -r36543 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml (.../Test.cls.xml) (revision 36495) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml (.../Test.cls.xml) (revision 36543) @@ -176,9 +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) - Set ..HorologUnishop = UnishopBestellerSpy.GeefUitvoerTijdstip() + Set ..HorologUnishop = UnishopBestellerSpy.UitvoerTijdstip - Do $$$AssertTrue(..HorologUnishopGetDifferenceInMilliseconds(TandemboxBestellerSpy.GeefUitvoerTijdstip()) < 0) + Do $$$AssertTrue(..HorologUnishopGetDifferenceInMilliseconds(TandemboxBestellerSpy.UitvoerTijdstip) < 0) ]]>