<!--
var caracs = new Array();
function ValidaMail(cadena){
var i, j, dsd, prm,cont;

llenarArray();

cad = cadena;

cad = '' + cad;
cade = cad.split(" ");
if (cade.length > 1){
	return false;
	}

for (i=0;i< cadena.length; i++){
  for (j=0; j< caracs.length; j++){
   	 if (cadena.indexOf(caracs[j]) != -1){
	 	    return false;
	  }
	}
  } 
prm = cadena.charAt(0) + cadena.charAt(1) + cadena.charAt(2) + cadena.charAt(3);
if (prm == "www.") {
 return false;
}

dsd = cadena.split("@");
 if (dsd[1] == null){ 
       return false;
 	  }
     else{
     if ((dsd[0].lenght < 3) || (dsd[1] == "")){   
          return false;
     }
 }

if ((dsd[1].indexOf("-") != -1) || (dsd[1].indexOf("_") != -1)){
return false;
}
prm = cadena.charAt(0)
if ((prm == ".") || (prm == "_") || (prm == "-") || (prm == "@")){
 return false;
}
prm = cadena.charAt(cadena.length - 2);
if ((prm == ".") || (prm == "_") || (prm == "-") || (prm == "@")){
   return false;
}
prm = cadena.charAt(cadena.length - 1);
if ((prm == ".") || (prm == "_") || (prm == "-") || (prm == "@")){
   return false;
}
for (i=1;i <= cadena.length; i++)
{
  prm = cadena.charAt(i);
  if ((prm == ".") || (prm == "-") || (prm == "_")){
    prm = cadena.charAt(i+1);	
	  if ((prm == ".") || (prm == "-") || (prm == "_")){
 	    return false;
 	  }
   } 
}
cont = 0;
prm = "@"
for (i=1;i <= cadena.length; i++){
  if (cadena.charAt(i) == prm) {
   cont = cont +1;}
   if (cont >1) {
     return false;
   }
}

if ((cadena.charAt(cadena.length-5)) == "."){
 var cad;
  cad = cadena.split(".")
     if (cad[0] == "www"){
		 return false;
		 }
 
     if ((cad[cad.length -1] != "info") && (cad[cad.length -1] != "name")) { 
	    return false; 
      }
  }
if ((cadena.charAt(cadena.length -3)) != "." && (cadena.charAt(cadena.length -4) != ".") && (cadena.charAt(cadena.length -5) != ".")){
   return false;
}
return true;

}

function llenarArray(){
    caracs[0] = "\\";  caracs[1] = "/";  caracs[2] = "º";  caracs[3] = "ª";  caracs[4] = "!";  caracs[5] = "|";
    caracs[6] = "#";   caracs[7] = "$";  caracs[8] = "%";  caracs[9] = "&";  caracs[10] = "("; caracs[11] = ")";
    caracs[12] = "=";  caracs[13] = "?"; caracs[14] = "¿"; caracs[15] = "'"; caracs[16] = "^"; caracs[17] = "*";
    caracs[18] = "¨";  caracs[19] = "Ç"; caracs[20] = "ç"; caracs[21] = "}"; caracs[22] = "{"; caracs[23] = ";";
    caracs[24] = ",";  caracs[25] = "€"; caracs[26] = "<"; caracs[27] = ">"; caracs[28] = "¬"; caracs[29] = "+";
    caracs[30] = "´";  caracs[31] = ":"; caracs[32] = " ";   
}

/*OK
Cambia los espacios en blanco por la marca &nbsp;
cadena - cadena de caracteres
Devuelve la cadena con las marca de espacio blanco.
*/
function cambia_blancos(cadena)
	{
	Count=0;
	stotal="";
	for (Count=0; Count < cadena.length; Count++)
		{
		Char = cadena.substring(Count, Count+1);
		if (Char != " ")
			stotal+=Char;
		else
			stotal+="%20";
		}
	return(stotal);
    }

/*OK
Comprueba si el numero esta formado unicamente por caracteres numericos
numero - cadena a comprobar
Devuelve True si la cadena esta formada solo por numeros, False e.o.c.
*/
function es_numero(numero)
	{
	var checkOK = "0123456789";
	var checkStr = numero;
	var allValid = true;
	var allNum = "";
	var X = "";
    if (numero=="")
    {
		return(false);
    }
	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;
			}
		allNum += ch;
		}

	if (!allValid)
		{
		return (false);
		}
	return(true);
	}

