Boton Guardar

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?

Me indica que "No se encuentra la propiedad Habilita"... lo reemplace con el
nombre de mi tabla, y aun me envia el error...

que es "Habilita"?

"Leopoldo Sánchez" wrote:

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?

parece que es un metodo definido,...por el programador,... supongo que
habilita los botones de comandos,, que fueron deshabilitados al momento de
crear o modificar

Pd: esto funciona con buffers en tablas

"Rookie" escribió en el mensaje
news:

Me indica que "No se encuentra la propiedad Habilita"... lo reemplace con

el

nombre de mi tabla, y aun me envia el error...

que es "Habilita"?

"Leopoldo Sánchez" wrote:

> 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?
>
>
>

así es Rookie, como te comenta David, es un método que yo cree en mi clase
de botones para ese fin, te paso el código por si te interesa

*************************************
*HABILITA BOTONES
***************************************
LPARAMETERS lbEnabled

This.Cmd_Nuevo.Enabled = lbEnabled
This.Cmd_Editar.Enabled = lbEnabled
This.Cmd_Grabar.Enabled = NOT(lbEnabled)
This.Cmd_Cancelar.Enabled = NOT(lbEnabled)
****************************************
Leopoldo Sánchez
Monterrey, México



"David Diaz" escribió en el mensaje
news:%23TSAUMP%
|
| parece que es un metodo definido,...por el programador,... supongo que
| habilita los botones de comandos,, que fueron deshabilitados al momento de
| crear o modificar
|
| Pd: esto funciona con buffers en tablas
|
| "Rookie" escribió en el mensaje
| news:
| > Me indica que "No se encuentra la propiedad Habilita"... lo reemplace
con
| el
| > nombre de mi tabla, y aun me envia el error...
| >
| > que es "Habilita"?
| >
| > "Leopoldo Sánchez" wrote:
| >
| > > 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?
| > >
| > >
| > >
|
|