Expression suddenly not working

[TerriH]

I created a form with a button to print a report - this button worked just fine until this morning and I cannot figure out what is wrong -

I have printed at least 30 reports off this button yesterday with all my testing and never had an error.

I suddenly get the error "extra characters at the end of expression" and it names the line -- I cannot see any extra characters, I DID NOT change this line in any way so why would I get this error?

This is the code:

'
vID_num = parentform.Table_Get().Id_num
current_filter = current_filter_expn()
current_order = current_order_expn()
query.filter = current_filter + ".and. inspections->Coverltrtext = .t."
query.order = current_order



'Prompt user whether to print, or preview the layout. Set default to Print
prompt_result = ui_get_print_or_preview("Print")
If prompt_result = "Print" then
:Report.Print("Multy InspectC",query.filter,query.order)
Else if prompt_result = "Preview" then
:Report.Preview("Multy InspectC",query.filter,query.order)
End if

t = table.open("inspections")

query.options = ""
query.order = ""
query.description = ""
query.filter = "ID_num = "+vId_Num

ndx = t.query_create()

if ndx.records_get() < 1
end
end if

t.fetch_first()

while .not. t.fetch_eof()
if t.Coverltrtext = .t.
t.change_begin()
t.Coverltrtext = .f.
t.change_end()
end if
t.fetch_next()
end while
t.close()
parentform.Resynch()

It tells me the extra characters are at the end of this line:

:Report.Print("Multy InspectC",query.filter,query.order)


I have tried making a new form - adding a new button just using action scripting and I get the same error --

When making the new button and under the Selection of Records to Print, I chose "Records selected by a filter expression" and when I go into that mode it brings up the incorrect set to filter on -- it is NOT the set the form is built on and I don't think I have ever come across that before.

HELP !! Anyone have any idea what is going on here?

Terri

[MikeC]

Re: Expression suddenly not working

Hi Terri,
There doesn't seem to be anything inherently wrong with your script so the next step I think is to provide your database or a cut down version of it that has the problem. With instructions as to where this code is and run from.

Most likely this is why noone has even taken a guess as to what is wrong as nothing can be seen that is!

[Tom Cone Jr]

Re: Expression suddenly not working

Terri, when your code is all left aligned it's hard to read. Use code tags to preserve formatting when posting to the message board. These are available if you use the "advanced options" when editing your reply or post.

I have a few suggestions for you:

1) this line looks wrong to me:

Else if prompt_result = "Preview" then

I think it should be

[COLOR="Red"]Elseif[/COLOR] prompt_result = "Preview" then

2) Is the Inspections table supporting your form? i.e. is it the table the form is based upon or is it the primary table in a set that your form is based upon? If so, I think you should be explicitly dropping the query after checking and changing the coverltrtext field. If this were my script I'd verify that the desired index or filter is in place for the form after the script has run. If the query is still in effect I'd modify the ending portions of the script to assure that the desired index or filter is in place for the form before ending.

[TerriH]

Re: Expression suddenly not working

Thank you Tom and Mike for answering

I found the problem. It was a little ole period causing the problem. Even though the error showed that the error was on that print line, the actual error was in the report itself that I was trying to print. I had changed a conditional object on the report and normally you get an error if the expression is wrong, but for some reason it let me save the report with the incorrect expression. After pulling out all but the last 3 of my hairs, I finally found that I had missed a "." before the "AND." part of the filter.

SO for any others out there that get there are extra characters at the end of the report print line - check through the REPORT you are referencing to print for any errors.

Love this board !

Terri