// JavaScript Document
function abreventzoom(fuente, ancho, alto, tipo) {
  if (tipo==1)
	{
	 variacion=0
	 barras='no'
	}
	else
	{
	 variacion=20
	 barras='yes'
	}
	ancho = ancho+variacion
  alto = alto+variacion
  x = screen.width/2-ancho/2
  y = screen.height/2-alto/2
	
	propiedades='top='+ y+',left='+ x+',width='+ancho+',height='+alto+',resizable=no,scrollbars='+barras
  v=window.open(fuente,'',propiedades)
}

function ventananotitulo(fuente,caption) {
  lnt=window.open(fuente, '_blank', 'scrollbars=yes,resizable=yes,status=no,location=no,toolbar=no,titlebar=no,menubar=no')
}

function tieneDatos(Valor) {
 if (Valor=='') return false;
  
 for (var i=0; i<Valor.length; i++) { 
   if ((" \t\n\r").indexOf(Valor.charAt(i))==-1) return true; 
   } 
 return false; 
}

function PrecioValido(cantidad) {  
  if ((cantidad.indexOf(' ',0) != -1) || 
		  (cantidad.indexOf(',',0) != -1) || 
			(cantidad.indexOf('-',0) != -1))
				return false;
	ncant = parseFloat(cantidad);
	if (isNaN(ncant)) return false;
	return true;
}

function ValidarEmail(email){
    if( email.indexOf('@',0) <= 0  || email.indexOf(';',0) != -1
     || email.indexOf(' ',0) != -1 || email.indexOf('/',0) != -1
     || email.indexOf(';',0) != -1 || email.indexOf('<',0) != -1
     || email.indexOf('>',0) != -1 || email.indexOf('*',0) != -1
     || email.indexOf('|',0) != -1 || email.indexOf('`',0) != -1
     || email.indexOf('&',0) != -1 || email.indexOf('$',0) != -1
     || email.indexOf('!',0) != -1 || email.indexOf('"',0) != -1
     || email.indexOf(':',0) != -1 )
       { return false; }
    else return true;
}

function ValidaURL(Web) {
    if (Web == "") return false;
    else {
      if( (Web.substring(0, 7) != 'http://') || (Web.indexOf('.') < 0)) {
        return false;
      }
      else return true;
		}
}

function horaValida(hora) {

  if (!tieneDatos(hora)) return false;
  
	// Si no se especificó la hora pero se puso los :
	if (hora.indexOf(':')<=0) return false;

  horas = hora.split(':');
	
	var h = parseInt(horas[0]);
	var m = parseInt(horas[1]);
	
	if (isNaN(h) || isNaN(m)) return false;

	if ((h < 0) || (h>24) || (m < 0) || (m > 59)) return false;
	else return true;
}

function ValidarFecha(fecha)  {
    var Dia, Mes, Anyo, Dia_Mes_Mal = false;
    var fechaseparada= fecha.split("/");
		
    Dia = fechaseparada[0]; Mes = fechaseparada[1]; Anyo = fechaseparada[2];

    if( Dia == "" || Mes == "" || Anyo == "" ) return false;
    else {	    	
			while (Dia.substring(0,1)=="0") Dia = Dia.substring(1);
			if (Dia=="") return false;
      Dia = parseInt(Dia);
			
			while (Mes.substring(0,1)=="0") Mes = Mes.substring(1);
			if (Mes=="") return false;
      Mes = parseInt(Mes);

			while (Anyo.substring(0,1)=="0") Anyo = Anyo.substring(1);
			if (Anyo=="") return false;			
      Anyo = parseInt(Anyo);

      if( !isNaN(Dia) && !isNaN(Mes) && !isNaN(Anyo) && (Dia >= 1 && Mes >= 1 && Anyo >= 1900))  {
        /* Los meses de Enero, Marzo, Mayo, Julio, Agosto, Octubre y Diciembre tienen 31 días */
        if((Mes == 1 || Mes == 3 || Mes == 5 || Mes == 7 || Mes == 8 || Mes == 10 || Mes == 12) && (Dia > 31)) 
				  Dia_Mes_Mal = true;
					
        /* Los meses de Mayo, Junio, Septiembre y Noviembre tienen 30 días */
        if((Mes == 4 || Mes == 6 || Mes == 9 || Mes == 11) && (Dia > 30)) 
					Dia_Mes_Mal = true;
					
    		/* Febrero tiene 28 ó 29 días, dependiendo de si es bisiesto o no. Un año es bisiesto si es múltiplo de 4 pero no de
       		 100 salvo que sea múltiplo de 400. Por ejemplo, 12 y 400 son bisiestos, pero 100 y 700 no. */
        if( Mes == 2 && ( Dia > 29 || ( Dia == 29 && ( (Anyo % 400 != 0) && ((Anyo % 4 != 0) || (Anyo % 100 == 0)))))) 
				  Dia_Mes_Mal = true;

        if(Dia_Mes_Mal) {return false;}
        else return true;
      }   /* Si la fecha está fuera del rango razonable... */
      else {return false;}
    }
}


