function checkMail(obj, descrip, l) {
	var x = obj.value;
	var filter  = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$/;
	if (filter.test(x)==false) {
		if(l==1) {
			alert("La dirección de " + descrip + " no es válida");
			} else { 
			alert("The " + descrip + " address is not valid");
			}
		obj.focus();
		return false;
		} else {
		return true;
		}
	}

function is_numeric(obj, descrip, l) {
	if(l==1) { 
		m = "Por favor indique sólo números " + descrip;
		} else {
		m = "Please indicate only numbers " + descrip;
		}
	if(isNaN(obj.value)) {
		alert(m);
		obj.focus();
		obj.select();
		return false;
		}
	}

function chk_dat(obj, descrip, l) {
if (isdate(obj, l)==false) {
	if (l==1) alert(descrip + " es incorrecta, el formato debe ser dd-mm-aaaa")
	else alert(descrip + " is incorrect, the format should be mm-dd-yyyy")
	obj.focus()
	return false}
}

function chk_txt(obj, descrip, l) {
if (obj.value.length == 0) {
	if (l==1) alert("Por favor indique " + descrip)
	else alert("Please indicate " + descrip)
	obj.focus()
	return false}
}

function chk_int(obj, descrip, l) {
if (obj.value.length == 0) {
	if (l==1) alert("Por favor indique " + descrip)
	else alert("Please indicate " + descrip)
	obj.focus()
	return false}
if (isinteger(obj.value) == false) {
	if (l==1) alert("Por favor indique sólo números en este campo")
	else alert("Please indicate only numbers in this field")
	obj.focus()
	return false}
}

function chk_rad(obj, descrip, l) {
seleccionado = 0
for (var i = 0; i < obj.length; i++) {if (obj[i].checked=="1") seleccionado = 1}
if (seleccionado == 0) {
	if (l==1) alert("Por favor indique " + descrip)
	else alert("Please indicate " + descrip)
	obj[0].focus()
//	self.scroll(0,-1)
	return false}
}

function chk_chk(obj, descrip, l) {
seleccionado = 0
for (var i = 0; i < obj.length; i++) {if (obj[i].checked=="1") seleccionado = 1}
if (seleccionado == 0) {
	if (l==1) alert("Por favor indique " + descrip)
	else alert("Please indicate " + descrip)
	obj[0].focus()
//	self.scroll(0,20)
	return false}
}

function chk_chk_sin_mensaje(obj) {
seleccionado = 0
for (var i = 0; i < obj.length; i++) {if (obj[i].checked==true) seleccionado = 1}
if (seleccionado == 0) {
	return false}
return true
}


function chk_sel(obj, descrip, l) {
if (obj.selectedIndex == -1) {
	if (l==1) alert("Por favor indique " + descrip)
	else alert("Please indicate " + descrip)
	obj.focus()
//	self.scroll(0,-1)
	return false}
}

function get_date(obj, l) {

isplit = obj.value.indexOf('-');

if (l==1) {
	sDay = obj.value.substring(0, isplit);
	if (sDay.length == 0)
		return false}
else {
	sMonth = obj.value.substring(0, isplit);
	if (sMonth.length == 0)
		return false}

isplit = obj.value.indexOf('-', isplit + 1);

if (l==1) {
	sMonth = obj.value.substring((sDay.length + 1), isplit);
	if (sMonth.length == 0)
		return false}
else {
	sDay = obj.value.substring((sMonth.length + 1), isplit);
	if (sDay.length == 0)
		return false}

sYear = obj.value.substring(isplit + 1);

fecha = new Date(sYear, sMonth, sDay)

return fecha
}



function isdate(obj, l) {
if (obj.value.length == 0)	return false

isplit = obj.value.indexOf('-');

if (isplit == -1 || isplit == obj.value.length)	return false

if (l==1) {
	sDay = obj.value.substring(0, isplit);
	if (sDay.length == 0)
		return false}
else {
	sMonth = obj.value.substring(0, isplit);
	if (sMonth.length == 0)
		return false}


isplit = obj.value.indexOf('-', isplit + 1);

if (isplit == -1 || (isplit + 1 ) == obj.value.length)	return false

if (l==1) {
	sMonth = obj.value.substring((sDay.length + 1), isplit);
	if (sMonth.length == 0)
		return false}
else {
	sDay = obj.value.substring((sMonth.length + 1), isplit);
	if (sDay.length == 0)
		return false}

sYear = obj.value.substring(isplit + 1);

	if (!isinteger(sMonth)) //check month
		return false;
	else
	if (!chk_range(sMonth, 1, 12)) //check month
		return false;
	else
	if (!isinteger(sYear)) //check year
		return false;
	else
	if (!chk_range(sYear, 1850, 2100)) //check year
		return false;
	else
	if (!isinteger(sDay)) //check day
		return false;
	else
	if (!chk_day(sYear, sMonth, sDay)) // check day
		return false;
	else
		return true;
    }


function isdate_fixed_a_m_d(obj) {
if (obj.value.length == 0)	return false

isplit = obj.value.indexOf('-');

if (isplit == -1 || isplit == obj.value.length)	return false

	sYear = obj.value.substring(0, isplit);
	if (sYear.length == 0) return false

isplit = obj.value.indexOf('-', isplit + 1);

if (isplit == -1 || (isplit + 1 ) == obj.value.length)	return false

	sMonth = obj.value.substring((sYear.length + 1), isplit);
	if (sMonth.length == 0)	return false

sDay = obj.value.substring(isplit + 1);
	if (sDay.length == 0)	return false


	if (!isinteger(sMonth)) //check month
		return false;
	else
	if (!chk_range(sMonth, 1, 12)) //check month
		return false;
	else
	if (!isinteger(sYear)) //check year
		return false;
	else
	if (!chk_range(sYear, 1850, 2100)) //check year
		return false;
	else
	if (!isinteger(sDay)) //check day
		return false;
	else
	if (!chk_day(sYear, sMonth, sDay)) // check day
		return false;
	else
		return true;
    }	
	
	

function chk_day(checkYear, checkMonth, checkDay)  {

	maxDay = 31;

	if (checkMonth == 4 || checkMonth == 6 ||
			checkMonth == 9 || checkMonth == 11)
		maxDay = 30;
	else
	if (checkMonth == 2)
	{
		if (checkYear % 4 > 0)
			maxDay =28;
		else
		if (checkYear % 100 == 0 && checkYear % 400 > 0)
			maxDay = 28;
		else
			maxDay = 29;
	}
	return chk_range(checkDay, 1, maxDay); //check day
}



function isinteger(object_value) {
entero = "0123456789"
	for (var i = 0; i < object_value.length; i++)
	{
		check_char = entero.indexOf(object_value.charAt(i))
		if (check_char < 0) {return false}
	}
	{return true}
}

function chk_range(object_value, min_value, max_value) {
// check minimum
if (min_value != null) {
	if (object_value < min_value)
		return false;
	}
// check maximum
if (max_value != null) {
	if (object_value > max_value)
		return false;
	}
return true;
}