Index: vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Mat/Test.cls.xml
===================================================================
diff -u -r59807 -r59899
--- vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Mat/Test.cls.xml	(.../Test.cls.xml)	(revision 59807)
+++ vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Mat/Test.cls.xml	(.../Test.cls.xml)	(revision 59899)
@@ -14,18 +14,23 @@
 </Method>
 
 <Method name="AssertDueOutTime">
-<FormalSpec>DueOutDateTxt:%String,CurrentDateTxt:%String,VerwachteDueOutTime:%String</FormalSpec>
+<FormalSpec>DueOutDateTxt:%String,CurrentDateTxt:%String,VerwachteDueOutTimeTxt:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim DueOutDate As %Date = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate(DueOutDateTxt)
-	#dim CurrentDate As %Date = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate(CurrentDateTxt)
+	Set DateTimeAPI = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
+	
+	#dim DueOutDate As %Date = DateTimeAPI.TextToDate(DueOutDateTxt)
+	#dim CurrentDate As %Date = DateTimeAPI.TextToDate(CurrentDateTxt)
 
+	#dim VerwachteDueOutTime As %Date = DateTimeAPI.TextToTime(VerwachteDueOutTimeTxt)
+
 	Set DateTimeAPIMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
 	Do DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn(CurrentDate)
+	Do DateTimeAPIMock.VerwachtMethodCall("TextToTime", VerwachteDueOutTimeTxt).DanReturn(VerwachteDueOutTime)
 	
 	Set DueOutProductieBepaler = ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat).%New(DateTimeAPIMock)
 	#dim DueOutTime As %String = $ZT(DueOutProductieBepaler.GeefDueOutProductieTime(DueOutDate))
-	Do $$$AssertEquals(DueOutTime,VerwachteDueOutTime)
+	Do $$$AssertEquals(DueOutTime,VerwachteDueOutTimeTxt)
 	
 	Do DateTimeAPIMock.Verifieer()
 ]]></Implementation>
Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler/Mat.cls.xml
===================================================================
diff -u -r59818 -r59899
--- APPS/VKP/VerzendWijze/DueOutProductieBepaler/Mat.cls.xml	(.../Mat.cls.xml)	(revision 59818)
+++ APPS/VKP/VerzendWijze/DueOutProductieBepaler/Mat.cls.xml	(.../Mat.cls.xml)	(revision 59899)
@@ -28,9 +28,9 @@
 	#dim DueOutProductieTime As %Time = ""
 	#dim CurrentDate As %Date = ..DateTimeAPI.CurrentDate()
 	If (ProductieDatum = CurrentDate) {
-		Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("10:30")
+		Set DueOutProductieTime = ..DateTimeAPI.TextToTime("10:30:00")
 	} else {
-		Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("14:30")
+		Set DueOutProductieTime = ..DateTimeAPI.TextToTime("14:30:00")
 	}
 	quit DueOutProductieTime
 ]]></Implementation>