OnCanSubmit event

[eribla]

Hi

I am trying to create a timestamp when a user has edited a record.

If I put (excerpt)

var_TimeNow= GetTimeString();
{Grid.Object}.setValue('G', 'svc3_ptime', {Grid.RowNumber}, var_TimeNow);

in one of the "onBlur" events of a field, the value is set properly.


If I put the same code into the "OnCanSubmit" event, it gives me a syntax error.


If I put a function call into the "onCanSubmit", the function is run. alert('I'm here') .


If I put the code above into the function-> same error again.



Hmmmm... I'm lost.

[RichCPT]

Re: OnCanSubmit event

I time stamp all my records first with the date they are created and then if they are modified I timestamp another field with when the record was last changed. I do this in the Detail form, so if you are doing it in updateable grid then things could be different. On the Detail form Server-side Events I put the following in the "CanUpdateRecord" and "CanInsertRecord" events:

with PageVariables
Result.Cancel = .f.
Result.ErrorHTML = ""
end with

cpStampLUC( DataSubmitted.rsRecAdd_Person_SysID, DataSubmitted.rsRecAdd_Date,\
DataSubmitted.rsRecChg_Person_SysID, DataSubmitted.rsRecChg_Date, \
Args, PageVariables, Result)

In my Control Panel under the "Code" tab I define the "cpStampLUC" function like this:
FUNCTION cpStampLUC AS V (byref recAddID as C, byRef recAddDate as C, \
byref recUpdID as C, byRef recUpdDate as C, \
Args as P, PageVariables as p, Result as p)
with PageVariables
Result.Cancel = .f.
Result.ErrorHTML = ""

'--- For debugging only in W/P mode define the session variables.
'--- No data gets into the system unless these 3 pieces of info are present.
'--- snPrsn is the only session variable really needed here. The other two vars
'--- are just here for safety check. skDS is a LINK field and gets saved to each
'--- new record automatically by A5.

'DIM SESSION.SKDS AS C = NEW "EDD1E1B4-9750-4389-80AB-71E8F5FA3DE1"
'DIM SESSION.SKUDA AS C = new "B67268E9-2F0D-4EEB-B295-C015F2FB572C"
'DIM SESSION.SNPRSN AS C = NEW "1"

if eval_valid("session.snPrsn") = .t.
dim prsnID as C = NEW convert_type(session.snPrsn, "C")
if eval_valid("session.skUda") = .t.
if eval_valid("session.skDs") = .t.
if Args.IsNewRecord = .t.
recAddDate = DATE()+ " " + TIME()
recAddID = prsnID
else
recUpdDate = DATE()+ " " + TIME()
recUpdID = prsnID
end if
else
Result.Cancel = .t.
Result.ErrorHTML = "UPDATE cancelled: required Session state info is missing: Dataset ID!"
end if
else
Result.Cancel = .t.
Result.ErrorHTML = "UPDATE cancelled: required Session state info is missing: User Access!"
end if
else
Result.Cancel = .t.
Result.ErrorHTML = "UPDATE cancelled: required Session state info is missing: Person ID!"
end if
end with
end function

IMPORTANT:
I turn off "Check for write conflicts" on the fields that I stamp.
Also, it is very important to set the Display Format of the date/time fields. I set the format so the time will not get truncated from the field. I use:

time("{grid.clientSideDateFormat} 0h:0m 0s am",<value>)


In the past I would uncomment the three DIM session variables when I wanted to add records in Working Preview mode. Anymore, I don't use WP mode except for checking the layout of a form.

-Rich Fulham

[iRadiate]

Re: OnCanSubmit event

I just do this in the CanInsertRecord for logging user/date created:

DataSubmitted.CreateUser = a5ws_GetCurrentUser()
DataSubmitted.CreateDate = now()

And I do this in the CanUpdateRecord for logginf user/date modified:

DataSubmitted.EditUser = a5ws_GetCurrentUser()
DataSubmitted.EditDate = now()

Stephen