/*--------------------------------------------------------------------
 * FICHERO:  BdtNomCa.c
 * OBJETIVO: Definir la funcin Bdt_NombreDeCampo()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.7.1995
 *------------------------------------------------------------------*/

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

#include "BaseDato.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Bdt_NombreDeCampo()
 * OBJETIVO: Decir el nombre de un campo a partir de su nmero
 * ENTRADAS: La base de datos, el nmero de campo y la cadena
 *           donde dejar el nombre
 * SALIDAS:  Lgica indicando si el campo existe. La cadena
 *           queda rellena
 * EJEMPLO:  Bdt_NombreDeCampo (Agenda,1,Aux)
 * NOTAS:    1. La cadena reservada debe tener 11 octetos
 *              (o ms)
 *           2. Los campos se numeran desde 0
 *------------------------------------------------------------------*/
logico Bdt_NombreDeCampo (Base, Numero, Aux)
basedato Base;
contador Numero;
cadena   Aux;
  {
  logico Respuesta;

  if ( Numero < 0 || Numero >= Bdt_TotalCampo(Base) )
    { Respuesta = NO; }

  else
    {
    Respuesta = SI;
    Cad_Copia (Aux,Bdt_DescriptoresCampo(Base)+Numero*BDT_LONGDESCRIPTOR);
    }

  return ( Respuesta );
  }