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

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

#include "BaseDato.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Bdt_NumeroDeCampo()
 * OBJETIVO: Hallar el nmero de un campo a partir de su nombre
 * ENTRADAS: La base de datos, una variable donde dejar el
 *           nmero y una cadena indicando el nombre
 * SALIDAS:  Lgica indicando si el campo existe. El nmero
 *           queda relleno
 * EJEMPLO:  Bdt_NumeroDeCampo (Agenda,&Numero,Nombre)
 *------------------------------------------------------------------*/
logico Bdt_NumeroDeCampo (Base, Numero, Nombre)
basedato  Base;
contador *Numero;
cadena    Nombre;
  {
  logico   Respuesta = NO, Visto = NO;
  contador i;
  char     Aux[11];

  for ( i=0 ; i<Bdt_TotalCampo(Base) && !Visto; i++ )
    {
    Bdt_NombreDeCampo(Base,i,Aux);
    if ( Cad_Igual(Nombre,Aux) )
      {
      Visto = SI;
      Respuesta = SI;
      *Numero = i;
      }
    }

  return ( Respuesta );
  }