// C&T Productos y Servicios
// (C) Copyright 1996-2001 - Hipotecagratis.com
// Cualquier modificación, copia parcial o total de este programa
// se deberá notificar previamente para su autorización a:
// info@cyt.com - C/Islas Aleutianas 4 1 izq


// JS de la primera calculadora welcome1.html
function buscarvalor(v1, v2) {
if (document.formu.radio[1].checked){
	v2 = v2 * 166.386;
	v1 = v1 * 166.386;}
if (v1 > "95000000") {
	document.f_result.notario.value = 137000;
	document.f_result.registro.value = 87000;
	for (i=95000000;i<v1;i+=1000000){
		document.f_result.notario.value = parseInt(document.f_result.notario.value) + 500;
		document.f_result.registro.value = parseInt(document.f_result.registro.value) + 500;}
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "90000000" && v1 <= "95000000"){
	document.f_result.notario.value = 134500;
	document.f_result.registro.value = 84500;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "85000000" && v1 <= "90000000"){
	document.f_result.notario.value = 132000;
	document.f_result.registro.value = 82000;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "80000000" && v1 <= "85000000"){
	document.f_result.notario.value = 129500;
	document.f_result.registro.value = 79500;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "75000000" && v1 <= "80000000"){
	document.f_result.notario.value = 127000;
	document.f_result.registro.value = 77000;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "70000000" && v1 <= "75000000"){
	document.f_result.notario.value = 124500;
	document.f_result.registro.value = 74500;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "65000000" && v1 <= "70000000"){
	document.f_result.notario.value = 122000;
	document.f_result.registro.value = 72000;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "60000000" && v1 <= "65000000"){
	document.f_result.notario.value = 119500;
	document.f_result.registro.value = 69500;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "55000000" && v1 <= "60000000"){
	document.f_result.notario.value = 117000;
	document.f_result.registro.value = 67000;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "50000000" && v1 <= "55000000"){
	document.f_result.notario.value = 114500;
	document.f_result.registro.value = 64500;
	document.f_result.gestion.value = 64500;
	document.f_result.iva.value = 10320;}
if (v1 > "45000000" && v1 <= "50000000"){
	document.f_result.notario.value = 112000;
	document.f_result.registro.value = 62000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "40000000" && v1 <= "45000000"){
	document.f_result.notario.value = 109500;
	document.f_result.registro.value = 59500;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "35000000" && v1 <= "40000000"){
	document.f_result.notario.value = 107000;
	document.f_result.registro.value = 57000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "30000000" && v1 <= "35000000"){
	document.f_result.notario.value = 104500;
	document.f_result.registro.value = 54500;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "29000000" && v1 <= "30000000"){
	document.f_result.notario.value = 102000;
	document.f_result.registro.value = 52000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "28000000" && v1 <= "29000000"){
	document.f_result.notario.value = 100500;
	document.f_result.registro.value = 51000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "27000000" && v1 <= "28000000"){
	document.f_result.notario.value = 99000;
	document.f_result.registro.value = 50000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "26000000" && v1 <= "27000000"){
	document.f_result.notario.value = 97500;
	document.f_result.registro.value = 49000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "25000000" && v1 <= "26000000"){
	document.f_result.notario.value = 96000;
	document.f_result.registro.value = 48000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "24000000" && v1 <= "25000000"){
	document.f_result.notario.value = 94500;
	document.f_result.registro.value = 47000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "23000000" && v1 <= "24000000"){
	document.f_result.notario.value = 93000;
	document.f_result.registro.value = 46000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "22000000" && v1 <= "23000000"){
	document.f_result.notario.value = 91500;
	document.f_result.registro.value = 45000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "21000000" && v1 <= "22000000"){
	document.f_result.notario.value = 90000;
	document.f_result.registro.value = 44000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "20000000" && v1 <= "21000000"){
	document.f_result.notario.value = 88500;
	document.f_result.registro.value = 43000;
	document.f_result.gestion.value = 49500;
	document.f_result.iva.value = 7920;}
if (v1 > "19000000" && v1 <= "20000000"){
	document.f_result.notario.value = 87000;
	document.f_result.registro.value = 42500;
	document.f_result.gestion.value = 39500;
	document.f_result.iva.value = 6320;}
if (v1 > "18000000" && v1 <= "19000000"){
	document.f_result.notario.value = 85500;
	document.f_result.registro.value = 41000;
	document.f_result.gestion.value = 39500;
	document.f_result.iva.value = 6320;}
if (v1 > "17000000" && v1 <= "18000000"){
	document.f_result.notario.value = 84000;
	document.f_result.registro.value = 39500;
	document.f_result.gestion.value = 39500;
	document.f_result.iva.value = 6320;}
if (v1 > "16000000" && v1 <= "17000000"){
	document.f_result.notario.value = 82500;
	document.f_result.registro.value = 38000;
	document.f_result.gestion.value = 39500;
	document.f_result.iva.value = 6320;}
if (v1 > "15000000" && v1 <= "16000000"){
	document.f_result.notario.value = 81000;
	document.f_result.registro.value = 36500;
	document.f_result.gestion.value = 39500;
	document.f_result.iva.value = 6320;}
if (v1 > "14000000" && v1 <= "15000000"){
	document.f_result.notario.value = 79500;
	document.f_result.registro.value = 35000;
	document.f_result.gestion.value = 34500;
	document.f_result.iva.value = 5520;}
if (v1 > "13000000" && v1 <= "14000000"){
	document.f_result.notario.value = 78000;
	document.f_result.registro.value = 34500;
	document.f_result.gestion.value = 34500;
	document.f_result.iva.value = 5520;}
if (v1 > "12000000" && v1 <= "13000000"){
	document.f_result.notario.value = 76500;
	document.f_result.registro.value = 33000;
	document.f_result.gestion.value = 34500;
	document.f_result.iva.value = 5520;}
if (v1 > "11000000" && v1 <= "12000000"){
	document.f_result.notario.value = 75000;
	document.f_result.registro.value = 31500;
	document.f_result.gestion.value = 34500;
	document.f_result.iva.value = 5520;}
if (v1 > "10000000" && v1 <= "11000000"){
	document.f_result.notario.value = 73500;
	document.f_result.registro.value = 30000;
	document.f_result.gestion.value = 34500;
	document.f_result.iva.value = 5520;}
if (v1 > "9000000" && v1 <= "10000000"){
	document.f_result.notario.value = 72000;
	document.f_result.registro.value = 28500;
	document.f_result.gestion.value = 27000;
	document.f_result.iva.value = 4320;}
if (v1 > "8000000" && v1 <= "9000000"){
	document.f_result.notario.value = 71000;
	document.f_result.registro.value = 27000;
	document.f_result.gestion.value = 27000;
	document.f_result.iva.value = 4320;}
if (v1 > "7000000" && v1 <= "8000000"){
	document.f_result.notario.value = 67000;
	document.f_result.registro.value = 25500;
	document.f_result.gestion.value = 27000;
	document.f_result.iva.value = 4320;}
if (v1 > "6000000" && v1 <= "7000000"){
	document.f_result.notario.value = 63000;
	document.f_result.registro.value = 24000;
	document.f_result.gestion.value = 27000;
	document.f_result.iva.value = 4320;}
if (v1 > "5000000" && v1 <= "6000000"){
	document.f_result.notario.value = 59000;
	document.f_result.registro.value = 22500;
	document.f_result.gestion.value = 27000;
	document.f_result.iva.value = 4320;}
if (v1 > "4000000" && v1 <= "5000000"){
	document.f_result.notario.value = 55000;
	document.f_result.registro.value = 21000;
	document.f_result.gestion.value = 22000;
	document.f_result.iva.value = 3520;}
if (v1 > "3000000" && v1 <= "4000000"){
	document.f_result.notario.value = 51000;
	document.f_result.registro.value = 19500;
	document.f_result.gestion.value = 22000;
	document.f_result.iva.value = 3520;}
if (v1 > "2000000" && v1 <= "3000000"){
	document.f_result.notario.value = 47000;
	document.f_result.registro.value = 18000;
	document.f_result.gestion.value = 22000;
	document.f_result.iva.value = 3520;}
if (v1 > "1000000" && v1 <= "2000000"){
	document.f_result.notario.value = 43000;
	document.f_result.registro.value = 16500;
	document.f_result.gestion.value = 22000;
	document.f_result.iva.value = 3520;}
if (v1 <= "1000000"){
	document.f_result.notario.value = 35000;
	document.f_result.registro.value = 15000;
	document.f_result.gestion.value = 22000;
	document.f_result.iva.value = 3520;}
// fin calculo de gastos para hipoteca
if (v2 > "95000000"){
	document.f_result.notariocv.value = 150000;
	document.f_result.registrocv.value = 84000;
	for (i=95000000;i<v2;i+=1000000) {
		document.f_result.notariocv.value = parseInt(document.f_result.notariocv.value) + 500;
		document.f_result.registrocv.value = parseInt(document.f_result.registrocv.value) + 500;}
		document.f_result.gestioncv.value = 50000;
		document.f_result.ivacv.value = 8000;}
if (v2 > "90000000" && v2 <= "95000000"){
	document.f_result.notariocv.value = 145000;
	document.f_result.registrocv.value = 82000;
	document.f_result.gestioncv.value = 50000;
	document.f_result.ivacv.value = 8000;}
if (v2 > "85000000" && v2 <= "90000000"){
	document.f_result.notariocv.value = 140000;
	document.f_result.registrocv.value = 80000;
	document.f_result.gestioncv.value = 50000;
	document.f_result.ivacv.value = 8000;}
if (v2 > "80000000" && v2 <= "85000000"){
	document.f_result.notariocv.value = 135000;
	document.f_result.registrocv.value = 78000;
	document.f_result.gestioncv.value = 50000;
	document.f_result.ivacv.value = 8000;}
if (v2 > "75000000" && v2 <= "80000000"){
	document.f_result.notariocv.value = 130000;
	document.f_result.registrocv.value = 76000;
	document.f_result.gestioncv.value = 50000;
	document.f_result.ivacv.value = 8000;}
if (v2 > "70000000" && v2 <= "75000000"){
	document.f_result.notariocv.value = 125000;
	document.f_result.registrocv.value = 74000;
	document.f_result.gestioncv.value = 50000;
	document.f_result.ivacv.value = 8000;}
if (v2 > "65000000" && v2 <= "70000000"){
	document.f_result.notariocv.value = 120000;
	document.f_result.registrocv.value = 72000;
	document.f_result.gestioncv.value = 50000;
	document.f_result.ivacv.value = 8000;}
if (v2 > "60000000" && v2 <= "65000000"){
	document.f_result.notariocv.value = 115000;
	document.f_result.registrocv.value = 70000;
	document.f_result.gestioncv.value = 45000;
	document.f_result.ivacv.value = 7200;}
if (v2 > "55000000" && v2 <= "60000000"){
	document.f_result.notariocv.value = 110000;
	document.f_result.registrocv.value = 68000;
	document.f_result.gestioncv.value = 45000;
	document.f_result.ivacv.value = 7200;}
if (v2 > "50000000" && v2 <= "55000000"){
	document.f_result.notariocv.value = 105000;
	document.f_result.registrocv.value = 66000;
	document.f_result.gestioncv.value = 45000;
	document.f_result.ivacv.value = 7200;}
if (v2 > "45000000" && v2 <= "50000000"){
	document.f_result.notariocv.value = 100000;
	document.f_result.registrocv.value = 64000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "40000000" && v2 <= "45000000"){
	document.f_result.notariocv.value = 95000;
	document.f_result.registrocv.value = 62000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "35000000" && v2 <= "40000000"){
	document.f_result.notariocv.value = 92500;
	document.f_result.registrocv.value = 60000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "30000000" && v2 <= "35000000"){
	document.f_result.notariocv.value = 90000;
	document.f_result.registrocv.value = 58000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "29000000" && v2 <= "30000000"){
	document.f_result.notariocv.value = 86000;
	document.f_result.registrocv.value = 54000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "28000000" && v2 <= "29000000"){
	document.f_result.notariocv.value = 85000;
	document.f_result.registrocv.value = 52500;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "27000000" && v2 <= "28000000"){
	document.f_result.notariocv.value = 84000;
	document.f_result.registrocv.value = 51000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "26000000" && v2 <= "27000000"){
	document.f_result.notariocv.value = 83000;
	document.f_result.registrocv.value = 49500;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "25000000" && v2 <= "26000000"){
	document.f_result.notariocv.value = 82000;
	document.f_result.registrocv.value = 48000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "24000000" && v2 <= "25000000"){
	document.f_result.notariocv.value = 81000;
	document.f_result.registrocv.value = 46500;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "23000000" && v2 <= "24000000"){
	document.f_result.notariocv.value = 80000;
	document.f_result.registrocv.value = 45000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "22000000" && v2 <= "23000000"){
	document.f_result.notariocv.value = 79000;
	document.f_result.registrocv.value = 43500;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "21000000" && v2 <= "22000000"){
	document.f_result.notariocv.value = 78000;
	document.f_result.registrocv.value = 42000;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "20000000" && v2 <= "21000000"){
	document.f_result.notariocv.value = 77000;
	document.f_result.registrocv.value = 40500;
	document.f_result.gestioncv.value = 40000;
	document.f_result.ivacv.value = 6400;}
if (v2 > "19000000" && v2 <= "20000000"){
	document.f_result.notariocv.value = 76000;
	document.f_result.registrocv.value = 39000;
	document.f_result.gestioncv.value = 35000;
	document.f_result.ivacv.value = 5600;}
if (v2 > "18000000" && v2 <= "19000000"){
	document.f_result.notariocv.value = 75000;
	document.f_result.registrocv.value = 37500;
	document.f_result.gestioncv.value = 35000;
	document.f_result.ivacv.value = 5600;}
if (v2 > "17000000" && v2 <= "18000000"){
	document.f_result.notariocv.value = 74000;
	document.f_result.registrocv.value = 36000;
	document.f_result.gestioncv.value = 35000;
	document.f_result.ivacv.value = 5600;}
if (v2 > "16000000" && v2 <= "17000000"){
	document.f_result.notariocv.value = 73000;
	document.f_result.registrocv.value = 34500;
	document.f_result.gestioncv.value = 35000;
	document.f_result.ivacv.value = 5600;}
if (v2 > "15000000" && v2 <= "16000000"){
	document.f_result.notariocv.value = 72000;
	document.f_result.registrocv.value = 33000;
	document.f_result.gestioncv.value = 35000;
	document.f_result.ivacv.value = 5600;}
if (v2 > "14000000" && v2 <= "15000000"){
	document.f_result.notariocv.value = 71000;
	document.f_result.registrocv.value = 31500;
	document.f_result.gestioncv.value = 30000;
	document.f_result.ivacv.value = 4800;}
if (v2 > "13000000" && v2 <= "14000000"){
	document.f_result.notariocv.value = 70000;
	document.f_result.registrocv.value = 30000;
	document.f_result.gestioncv.value = 30000;
	document.f_result.ivacv.value = 4800;}
if (v2 > "12000000" && v2 <= "13000000"){
	document.f_result.notariocv.value = 69000;
	document.f_result.registrocv.value = 28500;
	document.f_result.gestioncv.value = 30000;
	document.f_result.ivacv.value = 4800;}
if (v2 > "11000000" && v2 <= "12000000"){
	document.f_result.notariocv.value = 68000;
	document.f_result.registrocv.value = 27000;
	document.f_result.gestioncv.value = 30000;
	document.f_result.ivacv.value = 4800;}
if (v2 > "10000000" && v2 <= "11000000"){
	document.f_result.notariocv.value = 67000;
	document.f_result.registrocv.value = 25500;
	document.f_result.gestioncv.value = 30000;
	document.f_result.ivacv.value = 4800;}
if (v2 > "9000000" && v2 <= "10000000"){
	document.f_result.notariocv.value = 66000;
	document.f_result.registrocv.value = 24000;
	document.f_result.gestioncv.value = 22500;
	document.f_result.ivacv.value = 3600;}
if (v2 > "8000000" && v2 <= "9000000"){
	document.f_result.notariocv.value = 64500;
	document.f_result.registrocv.value = 25500;
	document.f_result.gestioncv.value = 22500;
	document.f_result.ivacv.value = 3600;}
if (v2 > "7000000" && v2 <= "8000000"){
	document.f_result.notariocv.value = 63000;
	document.f_result.registrocv.value = 21000;
	document.f_result.gestioncv.value = 22500;
	document.f_result.ivacv.value = 3600;}
if (v2 > "6000000" && v2 <= "7000000"){
	document.f_result.notariocv.value = 61500;
	document.f_result.registrocv.value = 19500;
	document.f_result.gestioncv.value = 22500;
	document.f_result.ivacv.value = 3600;}
if (v2 > "5000000" && v2 <= "6000000"){
	document.f_result.notariocv.value = 60000;
	document.f_result.registrocv.value = 18000;
	document.f_result.gestioncv.value = 22500;
	document.f_result.ivacv.value = 3600;}
if (v2 > "4000000" && v2 <= "5000000"){
	document.f_result.notariocv.value = 56000;
	document.f_result.registrocv.value = 16500;
	document.f_result.gestioncv.value = 17500;
	document.f_result.ivacv.value = 2800;}
if (v2 > "3000000" && v2 <= "4000000"){
	document.f_result.notariocv.value = 48000;
	document.f_result.registrocv.value = 15000;
	document.f_result.gestioncv.value = 17500;
	document.f_result.ivacv.value = 2800;}
if (v2 > "2000000" && v2 <= "3000000"){
	document.f_result.notariocv.value = 43000;
	document.f_result.registrocv.value = 13500;
	document.f_result.gestioncv.value = 17500;
	document.f_result.ivacv.value = 2800;}
if (v2 > "1000000" && v2 <= "2000000"){
	document.f_result.notariocv.value = 38500;
	document.f_result.registrocv.value = 12000;
	document.f_result.gestioncv.value = 17500;
	document.f_result.ivacv.value = 2800;
}
if (v2 <= "1000000"){
	document.f_result.notariocv.value = 34000;
	document.f_result.registrocv.value = 10500;
	document.f_result.gestioncv.value = 17500;
	document.f_result.ivacv.value = 2800;}}