function validarFechas(fini,ffin){
	var Dia, Mes, Anyo, Dia_Mes_Mal = false;
	var Diaf, Mesf, Anyof;
        var fechaseparada= fini.split("/");	
        Dia = fechaseparada[0]; Mes = fechaseparada[1]; Anyo = fechaseparada[2];
	var fechaseparada= ffin.split("/");	
        Diaf = fechaseparada[0]; Mesf = fechaseparada[1]; Anyof = fechaseparada[2];
	
	if (Anyo<Anyof) return (true);
	if (Mes<Mesf && Anyo==Anyof) return (true);
	if (Dia<=Diaf && Mes==Mesf && Anyo==Anyof ) return (true);
	return (false);
}



function Trim(s) 
{
  // Remove leading spaces and carriage returns
  
  while ((s.substring(0,1) == ' ') || (s.substring(0,1) == '\n') || (s.substring(0,1) == '\r'))
  {
    s = s.substring(1,s.length);
  }

  // Remove trailing spaces and carriage returns

  while ((s.substring(s.length-1,s.length) == ' ') || (s.substring(s.length-1,s.length) == '\n') || (s.substring(s.length-1,s.length) == '\r'))
  {
    s = s.substring(0,s.length-1);
  }
  return s;
}

function controlcontacto() {
	if(!tieneDatos(document.FormContacto.nombre.value)){
		alert('Para un contacto personalizado le rogamos que introduzca su nombre');
		document.FormContacto.nombre.focus(); 
		return (false);
	} 
	
	if(!tieneDatos(document.FormContacto.email.value)){
		alert('Si no dispone de correo electrónico,\n indíquenos su dirección y/o teléfono \nen el campo EMAIL');
		document.FormContacto.email.focus(); 
		return (false);
	} 
	
	if(!tieneDatos(document.FormContacto.asunto.value)){
	  alert('Para tramitar su contacto con mayor rapidez le rogamos que introduzca un texto en el campo ASUNTO');
		document.FormContacto.asunto.focus(); 
		return (false);
	} 
	
	if(!tieneDatos(document.FormContacto.mensaje.value)){
	  alert('Debe introducir el texto de su sugerencia en el campo MENSAJE');
		document.FormContacto.mensaje.focus(); 
		return (false);
  } 
	
	if(!tieneDatos(document.FormContacto.empresa.value)){
	  document.FormContacto.empresa.value='PARTICULAR';
		return(true);
	}
}

function controlalerta(formu) {
	if(!tieneDatos(formu.nombre.value)){	  
		alert('Debe especificar un nombre.');
		formu.nombre.focus(); 
		return (false);
	} 
	if(!tieneDatos(formu.contacto.value)){	  
		alert('Debe especificar un contacto.');
		formu.contacto.focus(); 
		return (false);
	} 
}

function comp_pc1(formu) {
	if(!tieneDatos(formu.referencia.value)){	  
		alert('Debe especificar una referencia.');
		formu.referencia.focus(); 
		return (false);
	} 

   if (formu.zona_area.selectedIndex == -1) {
    	alert('Debe especificar una zona/área');
      formu.zona_area.focus();
      return(false); 
   } 
  
   if (formu.zona_area.selectedIndex == 0) {
      if (formu.zona_area[0].value == -1) {
      	alert('Debe especificar una zona/área');
        formu.zona_area.focus();
        return(false);
  		}
   } 

	if(!tieneDatos(formu.direccionfinca.value)){	  
		alert('Debe especificar una dirección.');
		formu.direccionfinca.focus(); 
		return (false);
	} 

   if (formu.valmunicipio.selectedIndex == -1) {
    	alert('Debe especificar un municipio');
      formu.valmunicipio.focus();
      return(false); 
   } 
  
   if (formu.valmunicipio.selectedIndex == 0) {
      if (formu.valmunicipio[0].value == -1) {
      	alert('Debe especificar un municipio');
        formu.valmunicipio.focus();
        return(false);
  		}
   } 
	/*
	if(!tieneDatos(formu.precio.value)){	  
		alert('Debe especificar un precio.');
		formu.precio.focus(); 
		return (false);
	} */

	if(tieneDatos(formu.precio.value) && !PrecioValido(formu.precio.value)){	  
		alert('Debe especificar un precio válido.');
		formu.precio.focus(); 
		return (false);
	} 
	
   if (formu.id_propietario.selectedIndex == -1) {
    	alert('Debe especificar un propietario');
      formu.id_propietario.focus();
      return(false); 
   } 
  
   if (formu.id_propietario.selectedIndex == 0) {
      if (formu.id_propietario[0].value == -1) {
      	alert('Debe especificar un propietario');
        formu.id_propietario.focus();
        return(false);
  		}
   } 
	
   if (formu.id_comercial.selectedIndex == -1) {
    	alert('Debe especificar un comercial');
      formu.id_comercial.focus();
      return(false); 
   } 
  
   if (formu.id_comercial.selectedIndex == 0) {
      if (formu.id_comercial[0].value == -1) {
      	alert('Debe especificar un comercial');
        formu.id_comercial.focus();
        return(false);
  		}
   } 
 				
 return (true);
}

