Index: vhUnitTest/BL/Legacy/EWORDS6.cls.xml
===================================================================
diff -u -r50027 -r72356
--- vhUnitTest/BL/Legacy/EWORDS6.cls.xml	(.../EWORDS6.cls.xml)	(revision 50027)
+++ vhUnitTest/BL/Legacy/EWORDS6.cls.xml	(.../EWORDS6.cls.xml)	(revision 72356)
@@ -8,11 +8,23 @@
 	#define AndereDag	0
 	#define Vandaag		1
 	#define Morgen      2
+
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	#dim DateTimeApiFake as TECH.DateTime.DateTimeApi =  ##class(TECH.Context).Instance().GeefDateTimeAPI()
+
+	#dim Kantelpunt18h as %String = DateTimeApiFake.CurrentHorolog()
+	set $P(Kantelpunt18h,",",+2) = 18*3600
+
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer(Kantelpunt18h) // zet 
 	
 	do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
+	// na 18h ene voor morgen -> vandaag
 	do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100000),$$$Vandaag,"Is voor vandaag .. 100000 heeft een vroeger kantel moment")
-	do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100001),$$$Morgen,"Is voor andere dag .. 100001 heeft een langer kantel moment")
+	// voor 18h ene voor morgen, en niet DD1 -> andere
+	do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100001),$$$AndereDag,"Is voor andere dag .. 100001 heeft een langer kantel moment")
 	
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	
 	do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(..GeefVolgendeNietArbeidsdag())
 	do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100002),$$$AndereDag,"Is voor andere dag .. want morgen is zogezegd geen arbeidsdag")