Sintaxis: | DBDELETE() -> NIL
|
DBDELETE() marca el registro actual como borrado. Para borrar definitivamente los registros utilizaremos el mandato PACK y los filtraremos con el mandato SET DELETED. DBDELETE() hace lo mismo que el mandato DELETE. En entorno de red es necesario bloquear el registro a borrar.
Ejemplo:
USE Empleados INDEX Empleado
cApellidos := "Martínez"
IF DbSeek( cApellidos )
IF Alert( "Borrar", { "NO", "Sí" } ) = 2
DBDELETE()
ENDIF
ELSE
? "No se encuentra"
ENDIF