Problema con boton Cancelar
Publicado por Gabriel (427 intervenciones) el 07/11/2007 16:01:19
Que tal amigos :
Aqui tengo otra caso por resolver. Resulta que cuando el usuario esta ingresando un nuevo registro y desea Cancelar dicho ingreso. Luego de hacer Click en la opcion Cancelar los datos que fueron ingresados pero no grabados quedan en pantalla y no me muestra el ultimo registro grabado.
Aqui les muestro el codigo de lo avanzado.
PROCEDURE CmdCancelar.Click
gnAgregar = 0
SELECT EXA_ALU
=CURSORSETPROP("Buffering",5,"EXA_ALU")
=TABLEREVERT(.T.)
SELECT DET_ALU
=CURSORSETPROP("Buffering",5,"DET_ALU")
=TABLEREVERT(.T.)
SELECT EXA_ALU
IF BETWEEN(Thisform.BeforeAdd, 1, RECCOUNT()) &&
GO (Thisform.BeforeAdd)
ENDIF
SET RELATION TO Cod_Alum INTO DET_ALU
SET SKIP TO DET_ALU
WITH THISFORM
.LockScreen = .T.
.TodoOff
.BotonesOn
.LockScreen = .F.
ENDWITH
Agradezco sus comentarios y sugerencias.
atte,
GABRIEL
Aqui tengo otra caso por resolver. Resulta que cuando el usuario esta ingresando un nuevo registro y desea Cancelar dicho ingreso. Luego de hacer Click en la opcion Cancelar los datos que fueron ingresados pero no grabados quedan en pantalla y no me muestra el ultimo registro grabado.
Aqui les muestro el codigo de lo avanzado.
PROCEDURE CmdCancelar.Click
gnAgregar = 0
SELECT EXA_ALU
=CURSORSETPROP("Buffering",5,"EXA_ALU")
=TABLEREVERT(.T.)
SELECT DET_ALU
=CURSORSETPROP("Buffering",5,"DET_ALU")
=TABLEREVERT(.T.)
SELECT EXA_ALU
IF BETWEEN(Thisform.BeforeAdd, 1, RECCOUNT()) &&
GO (Thisform.BeforeAdd)
ENDIF
SET RELATION TO Cod_Alum INTO DET_ALU
SET SKIP TO DET_ALU
WITH THISFORM
.LockScreen = .T.
.TodoOff
.BotonesOn
.LockScreen = .F.
ENDWITH
Agradezco sus comentarios y sugerencias.
atte,
GABRIEL
Valora esta pregunta


0