// Funciones que estaban dentro de la primera calculadora
function Formato_numero(numero)
{
var nombre = "";
var num = numero;
if (num != "")
	{
	var str = "";
	while (num > 999)
		{
		n1 = Math.floor(num/1000);
		n2 = num - 1000 * n1;
		if (n2 < 10)
			{
			n2 = "00" + n2; 	
			}   
		else
			{
		   	if (n2 < 100)
	       	      	n2 = "0" + n2;
	               	}
		str = "." + n2 + str;
		num = n1;
		}
		str = num + str;
	}
return (str);
}

function Delete_miles(numero_puntos)
{
var num_p;
num_p = numero_puntos;
longitud = 0;
longitud = num_p.length;
n = 0;
var num_sp = "";
while (n<longitud)
	{
     	var car = ' ';
      	var car = num_p.charAt(n);
      	if (car != '.')
		num_sp += num_p.charAt(n);
       	n++;
        	}
var sin_puntos = parseInt(num_sp,10);
return sin_puntos;
}

function Validacion(valor)
{
if (document.hipoteca.i1.value=="") 
	{
	Window.alert("Es obligatorio rellenar el campo Interés");
	}
else if(document.hipoteca.anos.value=="")
	{
	Window.alert("Es obligatorio rellenar el campo años");
	}
else if(document.formu.importeh.value=="")
	{
	Window.alert("Es obligatorio rellenar el campo dinero");
	}
else
	{
 	if (valor=="x")
 		{
		if (document.hipoteca.MinApert.value=="")
			{
			document.hipoteca.MinApert.value=0
			}
		if (document.hipoteca.Comision.value=="")
			{
			document.hipoteca.Comision.value=0
			}
		document.hipoteca.result.value="resultados";
 		}
 	document.hipoteca.submit();
	}
}
	
function isEmpty(s)
{   
return ((s == null) || (s.length == 0))
}

function CleanThis(Tipo)
{
if (Tipo=="dinero")
	document.formu.importeh.value="";
else if(Tipo=="Apertura")
	document.hipoteca.MinApert.value="";
}

function PonPuntos(obj, sign, imaxlength)
{
var snumero; 
snumero = obj.value + 1; 
 
if (snumero.length > imaxlength)
	{  
	event.returnValue = false;
     	return false;  
   	}
if (isEmpty(obj.value) && (event.keyCode == 48)) 
  	{
     	Event.returnValue = false;
}
else
	if (sign == "positive")
  		{	
    		if ((event.keyCode < 48) || (event.keyCode > 57))
    			{
      			event.returnValue = false;
    			}
    		else 
    			{
      			var s_pre = obj.value;
      			var s_inter = "";
      			var s_post = "";
      			var single_character = "";
      			var poner_punto = 1;
      			for (var i = 0; i < s_pre.length; i++)
      				{
        			single_character = s_pre.substring(i,i+1);
        			if (single_character != ".")
        				{
          				s_inter = s_inter + single_character;
        				}
      				}
			s_inter = s_inter + String.fromCharCode(event.keyCode);
			for (var j = s_inter.length; j > 0; j--, poner_punto++)
      				{
        			s_post = s_inter.substring(j-1,j) + s_post;
        			if ((poner_punto == 3) && (j != 1))
        				{
          				poner_punto = 0;
          				s_post = "." + s_post;
        				}
      				}
      			obj.value = s_post;
      			event.returnValue = false;
    			}
  		}
  	else
  		{
    		if ((isEmpty(obj.value) && ((event.keyCode < 48) || (event.keyCode > 57)) && (event.keyCode != 43) && (event.keyCode != 45)) || ((obj.value.length > 0) && ((event.keyCode < 48) || (event.keyCode > 57))))
    			{
    			event.returnValue = false;
    			}
    		else if (obj.value != "+" && obj.value != "-")
    			{
      			var s_pre = obj.value;
      			var s_inter = "";
      			var s_post = "";
      			var single_character = "";
      			var poner_punto = 1;
      			var sign_character = "";
			if ((s_pre.substring(0, 1) == "+") || (s_pre.substring(0, 1) == "-"))
      				{
        			sign_character = s_pre.substring(0, 1);
        			s_pre = s_pre.substring(1, s_pre.length);
      				}
			for (var i = 0; i < s_pre.length; i++)
      				{
        			single_character = s_pre.substring(i,i+1);
			        if (single_character != ".")
        				{
          				s_inter = s_inter + single_character;
        				}
      				}
			s_inter = s_inter + String.fromCharCode(event.keyCode);
			for (var j = s_inter.length; j > 0; j--, poner_punto++)
      				{
        			s_post = s_inter.substring(j-1,j) + s_post;
			        if ((poner_punto == 3) && (j != 1))
        				{
          				poner_punto = 0;
          				s_post = "." + s_post;
        				}
      				}
				obj.value = sign_character + s_post;
				event.returnValue = false;
    			}
  		}
	}