function comp_pc2(formu) {
	if(!tieneDatos(formu.nif.value)){	  
		alert('Debe especificar un nif.');
		formu.nif.focus(); 
		return (false);
	}  				

	if(!tieneDatos(formu.apellidos.value)){	  
		alert('Debe especificar un apellido.');
		formu.apellidos.focus(); 
		return (false);
	}  				

	if(!tieneDatos(formu.nombre.value)){	  
		alert('Debe especificar un nombre.');
		formu.nombre.focus(); 
		return (false);
	}  					

   if (formu.valmunicipio.selectedIndex == -1) {
    	alert('Debe especificar un municipio');
      formu.valmunicipio.focus();
      return(false); 
   } 
  
   if (formu.valmunicipio.selectedIndex == 0) {
      if (formu.valmunicipio[0].value == -1) {
      	alert('Debe especificar un municipio');
        formu.valmunicipio.focus();
        return(false);
  		}
   } 
	
 return (true);
}

function comp_pc3(formu) {
  if(!tieneDatos(formu.nombre_usuario.value)){
	  alert('Debe especificar el nombre del usuario');
		formu.nombre_usuario.focus(); 
		return (false);
	} 

  if(!tieneDatos(formu.login.value)){
	  alert('Debe especificar el login del usuario');
		formu.login.focus(); 
		return (false);
	} 	

  if(!tieneDatos(formu.sucursal.value)){
	  alert('Debe especificar una sucursal');
		formu.sucursal.focus(); 
		return (false);
	} 		

  if(!tieneDatos(formu.email.value)){
	  alert('Debe especificar un email');
		formu.email.focus(); 
		return (false);
	} 		

  if(!ValidarEmail(formu.email.value)){
	  alert('Debe especificar un email válido');
		formu.email.focus(); 
		return (false);
	} 		
	
	if ((formu.tipo_usuario.value == 1) && (formu.permisos.value!=2)) 
	{
		 alert ('El tipo de usuario es '+formu.tipo_usuario.value+' y el tipo de permiso es '+formu.permisos.value);
		 alert('El administrador debe tener obligatoriamente permisos de escritura');
		 return false;
	}
			
	if (formu.Evento.value == 'INSERTAR') {
      if(!tieneDatos(formu.contrasenia.value)){
    	  alert('Debe especificar una contraseña');
    		formu.contrasenia.focus(); 
    		return (false);
    	}
    	
      if(!tieneDatos(formu.contraseniarepe.value)){
    	  alert('Debe repetir la contraseña');
    		formu.contraseniarepe.focus(); 
    		return (false);
    	} 
    	 
    	if (formu.contrasenia.value != formu.contraseniarepe.value) {
    	  alert('Las contraseñas no coinciden');
    		formu.contrasenia.value = '';
    		formu.contraseniarepe.value = '';
    		formu.contrasenia.focus(); 
    		return (false);
    	}
	}
	
	if ((formu.Evento.value == 'MODIFICAR') && formu.camcontra.checked) {
      if(!tieneDatos(formu.contrasenia.value)){
    	  alert('Debe especificar una contraseña');
    		formu.contrasenia.focus(); 
    		return (false);
    	}
    	
      if(!tieneDatos(formu.contraseniarepe.value)){
    	  alert('Debe repetir la contraseña');
    		formu.contraseniarepe.focus(); 
    		return (false);
    	} 
    	 
    	if (formu.contrasenia.value != formu.contraseniarepe.value) {
    	  alert('Las contraseñas no coinciden');
    		formu.contrasenia.value = '';
    		formu.contraseniarepe.value = '';
    		formu.contrasenia.focus(); 
    		return (false);
    	}
	}
}

function comp_pc6(formu) {
	if(!tieneDatos(formu.etiqueta.value)){	  
		alert('Debe especificar una zona / área.');
		formu.etiqueta.focus(); 
		return (false);
	}  				
 return (true);
}

function comp_pc8(formu) {
	if(!tieneDatos(formu.etiqueta.value)){	  
		alert('Debe especificar una etiqueta.');
		formu.etiqueta.focus(); 
		return (false);
	}  				
 return (true);
}

function comp_pc13_(formu) {
   if((formu.Evento.value == 'ADDIMG') && !tieneDatos(formu.fichero.value)) {
    	alert('Debe especificar una imagen');
      formu.fichero.focus();
      return(false); 
	 }

   if (formu.referencia.selectedIndex == -1) {
    	alert('Debe especificar una referencia');
      formu.referencia.focus();
      return(false); 
   } 
  
   if (formu.referencia.selectedIndex == 0) {
      if (formu.referencia[0].value == -1) {
      	alert('Debe especificar una referencia');
        formu.referencia.focus();
        return(false);
  		}
   } 

   if((formu.Evento.value == 'INSERTAR') && !tieneDatos(formu.fichero.value)) {
    	alert('Debe especificar una imagen');
      formu.fichero.focus();
      return(false); 
	 }
	 	 
   return (true);
}


