<!--

function IsMail(oMail)
{
	var sPatron = /^[a-z][a-z-_0-9.]+@[a-z-_=>0-9.]+.[a-z]{2,3}$/i //Formato de direccion de correo electronico
	if(oMail.value!="") 
	{	if (!sPatron.test(oMail.value)) {
			alert("Ingrese un formato correcto de email.");
			oMail.focus();oMail.select();}		
	}
	return (false);
}

//-

function valida(sCadena)
{
	var strCadena = new String(sCadena);
	var sMensajeError
	strCadena = strCadena.toUpperCase();

	valido = "ABCDEFGHIJKLMÑNOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyzáéíóúÁÉÍÓÚ0123456789.:;#,-_ ";

	for (i = 0 ; i <= strCadena.length - 1; i++)
	{	
		if (valido.indexOf (strCadena.substring(i,i+1),0) == -1)
		{
			valido = strCadena.substring(i,i + 1);
			alert("Error:\n El siguiente caracter no es válido : " + valido +"\n");
			return(false);
		} 
	}	
	return(true);
}

//--

function valida_input(iTipo, sCadena)
{
	var strCadena = new String(sCadena);
	var sMensajeError
	strCadena = strCadena.toUpperCase();
	if (iTipo == 1){
		valido = "ABCDEFGHIJKLMÑNOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyzáéíóúÁÉÍÓÚ,-_ ";
		sMensajeError = "Sólo se permiten caracteres alfabeticos [A-Z].\n"
	}else{
		valido = "1234567890";
		sMensajeError = "Sólo se permiten caracteres numéricos [0-9].\n"		
		}
	for (i = 0 ; i <= strCadena.length - 1; i++)
	{	
		if (valido.indexOf (strCadena.substring(i,i+1),0) == -1)
		{
			valido = strCadena.substring(i,i + 1);
			alert("Error:\n "+ sMensajeError +" El siguiente caracter no es válido : " + valido +"\n");
			return(false);
		} 
	}	
	return(true);
}

function abrir_ventana(sArchivo, sNombre, iAncho, iAlto, sArgumentos)
{
var iTop = (screen.height - iAlto )/2;
var iLeft = (screen.width - iAncho)/2;
	window.open(""+ sArchivo +"",""+ sNombre +"","width="+ iAncho +", height="+ iAlto +", top="+ iTop +", left="+ iLeft +", "+ sArgumentos +"");
}

function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

//-->