differences between code command file and the code in a command button on a form

[leufj]

What are the differences between code command file and the code in a command button on a form?
The code file works good when run the code ("v_wl") in the Control Panel or in the Interactive Window using script_play_local("v_wl"). But I got the following error when run the same code or using script_play_local("v_wl") on a form: Error running append operation Argument is incorrect data type.
The code is for appending all records from one table to another (with a few calculated fields). And I got the same problem after change the calculated fields to user entered.

[Stan Mathews]

Re: differences between code command file and the code in a command button on a form

What are the differences between code command file and the code in a command button on a form?

The context.

Without seeing the code/script it would be difficult to pinpoint the issue. Script_play_local() allows you to reference variables defined in the current variable namespace. If the variables available to the form are different, the results when the command is issued from the form might be different.

[leufj]

Re: differences between code command file and the code in a command button on a form

The code file the the calling function file are uploaded. Thanks a lot for your help.
FJ

[Stan Mathews]

Re: differences between code command file and the code in a command button on a form

You have two append operations in the u_sql...... script. Does the first one run and the second fail?

Change the notification to find out.

Line 90 -
ui_msg_box("Error","Error running FIRST Append Operation"+crlf()+error_text_get())

Line 175 -
ui_msg_box("Error","Error running SECOND Append Operation"+crlf()+error_text_get())

[leufj]

Re: differences between code command file and the code in a command button on a form

Thanks a lot. This is a very good way to find out where caused the problem. And I got:
"Error running FIRST Append Operation"

[Stan Mathews]

Re: differences between code command file and the code in a command button on a form

I believe you need to change this line

vv6=c1;vv7= "wl5";vv9= "wl0";

to

vv6="@"+c1;vv7= "wl5";vv9= "wl0";

and

vv6="wl5";vv7= "pav5" + api_getenvironmentvar("usr");vv9= "pa";vv9v=vv9+"@"+vv7

to

vv6="@wl5";vv7= "pav5" + api_getenvironmentvar("usr");vv9= "pa";vv9v=vv9+"@"+vv7

[leufj]

Re: differences between code command file and the code in a command button on a form

It does not work and I got the following error on both the code file and the command button: "Error running FIRST Append Operation; Variable append.t_db table - the system cannot find the file specified. d:\a5\@wlab5.dbf"

[Stan Mathews]

Re: differences between code command file and the code in a command button on a form

Sorry, I did not see where vv6 was used in that table open statement.

vv6=c1;vv7= "wl5";vv9= "wl0";[COLOR="Red"]basename= "@"+c1[/COLOR]

Then the FIRST append needs

append.m_exp1 =  [COLOR="red"]basename[/COLOR] + "->recno0"
append.m_field2 = "chkno"
append.m_exp2 =  basename + "->chkno"
append.m_field3 = "ptname"
append.m_exp3 =  basename + "->ptname"
append.m_field4 = "chkinf"
append.m_exp4 =  basename + "->chkinf"
append.m_field5 = "chkdata"
append.m_exp5 =  basename + "->chkdata"
append.m_field6 = "jpath"
append.m_exp6 =  basename + "->jpath"
append.m_field7 = "spath"
append.m_exp7 =  basename + "->spath"
append.m_field8 = "path"
append.m_exp8 =  basename + "->path"
append.m_field9 = "chkrec"
append.m_exp9 =  basename + "->chkrec"
append.m_field10 = "chksured"
append.m_exp10 =  basename + "->chksured"
append.m_field11 = "chkcode"
append.m_exp11 =  basename + "->chkcode"
append.m_field12 = "ptbirth"
append.m_exp12 =  basename + "->ptbirth"
append.m_field13 = "ptid"
append.m_exp13 =  basename + "->ptid"
append.m_field14 = "chartno"
append.m_exp14 =  basename + "->chartno"
append.m_field15 = "pasdate"
append.m_exp15 =  basename + "->pasdate"
append.m_field16 = "chkqul"
append.m_exp16 =  basename + "->chkqul"
append.m_field17 = "chkdif"
append.m_exp17 =  basename + "->chkdif"
append.m_field18 = "chkdif2"
append.m_exp18 =  basename + "->chkdif2"
append.m_field19 = "hona9"
append.m_exp19 =  basename + "->hona9"
append.m_field20 = "prechkdata"
append.m_exp20 =  basename + "->prechkdata"

vv6="wl5";vv7= "pav5" + api_getenvironmentvar("usr");vv9= "pa";vv9v=vv9+"@"+vv7;[COLOR="red"]basename = "@"+vv6[/COLOR]

Then the SECOND append needs

