$FUNCNAME$
  DBDELETE()
$CATEGORY$
  DATABASE
$SUMMARY$
   Mark a record for deletion
$LANG_RU$
      .
$SYNTAX$
     DBDELETE() --> NIL
$LANG_RU$
     DBDELETE() --> NIL
$RETURNS$
     DBDELETE() always returns NIL.
$LANG_RU$
     DBDELETE()   NIL.
$DESCRIPTION$
     DBDELETE() marks the current record as deleted.  Records marked for
     deletion can be filtered using SET DELETED or removed from the file
     using the PACK command.

     DBDELETE() performs the same function as the standard DELETE command
     with a scope of the current record.  For more information, refer to the
     DELETE command.
$LANG_RU$
     DBDELETE()     . , 
      ,       SET DELETE
          PACK.

     DBDELETE()    ,     DELETE,
        -  .   
        DELETE.
$EXAMPLES$
       The following example deletes a record after a successful
	record lock:

	cLast := "Winston"
	DBUSEAREA( .T., "DBFNTX", "Sales", "Sales", .T. )
	DBSETINDEX( "LASTNAME" )
	//
	IF ( Sales->(DBSEEK(cLast)) )
	   IF Sales->( RLOCK() )
	      Sales->( DBDELETE() )
	      ? "Record deleted: ", Sales->( DELETED() )
	   ELSE
	      ? "Unable to lock record..."
	   ENDIF
	ELSE
	   ? "Not found"
	ENDIF

$SEEALSO$
  DBRECALL()
$END$