function Formato(numero)
{
var nombre = "";
var num = numero;
if (num != "")
	{
	var str = "";
	while (num > 999)
		{
		n1 = Math.floor(num/1000);
		n2 = num - 1000 * n1;
		if (n2 < 10)
			{
		   	n2 = "00" + n2;
        		}   
		else
			{
		   	if (n2 < 100)
       		      		n2 = "0" + n2;
                	}
			str = "." + n2 + str;
			num = n1;
		}
		str = num + str;
	}
return (str);
}

function euro() 
{
if (!(document.formu.importeh.value == "" && document.formu.valorh.value == "" ))
	{
	var valor_actual;
	var res;
	valor1=Delete_miles(document.formu.importeh.value);
	valor2=Delete_miles(document.formu.valorh.value);
	if (!(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;
		}

	if (!(document.formu.valorh.value == ""))
		{
  		valor_actual = valor2 / 166.386;
  		document.formu.valorh.value = Math.round(valor_actual);
  		document.formu.valorh.value = Formato_numero(document.formu.valorh.value);
		}
	}
}

function pts() 
{
if (!(document.formu.importeh.value == "" && document.formu.valorh.value == "" ))
	{
	var valor_actual;
	var res;
	valor1=Delete_miles(document.formu.importeh.value);
	valor2=Delete_miles(document.formu.valorh.value);
	if (!(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;
		}
	
    	if (!(document.formu.valorh.value == ""))
    		{
  		valor_actual = valor2 * 166.386;
		document.formu.valorh.value = Math.round(valor_actual);
	  	document.formu.valorh.value = Formato_numero(document.formu.valorh.value);
	  	alert ("El valor en pesetas se reajusto!");
		}
	}
}

function calcular_onclick() 
{
valor1=Delete_miles(document.formu.importeh.value);
valor2=Delete_miles(document.formu.valorh.value);
var provincia;
provincia = document.formu.provin.value;
if (!(document.formu.importeh.value == "") && !(document.formu.valorh.value == "" ))
	{
	var suma;
	buscarvalor(valor1, valor2);
       	if (document.formu.radioviv[0].checked)
       		{
	  	document.f_result.impuesto2.value = valor2 * 0.005;
 	  	document.f_result.impuesto.value = valor1 * 0.005;
	  	document.f_result.ivaviv.value = valor2 * 0.07;
	  	document.f_result.itp.value = "";
		}
	else
		{
	  	document.f_result.impuesto.value = valor1 * 0.008;
	  	document.f_result.itp.value = valor2 * provincia;
 	  	document.f_result.impuesto2.value = "";
	  	document.f_result.ivaviv.value = "";
		}
	document.f_result.comision.value = valor1 * 0.01;
	if (document.formu.radio[0].checked)
		{
		document.f_result.tasacion.value = 30000;
		document.f_result.seguro.value = 50000;
       		if (document.formu.radioviv[0].checked)
       			{
 		    	suma = parseInt(document.f_result.impuesto2.value) + parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value) + parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.ivaviv.value);
 		    	suma_hipo = parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value);
 		    	suma_compra = parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.impuesto2.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.ivaviv.value);
       			}
       		else
       			{
 		    	suma = parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value) + parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.itp.value);
 		    	suma_hipo = parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value);
 		    	suma_compra = parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.itp.value);
       			}  
		document.f_result.seguro.value = Formato_numero(document.f_result.seguro.value);
		document.f_result.tasacion.value = Formato_numero(document.f_result.tasacion.value);
		document.f_result.total.value = Formato_numero(suma);
		document.f_result.comision.value = Formato_numero(Math.round(document.f_result.comision.value));
		document.f_result.iva.value = Formato_numero(document.f_result.iva.value);	
		document.f_result.tasacion.value = Formato_numero(document.f_result.tasacion.value);	
		document.f_result.impuesto.value = Formato_numero(Math.round(document.f_result.impuesto.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.notariocv.value = Formato_numero(document.f_result.notariocv.value);	
		document.f_result.registrocv.value = Formato_numero(document.f_result.registrocv.value);	
		document.f_result.ivacv.value = Formato_numero(document.f_result.ivacv.value);	
		document.f_result.gestioncv.value = Formato_numero(document.f_result.gestioncv.value);
		document.f_result.total_compra.value = Formato_numero(suma_compra);
		document.f_result.total_hipo.value = Formato_numero(suma_hipo);
              	if (document.formu.radioviv[0].checked)
              		{
         		document.f_result.ivaviv.value = Formato_numero(Math.round(document.f_result.ivaviv.value));
	        	document.f_result.impuesto2.value = Formato_numero(document.f_result.impuesto2.value);
	          	}
	    	else
          		{
	 		document.f_result.itp.value = Formato_numero(Math.round(document.f_result.itp.value));
	       		}
		}	
	else
		{
		document.f_result.seguro.value = 300;
		document.f_result.iva.value = document.f_result.iva.value / 166.386;
		document.f_result.tasacion.value = document.f_result.tasacion.value / 166.386;
		document.f_result.notario.value = document.f_result.notario.value / 166.386;
		document.f_result.gestion.value = document.f_result.gestion.value / 166.386;
		document.f_result.registro.value = document.f_result.registro.value / 166.386;
		document.f_result.notariocv.value = document.f_result.notariocv.value / 166.386;
		document.f_result.registrocv.value = document.f_result.registrocv.value / 166.386;
		document.f_result.ivacv.value = document.f_result.ivacv.value / 166.386;
		document.f_result.gestioncv.value = document.f_result.gestioncv.value / 166.386;
		document.f_result.tasacion.value = 180.3;
        	if (document.formu.radioviv[0].checked)
        		{
  		    	suma = parseInt(document.f_result.impuesto2.value) + parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value) + parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.ivaviv.value);
  		    	suma_hipo = parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value);
  		    	suma_compra = parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.impuesto2.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.ivaviv.value);
        		}
        	else
              		{
  		    	suma = parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value) + parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.itp.value);
  		    	suma_hipo = parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value);
  		    	suma_compra = parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.itp.value);
              		}  
		document.f_result.total.value = Formato_numero(Math.round(suma));
		document.f_result.comision.value = Formato_numero(Math.round(document.f_result.comision.value));
		document.f_result.iva.value = Formato_numero(Math.round(document.f_result.iva.value));	
		document.f_result.tasacion.value = Formato_numero(Math.round(document.f_result.tasacion.value));	
		document.f_result.impuesto.value = Formato_numero(Math.round(document.f_result.impuesto.value));	
		document.f_result.notario.value = Formato_numero(Math.round(document.f_result.notario.value));	
		document.f_result.gestion.value = Formato_numero(Math.round(document.f_result.gestion.value));	
		document.f_result.registro.value = Formato_numero(Math.round(document.f_result.registro.value));
		document.f_result.notariocv.value = Formato_numero(Math.round(document.f_result.notariocv.value));	
		document.f_result.registrocv.value = Formato_numero(Math.round(document.f_result.registrocv.value));
		document.f_result.ivacv.value = Formato_numero(Math.round(document.f_result.ivacv.value));	
		document.f_result.gestioncv.value = Formato_numero(Math.round(document.f_result.gestioncv.value));
		document.f_result.total_compra.value = Formato_numero(Math.round(suma_compra));
		document.f_result.total_hipo.value = Formato_numero(Math.round(suma_hipo));	
            	if (document.formu.radioviv[0].checked)
            		{
        		document.f_result.impuesto2.value = Formato_numero(Math.round(document.f_result.impuesto2.value));
    	    		document.f_result.ivaviv.value = Formato_numero(Math.round(document.f_result.ivaviv.value));
    	    		}
    	    	else
    	    		{
     	    		document.f_result.itp.value = Formato_numero(Math.round(document.f_result.itp.value));
    	    		}
		}
	}
