// Manda a la impresora el doc html
  function imprimir() {
    if (window.print)
      window.print()
    else
      alert("Disculpe, su navegador no soporta esta opción.");
  }

  // Guarda el doc html en disco
  function guardar() {
    window.document.execCommand('saveas');
  }

  // Funcion que limpia todos los campos del cuestionario
  function limpiar(){
    document.user.reset();
  }
  // Abre una ventana emergente
  function PopUpFrm(URL){
    day = new Date();
    id = day.getTime();
    eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0, scrollbars=1,location=0,statusbar=0, menubar=0, resizable=0, width=800, height=500,left = 0,top = 0');");
  }

  // Regresa una cadena después de eliminados los espacios en la misma.
  function trim(cadena){
   /* Autor: Jesus Parra (jparra@programmer.net)*/

   for(i=0; i<cadena.length; ){
    if(cadena.charAt(i)==" ")
      cadena=cadena.substring(i+1, cadena.length);
    else
      break;
   }

   for(i=cadena.length-1; i>=0; i=cadena.length-1){
    if(cadena.charAt(i)==" ")
      cadena=cadena.substring(0,i);
    else
      break;
   }

   return cadena;
  }


 // Regresa la longitud de una cadena después de eliminados los espacios en la misma.
  function trim_long(cadena){
   /* Autor: Jesus Parra (jparra@programmer.net)*/
    for(i=0; i<cadena.length; ){
    if(cadena.charAt(i)==" ")
      cadena=cadena.substring(i+1, cadena.length);
    else
      break;
   }

   for(i=cadena.length-1; i>=0; i=cadena.length-1){
    if(cadena.charAt(i)==" ")
      cadena=cadena.substring(0,i);
    else
      break;
   }
   return cadena.length;
  }

  // Permite que se tecleen sólo caracteres numéricos.
  function SoloNum(e)
  {
   var correctos = new Array("0","1","2","3","4", "5","6","7","8","9")
   var estado=false;
   var codigoTecla, cadenaTecla;
   estado=false;

   if(document.all)
   {
    codigoTecla = event.keyCode
    cadenaTecla = (String.fromCharCode(event.keyCode));
   }
   else if(document.layers)
   {
    codigoTecla = e.which
    cadenaTecla = String.fromCharCode(e.which);
   }
   else if(document.getElementById)
   {
    codigoTecla = (window.Event) ? e.which : e.keyCode;
    cadenaTecla=(String.fromCharCode(codigoTecla));
   }

   for(i=0;i<correctos.length;i++)
   {
    if(cadenaTecla==correctos[i])
      estado=true;
   }

   if(estado==false)
   {
     if(document.all)
       event.returnValue = false;
     else
       return false;
   }
  }

  // No permite que se haga clic derecho sobre la pagina.
  function click(e) {
   var message="El botón derecho del mouse se encuentra desactivado";
   if (document.all) {
     if (event.button == 2) {
       alert(message);
       return false;
     }
   }
   if (document.layers){
     if (e.which == 3) {
       alert(message);
       return false;
     }
   }
  }

  // Convierte una cadena a mayúsculas.
  function mayusculas(cadena)
  {
    var i = 0;
    var cadaux = "";
    cadena = cadena.toUpperCase();
    if ((cadena != "") && (cadena != "-"))
    {
      if (cadena.charAt(0) == " ")
      {
        cadena = cadena.substring(1,cadena.length);
      }
      if (cadena.charAt(cadena.length-1) == " ")
      {
        cadena = cadena.substring(0,cadena.length-1);
      }
      while (i<cadena.length)
      {
        switch (cadena.charAt(i))
        {
          case "Á" : cadaux = cadaux + "A"; break;
          case "É" : cadaux = cadaux + "E"; break;
          case "Í" : cadaux = cadaux + "I"; break;
          case "Ó" : cadaux = cadaux + "O"; break;
          case "Ú" : cadaux = cadaux + "U"; break;
          default : cadaux = cadaux + cadena.charAt(i); break;
        }
        i++;
      }
    }
    return(cadaux);
  }

  function elimina(cadena)
  {
    for (i=0;i<14;i++)
    {
      if (cadena.indexOf(PreArray[i]) > -1)
      {
        if (cadena.indexOf(PreArray[i]) == 0)
        {
          cadena = cadena.substring(PreArray[i].length,cadena.length);
        }
        else
        {
          cadena = cadena.substring(0,cadena.indexOf(PreArray[i])) + cadena.substring(cadena.indexOf(PreArray[i])+PreArray[i].length,cadena.length);
        }
      }
    }
    return(cadena);
  } // Fin de la función elimina