Buffering no trabaja bien

05/11/2004 - 02:03 por Tito Alomia | Informe spam
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
 

Leer las respuestas

#1 Eric de Jesús Muñoz H.
06/11/2004 - 20:08 | Informe spam
Checa que en tu form o proceso no haya alguna parte que mueva el puntero
de registro en la tabla Hstrias, pues eso haría un TABLEUPDATE implícito
si el Buffer lo manejas por fila (3). Te recomiendo usar Buffer 5, aun
cuando solo trabajes con un registro por tabla.

Saludos.

Eric de Jesús Muñoz
Guadalajara, Jal. Mex.


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

PortalFox - NNTP Forum Gateway

Preguntas similares