Why won't the browse query go away. When I remove the query on the browse and try to sort the browse by lastname using menu quicksort, the query is reapplied and the form does not show all the child records (only the queried ones).
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
Comment