function comp_pc15 (formu){
	if(!tieneDatos(formu.nombrepromo.value)){	  
          alert ('Debe especificar un nombre para la promoción');
	  formu.nombrepromo.focus();
	  return (false);
	}

	if(!tieneDatos(formu.fechainicio.value)){	  
          alert ('Debe especificar una fecha de inicio para la promoción');
	  formu.fechainicio.focus();
	  return (false);
	}
	
	if(!tieneDatos(formu.fechafinalizacion.value)){	  
          alert ('Debe especificar una fecha de finalizacion para la promoción');
	  formu.fechafinalizacion.focus();
	  return (false);
	}
	
	if (!validarFechas(formu.fechainicio.value,formu.fechafinalizacion.value)){
	   alert ('La fecha de inicio debe ser anterior a la fecha de finalización');
	   return (false);
	}
	
	if(!tieneDatos(formu.direccionpromocion.value)){	  
          alert ('Debe especificar una dirección para la promoción');
	  formu.direccionpromocion.focus();
	  return (false);
	}

	if(!tieneDatos(formu.cppromocion.value)){	  
          alert ('Debe especificar un Codigo Postal');
	  formu.cppromocion.focus();
	  return (false);
	}
	return (true);

}

function comp_pc16_ (formu){
	if((formu.Evento.value == 'INSERTAR') && !tieneDatos(formu.fichero.value)) {
    	alert('Debe especificar una imagen');
      formu.fichero.focus();
      return(false); 
	 }

	return true;
}



function comp_pc17_ (formu){
	if(!tieneDatos(formu.etiqueta.value)){	  
          alert ('Debe especificar un nombre para las viviendas');
	  formu.etiqueta.focus();
	  return (false);
	}
	
	if(!tieneDatos(formu.numero.value)){	  
          alert ('Debe especificar un número de viviendas');
	  formu.numero.focus();
	  return (false);
	}

	if(!tieneDatos(formu.fechainicio.value)){	  
          alert ('Debe especificar un precio para la vivienda');
	  formu.precio.focus();
	  return (false);
	}

	return (true);

}

function comp_pc18_ (formu){
	if((formu.Evento.value == 'INSERTAR') && !tieneDatos(formu.fichero.value)) {
    	alert('Debe especificar una imagen');
      formu.fichero.focus();
      return(false); 
	 }

	return true;
}


function ctrlacceso(formu) {
  if(!tieneDatos(formu.usuario.value)){
		formu.usuario.focus(); 
		return (false);
	} 
  if(!tieneDatos(formu.clave.value)){
		formu.clave.focus(); 
		return (false);
	} 
}

// Date picker
var weekend = [0,6];
var weekendColor = "#e0e0e0";
var fontface = "Arial";
var fontsize = "2";

var gNow = new Date();
var ggWinCal;
isNav = (navigator.appName.indexOf("Netscape") != -1) ? true : false;
isIE = (navigator.appName.indexOf("Microsoft") != -1) ? true : false;

Calendar.Months = ["Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio",
"Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"];

// Non-Leap year Month days..
Calendar.DOMonth = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
// Leap year Month days..
Calendar.lDOMonth = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];

function Calendar(p_item, p_WinCal, p_month, p_year, p_format) {
	if ((p_month == null) && (p_year == null))	return;

	if (p_WinCal == null)
		this.gWinCal = ggWinCal;
	else
		this.gWinCal = p_WinCal;
	
	if (p_month == null) {
		this.gMonthName = null;
		this.gMonth = null;
		this.gYearly = true;
	} else {
		this.gMonthName = Calendar.get_month(p_month);
		this.gMonth = new Number(p_month);
		this.gYearly = false;
	}

	this.gYear = p_year;
	this.gFormat = p_format;
	this.gBGColor = "white";
	this.gFGColor = "black";
	this.gTextColor = "black";
	this.gHeaderColor = "black";
	this.gReturnItem = p_item;
}

Calendar.get_month = Calendar_get_month;
Calendar.get_daysofmonth = Calendar_get_daysofmonth;
Calendar.calc_month_year = Calendar_calc_month_year;
Calendar.print = Calendar_print;

function Calendar_get_month(monthNo) {
	return Calendar.Months[monthNo];
}

function Calendar_get_daysofmonth(monthNo, p_year) {
	/* 
	Check for leap year ..
	1.Years evenly divisible by four are normally leap years, except for... 
	2.Years also evenly divisible by 100 are not leap years, except for... 
	3.Years also evenly divisible by 400 are leap years. 
	*/
	if ((p_year % 4) == 0) {
		if ((p_year % 100) == 0 && (p_year % 400) != 0)
			return Calendar.DOMonth[monthNo];
	
		return Calendar.lDOMonth[monthNo];
	} else
		return Calendar.DOMonth[monthNo];
}

