Why won't the browse query go away. When I remove the query on the browse and try to sort the browse by lastname, the query is reapplied.
Script
'Date Created: 14-Feb-2005 11:10:36 PM
'Last Updated: 01-Apr-2005 12:18:06 AM
'Created By : David
'Updated By : David
'Default comment text.
dim tbl as p
tbl = table.current()
clntid = tbl.vendor_id
vdid = tbl.vendor_id
'Filter records based on the value in control 'Vendor_id' in current form.
dim shared flagDue as l
IF flagDue = .f. THEN
ui_freeze(.t.)
'Default comment text.
'Filter records based on the value in control 'Vendor_id' in current form.
topparent.QuickSrchExplicit("Vendor_id")
' topparent.queryrun("Vendor_id = var-"clntid","","","No","Vendor",.f.)
topparent.queryrun("(Cr_Heade-"Fee_date " ctod(\"02/28/2005\") ) .and. isnotblank(\"Spouse\") .and. (Cr_Heade-"Total_fee "= 1195.00 ) .or. (Cr_Heade-"Fee_date " ctod(\"02/28/2005\") ) .and. isblank(\"Spouse\") .and. (Cr_Heade-"Total_fee "= 695.00 )","Lastname","","No","Client",.f.)
flagDue = .t.
ui_freeze(.f.)
ELSE
'Turn off query in in current form.
ui_freeze(.t.)
' topparent.show_all()
browse_clients.Show_All()
'Sort records on 'Browse_Clients:Name' in current form.
topparent.queryrun("Cr_Heade-"Fee_date " ctod(\"02/28/2005\")","Lastname","","No","Client",.f.)
' topparent.QuickSortExplicit("Browse_Clients:Name","Ascending")
' topparent.queryrun("","Lastname","","No","Client",.f.)
' flagDue = .f.
' tbl.index_primary_put("vendor_id")
' tbl.fetch_find(vdid)
' browse_clients.Index_Set("name")
'' tbl.index_primary_put("contact_name")
browse_clients.Fetch_First()
parent.resynch()
ui_freeze(.f.)
END IF
end
Script
'Date Created: 14-Feb-2005 11:10:36 PM
'Last Updated: 01-Apr-2005 12:18:06 AM
'Created By : David
'Updated By : David
'Default comment text.
dim tbl as p
tbl = table.current()
clntid = tbl.vendor_id
vdid = tbl.vendor_id
'Filter records based on the value in control 'Vendor_id' in current form.
dim shared flagDue as l
IF flagDue = .f. THEN
ui_freeze(.t.)
'Default comment text.
'Filter records based on the value in control 'Vendor_id' in current form.
topparent.QuickSrchExplicit("Vendor_id")
' topparent.queryrun("Vendor_id = var-"clntid","","","No","Vendor",.f.)
topparent.queryrun("(Cr_Heade-"Fee_date " ctod(\"02/28/2005\") ) .and. isnotblank(\"Spouse\") .and. (Cr_Heade-"Total_fee "= 1195.00 ) .or. (Cr_Heade-"Fee_date " ctod(\"02/28/2005\") ) .and. isblank(\"Spouse\") .and. (Cr_Heade-"Total_fee "= 695.00 )","Lastname","","No","Client",.f.)
flagDue = .t.
ui_freeze(.f.)
ELSE
'Turn off query in in current form.
ui_freeze(.t.)
' topparent.show_all()
browse_clients.Show_All()
'Sort records on 'Browse_Clients:Name' in current form.
topparent.queryrun("Cr_Heade-"Fee_date " ctod(\"02/28/2005\")","Lastname","","No","Client",.f.)
' topparent.QuickSortExplicit("Browse_Clients:Name","Ascending")
' topparent.queryrun("","Lastname","","No","Client",.f.)
' flagDue = .f.
' tbl.index_primary_put("vendor_id")
' tbl.fetch_find(vdid)
' browse_clients.Index_Set("name")
'' tbl.index_primary_put("contact_name")
browse_clients.Fetch_First()
parent.resynch()
ui_freeze(.f.)
END IF
end