//
// ORGANIZUOJA darba su formomis jas pildant keiciant puslapius
//


function pasirinkta(id) {
	var elem = document.getElementById(id);
	if (elem.checked) {
		return true ;
	} else {
		return false ;
	}
}

function reiksme(id) {
	var elem = document.getElementById(id);
if (elem == null) alert(id);
	return elem.value;
}

function perduoti_duomenis(pagr_linkas) {
//
// Reikia formas suvaryti i sausainelius
//





//
// Surenka visus reikalingus duomenis ir prijungia juos prie query eilutes
// Po po perduoda valdyma moduliui,, kuris daro irasa SQL bazeje.
// Po viskam generuojama saskaita, viskas rodoma, ir siuloma apmoketi
//
// Pirmiausia tikrinam ar moketojoas juridinis asmuo
//
	var mok_salis=document.getElementById('mok_sal');
	var gav_salis=document.getElementById('gav_sal');
	var mok_salis_id=mok_salis.value;
	var klaida = '' ;
	var query_plius='';

	if (pasirinkta('mok_adr_jung')) {
		query_plius += "&mok=j";
		(reiksme('pvd') != '') ? (query_plius += "&pvd=" + reiksme('pvd'))  : (klaida+="Nenurodytas mokėtojo pavadinimas\n");
		(reiksme('imk') != '') ? (query_plius += "&imk=" + reiksme('imk'))  : (klaida+="Nenurodytas įmonės kodas'\n");
		(reiksme('pvm') != '') ? (query_plius += "&pvm=" + reiksme('pvm'))  : (klaida+="Nenurodytas PVM mokėtojo kodas'\n");
	} else {
		query_plius += "&mok=p";
	}
	(reiksme('m_vrd') != '') ? (query_plius += "&m_vrd=" + reiksme('m_vrd'))  : (klaida+="Nenurodytas mokėtojo vardas\n");
	(reiksme('m_pvrd') != '') ? (query_plius += "&m_pvrd=" + reiksme('m_pvrd'))  : (klaida+="Nenurodyta mokėtojo pavardė\n");
	query_plius += "&mok_sal=" +mok_salis_id;
// 
// Ziurim ar pristymas Lietuvoje
//	
	if ((mok_salis.value == 1)) {
// kisam info apie moketoja lietuvoje
		(reiksme('m_aps') != '') ? (query_plius += "&m_aps=" + reiksme('m_aps'))  : (klaida+="Nenurodyta mokėtojo apskritis\n");
		(reiksme('m_raj') != '') ? (query_plius += "&m_raj=" + reiksme('m_raj'))  : (klaida+="Nenurodytas mokėtojo rajonas\n");
//		(reiksme('m_m') != '') ? (query_plius += "&m_m=" + reiksme('m_m'))  : (klaida+="Nenurodytas mokėtojo miestas\n");
		(reiksme('m_g') != '') ? (query_plius += "&m_g=" + reiksme('m_g'))  : (klaida+="");
		(reiksme('m_n') != '') ? (query_plius += "&m_n=" + reiksme('m_n'))  : (klaida += "");
		(reiksme('m_b') != '') ? (query_plius += "&m_b=" + reiksme('m_b'))  : (klaida += "");
		(reiksme('m_p') != '') ? (query_plius += "&m_p=" + reiksme('m_p'))  : (klaida+="Nenurodytas mokėtojo pašto kodas\n");
		(reiksme('m_t') != '') ? (query_plius += "&m_t=" + reiksme('m_t'))  : (klaida += "");
		(reiksme('m_e') != '') ? (query_plius += "&m_e=" + reiksme('m_e'))  : (klaida += "");
	} else {
		(reiksme('m_u') != '') ? (query_plius += "&m_u=" + reiksme('m_u'))  : (klaida+="Nenurodytas mokėtojo adresas\n");
	}
// Pristatymas kitu adresu
	if (pasirinkta('prist_kitu_adr')) {
		(reiksme('g_vrd') != '') ? (query_plius += "&g_vrd=" + reiksme('g_vrd'))  : (klaida+="Nenurodytas gavėjo vardas\n");
		(reiksme('g_pvrd') != '') ? (query_plius += "&g_pvrd=" + reiksme('g_pvrd'))  : (klaida+="Nenurodyta gavėjo pavardė\n");
		if ((gav_salis.value == 1)) {
// Gavejas Lietuvoje
			(reiksme('g_aps') != '') ? (query_plius += "&g_aps=" + reiksme('g_aps'))  : (klaida+="Nenurodyta gavėjo apskritis\n");
			(reiksme('g_raj') != '') ? (query_plius += "&g_raj=" + reiksme('g_raj'))  : (klaida+="Nenurodytas gavėjo rajonas\n");
//			(reiksme('g_m') != '') ? (query_plius += "&g_m=" + reiksme('g_m'))  : (klaida+="Nenurodytas gavėjo miestas\n");
			(reiksme('g_g') != '') ? (query_plius += "&g_g=" + reiksme('g_g'))  : (klaida += "");
			(reiksme('g_n') != '') ? (query_plius += "&g_n=" + reiksme('g_n'))  : (klaida += "");
			(reiksme('g_b') != '') ? (query_plius += "&g_b=" + reiksme('g_b'))  : (klaida += "");
			(reiksme('g_p') != '') ? (query_plius += "&g_p=" + reiksme('g_p'))  : (klaida+="Nenurodytas gavėjo pašto kodas\n");
			(reiksme('g_t') != '') ? (query_plius += "&g_t=" + reiksme('g_t'))  : (klaida += "");
			(reiksme('g_e') != '') ? (query_plius += "&g_e=" + reiksme('g_e'))  : (klaida += "");
		} else {
// Gavejas uzsienyje
			(reiksme('g_u') != '') ? (query_plius += "&g_u=" + reiksme('g_u'))  : (klaida+="Nenurodytas gavėjo adresas\n");

		}
	}

	if (klaida != '' ) {	
		alert (klaida);
		return false;
	}

//	window.location.href=pagr_linkas+escape(konvert_iso(query_plius));
//	window.location.href=pagr_linkas+escape(query_plius);

	linkas(pagr_linkas);
//	window.location.href=pagr_linkas;
}



