ERROR EN TRIGGER
Publicado por webness (12 intervenciones) el 06/05/2005 22:12:03
HOLA, TEngo este codigo ejecutado al dar clik en el boton eliminar, ya lo ensaye en otro fommulario y me sirvio pero aqui no me deja, el primer formulario no tiene clave principal en su tabla, este segundo SI, sera por eso??, miren el codiguito haber, me sale diske trigger failed
rec=RECNO()
SET DELETED ON
SET EXCLUSIVE ON
USE jalado!clientes IN cClientes ALIAS cClientes EXCLUSIVE
pressed=MESSAGEBOX("ESTA SEGURO QUE DESEAS BORRAR ESTE REGISTRO?",4,"BORRAR CLIENTE")
IF pressed=6
DELETE RECORD rec IN cClientes
PACK IN cClientes
IF rec>1
destiny=rec-1
GOTO destiny IN cCLientes
ENDIF
THISFORM.txtNombres.Value=cClientes.nombres
THISFORM.txtApellidos.Value=cClientes.apellidos
THISFORM.txtIden.Value=cClientes.cedula
THISFORM.txtId.Value=cClientes.idCliente
THISFORM.txtDir.Value=cClientes.direccion
THISFORM.txtTelefono.Value=cClientes.telefono
IF RECCOUNT()=0 OR RECCOUNT()=1
THISFORM.btnAtraz.Enabled= .F.
THISFORM.btnSig.Enabled= .F.
THISFORM.btnBus.Enabled= .F.
ENDIF
ENDIF
rec=RECNO()
SET DELETED ON
SET EXCLUSIVE ON
USE jalado!clientes IN cClientes ALIAS cClientes EXCLUSIVE
pressed=MESSAGEBOX("ESTA SEGURO QUE DESEAS BORRAR ESTE REGISTRO?",4,"BORRAR CLIENTE")
IF pressed=6
DELETE RECORD rec IN cClientes
PACK IN cClientes
IF rec>1
destiny=rec-1
GOTO destiny IN cCLientes
ENDIF
THISFORM.txtNombres.Value=cClientes.nombres
THISFORM.txtApellidos.Value=cClientes.apellidos
THISFORM.txtIden.Value=cClientes.cedula
THISFORM.txtId.Value=cClientes.idCliente
THISFORM.txtDir.Value=cClientes.direccion
THISFORM.txtTelefono.Value=cClientes.telefono
IF RECCOUNT()=0 OR RECCOUNT()=1
THISFORM.btnAtraz.Enabled= .F.
THISFORM.btnSig.Enabled= .F.
THISFORM.btnBus.Enabled= .F.
ENDIF
ENDIF
Valora esta pregunta


0