Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r28 -r321
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 28)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 321)
@@ -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,23 +60,32 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Timestamp:%TimeStamp</FormalSpec>
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	Quit $zdh(Timestamp,3)
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Set Date = ""
+	If (Timestamp '= "") Set Date = $zdh(Timestamp,3)
+	Quit Date
 ]]></Implementation>
 </Method>
 
 <Method name="TimeStampToHorolog">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
 <ReturnType>%String</ReturnType>
+<SqlProc>1</SqlProc>
 <Implementation><![CDATA[	Quit $zdth(TimeStamp,3)
 ]]></Implementation>
 </Method>
 
-<Method name="DateToTimestamp">
+<Method name="DateToTimeStamp">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Date:%Date</FormalSpec>
 <ReturnType>%TimeStamp</ReturnType>
-<Implementation><![CDATA[	Quit $zd(Date,3)_" 00:00:00"
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Set TimeStamp = ""
+	If (Date '= "") Set TimeStamp = $zd(Date,3)_" 00:00:00"
+	Quit TimeStamp
 ]]></Implementation>
 </Method>
 
@@ -91,6 +111,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaxTimeStamp">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit $zd(2980013,3)_" 23:59:59"
+]]></Implementation>
+</Method>
+
 <Method name="CurrentTime">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Time</ReturnType>
@@ -238,5 +265,29 @@
 	Quit +$$CALCDATE^vhDTyp(Datum,"M","LD")
 ]]></Implementation>
 </Method>
+
+<Method name="TimeStampToShortView">
+<Description>
+TimeStamp naar DD/MM uu:mm</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set TimeStampString = $zdt($ZDATETIMEH(TimeStamp,7),4)
+	Set Deel1 = $Piece(TimeStampString,"/",1,2)
+	Set Deel2 = $Piece(TimeStampString,"/",3)
+	Set Deel2 = $Piece(Deel2," ",2)
+	Set Deel2 = $Piece(Deel2,":",1,2)
+	Quit Deel1_" "_Deel2
+]]></Implementation>
+</Method>
+
+<Method name="GeefDatumInPuntNotatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$EXTDATE^vhDTyp(Datum,"DKP")
+]]></Implementation>
+</Method>
 </Class>
 </Export>