Printing - No records in query

[Steve Workings]

I've inherited a database with its share of troubles, am out of ideas on one point, looking for suggestions. I'll simplify the description:

A button has this code:

t = table.get("cal_readings")
dim query.filter as c = ""
dim query.order as c = ""
query.filter  = "Cal_id = '" + t.cal_id + "'"
:Report.Preview("Certificate",query.filter,query.order)

It works for a while, but a few times a day reports "No records found in query."

We're sitting right on the record. I'm displaying the Cal_ID below the button and the user confirms it's present and correct.

If they get everyone out of the db and re-index, the problem is resolved for another few runs. They're having to do this several times a day, and it's really a PITA. Cal_ID is one of two indexes in this table.

In general, I believe the design of the system is a bit problematic and is producing indexing problems. But I should be able, one way or another, be able to run a report with a query and not be subject to such index issues. So I've tried some modifications to force a query that doesn't use the index, such as:

t = table.get("cal_readings")
dim query.filter as c = ""
dim query.order as c = "serial_number"
query.filter  = "ALLTRIM(Cal_id) = '" + ALLTRIM(t.cal_id) + "'"
:Report.Preview("Certificate",query.filter,query.order)

Still no joy.

Any ideas?

[G Gabriel]

Re: Printing - No records in query

Have you tried to drop the query?
Sounds like you used all available slots.
Drop & Detach.
P.S.
Allowable slots=16 but, it's more of an arbitrary number. I'd drop it after each run.

[aschone]

Re: Printing - No records in query

If you are only wanting to print the record that currently has focus you could just code for the record number instead of the ID.

Don't quote me on this code, did from memory

query.filter  = "Recno() = " + t.recno()

[Stan Mathews]

Re: Printing - No records in query

Have you tried...

t = table.get("cal_readings")
dim query.filter as c = ""
dim query.order as c = "serial_number"
query.filter  = "ALLTRIM(Cal_id) = '" + ALLTRIM(t.cal_id) + "'"
t.query_create("N",query.filter,query.order)
:Report.Preview("Certificate",query.filter,query.order)

with the report based on current selection of records?

[Tom Cone Jr]

Re: Printing - No records in query

I prefer to reduce the number of levels of indirection.

Here the .Preview method must evaluate "query.filter", only to find that the filter itself requires parsing the table pointer, and then parsing the field name. I suspect a timing issue. The script may not be waiting while this work is going on.

Suggest you assign the cal_id directly to a variable and then use that term in your filter.

-- tom

Later...

Using the global variables in your filter expression requires even more work, right?

The preview method looks for a filter.
The filter references a pointer variable. Locals are search. Shared are searched. Finally globals are searched.
But wait, the global is a pointer so now it must search through the properties of the pointer var to find the "filter" property.

All of this work can be eliminated using a local variable called "filter expression".

(PS. I hope Steve's not working on one of my old apps!)

[Steve Workings]

Re: Printing - No records in query

Thanks. 4 ideas, and I'm going to throw all four of 'em at the app at once. So I may not know which is the "solution" but I hadn't tried any of these. I'll follow up when I know -- probably be Monday assuming we have 'lectricity.

[Al Buchholz]

Re: Printing - No records in query

Thanks. 4 ideas, and I'm going to throw all four of 'em at the app at once. So I may not know which is the "solution" but I hadn't tried any of these. I'll follow up when I know -- probably be Monday assuming we have 'lectricity.

So you guys are getting hit high and low... don't forget to charge your cell phone...

[Steve Workings]

Re: Printing - No records in query

Locusts next week.

[Finian Lennon]

Re: Printing - No records in query

You probably thought of this but aren't query.filter and query.order globals by definition? When you "dim query.filter as C = "" " isn't there the possibility of confusion in the scope of the variable at some point if not always. At some point one or other ends up with an invalid value and messes up the query. Which is why I stopped using that syntax a long time ago.

Wouldn't just a declaration of query.filter = "" and query.order = "" be proper and take care of the issue?

[Ray in Capetown]

Re: Printing - No records in query

Steve,
I will lay odds that adding (or just using) flag "M" will fix that problem. I've experienced what you describe and that worked. Remember that a query doesnt monitor table data change like an index does.
post #4 ;

...
t = table.get("cal_readings")
dim query.filter as c = ""
dim query.order as c = "serial_number"
query.filter = "ALLTRIM(Cal_id) = '" + ALLTRIM(t.cal_id) + "'"
t.query_create("N",query.filter,query.order)
:Report.Preview("Certificate",query.filter,query.order)

[MikeC]

Re: Printing - No records in query

Steve....did you get anything to work?

[Steve Workings]

Re: Printing - No records in query

Yeah, all fixed - I should have done the promised followup.

The fix was one or the other or both of these:

1. Tom's advice to resolve the variable in the string earlier (yes Tom, you'll recognize this app with it's cal_header and cal_readings); and
2. Adding query_detach_all() after each print event.

Because it works, I'm not going to tear it apart and see which one of these made the final difference.