Index: APPS/Halux/common/impl/MatBatch.cls.xml
===================================================================
diff -u -r59830 -r59847
--- APPS/Halux/common/impl/MatBatch.cls.xml	(.../MatBatch.cls.xml)	(revision 59830)
+++ APPS/Halux/common/impl/MatBatch.cls.xml	(.../MatBatch.cls.xml)	(revision 59847)
@@ -18,15 +18,24 @@
 		}
 	}
 	
+	Quit ..BepaalVroegsteDueOut(VroegsteDueOut)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVroegsteDueOut">
+<FormalSpec>VroegsteDueOut:%TimeStamp=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[
 	If $$$HasLength(VroegsteDueOut) {
 		Set DueOutProductieBepaler = ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat).%New()
 		Set DateTimeAPI = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
 		#dim ProductieDatum As %Date = DateTimeAPI.HorologToDate(VroegsteDueOut)
 		#dim DueOutProductieTime As %Time = DueOutProductieBepaler.GeefDueOutProductieTime(ProductieDatum)
 		Set VroegsteDueOut = DateTimeAPI.DateTimeToTimeStamp(ProductieDatum, DueOutProductieTime)
 	}
-		
-	Quit VroegsteDueOut
+	
+	quit VroegsteDueOut
 ]]></Implementation>
 </Method>