function Calendar_calc_month_year(p_Month, p_Year, incr) {
	/* 
	Will return an 1-D array with 1st element being the calculated month 
	and second being the calculated year 
	after applying the month increment/decrement as specified by 'incr' parameter.
	'incr' will normally have 1/-1 to navigate thru the months.
	*/
	var ret_arr = new Array();
	
	if (incr == -1) {
		// B A C K W A R D
		if (p_Month == 0) {
			ret_arr[0] = 11;
			ret_arr[1] = parseInt(p_Year) - 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) - 1;
			ret_arr[1] = parseInt(p_Year);
		}
	} else if (incr == 1) {
		// F O R W A R D
		if (p_Month == 11) {
			ret_arr[0] = 0;
			ret_arr[1] = parseInt(p_Year) + 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) + 1;
			ret_arr[1] = parseInt(p_Year);
		}
	}
	
	return ret_arr;
}

function Calendar_print() {
	ggWinCal.print();
}

function Calendar_calc_month_year(p_Month, p_Year, incr) {
	/* 
	Will return an 1-D array with 1st element being the calculated month 
	and second being the calculated year 
	after applying the month increment/decrement as specified by 'incr' parameter.
	'incr' will normally have 1/-1 to navigate thru the months.
	*/
	var ret_arr = new Array();
	
	if (incr == -1) {
		// B A C K W A R D
		if (p_Month == 0) {
			ret_arr[0] = 11;
			ret_arr[1] = parseInt(p_Year) - 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) - 1;
			ret_arr[1] = parseInt(p_Year);
		}
	} else if (incr == 1) {
		// F O R W A R D
		if (p_Month == 11) {
			ret_arr[0] = 0;
			ret_arr[1] = parseInt(p_Year) + 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) + 1;
			ret_arr[1] = parseInt(p_Year);
		}
	}
	
	return ret_arr;
}

// This is for compatibility with Navigator 3, we have to create and discard one object before the prototype object exists.
new Calendar();

Calendar.prototype.getMonthlyCalendarCode = function() {
	var vCode = "";
	var vHeader_Code = "";
	var vData_Code = "";
	
	// Begin Table Drawing code here..
	vCode = vCode + "<TABLE BORDER=1 BGCOLOR=\"" + this.gBGColor + "\">";
	
	vHeader_Code = this.cal_header();
	vData_Code = this.cal_data();
	vCode = vCode + vHeader_Code + vData_Code;
	
	vCode = vCode + "</TABLE>";
	
	return vCode;
}

Calendar.prototype.show = function() {
	var vCode = "";
	
	this.gWinCal.document.open();

	// Setup the page...
	this.wwrite("<html>");
	this.wwrite("<head><title>Calendar</title>");
	this.wwrite("<style type='text/css'>\n<!--");
	this.wwrite("a:link.enlace {font-family:Arial,Helvetica, Sans-Serif; font-size:12px;font-style:normal;font-weight:normal;text-decoration:underline;	color: #000000;}");
	this.wwrite("a:visited.enlace {font-family:Arial,Helvetica, Sans-Serif; font-size:12px;font-style:normal;font-weight:normal;text-decoration:underline;	color: #000000;}");
	this.wwrite("a:hover.enlace {font-family:Arial,Helvetica, Sans-Serif; font-size:12px;font-style:normal;font-weight:normal;text-decoration:underline;	color: #000000;}");
	this.wwrite("-->\n</style>");
	this.wwrite("</head>");

	this.wwrite("<body " + 
		"link=\"" + this.gLinkColor + "\" " + 
		"vlink=\"" + this.gLinkColor + "\" " +
		"alink=\"" + this.gLinkColor + "\" " +
		"text=\"" + this.gTextColor + "\">");
	this.wwriteA("<FONT FACE='" + fontface + "' SIZE='" + fontsize + "'><B>");
	this.wwriteA(this.gMonthName + " " + this.gYear);
	this.wwriteA("</B><BR>");

	// Show navigation buttons
	var prevMMYYYY = Calendar.calc_month_year(this.gMonth, this.gYear, -1);
	var prevMM = prevMMYYYY[0];
	var prevYYYY = prevMMYYYY[1];

	var nextMMYYYY = Calendar.calc_month_year(this.gMonth, this.gYear, 1);
	var nextMM = nextMMYYYY[0];
	var nextYYYY = nextMMYYYY[1];
	
	this.wwrite("<TABLE WIDTH='100%' BORDER=1 CELLSPACING=0 CELLPADDING=0 BGCOLOR='#e0e0e0'><TR><TD ALIGN=center>");
	this.wwrite("[<A CLASS=\"enlace\" HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + this.gMonth + "', '" + (parseInt(this.gYear)-1) + "', '" + this.gFormat + "'" +
		");" +
		"\">" + prevYYYY + "<\/A>]</TD><TD ALIGN=center>");
	this.wwrite("[<A CLASS=\"enlace\" HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + prevMM + "', '" + prevYYYY + "', '" + this.gFormat + "'" +
		");" +
		"\">" + Calendar.Months[prevMM] + "<\/A>]</TD>");
	this.wwrite("<TD ALIGN=center>");
	this.wwrite("[<A CLASS=\"enlace\" HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + nextMM + "', '" + nextYYYY + "', '" + this.gFormat + "'" +
		");" +
		"\">" + Calendar.Months[nextMM] + "<\/A>]</TD><TD ALIGN=center>");
	this.wwrite("[<A CLASS=\"enlace\" HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + this.gMonth + "', '" + (parseInt(this.gYear)+1) + "', '" + this.gFormat + "'" +
		");" +
		"\">" + nextYYYY + "<\/A>]</TD></TR></TABLE><BR>");

	// Get the complete calendar code for the month..
	vCode = this.getMonthlyCalendarCode();
	this.wwrite(vCode);

	this.wwrite("</FONT></body></html>");
	this.gWinCal.document.close();
}