if (document.formu.valorh.value == "")
	{
        buscarvalor(valor1, valor2);
       	document.f_result.impuesto.value = valor1 * 0.005;
	document.f_result.comision.value = valor1 * 0.01;
	if (document.formu.radio[0].checked)
		{
		document.f_result.tasacion.value = 30000;
		document.f_result.seguro.value = 50000;
       	    	suma_hipo = parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value);
		suma_compra = "";
		suma = suma_hipo;
		document.f_result.seguro.value = Formato_numero(document.f_result.seguro.value);
		document.f_result.tasacion.value = Formato_numero(document.f_result.tasacion.value);
		document.f_result.total.value = Formato_numero(suma);
		document.f_result.comision.value = Formato_numero(Math.round(document.f_result.comision.value));
		document.f_result.iva.value = Formato_numero(document.f_result.iva.value);	
		document.f_result.tasacion.value = Formato_numero(document.f_result.tasacion.value);	
		document.f_result.impuesto.value = Formato_numero(Math.round(document.f_result.impuesto.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.notariocv.value = "";	
		document.f_result.registrocv.value = "";	
		document.f_result.ivacv.value = "";	
		document.f_result.gestioncv.value = "";
		document.f_result.total_compra.value = "";
		document.f_result.total_hipo.value = Formato_numero(suma_hipo);
		}
	else
		{
		document.f_result.seguro.value = 300;
		document.f_result.iva.value = document.f_result.iva.value / 166.386;
		document.f_result.tasacion.value = document.f_result.tasacion.value / 166.386;
		document.f_result.notario.value = document.f_result.notario.value / 166.386;
		document.f_result.gestion.value = document.f_result.gestion.value / 166.386;
		document.f_result.registro.value = document.f_result.registro.value / 166.386;
		document.f_result.tasacion.value = 180.3;
      		suma_hipo = parseInt(document.f_result.seguro.value) + parseInt(document.f_result.comision.value) + parseInt(document.f_result.iva.value) + parseInt(document.f_result.tasacion.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value);
		suma_compra = "";
		suma = suma_hipo;
		document.f_result.total.value = Formato_numero(Math.round(suma));
		document.f_result.comision.value = Formato_numero(Math.round(document.f_result.comision.value));
		document.f_result.iva.value = Formato_numero(Math.round(document.f_result.iva.value));	
		document.f_result.tasacion.value = Formato_numero(Math.round(document.f_result.tasacion.value));	
		document.f_result.impuesto.value = Formato_numero(Math.round(document.f_result.impuesto.value));	
		document.f_result.notario.value = Formato_numero(Math.round(document.f_result.notario.value));	
		document.f_result.gestion.value = Formato_numero(Math.round(document.f_result.gestion.value));	
		document.f_result.registro.value = Formato_numero(Math.round(document.f_result.registro.value));
		document.f_result.total_hipo.value = Formato_numero(Math.round(suma_hipo));	
		}
	document.f_result.notariocv.value = "";	
	document.f_result.registrocv.value = "";	
	document.f_result.ivacv.value = "";	
	document.f_result.gestioncv.value = "";
	document.f_result.total_compra.value = "";
	document.f_result.impuesto2.value = "";
	document.f_result.ivaviv.value = "";
	document.f_result.itp.value = "";
	document.f_result.ivaviv.value = "";
	}
	if (document.formu.importeh.value == "")
		{
		var suma;
		valor1 = 0;
		document.f_result.seguro.value = "";
       		buscarvalor(valor1, valor2);
       		if (document.formu.radioviv[0].checked)
       			{
	  		document.f_result.impuesto2.value = valor2 * 0.005;
	  		document.f_result.ivaviv.value = valor2 * 0.07;
	  		document.f_result.itp.value = "";
			}
		else
			{
	  		document.f_result.itp.value = valor2 * provincia;
	  		document.f_result.impuesto2.value = "";
	  		document.f_result.ivaviv.value = "";
			}
		if (document.formu.radio[0].checked)
			{
       			if (document.formu.radioviv[0].checked)
       				{
		    		suma_hipo = "";
		    		suma_compra = parseInt(document.f_result.impuesto2.value) + parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.ivaviv.value);
		    		suma = suma_compra;
       				}
       			else
      				{
		    		suma_hipo = "";
		    		suma_compra = parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.itp.value);
		    		suma = suma_compra;
       				}  
			document.f_result.notariocv.value = Formato_numero(document.f_result.notariocv.value);	
			document.f_result.registrocv.value = Formato_numero(document.f_result.registrocv.value);	
			document.f_result.ivacv.value = Formato_numero(document.f_result.ivacv.value);	
			document.f_result.gestioncv.value = Formato_numero(document.f_result.gestioncv.value);
			document.f_result.total_compra.value = Formato_numero(suma_compra);
			document.f_result.total_hipo.value = "";
       			if (document.formu.radioviv[0].checked)
      				{
      	  	  		document.f_result.impuesto2.value = Formato_numero(Math.round(document.f_result.impuesto2.value));
        	  		document.f_result.ivaviv.value = Formato_numero(Math.round(document.f_result.ivaviv.value));
          			}
          		else
          			{
    	  			document.f_result.itp.value = Formato_numero(Math.round(document.f_result.itp.value));
          			}
			}
		else
			{
			document.f_result.notariocv.value = document.f_result.notariocv.value / 166.386;
			document.f_result.registrocv.value = document.f_result.registrocv.value / 166.386;
			document.f_result.ivacv.value = document.f_result.ivacv.value / 166.386;
			document.f_result.gestioncv.value = document.f_result.gestioncv.value / 166.386;
			if (document.formu.radioviv[0].checked)
              			{
  			    	suma_hipo = "";
  			    	suma_compra = parseInt(document.f_result.impuesto2.value) + parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.ivaviv.value);
  			    	suma = suma_compra;
              			}
              		else
              			{
  			    	suma_hipo = "";
  			    	suma_compra = parseInt(document.f_result.notariocv.value) + parseInt(document.f_result.registrocv.value) + parseInt(document.f_result.gestioncv.value) + parseInt(document.f_result.ivacv.value) + parseInt(document.f_result.itp.value);
  			    	suma = suma_compra;
             			}  
			document.f_result.total.value = Formato_numero(Math.round(suma));
			document.f_result.notariocv.value = Formato_numero(Math.round(document.f_result.notariocv.value));	
			document.f_result.registrocv.value = Formato_numero(Math.round(document.f_result.registrocv.value));
			document.f_result.ivacv.value = Formato_numero(Math.round(document.f_result.ivacv.value));	
			document.f_result.gestioncv.value = Formato_numero(Math.round(document.f_result.gestioncv.value));
			document.f_result.total_compra.value = Formato_numero(Math.round(suma_compra));
			document.f_result.total_hipo.value = "";	
            		if (document.formu.radioviv[0].checked)
            			{
        			document.f_result.impuesto2.value = Formato_numero(Math.round(document.f_result.impuesto2.value));
    	    			document.f_result.ivaviv.value = Formato_numero(Math.round(document.f_result.ivaviv.value));
    	    			}
    	    		else
    	    			{
     	    			document.f_result.itp.value = Formato_numero(Math.round(document.f_result.itp.value));
    	    			}
			}
			document.f_result.comision.value = "";
			document.f_result.iva.value = "";	
			document.f_result.tasacion.value = "";	
			document.f_result.impuesto.value = "";	
			document.f_result.notario.value = "";	
			document.f_result.gestion.value = "";	
			document.f_result.registro.value = "";
			document.f_result.total.value = document.f_result.total_compra.value;
		}
		if ((document.formu.importeh.value == "") && (document.formu.valorh.value == "" ))
		{
		document.f_result.seguro.value = "";
		document.f_result.tasacion.value = "";
		document.f_result.total.value = "";
		document.f_result.comision.value = "";
		document.f_result.iva.value = "";	
		document.f_result.tasacion.value = "";	
		document.f_result.impuesto.value = "";	
		document.f_result.notario.value = "";	
		document.f_result.gestion.value = "";	
		document.f_result.registro.value = "";	
		document.f_result.notariocv.value = "";	
		document.f_result.registrocv.value = "";	
		document.f_result.ivacv.value = "";	
		document.f_result.gestioncv.value = "";
		document.f_result.total_compra.value = "";
		document.f_result.total_hipo.value = "";
    	    	document.f_result.ivaviv.value = "";
    	    	document.f_result.impuesto2.value = "";
    	    	alert ("Por favor rellene alguno de los importes");
        	}
	}
	
function EsNumerico(dato)
{
var i;
var longitud;
var caracter;
var sumo = 0;
longitud = dato.length;
valido = "0123456789.";
for ( i=0; i <= longitud; i++)
	{
	caracter = dato.substring(i,i+1)
	if (valido.indexOf(caracter) == -1)
		return false;
	}
return true;
}

function borrar(obj) 
{
obj.value = "";
}

function cerrar() 
{
Window.close();
}

function calculainteres(){
inter=4.50
//******************Operación espejo***********************************
if (plazotemp==datos[2] && capinitemp==datos[0] && parseInt(mensutemp)==datos[3]){
	d3=mensutemp
	d2=plazotemp
	d0=capinitemp
}else{
	d0=datos[0]
	d3=datos[3]
	d2=datos[2]}
//**********************************************************************
do{
id=inter/1200
res=d0*((Math.pow(1+id,d2)*id)/(Math.pow(1+id,d2)-1))
if (parseInt(res)>d3){
	inter=inter-0.01
}
if (parseInt(res)<d3){
	inter= inter+0.01
}
comparo=(parseInt(d3))+parseInt(31)
comparo1=(parseInt(d3))-parseInt(31)
}
while (parseInt(res)>parseInt(comparo) || parseInt(res)<parseInt(comparo1))
inter=inter*100
inter=parseInt(inter)
inter=inter/100
document.forms[0].elements[1].value=inter
//**********Modificamos el capital inicial******************
id=inter/1200
cinicial=datos[3]/((Math.pow(1+id,datos[2])*id)/(Math.pow(1+id,datos[2])-1))
if (document.forms[0].elements[0].value!=parseInt(cinicial)){ 
	document.forms[0].elements[0].value=parseInt(cinicial)
	alert("Se ha modificado el Capital inicial para que sea \ncoherente con el redondeo aplicado al resultado")
	}
document.miForm.p.value = parseInt(document.miForm.p.value) / 12;
capinitemp=0
plazotemp=0
}

function calculaprestamo(){
var suma=0
correcto=true
for (i=0;i<4;i++){
datos[i]=document.forms[0].elements[i].value
if (datos[i]!=""){
suma+=1
}
}
if (suma==4){
correcto=false
document.miForm.p.value = parseInt(document.miForm.p.value) / 12;
alert("Es necesario que deje uno de los datos vacío")
}else{
if (suma<3){
	correcto=false
	document.miForm.p.value = parseInt(document.miForm.p.value) / 12;
	document.forms[0].elements[2].value = ""; 
	alert("Es necesario que introduzca tres datos")
	for (h=0;h<3;h++){
		if (!(document.forms[0].elements[h].value == "")){
			document.forms[0].elements[h].value = Formato_numero(document.forms[0].elements[h].value);}
}
}
}
if (correcto){
if (datos[1]==""){
mtemp=datos[0]/datos[2]
if (datos[3]<mtemp){
	correcto=false
	alert("Ha introducido una combinación no válida de capital, plazo y mensualidad")
}else{
	calculainteres()
}
}
if (datos[0]==""){
id=datos[1]/1200

if (plazotemp==datos[2] && intetemp==id && parseInt(mensutemp)==datos[3]){
	res=mensutemp/((Math.pow(1+intetemp,plazotemp)*intetemp)/(Math.pow(1+intetemp,plazotemp)-1))
}else{
	res=datos[3]/((Math.pow(1+id,datos[2])*id)/(Math.pow(1+id,datos[2])-1))
}
res=parseInt(res)
document.forms[0].elements[0].value=res
document.miForm.p.value = parseInt(document.miForm.p.value) / 12;
}
if (datos[2]==""){
	id=datos[1]/1200
dividendo1=Math.log(datos[3])
suma1=(-datos[0]*id)
suma2=datos[3]
sumando=parseFloat(suma1)+parseFloat(suma2)
dividendo2=Math.log(sumando)
divisor=Math.log(1+id)
res=(dividendo1-dividendo2)/divisor
res=Math.ceil(res)
document.forms[0].elements[2].value=res
if ((res /12) > 35 || isNaN(res)) {
	alert("El Banco de España no autoriza amortizaciones de mas de 35 años");
	document.forms[0].elements[2].value = "";
	document.miForm.c.value = Formato_numero(document.miForm.c.value);
	document.forms[0].elements[2].focus(); 
	return;}

//**********Modificamos el capital inicial******************
cinicial=datos[3]/((Math.pow(1+id,res)*id)/(Math.pow(1+id,res)-1))
if (document.forms[0].elements[0].value!=parseInt(cinicial)){ 
	document.forms[0].elements[0].value=parseInt(cinicial)
	alert("Se ha modificado el Capital inicial para que sea \ncoherente con el resultado del plazo en valores enteros")
}		
document.miForm.p.value = Math.round(parseInt(document.miForm.p.value) / 12);
}
if (datos[3]==""){
id=datos[1]/1200
res=datos[0]*((Math.pow(1+id,datos[2])*id)/(Math.pow(1+id,datos[2])-1))
intetemp=id
capinitemp=datos[0]
plazotemp=datos[2]
mensutemp=res
dato=res+""
indi=dato.indexOf(".")
if (dato!=-1){
deci=dato.substring(indi+1,indi+3)
	if (parseInt(deci)>=50){
		document.forms[0].elements[3].value=Math.ceil(res)
	}else{
		document.forms[0].elements[3].value=parseInt(res)
	}
}else{
	res=parseInt(res)
	document.forms[0].elements[3].value=res
}				document.miForm.p.value = parseInt(document.miForm.p.value) / 12;
}
}
}

function compruebadatos(){
sigo = true
if (!(document.miForm.c.value == "")){
document.miForm.c.value = Delete_miles(document.miForm.c.value);}
if (!(document.miForm.m.value == "")){
document.miForm.m.value = Delete_miles(document.miForm.m.value);}
var capital;
capital = parseInt(document.miForm.c.value);
//capital = parseInt('10000000');
var mensualidad;
mensualidad = parseInt(document.miForm.m.value);

if (capital < mensualidad && !(document.forms[0].elements[0].value == ""))
{
	alert ("La cuota no puede ser mayor que el importe inicial!");
	document.forms[0].elements[3].focus();
	return;
}
if (document.forms[0].elements[1].value < 0){
				alert ("No introduzca intereses negativos");
				//document.forms[0].elements[1].value = "";
				document.miForm.c.value = Formato_numero(document.miForm.c.value);
				document.forms[0].elements[1].focus();
				return; }
if (document.forms[0].elements[2].value < 0){
				alert ("No introduzca años negativos");
				//document.forms[0].elements[1].value = "";
				document.miForm.c.value = Formato_numero(document.miForm.c.value);
				document.forms[0].elements[2].focus();
				return; }
  if (document.forms[0].elements[2].value > 35)
  {
	alert("El Banco de España no autoriza amortizaciones de mas de 35 años");
	//document.forms[0].elements[1].value = "";
    document.forms[0].elements[2].value = ""; 
    document.miForm.c.value = Formato_numero(document.miForm.c.value);
    document.forms[0].elements[2].focus();
	return;
  }

  if (document.forms[0].elements[1].value > 20)
  {
	alert("El interés máximo es 20%!");
    if (!(document.miForm.c.value == "")) {
    document.miForm.c.value = Formato_numero(document.miForm.c.value);}
    if (!(document.miForm.m.value == "")) {
    document.miForm.m.value = Formato_numero(document.miForm.m.value);}
    
    document.forms[0].elements[1].focus();
	return;
  }
	for (i=0;i<4;i++){
	
		if (isNaN(document.forms[0].elements[i].value)){
			sigo=false
			alert("El dato introducido en "+nomdatos[i]+" no es un número");
			if (!(document.forms[0].elements[0].value == "")){
			document.forms[0].elements[0].value = Formato_numero(document.forms[0].elements[0].value);}
			if (!(document.forms[0].elements[3].value == "")){
			document.forms[0].elements[3].value = Formato_numero(document.forms[0].elements[3].value);}
			document.forms[0].elements[i].focus();
			break
		}
	}
	if (sigo){
		if (!(document.miForm.p.value == "")) {
		document.miForm.p.value = parseInt(document.miForm.p.value) * 12;}
		calculaprestamo()
	}
if (!(document.miForm.c.value == "") && !(document.miForm.m.value == "")){
document.miForm.c.value = Formato_numero(document.miForm.c.value);
document.miForm.m.value = Formato_numero(document.miForm.m.value);}
}

function borradato(num){
document.forms[0].elements[num].value=""}

function obligatorios(){
var cont=0
var paso=true
for (var i=0;i<elem.length;i++){
	cont+=1 
	if(document.forms['PrestamoPersonal'].elements[elem[i]].value==""){
		alert("Debe rellenar el campo \""+campos[i]+"\"")
		document.forms['PrestamoPersonal'].elements[elem[i]].focus()
		paso=false
		break
               	}
        }
        if (paso) document.forms['PrestamoPersonal'].submit()
}

var datos = new Array(4)
var nomdatos =new Array("Capital inicial","Tipo de interés","Plazo de amortización","Mensualidad")
var capitemp=0
var intetemp=0
var plazotemp=0
var mensutemp=0

function ponInteres2(temp){
var t_inte=0;
if (temp.periodo_inicial.options[0].selected == true){
	t_inte=3.75;}
if (temp.periodo_inicial.options[1].selected == true){
	t_inte=4.25;}
if (temp.periodo_inicial.options[2].selected == true){
	t_inte=6.;}
temp.formInteres.value=t_inte;
}
var elem=new Array(6,9,11,12,13,17,19)
var campos=new Array("Importe a financiar","Plazo","Apellidos","Nombre","D.N.I.","E-mail","Teléfono")

function ponInteres(temp){
var inte=0;
if (temp.Rmeses[0].checked){
	inte=3.75;}
if (temp.Rmeses[1].checked){
        inte=4.25;
}
if (temp.Rmeses[2].checked){
        inte=6.;
}
temp.formInteres.value=inte;
}

function compruebaEntradas(temp){
validas=1;
if(!esNumero(quitaMillares(temp.formCapital.value))){
        alert("Por favor, introduzca un n&uacute;mero.");
        temp.formCapital.value="";
        validas=0;
}
if(!entreLimites(1000000,30000000,temp.formCapital,' de pesetas.')){
        validas=0;
}
if(!entreLimites(1,300,temp.formTiempo,' meses.')){
        validas=0;
}
}

function calculaPrestamo(temp){
if (validas == 1) {
temp.formCapital.value=quitaMillares(temp.formCapital.value);
var capital=temp.formCapital.value;
var tiempo=temp.formTiempo.value;
var interes=temp.formInteres.value/1200;
factor=Math.pow((1+interes),tiempo)
cuota=capital * ( (factor*interes) / (factor-1) );
temp.formCapital.value=formatoMoneda(temp.formCapital.value);
temp.formTiempo.value=formatoMoneda(temp.formTiempo.value);

if("NaN"==""+cuota || "Infinity"==""+cuota){
        cuota=0;
}
temp.formResultado.value=formatoMoneda(Math.round(cuota));
}
else{
temp.formResultado.value=""
}
}

function entreLimites(inf,sup,temp,cadena){
resultado=true
if(temp.value=="") {
        temp.value = 0
}
cantidad=quitaMillares(temp.value);
if (esNumero(cantidad)){
        if (cantidad < inf || cantidad > sup){
                alert("Por favor, introduzca un valor comprendido entre "+formatoMoneda(inf,".")+" y "+formatoMoneda(sup,".")+cadena);
                temp.value="";
                resultado=false;
        }
} else {
        alert("Por favor, introduzca un numero.");
        temp.value="";
        resultado=false;
}
return resultado;
}

function esNumero(temp){
cadenaInput=""+temp;
if (cadenaInput=="NaN"){
        return false;
}
for ( var j=0 ; j <= cadenaInput.length-1 ; j++ ){
        var caracter=cadenaInput.charAt(j);
        if (caracter <"0" || caracter >"9"){
                if (caracter!="."){
                        return false;
                }
        }
}
return true;
}

function CalculaCuota() {
if (isNaN(Delete_miles(document.formu.mash.value))) {
document.formu.mash.value = 0;
}
impor = parseInt(Delete_miles(document.formu.mash.value)) + parseInt(Delete_miles(document.formu.importeh.value));
entra = 0
if (entra == 0)
	imp = (impor * 1.1)
   else
   	imp= (impor) - entra
plazo_meses = parseInt(document.formu.anos.value)
plazo_meses = plazo_meses * 12
tipo_mensual = parseFloat(document.formu.interes.value)


if ( isNaN(impor) || impor == 0 )
{ alert("Debe rellenar el campo 'Capital pendiente de amortizar'")
  cuota = "Revisar"
  return 0}
if ( isNaN(tipo_mensual) || tipo_mensual == 0.0 ) 
{ alert("Debe rellenar el campo 'Tipo de interés'")
  cuota = "Revisar"
  return 0}
if ( isNaN(plazo_meses) || plazo_meses == 0 )
{ alert("Debe rellenar el campo 'Años a amortizar'")
  cuota = "Revisar"
  return 0}

tipo_mensual = tipo_mensual / 1200.0
cuota = imp * tipo_mensual * Math.pow((tipo_mensual + 1.0),plazo_meses) / ( Math.pow((tipo_mensual + 1.0),plazo_meses) - 1.0 )
document.f_result.cuota.value = Math.round(cuota)
}

function calcular_onclickk() {

if (document.formu.valorh.value == "")
{
  document.formu.valorh.value = 1;
}
	if (document.formu.mash.value == "")
{
  document.formu.mash.value = 0;
}
if (document.formu.importeh.value == "")
{
      alert("Debe rellenar el capital pendiente de amortizar.")
      document.formu.importeh.focus()
      return;
}

	if (document.formu.valorh.value < 0){
		alert ("No introduzca intereses negativos");
		document.formu.valorh.value = 1;
		document.formu.valorh.focus();
		return; }
	if (document.formu.valorh.value > 3){
		alert ("La comisión máxima es de un 3%");
		document.formu.valorh.value = 1;
		document.formu.valorh.focus();
		return; }
	
	if (!EsNumerico(document.formu.valorh.value)){
	alert ("EL valor introducido no es un número");
	document.formu.valorh.focus();
	return;}
	
	if (!EsNumerico(document.formu.anos.value)){
	alert ("EL valor introducido no es un número");
	document.formu.anos.focus();
	return;}
	
	if (!EsNumerico(document.formu.interes.value)){
	alert ("EL valor introducido no es un número");
	document.formu.interes.focus();
	return;}
	
	if (document.formu.anos.value < 0){
		alert ("Los años deben ser positivos!");
		document.formu.anos.focus();
		return; }

	if (document.formu.anos.value > 35){
		alert ("El Banco de España no permite hipotecas de más de 35 años.");
		document.formu.anos.focus();
		return; }


	if (document.formu.interes.value < 0){
		alert ("No introduzca intereses negativos");
		document.formu.interes.value = 5;
		document.formu.interes.focus();
		return; }
	if (document.formu.interes.value > 20){
		alert ("El interés máximo es de un 20%");
		document.formu.interes.value = 5;
		document.formu.interes.focus();
		return; }


//Comprobación final para que no opere si falta algún campo
if ((document.formu.valorh.value == "") || (document.formu.importeh.value == "") || (document.formu.mash.value == "") || (document.formu.anos.value == "") || (document.formu.interes.value == ""))
{
  alert ("Rellene todos los campos de Tus Datos");
  return;
}

	valor1=Delete_miles(document.formu.importeh.value);
	valor2=document.formu.valorh.value;
	valor3=Delete_miles(document.formu.mash.value);
	
	var suma;
	var totalsuma;
	//if (valor1 > valor3) {
	//alert ("El valor a amortizar no puede ser superior al total!"); 
	//return;
	//}

	if (isNaN(valor3) || valor3=="")
	{
	 totalsuma = parseInt(valor1);
	}
	else
	{
	  totalsuma = parseInt(valor1) + parseInt(valor3);
	}
	
	// Cálculo de la comisión
	document.f_result.comision.value = valor1 * (valor2/100);

// Búsqueda de Datos
buscarvalor2(totalsuma);
	CalculaCuota();
	document.f_result.cuota.value = Formato_numero(document.f_result.cuota.value);
document.f_result.tasacion.value = 30000;
// Cálculo en Euros
if (document.formu.radio[1].checked)
{
  document.f_result.tasacion.value = 180;
  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.iva.value = Math.round(document.f_result.iva.value/166);
}

	suma = parseInt(document.f_result.comision.value) + parseInt(document.f_result.tasacion.value) +  parseInt(document.f_result.notario.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.registro.value) + parseInt(document.f_result.iva.value);
	document.f_result.total.value = suma;		

//Formato en comisión
document.f_result.comision.value = Math.round(document.f_result.comision.value);
document.f_result.comision.value = Formato_numero(document.f_result.comision.value);

//Formato en Total
document.f_result.total.value = Formato_numero(document.f_result.total.value);

//Formato en comision, tasacion, notario, gestión, registro y iva.
document.f_result.comision.value = Formato_numero(document.f_result.comision.value);
document.f_result.tasacion.value = Formato_numero(document.f_result.tasacion.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);
}

