Date Format In Script

[John Wood]

I have written a script that automatically updates a "Revision Date" when a record is saved. Works fine on a few computers in the Network, most others it fails with an error message reading "tbl.Update subelement is of different type".

Tried changing the date format in the problem systems from d/mm/yr to m/dd/yr with no success. Am using Date() function without curly brackets in the Field_Value_Put statement.

Any great ideas here? I'm baffled!

[Tom O'Keeffe]

RE: Date Format In Script

John,
Check field rules for a conflict bwtween field rules for the date field and the scripted update. I have had a conflict here where a field is 'calculated' and I have a rule for it. The script update will not work where the field rule is set.
Does not explain why only some stations are encountering the problem.....
Regards
tom

[Robert Adler]

RE: Date Format In Script

john:

have the other work stations run network optimize? they may be out of sync with those that are working.

bob adler

[John Wood]

RE: Date Format In Script

Tried optimize and drop kicking the other stations to no avail.

[Mick Magnuson]

RE: Date Format In Script

John, throw a copy of the script up here so we can see whats happening, or not happening in this case.

Mick

[John Wood]

RE: Date Format In Script

Here's the script I am having the problem with. Seems to only work on my computer and nobody else's on the network. Any great ideas anywhere?


'Set Update Value To Current Date
'--------------------------------

'debug(1)

tbl=table.current()
:Clients:Update.activate()

tbl.change_begin()
tbl.Update=Date()
tbl.change_end(.t.)

:Clients:Firstlastname.activate()

[CALocklin]

RE: Date Format In Script

I hate to do this but I'm going to make a suggestion I haven't tested. I would suggest using form commands only:

tbl=table.current() '-- NO LONGER NECESSARY

:Clients:Update.activate()

:Clients:Update.value = date() '-- OPTION: ...Update.text = dtoc(date())
:Clients.commit()

:Clients:Firstlastname.activate()

Also, your existing script might work if you put a Parentform.resynch() after the Change_end() command.

[JerryBrightbill]

RE: Date Format In Script

John,
You mentioned that the script runs when you save a record. Exactly which event is it attached to? Is it a field rule event or a form event? I once placed a similar script on the CanSaveRecord field rule event and the change_begin bombed if a change had already begun. Same script worked ok on the OnSaveRecord Event. Similar problem if it was attached to the equivalent form events. I also added some lines to check the mode at save to react differently if the script fired before all of the child records were saved. This was on a large set with a number of child records. Example below:

tbl1 = table.current(1)
if tbl1.mode_get()>0
tbl1.Date_Edit = date()
else
tbl1.change_begin()
tbl1.Date_Edit = date()
tbl1.change_end(.T.)
end if

This has never given a problem on a number of different computers. I don't know if this is relayted to your problem but it is another area to investigate.

Jerry