Boton Guardar

11/01/2005 - 21:45 por Rookie | Informe spam
Hola Grupo... he buscado en el help de VFox, pero no he hallado como crear un
boton "Guardar", alguien podria pasarme un codigo de ejemplo, y donde
colocarlo?
 

Leer las respuestas

#1 Leopoldo Sánchez
11/01/2005 - 21:58 | Informe spam
en el evento click del boton

************************************
&& Cmd_Grabar.Click()
************************************
This.Parent.Habilita(.T.)
IF NOT(TABLEUPDATE(.T.,.T.))
®RROR(gaError)
Lc_No_Error = ALLTRIM(STR(gaError(1)))
Lc_Mensaje = ALLTRIM(gaError(2))
MESSAGEBOX("No se pudo grabar el registro" + CHR(13) + ;
"Error No: " + Lc_No_Error + CHR(13) + ;
"Mensaje: " + Lc_Mensaje,64,"AVISO")
TABLEREVERT(.T.)
ELSE
WAIT WINDOW 'Información guardada correctamente' NOWAIT
TABLEREVERT(.T.)
ENDIF

************************************

************************************

Leopoldo Sánchez
Monterrey, México



"Rookie" escribió en el mensaje
news:
| Hola Grupo... he buscado en el help de VFox, pero no he hallado como crear
un
| boton "Guardar", alguien podria pasarme un codigo de ejemplo, y donde
| colocarlo?

Preguntas similares