Truncating XBasic code

[edech]

In trying to create an inline XBasic action script of about 35 lines, I type the script completely, test the syntax (F4), and proceed through Finish. When I go back to the script, it's truncated at line 29.

Any idea why this is happening and how I get past it? Thanks.

[Geoffrey Hollander]

RE: Truncating XBasic code

Ed,

Inline XBasic action scripts are notorious for being able to hold very little code in them. Often, as you have observed, they will appear to be handling it all -- especially if you paste some code in, but when you look inside the code window a second time, you find that the script is truncated. I have wrestled with this many times, but there iis a simple solution!

You simply creaste a series of XBasic action scripts which are logically segmented pieces of your one, larger block of code.

NOTE: They must be in seqiuential order when displayed in the action script window; in tree form. Also, you can't put "END" at the end of any of your scripts, except the last in the series; or else the precession will stop there, rather than continuing on to the next script(s) in line.

Hope this helps.

Regards,

Geoff Hollander

[crimmelcp]

RE: Truncating XBasic code

Ed:
Instead of using in-line xbasic, convert to xbasic and you will have a lot more room.
Charlie crimmel

[edech]

RE: Truncating XBasic code

Thanks for the quick response. I set the following up as XBasic code. In executing it, I get the following error message...

Script"History_hours line:30
a_tbl.append()
Variable append.m_key references a non-existant field SEQ

"History_hours" is the db to which I want to append data from "Riding_Hours", and both contain the same fields/field names including SEQ.

I'm obviously doing something wrong. Any idea what?

BTW, I pasted the append code from the Script recorder window after I ran the append from the control panel. I've highlighted with an * (asterisk) the lines I changed/added.


*dim throughdate as d
*dim sathroughdate as c
*sathroughdate=ui_get_date("DELETE DATE", "Through What Date ",dtoc(throughdate))
*throughdate=ctod(sathroughdate)
*table.open("C:program filesa5v4Sign_In_Outhistory_hours.dbf")
a_tbl = table.current()
append.t_db = "c:program filesa5v4 sign_in_outriding_hours.dbf"
append.m_key = "SEQ"
append.t_key = "SEQ"
append.m_filter = ""
*append.t_filter = "RidingdateSEQ"
append.m_field2 = "FULLNAME"
append.m_exp2 = "@RIDING_HOURS->FULLNAME"
append.m_field3 = "RIDINGDATE"
append.m_exp3 = "@RIDING_HOURS->RIDINGDATE"
append.m_field4 = "ROSTER_HOURS"
append.m_exp4 = "@RIDING_HOURS->ROSTER_HOURS"
append.m_field5 = "PAGER_HOURS"
append.m_exp5 = "@RIDING_HOURS->PAGER_HOURS"
append.m_field6 = "SAC_HOURS"
append.m_exp6 = "@RIDING_HOURS->SAC_HOURS"
append.m_field7 = "REASON"
append.m_exp7 = "@RIDING_HOURS->REASON"
append.m_field8 = "IDENT"
append.m_exp8 = "@RIDING_HOURS->IDENT"
append.t_count = 0
a_tbl.append()

[crimmelcp]

RE: Truncating XBasic code

Ed:
I just changed these 3 lines
try it and let me know
You might have to post your files so we could take a closer look
Charlie Crimmel

tbl=table.open("C:program filesa5v4Sign_In_Outhistory_hours.dbf")
append.m_key = ""
append.t_key = ""

[crimmelcp]

RE: Truncating XBasic code

Ed:
I dont think that last post will work.
You will probably have to use pointers to the different tables.
If both tables have SEQ , it might be getting confused.
see if you can post your files so we can take a closer look.
Charlie Crimmel

[edech]

RE: Truncating XBasic code

Charlie:

Attached are the files in question.

Realy appreciate your help.

Ed

[edech]

RE: Truncating XBasic code

Many thanx, Geoffrey.

[Peter.Wayne]

RE: Truncating XBasic code

you have set a_tbl to table.current(), but i think
you mean to set it to the table you explicitly open
and append records to.
e.g.
a_tbl=table.open("C:program files|a5v4|Sign_In_Outhistory_hours.dbf")

[edech]

RE: Truncating XBasic code

Thank you, Dr. Wayne. Works perfectly now.

Ed