Calendar.prototype.showY = function() {
	var vCode = "";
	var i;
	var vr, vc, vx, vy;		// Row, Column, X-coord, Y-coord
	var vxf = 285;			// X-Factor
	var vyf = 200;			// Y-Factor
	var vxm = 10;			// X-margin
	var vym;				// Y-margin
	if (isIE)	vym = 75;
	else if (isNav)	vym = 25;
	
	this.gWinCal.document.open();

	this.wwrite("<html>");
	this.wwrite("<head><title>Calendar</title>");
	this.wwrite("<style type='text/css'>\n<!--");
	for (i=0; i<12; i++) {
		vc = i % 3;
		if (i>=0 && i<= 2)	vr = 0;
		if (i>=3 && i<= 5)	vr = 1;
		if (i>=6 && i<= 8)	vr = 2;
		if (i>=9 && i<= 11)	vr = 3;
		
		vx = parseInt(vxf * vc) + vxm;
		vy = parseInt(vyf * vr) + vym;

		this.wwrite(".lclass" + i + " {position:absolute;top:" + vy + ";left:" + vx + ";}");
	}
	this.wwrite("-->\n</style>");
	this.wwrite("</head>");

	this.wwrite("<body " + 
		"link=\"" + this.gLinkColor + "\" " + 
		"vlink=\"" + this.gLinkColor + "\" " +
		"alink=\"" + this.gLinkColor + "\" " +
		"text=\"" + this.gTextColor + "\">");
	this.wwrite("<FONT FACE='" + fontface + "' SIZE=2><B>");
	this.wwrite("Year : " + this.gYear);
	this.wwrite("</B><BR>");

	// Show navigation buttons
	var prevYYYY = parseInt(this.gYear) - 1;
	var nextYYYY = parseInt(this.gYear) + 1;
	
	this.wwrite("<TABLE WIDTH='100%' BORDER=1 CELLSPACING=0 CELLPADDING=0 BGCOLOR='#e0e0e0'><TR><TD ALIGN=center>");
	this.wwrite("[<A HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', null, '" + prevYYYY + "', '" + this.gFormat + "'" +
		");" +
		"\" alt='Prev Year'><<<\/A>]</TD><TD ALIGN=center>");
	this.wwrite("[<A HREF=\"javascript:window.print();\">Print</A>]</TD><TD ALIGN=center>");
	this.wwrite("[<A HREF=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', null, '" + nextYYYY + "', '" + this.gFormat + "'" +
		");" +
		"\">>><\/A>]</TD></TR></TABLE><BR>");

	// Get the complete calendar code for each month..
	var j;
	for (i=11; i>=0; i--) {
		if (isIE)
			this.wwrite("<DIV ID=\"layer" + i + "\" CLASS=\"lclass" + i + "\">");
		else if (isNav)
			this.wwrite("<LAYER ID=\"layer" + i + "\" CLASS=\"lclass" + i + "\">");

		this.gMonth = i;
		this.gMonthName = Calendar.get_month(this.gMonth);
		vCode = this.getMonthlyCalendarCode();
		this.wwrite(this.gMonthName + "/" + this.gYear + "<BR>");
		this.wwrite(vCode);

		if (isIE)
			this.wwrite("</DIV>");
		else if (isNav)
			this.wwrite("</LAYER>");
	}

	this.wwrite("</font><BR></body></html>");
	this.gWinCal.document.close();
}

Calendar.prototype.wwrite = function(wtext) {
	this.gWinCal.document.writeln(wtext);
}

Calendar.prototype.wwriteA = function(wtext) {
	this.gWinCal.document.write(wtext);
}

Calendar.prototype.cal_header = function() {
	var vCode = "";
	
	vCode = vCode + "<TR>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#002D82'><B>Dom</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#002D82'><B>Lun</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#002D82'><B>Mar</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#002D82'><B>Mie</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#002D82'><B>Jue</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#002D82'><B>Vie</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='16%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='#002D82'><B>Sab</B></FONT></TD>";
	vCode = vCode + "</TR>";
	
	return vCode;
}

