AYUDA CON EL COMANDO Tablerevert
Publicado por hugo (22 intervenciones) el 14/04/2015 05:08:30
tengo una vista actualizable todo perfecto....unicamente quiero un boton para revertir o cancelar los cambios echos en ese momento...podras ayudarme...?
por ejemplo si doy de alta en el grid dos lineas y le doy a al boton tablerevert quisiera ver el Grid eliminarse automaticamemte esas lineas con el comando tablerevert.
les mando mi codigo que tengo en un metodo dentro de mi form en el boton de anexar lineas en el Grid, proyecto en Visual Fox Ver 7
if m.codigo = " "
return 0
ELSE
Select T_articulos
go top
set order to codigo
thisform.codigc=m.codigo
IF Seek (m.codigo)
m.codigo = codigo
m.nombre = nombre
endif
Select detalle_orden
IF FLOCK ()
set order to rec
set deleted off
go bottom
scatter memvar BLANK
m.rec = rec + 1
IF m.rec = 0
m.rec = 1
ENDIF
m.codigo = thisform.codigc
m.orden = ALLTRIM(thisForm.orden)
m.cantidad = 1
Select vista_detalle_orden
INSERT INTO vista_detalle_orden FROM memvar
replace orden WITH m.orden
Replace codigo with M.CODIGO
Replace cantidad with m.cantidad
Replace descripcion_equipo with m.nombre
replace fecha_equipo WITH DATE()
set deleted on
UNLOCK ALL IN vista_detalle_orden
Select vista_detalle_orden
=TableUpdate (.t., .t.)
EndIf
endif
por ejemplo si doy de alta en el grid dos lineas y le doy a al boton tablerevert quisiera ver el Grid eliminarse automaticamemte esas lineas con el comando tablerevert.
les mando mi codigo que tengo en un metodo dentro de mi form en el boton de anexar lineas en el Grid, proyecto en Visual Fox Ver 7
if m.codigo = " "
return 0
ELSE
Select T_articulos
go top
set order to codigo
thisform.codigc=m.codigo
IF Seek (m.codigo)
m.codigo = codigo
m.nombre = nombre
endif
Select detalle_orden
IF FLOCK ()
set order to rec
set deleted off
go bottom
scatter memvar BLANK
m.rec = rec + 1
IF m.rec = 0
m.rec = 1
ENDIF
m.codigo = thisform.codigc
m.orden = ALLTRIM(thisForm.orden)
m.cantidad = 1
Select vista_detalle_orden
INSERT INTO vista_detalle_orden FROM memvar
replace orden WITH m.orden
Replace codigo with M.CODIGO
Replace cantidad with m.cantidad
Replace descripcion_equipo with m.nombre
replace fecha_equipo WITH DATE()
set deleted on
UNLOCK ALL IN vista_detalle_orden
Select vista_detalle_orden
=TableUpdate (.t., .t.)
EndIf
endif
Valora esta pregunta


0