39 lines
907 B
Plaintext
39 lines
907 B
Plaintext
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
|
|
|
|
|