function get_selected(object){
    for (var i = 0; i < object.length; i++) {
        if (object[i].selected) return(object[i].value);
    }
}
function set_selected(object, t_value){
    for (var i = 0; i < object.length; i++) {
        if (object[i].value==t_value) object[i].selected="TRUE";
    }
}

function year_change() {
/*var _f = document.CALC;
    if((get_selected(_f.F_YEAR)==3) && (get_selected(_f.F_DEPOSIT_PERCENT))<20) {
        alert("Naudotų automobilių atveju pirmoji įmoka - ne mažiau 30 % !");
        set_selected(_f.F_DEPOSIT_PERCENT,30);
    }
*/
    change();
}
function fill_deposits (min, max) {
	var _f = document.CALC;
	var j = 0, k = 1;
	var deposits = new Array(0,5,10,15,20,25,30,35,40,50,75);
	
	for (var i=0; i<deposits.length; i++) {
		if (deposits[i] >= min && deposits[i] <= max) {
			j++;
		}
	}
	_f.F_DEPOSIT_PERCENT.length = j;
	for (var z = j-1; z >= 0; z--) {
			_f.F_DEPOSIT_PERCENT.options[z].text=deposits[deposits.length-k]+' %';
			_f.F_DEPOSIT_PERCENT.options[z].value=deposits[deposits.length-k];
			k++;
	}
}
function fill_period (min, max) {
	var _f = document.CALC;
	var j = 0, k = 1;
	var galunes = new Array();
	galunes[0] = 'ai';
	galunes[6] = 'ų';
	var periods = new Array();
	for (var i = 0; i < 12; i++) {
		periods[i] = (i + 1) * 6;
	}
	for (var i=0; i<periods.length; i++) {
		if (periods[i] >= min && periods[i] <= max) {
			j++;
		}
	}
	_f.F_PERIOD.length = j;
	for (var z = 0; z <= j-1; z++) {
			_f.F_PERIOD.options[z].text=periods[z] / 12;// + ' met' + galunes[periods[z]%12];
			_f.F_PERIOD.options[z].value=periods[z];
			k++;
	}
}

