Index: BL/Legacy/FLOWHALUX.cls.xml
===================================================================
diff -u -r63370 -r63440
--- BL/Legacy/FLOWHALUX.cls.xml	(.../FLOWHALUX.cls.xml)	(revision 63370)
+++ BL/Legacy/FLOWHALUX.cls.xml	(.../FLOWHALUX.cls.xml)	(revision 63440)
@@ -55,7 +55,8 @@
 	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNr)
 	
 	#dim MailTo As %ListOfDataTypes = $listbuild("planning_halux@vanhoecke.be")
-	#dim Subject As %String = "SST: toelevering "_ToeleveringNr_" bevat "_Toelevering.GeefAantalProducten()_" stuks en heeft due out = "_DateTimeAPI.HorologToTimeStamp(Toelevering.GeefDueOutTime())_" - klant "_$Extract(Toelevering.GeefKlantID(),4,*)
+	#dim DueOutTime As %String = ..DraaiDatumOm(DateTimeAPI.HorologToTimeStamp(Toelevering.GeefDueOutTime()))
+	#dim Subject As %String = "SST: toelevering "_ToeleveringNr_" bevat "_Toelevering.GeefAantalProducten()_" stuks en heeft due out = "_DueOutTime_" - klant "_$Extract(Toelevering.GeefKlantID(),4,*)
 
     #dim Body As %String = ##class(%GlobalCharacterStream).%New()
 	#dim Message As %String = ""
@@ -67,6 +68,23 @@
 	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="DraaiDatumOm">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim Datum As %String = $PIECE(TimeStamp, " ", 1)
+	#dim Tijdstip As %String = $PIECE(TimeStamp, " ", 2)
+	
+	#dim Jaartal As %String = $PIECE(Datum, "-", 1)
+	#dim Maand As %String = $PIECE(Datum, "-", 2)
+	#dim Dag As %String = $PIECE(Datum, "-", 3)
+	
+	Quit Dag_"-"_Maand_"-"_Jaartal_" "_Tijdstip
+]]></Implementation>
+</Method>
 </Class>