append.m_exp2 =  [COLOR="red"]basename[/COLOR] + "->Chartno"
append.m_field3 = "Pano"
append.m_exp3 =  basename + "->Chkno"
append.m_field4 = "Ptna"
append.m_exp4 =  basename + "->Ptname"
append.m_field5 = "Ptag"
append.m_exp5 =  basename + "->Ag_c"
append.m_field6 = "Ptsx"
append.m_exp6 =  s_quote("F")
append.m_field7 = "D_rc"
append.m_exp7 =  basename + "->Chkrec"
append.m_field8 = "D_rp"
append.m_exp8 =  basename + "->Chksured"
append.m_field9 = "Padx"
'append.m_exp9 =  basename + "->Chkdata"
'append.m_exp9 = evaluate_string("alltrim({basename}->Chkdata)+('  inf=')+alltrim({basename}->chkinf) + ('  qul=')+({basename}->chkqul) + ('  difc=')+({basename}->chkdif) + ('  dif2=')+({basename}->chkdif2) + ('  jpath=')+({basename}->jpath) + ('  spath=')+({basename}->spath) + ('  ptID=')+({basename}->ptID)")
append.m_exp9 = "if((isnull("+basename+"->prechkdata) .or. alltrim("+basename+"->prechkdata)=alltrim("+basename+"->chkdata)),alltrim("+basename+"->Chkdata)+('  inf=')+alltrim("+basename+"->chkinf)+('  qul=')+("+basename+"->chkqul)+('  difc=')+("+basename+"->chkdif)+('  dif2=')+("+basename+"->chkdif2)+('  jpath=')+("+basename+"->jpath)+('  spath=')+("+basename+"->spath)+('  dx0=sm')+('  ptID=')+("+basename+"->ptID),alltrim("+basename+"->Chkdata)+('  inf=')+alltrim("+basename+"->chkinf)+('  qul=')+("+basename+"->chkqul)+('  difc=')+("+basename+"->chkdif)+('  dif2=')+("+basename+"->chkdif2)+('  jpath=')+("+basename+"->jpath)+('  spath=')+("+basename+"->spath)+('  dx0=')+("+basename+"->prechkdata)+('  ptID=')+("+basename+"->ptID))"

append.m_field10 = "Cldr"
append.m_exp10 =  s_quote("")
append.m_field11 = "Padr"
append.m_exp11 =  basename + "->Path"
append.m_field12 = "Mid_ho1"
append.m_exp12 =  s_quote("")
append.m_field13 = "Cldx"
append.m_exp13 =  s_quote("")
append.m_field14 = "Dxdif"
append.m_exp14 =  s_quote(0)
append.m_field15 = "Dw"
append.m_exp15 =  s_quote(0)
append.m_field16 = "Hona9"
append.m_exp16 =  basename + "->Hona9"
append.m_field17 = "Ptid"
append.m_exp17 =  basename + "->Ptid"
append.t_count = 0

Any table name in a line like

append.m_exp17 =

must have the right side like

@tablename->fieldname

when it refers to a table field.

[leufj]

Re: differences between code command file and the code in a command button on a form

After using your attached file, I still got the error of:
"Error running FIRST Append Operation; Argument is incorrect data type.
when using the command button.
FJ

[leufj]

Re: differences between code command file and the code in a command button on a form

After checking the tables. Both wlab5 and wl5 have got the appended records. Even with the error message. But the last table "pav5" + api_getenvironmentvar("usr") cannot get the records.
FJ

[Stan Mathews]

Re: differences between code command file and the code in a command button on a form

There were a few lines in the script where I did not change vv6 to basename. Try this.

[leufj]

Re: differences between code command file and the code in a command button on a form

The script2.txt still got the error of: "Error running FIRST Append Operation; Argument is incorrect data type.
After checking the tables. Both wlab5 and wl5 have got the appended records. Even with the error message. But the last table "pav5" + api_getenvironmentvar("usr") cannot get the records.

[Stan Mathews]

Re: differences between code command file and the code in a command button on a form

Are you sure "pav5" + api_getenvironmentvar("usr") has the same structure as the table being appended from? Can you attach sample tables?

[leufj]

Re: differences between code command file and the code in a command button on a form

The two tables have a few fields of different structure. However, the code file works good when run the code ("v_wl") in the Control Panel or in the Interactive Window using script_play_local("v_wl"). But I got the following error when run the same code or using script_play_local("v_wl") on a form: Error running append operation Argument is incorrect data type.

[leufj]

Re: differences between code command file and the code in a command button on a form

Thanks very much for your kindness.
The problem is solved by adding another function (u_sql2pav5f) that contains the SECOND append op and the following browse. i.e. The command button contains script_play_local("v_wl") and u_sql2pav5f("",1,1). I think there would be some bugs in A5 that may cause this problem.