Rollback

Parece dificil la cosa ;((
Saludos.!

"Edwin Torres" escribió en el mensaje
news:

Hola a Todos!!!
Alguien me puede dar un ejemplo de como usar un Rollback cuando exista un
error en el sistema usando tablas de VFP8??

Gracias!!!!

Edwin, te envio este ejemplo simplificado para menejo de errores, pero en mi
caso son vistas remotas. Espero que te sirva el modelo, para el caso que vos
necesitas:

IF TABLEUPDATE(.F.,.T.,"vLegajos")
*grabar registros desde el bufer de filas
IF SQLCOMMIT(vnHandle) < 0
AERROR(mError)
MESSAGEBOX("Error al enviar los datos a grabar" +
mError[1,2],0+64,"Gestión de Personal")
ELSE
*se grabaron correctamente los cambios
..
ENDIF
ELSE
*si no se pudo aplicar el tableupdate, deshace los cambios
IF SQLROLLBACK(vnHandle) < 0
*error al cancelar, carga la matriz de errores
AERROR(mError)
MESSAGEBOX("Error al cancelar la grabación de datos de Servicios
Anteriores" + mError[1,2],0+64,"Gestión de Personal")
ELSE
*se cancelo la grabacion
MESSAGEBOX("Se canceló la grabación de datos",0+64,"Gestión de
Personal")
ENDIF
ENDIF


Saludos