Botón cancelar

Buenos días, eset es mi consulta:
Al momento de pulsar el botón nuevo se activan las cajas de texto y automáticamente en una de las cajas aparece el código 001, y tengo otro botón cancelar que me servirá para cancelar el registro que estoy ingresando, sucede que cuando pulso el botón cancelar me debería devolver al ultimo registgro ingresado pero como ya pulsé el botón nuevo ya se ingreso un registro en la tabla como haría para usar el botón cancelar.
Botón cancelar
cursorsetprop("buffering", 5)
tablerevert(.t.)
this.enabled=.f.
Botón nuevo
cursorsetprop("buffering", 5)
APPEND BLANK
1

1 Respuesta

59.100 pts.
Espero poder ayudarte
Mi concejo es que no trabajes en las tablas hasta que no se confirma la acción..
Lo ideal seria que cuando el usuario toca el botón "nuevo" pongas los textbox en blanco sin hacer nada.. para esto la propiedad controlSource de los controles tiene que estar vacía y vos trabajarías por medio de la propiedad value. Así:
Botón Nuevo
with thisform
.codigo.value=''
.descrip.value=''
.precio.value=0
endwith
Si toca "cancelar" lo que hacemos es traer los datos del ultimo registro
sele miTabla
go botton
with thisform
.codigo.value=miTabla.codigo
.descrip.value=miTabla.descrip
.precio.value=miTabla.precio
endwith
Si toca "grabar" o "aceptar" haces
sele miTabla
append blank
if rlock() &&para multiusuario
replace codigo with thisform.codigo.value
replace descrip with thisform.descrip.value
replace precio with thisform.precio.value
unlock
flush
endif
Bueno, espero haberte ayudado y si es así.. espero tu calificación y que cierres la pregunta..
Cualquier cosa estoy a tu disposición..
Keystone - Christian
www.keystone.com.ar
Buenas tardes experto con respecto al código estas son mis consultas, el código del botón nuevo funcionó a la perfección mientras hubo registros en la tabla, probé eliminado todos los registros de la tabla y al pulsar el botón nuevo no se limpian las cajas y tampocon se activan las cajas para ingresar datos a pesar que tengo un método para activar cajas de texto.
El botón nuevo tiene un método limpia para blanquear los campos y un método activa para activar las cajas de texto.
El botón cancelar si bien es cierto regresa al ultimo registro pero ese ultimo registro lo deja en blanco y en este botón también hay un método.
Botón nuevo
Thisform. Limpia
Thisform. Activa
Thisform.refresh
Método limpia
thisform.txtFecha_emision.value={ / / }
thisform.txtFecha_venci.value={ / / }
thisform.txtNro.value=""
...
...
metodo activa
thisform.txtFecha_emision.Enabled=.t.
thisform.txtfecha_emision.SetFocus
thisform.txtFecha_venci.enabled=.t.
thisform.txtNro.Enabled=.t.
...
...
Botón cancelar
Thisform.traerdatos
Método traerdatos
SELECT reg_compras
GO bott
thisform.txtFecha_emision.value=reg_compras.fecha_emision
thisform.txtFecha_venci.value=reg_compras.fecha_venci
thisform.txtNro.value=reg_compras.nro
...
...
¿Cómo estas?
Seguramente la propiedad controlSource de los textbox esta como por ejemplo reg_compras. Nro, deberían estar en blanco
Fíjate eso.
Sino, nada impediría que tu código funcione porque esta muy bien..
Cualquier cosa me avisas
Keystone - Christian
www.keystone.com.ar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas