var ventana;

function redondea(Valor, decimales) {
	var temp = Math.pow(10.0, decimales);
	return Math.round(Valor * temp) / temp;
}

function validaMoneda(moneda){
	re=/^(-)?\d+(\.\d\d)?$/
	if(!re.exec(moneda))
	{
		return false;
	}
	
return true;
}

function Calcula(Cantidad, Tipo, Anos)
{
	var Pagos = 12;
		
		if (Anos == 0)
		{
			alert("El per\xEDodo de amortizaci\xF3n debe ser mayor que 0, expresado en a\xF1os");
			window.Calculo.Anos.focus();
			window.Calculo.Anos.select();
			return;
		}
		
	var AAnos = new Array(Anos/2, Anos, Anos*1.5);
	var Total_Pagos = new Array(AAnos[0]*Pagos,AAnos[1]*Pagos,AAnos[2]*Pagos);
	var temp, i, longitud;
	var C_Pagos = new Array(0,0,0);
	var texto = "";
		
		if (Tipo != 0)
		{
			for (i=0;i<AAnos.length;i++)
			{
				temp = Math.pow(Tipo/(100.00*Pagos) + 1,Total_Pagos[i]);
				C_Pagos[i] = (Tipo*Cantidad)/(100.00*Pagos*(1-1/temp));
			}
		}
		else
		{
			for (i=0;i<AAnos.length;i++)
				C_Pagos[i] = (Cantidad)/(Total_Pagos[i]);
		}
		
	temp = (Math.pow(1+(Tipo/(100.00*Pagos)),Pagos)-1)*100;
	texto="<br><TABLE HEIGHT=\"100\" ALIGN=\"center\" BORDER=\"2\" CELLPADDING=\"3\">";
	texto+="<tr><th>Cantidad Solicitada</th><th>" + Cantidad + "</th></tr>" +
	"<tr><th>Tipo de Interes</th><th>" + Tipo + "%</th></tr>" +
	"<tr><th>Pagos Anuales</th><th>" + Pagos + "</th></tr>" +
	"<tr><th>TAE</th><th>" + redondea(temp,4) + "%</th></tr></table>";
	texto+="<TABLE HEIGHT=\"160\" ALIGN=\"center\" BORDER=\"2\" CELLPADDING=\"3\"><tr><th>A&ntilde;os</th>";

		for (i=0;i<AAnos.length;i++)
			texto+="<th>" + AAnos[i] + "</th>";
	texto+="</tr><tr><td><b>Cuotas Totales</b></td>";
		
		for (i=0;i<AAnos.length;i++)
			texto+="<td align=\"center\">" + Total_Pagos[i] + "</td>";
	texto+=("</tr><tr><td><b>Cuotas de</b></td>");
		
		for (i=0;i<AAnos.length;i++)
			texto+="<td align=\"right\">" + (Math.round(C_Pagos[i])) + "</td>";
	texto+="</tr><tr><td><b>Total a Pagar</b></td>";
		
		for (i=0;i<AAnos.length;i++)
			texto+="<td align=\"right\">" + (Math.round(C_Pagos[i]*Total_Pagos[i])) + "</td>";
	texto+="</tr><tr><td><b>Intereses a Pagar</b></td>";
		for (i=0;i<AAnos.length;i++)
			texto+="<td align=\"right\">" + (Math.round(C_Pagos[i]*Total_Pagos[i])-Cantidad) + "</td>";
	texto+="</tr></table>";

	document.getElementById("Listado2").innerHTML = texto;
}