Calendar.prototype.cal_data = function() {
	var vDate = new Date();
	vDate.setDate(1);
	vDate.setMonth(this.gMonth);
	vDate.setFullYear(this.gYear);

	var vFirstDay=vDate.getDay();
	var vDay=1;
	var vLastDay=Calendar.get_daysofmonth(this.gMonth, this.gYear);
	var vOnLastDay=0;
	var vCode = "";

	/*
	Get day for the 1st of the requested month/year..
	Place as many blank cells before the 1st day of the month as necessary. 
	*/

	vCode = vCode + "<TR>";
	for (i=0; i<vFirstDay; i++) {
		vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(i) + "><FONT SIZE='2' FACE='" + fontface + "'> </FONT></TD>";
	}

	// Write rest of the 1st week
	for (j=vFirstDay; j<7; j++) {
		vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j) + "><FONT SIZE='2' FACE='" + fontface + "'>" + 
			"<A HREF='#' " + 
				"onClick=\"self.opener.document." + this.gReturnItem + ".value='" + 
				this.format_data(vDay) + 
				"';window.close();\">" + 
				this.format_day(vDay) + 
			"</A>" + 
			"</FONT></TD>";
		vDay=vDay + 1;
	}
	vCode = vCode + "</TR>";

	// Write the rest of the weeks
	for (k=2; k<7; k++) {
		vCode = vCode + "<TR>";

		for (j=0; j<7; j++) {
			vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j) + "><FONT SIZE='2' FACE='" + fontface + "'>" + 
				"<A HREF='#' " + 
					"onClick=\"self.opener.document." + this.gReturnItem + ".value='" + 
					this.format_data(vDay) + 
					"';window.close();\">" + 
				this.format_day(vDay) + 
				"</A>" + 
				"</FONT></TD>";
			vDay=vDay + 1;

			if (vDay > vLastDay) {
				vOnLastDay = 1;
				break;
			}
		}

		if (j == 6)
			vCode = vCode + "</TR>";
		if (vOnLastDay == 1)
			break;
	}
	
	// Fill up the rest of last week with proper blanks, so that we get proper square blocks
	for (m=1; m<(7-j); m++) {
		if (this.gYearly)
			vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j+m) + 
			"><FONT SIZE='2' FACE='" + fontface + "' COLOR='gray'> </FONT></TD>";
		else
			vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j+m) + 
			"><FONT SIZE='2' FACE='" + fontface + "' COLOR='gray'>" + m + "</FONT></TD>";
	}
	
	return vCode;
}

Calendar.prototype.format_day = function(vday) {
	var vNowDay = gNow.getDate();
	var vNowMonth = gNow.getMonth();
	var vNowYear = gNow.getFullYear();

	if (vday == vNowDay && this.gMonth == vNowMonth && this.gYear == vNowYear)
		return ("<FONT COLOR=\"#ff0000\"><B>" + vday + "</B></FONT>");
	else
		return (vday);
}

Calendar.prototype.write_weekend_string = function(vday) {
	var i;

	// Return special formatting for the weekend day.
	for (i=0; i<weekend.length; i++) {
		if (vday == weekend[i])
			return (" BGCOLOR=\"" + weekendColor + "\"");
	}
	
	return "";
}

Calendar.prototype.format_data = function(p_day) {
	var vData;
	var vMonth = 1 + this.gMonth;
	vMonth = (vMonth.toString().length < 2) ? "0" + vMonth : vMonth;
	var vMon = Calendar.get_month(this.gMonth).substr(0,3).toUpperCase();
	var vFMon = Calendar.get_month(this.gMonth).toUpperCase();
	var vY4 = new String(this.gYear);
	var vY2 = new String(this.gYear.substr(2,2));
	var vDD = (p_day.toString().length < 2) ? "0" + p_day : p_day;

	switch (this.gFormat) {
		case "MM\/DD\/YYYY" :
			vData = vMonth + "\/" + vDD + "\/" + vY4;
			break;
		case "MM\/DD\/YY" :
			vData = vMonth + "\/" + vDD + "\/" + vY2;
			break;
		case "MM-DD-YYYY" :
			vData = vMonth + "-" + vDD + "-" + vY4;
			break;
		case "MM-DD-YY" :
			vData = vMonth + "-" + vDD + "-" + vY2;
			break;

		case "DD\/MON\/YYYY" :
			vData = vDD + "\/" + vMon + "\/" + vY4;
			break;
		case "DD\/MON\/YY" :
			vData = vDD + "\/" + vMon + "\/" + vY2;
			break;
		case "DD-MON-YYYY" :
			vData = vDD + "-" + vMon + "-" + vY4;
			break;
		case "DD-MON-YY" :
			vData = vDD + "-" + vMon + "-" + vY2;
			break;

		case "DD\/MONTH\/YYYY" :
			vData = vDD + "\/" + vFMon + "\/" + vY4;
			break;
		case "DD\/MONTH\/YY" :
			vData = vDD + "\/" + vFMon + "\/" + vY2;
			break;
		case "DD-MONTH-YYYY" :
			vData = vDD + "-" + vFMon + "-" + vY4;
			break;
		case "DD-MONTH-YY" :
			vData = vDD + "-" + vFMon + "-" + vY2;
			break;

		case "DD\/MM\/YYYY" :
			vData = vDD + "\/" + vMonth + "\/" + vY4;
			break;
		case "DD\/MM\/YY" :
			vData = vDD + "\/" + vMonth + "\/" + vY2;
			break;
		case "DD-MM-YYYY" :
			vData = vDD + "-" + vMonth + "-" + vY4;
			break;
		case "DD-MM-YY" :
			vData = vDD + "-" + vMonth + "-" + vY2;
			break;

		default :
			vData = vMonth + "\/" + vDD + "\/" + vY4;
	}

	return vData;
}