function pts2() {
if (!(document.formu.importeh.value == "" && document.formu.valorh.value == "" )){
var valor_actual;
var res;

	valor1=Delete_miles(document.formu.importeh.value);
	valor2=Delete_miles(document.formu.valorh.value);
	valor3=Delete_miles(document.formu.mash.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;
 if (!(isNaN(valor3)))
 {
  valor_actual = valor3 * 166.386;
  document.formu.mash.value = Math.round(valor_actual);
  document.formu.mash.value = Formato_numero(document.formu.mash.value);
  alert ("El valor en pesetas se reajusto!");
 }
}
}

function euro2() {
if (!(document.formu.importeh.value == "" && document.formu.valorh.value == "" )){
var valor_actual;
var res;

	valor1=Delete_miles(document.formu.importeh.value);
	valor2=Delete_miles(document.formu.valorh.value);
	valor3=Delete_miles(document.formu.mash.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;
 if (!(isNaN(valor3)))
 {
  valor_actual = valor3 / 166.386;
  document.formu.mash.value = Math.round(valor_actual);
  document.formu.mash.value = Formato_numero(document.formu.mash.value);
 }
}
}

function buscarvalor2(v1) {

if (document.formu.radio[0].checked){
document.f_result.gestion.value = 5000;
document.f_result.iva.value = 800;

}
else
{
v1 = v1 * 166.386;
document.f_result.gestion.value = 30;
document.f_result.iva.value = 4.8;

}


if (v1 > "50000000") {
	document.f_result.notario.value = 51500;
	document.f_result.registro.value = 22000;
	for (i=50000000;i<v1;i+=1000000) {
		document.f_result.notario.value = parseInt(document.f_result.notario.value) + 250;
		document.f_result.registro.value = parseInt(document.f_result.registro.value) + 250;
	}
}




if (v1 > "45000000" && v1 <= "50000000"){
	document.f_result.notario.value = 51500;
	document.f_result.registro.value = 22000;
}
if (v1 > "40000000" && v1 <= "45000000"){
	document.f_result.notario.value = 50500;
	document.f_result.registro.value = 21000;
	
}
if (v1 > "39000000" && v1 <= "40000000"){
	document.f_result.notario.value = 50000;
	document.f_result.registro.value = 20000;
	
}
if (v1 > "38000000" && v1 <= "39000000"){
	document.f_result.notario.value = 49750;
	document.f_result.registro.value = 19500;
}
if (v1 > "37000000" && v1 <= "38000000"){
	document.f_result.notario.value = 49500;
	document.f_result.registro.value = 19500;
}
if (v1 > "36000000" && v1 <= "37000000"){
	document.f_result.notario.value = 49250;
	document.f_result.registro.value = 19500;
}
if (v1 > "35000000" && v1 <= "36000000"){
	document.f_result.notario.value = 49000;
	document.f_result.registro.value = 19500;
	
}
if (v1 > "34000000" && v1 <= "35000000"){
	document.f_result.notario.value = 48750;
	document.f_result.registro.value = 19000;
}
if (v1 > "33000000" && v1 <= "34000000"){
	document.f_result.notario.value = 48500;
	document.f_result.registro.value = 19000;
	
}
if (v1 > "32000000" && v1 <= "33000000"){
	document.f_result.notario.value = 48250;
	document.f_result.registro.value = 19000;
	
}
if (v1 > "31000000" && v1 <= "32000000"){
	document.f_result.notario.value = 48000;
	document.f_result.registro.value = 19000;
}
if (v1 > "30000000" && v1 <= "31000000"){
	document.f_result.notario.value = 47750;
	document.f_result.registro.value = 19000;
}
if (v1 > "29000000" && v1 <= "30000000"){
	document.f_result.notario.value = 47500;
	document.f_result.registro.value = 18400;
}
if (v1 > "28000000" && v1 <= "29000000"){
	document.f_result.notario.value = 47250;
	document.f_result.registro.value = 18400;
}
if (v1 > "27000000" && v1 <= "28000000"){
	document.f_result.notario.value = 47000;
	document.f_result.registro.value = 18400;
}
if (v1 > "26000000" && v1 <= "27000000"){
	document.f_result.notario.value = 46500;
	document.f_result.registro.value = 18400;
}
if (v1 > "25000000" && v1 <= "26000000"){
	document.f_result.notario.value = 46000;
	document.f_result.registro.value = 18000;
}
if (v1 > "24000000" && v1 <= "25000000"){
	document.f_result.notario.value = 45500;
	document.f_result.registro.value = 17800;
}
if (v1 > "23000000" && v1 <= "24000000"){
	document.f_result.notario.value = 45000;
	document.f_result.registro.value = 17600;
}
if (v1 > "22000000" && v1 <= "23000000"){
	document.f_result.notario.value = 44750;
	document.f_result.registro.value = 17400;
}
if (v1 > "21000000" && v1 <= "22000000"){
	document.f_result.notario.value = 44500;
	document.f_result.registro.value = 17200;
}
if (v1 > "20000000" && v1 <= "21000000"){
	document.f_result.notario.value = 44250;
	document.f_result.registro.value = 17000;
}
if (v1 > "19000000" && v1 <= "20000000"){
	document.f_result.notario.value = 44000;
	document.f_result.registro.value = 16600;
}
if (v1 > "18000000" && v1 <= "19000000"){
	document.f_result.notario.value = 43500;
	document.f_result.registro.value = 16400;
}
if (v1 > "17000000" && v1 <= "18000000"){
	document.f_result.notario.value = 43000;
	document.f_result.registro.value = 16200;
}
if (v1 > "16000000" && v1 <= "17000000"){
	document.f_result.notario.value = 42500;
	document.f_result.registro.value = 16000;
}
if (v1 > "15000000" && v1 <= "16000000"){
	document.f_result.notario.value = 42000;
	document.f_result.registro.value = 15800;
}
if (v1 > "14000000" && v1 <= "15000000"){
	document.f_result.notario.value = 41500;
	document.f_result.registro.value = 15500;
}
if (v1 > "13000000" && v1 <= "14000000"){
	document.f_result.notario.value = 41000;
	document.f_result.registro.value = 15200;
}
if (v1 > "12000000" && v1 <= "13000000"){
	document.f_result.notario.value = 40500;
	document.f_result.registro.value = 14900;
}
if (v1 > "11000000" && v1 <= "12000000"){
	document.f_result.notario.value = 40000;
	document.f_result.registro.value = 14600;
}
if (v1 > "10000000" && v1 <= "11000000"){
	document.f_result.notario.value = 39500;
	document.f_result.registro.value = 14300;
}
if (v1 > "9000000" && v1 <= "10000000"){
	document.f_result.notario.value = 39000;
	document.f_result.registro.value = 14000;
}
if (v1 > "8000000" && v1 <= "9000000"){
	document.f_result.notario.value = 38000;
	document.f_result.registro.value = 13500;
}
if (v1 > "7000000" && v1 <= "8000000"){
	document.f_result.notario.value = 37500;
	document.f_result.registro.value = 13000;
}
if (v1 > "6000000" && v1 <= "7000000"){
	document.f_result.notario.value = 37000;
	document.f_result.registro.value = 12500;
}
if (v1 > "5000000" && v1 <= "6000000"){
	document.f_result.notario.value = 36000;
	document.f_result.registro.value = 12000;
}
if (v1 > "4000000" && v1 <= "5000000"){
	document.f_result.notario.value = 35000;
	document.f_result.registro.value = 11500;
}
if (v1 > "3000000" && v1 <= "4000000"){
	document.f_result.notario.value = 33000;
	document.f_result.registro.value = 10500;
}
if (v1 > "2000000" && v1 <= "3000000"){
	document.f_result.notario.value = 30000;
	document.f_result.registro.value = 9500;
}
if (v1 > "1000000" && v1 <= "2000000"){
	document.f_result.notario.value = 27000;
	document.f_result.registro.value = 8500;
}

if (v1 <= "1000000"){
	document.f_result.notario.value = 25000;
	document.f_result.registro.value = 7500;
}
}

function calcular_onclickkk() {
valor1=Delete_miles(document.formu.importeh.value);
valor2=Delete_miles(document.formu.inicial.value);
if (document.formu.importeh.value == "" || document.formu.inicial.value == "")
{
  alert ("Rellene todos los campos de Tus Datos");
return;
}

if (valor1 > valor2){
	alert ("El Capital pendiente no puede superar al Capital inicial.");
	document.formu.importeh.focus();
	document.formu.inicial.focus();
	return; }

if (!EsNumerico(document.formu.comision.value)){
alert ("EL valor introducido no es un número");
document.formu.comision.focus();
return;}

if (document.formu.comision.value > 3){
	alert ("La comisión máxima es de un 3%");
	document.formu.comision.focus();
	return; }
	
if (document.formu.comision.value < 0){
		alert ("No introduzca intereses negativos");
		document.formu.comision.focus();
		return; }
		
if (document.formu.comision.value == ""){
		document.formu.comision.value = 1; }

var suma;
buscarvalor3(valor2);

if (document.formu.radio[0].checked){
	if (document.formu.tipo[0].checked){
		document.f_result.impuesto.value = parseInt(valor2) * 0.01125;
		document.f_result.comision_r.value = Math.round(parseInt(valor1) * (document.formu.comision.value / 100));
		suma = parseInt(document.f_result.comision_r.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.registro.value) + parseInt(document.f_result.gestion.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.impuesto.value = Formato_numero(Math.round(document.f_result.impuesto.value));
		document.f_result.notario.value = Formato_numero(document.f_result.notario.value);
		document.f_result.registro.value = Formato_numero(document.f_result.registro.value);
		document.f_result.gestion.value = Formato_numero(document.f_result.gestion.value);
		document.f_result.iva.value	= Formato_numero(document.f_result.iva.value);	
		document.f_result.comision_r.value = Formato_numero(document.f_result.comision_r.value);
	}
	else
	{
		document.f_result.impuesto.value = 0;
		document.f_result.comision_r.value = Math.round(parseInt(valor1) * (document.formu.comision.value / 100));
		suma = document.f_result.comision_r.value;
		document.f_result.total.value = suma;	
		document.f_result.total.value = Formato_numero(document.f_result.total.value);
		document.f_result.comision_r.value = Formato_numero(document.f_result.comision_r.value);
		document.f_result.impuesto.value = 0;
		document.f_result.notario.value = 0;
		document.f_result.registro.value = 0;
		document.f_result.gestion.value = 0;
		document.f_result.iva.value	= 0;	
	
	}
}
else
{
	if (document.formu.tipo[0].checked){
		document.f_result.impuesto.value = Math.round(parseInt(valor2) * 0.01125);
		document.f_result.comision_r.value = Math.round(parseInt(valor1) * (document.formu.comision.value / 100));
		document.f_result.notario.value = Math.round(document.f_result.notario.value / 166.386);
		document.f_result.registro.value = Math.round(document.f_result.registro.value / 166.386);
		document.f_result.gestion.value = Math.round(document.f_result.gestion.value / 166.386);
		document.f_result.iva.value	= Math.round(document.f_result.iva.value / 166.386);
		suma = parseInt(document.f_result.comision_r.value) + parseInt(document.f_result.notario.value) + parseInt(document.f_result.impuesto.value) + parseInt(document.f_result.registro.value) + parseInt(document.f_result.gestion.value) + parseInt(document.f_result.iva.value);
		document.f_result.total.value = Math.round(suma);
		document.f_result.impuesto.value = Formato_numero(Math.round(document.f_result.impuesto.value));
		document.f_result.notario.value = Formato_numero(document.f_result.notario.value);
		document.f_result.registro.value = Formato_numero(document.f_result.registro.value);
		document.f_result.gestion.value = Formato_numero(document.f_result.gestion.value);
		document.f_result.iva.value = Formato_numero(document.f_result.iva.value);
		document.f_result.total.value = Formato_numero(document.f_result.total.value);
		document.f_result.comision_r.value = Formato_numero(document.f_result.comision_r.value);
}
else
{
		document.f_result.impuesto.value = 0;
		document.f_result.comision_r.value = Math.round(parseInt(valor1) * (document.formu.comision.value / 100));
		document.f_result.notario.value = 0;
		document.f_result.registro.value = 0;
		document.f_result.gestion.value = 0;
		document.f_result.iva.value	= 0;
		suma = document.f_result.comision_r.value;
		document.f_result.total.value = Math.round(suma);
		document.f_result.total.value = Formato_numero(document.f_result.total.value);
		document.f_result.comision_r.value = Formato_numero(document.f_result.comision_r.value);
}
}
}

function pts3() {
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);

valor2=Delete_miles(document.formu.inicial.value);
valor_actual2 = valor2 * 166.386;
document.formu.inicial.value = Math.round(valor_actual2);
document.formu.inicial.value = Formato_numero(document.formu.inicial.value);

alert ("Se valor en pesetas se reajusto!");
}
}

function euro3() {
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);

valor2=Delete_miles(document.formu.inicial.value);
valor_actual2 = valor2 / 166.386;
document.formu.inicial.value = Math.round(valor_actual2);
document.formu.inicial.value = Formato_numero(document.formu.inicial.value);
}
}


