//Copyright czpiotr@USUN_TO.poczta.onet.pl

function strzero(num,dec)

{

if(isNaN(num))return'';

//num=Number(num)



var p=Math.pow(10,dec);

num=(Math.round(num * p))/p;	

if(num==0)return 0;

st=num.toString(10);



poz_kr=st.lastIndexOf('.'); //pozycja kropki

if(poz_kr==-1) {st+='.';qqq=dec;}

else qqq=dec - st.length +poz_kr+1;



for (p=0; p < qqq; p++)st+='0';

return st

}



//Copyright czpiotr@USUN_TO.poczta.onet.pl

//formatuje string. Na wyjsciu tylko liczby i '.'

function liczba99(wart)

{var kropka=0;

var zwr='';

var dl=wart.length;

var zmiana=false;



for (var j=0; j < dl; j++)

	{

	znak=wart.charAt(j);



	switch (znak)

		{

		case ",":

			zmiana=true;

		case ".":

			{if(kropka==0){zwr+="."; kropka++;}

			else zmiana=true;}

			break;

		default:

			if(isNaN(parseInt(znak)))zmiana=true;

			else zwr+=znak;

		}

	}



if(zwr.charAt(0)=='.')	return(zwr="0"+zwr);

//if(zwr.charAt(0)=='0' && zwr.charAt(1)!='.' && zwr.length>1) return(zwr=zwr.substring(1,zwr.length));



if(!zmiana) return(false);

if(zwr=='') zwr=' ';

return(zwr);

}



function chBoxBe()

{

	if(document.getElementById('of_bezp') && document.getElementById('of_bezp').checked)

	{

		document.getElementById('prowizjaprocH').value = document.getElementById('prowizjaprocent').value;

		document.getElementById('prowizjaprocent').value = 0;

		document.getElementById('prowizjaprocent').style.background='#EEF8FB';
		document.getElementById('prowizjaprocent').disabled = true;

	}

	else{	
		if(document.getElementById('prowizjaprocent'))
		{
			document.getElementById('prowizjaprocent').disabled = false;
			document.getElementById('prowizjaprocent').style.background='white';
			document.getElementById('prowizjaprocent').value = 3;
			
		}
		if(document.getElementById('prowizjaprocH'))
			document.getElementById('prowizjaprocent').value = document.getElementById('prowizjaprocH').value;



	}

	check();

}



