function letraDNI(numero){
  var mLetras='TRWAGMYFPDXBNJZSQVHLCKE'
  var d=(numero/23)
  d=Math.floor(d);
  var e=d*23
  var r=numero-e
  return mLetras.charAt(r)
}

function ValidaDNI(ndni,letra) {
	if (letraDNI(ndni)!=letra){
		alert("NIF erróneo: " + ndni +letra+"\n Verífiquelo, por favor");
	}
}

function fechaactual() {
//Devuelve la fecha del día en castellano en el formato 'X de xxxx de 200x"
var nombremes= new Array("enero","febrero","marzo","abril","mayo","junio","julio","agosto","septiembre","octubre","noviembre","diciembre");
var hoy=new Date();
var retvalue=hoy.getDate() + " de " + nombremes[hoy.getMonth()] + " de " + hoy.getFullYear();

return retvalue
}

function IsTextoVacio(texto) {
//busca caracteres que no sean espacio en blanco en una cadena
	var i
	for ( i = 0; i < texto.length; i++ ) {
			if ( texto.charAt(i) != " " ) {
					return false
			}
	}
	return true
}

function enviacorreo(){
	dest1="eees";
	dest2="us.es";
	dest="mailto:"+dest1+"@"+dest2;
	location.href=dest;
}
function repos_piepagina() {
	var y=xClientHeight();
	var altodiv=xHeight("piepagina_maincen");
	var altocuerpo=xHeight("cabecera")+xHeight("leftnav")+40;
	var nuevapos=y-altodiv;
	if (nuevapos < altocuerpo) {
		nuevapos=altocuerpo;
	}
	xTop("piepagina_maincen",nuevapos);
}
function redir_menuhorguia (filehtm) {
	document.location= filehtm + ".htm";
}