function buscarvalor3(v1) {
if (document.formu.radio[1].checked){
v1 = v1 * 166.386;
}

if (v1 > "50000000") {
	document.f_result.notario.value = 100000;
	document.f_result.registro.value = 50500;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
	for (i=50000000;i<v1;i+=1000000) {
		document.f_result.notario.value = parseInt(document.f_result.notario.value) + 1000;
		document.f_result.registro.value = parseInt(document.f_result.registro.value) + 500;
	}
}

if (v1 > "45000000" && v1 <= "50000000"){
	document.f_result.notario.value = 100000;
	document.f_result.registro.value = 50500;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
	document.f_result.impuesto.value = 562500;
}
if (v1 > "40000000" && v1 <= "45000000"){
	document.f_result.notario.value = 95000;
	document.f_result.registro.value = 48000;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
	document.f_result.impuesto.value = 506250;
}
if (v1 > "35000000" && v1 <= "40000000"){
	document.f_result.notario.value = 90000;
	document.f_result.registro.value = 45500;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
	document.f_result.impuesto.value = 450000;
}
if (v1 > "30000000" && v1 <= "35000000"){
	document.f_result.notario.value = 85000;
	document.f_result.registro.value = 43000;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
	document.f_result.impuesto.value = 393750;
}
if (v1 > "29000000" && v1 <= "30000000"){
	document.f_result.notario.value = 80000;
	document.f_result.impuesto.value = 337500;
	document.f_result.registro.value = 40500;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "28000000" && v1 <= "29000000"){
	document.f_result.notario.value = 79000;
	document.f_result.impuesto.value = 326250;
	document.f_result.registro.value = 40000;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "27000000" && v1 <= "28000000"){
	document.f_result.notario.value = 78000;
	document.f_result.impuesto.value = 315000;
	document.f_result.registro.value = 39500;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "26000000" && v1 <= "27000000"){
	document.f_result.notario.value = 77000;
	document.f_result.impuesto.value = 303750;
	document.f_result.registro.value = 39000;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "25000000" && v1 <= "26000000"){
	document.f_result.notario.value = 76000;
	document.f_result.impuesto.value = 292500;
	document.f_result.registro.value = 38500;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "24000000" && v1 <= "25000000"){
	document.f_result.notario.value = 75000;
	document.f_result.impuesto.value = 281250;
	document.f_result.registro.value = 38000;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "23000000" && v1 <= "24000000"){
	document.f_result.notario.value = 74000;
	document.f_result.impuesto.value = 270000;
	document.f_result.registro.value = 37500;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "22000000" && v1 <= "23000000"){
	document.f_result.notario.value = 73000;
	document.f_result.impuesto.value = 258750;
	document.f_result.registro.value = 37000;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "21000000" && v1 <= "22000000"){
	document.f_result.notario.value = 72000;
	document.f_result.impuesto.value = 247500;
	document.f_result.registro.value = 36500;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "20000000" && v1 <= "21000000"){
	document.f_result.notario.value = 71000;
	document.f_result.impuesto.value = 236250;
	document.f_result.registro.value = 36000;
	document.f_result.gestion.value = 63000;
	document.f_result.iva.value = 10080;
}
if (v1 > "19000000" && v1 <= "20000000"){
	document.f_result.notario.value = 70000;
	document.f_result.impuesto.value = 225000;
	document.f_result.registro.value = 35500;
	document.f_result.gestion.value = 43750;
	document.f_result.iva.value = 7000;
}
if (v1 > "18000000" && v1 <= "19000000"){
	document.f_result.notario.value = 69000;
	document.f_result.impuesto.value = 213750;
	document.f_result.registro.value = 35000;
	document.f_result.gestion.value = 43750;
	document.f_result.iva.value = 7000;
}
if (v1 > "17000000" && v1 <= "18000000"){
	document.f_result.notario.value = 68000;
	document.f_result.impuesto.value = 202500;
	document.f_result.registro.value = 35000;
	document.f_result.gestion.value = 43750;
	document.f_result.iva.value = 7000;
}
if (v1 > "16000000" && v1 <= "17000000"){
	document.f_result.notario.value = 67000;
	document.f_result.impuesto.value = 191250;
	document.f_result.registro.value = 34000;
	document.f_result.gestion.value = 43750;
	document.f_result.iva.value = 7000;
}
if (v1 > "15000000" && v1 <= "16000000"){
	document.f_result.notario.value = 66000;
	document.f_result.impuesto.value = 180000;
	document.f_result.registro.value = 34000;
	document.f_result.gestion.value = 43750;
	document.f_result.iva.value = 7000;
}
if (v1 > "14000000" && v1 <= "15000000"){
	document.f_result.notario.value = 65000;
	document.f_result.impuesto.value = 168750;
	document.f_result.registro.value = 33000;
	document.f_result.gestion.value = 38000;
	document.f_result.iva.value = 6080;
}
if (v1 > "13000000" && v1 <= "14000000"){
	document.f_result.notario.value = 64000;
	document.f_result.impuesto.value = 157500;
	document.f_result.registro.value = 33000;
	document.f_result.gestion.value = 38000;
	document.f_result.iva.value = 6080;
}
if (v1 > "12000000" && v1 <= "13000000"){
	document.f_result.notario.value = 63000;
	document.f_result.impuesto.value = 146250;
	document.f_result.registro.value = 32000;
	document.f_result.gestion.value = 38000;
	document.f_result.iva.value = 6080;
}
if (v1 > "11000000" && v1 <= "12000000"){
	document.f_result.notario.value = 62000;
	document.f_result.impuesto.value = 135000;
	document.f_result.registro.value = 32000;
	document.f_result.gestion.value = 38000;
	document.f_result.iva.value = 6080;
}
if (v1 > "10000000" && v1 <= "11000000"){
	document.f_result.notario.value = 61000;
	document.f_result.impuesto.value = 123750;
	document.f_result.registro.value = 31000;
	document.f_result.gestion.value = 38000;
	document.f_result.iva.value = 6080;
}
if (v1 > "9000000" && v1 <= "10000000"){
	document.f_result.notario.value = 59000;
	document.f_result.impuesto.value = 112500;
	document.f_result.registro.value = 31000;
	document.f_result.gestion.value = 32000;
	document.f_result.iva.value = 5120;
}
if (v1 > "8000000" && v1 <= "9000000"){
	document.f_result.notario.value = 57000;
	document.f_result.impuesto.value = 101250;
	document.f_result.registro.value = 30000;
	document.f_result.gestion.value = 32000;
	document.f_result.iva.value = 5120;
}
if (v1 > "7000000" && v1 <= "8000000"){
	document.f_result.notario.value = 56000;
	document.f_result.impuesto.value = 90000;
	document.f_result.registro.value = 28000;
	document.f_result.gestion.value = 32000;
	document.f_result.iva.value = 5120;
}
if (v1 > "6000000" && v1 <= "7000000"){
	document.f_result.notario.value = 52000;
	document.f_result.impuesto.value = 78750;
	document.f_result.registro.value = 26000;
	document.f_result.gestion.value = 32000;
	document.f_result.iva.value = 5120;
}
if (v1 > "5000000" && v1 <= "6000000"){
	document.f_result.notario.value = 51000;
	document.f_result.impuesto.value = 67500;
	document.f_result.registro.value = 25000;
	document.f_result.gestion.value = 32000;
	document.f_result.iva.value = 5120;
}
if (v1 > "4000000" && v1 <= "5000000"){
	document.f_result.notario.value = 48000;
	document.f_result.impuesto.value = 56250;
	document.f_result.registro.value = 24000;
	document.f_result.gestion.value = 25500;
	document.f_result.iva.value = 4080;
}
if (v1 > "3000000" && v1 <= "4000000"){
	document.f_result.notario.value = 46000;
	document.f_result.impuesto.value = 45000;
	document.f_result.registro.value = 22000;
	document.f_result.gestion.value = 25500;
	document.f_result.iva.value = 4080;
}
if (v1 > "2000000" && v1 <= "3000000"){
	document.f_result.notario.value = 40000;
	document.f_result.impuesto.value = 33750;
	document.f_result.registro.value = 19000;
	document.f_result.gestion.value = 25500;
	document.f_result.iva.value = 4080;
}
if (v1 > "1000000" && v1 <= "2000000"){
	document.f_result.notario.value = 31000;
	document.f_result.impuesto.value = 22500;
	document.f_result.registro.value = 17000;
	document.f_result.gestion.value = 25500;
	document.f_result.iva.value = 4080;
}
if (v1 <= "1000000"){
	document.f_result.notario.value = 26000;
	document.f_result.impuesto.value = 11250;
	document.f_result.registro.value = 15000;
	document.f_result.gestion.value = 25500;
	document.f_result.iva.value = 4080;
}
}

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;		

//Formato en Total
document.f_result.total.value = Formato_numero(document.f_result.total.value);

//Formato en notario, gestión, registro, ajd, iva.
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;
//alert (v1 + "--" + v2);
}

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;
	//document.f_result.impuesto.value = 562500;
	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;
}
}

