xbasic enter new record not working in transition from 10.5 to 12

[Hendrik Krosschell]

Today I purchased Version 12 and while checking functionality in my application created with earlier versions I noted an issue. When I use push a button to create a new record in another table with an xbasic script that functioned previously I get errors. When I use action scripting in the new version and look at the code it is the same as generated by earlier versions and still does not function as it does in version 10.5 . Is this action scripting method no longer functional, and why?

field types don't match.......and subproperty cannot be assigned.........are the key words from the truncated error message.

Here is the script that functions in 10.5 but not in the version 12 I just paid for. Buyers remorse in 5 minutes ? I hope not!

'This action has been commented out.
' 'Open the table that you want to update...
' dim tbl as p
' tbl = table.open("islhcfa",FILE_RW_SHARED)
'
' tbl.enter_begin()
' tbl.PAT_ID = ""
' tbl.FIRST = a5_eval_expression("=First",local_variables())
' tbl.DOB = a5_eval_expression("=Dob",local_variables())
' tbl.DT_SERV = a5_eval_expression("=Dt_Serv",local_variables())
' tbl.TOS_1 = a5_eval_expression("=Tos_1",local_variables())
' tbl.PLCSERV = a5_eval_expression("=Plcserv",local_variables())
' tbl.TRANSNO = a5_eval_expression("=Transno",local_variables())
' tbl.enter_end(.t.)
' tbl.close()


Thanks for any help with this


Rick

[gkeramidas]

Re: xbasic enter new record not working in transition from 10.5 to 12

try changing the variable named "first" to something else, frst or something like that.
then populate it with the data and see if it works
tbl.FIRST = a5_eval_expression("=Frst",local_variables())

[Stan Mathews]

Re: xbasic enter new record not working in transition from 10.5 to 12

If that's the code for the action script which is not working, the action script shouldn't work. Not sure where the errors arise but the action seems to be commented out. Perhaps later actions are relying on something which should happen in this action?

[martinwcole]

Re: xbasic enter new record not working in transition from 10.5 to 12

try going to an earlier version - if that fixes it - report as bug
if not, report as bug

[Hendrik Krosschell]

Re: xbasic enter new record not working in transition from 10.5 to 12

I sent in the bug report and tried to create this error in a new workspace. (I am impatient and I needed a quicker answer than to wait for a reply)

The bug persisted in the new workspace.
Then with Gary's advice (thank you) I went back and tried a different way to get my fields "First" and "Last" into the script. I added variables to grab them from the form and used those variables to supply the script. It worked.

Apparently (I am assuming) the words "First" and "Last" when used with version 12 are reserved (interpreted) differently when used in this kind of script. Since I use these as field names extensively I will have to rewrite a few scripts.

[Tom Cone Jr]

Re: xbasic enter new record not working in transition from 10.5 to 12

I don't use A5_Eval_Expression(), so looked it up in the helps. The documentation indicates that this function returns a CHARACTER value in its OUTPUT. If you were assigning character values to non-character data typed table fields this might account for what you saw.

[gkeramidas]

Re: xbasic enter new record not working in transition from 10.5 to 12

Hendrik:
there is a difference between the versions.
in the interactive window of v11:
dim first as c
first = "gary"
? a5_eval_expression("=First",local_variables())
= "gary"


in v12:
dim first as c
first = "gary"
? a5_eval_expression("=First",local_variables())
= A first(A subexpr[,G over[,G each]) 'Get the first of subexpression over group 'over' sampled each group 'each'

so, it's actually using the first() function. it was probably a bug in previous versions, using an invalid keyword, that they fixed in v12.

I typically would use something like this:

dim fname as c
fname = "Gary"
tbl.firstname = fname
you could use your field name, too.
tbl.frst = fname