FoxPro/Visual FoxPro - Eliminar un registro

Hola amigos tuve un problema en un parcial de programación, el profesor me pedía marcar un registro y luego eliminarlo, también tenía que aplicar el comando de búsqueda LOCATE y la función FOUND!! Yo lo desarrollé de esta manera y me tiraba un error, espero que alguien me pueda dar una mano!



Desde ya muchas gracias a todos, espero sus respuestas!!! Saludossss!

No sé en que versión de FoxPro es lo que escribes. Se ve muy viejo.
1) Si tienes que borrar un registro de una tabla, primero debes seleccionar la tabla
2) Si la búsqueda es con LOCATE, debes usar el comando en alguna parte
3) Accept es algo obsoleto.

Supongamos que tenemos una tabla llamada personas.dbf y que tiene un campo llamado "NOMBRE"

USE personas IN 0 EXCLUSIVE
lcNombre="PEREZ JORGE"
&& ó STORE "PEREZ JORGE" TO lcNombre
SELECT PERSONAS
LOCATE FOR ALLTRIM(nombre)==lcNombre
IF FOUND()
lnMess=Messagebox("Desea borrar "+trim(personas.nombre)+"?",4,"Borrando")
if lnMess=6
DELETE
PACK && no es recomendable usar pack en medio de una rutina. Debería usarse luego
MESSAGEBOX("Registro Borrado")
else
MESSAGEBOX("No se ha borrado el registro")
endif
ELSE
MESSAGEBOX(lcNombre+" no existe")
ENDIF
USE

En todo caso, si utilizas WAIT en lugar de MESSAGEBOX, quita ese igual que no va.
Fijate que en FoxPro el cierre de la estructura condicional es ENDIF (todo junto).

Está muy viejita esa sentencia, ni sabía que habia una funcion "accept"

saludos.

Hola José, tengo la versión 9.0 de VFP! Ahora voy a probar tu solución, por esas casualidades no tenes para recomendarme un buen tutorial? Abrazo!

El mejor tutorial que conozco es la Ayuda de VFP9. Está en inglés.
Podrás encontrar una gran cantidad de trabajos en www.Portalfox.com

Puedes encontrar el ayuda en español del VFP 8 en http://www.portalfox.com/press/index8.htm