//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').checked)
	{
		document.getElementById('prowizjaprocH').value = document.getElementById('prowizjaprocent').value;
		document.getElementById('prowizjaprocent').value = 0;
		document.getElementById('prowizjaprocent').style.background='#eeeeee';
	}
	else{	
		document.getElementById('prowizjaprocent').value = document.getElementById('prowizjaprocH').value;
		document.getElementById('prowizjaprocent').style.background='white';
		document.getElementById('prowizjaprocent').value = 3;
		document.getElementById('prowizjaprocent').disabled = false;
	}
	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=1 /*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 && !form.elements['vUstHipot'].checked)
	{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 + Number(wyp)+ZalKW+UstHipot;
form.elements['oplatydod'].value=strzero(oplaty_dod,2);

suma=c_n + oplaty_dod;
form.elements['suma'].value=strzero(suma,2);
}

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


chBoxBe();
document.f_kalk.c_n.focus();