/*--------------------------------------------------------------------
 * FICHERO:  BdtMarRe.c
 * OBJETIVO: Definir la funcin interna Bdt_MarcaRegistro()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.7.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "BaseDato.h"

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * FUNCION:  Bdt_MarcaRegistro()
 * OBJETIVO: Poner en un registro un carcter en la posicin de borrado
 * ENTRADAS: La base de datos, el nmero de registro y el carcter
 * SALIDAS:  Lgica indicando si el registro se ha modificado
 * NOTAS:    1. Los registros se cuentan a partir de 0
 *           2. El registro actual en memoria queda ste
 * EJEMPLO:  Bdt_MarcaRegistro (Agenda,1,'*')
 *------------------------------------------------------------------*/
logico Bdt_MarcaRegistro (Base, Numero, Marca)
basedato Base;
entero   Numero;
char     Marca;
  {
  logico Respuesta = NO;

  if ( Bdt_LeeRegistro (Base,Numero) )
    {
    Bdt_InfoActual(Base)[0] = Marca;
    if ( Bdt_EscribeRegistro (Base,Numero) )
      { Respuesta = SI; }
    }

  return ( Respuesta );
  }