Query Problem on tabbed form

[DaveM]

Hi All abd thanks in advance,

I have a no-tabbed form and a Tabbed form that does the same script with different results.

tbl=table.current()
 query.description = "Order Customers"
 query.order = "acct"
 query.filter = "scode=var->scode.and.status='O'"  'O means ordered
 query.options = "N"
 tbl.query_create()
 parent.fetch_last()
 topparent.Resynch()
 topparent.Refresh_Layout()

on the non-tabbed form it works great whether there is an order outstanding or not.

On the tabbed form(button is not on a tab and the same code is also in a drop down) it hangs alpha if no record exists that has an O in status field.

I have several buttons on the forms with similar code that I am sure would also hang alpha if there was no records present.

Not sure what to do to correct this. Any ideas would be helpful.

DaveM

[Cheryl Lemire]

Re: Query Problem on tabbed form

Hi Dave,

Perhaps you could try adding a count to your query with an if statement, if count=0 then end or display a message, else continue with script.

[Mike Wilson]

Re: Query Problem on tabbed form

Dave,

In have run into more than one issue with browses and tabbed forms when a query is empty. I therefore have gone to almost always, when tabbed forms and browses are involved precede the query with a probe of the table with the same filter as the query using exist(), dbcount() if indexed, but most often A5_get_records_in_query(), and if .f. or zero records returned, I fire a message and skip the query script entirely.

[Tom Cone Jr]

Re: Query Problem on tabbed form

Dave, I try hard to never mix form level (GUI) code with other code that's manipulating the table beneath the form.

Here, without touching the GUI you run a query against the table underneath the form. You then do:

parent.fetch_last()

This concerns me because this tells the form (the GUI) to fetch the last record but the GUI hasn't been resynched and the form doesn't know you've run the query. This disconnect occurs because you're mixing code. If your script is talking directly to the table beneath the form I recommend you finish your processing and then resynch the form. Don't switch in midscript to try to finish the processing using GUI level commands.

First suggestion here would be to change this to:

tbl.fetch_last()

This would move the record pointer beneath the form without touching the GUI.

[DaveM]

Re: Query Problem on tabbed form

I have revised the code and am showing how I did it. Thanks to Cheryl and mike for the help.

dim dopath as c
dopath = a5.Get_Exe_Path()
vmenuitems = <<%a%
Active Customers
Sold Customers
Sold Customers by Last Name
Sold Businesses
Ordered Vehicles
Dead Deals
Special Sorting
Find Text in field
%a%
a_command = ui_popup_menu(vmenuitems)
select case
'=====================================================================================================
case a_command = "Active Customers"
 'dim tbl as P
 'tbl = table.current()
 'indx = tbl.index_tag_add("xx", "date", "scode=var->scode.and.status='D'", "A")
 dim shared numbs as n
 numbs = A5_get_records_in_query("names","scode=var->scode.and.status='A'")
 if numbs <= 0 then
  ui_msg_box("None Found","There are no Order Units Found")
  goto end
 end if 
 tbl=table.current()
 query.description = "Active"
 query.order = "date"
 query.filter = "scode=var->scode.and.status='A'"
 query.options = "N"
 tbl.query_create()
 parent.fetch_last()
 topparent.Resynch()
 topparent.Refresh_Layout()
'=====================================================================================================
case a_command = "Sold Customers"
 dim shared numbs as n
 numbs = A5_get_records_in_query("names","scode=var->scode.and.status='S'")
 if numbs <= 0 then
  ui_msg_box("None Found","There are no Sold Units Found")
  goto end
 end if 
 tbl=table.current()
 query.description = "Sold"
 query.order = "date"
 query.filter = "scode=var->scode.and.status='S'"
 query.options = "N"
 tbl.query_create()
 parent.fetch_last()
 topparent.Resynch()
 topparent.Refresh_Layout()
'=====================================================================================================
case a_command = "Sold Customers by Last Name"
 dim shared numbs as n
 numbs = A5_get_records_in_query("names","scode=var->scode.and.status='S'")
 if numbs <= 0 then
  ui_msg_box("None Found","There are no Sold Units Found")
  goto end
 end if 
 tbl=table.current()
 query.description = "Sold Customers"
 query.order = "buyer"
 query.filter = "scode=var->scode.and.status='S'"
 query.options = "N"
 tbl.query_create()
 topparent.Resynch()
 topparent.Refresh_Layout()

I did not include the whole code but there is an end: at the bottom.
I will incorporate the changes Tom suggested tomorrow, but it works fine now.

Dave Mason