/*OK
Comprueba que una fecha se introduzca en el formato dd/mm/aa o dd/mm/aaaa
fecha - cadena de caracteres (fecha a comprobar)
Devuelve True si el formato de la fecha es correcto y False e.c.c.
Necesita la funcion: es_numero(x)
*/
function valida_fecha(fecha)
	{
	if (fecha != "")
		{
		if (fecha.length < 8)
			{
			alert("Introduzca la fecha con formato: DD/MM/AAAA.");
			return(false);
			}
		var part1=fecha.substring(0,2);
		if (!es_numero(part1))
			{
			alert("Las fechas deben tener formato numérico.");
			return(false);
			}
		if (fecha.substring(2,3) != "/")
			{
			alert("Introduzca la fecha con formato: DD/MM/AAAA.");
			return(false);
			}

		var part2=fecha.substring(3,5);
		if (!es_numero(part2))
			{
			alert("Las fechas deben tener formato numérico.");
			return(false);
			}
		if(part2 < 10)
			{
			part2 = "0" + part2;
			}
		if (fecha.substring(5,6) != "/")
			{
			alert("Introduzca la fecha con formato: DD/MM/AAAA.");
			return(false);
			}
		var part3=fecha.substring(6,10);
		if (!es_numero(part3))
			{
			alert("Las fechas deben tener formato numérico.");
			return(false);
			}
		return (true);
		}
	else
		{
			alert("Introduzca la fecha con formato: DD/MM/AAAA.");
			return(false);
		}
	}

//----------------------------------------------------
//Abre una ventana nueva.
function abreventana(detalle) {
	var ancho;
	var alto;
	ancho=583;
	alto=420;
	var propiedades="scrollbars=no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,width="+ancho+",height="+alto+",top=0,left=0";
	window.open(detalle,"siacajasegovia",propiedades);
}
//----------------------------------------------------
//Abre una ventana nueva no visible.
function abrecierra(detalle) {
	var ancho;
	var alto;
	ancho=10;
	alto=10;
	var propiedades="scrollbars=no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,width="+ancho+",height="+alto+",top=2000,left=2000";
	window.open(detalle,"siacajasegovia",propiedades);
}
/*
añade ceros por la izda hasta alcanzar la longitud.
lon - longitud minima de la cadena
cadena - cadena de caracteres
Devuelve la cadena con ceros por la izq y con la longitud minima indicada
*/
function pon_ceros(cadena,lon)
{
	Count=0;
	stotal=cadena;
	tam=cadena.length;
	if (tam < lon)
		for (Count=tam;Count < lon;Count++)
    		stotal="0"+stotal
	return(stotal);
}	
//----------------------------------------------------
//Comprueba que el datos sea numerico
function EsNumero(Dato)
   {
    numeros = "0123456789";
	var caracter;
	var contador = 0;
	for (var i=0; i < Dato.length; i++)
	  {
	   caracter = Dato.charAt(i);
	   if (numeros.indexOf(caracter) >= 0)
	   {
	     contador++;
		 }
       }
    if (contador == Dato.length)
	{
     return (true);
	 }
	 else
	  return (false);
    }
function iseuro(cad1)
	{
	var checkOK="0123456789,";
	var checkStr=cad1;
	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)
			return(false);
		}
	return(true);
	}
function importe_euro(valor)
{
 
 if (valor!=""){
    x = valor.replace(",",".") * 100;
    x=Math.round(x)
	if (x<10)
	 {
	  x="0"+x
	 }
	valor = ""+x
	 if(valor.length < 3)
	 {
	  valor="0,"+ valor.substring(valor.length-2,valor.length);
	 }
	 else
	 {
	  valor= valor.substring(0,valor.length-2)+","+ valor.substring(valor.length-2,valor.length);
	 }
	}
	return(valor);

}

function comprueba_importe(Importe)
{
 if (Importe == 0) {
     alert("Debe introducir el Importe");
     return(false);
 }
 else {
    if (Importe.substring(Importe.length-3,Importe.length-2) != ",") {
	   if (Importe.substring(Importe.length-2,Importe.length-1) != ",") {
		    Importe = Importe+",00";
			//alert("Debe introducir el Importe con formato '00,00'");
			//return(false);
	     }
	   else {
		    Importe=Importe+"0";
	     }
	  }
    if ((!EsNumero(Importe.substring(0,Importe.length-3)))||(!EsNumero(Importe.substring(Importe.length-1,Importe.length))))
	  {
		 alert("En el importe solo puede introducir números y la coma decimal");
		 return(false);
	  }
  }
  return(true);
}

function quita_caracter(cadena,caracter)
	{
	Count=0;
	Char="0";
	var stotal="";
	for (Count=0; Count < cadena.length; Count++)
		{
		Char = cadena.substring(Count, Count+1);
		if (Char != caracter)
			stotal+=Char;
		}
	return(stotal);
	}

//----------------------------------------------------
//-----------------------------------------------------------
// Calculo letra D.N.I.
// Entrada DNI valor
// Devuelve la letra correspondiente
function calcletra(dni)
{
var JuegoCaracteres="TRWAGMYFPDXBNJZSQVHLCKET";
var Posicion= dni % 23;
var Letra = JuegoCaracteres.charAt(Posicion);
return Letra; 
}
-->
-->