function Desglosa(Cantidad, Tipo, Anos, tipo_amorti)
{  
	var missinginfo = "";
	
		if (document.herramientas_credito.mont_financ.value=="")
		{
			missinginfo+="\n     -  Capital Inicial";
		}
		
		if (document.herramientas_credito.peri_dias.value=="")
		{ 
			missinginfo+="\n     -  Per\xEDodo (d\xEDas)";
		}
		
		if (document.herramientas_credito.tas_int.value=="")
		{ 
			missinginfo+="\n     -  Tasa de Inter\xE9s";
		}
		
		if (!validaMoneda(document.herramientas_credito.mont_financ.value)){
				missinginfo+="\n     -  El Monto a financiar debe ser num\xE9rico, y puede contener como m\xE1ximo 2 decimales";				
			}
			
		if (missinginfo != "")
		{
				if (missinginfo != "")
				{
					missinginfo="\n" +
					"Le ha faltado introducir los siguientes datos:\n" +
					missinginfo + "\n";
				}
			
			alert(missinginfo);
		}
		else
		{
			cantidad_ori = document.herramientas_credito.mont_financ.value;
			varia1 = document.herramientas_credito.mont_financ.value;
			varia2 = document.herramientas_credito.peri_dias.value;
			varia3 = document.herramientas_credito.tas_int.value;
			
				for(i=0; i<document.herramientas_credito.amorti.length;i++)
				{
					if(document.herramientas_credito.amorti[i].checked)
					{
						varia4 = document.herramientas_credito.amorti[i].value;
					}
				}
			
			//Cantidad = Cantidad.replace(".", "");
			/*while(Cantidad.indexOf(".")!=-1){
				Cantidad=Cantidad.replace(".","")
			}*/
			//alert(Cantidad);
			//Cantidad = Cantidad.replace(",", ".");
			
			var tiempo_real = Anos;
			var Anos = Anos / 12;
			var Pagos = 12;
			var i, Interes, Amortizado=0;
			var Balance=Cantidad;
			var Balance2=Cantidad;
			var Ttpo=Tipo/100.0;
			var TInteres=0.0;
			var TInteres2=0.0;
			var Total_Pagos=Anos*Pagos;
			var temp=Math.pow(Tipo/(100.00*Pagos) + 1,Total_Pagos);
			var C_Pagos=(Tipo*Cantidad)/(100.00*Pagos*(1-1/temp));
			var text2;
			var monto_total_int = 0;
			
				for (i2=1;i2<=Total_Pagos;i2++)
				{
					Interes2=(Balance2/Pagos)*Ttpo;
					Amortizado2=C_Pagos-Interes2;
					Balance2-=Amortizado2;
					TInteres2+=Interes2;
					monto_total_int+= (Math.round(Interes2*100)/100);
				}
			
			var monto_promedio = Math.round(C_Pagos*100)/100;
			var monto_total_int = Math.round(monto_total_int*100)/100;
			
			texto2="<tr><td colspan='3'><table border='0' cellpadding='0' cellspacing='0'><tr><td colspan='3' class='pixel_gris_cuadro'><img src='images/home/pixel.gif' width='1' height='1' /></td></tr>";
			texto2+="<tr><td width='0%'><img src='images/home/pixel.gif' width='1' height='1' /></td><td width='100%' valign='top'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr>";
			texto2+="<td height='65' colspan='3' valign='middle'><table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td width='44%' colspan='2' height='22' class='celda_titulo_gris_clara'>&nbsp;&nbsp;Datos del Cr&eacute;dito:</td>";
			texto2+="<td width='54%' colspan='2' height='22' align='left' class='celda_titulo_gris_clara'>&nbsp;&nbsp;Resultados del Cr&eacute;dito:</td></tr><tr><td width='130' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Monto a Financiar:</td>";
			texto2+="<td width='162' height='25' class='celda_credi_1_blanca'>&nbsp;"+ cantidad_ori +" Bs.F.</td><td width='184' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Monto promedio de las cuotas:</td>";
			texto2+="<td width='156' height='25' class='celda_credi_1_blanca'>&nbsp;"+ monto_promedio +" Bs.F.</td></tr><tr><td width='130' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Plazo &oacute; per&iacute;odo:</td>";
			texto2+="<td width='162' height='25' class='celda_credi_1_blanca'>&nbsp;"+ tiempo_real +" meses</td><td width='184' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Monto total intereses:</td><td width='156' height='25' class='celda_credi_1_blanca'>&nbsp;"+ monto_total_int +" Bs.F.</td></tr>";
			texto2+="<tr><td width='130' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Tasa de Inter&eacute;s:</td><td width='162' height='25' class='celda_credi_1_blanca'>&nbsp;"+ Tipo +"%</td><td width='184' height='25' class='celda_credi_1_gris'>&nbsp;</td><td width='156' height='25' class='celda_credi_1_blanca'>&nbsp;</td></tr>";
			texto2+="</table></td></tr></table></td><td width='0%' class='pixel_gris_cuadro'><img src='images/home/pixel.gif' width='1' height='1' /></td></tr><tr><td colspan='3' class='pixel_gris_cuadro'><img src='images/home/pixel.gif' width='1' height='1' /></td></tr>";
			texto2+="</table></td></tr>";
			
			var texto4;
			texto4="<tr><td><table cellpadding='0' cellspacing='0' border='0'><tr><td valign='middle' width='590' align='right'><img src='images/home/print.png' width='26' height='19'/></td><td align='left'>";
			texto4+="<a class='avisa' onClick='window.open(\"includes/m_herramien_finan_credito_print.asp?a=\"+varia1+\"&b=\"+varia2+\"&c=\"+varia3+\"&d=\"+varia4,\"\",\"width=715,height=500,scrollbars=yes\"); return false;'>Imprimir</a>";
			texto4+="</td></tr><tr><td height='20'></td></tr></table></td></tr>";
			
			//document.getElementById("resultad_credi").style.display = "block";
			document.getElementById("tabla_datos").style.display = "block";
			document.getElementById("tabla_datos").innerHTML = texto2;
			document.getElementById("credit_impr").style.display = "block";
			document.getElementById("credit_impr").innerHTML = texto4;
			
				//Se va a mostrar la tabla de amortizacion
				if (tipo_amorti == 1)
				{
					var texto;
					var tipo_clase;
					var total_mont_cout = 0;
					var total_mont_int = 0;
					var total_mont_amorti = 0;
					
					texto="<table width='71%' border='0' cellspacing='0' cellpadding='0'><tr><td width='100%' colspan='2' align='center' height='19'><table width='100%' border='0' align='center' cellpadding='0' class='borde_gris_tablas' cellspacing='0'><tr><td width='130' colspan='5' height='20' class='celda_gris_clara1'>&nbsp;&nbsp;Tabla de Amortizaci&oacute;n:</td></tr>";
					texto+="<tr><td width='130' height='20' class='celda_gris_oscuro'>&nbsp;&nbsp;N&deg; Cuota</td><td width='162' height='20' class='celda_gris_oscuro'>&nbsp;&nbsp;Monto Cuota</td><td width='184' height='20' class='celda_gris_oscuro'>&nbsp;&nbsp;Intereses</td>";
					texto+="<td width='156' class='celda_gris_oscuro'>&nbsp;&nbsp;Amortizaci&oacute;n</td><td width='156' class='celda_gris_oscuro_ultimo'>&nbsp;&nbsp;Saldo</td></tr>";
				
						for (i=1;i<=Total_Pagos;i++)
						{
							Interes=(Balance/Pagos)*Ttpo;
							Amortizado=C_Pagos-Interes;
							Balance-=Amortizado;
							TInteres+=Interes;
							
								if (i%2 == 0)
								{
									tipo_clase = "celda_clara";	
								}
								else
								{
									tipo_clase = "celda_oscura";
								}
							
							texto+="<tr><td width='130' height='20' class="+tipo_clase+" align='left'>&nbsp;&nbsp;Cuota " + i + "</td><td width='162' height='20' class="+tipo_clase+">&nbsp;&nbsp;Bs.F. " + Math.round(C_Pagos*100)/100 + "</td><td width='184' height='20' class="+tipo_clase+">&nbsp;&nbsp;Bs.F. " + Math.round(Interes*100)/100 + "</td><td width='156' class="+tipo_clase+">&nbsp;&nbsp;Bs.F. " + Math.round(Amortizado*100)/100 + "</td><td width='156' class="+tipo_clase+">&nbsp;&nbsp;Bs.F. " + Math.round(Balance*100)/100 + "</td></tr>";
							
							total_mont_cout = total_mont_cout + Math.round(C_Pagos*100)/100;
							total_mont_cout = Math.round(total_mont_cout*100)/100;
							
							total_mont_int = total_mont_int + Math.round(Interes*100)/100;
							total_mont_int = Math.round(total_mont_int*100)/100;
							
							total_mont_amorti = total_mont_amorti + Math.round(Amortizado*100)/100;
							total_mont_amorti = Math.round(total_mont_amorti*100)/100;
						}
					
					texto+="</table></td></tr>";
					
					var texto3;
					texto3="<table width='300' border='0' align='left' class='letra_tabla_totales' cellpadding='0' cellspacing='0'><tr><td width='300' colspan='3'><table width='635' border='0' align='left' cellpadding='0' cellspacing='0'>";
					texto3+="<tr><td width='92' height='25' class='letra_tabla_totales'>&nbsp;</td><td width='72' height='25' class='letra_tabla_totales'>&nbsp;&nbsp;Totales:</td><td width='87' height='25' class='letra_tabla_totales'>&nbsp;&nbsp;Bs.F. "+ total_mont_cout +"</td><td width='104' height='25' class='letra_tabla_totales'>&nbsp;&nbsp;Bs.F. "+ total_mont_int +"</td>";
					texto3+="<td class='letra_tabla_totales' width='268' height='25'>&nbsp;&nbsp;Bs.F. "+ total_mont_amorti +"</td></tr></table></td></tr></table>";
					
					document.getElementById("tabla_amortizacion").style.display = "block";
					document.getElementById("tabla_amortizacion").innerHTML = texto;
					document.getElementById("tabla_totales").style.display = "block";
					document.getElementById("tabla_totales").innerHTML = texto3;
				}
				else
				{
					document.getElementById("tabla_amortizacion").style.display = "none";
					document.getElementById("tabla_totales").style.display = "none";
				}
		}
}

