STORE FILTER('schedules_sorted') TO myoldfilter 
SET FILTER TO

THISFORMSET.form4.txtreg_num.VALUE 		= ""
THISFORMSET.form4.txtV_date.VALUE 		= {}
THISFORMSET.form4.txtACV_visit.VALUE 	= 0
THISFORMSET.form4.txtACV_date.VALUE 	= {}
THISFORMSET.form4.edtACV_comment.VALUE 	= ""
THISFORMSET.form4.txtANV_visit.VALUE 	= 0
THISFORMSET.form4.txtANV_date.VALUE 	= {}
THISFORMSET.form4.edtANV_comment.VALUE 	= ""
THISFORMSET.form4.optSchedule.VALUE 	= 0

THISFORMSET.form4.txtreg_num.VALUE 		= schedules_sorted.reg_num
THISFORMSET.form4.txtV_date.VALUE 		= schedules_sorted.V_date
THISFORMSET.form4.txtACV_visit.VALUE 	= schedules_sorted.c_visit
THISFORMSET.form4.txtACV_date.VALUE 	= schedules_sorted.c_date
THISFORMSET.form4.edtACV_comment.VALUE 	= schedules_sorted.c_comments
THISFORMSET.form4.txtANV_visit.VALUE 	= schedules_sorted.n_visit
THISFORMSET.form4.txtANV_date.VALUE 	= schedules_sorted.n_date
THISFORMSET.form4.edtANV_comment.VALUE 	= schedules_sorted.n_comments
THISFORMSET.form4.optSchedule.VALUE 	= schedules_sorted.Schedule

THISFORMSET.form1.VISIBLE = .F.
THISFORMSET.form4.VISIBLE = .T.
THISFORMSET.form4.cmdOk.CLICK