function Cargar_Combos_Intereses_Moratorios(){
	Cargar_Combos_Comunes("SELECT intano as cod_arr, intano as des_arr FROM tblanos ORDER BY intano","Ano");
}


function Inicio(){
	for (k=0; k<AnoTasas.length; k++) {
		var AA=AnoTasas[k];
		var MM=MesTasas[k];
		var TI=Tasa[k];
	}
	MensajeTasa=" Año: ("+AA+")  Mes: ("+MM+")  Tasa: ("+TI+")";
	document.form1.Ultima.value=MensajeTasa;
}
function Calcular(fecha){
	//document.form1.Tasas.value="Hola";
	if(document.form1.Trimestre.value=="S"){
	alert("Debe indicar un Trimestre");
	}else
	if(document.form1.Ano.value=="0"){
	alert("Debe indicar un Año");
	}else
	if(document.form1.FechaPago.value==""){
	alert("Debe indicar una fecha de pago");
	}else
	if (fechaMayorOIgualQue(fecha)!=true) {
	alert("Error en la Fecha de Pago");
	}else
	if(document.form1.Monto.value=="" || document.form1.Monto.value==0 || document.form1.Monto.value=="0,00"){
	alert("Debe indicar un Monto");
	}else{
		valor=document.form1.Trimestre.value;
		valor1=document.form1.Ano.value;
		
		document.form1.ano_trimestre.value = document.form1.Ano.value+' - '+document.form1.Trimestre.value;
		
		fecha_final = document.form1.FechaPago.value;
		fecha_final = fecha_final.replace(/-/g,'/');
		document.form1.fecha_final.value = fecha_final;
		
		document.form1.Aportes.value = document.form1.Monto.value;
		
		
		for (i=0; i<Trimestre.length; i++) {
			if (Trimestre[i]==valor && Ano[i]==valor1) {
				//alert(Fecha[i]);
				document.form1.FechaEfe.value=Fecha[i];
				fechaEfectiva=Fecha[i];
			}
		}
		fecha=document.form1.FechaPago.value;
		var sDia1 = fecha.substring(0,2); 
		var sMes1 = fecha.substring(3,5); 
		var sAno1 = fecha.substring(6,10);
		var sDia0 = fechaEfectiva.substring(0,2); 
		var sMes0 = fechaEfectiva.substring(3,5); 
		var sAno0 = fechaEfectiva.substring(6,10);
		
		var ArregloAno = new Array();
		var ArregloMes = new Array();
		h=0;
		for (i=sAno0; i<=sAno1; i++) {
			ArregloAno[h]=i;
			h++;
		}
		var Contador=0;
		var ContadorTasa=0;
		var Deuda=0;
		var Mensaje="";
		var monto=document.form1.Monto.value;
		r=0;
		for (i=0; i<ArregloAno.length; i++) {
		Res=ArregloAno[i]/4;
			if(Res==0){
			Diasdelano=366;
			}else{
			Diasdelano=365;
			}
			for (j=0; j<AnoTasas.length; j++) {
			if(sAno0!=sAno1){
				if(ArregloAno[i]==AnoTasas[j] && MesTasas[j]==sMes1 && AnoTasas[j]==sAno1){
					//alert("Año:"+AnoTasas[j]+"Mes:"+MesTasas[j]+"Tasa:"+Tasa[j]+"Dias:"+DiasTasas[j]);
					//alert("1");
					//document.form1.FechaEfe.value=Fecha[i];
					//if(sDia1!=1){
					Tas=Tasa[j]*monto;
					TasTot=Tas/100;
					TotalMes=TasTot/sDia1;
					Contador=Contador+TotalMes;
					r++;
					Resultado=Tasa[j]/Diasdelano;
					Res1=sDia1*Resultado;
					ContadorTasa=ContadorTasa+Res1;
					//}
					if(MesTasas[j]<10){
					MT="0"+MesTasas[j];
					}else{
					MT=MesTasas[j];
					}
					//alert("Ultimo:"+Contador);
					Mensaje=Mensaje+" Año: ("+AnoTasas[j]+")  Mes: ("+MT+")  Tasa: ("+Tasa[j]+")\n";
				}else
				if(ArregloAno[i]==AnoTasas[j] && MesTasas[j]==sMes0 && AnoTasas[j]==sAno0){
					//alert("Año:"+AnoTasas[j]+"Mes:"+MesTasas[j]+"Tasa:"+Tasa[j]+"Dias:"+DiasTasas[j]);
					//document.form1.FechaEfe.value=Fecha[i];
					//alert("2");
					Pdias=DiasTasas[j]-sDia0;
					if(Pdias!=0){
					Tas=Tasa[j]*monto;
					TasTot=Tas/100;
					TotalMes=TasTot/Pdias;
					Contador=Contador+TotalMes;
					r++;
					Resultado=Tasa[j]/Diasdelano;
					Res1=Pdias*Resultado;
					ContadorTasa=ContadorTasa+Res1;
					}
					//alert("Primero:"+Contador);
					if(MesTasas[j]<10){
					MT="0"+MesTasas[j];
					}else{
					MT=MesTasas[j];
					}
					Mensaje=Mensaje+" Año: ("+AnoTasas[j]+")  Mes: ("+MT+")  Tasa: ("+Tasa[j]+")\n";
				}else
				if (ArregloAno[i]==AnoTasas[j] && MesTasas[j]>=sMes0 && AnoTasas[j]==sAno0) {
					//alert("Año:"+AnoTasas[j]+"Mes:"+MesTasas[j]+"Tasa:"+Tasa[j]+"Dias:"+DiasTasas[j]);
					//document.form1.FechaEfe.value=Fecha[i];
					//alert("3");
					Tas=Tasa[j]*monto;
					TasTot=Tas/100;
					TotalMes=TasTot/DiasTasas[j];
					Contador=Contador+TotalMes;
					r++;
					Resultado=Tasa[j]/Diasdelano;
					Res1=DiasTasas[j]*Resultado;
					ContadorTasa=ContadorTasa+Res1;
					//alert(Contador);
					if(MesTasas[j]<10){
					MT="0"+MesTasas[j];
					}else{
					MT=MesTasas[j];
					}
					Mensaje=Mensaje+" Año: ("+AnoTasas[j]+")  Mes: ("+MT+")  Tasa: ("+Tasa[j]+")\n";
				}else
				if (ArregloAno[i]==AnoTasas[j] && (AnoTasas[j]!=sAno0 && AnoTasas[j]!=sAno1)) {
					//alert("Año:"+AnoTasas[j]+"Mes:"+MesTasas[j]+"Tasa:"+Tasa[j]+"Dias:"+DiasTasas[j]);
					//document.form1.FechaEfe.value=Fecha[i];
					//alert("4");
					Tas=Tasa[j]*monto;
					TasTot=Tas/100;
					TotalMes=TasTot/DiasTasas[j];
					Contador=Contador+TotalMes;
					r++;
					Resultado=Tasa[j]/Diasdelano;
					Res1=DiasTasas[j]*Resultado;
					ContadorTasa=ContadorTasa+Res1;
					//alert(Contador);
					if(MesTasas[j]<10){
					MT="0"+MesTasas[j];
					}else{
					MT=MesTasas[j];
					}
					Mensaje=Mensaje+" Año: ("+AnoTasas[j]+")  Mes: ("+MT+")  Tasa: ("+Tasa[j]+")\n";
				}else
				if (ArregloAno[i]==AnoTasas[j] && MesTasas[j]<=sMes1 && AnoTasas[j]==sAno1) {
					//alert("Año:"+AnoTasas[j]+"Mes:"+MesTasas[j]+"Tasa:"+Tasa[j]+"Dias:"+DiasTasas[j]);
					//document.form1.FechaEfe.value=Fecha[i];
					//alert("5");
					Tas=Tasa[j]*monto;
					TasTot=Tas/100;
					TotalMes=TasTot/DiasTasas[j];
					Contador=Contador+TotalMes;
					r++;
					Resultado=Tasa[j]/Diasdelano;
					Res1=DiasTasas[j]*Resultado;
					ContadorTasa=ContadorTasa+Res1;
					//alert(Contador);
					if(MesTasas[j]<10){
					MT="0"+MesTasas[j];
					}else{
					MT=MesTasas[j];
					}
					Mensaje=Mensaje+" Año: ("+AnoTasas[j]+")  Mes: ("+MT+")  Tasa: ("+Tasa[j]+")\n";
				}
			}else{
				if(ArregloAno[i]==AnoTasas[j] && MesTasas[j]==sMes1 && AnoTasas[j]==sAno1){
					//alert("Año:"+AnoTasas[j]+"Mes:"+MesTasas[j]+"Tasa:"+Tasa[j]+"Dias:"+DiasTasas[j]);
					//document.form1.FechaEfe.value=Fecha[i];
					//alert(Tasa[j]);
					//if(sDia1!=1){
					Tas=Tasa[j]*monto;
					TasTot=Tas/100;
					TotalMes=TasTot/sDia1;
					Contador=Contador+TotalMes;
					r++;
					Resultado=Tasa[j]/Diasdelano;
					TT=sDia1-sDia0;
					if(sMes1==sMes0){
					Res1=TT*Resultado;
					}else{
					Res1=sDia1*Resultado;
					}
					ContadorTasa=ContadorTasa+Res1;
					//}
					if(MesTasas[j]<10){
					MT="0"+MesTasas[j];
					}else{
					MT=MesTasas[j];
					}
					//alert("Ultimo:"+Contador);
					Mensaje=Mensaje+" Año: ("+AnoTasas[j]+")  Mes: ("+MT+")  Tasa: ("+Tasa[j]+")\n";
				}else
				if(ArregloAno[i]==AnoTasas[j] && MesTasas[j]==sMes0 && AnoTasas[j]==sAno0){
					//alert("Año:"+AnoTasas[j]+"Mes:"+MesTasas[j]+"Tasa:"+Tasa[j]+"Dias:"+DiasTasas[j]);
					//document.form1.FechaEfe.value=Fecha[i];
					//alert("7");
					Pdias=DiasTasas[j]-sDia0;
					if(Pdias!=0){
					Tas=Tasa[j]*monto;
					TasTot=Tas/100;
					TotalMes=TasTot/Pdias;
					Contador=Contador+TotalMes;
					r++;
					Resultado=Tasa[j]/Diasdelano;
					Res1=Pdias*Resultado;
					ContadorTasa=ContadorTasa+Res1;
					}
					//alert("Primero:"+Contador);
					if(MesTasas[j]<10){
					MT="0"+MesTasas[j];
					}else{
					MT=MesTasas[j];
					}
					Mensaje=Mensaje+" Año: ("+AnoTasas[j]+")  Mes: ("+MT+")  Tasa: ("+Tasa[j]+")\n";
				}else
				if (ArregloAno[i]==AnoTasas[j] && (MesTasas[j]<=sMes1 && MesTasas[j]>=sMes0)) {
					//alert("Año:"+AnoTasas[j]+"Mes:"+MesTasas[j]+"Tasa:"+Tasa[j]+"Dias:"+DiasTasas[j]);
					//document.form1.FechaEfe.value=Fecha[i];
					//alert("8");
					Tas=Tasa[j]*monto;
					TasTot=Tas/100;
					TotalMes=TasTot/DiasTasas[j];
					Contador=Contador+TotalMes;
					r++;
					Resultado=Tasa[j]/Diasdelano;
					Res1=DiasTasas[j]*Resultado;
					ContadorTasa=ContadorTasa+Res1;
					if(MesTasas[j]<10){
					MT="0"+MesTasas[j];
					}else{
					MT=MesTasas[j];
					}
					//alert(Contador);
					Mensaje=Mensaje+" Año: ("+AnoTasas[j]+")  Mes: ("+MT+")  Tasa: ("+Tasa[j]+")\n";
				}
			}	
			}
		}
		monto = sinforma(monto);
		Deuda=monto*ContadorTasa;
		//TasaTot=Contador/r;
		
		//resumen de las tasas
		//document.form1.Tasas.value=Mensaje;
		document.form1.TasaTot.value=fmtMoneda(ContadorTasa,4);
		//montonew=document.form1.Monto.value;
		//alert(monto);
		//alert(Deuda);
		Deuda=Deuda/100;
		
		// Aplicar Redondeo a la deuda
		//Deuda = Math.round(Deuda*1)/1;
		document.form1.DeudaTot.value=fmtMoneda(Deuda,2);
		//document.form1.DeudaTot.value=Deuda;
		normal();
		if (fechaMayorOIgualQueIM(document.form1.FechaEfe.value)!=true) {

		document.form1.Tasas.value="";
		document.form1.TasaTot.value=0;
		document.form1.DeudaTot.value=0;
		}
		
		var Fil = document.getElementById("Tabla_intereses").insertRow(-1);
		
		var Col_1 = Fil.insertCell(0);
			Col_1.className = "tabla";
			Col_1.height = "15";
			Col_1.innerHTML = document.form1.ano_trimestre.value;
		
		var Col_2 = Fil.insertCell(1);
			Col_2.className = "tabla";
			Col_2.innerHTML = document.form1.FechaEfe.value;
			
		var Col_3 = Fil.insertCell(2);
			Col_3.className = "tabla";
			Col_3.innerHTML = document.form1.fecha_final.value;
			
		var Col_4 = Fil.insertCell(3);
			Col_4.className = "tabla";
			Col_4.innerHTML = document.form1.Atraso.value;
		
		var Col_5 = Fil.insertCell(4);
			Col_5.className = "tabla";
			Col_5.innerHTML = document.form1.TasaTot.value;
		
		var Col_6 = Fil.insertCell(5);
			Col_6.className = "tabla";
			Col_6.innerHTML = document.form1.Aportes.value;
		
		var Col_7 = Fil.insertCell(6);
			Col_7.className = "tabla";
			Col_7.innerHTML = document.form1.DeudaTot.value;
		
		tot_deu_int_mor = document.form1.Deuda_total_intereses_moratorios.value;
		tot_deu_int_mor = sinforma(tot_deu_int_mor);
		tot_deu_int_mor = parseFloat(tot_deu_int_mor);
		
		valor_actual = document.form1.DeudaTot.value;
		valor_actual = sinforma(valor_actual);
		valor_actual = parseFloat(valor_actual);
		tot_deu_int_mor = tot_deu_int_mor + valor_actual;
		tot_deu_int_mor = fmtMoneda(tot_deu_int_mor);
		
		document.form1.Deuda_total_intereses_moratorios.value = tot_deu_int_mor;
		
		document.getElementById("Total_General").innerHTML = "Total General ................. "+document.form1.Deuda_total_intereses_moratorios.value;
		
		
		document.form1.ano_trimestre.value = "";
		document.form1.FechaEfe.value = "";
		document.form1.fecha_final.value = "";
		document.form1.Atraso.value = "";
		document.form1.TasaTot.value = "";
		document.form1.Aportes.value = "";
		document.form1.DeudaTot.value = "";
		
		document.form1.Trimestre.value = "S";
		document.form1.Ano.value = "0";
		document.form1.FechaPago.value = "";
		document.form1.Monto.value = "";
	}
}

function LimpiarTabla_Intereses(){
	var tabla = document.getElementById("Tabla_intereses");
	document.getElementById("Total_General").innerHTML = "Calculo de Intereses Moratorios";
	document.form1.Trimestre.value = "S";
	document.form1.Ano.value = "0";
	document.form1.FechaPago.value = "";
	document.form1.Monto.value = "";
	document.form1.Deuda_total_intereses_moratorios.value = 0;
	
	document.getElementById("nro_aportante").value = "";
	document.getElementById("Razon_social").innerHTML = "";
	while (tabla.rows.length > 1) {
		   tabla.deleteRow(1);
	}
	
	var Fil = document.getElementById("Tabla_intereses").insertRow(-1);
	var Col_1 = Fil.insertCell(0);
			Col_1.className = "CeldaColor33";
			Col_1.width = "79";
			Col_1.height = "20";
			Col_1.innerHTML = "A&ntilde;o - Trimestre ";
		
		var Col_2 = Fil.insertCell(1);
			Col_2.width = "81";
			Col_2.className = "CeldaColor33";
			Col_2.innerHTML = "Fecha Efectiva";
			
		var Col_3 = Fil.insertCell(2);
			Col_3.width = "69";
			Col_3.className = "CeldaColor33";
			Col_3.innerHTML = "Fecha Final";
			
		var Col_4 = Fil.insertCell(3);
			Col_4.width = "70";
			Col_4.className = "CeldaColor33";
			Col_4.innerHTML = "Días Atraso";
		
		var Col_5 = Fil.insertCell(4);
			Col_5.width = "82";
			Col_5.className = "CeldaColor33";
			Col_5.innerHTML = "Tasa Promedio";
		
		var Col_6 = Fil.insertCell(5);
			Col_6.width = "65";
			Col_6.className = "CeldaColor33";
			Col_6.innerHTML = "Aportes";
		
		var Col_7 = Fil.insertCell(6);
			Col_7.width = "93";
			Col_7.className = "CeldaColor33";
			Col_7.innerHTML = "Deuda Total (Bs.)";
}


var acc=0
var show_time=false;
var timerID=null;
var blank=":";

function normal(){ 

//fecha de inicio
	fecha_ini = document.form1.FechaEfe.value;
		
	array_fecha_ini = fecha_ini.split("-");
	d_ini = (array_fecha_ini[0]);
	m_ini = (array_fecha_ini[1]); 
	a_ini = (array_fecha_ini[2]);
	
	/*document.my_age.birthy.value = a_ini;
	document.my_age.birthm.value = m_ini;
	document.my_age.birthd.value = d_ini;*/
	
	//fecha de fin
	fecha_fin = document.form1.FechaPago.value;
	
	array_fecha_fin = fecha_fin.split("/");
	d_fin = (array_fecha_fin[0]);
	m_fin = (array_fecha_fin[1]); 
	a_fin = (array_fecha_fin[2]);                            
	/*alert(d_fin);
	alert(m_fin);
	alert(a_fin);*/
	Month = m_fin-1; 
	Day = d_fin;   
	Year = a_fin;
	Hour = 0;
	Minute = 0;
	Second = 0;
	
	by = a_ini;
	bm = m_ini;
	bd = d_ini;
	bh = 0;
	bmn = 0;
	bs = 0;
	BDate = Date.UTC(by,bm,bd,bh,bmn,bs);
	//alert("BDATE:"+BDate)
	if(m_ini==m_fin && a_ini==a_fin){
	var DiasAt=d_fin-d_ini;
	//alert(DiasAt);
	}
	
	if (Year<2000){              
		CDate = Date.UTC(Year,Month,Day,Hour,Minute,Second);
	}else{
		CDate = Date.UTC(Year,Month,Day,Hour,Minute,Second);
	}
	//alert("CDATE:"+CDate)
	
	Age = CDate-BDate + (1000*60*60*24*30);
	//Age = Age+10;
	//alert(Age); 
	//document.form1.Atraso.value = parseInt(((((Age/1000)/60)/60)/24)/365.25,10);
	var Otra=parseInt((((Age/1000)/60)/60)/24,10); 
	if(DiasAt!=Otra && m_ini==m_fin && a_ini==a_fin){
	document.form1.Atraso.value = DiasAt;
	}else{
	document.form1.Atraso.value = parseInt((((Age/1000)/60)/60)/24,10);
	}
	//document.form1.Atraso.value = ((((Age/1000)/60)/60)/24,10); /*document.my_age.hrs.value = parseInt(((Age/1000)/60)/60,10); document.my_age.mins.value = parseInt((Age/1000)/60,10); document.my_age.secs.value = parseInt(Age/1000,10);*/
}