function formos_objektas_i_eilute(objektas,forma) {
	var rezultatas= "{" ;
	if (objektas.name) {
		rezultatas += "name: '" + objektas.name + "',";
	}
	if (objektas.id) {
		rezultatas += "id: '" + objektas.id + "',";
	}
	rezultatas += "type: '" + objektas.type + "',";
	switch (objektas.type) {
		case "radio" :
			if (objektas.name) {
				objektas = forma.elements[objektas.name];
				var radio_reiksme= "value: false, index:-1";
				for (var i=0; i<objektas.length; i++) {
					if (objektas[i].checked) {
						radio_reiksme="value:true, index:" + i;
						i = objektas.length;
					}
				}
				rezultatas += radio_reiksme;
			} else {
				rezultatas += "value:" + objektas.checked ;
			}
			break ;
		case "checkbox":
			rezultatas += "value:" + objektas.checked ;
			break ;
		case "select-one":
			rezultatas += "value_sask: '" + escape(objektas.value) +"',"; //  "'" + 
			rezultatas += "value:" + objektas.selectedIndex ;
			break ;
		case "select-multiple":
			rezultatas += "value:" + objektas.selectedIndex ;
			break ;
		case "text":
			rezultatas += "value: '" + escape(objektas.value) + "'";;
			break ;
		case "textarea":
			rezultatas += "value: '" + escape(objektas.value) + "'";;
			break ;
		case "password":
			rezultatas += "value: '" + escape(objektas.value) + "'";;
			break ;
		case "hidden":
			rezultatas += "value: '" + escape(objektas.value) + "'";;
			break ;
		default:
			rezultatas += "" ;
	}
	rezultatas += "}" ;
	return rezultatas ;
}



// Formos sustumimas i Javascript masyva
function forma_i_eilute(forma) {
	if (forma) {
		var elementas, paskutinis_vardas = "" ;
		var rezultatas = "[";
		for (var i = 0; i < forma.elements.length; i++) {
			elementas = forma.elements[i];
			if (elementas.name && (elementas.name != paskutinis_vardas)) {
				rezultatas += formos_objektas_i_eilute(forma.elements[i],forma) + ",";
				paskutinis_vardas=elementas.name;
			}
		}
		if (rezultatas.length > 1) {
			rezultatas = rezultatas.substring(0, rezultatas.length-1) + "]";
			return rezultatas;
		} else return null;
	}
}


// Formos reiksmiu is masyvo sudeliojimas atgal i vietas
function eilute_i_forma(forma,eilute) {
	if (eilute != null) {
		var elementas, masyvo_objektas = eval(eilute);
		if (masyvo_objektas) {
			for (var  i = 0; i<masyvo_objektas.length; i++) {
				elementas = (masyvo_objektas[i].name) ? forma.elements[masyvo_objektas[i].name] : document.getElementById(masyvo_objektas[i].id);
				switch (masyvo_objektas[i].type) {
					case "radio":
						if (masyvo_objektas[i].name && masyvo_objektas[i].value && masyvo_objektas[i].index >= 0) {
		//					elementas=elementas[masyvo_objektas[i].index];
							elementas.checked=masyvo_objektas[i].index;
						}
						break;
					case "checkbox":
						elementas.checked = masyvo_objektas[i].value;
						break;
					case "select-one":
						elementas.selectedIndex = (masyvo_objektas[i].name == "raj" || masyvo_objektas[i].name == "raj_gav") ? null :masyvo_objektas[i].value ;
						break;
					case "select-multiple":
						elementas.selectedIndex = masyvo_objektas[i].value;
					default:
						elementas.value = unescape(masyvo_objektas[i].value);
						break;
				}
			}
		}
	}
}