//Desarrollo realizado por Asesores Bancarios y Financieros www.abanfin.com
//Prohibida la reproducción total o parcial por cualquier medio salvo autorización expresa de Asesores Bancarios y //Financieros
//--------------------------------------------------------------------------------------
// Tomar el valor del índice de referencia
// Mibor,Euribor, IRPH Cajas, IRPH Bancos, IRPH Conjunto de Entidades, CECA
// Últimos datos publicados Abril
function indice(posicion)
{
var vreferencia=new Array(2.056,2.055,3.460,3.241,3.358,4.625);
referencia=vreferencia[posicion];
return referencia;
}
//-----------------------------------------------------------------------------------
// Genera el desplegable de las escala de gravamen irpf
function tgravamen(form)
{

// Territorio Común
var vvalue=new Array(0,0.15,0.24,0.28,0.37,0.45)
var vopcion=new Array(leerDato(15),"15 %","24 %","28 %","37 %","45 %")


while (document.all.escala.options.length) document.all.escala.options.remove(0);
	for (i=0; i<=5; i++)
	{
			oOption = document.createElement("OPTION");
			oOption.text=vopcion[i];
			oOption.value=vvalue[i];
			document.all.escala.add(oOption);
			document.all.escala.disabled=false;
	}

}
//-----------------------------------------------------------------------------------

// Calcula el tipo de gravamen en función de los ingresos

function tiposgravamen(residencia,importe)
{
//Tramos IRPF
// Territorio Comun, (1) 4000,13800,25800,45000
var tcomun=new Array(0.15,0.24,0.28,0.37,0.45)
// Comunidad Foral Navarra(2) 3400,7400,15400,27900,40900,53900
var tnavarra=new Array(0.14,0.225,0.255,0.28,0.365,0.42,0.44)
// País Vasco, (3) 3600,6600,13600,27000,41000,60000
var tvasco=new Array(0,0.15,0.23,0.28,0.35,0.42,0.48)

// Calculo del tipo a aplicar
if (residencia==1 && importe<=4000){tipo=tcomun[0]; return tipo;}
if (residencia==1 && importe<=13800){tipo=tcomun[1]; return tipo;}
if (residencia==1 && importe<=25800){tipo=tcomun[2]; return tipo;}
if (residencia==1 && importe<=45000){tipo=tcomun[3]; return tipo;}
if (residencia==1 && importe>45000){tipo=tcomun[4]; return tipo;}

if (residencia==2 && importe<=3400){tipo=tnavarra[0]; return tipo;}
if (residencia==2 && importe<=7400){tipo=tnavarra[1]; return tipo;}
if (residencia==2 && importe<=15400){tipo=tnavarra[2]; return tipo;}
if (residencia==2 && importe<=27900){tipo=tnavarra[3]; return tipo;}
if (residencia==2 && importe<=40900){tipo=tnavarra[4]; return tipo;}
if (residencia==2 && importe<=53900){tipo=tnavarra[5]; return tipo;}
if (residencia==2 && importe>53900){tipo=tnavarra[6]; return tipo;}

if (residencia==3 && importe<=3600){tipo=tvasco[0];return tipo;}
if (residencia==3 && importe<=6600){tipo=tvasco[1];return tipo;}
if (residencia==3 && importe<=13600){tipo=tvasco[2];return tipo;}
if (residencia==3 && importe<=27000){tipo=tvasco[3];return tipo;}
if (residencia==3 && importe<=41000){tipo=tvasco[4];return tipo;}
if (residencia==3 && importe<=60000){tipo=tvasco[5];return tipo;}
if (residencia==3 && importe>60000){tipo=tvasco[4];return tipo;}


return tipo;
}

//-----------------------------------------------------------------------------------

// Calcula el tipo de ajuste de las plusvalías del régimen transitorio

function rtransitorio(activo,antiguedad)
{
// Acciones cotización oficial, exentos las adquiridas antes del 31/12/1991
var acciones=new Array(1,0.75,0.50,0.25,0.0)
// Fondos de inversion y acciones no cotizacas, exentos adquiridos antes 31/12/1998
var fondos=new Array(1,0.8572,0.7144,0.5716,0.4288,0.2860,0.1432,0)


// Calculo del régimen transitorio de las acciones cotizadas
if (activo==1 && antiguedad<=2){tajuste=acciones[0]; return tajuste;}
if (activo==1 && antiguedad<=3){tajuste=acciones[1]; return tajuste;}
if (activo==1 && antiguedad<=4){tajuste=acciones[2]; return tajuste;}
if (activo==1 && antiguedad<=5){tajuste=acciones[3]; return tajuste;}
if (activo==1 && antiguedad>5){tajuste=acciones[4]; return tajuste;}

// Calculo del régimen transitorio de los fondos de inversión y acciones no cotizadas
if (activo==2 && antiguedad<=2){tajuste=fondos[0]; return tajuste;}
if (activo==2 && antiguedad<=3){tajuste=fondos[1]; return tajuste;}
if (activo==2 && antiguedad<=4){tajuste=fondos[2]; return tajuste;}
if (activo==2 && antiguedad<=5){tajuste=fondos[3]; return tajuste;}
if (activo==2 && antiguedad<=6){tajuste=fondos[4]; return tajuste;}
if (activo==2 && antiguedad<=7){tajuste=fondos[5]; return tajuste;}
if (activo==2 && antiguedad<=8){tajuste=fondos[6]; return tajuste;}
if (activo==2 && antiguedad>8){tajuste=fondos[7]; return tajuste;}

return tajuste;
}

//-------------------------------------------------------------------------------------
// Tomar el valor del coeficiente de actualización de los valores de compra en los terriotorios Forales de 
// Álava, Guipuzcoa y Navarra

function coeficientepv(posicion)
{
//Orden de los coeficientes, publicados en el BOP número 237, 11/12/2003
//1994 y anteriores,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004

var vcoeficiente=new Array(1.230,1.306,1.258,1.230,1.203,1.170,1.130,1.088,1.050,1.020,1);
coeficiente=vcoeficiente[posicion];
return coeficiente;
}

//-----------------------------------------------------------------------
//Otras cuestiones sobre normativa foral
// Navarra, exención de variación patrimonial cuando se trate de una transmisión onerosa y no supere los 3.000.- // Euros en el año natural