function mensChange()
{
	setValue('totalaupr',inttostr(strtoint(getValue('monpret1p1'))+strtoint(getValue('monpret2p1'))+strtoint(getValue('monpret3p1'))+strtoint(getValue('monpret4p1'))));
	calcMensAvLiss();
}



function calcMensAvLiss() {
	montant=strtoint(getValue('monpret'));
	duree=strtoint(getIndexValue('ducr'));
	ducr = duree*nb_echeance;
	tauxInteret=strtofloat(getValue('tain'));
	tauxAssurance=strtofloat(getValue('taas'));
//	typeAssurance=getIndex('tyas');
	typeAssurance=0;
	
	if ((montant>0)&&(tauxInteret>0))
	{
		if (typeAssurance==0)
		{
			mensualiteHorsAssurance=calcMens(montant,duree,tauxInteret,0,nb_echeance,typeAssurance);
			mensualiteAssurance=montant*tauxAssurance/100/nb_echeance;
			mensualiteAssuranceComprise=mensualiteHorsAssurance+mensualiteAssurance;
		}
		else
		{
			mensualiteAssuranceComprise=calcMens(montant,duree,tauxInteret,tauxAssurance,nb_echeance,typeAssurance);
		}
		//if (onglet==1) f.mensavliss.value=inttostr(mensualiteAssuranceComprise);
		setValue('mensavli',inttostr(mensualiteAssuranceComprise));
	}
	else
	{
//		if (onglet==1) f.mensavliss.value="";
		setValue('mensavli','');
	}
//	if (onglet==1) calcMensCalc();
	calcMensCalc();
}


function menssouhChange() {
	calcMontDisp();
}

function txendetChange() {
	if (strtoint(getValue('txende'))>33) {
		alert("Le taux d'endettement ne doit pas excéder 33%");
	}
	else
	{
		calcMensCalc();
	}
}

function calcMensCalc() {
	setValue('mensmax',inttostr(strtoint(getValue('revmens'))*strtoint(getValue('txende'))/100));
//	f.menscalc.value=inttostr(strtoint(f.revmens.value)*strtoint(f.txendet.value)/100);
	calcMontDisp();
}

function calcMontDisp() {
	menssouh=strtoint(getValue('monpretsou'));
	menscalc=strtoint(getValue('mensmax'));
	var mensmax=0;
	if (menscalc>0) 
	{
		if (menssouh>0) 
		{
			mensmax=Math.min(menssouh,menscalc);
		} 
		else
		{
			mensmax=menscalc;
		}
	}
	else 
	{
		if (menssouh>0)
		{
			mensmax=menssouh;
		} 
	}
	if ((menscalc>0)||(menssouh>0)) 
	{
		if ((mensmax<=strtoint(getValue('totalaupr')))) 
		{
			alert("Mensualité insuffisante");
			setValue('monpretsou',0);
		}
	}
	setValue('dispo',inttostr(Math.max(mensmax-strtoint(getValue('totalaupr')),0)));
}
function calcCoefPret(i,duree) {
	return Math.pow(1+i,duree);
}
function calcMens(mnt,dur,txi,txa,nb_echeance,type_assu) {
	mis=dur*nb_echeance;
	if(type_assu==1) {
		txm=(txi+txa)/100/nb_echeance;
		prw=calcCoefPret(txm,mis);
		result=mnt*prw*txm/(prw-1);
	} else {
		txm=txi/100/nb_echeance;
		prw=calcCoefPret(txm,mis);
		result=mnt*(prw*txm/(prw-1)+txa/100/nb_echeance);
	}
	return result;
}