Na form en Visual fox no me refresca los controles
Tengo un form con textbox y combos, para ingresar datos a una tabla, por medio de un boton "Aceptar", pero al hacer click en el boton y despues de guardar los datos en la tabla, el form no me refresca los controles.
esto tengo en el evento "click" del boton aceptar
SELECT pacientes
APPEND blank
replace pacientes.apat_pac WITH ALLTRIM(v_pat)
replace pacientes.amat_pac WITH ALLTRIM(v_mat)
replace pacientes.nombre_pac WITH ALLTRIM(v_nom)
replace pacientes.ncompleto_pac WITH ALLTRIM(v_pat)+" "+ALLTRIM(v_mat)+" "+ALLTRIM(v_nom)
replace pacientes.edad_pac WITH v_edad
replace pacientes.sexo_pac WITH v_sexo
replace pacientes.dom_pac WITH ALLTRIM(v_dom_pac)
replace pacientes.tel_pac WITH VAL(v_tel)
SELECT eventos_pac
APPEND BLANK
replace eventos_pac.fecha_eve WITH DATE()
replace eventos_pac.ncompleto_eve WITH ALLTRIM(v_pat)+" "+ALLTRIM(v_mat)+" "+ALLTRIM(v_nom)
replace eventos_pac.cons_eve WITH v_consulta
replace eventos_pac.rev_eve WITH v_revision
replace eventos_pac.hosp_eve WITH v_hospitalizacion
replace eventos_pac.costocons_eve WITH VAL(v_costocons)
replace eventos_pac.nom_medico WITH v_medico
replace eventos_pac.medica_eve WITH v_si
replace eventos_pac.nom_medica1 WITH v_medica1
replace eventos_pac.nom_medica2 WITH v_medica2
replace eventos_pac.nom_medica3 WITH v_medica3
replace eventos_pac.nom_medica4 WITH v_medica4
replace eventos_pac.costomed_eve WITH VAL(v_costomedica)
replace eventos_pac.costohosp_eve WITH VAL(v_costohosp)
replace eventos_pac.fechaing_eve WITH (v_fechaingreso)
replace eventos_pac.fechasal_eve WITH (v_fechasal)
tableupdate=.t.
thisform.refresh
WAIT WINDOW "Paciente dado de alta" TIMEOUT 1
STORE space(15) TO v_pat
thisform.refresh
thisform.n_pat.enabled=.T.
thisform.n_mat.enabled=.T.
thisform.n_nom.enabled=.T.
thisform.n_edad.enabled=.T.
thisform.n_sexo.enabled=.T.
thisform.n_dom_pac.enabled=.T.
thisform.n_tel.enabled=.T.
thisform.n_consulta.enabled=.T.
thisform.n_revision.enabled=.T.
thisform.n_hospitalizacion.enabled=.T.
thisform.n_costocons.enabled=.T.
thisform.n_medico.enabled=.T.
thisform.n_no.enabled=.T.
thisform.n_si.enabled=.T.
thisform.n_pat.setfocus
thisform.refresh
saludos
esto tengo en el evento "click" del boton aceptar
SELECT pacientes
APPEND blank
replace pacientes.apat_pac WITH ALLTRIM(v_pat)
replace pacientes.amat_pac WITH ALLTRIM(v_mat)
replace pacientes.nombre_pac WITH ALLTRIM(v_nom)
replace pacientes.ncompleto_pac WITH ALLTRIM(v_pat)+" "+ALLTRIM(v_mat)+" "+ALLTRIM(v_nom)
replace pacientes.edad_pac WITH v_edad
replace pacientes.sexo_pac WITH v_sexo
replace pacientes.dom_pac WITH ALLTRIM(v_dom_pac)
replace pacientes.tel_pac WITH VAL(v_tel)
SELECT eventos_pac
APPEND BLANK
replace eventos_pac.fecha_eve WITH DATE()
replace eventos_pac.ncompleto_eve WITH ALLTRIM(v_pat)+" "+ALLTRIM(v_mat)+" "+ALLTRIM(v_nom)
replace eventos_pac.cons_eve WITH v_consulta
replace eventos_pac.rev_eve WITH v_revision
replace eventos_pac.hosp_eve WITH v_hospitalizacion
replace eventos_pac.costocons_eve WITH VAL(v_costocons)
replace eventos_pac.nom_medico WITH v_medico
replace eventos_pac.medica_eve WITH v_si
replace eventos_pac.nom_medica1 WITH v_medica1
replace eventos_pac.nom_medica2 WITH v_medica2
replace eventos_pac.nom_medica3 WITH v_medica3
replace eventos_pac.nom_medica4 WITH v_medica4
replace eventos_pac.costomed_eve WITH VAL(v_costomedica)
replace eventos_pac.costohosp_eve WITH VAL(v_costohosp)
replace eventos_pac.fechaing_eve WITH (v_fechaingreso)
replace eventos_pac.fechasal_eve WITH (v_fechasal)
tableupdate=.t.
thisform.refresh
WAIT WINDOW "Paciente dado de alta" TIMEOUT 1
STORE space(15) TO v_pat
thisform.refresh
thisform.n_pat.enabled=.T.
thisform.n_mat.enabled=.T.
thisform.n_nom.enabled=.T.
thisform.n_edad.enabled=.T.
thisform.n_sexo.enabled=.T.
thisform.n_dom_pac.enabled=.T.
thisform.n_tel.enabled=.T.
thisform.n_consulta.enabled=.T.
thisform.n_revision.enabled=.T.
thisform.n_hospitalizacion.enabled=.T.
thisform.n_costocons.enabled=.T.
thisform.n_medico.enabled=.T.
thisform.n_no.enabled=.T.
thisform.n_si.enabled=.T.
thisform.n_pat.setfocus
thisform.refresh
saludos