RE:SENTENCIA SET DELETE ON
Hola Daniela :
Despues de varios meses que vuelvo a entrar a este foro que me ayudo en mis inicios y justo buscando un ejemplo que vi anteriormente.
Para que tengas una mejor idea, a continuacion te muestro un ejemplo mas avanzado y practico que vengo utilizando en mis formularios.
Evento : CLICK
#DEFINE MSGBOX_YES 6
#DEFINE C_MSGBOX1 36
#DEFINE C_DELETE_LOC "¿Esta seguro de Eliminar el Registro?"
ELIMINA2 = " Orden Nro." + STR(Thisform.PRES_ORD.Value,4,0) +"/"+ PADL(Thisform.ORDEN_P.Value,6,"0")
**********************************************
* REALIZA LA BUSQUEDA DE LA ORDEN A ELIMINAR *
**********************************************
SELECT 1
Use PRESTADO Index PRESTAS
IF MESSAGEBOX(C_DELETE_LOC + CHR(13)+ ;
ELIMINA2,C_MSGBOX1, "Atención" ) = MSGBOX_YES
SEEK STR(Thisform.PRES_ORD.Value,4,0) + STR (Thisform.ORDEN_P.Value,6,0)
IF FOUND()
SET DELETE ON
DELETE
WAIT WINDOW "Eliminando el Registro..." TIMEOUT .5
SCATTER MEMVAR
Thisform.Refresh
ENDIF
ENDIF
Espero haber respondido acertadamente a tu pregunta....
Saludos
GABRIEL
(Lima-Perú