//Desarrollo realizado por Asesores Bancarios y Financieros www.abanfin.com
//Prohibida la reproducción total o parcial por cualquier medio salvo autorización expresa de Asesores Bancarios y Financieros

// Fichero vinculado cg0bcab
<!--
function calculos(form){

// Controles
if(form.importe.value==""){alert("Introduzca el importe de la inversión");return(false);}
if(form.dinversion.value==""){alert("Introduzca la denominación de la divisa en la que realizará la inversión");return(false);}
if(form.tcinversion.value==""){alert("Introduzca el tipo de cambio respecto de la divisa\n en el momento de realización de la inversión");return(false);}
if(form.plazo.value==""){alert("Introduzca el plazo de la inversión en meses");return(false);}
if(form.interes.value==""){alert("Introduzca el tipo de interés devengado por la divisa en la que se realiza la inversión");return(false);}
if(form.tccobro.value==""){alert("Introduzca el tipo de cambio esperado para la divisa\nen el vencimiento de la inversión");return(false);}

// variables
var moneda,residencia,importe,dinversion,tcinversion,plazo,interes,tccobro,inverdivisa,intereses,retencion,baser,resto;

importe=form.importe.value*1;
dinversion=form.dinversion.value;
tcinversion=form.tcinversion.value;
plazo=form.plazo.value;
interes=form.interes.value/1200;
tccobro=form.tccobro.value*1;
baser=0.19;
resto=1;

inverdivisa=Math.round(importe*tcinversion*100)/100;
intereses=Math.round((inverdivisa*interes*plazo)*100)/100;
if(plazo>=24){retencion=Math.round(((intereses*resto)*baser*100))/100;}
if(plazo<24){retencion=Math.round(((intereses*baser)*100))/100;}
vpatrimonial=(inverdivisa/tccobro)-importe;
tingresos=(intereses/tccobro)+vpatrimonial;

// Paso de datos a la web
form.inverdivisa.value=formatodivisa(inverdivisa,1,dinversion);
form.intereses.value=formatodivisa(intereses,1,dinversion);
form.retencion.value=formatodivisa(retencion,1,dinversion);
form.vpatrimonial.value=formatodec(vpatrimonial,1);
form.tingresos.value=formatodec(tingresos,1);

// Publicidad refresca la publicidad en el caso de que se trate de abanfin.
if (top.location.href == "http://www.abanfin.com/modules.php?name=Simuladores&fid=cg0bcab")
{
parent.publicidad.location.href="http://www.abanfin.com/publicidad/abanfin_general728.php"
}

}

//___________________________________________
function formatodivisa(numero,moneda,divisa) 
{
var entero;
var decimal;
var coma;
var final;

if(moneda==0){final=".- Ptas.";}else{final=".- "+divisa;}
numero=String(Math.round(numero*100)/100);
var pos=numero.indexOf(".");
if(pos==-1){decimal=0;coma="";}else{decimal=numero.substr(pos,3);coma=","+decimal.substr(1,2);};
if (pos==-1){entero=numero;}else{entero=numero.substring(0,pos);};

	contador = 1
	for (pos = (entero.length - 1); pos > 0; pos--) {
		contador++
		if (contador > 3) {
			entero = entero.substring(0,pos) + "." + entero.substr(pos)
			contador = 1
		}
	}
	if (moneda==0){numero=entero+final;}else{numero=entero+coma+final;}
	return (numero)
}