function ComprobarNum(Cadena) {

for (var x=0; x<cadena.length;x++) {
c= cadena.substring(x,x+1)
if (c<"0"||c>"9") {
alert("No es un valor numérico correcto")
return false
} // del if
} // del for
return true 
} // de comprobarNum

function EsCampoNoVacio2(campoForm)
{
if (campoForm.value == "")
  {
    alert("Por favor, rellene el campo " + campoForm.name + ".");
    campoForm.focus();
    return (false);
  }
}
function EsCampoNoVacio(campoForm)
{
if (campoForm.value == "")
  {
    alert("Por favor, rellene el campo obligatorio.");
    campoForm.focus();
    return (false);
  }
}
/* Toma los max primeros caracteres de una cadena de texto s*/ 
function Trim(s,max) {
var maxlength = 135; // Change number to your max length.
if (s.value.length > max) 
s.value = s.value.substring(0,max);
}

function EsEmail ( campoemail )
{

if (campoemail.value == "")
  {
    alert("Por favor, rellene el campo " + campoemail.name + ".");
    campoemail.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789@.-_ \t\r\n\f";
  var checkStr = campoemail.value ;
  var allValid = true;
  var arrobas = 0;
  var puntos = 0;
  for (i = 0;  i < checkStr.length;  i++)
  { 
    
//  alert( checkStr );
    ch = checkStr.charAt(i);
    if (ch=="@") arrobas++ ;
    if (ch==".") puntos++ ;

    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if ( (!allValid)  || ( arrobas != 1 ) ||  (puntos < 1) )
  {
//  alert(puntos);
//  alert(allValid);
//  alert(arrobas);
    alert("Dirección e-mail incorrecta");
    campoemail.focus();
    return (false);
  }
  return (true);
}
/* esta version no admite espacios en blanco en el correo ni otros caracteres raros */
function EsEmail2 ( campoemail )
{

if (campoemail.value == "")
  {
   /* alert("Por favor, rellene el campo " + campoemail.name + "."); */
    alert("Por favor, rellene el campo del correo electronico.");
    campoemail.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789@.";
  var checkStr = campoemail.value ;
  var allValid = true;
  var arrobas = 0;
  var puntos = 0;
  for (i = 0;  i < checkStr.length;  i++)
  { 
    
//  alert( checkStr );
    ch = checkStr.charAt(i);
    if (ch=="@") arrobas++ ;
    if (ch==".") puntos++ ;

    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if ( (!allValid)  || ( arrobas != 1 ) ||  (puntos < 1) )
  {
//  alert(puntos);
//  alert(allValid);
//  alert(arrobas);
    alert("Dirección e-mail incorrecta");
    campoemail.focus();
    return (false);
  }
  return (true);
}


function EsTexto (campo)
{

  if (campo.value == "")
  {
    alert("Por favor, rellene el campo " + campo.name + ".");
    campo.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyzƒªáéíóúÁÉÍÓÚàèìòùÀÈÌÒÙâêîôûÂÊÎÔÛ'.,()- \t\r\n\f";
  var checkStr = campo.value;
  var allValid = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Por favor, rellene correctamente el campo " + campo.name + ".");
    campo.focus();
    return (false);
 }
}


function EsTextoCombo (combo)
{
  if (combo.selectedIndex == 0)
  {
    alert("Por favor, seleccione un valor de la lista " + combo.name + ".");
    combo.focus();
    return (false);
  }
  return (true);
}


function EsTextoNumero (campo)
{

  if (campo.value == "")
  {
    alert("Por favor, rellene el campo " + campo.name + ".");
    campo.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyzƒªáéíóúÁÉÍÓÚàèìòùÀÈÌÒÙâêîôûÂÊÎÔÛ'0123456789,-.º()/ \t\r\n\f";
  var checkStr = campo.value;
  var allValid = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Por favor, rellene correctamente el campo " + campo.name + ".");
    campo.focus();
    return (false);
 }
}
/* esta version no admite espacios en blanco ni caracteres raros*/
function EsTextoNumero2 (campo)
{

  if (campo.value == "")
  {
    alert("Por favor, rellene el campo " + campo.name + ".");
    campo.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz'0123456789";
  var checkStr = campo.value;
  var allValid = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Por favor, rellene correctamente el campo " + campo.name + ".");
    campo.focus();
    return (false);
 }
}


function EsNumero (campo, minlength)
{
if (campo.value == "")
  {
    alert("Por favor, rellene el campo " + campo.name + ".");
    campo.focus();
    return (false);
  }

  if (campo.value.length < minlength)
  {
    alert("Por favor, introduzca al menos " + minlength + " dígitos en el campo " + campo.name + ".");
    campo.focus();
    return (false);
  }

  var checkOK = "0123456789-,.";
  var checkStr = campo.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ",")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ".")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("Por favor, introduzca sólo dígitos.");
    campo.focus();
    return (false);
  }
}
function EsNumero2 (campo)
{
  var checkOK = "0123456789";
  var checkStr = campo.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Por favor, introduzca sólo dígitos.");
    campo.focus();
    return (false);
  }
}