Index: DOM/OV/impl/DataM/DataMProforma.cls.xml
===================================================================
diff -u -r1076 -r1600
--- DOM/OV/impl/DataM/DataMProforma.cls.xml	(.../DataMProforma.cls.xml)	(revision 1076)
+++ DOM/OV/impl/DataM/DataMProforma.cls.xml	(.../DataMProforma.cls.xml)	(revision 1600)
@@ -33,6 +33,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDatum">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	Set Datum = $Piece(..GetDataLijn(0),"\",6)
+	Set Datum = ##class(TECH.DateTime).TextToDate(Datum)
+	Quit Datum
+]]></Implementation>
+</Method>
+
 <Method name="GetDataLijn">
 <FormalSpec>Index</FormalSpec>
 <Private>1</Private>