PROCEDURE ALL
	SET FILTER TO
ENDPROC

PROCEDURE custom_filter
	RETURN 
	osearchform=CREATEOBJECT("searchform")
	osearchform.SHOW()
ENDPROC