function Build(p_item, p_month, p_year, p_format) {
	var p_WinCal = ggWinCal;
	gCal = new Calendar(p_item, p_WinCal, p_month, p_year, p_format);

	// Customize your Calendar here..
	gCal.gBGColor="white";
	gCal.gLinkColor="black";
	gCal.gTextColor="black";
	gCal.gHeaderColor="darkgreen";

	// Choose appropriate show function
	if (gCal.gYearly)	gCal.showY();
	else	gCal.show();
}

function show_calendar() {
	/* 
		p_month : 0-11 for Jan-Dec; 12 for All Months.
		p_year	: 4-digit year
		p_format: Date format (mm/dd/yyyy, dd/mm/yy, ...)
		p_item	: Return Item.
	*/

	p_item = arguments[0];
	if (arguments[1] == null)
		p_month = new String(gNow.getMonth());
	else
		p_month = arguments[1];
	if (arguments[2] == "" || arguments[2] == null)
		p_year = new String(gNow.getFullYear().toString());
	else
		p_year = arguments[2];
	if (arguments[3] == null)
		p_format = "DD/MM/YYYY";
	else
		p_format = arguments[3];

	vWinCal = window.open("", "Calendar", "width=250,height=250,status=no,resizable=no,top=200,left=200");
	vWinCal.opener = self;
	ggWinCal = vWinCal;

	Build(p_item, p_month, p_year, p_format);
}
/*
Yearly Calendar Code Starts here
*/
function show_yearly_calendar(p_item, p_year, p_format) {
	// Load the defaults..
	if (p_year == null || p_year == "")
		p_year = new String(gNow.getFullYear().toString());
	if (p_format == null || p_format == "")
		p_format = "DD/MM/YYYY";

	var vWinCal = window.open("", "Calendar", "scrollbars=yes");
	vWinCal.opener = self;
	ggWinCal = vWinCal;

	Build(p_item, null, p_year, p_format);
}

function isnumber(str) {
		isPrice = /^\d+\.\d{2}$/;
		return isPrice.test( str );
}

function calcular_hipoteca(formu)	{
		var importe_euros
		// primero validamos los campos
		// 'importe' (en 'moneda' pesetas o euros)
		// tipo interes ('tient' parte entera y 'tifrac' parte fraccionaria)
		// 'plazo'
		
		if (formu.importe.value.length == 0 || !isNaN(formu.importe.value) == 0) {
			alert("Porfavor ponga un importe valido")
			formu.importe.focus()
			return false
		}

		if (formu.tient.value.length == 0 && formu.tifrac.value.length == 0) {
			if (confirm("Debe poner un tipo de interes, ¿Desea usar el valor por defecto?")) {
				formu.tient.value = 3
				formu.tifrac.value = 89
			}
		}
		if (formu.tient.value.length == 0 || !isNaN(formu.tient.value) == 0) {
			alert("Porfavor ponga un tipo de interés valido")
			formu.tient.focus()
			return false
		}
		if (formu.tifrac.value.length == 0 || !isNaN(formu.tifrac.value) == 0) {
			alert("Porfavor ponga un tipo de interés valido")
			formu.tifrac.focus()
			return false
		}

		// bien. todo es medio normal. tengo numeritos para trabajar.
		// haz los calculos (todo siempre en euros)

		/// los datos
		plazos = formu.plazo.value
		importe_euros = formu.importe.value
		if (formu.moneda.value == 2) {
			// se ha puesto el importe en pesetas: conviertelo
			importe_euros = formu.importe.value / 166.386
		}
		tipo_interes = eval(formu.tient.value + '.' + formu.tifrac.value)
		/// los calculos
		// interes periodo:
		ip = tipo_interes/100/12
		// pagos  mensuales
		pm = plazos*12
		// cuota mensual:
		cm = (importe_euros*ip) / (1 - Math.pow((1+ip), (-pm)))

		formu.cuotamensual.value = /\d*.\d\d/.exec(cm)
		formu.cuotamensual_ptas.value = Math.round(cm*166.386)

		return /\d*.\d\d/.exec(cm)
}