* IndexFilter

parameter cFilter

set filter to 
set index to

if empty(cFilter)
	wait window 'Filter removed' nowait
	go top
else
	wait window 'Index Filtering...' +chr(13) +;
		cFilter nowait
	erase IndeFilt.idx
	index on recno() for &cFilter to IndeFilt.idx
	count to nIndeFilter
	if nIndeFilter =0
		wait window 'None found for ' +chr(13) +;
			cFilter nowait
		set index to
	endif
	go top
	wait window 'Index Filter on ' +ltrim(str(nIndeFilter)) +chr(13) +;
		cFilter nowait
endif
RETURN