Borrar registro de tabla almacenamiento en buffer
Publicado por Carlos M. Aguila (7 intervenciones) el 05/12/2006 14:32:03
Estimados amigos
Tengo una tabla con almacenamiento en buffer 5 (optimista), pero al querer eliminar un registro ni siquiera marca los registro para eliminar. A continuación les muestro mi código de mi botón ELIMINAR para que me indiquen donde estoy fallando (Evento click del boton)
lOperacionExitosa=CURSORSETPROP("Buffering",5,'tbPreciosEspeciales') * Ver comentario
DELETE FROM tbPreciosEspeciales WHERE cCodigoArticulo=Codigoarticulo;
AND nRutCliente=thisform.idCliente
BEGIN TRANSACTION * Ver comentario
IF TABLEUPDATE(0,.F.,'tbPreciosEspeciales')=.T.
END TRANSACTION
SELECT tbPreciosEspeciales
PACK
USE
ELSE
=AERROR(aErrorArray)
ROLLBACK
=MESSAGEBOX("Ha ocurrido un error eliminando el registro,";
+ CHR(13)+ "En la tabla PRECIOS ESPECIALES. Error" +STR(aErrorArray);
+ CHR(13)+ "Su ingreso ha sido descartado!",16,"Información")
ENDIF
Este es el código que tengo pero no marca los registros para eliminar.
* Ver comentario= Si elimino este fragmento de código y elimino con DELETE FROM funciona correctamente.
Tengo una tabla con almacenamiento en buffer 5 (optimista), pero al querer eliminar un registro ni siquiera marca los registro para eliminar. A continuación les muestro mi código de mi botón ELIMINAR para que me indiquen donde estoy fallando (Evento click del boton)
lOperacionExitosa=CURSORSETPROP("Buffering",5,'tbPreciosEspeciales') * Ver comentario
DELETE FROM tbPreciosEspeciales WHERE cCodigoArticulo=Codigoarticulo;
AND nRutCliente=thisform.idCliente
BEGIN TRANSACTION * Ver comentario
IF TABLEUPDATE(0,.F.,'tbPreciosEspeciales')=.T.
END TRANSACTION
SELECT tbPreciosEspeciales
PACK
USE
ELSE
=AERROR(aErrorArray)
ROLLBACK
=MESSAGEBOX("Ha ocurrido un error eliminando el registro,";
+ CHR(13)+ "En la tabla PRECIOS ESPECIALES. Error" +STR(aErrorArray);
+ CHR(13)+ "Su ingreso ha sido descartado!",16,"Información")
ENDIF
Este es el código que tengo pero no marca los registros para eliminar.
* Ver comentario= Si elimino este fragmento de código y elimino con DELETE FROM funciona correctamente.
Valora esta pregunta


0