function change() {
var _f = document.CALC;
replace();
fill_period(6,72);
if (get_selected(_f.F_YEAR)==2) {
//	if (_f.F_PERIOD.value > 48) {
//		fill_deposits(10,75);
//	} else {
		fill_deposits(0,75);	
//	}
/*	if (get_selected(_f.F_DEPOSIT_PERCENT) < 10) {
		_f.message.value = 'Tik fiziniams asmenims. Akcija galioja iki 2005 m. sausio 15 d.';
	} else {
		_f.message.value = 'Akcija galioja iki 2005 m. sausio 15 d.';
	} */
	
} else {	
	_f.message.value = '';
	if (get_selected(_f.F_YEAR)==4 || get_selected(_f.F_YEAR)==2) {
		fill_deposits(10,75);
/*		if (get_selected(_f.F_YEAR)==4) {
			_f.message.value = 'Akcija galioja iki 2005 m. sausio 15 d.';
		} */
	}
	if (get_selected(_f.F_YEAR)==3) {
		fill_deposits(20,75);
		fill_period(6,60);
	}
}
// Default depozitas is Ypatingu
	if (_f.DP.value) {
		_f.F_DEPOSIT_PERCENT.value = _f.DP.value;
		_f.DP.value='';
	}	
// Default periodas is Ypatingu
	if (_f.PR.value) {
		_f.F_PERIOD.value = _f.PR.value;
		_f.PR.value='';
	}	
    _f.PERIOD.value=get_selected(_f.F_PERIOD);
    _f.YEAR.value=get_selected(_f.F_YEAR);
    _f.CURR.value=get_selected(_f.F_CURR);
// ---- masyvo gamyba ----
var row0 = new Array(4.9,4.9,4.9,4.9,4.9,4.9
);

var row1 = new Array(4.9,4.9,4.9,4.9,4.9,4.9
);

var row2 = new Array(4.9,4.9,4.9,4.9,4.9,4.9
);

var row3 = new Array(5.6,5.6,5.6,5.6,5.6,5.6
);

var row4 = new Array(5.6,5.6,5.6,5.6,5.6,5.6
);

var row5 = new Array(5.6,5.6,5.6,5.6,5.6,5.6
);

var row6 = new Array(5.5,5.5,5.5,5.5,5.5
);

var row7 = new Array(5.4,5.4,5.4,5.4,5.4
);

var row8 = new Array(5.4,5.4,5.4,5.4,5.4
);

var row9 = new Array(5.4,5.4,5.4,5.4,5.4
);

var row10 = new Array(5.6,5.6,5.7,5.7,5.8
);

var row11 = new Array(5.1,5.3,5.5,5.7
);

var row12 = new Array(5.1,5.3,5.5,5.7
);

var row13 = new Array(18.5,16.5,13.0
);

var row14 = new Array(15.5,15.0,14.0
);

var row15 = new Array(5.0,5.0,5.3,5.7,6.0,6.5
);

var row16 = new Array(4.5,4.5,4.5,4.5,4.5,4.5
);

var row17 = new Array(4.5,4.5,4.5,4.5,4.5,4.5
);
var intarr = new Array(row0,row1,row2,row3,row4,row5,row6,row7,row8,row9,row10,row11,row12,row13,row14,row15,row16,row17);
// ---- /masyvo gamyba ----
    if (get_selected(_f.F_YEAR)==3) {_f.row_index.value=_f.F_CURR.value*1+3;}
        else { 
			if (get_selected(_f.F_YEAR)==1 || get_selected(_f.F_YEAR)==4) {_f.row_index.value=_f.F_CURR.value*1+15;}
			else _f.row_index.value=_f.F_CURR.value;
		}
    if (_f.F_PERIOD.value%12==0) {_f.col_index.value=_f.F_PERIOD.value/12-1;}
        else _f.col_index.value = Math.round(_f.F_PERIOD.value/12)-1;
    _f.TOTAL_COST.value=_f.F_TOTAL_COST.value;// * get_selected(_f.F_PVM)
//	if (_f.YEAR.value == 2) {
//		if (get_selected(_f.F_DEPOSIT_PERCENT) == 0) {
//			_f.INTEREST.value = 4.7;
//		} else {
//			if (get_selected(_f.F_DEPOSIT_PERCENT) == 5) {
//				_f.INTEREST.value = 4.5;
//			} else {
//				if (get_selected(_f.F_DEPOSIT_PERCENT) >= 10) {
//					_f.INTEREST.value = 4.2;
//				}
//			}
//		}
//	} else {
	    _f.INTEREST.value = intarr[_f.row_index.value][_f.col_index.value];
//	}
//	_f.message.value = _f.INTEREST.value;
    _f.F_DEPOSIT.value=Math.round(_f.TOTAL_COST.value * get_selected(_f.F_DEPOSIT_PERCENT) * 0.01); 
    _f.DEPOSIT_PERCENT.value=get_selected(_f.F_DEPOSIT_PERCENT);
    _f.DEPOSIT.value=_f.F_DEPOSIT.value;
    _f.ASSETS_NAME.value=_f.F_ASSETS_NAME.value;
//    _f.MONTH_PAYMENT.value=_f.F_MONTH_PAYMENT.value;
    _f.MONTH_PAYMENT.value= Math.round(_f.INTEREST.value / 1200 * (_f.TOTAL_COST.value - _f.DEPOSIT.value) / (1 - (1 / Math.pow(1+_f.INTEREST.value / 1200, _f.PERIOD.value))),4,2);
    _f.F_MONTH_PAYMENT.value=_f.MONTH_PAYMENT.value;
}
function examination() {
var _f = document.CALC;
    if(_f.F_TOTAL_COST.value == "" || isNaN(_f.F_TOTAL_COST.value)){
        alert("Neteisingai nurodėte automobilio kainą!");
        _f.F_TOTAL_COST.focus();
        return(false);
    }
}
function vertinti() {
var _f = document.CALC;
var limitai = new Array(500, 2000, 4000);
var apt_rodiklis = new Array(35, 40, 50);
var j = 0, diff_paj_is, max_imoka, diff_paj_max;
replace();
	diff_paj_is = (_f.pajamos.value - _f.isipareigojimai.value);
	for (var i=0; i<limitai.length; i++) {
		if (limitai[i] * _f.gvieta.value < diff_paj_is) {
			j++;
		}
	}
	max_imoka = diff_paj_is * apt_rodiklis[j-1] / 100;
	if (isNaN(_f.seima.value) || _f.seima.value <= 0 ) {
		alert("Neįvestas šeimos narių skaičius!");
		return(false);		
	}
	if (max_imoka > _f.F_MONTH_PAYMENT.value) {
		diff_paj_max = diff_paj_is - max_imoka;
		if (diff_paj_max / _f.seima.value < 430 * _f.gvieta.value) {
			_f.verdiktas.value = "Nepakankamos pajamos.";
		} else {
			_f.verdiktas.value = "Užpildykite OnLizingo paraišką.";		
		}
	} else {
		_f.verdiktas.value = "Nepakankamos pajamos.";
	}

}
function replace() {
var re = /\,/g;
	with (document.CALC) {
		for (var j=0; j<elements.length; j++) {
			if (elements[j].type=='text') elements[j].value = elements[j].value.replace(re,".");
		}
	}
}