function calcular_onclickkkk(){
valor1=Delete_miles(document.formu.importeh.value);
if (!(EsNumerico(valor1))){alert ("El valor tecleado no es un numero!");document.formu.importeh.focus();document.formu.importeh.select();return;}
if (document.formu.importeh.value == ""){alert ("Introduzca el importe!");document.formu.importeh.focus();document.formu.importeh.select();return;}
var suma;
buscarvalor4(valor1);
document.f_result.ajd.value = Math.round(parseInt(valor1) * 0.01125);
if (document.formu.radio[1].checked){
document.f_result.notario.value = Math.round(document.f_result.notario.value/166);
document.f_result.gestion.value = Math.round(document.f_result.gestion.value/166);
document.f_result.registro.value = Math.round(document.f_result.registro.value/166);
document.f_result.ajd.value = Math.round(document.f_result.ajd.value/166);
document.f_result.iva.value = Math.round(document.f_result.iva.value/166);}
	
suma = parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value) + parseInt(document.f_result.ajd.value)+ parseInt(document.f_result.iva.value);
document.f_result.total.value = suma;		

document.f_result.total.value = Formato_numero(document.f_result.total.value);

document.f_result.notario.value = Formato_numero(document.f_result.notario.value);
document.f_result.gestion.value = Formato_numero(document.f_result.gestion.value);
document.f_result.registro.value = Formato_numero(document.f_result.registro.value);
document.f_result.ajd.value = Formato_numero(document.f_result.ajd.value);
document.f_result.iva.value = Formato_numero(document.f_result.iva.value);
}
//-------------------------------------------------
function pts4(){if (!(document.formu.importeh.value == "")){var valor_actual;var res;valor1=Delete_miles(document.formu.importeh.value);valor_actual = valor1 * 166.386;document.formu.importeh.value = Math.round(valor_actual);document.formu.importeh.value = Formato_numero(document.formu.importeh.value);valor_actual = 0;alert ("El valor en pesetas se reajusto!");}}
//-------------------------------------------------
function euro4(){if (!(document.formu.importeh.value == "" )){var valor_actual;var res;valor1=Delete_miles(document.formu.importeh.value);valor_actual = valor1 / 166.386;document.formu.importeh.value = Math.round(valor_actual);document.formu.importeh.value = Formato_numero(document.formu.importeh.value);}}
//-------------------------------------------------
function buscarvalor4(v1){
if (document.formu.radio[1].checked){v1 = v1 * 166.386;}
document.f_result.gestion.value = 15000;
document.f_result.iva.value = 2400;
if (v1 > "50000000"){document.f_result.notario.value = 83000;document.f_result.registro.value = 41000;for (i=50000000;i<v1;i+=5000000){document.f_result.notario.value = parseInt(document.f_result.notario.value) + 1000;document.f_result.registro.value = parseInt(document.f_result.registro.value) + 2000;}}
if (v1 > "45000000" && v1 <= "50000000"){document.f_result.notario.value = 83000;document.f_result.ajd.value = 250000;document.f_result.registro.value = 41000;}
if (v1 > "40000000" && v1 <= "45000000"){document.f_result.notario.value = 82000;document.f_result.ajd.value = 225000;document.f_result.registro.value = 39000;}
if (v1 > "35000000" && v1 <= "40000000"){document.f_result.notario.value = 79000;document.f_result.ajd.value = 200000;document.f_result.registro.value = 37000;}
if (v1 > "30000000" && v1 <= "35000000"){document.f_result.notario.value = 76000;document.f_result.ajd.value = 175000;document.f_result.registro.value = 37000;}
if (v1 > "29000000" && v1 <= "30000000"){document.f_result.notario.value = 75000;document.f_result.ajd.value = 150000;document.f_result.registro.value = 36000;}
if (v1 > "28000000" && v1 <= "29000000"){document.f_result.notario.value = 74000;document.f_result.ajd.value = 145000;document.f_result.registro.value = 36000;}
if (v1 > "27000000" && v1 <= "28000000"){document.f_result.notario.value = 73000;document.f_result.ajd.value = 140000;document.f_result.registro.value = 35000;}
if (v1 > "26000000" && v1 <= "27000000"){document.f_result.notario.value = 72000;document.f_result.ajd.value = 135000;document.f_result.registro.value = 35000;}
if (v1 > "25000000" && v1 <= "26000000"){document.f_result.notario.value = 71000;document.f_result.ajd.value = 130000;document.f_result.registro.value = 34000;}
if (v1 > "24000000" && v1 <= "25000000"){document.f_result.notario.value = 70000;document.f_result.ajd.value = 125000;document.f_result.registro.value = 34000;}
if (v1 > "23000000" && v1 <= "24000000"){document.f_result.notario.value = 69000;document.f_result.ajd.value = 120000;document.f_result.registro.value = 33000;}
if (v1 > "22000000" && v1 <= "23000000"){document.f_result.notario.value = 68000;document.f_result.ajd.value = 115000;document.f_result.registro.value = 33000;}
if (v1 > "21000000" && v1 <= "22000000"){document.f_result.notario.value = 67000;document.f_result.ajd.value = 110000;document.f_result.registro.value = 32000;}
if (v1 > "20000000" && v1 <= "21000000"){document.f_result.notario.value = 66000;document.f_result.ajd.value = 105000;document.f_result.registro.value = 31500;}
if (v1 > "19000000" && v1 <= "20000000"){document.f_result.notario.value = 65000;document.f_result.ajd.value = 100000;document.f_result.registro.value = 31500;}
if (v1 > "18000000" && v1 <= "19000000"){document.f_result.notario.value = 64000;document.f_result.ajd.value = 95000;document.f_result.registro.value = 30500;}
if (v1 > "17000000" && v1 <= "18000000"){document.f_result.notario.value = 63000;document.f_result.ajd.value = 90000;document.f_result.registro.value = 29500;}
if (v1 > "16000000" && v1 <= "17000000"){document.f_result.notario.value = 62000;document.f_result.ajd.value = 85000;document.f_result.registro.value = 28500;}
if (v1 > "15000000" && v1 <= "16000000"){document.f_result.notario.value = 61000;document.f_result.ajd.value = 80000;document.f_result.registro.value = 27500;}
if (v1 > "14000000" && v1 <= "15000000"){document.f_result.notario.value = 60000;document.f_result.ajd.value = 75000;document.f_result.registro.value = 26500;}
if (v1 > "13000000" && v1 <= "14000000"){document.f_result.notario.value = 59000;document.f_result.ajd.value = 70000;document.f_result.registro.value = 25500;}
if (v1 > "12000000" && v1 <= "13000000"){document.f_result.notario.value = 58000;document.f_result.ajd.value = 65000;document.f_result.registro.value = 24500;}
if (v1 > "11000000" && v1 <= "12000000"){document.f_result.notario.value = 57000;document.f_result.ajd.value = 60000;document.f_result.registro.value = 23500;}
if (v1 > "10000000" && v1 <= "11000000"){document.f_result.notario.value = 56000;document.f_result.ajd.value = 55000;document.f_result.registro.value = 22500;}
if (v1 > "9000000" && v1 <= "10000000"){document.f_result.notario.value = 55000;document.f_result.ajd.value = 50000;document.f_result.registro.value = 21500;}
if (v1 > "8000000" && v1 <= "9000000"){document.f_result.notario.value = 54000;document.f_result.ajd.value = 45000;document.f_result.registro.value = 20500;}
if (v1 > "7000000" && v1 <= "8000000"){document.f_result.notario.value = 52000;document.f_result.ajd.value = 40000;document.f_result.registro.value = 19500;}
if (v1 > "6000000" && v1 <= "7000000"){document.f_result.notario.value = 50000;document.f_result.ajd.value = 35000;document.f_result.registro.value = 18500;}
if (v1 > "5000000" && v1 <= "6000000"){document.f_result.notario.value = 48000;document.f_result.ajd.value = 30000;document.f_result.registro.value = 17500;}
if (v1 > "4000000" && v1 <= "5000000"){document.f_result.notario.value = 44000;document.f_result.ajd.value = 25000;document.f_result.registro.value = 16500;}
if (v1 > "3000000" && v1 <= "4000000"){document.f_result.notario.value = 41000;document.f_result.ajd.value = 20000;document.f_result.registro.value = 15000;}
if (v1 > "2000000" && v1 <= "3000000"){document.f_result.notario.value = 38000;document.f_result.ajd.value = 15000;document.f_result.registro.value = 13500;}
if (v1 > "1000000" && v1 <= "2000000"){document.f_result.notario.value = 35000;document.f_result.ajd.value = 10000;document.f_result.registro.value = 12500;}
if (v1 <= "1000000"){document.f_result.notario.value = 30000;document.f_result.ajd.value = 5000;document.f_result.registro.value = 11500;}}