function Desglosa_print(Cantidad, Tipo, Anos, tipo_amorti)
{
	cantidad_ori = Cantidad;
	//Cantidad = Cantidad.replace(".", "");
	/*while(Cantidad.indexOf(".")!=-1){
		Cantidad=Cantidad.replace(".","")
	}*/
			
	//Cantidad = Cantidad.replace(",", ".");
	var tiempo_real = Anos;
	var Anos = Anos / 12;
	var Pagos = 12;
	var i, Interes, Amortizado=0;
	var Balance=Cantidad;
	var Balance2=Cantidad;
	var Ttpo=Tipo/100.0;
	var TInteres=0.0;
	var TInteres2=0.0;
	var Total_Pagos=Anos*Pagos;
	var temp=Math.pow(Tipo/(100.00*Pagos) + 1,Total_Pagos);
	var C_Pagos=(Tipo*Cantidad)/(100.00*Pagos*(1-1/temp));
	var text2;
	var monto_total_int = 0;
	
	
		for (i2=1;i2<=Total_Pagos;i2++)
		{
			Interes2=(Balance2/Pagos)*Ttpo;
			Amortizado2=C_Pagos-Interes2;
			Balance2-=Amortizado2;
			TInteres2+=Interes2;
			monto_total_int+= (Math.round(Interes2*100)/100);
		}
		
	
	var monto_promedio = Math.round(C_Pagos*100)/100;
	var monto_total_int = Math.round(monto_total_int*100)/100;
	
	texto2="<tr><td colspan='3'><table border='0' cellpadding='0' cellspacing='0'><tr><td colspan='3' class='pixel_gris_cuadro'><img src='../images/home/pixel.gif' width='1' height='1' /></td></tr>";
	texto2+="<tr><td width='0%'><img src='../images/home/pixel.gif' width='1' height='1' /></td><td width='100%' valign='top'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr>";
	texto2+="<td height='65' colspan='3' valign='middle'><table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td width='44%' colspan='2' height='22' class='celda_titulo_gris_clara'>&nbsp;&nbsp;Datos del Cr&eacute;dito:</td>";
	texto2+="<td width='54%' colspan='2' height='22' align='left' class='celda_titulo_gris_clara'>&nbsp;&nbsp;Resultados del Cr&eacute;dito:</td></tr><tr><td width='130' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Monto a Financiar:</td>";
	texto2+="<td width='162' height='25' class='celda_credi_1_blanca'>&nbsp;"+ cantidad_ori +" Bs.F.</td><td width='184' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Monto promedio de las cuotas:</td>";
	texto2+="<td width='156' height='25' class='celda_credi_1_blanca'>&nbsp;"+ monto_promedio +" Bs.F.</td></tr><tr><td width='130' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Plazo &oacute; per&iacute;odo:</td>";
	texto2+="<td width='162' height='25' class='celda_credi_1_blanca'>&nbsp;"+ tiempo_real +" meses</td><td width='184' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Monto total intereses:</td><td width='156' height='25' class='celda_credi_1_blanca'>&nbsp;"+ monto_total_int +" Bs.F.</td></tr>";
	texto2+="<tr><td width='130' height='25' class='celda_credi_1_gris'>&nbsp;&nbsp;Tasa de Inter&eacute;s:</td><td width='162' height='25' class='celda_credi_1_blanca'>&nbsp;"+ Tipo +"%</td><td width='184' height='25' class='celda_credi_1_gris'>&nbsp;</td><td width='156' height='25' class='celda_credi_1_blanca'>&nbsp;</td></tr>";
	texto2+="</table></td></tr></table></td><td width='0%' class='pixel_gris_cuadro'><img src='../images/home/pixel.gif' width='1' height='1' /></td></tr><tr><td colspan='3' class='pixel_gris_cuadro'><img src='../images/home/pixel.gif' width='1' height='1' /></td></tr>";
	texto2+="</table></td></tr>";
	
	document.getElementById("tabla_datos_print").style.display = "block";
	document.getElementById("tabla_datos_print").innerHTML = texto2;
	
		//Se va a mostrar la tabla de amortizacion
		if (tipo_amorti == 1)
		{
			var texto;
			var tipo_clase;
			var total_mont_cout = 0;
			var total_mont_int = 0;
			var total_mont_amorti = 0;
			
			texto="<table width='71%' border='0' cellspacing='0' cellpadding='0'><tr><td width='100%' colspan='2' align='center' height='19'><table width='100%' border='0' align='center' cellpadding='0' class='borde_gris_tablas' cellspacing='0'><tr><td width='130' colspan='5' height='20' class='celda_gris_clara1'>&nbsp;&nbsp;Tabla de Amortizaci&oacute;n:</td></tr>";
			texto+="<tr><td width='130' height='20' class='celda_gris_oscuro'>&nbsp;&nbsp;N&deg; Cuota</td><td width='162' height='20' class='celda_gris_oscuro'>&nbsp;&nbsp;Monto Cuota</td><td width='184' height='20' class='celda_gris_oscuro'>&nbsp;&nbsp;Intereses</td>";
			texto+="<td width='156' class='celda_gris_oscuro'>&nbsp;&nbsp;Amortizaci&oacute;n</td><td width='156' class='celda_gris_oscuro_ultimo'>&nbsp;&nbsp;Saldo</td></tr>";
		
				for (i=1;i<=Total_Pagos;i++)
				{
					Interes=(Balance/Pagos)*Ttpo;
					Amortizado=C_Pagos-Interes;
					Balance-=Amortizado;
					TInteres+=Interes;
					
						if (i%2 == 0)
						{
							tipo_clase = "celda_clara";	
						}
						else
						{
							tipo_clase = "celda_oscura";
						}
					
					texto+="<tr><td width='130' height='20' class="+tipo_clase+" align='left'>&nbsp;&nbsp;Couta " + i + "</td><td width='162' height='20' class="+tipo_clase+">&nbsp;&nbsp;Bs.F. " + Math.round(C_Pagos*100)/100 + "</td><td width='184' height='20' class="+tipo_clase+">&nbsp;&nbsp;Bs.F. " + Math.round(Interes*100)/100 + "</td><td width='156' class="+tipo_clase+">&nbsp;&nbsp;Bs.F. " + Math.round(Amortizado*100)/100 + "</td><td width='156' class="+tipo_clase+">&nbsp;&nbsp;Bs.F. " + Math.round(Balance*100)/100 + "</td></tr>";
					
					total_mont_cout = total_mont_cout + Math.round(C_Pagos*100)/100;
					total_mont_cout = Math.round(total_mont_cout*100)/100;
					
					total_mont_int = total_mont_int + Math.round(Interes*100)/100;
					total_mont_int = Math.round(total_mont_int*100)/100;
					
					total_mont_amorti = total_mont_amorti + Math.round(Amortizado*100)/100;
					total_mont_amorti = Math.round(total_mont_amorti*100)/100;
				}
			
			texto+="</table></td></tr>";
			
			var texto3;
			texto3="<table width='300' border='0' align='left' class='letra_tabla_totales' cellpadding='0' cellspacing='0'><tr><td width='300' colspan='3'><table width='635' border='0' align='left' cellpadding='0' cellspacing='0'>";
			texto3+="<tr><td width='92' height='25' class='letra_tabla_totales'>&nbsp;</td><td width='72' height='25' class='letra_tabla_totales'>&nbsp;&nbsp;Totales:</td><td width='87' height='25' class='letra_tabla_totales'>&nbsp;&nbsp;Bs.F. "+ total_mont_cout +"</td><td width='104' height='25' class='letra_tabla_totales'>&nbsp;&nbsp;Bs.F. "+ total_mont_int +"</td>";
			texto3+="<td class='letra_tabla_totales' width='268' height='25'>&nbsp;&nbsp;Bs.F. "+ total_mont_amorti +"</td></tr></table></td></tr></table>";
			
			document.getElementById("tabla_amortizacion_print").style.display = "block";
			document.getElementById("tabla_amortizacion_print").innerHTML = texto;
			document.getElementById("tabla_totales_print").style.display = "block";
			document.getElementById("tabla_totales_print").innerHTML = texto3;
		}
		else
		{
			document.getElementById("tabla_amortizacion_print").style.display = "none";
			document.getElementById("tabla_totales_print").style.display = "none";
		}
}