function SerieMin(longitud){
	if(longitud<00701 || longitud>19999){
	return false;
	}
	return true;
}

function validacionSerie(datos){
	if (datos.txtNumSerie.value==''){
		 alert("Por favor digite el número de Serie del Sistema.");
		      Identificar.txtNumSerie.focus();
		          return false;
	} 
	
	else if (!SerieMin(datos.txtNumSerie.value)){
		 alert("Número de Serie Inválido");
		      Identificar.txtNumSerie.select();
		      return false;	
	}
	
	else{
		location.href = 'http://www.tecsiscr.com/paginas/afiliacion.htm';
		return true;
	}
}

function PasswordCorrecto(Serie, Password){
	var Pass1; 
	var Pass2;
	var Pass3;
	var Pass4;
	var Pass5;
	var Passf;
	var fechaHDia="";
	var fechaHMes="";
	var fechaHAno="";
	var fechaV;
	var fechaH;	
	var fechaV;
	var fechaCtrl;
	var Correcto = 1; 

	var fechaHoy = new Date();
	fechaCtrl = 20100114;

	fechaHAno = ""+fechaHoy.getFullYear() ;
	fechaHDia = ""+fechaHoy.getDate();
        fechaHMes = ""+(fechaHoy.getMonth()+1);
	
	if (fechaHDia.length == 1){

		fechaHDia = "0" + fechaHDia;
	}

	if (fechaHMes.length == 1){
		fechaHMes = "0" + fechaHMes;
	}

	fechaH = "" + fechaHAno + fechaHMes + fechaHDia;

	var x = -2;
	var fin;
	var i;

	Pass1= Serie.substr(0,3);
	Pass2= (Serie.substr(3,2));
	if (Pass2.length > 1) {
	   if (Pass2.substr(0,1)=="0") {
		Pass2=Pass2.substr(1,Pass2.length);
	   }
        }
	Pass2=parseInt(Pass2)+1;
	Pass3= Pass1/(Pass2);
	Pass4="" +(Serie*Pass3);
	Passf=Password;
	fin = "";
	Pass5 ="";
	for(i = 0; i<Pass4.length;i++){
		if(Pass4.charAt(i)!="."){
			Pass5 = Pass5 + Pass4.charAt(i);
		}else{
			break;		
		}
	}
	fechaV="" + (Passf/(Pass5));	
	if (fechaV.substr(0,4)<2004 || fechaV.substr(0,4)>2010) {
		Correcto = 0;
	}else{
		if(fechaV.substr(4,2)==0|| fechaV.substr(4,2)>12){
			Correcto = 0;
		}else{
			if(fechaV.substr(6,2)==0|| fechaV.substr(6,2)>31){
				Correcto = 0;
			}
		
		}
	} 
	
	if (parseInt(fechaV)<parseInt(fechaH)){
		Correcto = 0;
	}

	if (parseInt(fechaH)<fechaCtrl){
		Correcto = 0;
	}

	if(Correcto==0){
		return false;
	}else{
		return true;
	}

}

function validacionDatos(datos){
	if (datos.txtNumSerie.value==''){
		 alert("Por favor digite el numero de Serie del Sistema");
		      Identificar.txtNumSerie.focus();
		          return false;
	} 
	
	else if (!SerieMin(datos.txtNumSerie.value)){
		 alert("Número de Serie Inválido");
		      Identificar.txtNumSerie.select();
		      return false;	
	}
	
	else if (!PasswordCorrecto(datos.txtNumSerie.value, datos.txtPassword.value)){
		 alert("Password incorrecto");
		      Identificar.txtNumSerie.select();
		      return false;	
	}
	else{
		location.href = "http://www.tecsiscr.com/paginas/millenium_d.htm";
		return true;
	}
}