fmtMoneda = function(n, c, d, t){
	if(n != ""){
n = isNaN(n)?0:n;
var m = (c = Math.abs(c) + 1 ? c : 2, d = d || ",", t = t || ".",/(\d+)(?:(\.\d+)|)/.exec(n + "")), x = m[1].length > 3 ? m[1].length % 3 : 0;
return (x ? m[1].substr(0, x) + t : "") + m[1].substr(x).replace(/(\d{3})(?=\d)/g,"$1" + t) + (c ? d + (+m[2] || 0).toFixed(c).substr(2) : "");
	}else{
		return "0,00";
		}
}

sinforma = function (num){
num = num.toString().replace(/\$|\./g,'');
return (num.toString().replace(/\$|\,/g,'.'));
}

var nav4 = window.Event ? true : false;
//Función que sólo permite introducir números en un cuadro de texto
function acceptNum(evt){	
	// NOTE: Backspace = 8, Enter = 13, '0' = 48, '9' = 57	
	var key = nav4 ? evt.which : evt.keyCode;	
	//Combinación de teclas que se podrán introducir
	return (key <= 13 || (key >= 48 && key <= 57));
}

var nav4 = window.Event ? true : false;
//Función que sólo permite introducir números en un cuadro de texto
function acceptNum1(evt){	
	// NOTE: Backspace = 8, Enter = 13, '0' = 48, '9' = 57	
	var key = nav4 ? evt.which : evt.keyCode;	
	//Combinación de teclas que se podrán introducir
	return (key <= 13 || key == 46 ||(key >= 48 && key <= 57));
}   

var nav5 = window.Event ? true : false;
//Función que no permite introducir números en un cuadro de texto
function acceptLet(evet){
	// NOTE: Backspace = 8, Enter = 13, '0' = 48, '9' = 57	
	var key = nav5 ? evet.which : evet.keyCode;	
	//Combinación de teclas que se podrán introducir
	return (key <= 13 || key == 32 || key == 241 || key == 209 || key == 243 || key == 193 || key == 225 || key == 233 || key == 201 || key == 205 || key == 237 || key == 211 || key == 218 || key == 250 || (key >= 65 && key <= 90) || (key >= 97 && key <= 122));
}

function fechaMayorOIgualQue(fecha){ 
var bRes = false;
	var sDia0 = fecha.substring(0,2); 
	var sMes0 = fecha.substring(3,5); 
	var sAno0 = fecha.substring(6,10); 
	var sDia1 = document.form1.FechaPago.value.substring(0,2); 
	var sMes1 = document.form1.FechaPago.value.substring(3,5); 
	var sAno1 = document.form1.FechaPago.value.substring(6,10);
	if (sAno0 > sAno1) bRes = true; 
	else { 
	 if (sAno0 == sAno1) { 
		if (sMes0 > sMes1) bRes = true; 
	    else { 
		    if (sMes0 == sMes1) 
				if (sDia0 >= sDia1) bRes = true; 
		} 
	 } 
	} 
    return bRes; 
}

function fechaMayorOIgualQueIM(fecha){ 
var bRes = false;
	var sDia0 = fecha.substring(0,2); 
	var sMes0 = fecha.substring(3,5); 
	var sAno0 = fecha.substring(6,10); 
	var sDia1 = document.form1.FechaPago.value.substring(0,2); 
	var sMes1 = document.form1.FechaPago.value.substring(3,5); 
	var sAno1 = document.form1.FechaPago.value.substring(6,10);
	if (sAno0 < sAno1) bRes = true; 
	else { 
	 if (sAno0 == sAno1) { 
		if (sMes0 < sMes1) bRes = true; 
	    else { 
		    if (sMes0 == sMes1) 
				if (sDia0 <= sDia1) bRes = true; 
		} 
	 } 
	} 
    return bRes; 
} 	

function buscar_aportante(){
	var nro_aport = document.getElementById("nro_aportante").value;
	if(nro_aport != ""){
		EJECUTAR_BUSQUEDA_APORT(nro_aport);
	}else{
		alert("Debe Introducir un Numero de Aportante");	
	}
}