var base = "/";

var explorer= (document.all) ? 1 : 0;
var documento= (explorer) ? "document.all." : "document.";
var IE4 = (document.all && !document.getElementById) ? true : false;
var IE5 = (document.all && document.getElementById) ? true : false;
var IE = IE4 || IE5;
var NS4 = (document.layers) ? true : false;
var NS5 = (!document.all && document.getElementById) ? true : false;
var NS6 = NS5;
var NS = NS4||NS5;

if (NS5) document.all = new Function("n", "return document.getElementById(n);");


//-------------- Opciones de configuración varia para hipotecas ----------------
var paramC, paramN, paramKtxt, paramK, paramPi, paramI, paramIF, paramCa, paramCe, paramCc, paramH;
var paramL=35;
var paramFc, paramR, paramFcv;

var ayudaC="Importe Hipoteca";
var ayudaIF="Interés Anual Periodo Final en % (de 0 a 100)";
var ayudaN="Plazo en años";
var ayudaCa="Comisión de Apertura en % (de 0 a 100)";
var ayudaCe="Comisión de Estudio en % (de 0 a 100)";
var ayudaCc="Comisión de Cancelación en % (de 0 a 100)";

var ayudaK="Periocidad de Pago";
var ayudaPi="Duración periodo inicial en años";
var ayudaI="Interés Periodo Inicial en % (de 0 a 100)";


//-------------- Opciones de configuración para los TIP tools ------------------
var borderTIP = 1;
var borderColorTIP = "#000000";
var bgColorTIP = "#FFFFFF";
var widthTIP = 100;  
var textColorTIP = "#000000";
var fontTIP = "Verdana";
var fontSizeTIP = "10px";
var fontWeightTIP = "normal";
var hAlignTIP = "center";
var vAlignTIP = "top";
var moveTIP = false;
var offsetXTIP = 10;
var offsetYTIP = 10;
var paddingTIP = 2;



//------------------------------------------------------------------------------
function objCapa(idCapa)
{
    if (document.layers) return document.layers[idCapa];
    else return document.all(idCapa);
}

//------------------------------------------------------------------------------
function abrirWnd(url)
{
    var tmp = url.substr(0, 5).toUpperCase();
    if (tmp != 'HTTP:' && tmp != 'HTTPS') url = base + url;

    window.open(url);
}

//------------------------------------------------------------------------------
function abrirWnd2(url, ancho, alto, nombreVentana)
{
    var w;
    var h;
    if (ancho == null) w = 625;
    else w = ancho;
    if (alto == null) h = 400;
    else h = alto;

    var tmp = url.substr(0, 5).toUpperCase();
    if (tmp != 'HTTP:' && tmp != 'HTTPS') url = base + url;
    venta=window.open(url, nombreVentana, "top=0,left=0,toolbar=no,directories=no,location=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no,width="+ w +",height="+ h);
}

//------------------------------------------------------------------------------
function abrirWnd3(url)
{
    venta=window.open(base+"wvio004m_documentos.asp?fich="+url,"", "top=0,left=0,toolbar=no,directories=no,location=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no,width=500,height=400");
}

//------------------------------------------------------------------------------
function abrirWnd4(url, ancho, alto)
{
    var w;
    var h;
    if (ancho == null) w = 790;
    else w = ancho;
    if (alto == null) h = 590;
    else h = alto;

    var tmp = url.substr(0, 5).toUpperCase();
    if (tmp != 'HTTP:' && tmp != 'HTTPS') url = base + url;
    venta=window.open(url,"", "top=0,left=0,toolbar=no,directories=no,location=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no, width="+ w +",height="+ h);
}

//------------------------------------------------------------------------------
function abrirWnd5(url, ancho, alto)
{
    var w;
    var h;
    if (ancho == null) w = 790;
    else w = ancho;
    if (alto == null) h = 590;
    else h = alto;

    var tmp = url.substr(0, 5).toUpperCase();
    if (tmp != 'HTTP:' && tmp != 'HTTPS') url = base + url;
    venta=window.open(url,"", "top=0,left=0,toolbar=yes,directories=yes,location=yes,status=yes,scrollbars=yes,resizable=yes,copyhistory=no, width="+ w +",height="+ h);
}

//------------------------------------------------------------------------------
//-- Ventana nueva sin botones a 800x600
function abrirWnd6(url)
{
    abrirWnd2(url, 790, 553,'');
}

//------------------------------------------------------------------------------
function abrir_ventana(url, titulo)
{
	venta=window.open(url,titulo);
	venta.focus();
}

//------------------------------------------------------------------------------
function abrir_ventana_cdr(url, titulo)
{
	venta=window.open(url,titulo,"toolbar=no, location=no, directories=no, status=yes, menubar=no, scrollbars=yes, resizable=no, hotkeys=no, copyhistory=no,width=790,height=553,top=0,left=0",true);
	venta.focus();
}

//------------------------------------------------------------------------------
function abrir_ventana4(url, titulo, ancho, alto)
{
	var w;
	if (ancho == null) w = 500;
	else w = ancho;
	if (alto == null) h = 400;
	else h = alto;
	venta=window.open(url,titulo, "top=0,left=0,toolbar=no,directories=no,location=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no,width="+ w +",height="+ h);
}

//------------------------------------------------------------------------------
function crearPiePagina()
{
    var cad;
    var cont = (document.layers) ? 1 : 0;

    cad = '<br><table width="100%" border=0 cellpadding=0 cellspacing=2><tr><td>';

    if (history.length>cont) cad += '<a href="javascript:history.back()"><img border=0 src="'+base+'images/wvio004m_atras.gif"></a>';

    cad +='</td>'+
        '<td align=right><a href="javascript:void(0)" onclick="location.hash=\'top\';"><img align=right border=0 src="'+base+'images/wvio004m_arriba.gif"></a></td></tr>'+
        '<tr><td colspan=2 class=linPiePag><img src="'+base+'images/wvio004m_pto.gif"></td></tr>'+
        '<tr><td colspan=2 class=txtPiePag>2002 Caixa Galicia. Todos los derechos reservados.</td></tr>'+
        '</table>';

    document.write(cad);
}

//------------------------------------------------------------------------------
function cambiaImg(obj, sImg)
{
    document.images[obj].src = sImg;
}

//------------------------------------------------------------------------------
function recomendar(titulo,url)
{
    if ((typeof(titulo)=='unknown') || (titulo==null)) titulo='';
    if ((typeof(url)=='unknown') || (url==null)) url='';
    
    if ((url != '') && (url.indexOf('http://')==-1) && (url.indexOf('HTTP://')==-1)) url = base + url;

    var pagina = 'wvio004_contenido/esp/asp/wvio004c_Recomendar.asp?titulo=' + titulo + '&url=' + url;
    var ventana = abrirWnd4(pagina, 410, 410);
}

//------------------------------------------------------------------------------
function escribir(capa, cad)
{
  if (document.all) document.all(capa).innerHTML = cad;
  else {
  	document.layers[capa].document.write(cad);  	
  	document.layers[capa].document.close();
  }
}

//**---------------------------------------------------------------------------
//** - min: numero MINIMO de posiciones enteras
//** - max: numero MAXIMO de posiciones enteras
//** - decimal: numero MAXIMO de posiciones decimales
//** La longitud máxima del campo la sabe por la propiedad 'maxLength' del
//** campo
//**---------------------------------------------------------------------------
function esNumero (campo, min, max, decimal)
{
  if (decimal > 0)
  {
  	if (campo.value.indexOf(',') != -1) return false;
    var re = new RegExp("^([0-9]{"+ min +","+ max +"})(\\.[0-9]{0,"+ decimal +"})?$");
  }
  else
    var re = new RegExp("^([0-9]{"+ min +","+ max +"})$");

  return re.test(campo.value);
}

//**---------------------------------------------------------------------------
function numero (campo, descripcion, min, max, decimal)
{
  if (esNumero(campo, min, max, decimal))
    return true;
  else
  {
    var m = "El contenido del campo '" + descripcion + "' no es valido. " +
            "Por favor, introduzca un número";

    if (decimal == 0) m += " entero";
    if (min == max) m += ", de " + max + " dígitos";
    else if (min == 0 || min == 1) m += ", de menos de " + max + " dígitos";
    	else if (min > 1) m += ", de " + min + " a " + max + " dígitos";
    m += ", sin separador de miles";
    if (decimal > 0) m += " y con " + decimal + " decimales como máximo (use como separador de decimales el punto)";

    alert (m);

    campo.focus();
    return false;
  }
}

//**---------------------------------------------------------------------------
//**- minEnt: numero MINIMO de posiciones enteras
//**- maxEnt: numero MAXIMO de posiciones enteras
//**- maxDec: numero MAXIMO de posiciones decimales
//**- minVal: valor mínimo
//**- maxVal: valor máximo (o null si el máximo lo define el tamaño del campo)

function vRangoNum(campo, desc, minEnt, maxEnt, maxDec, minVal, maxVal)
{
  if (!numero(campo, desc,minEnt, maxEnt, maxDec)) return false;

  var num = parseInt(campo.value,10);

  if (maxVal != null)
  {
      if (num < minVal || num > maxVal)
      {
        alert("El valor del campo "+ desc +" es incorrecto. Introduzca un número entre "+ minVal +" y "+ maxVal);
        campo.focus();
        return false;
      }
  }
  else
  {
      if (num < minVal)
      {
        alert("El valor del campo "+ desc +" es incorrecto. El valor mínimo es "+ minVal);
        campo.focus();
        return false;
      }
  }
  return true;
}

//------------------------------------------------------------------------------
//**num
//**nDec: número máximo de decimales
function ceros(numCeros)
{
  var salida ="";
  var i;
  for (i=0;i<numCeros; i++) salida +="0";
  return salida;
}

//------------------------------------------------------------------------------
function formateaNum(num, nDec, rellenaDec)
{
    var numero = ''+num;
    var re1 = new RegExp ('(\\d+)(\\.\\d*)?$', 'g');
    var re2 = new RegExp ('(\\d+)(\\d{3,3})$', 'g');
    var salida ="";

	if (numero.substr(0,1)=='.') numero = '0'+numero;
    
    indice = numero.search(re1);
    entero = RegExp.$1;
    decimal = RegExp.$2;

    indice = entero.search(re2)

    while (indice != -1)
    {
        salida = '.' + RegExp.$2 + salida;
        entero = RegExp.$1;
        indice = entero.search(re2);
    }
    salida = entero+salida;

    if ( nDec != null && ((decimal!='' && decimal!='.') || rellenaDec))
    {
    	if (rellenaDec) decimal += '000000000000';
        salida += ',' + decimal.substr(1, nDec);
    }

    if (parseFloat(numero) < 0) return '-'+salida;
    else return salida;
}

//------------------------------------------------------------------------------
function calcularResultados()
{
	var x1, x2, x3;
	var I, K, N, C, H, IF, L, Pi;
	var Fc, R, Fcv;

	I = paramI/100;
	K = paramK;
	N = paramN;
	C = paramC;
	H = paramH;
	IF = paramIF/100;
	Pi = paramPi;
	H = Pi;

	x1 = 1 - (1/Math.pow(1 + I/K, N*K));
	Fc = C / (x1 / (I / K));

	x2 = 1 - (1 / Math.pow(1 + I/K, (N-H)*K));
	R = Fc * (x2 / (I/K));
	R = Math.round(R);

	x3 = 1 - (1 / Math.pow(1 + IF/K, (N-Pi)*K));
	Fcv = R / (x3 / (IF/K));

	paramFcv =	Fcv;
	paramFc = Fc;
	calculado = true;
}

//------------------------------------------------------------------------------
//** sim= 1 Generico, 2 Fijo, 3 Variable, 4 Hipo35
function guardarEnSim(sim)
{
	var cad;

	if (!calculado)
	{
		alert("Pulse primero el botón 'Calcular' para obtener los resultados antes "+
			"de añadirlos al simulador");
		return;
	}

	cad = '<table border=0 width=95 cellspacing=2 cellpading=1>';
	cad = cad + "<tr><td class=paramSim1>" + formateaNum(paramC,2) + "</td></tr>";
		cad = cad + "<tr><td class=paramSim2>" + formateaNum(paramN) + "</td></tr>";
		cad = cad + "<tr><td class=paramSim1>" + paramKtxt + "</td></tr>";
		if (sim == 1)
		{
			cad = cad + "<tr><td class=paramSim2>" + formateaNum(paramPi,1) + "</td></tr>";
			cad = cad + "<tr><td class=paramSim1>" + formateaNum(paramI,3) + "</td></tr>";
			cad = cad + "<tr><td class=paramSim2>" + formateaNum(paramIF,3) + "</td></tr>";
			cad = cad + "<tr><td class=paramSim1>" + formateaNum(paramCa,3) + "</td></tr>";
			cad = cad + "<tr><td class=paramSim2>" + formateaNum(paramCe,3) + "</td></tr>";
			cad = cad + "<tr><td class=paramSim1>" + formateaNum(paramCc,3) + "</td></tr>";
	}
		cad = cad + "<tr><td class=resCalculoSim2>" + formateaNum(paramFc, 2) + "</td></tr>";

		if (sim == 1 || sim == 3)
			cad = cad + "<tr><td class=resCalculoSim1>" + formateaNum(paramFcv, 2) + "</td></tr>";
		cad = cad + "</table>";

	if (celLibre <= 4)
	{
		escribir("celSim"+celLibre, cad);
		celLibre++;
	}
	else
	{
		nCelda = prompt("Todas las simulaciones contiene datos." +
			"Indique en que simulación quiere guardar los datos",1);
		nCelda = parseInt(nCelda);

		if (isNaN(nCelda) || nCelda <1 || nCelda > 5)
			alert("El número de simulación no es correcto. Operación cancelada");
		else
			escribir("celSim"+nCelda, cad);
	}
}