function check() {

var err=false;

var opl_not=0;

var oplata_skarbowa=0;

var VAT_od_taksy=0;

var prowizja=0;

var prowizja_procent=0;

var oplata_sadowa=0;

var oplaty_dod=0;

var suma=0;

var wyp;	//wypisy z akt w [zlotych]



form=document.forms['f_kalk'];

wartosc=form.elements['c_n'].value;

waluta=form.elements['Wartosc_currency'].options[form.elements['Wartosc_currency'].selectedIndex].value;



tmpq=liczba99(wartosc);

if(tmpq)

	{wartosc=parseFloat(tmpq);

	form.elements['c_n'].value=tmpq;

	}



if(wartosc.length==0) c_n=0;

else c_n=parseFloat(wartosc) * parseFloat(waluta);



oplata_skarbowa=c_n * 0.02;

form.elements['oplataskarbowa'].value=strzero(oplata_skarbowa,2);



	 if(c_n<= 0)	opl_not= 0;

else if(c_n<= 3000)	opl_not= 100;

else if(c_n<= 10000)	opl_not= 100+(c_n- 3000)*0.03;

else if(c_n<= 30000)	opl_not= 310+(c_n- 10000)*0.02;

else if(c_n<= 60000)	opl_not= 710+(c_n- 30000)*0.01;

else if(c_n<=1000000)	opl_not=1010+(c_n- 60000)*0.004;
else if(c_n<=2000000)	opl_not=4770(c_n- 60000)*0.002;

else					opl_not=6770+(c_n-2000000)*0.0025;



if(opl_not>1829.24*6)opl_not=1829.24*6;// Op�ata notarialna nie mo�e przekroczy� 5.000 z� qq??



/* ROZPORZADZENIE MINISTRA SPRAWIEDLIWOSCI

z dnia 28 czerwca 2004 r. w sprawie maksymalnych stawek taksy notarialnej.



nie wiecej jednak niz szesciokrotnosc przecietnego miesiecznego wynagrodzenia w gospodarce narodowej w poprzednim roku,

oglaszanego do cel�w emerytalnych w Dzienniku Urzedowym Rzeczypospolitej Polskiej "Monitor Polski"przez Prezesa Gl�wnego UrzStat.,

stosowanego poczynajac od drugiego kwartalu kazdego roku przez okres jednego roku.

*/



if(form.elements['oplata1'].value==1)

	{opl_not=opl_not/2;}//Przy sprzeda�y mieszka� sp�dzielczych op�ata notarialna jest o po�ow� ni�sza.



opl_not=Math.round(opl_not*100)/100;

form.elements['taxNotar'].value=strzero(opl_not,2); 



//Gdy op�ata notarialna przekroczy 400 z� - notariusz dolicza podatek VAT qq??



VAT_od_taksy=Math.round(opl_not * 2.2)/10;

form.elements['vatodtaksy'].value=strzero(VAT_od_taksy,2);



prowizja_procent=form.elements['prowizjaprocent'].value;

tmpq=liczba99(prowizja_procent);



if(tmpq)

{

	prowizja_procent=parseFloat(tmpq)

	form.elements['prowizjaprocent'].value=tmpq;

}



prowizja_procent=parseFloat(prowizja_procent);



if(prowizja_procent.length==0) prowizja_procent=0;



if(form.elements['of_bezp'].checked)prowizja=0;

else{	prowizja=Math.round(c_n * prowizja_procent)/100;

	if(prowizja<1500 & c_n>0)prowizja=1500;

	}



form.elements['prowizja'].value=strzero(prowizja,2);



VAT_prow=Math.round(prowizja*2.2)/10;

form.elements['vat_prow'].value=strzero(VAT_prow,2)





//ZalKW=form.elements['nZalKW'].value*60;

//form.elements['ZalKW'].value=strzero(ZalKW,2);



/*Na podst rozp MS z dnia 17 gru 96 Dz.U. nr 154 poz. 753 wraz w pozn zmianami CALY wpis stosunkowy wynosi:

do 10 000 zl - 8% nie mniej niz 30 zl

od 10 001 zl do 50 000 zl - od pierwszych 10 000 zl - 800 zl a od nadwyzki ponad 10 000 zl - 7%

od 50 001 zl do 100 000 zl - od pierwszych 50 000 zl - 3600 zl a od nadwyzki ponad 50 000 zl - 6%

powyzej 100 000 zl: od pierwszego 100 000 zl - 6600 zl, a od nadwyzki ponad 100 000 - 5% nie wiecej niz 100 000 zl

*/

//WpSto - wpis stosunkowy

if(c_n>100000)WpSto=6600+((c_n-100000)*0.05);

else if(c_n>50001)WpSto=3600+((c_n-50000)*0.06);

else if(c_n>10001)WpSto=800+((c_n-10000)*0.07);

else if(c_n>10000)WpSto=c_n*0.08;

else WpSto=30;

if(WpSto>100000)WpSto=100000;//pc





/*

Wnioski notariusza i wypisy aktu =

	if(WpisZwKW=1;150;100)+



Wniosek notariusza do Ksi�g Wieczystych i wypisy aktu notarialnego:

Op�ata s�dowa za wpis do ksi�gi wieczystej =

	if(WpisZwKW=1; WpSto*0.2 ;	"nie wystepuje")

Oplaty Sadowe i hipoteki:

v-zwykly wpis do KW WpisZwKW



*/



//wyp=Math.round(WpSto*20)/100;

//wyp=form.elements['nwypisy'].value*6;

//form.elements['wypisy'].value=strzero(wyp, 2);



/*if(form.elements['vUstHipot'].checked)

	 {UstHipot=Math.round(WpSto*10)/100;}

else {UstHipot=0;}
*/
//form.elements['UstHipot'].value=strzero(UstHipot, 2); //DzIV KsWiecz.



if(form.elements['oplata1'].value==1)

	{oplata_sadowa=0;}

else

{	oplata_sadowa=WpSto * 0.2;



//	if(oplata_sadowa < 30) oplata_sadowa=30;

//	if(oplata_sadowa > 100000) oplata_sadowa=100000;

//	if(c_n <=0) oplata_sadowa=0;

	

	oplata_sadowa=200; //od marca 2006

}



form.elements['oplatasadowa'].value=strzero(oplata_sadowa,2);





//tmpq=liczba99(wyp);

//if(tmpq){

//	wyp=tmpq;

//	form.elements['wypisy'].value=strzero(wyp,2);}



//alert("o_sk"+oplata_skarbowa +" on"+ opl_not +" Vat"+ VAT_od_taksy +" o_sa"+ oplata_sadowa +" prow"+ prowizja +" wypisy"+ wyp)



oplaty_dod=oplata_skarbowa + opl_not + VAT_od_taksy + oplata_sadowa + prowizja+VAT_prow;

form.elements['oplatydod'].value=strzero(oplaty_dod,2);



suma=c_n + oplaty_dod;

form.elements['suma'].value=strzero(suma/form.elements['Total_currency'].value,2);

}



function wybrano(r1,r2)

	{if(r1.checked)r2.checked=false;}





chBoxBe();

document.f_kalk.c_n.focus();