function calcular_onclickkkkk() {
	
	valor1=Delete_miles(document.formu.importeh.value);
	
	if (!EsNumerico(document.formu.anos.value)){
	alert ("EL valor introducido no es un número");
	document.formu.anos.focus();
	return;}
	
	if (!EsNumerico(document.formu.interes.value)){
	alert ("EL valor introducido no es un número");
	document.formu.interes.focus();
	return;}
	
	if (document.formu.anos.value > 35)
	{
		alert("El Banco de España no autoriza amortizaciones de mas de 35 años");
		document.formu.anos.focus();
		return;
	}
	if (document.formu.anos.value < 3){
		alert ("El Plazo debería ser igual o superior a 3 años");
		document.formu.anos.focus();
		return;
	}
	if (document.formu.interes.value < 0){
			alert ("No introduzca intereses negativos");
			document.formu.interes.focus();
			return; }
	if (document.formu.anos.value < 0){
			alert ("No introduzca años negativos");
			document.formu.anos.focus();
			return; }
	if (document.formu.interes.value > 20)
	{
	alert ("¡Interés máximo 20%!");
	document.formu.interes.value = "";
	document.formu.interes.focus();
	return;
	}
	var suma;
	var totalsuma;

if (document.formu.importeh.value == "" || document.formu.importeh.value == 0 )
{ alert("Debe rellenar el campo 'Importe'")
  document.formu.importeh.focus()
  return}
if ( isNaN(document.formu.anos.value) || document.formu.anos.value == 0 )
{ alert("Debe rellenar el campo 'Plazo'")
  document.formu.anos.focus()
  return}
if ( isNaN(document.formu.interes.value) || document.formu.interes.value == 0.0 ) 
{ alert("Debe rellenar el campo 'Interés'")
  document.formu.interes.focus()
  return}

	CalculaCuota2();
	document.f_result.indprianio.value = Formato_numero(Math.round(document.f_result.indprianio.value));
	document.f_result.indseganio.value = Formato_numero(Math.round(document.f_result.indseganio.value));
	document.f_result.indsiganio.value = Formato_numero(Math.round(document.f_result.indsiganio.value));
	document.f_result.indtotal.value = Formato_numero(Math.round(document.f_result.indtotal.value));
	document.f_result.dosconprianio.value = Formato_numero(Math.round(document.f_result.dosconprianio.value));
	document.f_result.dosconseganio.value = Formato_numero(Math.round(document.f_result.dosconseganio.value));
	document.f_result.dosconsiganio.value = Formato_numero(Math.round(document.f_result.dosconsiganio.value));
	document.f_result.doscontotal.value = Formato_numero(Math.round(document.f_result.doscontotal.value));
	document.f_result.dosindprianio.value = Formato_numero(Math.round(document.f_result.dosindprianio.value));
	document.f_result.dosindseganio.value = Formato_numero(Math.round(document.f_result.dosindseganio.value));
	document.f_result.dosindsiganio.value = Formato_numero(Math.round(document.f_result.dosindsiganio.value));
	document.f_result.dosindtotal.value = Formato_numero(Math.round(document.f_result.dosindtotal.value));
}

function CalculaCuota2() {
impor = parseInt(Delete_miles(document.formu.importeh.value));
entra = 0
if (entra == 0)
imp = (impor * 1.1)
else
imp= (impor) - entra
plazo_meses = parseInt(document.formu.anos.value)
tipo_mensual = parseFloat(document.formu.interes.value)


plazo_meses = plazo_meses * 12.0

id=tipo_mensual/1200
res=impor*((Math.pow(1+id,plazo_meses)*id)/(Math.pow(1+id,plazo_meses)-1))
intetemp=id
capinitemp=impor
plazotemp=plazo_meses
mensutemp=res
dato=res+""
indi=dato.indexOf(".")
if (dato!=-1){

deci=dato.substring(indi+1,indi+3)

if (parseInt(deci)>=50)
{
	res=Math.ceil(res)
}
else
{
	res=parseInt(res)
}


}

//Fin de calculo
cuota=res;


document.formu.cuota.value = Math.round(cuota)
//fin del calculo de cuota mensual

//calculo del ahorro fiscal

var CA;
var primero;
var segundo;
var tercero;
var suma;

CA = document.formu.cuota.value * 12;
CA2 = CA;

plazo = parseInt(document.formu.anos.value);
if (document.formu.radio[0].checked){
	if (parseInt(CA) > 1500000) {
		CA = 1500000;
	}
	tercero = 0;
	if (parseInt(CA) > 750000)
	{
		segundo = ((CA - 750000) * 0.15) + 187500;
		tercero = ((CA - 750000) * 0.15) + 150000;
		sacar = tercero;
		primero = segundo;
	
		for (i=3;i<plazo;i++)
		{
		  tercero = tercero + ((CA - 750000) * 0.15) + 150000;
		}

		suma = primero + segundo + tercero;
	}
	else
	{	
		segundo = parseInt(CA) * 0.25;
		tercero = parseInt(CA) * 0.2;
		sacar = tercero;
		primero = segundo;
	
		for (i=3;i<plazo;i++)
		{
		  tercero = tercero + parseInt(CA) * 0.2;
		}

		suma = primero + segundo + tercero;
	}			
	document.f_result.indprianio.value = primero;
	document.f_result.dosconprianio.value = primero;
	document.f_result.indseganio.value = primero;
	document.f_result.dosconseganio.value = primero;
	document.f_result.indsiganio.value = sacar;
	document.f_result.dosconsiganio.value = sacar;
	document.f_result.indtotal.value = suma;
	document.f_result.doscontotal.value = suma;


	
	tercero = 0;
	CA2 = CA2 / 2;
	if (parseInt(CA2) > 1500000) 
	{
		CA2 = 1500000;
	}
	if (parseInt(CA2) > 750000)
	{
		segundo = (((CA2 - 750000) * 0.15) + 187500) * 2;
		tercero = (((CA2 - 750000) * 0.15) + 150000) * 2;
		sacar = tercero;
		primero = segundo;
		for (i=3;i<plazo;i++)
		{
		  tercero = tercero + (((CA2 - 750000) * 0.15) + 150000) * 2;
		}
		suma2 = primero + segundo + tercero;
	}
	else
	{	
		segundo = (parseInt(CA2) * 0.25) * 2;
		tercero = (parseInt(CA2) * 0.2) * 2;
		sacar = tercero;
		primero = segundo;
	
		for (i=3;i<plazo;i++)
		{
		  tercero = tercero + (parseInt(CA2) * 0.2) * 2;
		}

		suma2 = primero + segundo + tercero;
	}			
	document.f_result.dosindtotal.value = suma2;
	document.f_result.dosindprianio.value = primero;
	document.f_result.dosindseganio.value = primero;
	document.f_result.dosindsiganio.value = sacar;
	
	//Validacion de resultados. Si supera el millon y medio, sera siempre 300.000
	plazo = document.formu.anos.value;
	if (parseInt(document.f_result.indprianio.value) > 1500000 ) {
		document.f_result.indprianio.value = 300000;
		document.f_result.dosconprianio.value = 300000;
		document.f_result.dosindprianio.value = 600000;
		if (plazo < 2){
			document.f_result.indtotal.value = 300000;
			document.f_result.doscontotal.value = 300000;
			document.f_result.dosindtotal.value = 600000;
		}
		if (plazo == 2){
			document.f_result.indtotal.value = 600000;
			document.f_result.doscontotal.value = 600000;
			document.f_result.dosindtotal.value = 1200000;
		}
		
			if (parseInt(plazo) > 2) {
				document.f_result.indtotal.value = 600000;
				document.f_result.doscontotal.value = 600000;
				document.f_result.dosindtotal.value = 1200000;
				var contador;
				contador = document.f_result.indtotal.value;
				var h;
				for (h=2;h<plazo;h++) {
					contador = parseInt(contador) + 262500;
				}
				document.f_result.indtotal.value = contador;
				document.f_result.doscontotal.value = contador;
				document.f_result.dosindprianio.value = parseInt(document.f_result.indprianio.value) * 2;
				document.f_result.dosindtotal.value = contador * 2;
				
			}
	
	}
		
}
else
{
	if (parseInt(CA) > 9015.1815) {
		CA = 9015.1815;
	}
	tercero = 0;
	if (parseInt(CA) > 4507.59)
	{
		segundo = ((CA - 4507.59) * 0.15) + 1126.8976;
		tercero = ((CA - 4507.59) * 0.15) + 901.518;
		sacar = tercero;
		primero = segundo;
	
		for (i=3;i<plazo;i++)
		{
		  tercero = tercero + ((CA - 4507.59) * 0.15) + 901.518;
		}

		suma = primero + segundo + tercero;
	}
	else
	{	
		segundo = parseInt(CA) * 0.25;
		tercero = parseInt(CA) * 0.2;
		sacar = tercero;
		primero = segundo;
	
		for (i=3;i<plazo;i++)
		{
		  tercero = tercero + parseInt(CA) * 0.2;
		}

		suma = primero + segundo + tercero;
	}			
	document.f_result.indprianio.value = primero;
	document.f_result.dosconprianio.value = primero;
	document.f_result.indseganio.value = primero;
	document.f_result.dosconseganio.value = primero;
	document.f_result.indsiganio.value = sacar;
	document.f_result.dosconsiganio.value = sacar;
	document.f_result.indtotal.value = suma;
	document.f_result.doscontotal.value = suma;


	
	tercero = 0;
	CA2 = CA2 / 2;
	if (parseInt(CA2) > 9015.1815) 
	{
		CA2 = 9015.1815;
	}
	if (parseInt(CA2) > 4507.59)
	{
		segundo = (((CA2 - 4507.59) * 0.15) + 1126.8976) * 2;
		tercero = (((CA2 - 4507.59) * 0.15) + 901.518) * 2;
		sacar = tercero;
		primero = segundo;
		for (i=3;i<plazo;i++)
		{
		  tercero = tercero + (((CA2 - 4507.59) * 0.15) + 901.518) * 2;
		}
		suma2 = primero + segundo + tercero;
	}
	else
	{	
		segundo = (parseInt(CA2) * 0.25) * 2;
		tercero = (parseInt(CA2) * 0.2) * 2;
		sacar = tercero;
		primero = segundo;
	
		for (i=3;i<plazo;i++)
		{
		  tercero = tercero + (parseInt(CA2) * 0.2) * 2;
		}

		suma2 = primero + segundo + tercero;
	}			
	document.f_result.dosindtotal.value = suma2;
	document.f_result.dosindprianio.value = primero;
	document.f_result.dosindseganio.value = primero;
	document.f_result.dosindsiganio.value = sacar;
	
	//Validacion de resultados. Si supera el millon y medio, sera siempre 300.000
	plazo = document.formu.anos.value;
	if (parseInt(document.f_result.indprianio.value) > 9015 ) {
		document.f_result.indprianio.value = 1803.0363;
		document.f_result.dosconprianio.value = 1803.0363;
		document.f_result.dosindprianio.value = 3606.0726;
		if (plazo < 2){
			document.f_result.indtotal.value = 1803.0363;
			document.f_result.doscontotal.value = 1803.0363;
			document.f_result.dosindtotal.value = 3606.0726;
		}
		if (plazo == 2){
			document.f_result.indtotal.value = 3606.0726;
			document.f_result.doscontotal.value = 3606.0726;
			document.f_result.dosindtotal.value = 7212.1452;
		}
		
			if (plazo > 2) {
				document.f_result.indtotal.value = 3606.0726;
				document.f_result.doscontotal.value = 3606.0726;
				document.f_result.dosindtotal.value = 7212.1452;
				var contador;
				contador = document.f_result.indtotal.value;
				var h;
				for (h=2;h<plazo;h++) {
					contador = parseInt(contador) + 1577.6567;
				}
				document.f_result.indtotal.value = contador;
				document.f_result.doscontotal.value = contador;
				document.f_result.dosindprianio.value = parseInt(document.f_result.indprianio.value) * 2;
				document.f_result.dosindtotal.value = contador * 2;
			}
	}
}	
}