Here is the code:
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
