Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r2257 -r2324
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 2257)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 2324)
@@ -9,6 +9,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Horolog:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
+<SqlProc>1</SqlProc>
 <Implementation><![CDATA[	Quit $Piece(Horolog,",",1)*24*60*60+$Piece(Horolog,",",2)
 ]]></Implementation>
 </Method>
@@ -17,14 +18,22 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Horolog:%String</FormalSpec>
 <ReturnType>%TimeStamp</ReturnType>
-<Implementation><![CDATA[	Quit $zdt(Horolog,3)
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Set TimeStamp = ""
+	If (Horolog '= "")
+	{
+		Set TimeStamp = $zdt(Horolog,3)
+	}
+	Quit TimeStamp
 ]]></Implementation>
 </Method>
 
 <Method name="HorologToDate">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Horolog:%String</FormalSpec>
 <ReturnType>%Date</ReturnType>
+<SqlProc>1</SqlProc>
 <Implementation><![CDATA[	Quit $Piece(Horolog,",")
 ]]></Implementation>
 </Method>
@@ -33,6 +42,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Text:%String,Type:%String="",Taal:%String=""</FormalSpec>
 <ReturnType>%Date</ReturnType>
+<SqlProc>1</SqlProc>
 <Implementation><![CDATA[	Quit $$INTDATE^vhDTyp(Text,Type,Taal)
 ]]></Implementation>
 </Method>
@@ -41,6 +51,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Timestamp:%TimeStamp</FormalSpec>
 <ReturnType>%Integer</ReturnType>
+<SqlProc>1</SqlProc>
 <Implementation><![CDATA[	Quit ..HorologToSeconds($zdth(Timestamp,3))
 ]]></Implementation>
 </Method>
@@ -49,6 +60,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Timestamp:%TimeStamp</FormalSpec>
 <ReturnType>%Date</ReturnType>
+<SqlProc>1</SqlProc>
 <Implementation><![CDATA[
 	Set Date = ""
 	If (Timestamp '= "") Set Date = $zdh(Timestamp,3)
@@ -60,6 +72,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
 <ReturnType>%String</ReturnType>
+<SqlProc>1</SqlProc>
 <Implementation><![CDATA[	Quit $zdth(TimeStamp,3)
 ]]></Implementation>
 </Method>
@@ -68,6 +81,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Date:%Date</FormalSpec>
 <ReturnType>%TimeStamp</ReturnType>
+<SqlProc>1</SqlProc>
 <Implementation><![CDATA[
 	Set TimeStamp = ""
 	If (Date '= "") Set TimeStamp = $zd(Date,3)_" 00:00:00"