//*************** Función que sólo permite introducir números en un campo ***************

function esNumero() {

  if (event.keyCode > 47 || event.keyCode < 58) event.returnValue = true;

}

//************** Función que sólo permite introducir mayúsculas en un campo *************

function esMayuscula() {

  if (event.keyCode > 64 || event.keyCode < 91) event.returnValue = true;

}

//************** Función que sólo permite introducir minúsculas en un campo *************

function esMayuscula() {

  if (event.keyCode > 96 || event.keyCode < 123) event.returnValue = true;

}

//******************** Función para comprobar que un mail sea válido ********************

function CompruebaMail(Mail) {

  var reMail = /^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,4})+$/;

  if (reMail.test(Mail)) {

    return true;

  } else {

    alert(Mail + " no es una dirección de correo válida.");
    return false;

  }

}

//**************** Función para comprobar que un campo no esté en blanco ****************

function CompruebaBlanco(Campo, NombreCampo) {

  if (Campo == "") {

    alert('El campo ' + NombreCampo + ' es obligatorio');
    return false;

  } else {

    return true;

  }

}

//*************** Función para comprobar que un campo tenga longitud fija ***************

function CompruebaLongitud(Campo, NombreCampo, Longitud) {

  if (Campo.length != Longitud) {

    alert('El campo ' + NombreCampo + ' debe tener ' + Longitud + ' dígitos');
    return false;

  } else {

    return true;

  }

}

//****************************** Función para abrir popup *******************************

function NuevaVentana (MyURL, MyNombre, Ancho, Alto, PosX, PosY, Botones, CampoURL, BarraEstado, MenuNavegador, Scrolls, Redimensionable) {

  if (PosX == "c") {
    var CoordenadaX = (screen.width - Ancho) / 2;
  } else {
    var CoordenadaX = PosX;
  }

  if (PosY == "c") {
    var CoordenadaY = (screen.height - Alto) / 2;
  } else {
    var CoordenadaY = PosY;
  }

  Propiedades = 'width=' + Ancho + ',height=' + Alto + ',top=' + CoordenadaY + ',left=' + CoordenadaX +
                ',toolbar=' + Botones + ',location=' + CampoURL + ',status=' + BarraEstado +
                ',menubar=' + MenuNavegador + ',scrollbars=' + Scrolls + ',resizable=' + Redimensionable;

  win = window.open(MyURL, MyNombre, Propiedades);

  if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }

}

//*************************** Función para agregar a favoritos **************************

function Favoritos() {

  if ((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 4)) {

    var url = "http://www.edrim.com";
    var titulo = "Drim - Telerad";
    window.external.AddFavorite(url,titulo);

  } else {

    if(navigator.appName == "Netscape")
    alert ("Presione Crtl+D para agregar este sitio en sus Favoritos");

  }

}

//******************* Función para mostrar textos en toolTip y Status *******************

function TextosMouseOver(Alt) {

  toolTip('<table cellspacing=1 cellpadding=1 border=0>' +
            '<tr><td><font style=font-family:Tahoma;font-size:11px;>' +
              Alt +
            '</font></td></tr>' +
          '</table>', '#000000', '#FFFFE1');

  window.status = '::' + Alt;

}

//******************* Función para ocultar textos en toolTip y Status *******************

function TextosMouseOut() {

  toolTip();
  window.status = '';

}

//***************** Función que devuelve el código de la tecla pulsada ******************

function CodigoTecla() {

  var Navegador = (window.Event) ? 1 : 0
  var Codigo = Navegador ? evento.which : event.keyCode
  return Codigo;

}


//*********** Función que comprueba que las teclas pulsadas son SUPR o DELETE ***********

function CompruebaTecla(){

  var Tecla = CodigoTecla();

  if ( ( Tecla == 8 ) && ( tecla == 46 ) ){

    return true;

  }

}