FoxPro/Visual FoxPro - AYUDA CON EL COMANDO Tablerevert

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA CON EL COMANDO Tablerevert

Publicado por Ernesto Hernandez (4623 intervenciones) el 15/04/2015 18:44:15
Puedes crear un CommandButton y poner lo siguiente

IF MessageBox( " Estás seguro de borrar el registro ? ", 4 ) = 6
SELECT MyView && la vista que tienes
=TABLEREVERT(.T.)
ThisForm.MyGrid.Refresh
ENDIF

No olvides poner el SET DELETE ON en el INIT de la Forma

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar