function validar_coma(texto)
{
 var caracter
 var permitidos="0123456789,"
 var contador = 0
  
	for(var i=0;i<texto.length;i++)
	{
		caracter = texto.substring(i,i+1)
		if ( permitidos.indexOf(caracter) != -1)
			contador = contador + 1;
	}

	if ( contador == texto.length )
		return (true)
	else
		return (false)
}


function validar_numero(texto)
{
 var caracter
 var permitidos="0123456789"
 var contador = 0
  
	for(var i=0;i<texto.length;i++)
	{
		caracter = texto.substring(i,i+1)
		if ( permitidos.indexOf(caracter) != -1)
			contador = contador + 1;
	}

	if ( contador == texto.length )
		return (true)
	else
		return (false)
}


function sustituir_comapunto(scantidad)
{	
	var bTieneDecimales = (scantidad.split(',').length>1);
	var parteEntera=scantidad.split(',')[0];
	
	if (bTieneDecimales)
		{var parteDecimal=scantidad.split(',')[1];
		var resultado=parteEntera+'.'+parteDecimal;
		}
	else
		var resultado=scantidad;
return(resultado);
	
}


function DarFormatoNum_Var(cantidad,sformato)
{

	var scantidad=''+cantidad+'';
	
	if ( (scantidad==null) || (scantidad == ""))
		return ("0");
	if (sformato=='') return (scantidad);
	var sr = '';
	var negativo=false;
	

	if (scantidad.substring(0,1)=="-")
	{   
	  scantidad=scantidad.substring(1,scantidad.length);
	  negativo=true;
	}
	var bTieneDecimales = (scantidad.split('.').length>1);

	var parteEntera=scantidad.split('.')[0];
	var parteDecimal ;
	if (bTieneDecimales)
		parteDecimal=scantidad.split('.')[1];
	else
		parteDecimal='00';
		
	var bFormatoConDecimales = (sformato.split('.').length > 1);
	sformatoEntero = sformato.split(',')[0];
	
	switch (sformatoEntero)
	{
	case "p": // separador de miles pesetas
				var inicial = parteEntera;
				var longitud =inicial.length;
				while (longitud > 3)
				{
					sr = '.' + inicial.substring(longitud-3,longitud) + sr;
					inicial = inicial.substring(0,longitud-3);
					longitud=inicial.length;
				}
				sr = inicial.substring(longitud-3,longitud) + sr;
				if (bTieneDecimales)
					sr = sr + ','+parteDecimal.substring(0,2);
				break;
	case "p1d": // entero con separador de miles pesetas con un solo decimal
				var inicial = parteEntera;
				var longitud =inicial.length;
				while (longitud > 3){
					sr = '.' + inicial.substring(longitud-3,longitud) + sr;
					inicial = inicial.substring(0,longitud-3);
					longitud=inicial.length;
				}
				sr = inicial.substring(longitud-3,longitud) + sr;
				sr = sr + ','+parteDecimal.substring(0,1);
				break;														
	case "%":
					if (bTieneDecimales)
					sr = parteEntera + ','+parteDecimal.substring(0,2);
					else
					sr = parteEntera +',00';
				break;						
	default: sr=scantidad;		
	}
	
	if (negativo)
	   sr="-"+sr;
	return sr;	
}

function cuadro_amortizacion(importemax,pagosmensuales,interesperiodo,cuotamensual)
{
var intereses = new Array;
var capitalpendiente = new Array;
var principal = new Array;
capitalpendiente[0]=importemax;
parent.bottomFrame.document.writeln('<br>');
parent.bottomFrame.document.writeln('<center><table class=naranja BORDER=0 width=100%>');
parent.bottomFrame.document.writeln('<tr><td align=center class=dat>Detalle de cuotas</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');
parent.bottomFrame.document.writeln('<center><table border=1  width=90%>');
parent.bottomFrame.document.writeln('<tr><td class=dat align=center>Periodo</td>');
parent.bottomFrame.document.writeln('<td class=dat align=center>Cuota</td>');
parent.bottomFrame.document.writeln('<td class=dat align=center>Principal</td>');
parent.bottomFrame.document.writeln('<td class=dat align=center>Intereses</td>');
parent.bottomFrame.document.writeln('<td class=dat align=center>Capital Pendiente</td></tr>');

for (periodo=1; periodo<=pagosmensuales; periodo++){
	
	intereses[periodo]= capitalpendiente[periodo-1]*interesperiodo;
	principal[periodo]= cuotamensual - intereses[periodo];
	capitalpendiente[periodo]=capitalpendiente[periodo-1]-principal[periodo];
	
	parent.bottomFrame.document.writeln('<tr><td align=left >'+periodo+'</td>');
	parent.bottomFrame.document.writeln('<td align=right>'+DarFormatoNum_Var(Math.round(cuotamensual*10)/10,'p1d')+'</td>');
	parent.bottomFrame.document.writeln('<td align=right>'+DarFormatoNum_Var(Math.round(principal[periodo]*10)/10,'p1d')+'</td>');
	parent.bottomFrame.document.writeln('<td align=right>'+DarFormatoNum_Var(Math.round(intereses[periodo]*10)/10,'p1d')+'</td>');
	parent.bottomFrame.document.writeln('<td align=right>'+DarFormatoNum_Var(Math.round(capitalpendiente[periodo]*10)/10,'p1d')+'</td></tr>');
}
parent.bottomFrame.document.writeln('</table></center>');
}


function calcularcuota(importemax,pagosmensuales,interesperiodo,cuotamensual)
{ 

parent.bottomFrame.document.writeln('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
parent.bottomFrame.document.writeln('<html>');
parent.bottomFrame.document.writeln('<head>');
parent.bottomFrame.document.writeln('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
parent.bottomFrame.document.writeln('<meta name="Author" content="Banesto">');
parent.bottomFrame.document.writeln('<meta name="GENERATOR" content="Mozilla/4.5 [es] (Win95; I) [Netscape]">');
parent.bottomFrame.document.writeln('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="estilos/estilos.css">');

parent.bottomFrame.document.writeln('<STYLE TYPE="TEXT/CSS">');
parent.bottomFrame.document.writeln('BODY.expandido{background-color : #FFF9ED;font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;font-size : 9pt;color: #063E56; SCROLLBAR-FACE-COLOR: #FFCB6B; SCROLLBAR-TRACK-COLOR: #FEEBC3; SCROLLBAR-ARROW-COLOR: #FFF9ED; SCROLLBAR-BASE-COLOR: #D69E37; SCROLLBAR-DARKSHADOW-COLOR: #BA7D0D; SCROLLBAR-SHADOW-COLOR: #E1B35E; SCROLLBAR-HIGHLIGHT-COLOR: #FFE1AA;}');
parent.bottomFrame.document.writeln('</STYLE>');
parent.bottomFrame.document.writeln('</head>');

parent.bottomFrame.document.writeln('<body class=expandido>');
parent.bottomFrame.document.writeln('<center><table BORDER=0 width=100%>');
parent.bottomFrame.document.writeln('<tr><td align=center class=titul>Resultado de su consulta</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');
parent.bottomFrame.document.writeln('<center><table BORDER=1>');
/*
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Numero Pagos Mensuales</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(pagosmensuales,'p')+'</td></tr>');

parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Interés Periodo </td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(interesperiodo*10000)/100,'%')+'%</td></tr>');
*/

parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Cuota Mensual</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(cuotamensual*10)/10,'p1d')+'</td></tr>');

parent.bottomFrame.document.writeln('</table></center>');

cuadro_amortizacion(importemax,pagosmensuales,interesperiodo,cuotamensual);

parent.bottomFrame.document.writeln('</body>');
parent.bottomFrame.document.writeln('</html>');
parent.bottomFrame.document.close();
}

function printAll(where) {
    alert("No me olvides");
    if (where.frames.length == 0)
        where.print();
    else
        for (var i=0;i<where.frames.length;i++)
            printAll(where.frames[i]);
}

function calcular_plazo_amortizacion(importemax,interesperiodo,cuotamensual){


	pagosmensuales=(- Math.log(1-(importemax*interesperiodo/cuotamensual))/Math.log(1+interesperiodo));
	pagosmensuales=Math.round(pagosmensuales);
	plazorem=Math.round(pagosmensuales/12-1,0);
	plazorex=pagosmensuales - (12*plazorem);


parent.bottomFrame.document.writeln('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
parent.bottomFrame.document.writeln('<html>');
parent.bottomFrame.document.writeln('<head>');
parent.bottomFrame.document.writeln('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
parent.bottomFrame.document.writeln('<meta name="Author" content="Banesto">');
parent.bottomFrame.document.writeln('<meta name="GENERATOR" content="Mozilla/4.5 [es] (Win95; I) [Netscape]">');
parent.bottomFrame.document.writeln('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="estilos/estilos.css">');

parent.bottomFrame.document.writeln('<STYLE TYPE="TEXT/CSS">');
parent.bottomFrame.document.writeln('BODY.expandido{background-color : #FFF9ED;font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;font-size : 9pt;color: #063E56; SCROLLBAR-FACE-COLOR: #FFCB6B; SCROLLBAR-TRACK-COLOR: #FEEBC3; SCROLLBAR-ARROW-COLOR: #FFF9ED; SCROLLBAR-BASE-COLOR: #D69E37; SCROLLBAR-DARKSHADOW-COLOR: #BA7D0D; SCROLLBAR-SHADOW-COLOR: #E1B35E; SCROLLBAR-HIGHLIGHT-COLOR: #FFE1AA;}');
parent.bottomFrame.document.writeln('</STYLE>');
parent.bottomFrame.document.writeln('</head>');
parent.bottomFrame.document.writeln('<body class=principal>');
parent.bottomFrame.document.writeln('<center><table BORDER=0 width=100%>');
parent.bottomFrame.document.writeln('<tr><td align=center class=titul>Resultado de su consulta</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');
parent.bottomFrame.document.writeln('<center><table BORDER=1>');
if ( (isNaN(pagosmensuales))|| (plazorem > 30) )

	parent.bottomFrame.document.writeln('<tr><td align=left valign=top>El plazo calculado supera el m&aacute;ximo permitido</td></tr>');
else
{
	if (plazorex>11)
	{
		var plazorem=plazorem+1;
		var plazorex=plazorex-12;
	}
	parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Plazo</td>');
	parent.bottomFrame.document.writeln('<td align=left valign=top>'+plazorem+' años y ' +plazorex+' meses </td></tr>');

   	parent.bottomFrame.document.writeln('<form><input type="button" onClick="parent.topFrame.printAll(top)" value="Print Frames"><\/form>');


	parent.bottomFrame.document.writeln('<tr><td align=right valign=middle><a href=\"JavaScript:print(plazoamortizacion.htm)\"><img src=' + top.PATH_IMG + 'boton_b.gif border=0></a>&nbsp;</td><td align=left valign=middle class=dat><a href=\"JavaScript:print(parent.topFrame)\">Imprimir</a></td></tr>');

}
parent.bottomFrame.document.writeln('</table></center>');

parent.bottomFrame.document.writeln('</body>');
parent.bottomFrame.document.writeln('</html>');
parent.bottomFrame.document.close();
}




function calcular_importe_hipoteca(cuotamensual,pagosmensuales,interesperiodo){

impmax=(cuotamensual * ((1- Math.pow( (1+interesperiodo),(-pagosmensuales) ))/interesperiodo)) ;
importevivienda= (impmax/0.8);

parent.bottomFrame.document.writeln('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
parent.bottomFrame.document.writeln('<html>');
parent.bottomFrame.document.writeln('<head>');
parent.bottomFrame.document.writeln('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
parent.bottomFrame.document.writeln('<meta name="Author" content="Banesto">');
parent.bottomFrame.document.writeln('<meta name="GENERATOR" content="Mozilla/4.5 [es] (Win95; I) [Netscape]">');
parent.bottomFrame.document.writeln('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="estilos/estilos.css">');

parent.bottomFrame.document.writeln('<STYLE TYPE="TEXT/CSS">');
parent.bottomFrame.document.writeln('BODY.expandido{background-color : #FFF9ED;font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;font-size : 9pt;color: #063E56; SCROLLBAR-FACE-COLOR: #FFCB6B; SCROLLBAR-TRACK-COLOR: #FEEBC3; SCROLLBAR-ARROW-COLOR: #FFF9ED; SCROLLBAR-BASE-COLOR: #D69E37; SCROLLBAR-DARKSHADOW-COLOR: #BA7D0D; SCROLLBAR-SHADOW-COLOR: #E1B35E; SCROLLBAR-HIGHLIGHT-COLOR: #FFE1AA;}');
parent.bottomFrame.document.writeln('</STYLE>');
parent.bottomFrame.document.writeln('</head>');
parent.bottomFrame.document.writeln('<body class=expandido>');
parent.bottomFrame.document.writeln('<center><table BORDER=0 width=100%>');
parent.bottomFrame.document.writeln('<tr><td align=center class=titul>Resultado de su consulta</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');
parent.bottomFrame.document.writeln('<center><table BORDER=1>');
/*
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Numero Pagos Mensuales</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+pagosmensuales+'</td></tr>');

parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Interés Periodo </td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(interesperiodo*10000)/100,'%')+'%</td></tr>');
*/
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Importe Hipoteca</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(impmax*10)/10,'p1d')+'</td></tr>');

parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Importe Vivienda</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(importevivienda*10)/10,'p1d')+'</td></tr>');

parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');

cuadro_amortizacion(impmax,pagosmensuales,interesperiodo,cuotamensual);
parent.bottomFrame.document.writeln('</body>');
parent.bottomFrame.document.writeln('</html>');
parent.bottomFrame.document.close();

}


function calcular_subrogacion(importemax,pagosmensuales,interesperiodo,cuotamensualactual)
{
	cuotamensual=(importemax* interesperiodo)/(1- Math.pow( (1+interesperiodo),(-pagosmensuales))) ;
	ahorromensual= cuotamensualactual - cuotamensual;
	ahorrototal=ahorromensual*pagosmensuales;

parent.bottomFrame.document.writeln('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
parent.bottomFrame.document.writeln('<html>');
parent.bottomFrame.document.writeln('<head>');
parent.bottomFrame.document.writeln('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
parent.bottomFrame.document.writeln('<meta name="Author" content="Banesto">');
parent.bottomFrame.document.writeln('<meta name="GENERATOR" content="Mozilla/4.5 [es] (Win95; I) [Netscape]">');
parent.bottomFrame.document.writeln('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="estilos/estilos.css">');

parent.bottomFrame.document.writeln('<STYLE TYPE="TEXT/CSS">');
parent.bottomFrame.document.writeln('BODY.expandido{background-color : #FFF9ED;font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;font-size : 9pt;color: #063E56;  SCROLLBAR-FACE-COLOR: #FFCB6B; SCROLLBAR-TRACK-COLOR: #FEEBC3; SCROLLBAR-ARROW-COLOR: #FFF9ED; SCROLLBAR-BASE-COLOR: #D69E37; SCROLLBAR-DARKSHADOW-COLOR: #BA7D0D; SCROLLBAR-SHADOW-COLOR: #E1B35E; SCROLLBAR-HIGHLIGHT-COLOR: #FFE1AA;}');
parent.bottomFrame.document.writeln('</STYLE>');
parent.bottomFrame.document.writeln('</head>');
parent.bottomFrame.document.writeln('<body class=expandido>');
parent.bottomFrame.document.writeln('<center><table BORDER=0 width=100%>');
parent.bottomFrame.document.writeln('<tr><td align=center class=titul>Resultado de su consulta</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');
parent.bottomFrame.document.writeln('<center><table BORDER=1');
/*
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Numero Pagos Mensuales</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+pagosmensuales+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Interés Periodo </td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(interesperiodo*10000)/100,'%')+'%</td></tr>');
*/
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Cuota Mensual</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(cuotamensual*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Ahorro Mensual</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(ahorromensual*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Ahorro Total</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(ahorrototal*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');
cuadro_amortizacion(importemax,pagosmensuales,interesperiodo,cuotamensual);
parent.bottomFrame.document.writeln('</body>');
parent.bottomFrame.document.writeln('</html>');
parent.bottomFrame.document.close();
}

function calcular_operaciones_tiposalida(importemax,pagosmensuales,interesperiodoinicial,interesperiodoposterior,cuotamensual,altipoinicial)
{
	

altipoposterior=pagosmensuales - altipoinicial;
cuotamensualinicial= (importemax*interesperiodoinicial)/(1-Math.pow( (1+interesperiodoinicial),-pagosmensuales) );
aux1= Math.pow((1+interesperiodoinicial),-altipoinicial);
aux2= Math.pow((1+interesperiodoinicial),altipoinicial);
capitalpendiente =(importemax-cuotamensualinicial*(1-aux1)/interesperiodoinicial)*aux2;
cuotamensualprevista= (capitalpendiente*interesperiodoposterior)/(1-Math.pow((1+interesperiodoposterior),-altipoposterior));
ahorromensual= cuotamensual - (Math.min(cuotamensualinicial,cuotamensualprevista));
ahorrototal=altipoinicial*(cuotamensual- cuotamensualinicial)+(altipoposterior*(cuotamensual-cuotamensualprevista));
parent.bottomFrame.document.writeln('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
parent.bottomFrame.document.writeln('<html>');
parent.bottomFrame.document.writeln('<head>');
parent.bottomFrame.document.writeln('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
parent.bottomFrame.document.writeln('<meta name="Author" content="Banesto">');
parent.bottomFrame.document.writeln('<meta name="GENERATOR" content="Mozilla/4.5 [es] (Win95; I) [Netscape]">');
parent.bottomFrame.document.writeln('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="estilos/estilos.css">');

parent.bottomFrame.document.writeln('<STYLE TYPE="TEXT/CSS">');
parent.bottomFrame.document.writeln('BODY.expandido{background-color : #FFF9ED;font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;font-size : 9pt;color: #063E56; SCROLLBAR-FACE-COLOR: #FFCB6B; SCROLLBAR-TRACK-COLOR: #FEEBC3; SCROLLBAR-ARROW-COLOR: #FFF9ED; SCROLLBAR-BASE-COLOR: #D69E37; SCROLLBAR-DARKSHADOW-COLOR: #BA7D0D; SCROLLBAR-SHADOW-COLOR: #E1B35E; SCROLLBAR-HIGHLIGHT-COLOR: #FFE1AA;}');
parent.bottomFrame.document.writeln('</STYLE>');
parent.bottomFrame.document.writeln('</head>');
parent.bottomFrame.document.writeln('<body class=expandido>');
parent.bottomFrame.document.writeln('<center><table BORDER=0 width=100%>');
parent.bottomFrame.document.writeln('<tr><td align=center class=titul>Resultado de su consulta</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');
parent.bottomFrame.document.writeln('<center><table BORDER=1 >');
/*
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Numero Pagos Mensuales</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+pagosmensuales+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Capital Pendiente fin primer periodo</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(capitalpendiente*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Al tipo inicial</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+altipoinicial+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Al tipo posterior</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+altipoposterior+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Interés Periodo inicial</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(interesperiodoinicial*10000)/100,'%')+'%</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Interés Periodo posterior</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(interesperiodoposterior*10000)/100,'%')+'%</td></tr>');
*/
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Cuota Mensual Inicial</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(cuotamensualinicial*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Cuota estimada tras revisi&oacute;n</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(cuotamensualprevista*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Ahorro Mensual</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(ahorromensual*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Ahorro Total</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(ahorrototal*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');

var cuota = new Array;
var intereses = new Array;
var principal = new Array;
var capitalpendiente = new Array;
capitalpendiente[0]=importemax;
	parent.bottomFrame.document.writeln('<center><table class=naranja BORDER=0 width=100%>');
	parent.bottomFrame.document.writeln('<tr><td align=center class=dat>Detalle de cuotas</td></tr>');
	parent.bottomFrame.document.writeln('</table></center>');
	parent.bottomFrame.document.writeln('<br>');
	parent.bottomFrame.document.writeln('<center><table border=1  width=90%>');
	parent.bottomFrame.document.writeln('<tr><td class=dat align=center valign=top>Periodo</td>');
	parent.bottomFrame.document.writeln('<td class=dat align=center>Cuota</td>');
	parent.bottomFrame.document.writeln('<td class=dat align=center>Principal</td>');
	parent.bottomFrame.document.writeln('<td class=dat align=center>Intereses</td>');
	parent.bottomFrame.document.writeln('<td class=dat align=center>Capital Pendiente</td></tr>');

for (periodo=1; periodo<=pagosmensuales; periodo++){
	
	if (periodo>altipoinicial)
	{
		cuota[periodo]=cuotamensualprevista;
		intereses[periodo]=(capitalpendiente[periodo-1]*interesperiodoposterior);
	}
	else
	{	cuota[periodo]=cuotamensualinicial;
		intereses[periodo]=(capitalpendiente[periodo-1]*interesperiodoinicial);
	}	
	principal[periodo]= cuota[periodo] - intereses[periodo];
	capitalpendiente[periodo]=capitalpendiente[periodo-1]-principal[periodo];

	parent.bottomFrame.document.writeln('<tr><td align=left >'+periodo+'</font></td>');
	parent.bottomFrame.document.writeln('<td align=left>'+DarFormatoNum_Var(Math.round(cuota[periodo]*10)/10,'p1d')+'</font></td>');
	parent.bottomFrame.document.writeln('<td align=left>'+DarFormatoNum_Var(Math.round(principal[periodo]*10)/10,'p1d')+'</font></td>');
	parent.bottomFrame.document.writeln('<td align=left>'+DarFormatoNum_Var(Math.round(intereses[periodo]*10)/10,'p1d')+'</font></td>');
	parent.bottomFrame.document.writeln('<td align=left>'+DarFormatoNum_Var(Math.round(capitalpendiente[periodo]*10)/10,'p1d')+'</td></tr>');
}
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('</body>');
parent.bottomFrame.document.writeln('</html>');
parent.bottomFrame.document.close();
}

/* OJO *//*funcion para calcular cuota con tipo de salida fijo*/ 
function calcularcuotatiposalida(importemax,pagosmensuales,interesperiodoinicial,interesperiodoposterior,altipoinicial)

{

altipoposterior=pagosmensuales - altipoinicial;
cuotamensualinicial= (importemax*interesperiodoinicial)/(1-Math.pow( (1+interesperiodoinicial),-pagosmensuales) );
aux1= Math.pow((1+interesperiodoinicial),-altipoinicial);
aux2= Math.pow((1+interesperiodoinicial),altipoinicial);
capitalpendiente =(importemax-cuotamensualinicial*(1-aux1)/interesperiodoinicial)*aux2;
cuotamensualprevista= (capitalpendiente*interesperiodoposterior)/(1-Math.pow((1+interesperiodoposterior),-altipoposterior));
parent.bottomFrame.document.writeln('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
parent.bottomFrame.document.writeln('<html>');
parent.bottomFrame.document.writeln('<head>');
parent.bottomFrame.document.writeln('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
parent.bottomFrame.document.writeln('<meta name="Author" content="Banesto">');
parent.bottomFrame.document.writeln('<meta name="GENERATOR" content="Mozilla/4.5 [es] (Win95; I) [Netscape]">');
parent.bottomFrame.document.writeln('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="estilos/estilos.css">');

parent.bottomFrame.document.writeln('<STYLE TYPE="TEXT/CSS">');
parent.bottomFrame.document.writeln('BODY.expandido{background-color : #FFF9ED;font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;font-size : 9pt;color: #063E56; SCROLLBAR-FACE-COLOR: #FFCB6B; SCROLLBAR-TRACK-COLOR: #FEEBC3; SCROLLBAR-ARROW-COLOR: #FFF9ED; SCROLLBAR-BASE-COLOR: #D69E37; SCROLLBAR-DARKSHADOW-COLOR: #BA7D0D; SCROLLBAR-SHADOW-COLOR: #E1B35E; SCROLLBAR-HIGHLIGHT-COLOR: #FFE1AA;}');
parent.bottomFrame.document.writeln('</STYLE>');
parent.bottomFrame.document.writeln('</head>');
parent.bottomFrame.document.writeln('<body class=expandido>');
parent.bottomFrame.document.writeln('<center><table BORDER=0>');
parent.bottomFrame.document.writeln('<tr><td class=titul align=center>Resultado de su consulta</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');
parent.bottomFrame.document.writeln('<center><table BORDER=1 cellspacing="6"');

/*OJO BORRAR DESPUES*/

parent.bottomFrame.document.writeln('<tr><td align=left valign=top>AUX1</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+aux1+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>AUX2</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+aux2+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>interesperiodoinicial</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+interesperiodoinicial+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>altipoinicial</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+altipoinicial+'</td></tr>');
/*
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Numero Pagos Mensuales</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+pagosmensuales+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Capital Pendiente fin primer periodo</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(capitalpendiente*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Al tipo inicial</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+altipoinicial+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Al tipo posterior</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+altipoposterior+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Interés Periodo inicial</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(interesperiodoinicial*10000)/100,'%')+'%</td></tr>');
parent.bottomFrame.document.writeln('<tr><td  align=left valign=top>Interés Periodo posterior</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(interesperiodoposterior*10000)/100,'%')+'%</td></tr>');
*/

parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Cuota Mensual Inicial</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(cuotamensualinicial*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('<tr><td align=left valign=top>Cuota estimada tras revisi&oacute;n</td>');
parent.bottomFrame.document.writeln('<td align=left valign=top>'+DarFormatoNum_Var(Math.round(cuotamensualprevista*10)/10,'p1d')+'</td></tr>');
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('<br>');

var cuota = new Array;
var intereses = new Array;
var principal = new Array;
var capitalpendiente = new Array;
capitalpendiente[0]=importemax;
	parent.bottomFrame.document.writeln('<center><table class=naranja BORDER=0 width=100%>');
	parent.bottomFrame.document.writeln('<tr><td align=center class=dat>Detalle de cuotas</td></tr>');
	parent.bottomFrame.document.writeln('</table></center>');
	parent.bottomFrame.document.writeln('<br>');
	parent.bottomFrame.document.writeln('<center><table border=1  width=90%>');
	parent.bottomFrame.document.writeln('<tr><td class=dat align=center valign=top>Periodo</td>');
	parent.bottomFrame.document.writeln('<td class=dat align=center>Cuota</td>');
	parent.bottomFrame.document.writeln('<td class=dat align=center>Principal</td>');
	parent.bottomFrame.document.writeln('<td class=dat align=center>Intereses</td>');
	parent.bottomFrame.document.writeln('<td class=dat align=center>Capital Pendiente</td></tr>');

for (periodo=1; periodo<=pagosmensuales; periodo++){

        if((i%2)==0)
        	var color_fil = "aa";
        else
                var color_fil = "bb";
	
	if (periodo>altipoinicial)
	{
		cuota[periodo]=cuotamensualprevista;
		intereses[periodo]=(capitalpendiente[periodo-1]*interesperiodoposterior);
	}
	else
	{	cuota[periodo]=cuotamensualinicial;
		intereses[periodo]=(capitalpendiente[periodo-1]*interesperiodoinicial);
	}	
	principal[periodo]= cuota[periodo] - intereses[periodo];
	capitalpendiente[periodo]=capitalpendiente[periodo-1]-principal[periodo];


	parent.bottomFrame.document.writeln('<tr class="'+color_fil+'"><td align=left >'+periodo+'</font></td>');
	parent.bottomFrame.document.writeln('<td align=left>'+DarFormatoNum_Var(Math.round(cuota[periodo]*10)/10,'p1d')+'</font></td>');
	parent.bottomFrame.document.writeln('<td align=left>'+DarFormatoNum_Var(Math.round(principal[periodo]*10)/10,'p1d')+'</font></td>');
	parent.bottomFrame.document.writeln('<td align=left>'+DarFormatoNum_Var(Math.round(intereses[periodo]*10)/10,'p1d')+'</font></td>');
	parent.bottomFrame.document.writeln('<td align=left>'+DarFormatoNum_Var(Math.round(capitalpendiente[periodo]*10)/10,'p1d')+'</td></tr>');
}
parent.bottomFrame.document.writeln('</table></center>');
parent.bottomFrame.document.writeln('</body>');
parent.bottomFrame.document.writeln('</html>');
parent.bottomFrame.document.close();
}

/*nov.2006****Nueva calculadora para iPotecas*********/
function calcular_iPoteca(importemax,pagosmensuales,interesactualmes,nuevointeres, cuotamensual, nuevacuotamensual, maximaampliacion, nuevacuotamax)
{	
	ahorromensual= cuotamensual - nuevacuotamensual;
	ahorroanual = ahorromensual*12;
	ahorrototal=ahorromensual*pagosmensuales;	
	
	//Cálculo de anticipo en efectivo manteniendo cuota.
	sumatefectivo = 0;
	for (i=0; i <= pagosmensuales; i++)
	{
		aux = ahorromensual/Math.pow((1+ nuevointeres),(i/12));		
	
		sumatefectivo += aux;		
	}
	anticipoefectivo = sumatefectivo;		
	
	parent.bottomFrame.document.writeln('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
	parent.bottomFrame.document.writeln('<html>');
	parent.bottomFrame.document.writeln('<head>');
	parent.bottomFrame.document.writeln('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
	parent.bottomFrame.document.writeln('<meta name="Author" content="Banesto">');
	parent.bottomFrame.document.writeln('<meta name="GENERATOR" content="Mozilla/4.5 [es] (Win95; I) [Netscape]">');
	parent.bottomFrame.document.writeln('<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="estilos/estilos.css">');
	
	parent.bottomFrame.document.writeln('<STYLE TYPE="TEXT/CSS">');
	parent.bottomFrame.document.writeln('BODY.expandido{background-color : #FFF9ED;font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;font-size : 9pt;color: #063E56;  SCROLLBAR-FACE-COLOR: #FFCB6B; SCROLLBAR-TRACK-COLOR: #FEEBC3; SCROLLBAR-ARROW-COLOR: #FFF9ED; SCROLLBAR-BASE-COLOR: #D69E37; SCROLLBAR-DARKSHADOW-COLOR: #BA7D0D; SCROLLBAR-SHADOW-COLOR: #E1B35E; SCROLLBAR-HIGHLIGHT-COLOR: #FFE1AA;}');
	parent.bottomFrame.document.writeln('</STYLE>');
	parent.bottomFrame.document.writeln('</head>');
	parent.bottomFrame.document.writeln('<body class=expandido>');
	parent.bottomFrame.document.writeln('<center><table BORDER=0 width=100%>');
	parent.bottomFrame.document.writeln('<tr><td align=center class=titul>Resultado de su consulta</td></tr>');
	parent.bottomFrame.document.writeln('</table></center>');
	parent.bottomFrame.document.writeln('<br>');
	parent.bottomFrame.document.writeln('<center><table BORDER=1 width= "60%">');

	parent.bottomFrame.document.writeln('<tr><td valign=top width ="60%">Cuota Actual<br>Nueva Cuota</td>');
	parent.bottomFrame.document.writeln('<td align=right valign=top width = "40%">'+DarFormatoNum_Var(Math.round(cuotamensual*10)/10,'p1d')+ '<br>' + DarFormatoNum_Var(Math.round(nuevacuotamensual*10)/10,'p1d')+ '</td></tr>');

	//parent.bottomFrame.document.writeln('<tr><td valign=top width="40%">Nueva Cuota</td>');
	//parent.bottomFrame.document.writeln('<td align=right valign=top width = "40%">'+DarFormatoNum_Var(Math.round(nuevacuotamensual*10)/10,'p1d')+'</td></tr>');
	
	parent.bottomFrame.document.writeln('<tr><td valign=top width="60%">&nbsp;</td>');
	parent.bottomFrame.document.writeln('<td align=left valign=top width="40%">&nbsp;</td></tr>');

	
	parent.bottomFrame.document.writeln('<tr><td valign=top>Ahorro Mensual<br>Ahorro Anual<br>Ahorro Total</td>');
	//parent.bottomFrame.document.writeln('<td align=right valign=top>'+DarFormatoNum_Var(Math.round(ahorromensual*10)/10,'p1d')+'</td></tr>');
	parent.bottomFrame.document.writeln('<td align=right valign=top>'+DarFormatoNum_Var(Math.round(ahorromensual*10)/10,'p1d')+ '<br>' + DarFormatoNum_Var(Math.round(ahorroanual*10)/10,'p1d')+ '<br>' + DarFormatoNum_Var(Math.round(ahorrototal*10)/10,'p1d') + '</td></tr>');


	//parent.bottomFrame.document.writeln('<tr><td valign=top>Ahorro Anual</td>');
	//parent.bottomFrame.document.writeln('<td align=right valign=top>'+DarFormatoNum_Var(Math.round(ahorroanual*10)/10,'p1d')+'</td></tr>');

	//parent.bottomFrame.document.writeln('<tr><td valign=top>Ahorro Total</td>');
	//parent.bottomFrame.document.writeln('<td align=right valign=top>'+DarFormatoNum_Var(Math.round(ahorrototal*10)/10,'p1d')+'</td></tr>');

	parent.bottomFrame.document.writeln('<tr><td valign=top width="40%">&nbsp;</td>');
	parent.bottomFrame.document.writeln('<td align=left valign=top width="40%">&nbsp;</td></tr>');

	parent.bottomFrame.document.writeln('<tr><td valign=top>Anticipo en efectivo manteniendo cuota<br>Máxima Ampliación Posible</td>');
	//parent.bottomFrame.document.writeln('<td align=right valign=top>'+DarFormatoNum_Var(Math.round(anticipoefectivo*10)/10,'p1d')+'</td></tr>');
	parent.bottomFrame.document.writeln('<td align=right valign=top>'+DarFormatoNum_Var(Math.round(anticipoefectivo*10)/10,'p1d')+'<br>' + DarFormatoNum_Var(Math.round(maximaampliacion*10)/10,'p1d') + '</td></tr>');
	
/*
	//parent.bottomFrame.document.writeln('<tr><td valign=top>Máxima Ampliación Posible</td>');
	//parent.bottomFrame.document.writeln('<td align=right valign=top>'+DarFormatoNum_Var(Math.round(maximaampliacion*10)/10,'p1d')+'</td></tr>');
*/
	parent.bottomFrame.document.writeln('<tr><td valign=top width="40%">&nbsp;</td>');
	parent.bottomFrame.document.writeln('<td align=left valign=top width="40%">&nbsp;</td></tr>');

	parent.bottomFrame.document.writeln('<tr><td valign=top>Nueva cuota en máxima ampliación</td>');
	parent.bottomFrame.document.writeln('<td align=right valign=top>'+DarFormatoNum_Var(Math.round(nuevacuotamax*10)/10,'p1d')+'</td></tr>');

	parent.bottomFrame.document.writeln('</table></center>');
	parent.bottomFrame.document.writeln('<br>');
	parent.bottomFrame.document.writeln('</body>');
	parent.bottomFrame.document.writeln('</html>');
	parent.bottomFrame.document.close();

}