Buffering no trabaja bien

Hola a todos, tengo el sitio inconveniente, tengo una aplicacion
supuestamente multiusuario, el buffermode del formulario lo tengo
establecido en "0-Ninguno", la tabla principal la tengo con la propiedad
BufferModeOverride "3", tengo 3 botones: Nuevo, Guardar,Revertir. En el
evento click del boton Nuevo tengo mas o menos el siguiente codigo:

SELECT hstrias

IF FLOCK()
APPEND BLANK
REPLACE cmntrios WITH DTOC(DATE())+" CONSULTA"+CHR(13)
REPLACE hstria WITH m.hstria
UNLOCK
ELSE
RETRY
ENDIF

En el evento click del boton Guardar tengo el siguiente codigo:

SELECT hstrias

lSuccessful=TABLEUPDATE(.T.)

IF lSuccessful
WAIT WINDOW "Registro guardado" NOWAIT
ELSE
=MESSAGEBOX("Hubo un error al grabar el registro",64,"Error")
=TABLEREVERT()
ENDIF

En el evento click del boton Revertir tengo el siguiente codigo:

SELECT hstrias

nAnswer=MESSAGEBOX("Esta seguro de deshacer los
cambios",4+32+256,"Deshacer")

IF nAnswer=7
RETURN
ENDIF

=TABLEREVERT(.T.,"Hstrias")

WAIT WINDOW "Cambios revertidos" NOWAIT

Lo que me esta pasando es que aunque le doy Revertir me guarda el
registro, y no se porque, si alguien me puede colaborarlo estare
infinitamente agradecido.



Tito Alomia V.
Cali - Colombia
Tel. Cel. (57) 310-4750017
e-mail: <a
href="mailto:titoalomia&#64;hotmail.com">titoalomia&#64;hotmail.com</a>


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway