added LSL2 stored procedures

LSL2/STPROC/CDM_LOG_EVENTS.txt

@@ -0,0 +1,38 @@
+Compile function CDM_LOG_EVENTS(CtrlEntId, Event, @PARAMS)
+
+Declare function SRP_DateTime, Oconv, DateTime
+Declare subroutine Set_Property
+
+#pragma precomp SRP_PreCompiler
+#window CDM_LOG
+
+GoToEvent Event for CtrlEntId else
+    // Event not implemented
+end
+
+Return EventFlow or 1
+
+//-----------------------------------------------------------------------------
+// EVENT HANDLERS
+//-----------------------------------------------------------------------------
+
+Event WINDOW.CREATE(CreateParam)
+    
+    EventFlow = 1
+    
+End Event
+
+Event SIGN_BUTTON.CLICK()
+	IF @User4 EQ 'JONATHAN_O' then debug
+	Date = SRP_DateTime("Date", DateTime())
+	Time = SRP_DateTime("Time", Datetime())
+
+	iDate = OConv(Date, 'D4/H')
+	iTime = OConv(Time, 'MTS')
+	
+	Set_Property(@Window : '.DATE_CHANGED', 'DEFPROP', iDate)
+	Set_Property(@Window : '.TIME_CHANGED', 'DEFPROP', iTime)
+
+end event
+
+