function OpenDoc(url) {
	anchoVentana = 750;
	altoVentana = 550;	
	ampl = screen.availWidth/2;
	alt = screen.availHeight/2;
	_left=ampl-anchoVentana/2;
	_top=alt-altoVentana/2;	
	   VentanaDoc = window.open(url,"VentanaDoc",'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,width='+anchoVentana+',height='+altoVentana+',top='+_top+',left='+_left);
}

/* Esta función cambia el src de un gráfico de un href, por otro especificado. También se le puede pasar
un texto que aparece en la barra de estado.
Recibe 3 parámetros, el nombre de la imagen, la src a poner y el texto del mensaje (opcional) */
function AnimaBtn() {
	var argumentos=AnimaBtn.arguments;
	if (argumentos.length >= 2){
		var imagen = eval("document.images."+argumentos[0]);
		imagen.src = argumentos[1];
		if (argumentos[2] != null) {
				window.status = argumentos[2];
				return true;		
		}
	}
}

/* esta es una simple función de precarga de imágenes */
function preloadImages() {
  if(document.images) { 
  	if(!document.p) document.p=new Array();
    var i, j=document.p.length, a=preloadImages.arguments;
	for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0) {
		document.p[j]=new Image;
		document.p[j++].src=a[i];
		}
	}
}

function PreloadLst(aLista) {
	for (i = 0; i < aLista.length; i++){
		preloadImages(aLista[i]);
	}
}

/*	Esta función valida una lista de campos en un formulario, utilizando las funciones externas validaText
y validaSelect. Recibe 3 parámetros: el nombre del formulario, un array que es una lista de los campos a validar,
y una lista de etiquetas que identificarán a los campos no cumplimentados en el mensaje que aparece si alguno
no ha sido cumplimentado debidamente.
*/
function validaForm (nomForm, campos, etiquetas, mensaje_init, delimitador) {

var argumentos=validaForm.arguments;
if (argumentos[0] == null) {
	var nomForm = 'forms[0]';
} else {
	var nomForm = argumentos[0];
}

var campos = argumentos[1];
var etiquetas = argumentos[2];
if (argumentos[3] == '') {
	mensaje_init = 'Por favor, rellena\n';
}

if (argumentos[4] == null) {
	var delimitador = ', ';
}


var mensaje = mensaje_init;
	for ( var i = 0; i < campos.length; i++){
		switch (eval("document."+nomForm+"."+campos[i]).type.substring(0,1)){
			case "t" :	// texto o un textarea
				if (validaText(nomForm, campos[i]) == 0){
					if (mensaje == mensaje_init) {
						mensaje = mensaje+etiquetas[i];
					}else{
						mensaje = mensaje + delimitador+etiquetas[i];
					}
				}
				break;
			case "s" :	// select simple o múltiple
				if(validaSelect(nomForm, campos[i])==0){
					if (mensaje == mensaje_init) {
						mensaje = mensaje+etiquetas[i];
					}else{
						mensaje = mensaje + delimitador+etiquetas[i];
					}
				}
				break;
			case "p" :
				if (validaText(nomForm, campos[i]) == 0){
					if (mensaje == mensaje_init) {
						mensaje = mensaje+etiquetas[i];
					}else{
						mensaje = mensaje + delimitador+etiquetas[i];
					}
				}
				break;
			case "h" :
				if (validaText(nomForm, campos[i]) == 0){
					if (mensaje == mensaje_init) {
						mensaje = mensaje+etiquetas[i];
					}else{
						mensaje = mensaje + delimitador+etiquetas[i];
					}
				}
				break;				
			
			default :
				break;
		}
	}
	if (mensaje != mensaje_init) {
		alert(mensaje);
	} else {
		return 1;
	}
}

/*	Esta función valida un campo texto o textarea. Devuelve 0 si el campo está vacío o es nulo.
Devuelve 1 en caso contrario
*/
function validaText(nomForm,nomTexto) {
	if (eval("document."+nomForm+"."+nomTexto+".value") == null || eval("document."+nomForm+"."+nomTexto+".value") == "") {
		return 0;
	}
	else {
		return 1;
	}
}

/* Esta funcion valida la selección en un tag select, que debe ser diferente de la primera opción (o sea, 0)
Si se ha seleccionado algo distinto de la primera opción, devuelve 1. Si no, devuelve 0.
*/

function validaSelect(nomForm,nomSelect) {
	var indice = eval("document."+nomForm+"."+nomSelect+".selectedIndex");
	if (indice == 0) {
		return 0;
	}
	else {
		return 1;
	}
}

/* esta función comprueba que una dirección email es correcta */
function validaEmail(nomForm, nomCampo, mensaje){
	valor = eval("document."+nomForm+"."+nomCampo+".value");
	var reg1 = /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/; // no válidos
	var reg2 = /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,4})(\]?)$/; // válidos
	if (!reg1.test(valor) && reg2.test(valor)) { // si la sintaxis es correcta
		return 1;
	}
	alert(mensaje);
}

/* esta función comprueba que una lista de campos (array) son numéricos */
function validaNumericos(nomForm, listaCampos, listaEtiquetas, mensaje_init) {
	var argumentos=validaNumericos.arguments;
	var nomForm = argumentos[0];
	var campos = argumentos[1];
	var etiquetas = argumentos[2];
	if (argumentos.length == 4) {
		var mensaje_init = argumentos[3]
	} else {
		mensaje_init = 'Los siguiente campos deben ser numéricos:\n';
	}
	var mensaje = mensaje_init;	
	// bucle para validar los campos
	for ( var i = 0; i < campos.length; i++){
		var valor_campo = eval("document."+nomForm+"."+campos[i]+".value");
		if (esNumerico (valor_campo) == 0) {
			if (mensaje == mensaje_init) {
				mensaje = mensaje+etiquetas[i];
			} else{
				mensaje = mensaje + ", "+etiquetas[i];
			}		
		}
	}
	if (mensaje != mensaje_init) {
		alert(mensaje);
	} else {
		return 1;
	}

}

function esNumerico (valor) {
	var reg = /[^0123456789]/;
	if (reg.test(valor)) {
		// si hay algún caracter no numérico.
		return 0;
	} else {
		return 1;
	}
}


// esta función anima el color de fondo de una TR
function onTR(tr,color,over){
	if (over) {
		tr.style.cursor='hand';
	} else {
		tr.style.cursor='default';
	}
	tr.bgColor=color;
}

// esta función cambia el valor de un campo en función de si uno de
// mismo nombre, pero terminado _chk está marcado o no
// sólo es obligatorio el primer campo
function Check (campo1, campo2, formulario) {
	if (Check.arguments[2] == null ) {
		formulario = eval(document.forms[0]);
	} else {
		formulario = eval('document.'+Check.arguments[2]);
	}
	var campo1 = Check.arguments[0];
	
	for (i=0; i<formulario.elements.length; i++) {
		if (formulario.elements[i].name == campo1) {
			campo1 = formulario.elements[i];
		}
	}
	
	
	// si no se ha definido el segundo campo, busca un campo con el mismo
	// nombre y terminado en _chk
	if (Check.arguments[1] == null) {
		campo2 = campo1.name+'_chk';
	}
	for (i=0; i<formulario.elements.length; i++) {
		if (formulario.elements[i].name == campo2) {
			campo2 = formulario.elements[i];
		}
	}
	
	if (campo2.checked) {
		campo1.value = 1;
	} else {
		campo1.value = 0;
	}
	return 1;
}