function spcenu(kal) {
	var papirc = 0;	// cena za 1list jakéhokoliv papíru
	var kckg = 0;
	var pridavek = 0;
	var priprava = 0;
	var vysl = 0;
	var kcp = 0;
	
	var papirf = kal.form_pap.options[kal.form_pap.selectedIndex].value;	// výběr papíru a4, a3...
	var gramaz = kal.gramaz.options[kal.gramaz.selectedIndex].value;	// gramaz papiru - 70,80,90,100...
	var barevnost = parseInt(kal.bar_tisku.options[kal.bar_tisku.selectedIndex].value); // plnobar. jednostranny ( = 1), oboustranny (= 2)
	var typ_pap = parseInt(kal.typ_pap.options[kal.typ_pap.selectedIndex].value); // kridovy ( = 1), ofsetovy (= 2)
	
	//převod na float parseFloat("4.333"); 
	//převod na text a.toString();
	
	//alert(barevnost);
	
	//alert(pocks);
	
	function isBlank(val){
	if(val==null){return true;}
	for(var i=0;i<val.length;i++) {
		if ((val.charAt(i)!=' ')&&(val.charAt(i)!="\t")&&(val.charAt(i)!="\n")&&(val.charAt(i)!="\r")){return false;}
		}
	return true;
	}
	
	function isDigit(num) {
	if (num.length>1){return false;}
	var string="1234567890";
	if (string.indexOf(num)!=-1){return true;}
	return false;
	}


	
	function jeCislo(vstup){
	if (isBlank(vstup)){return false;}
	for(var i=0;i<vstup.length;i++){
		if(!isDigit(vstup.charAt(i))){return false;}
		}
	return true;
	}
	
	if (jeCislo(kal.poc_kusu.value) == false) {
		alert("Počet kusů není platný. Zadejte jej a akci opakujte");
		kal.poc_kusu.focus();
		return false;	
		}
		
	var pocks = parseInt(kal.poc_kusu.value); // pocet kusu, uzivatelsky vstup	
	
	switch (barevnost)
	{
	case 1:	//_______________________________________________________________________	plnobarevný jednostranný tisk ____
					switch (typ_pap)
					{
	  				case 1: //alert("j-křídový");
										switch (papirf)
										{
											case (papirf = "a3"): //papirc = parseFloat(kal.jed_krid_a3.value);
																						kckg = parseFloat(kal.jed_krid_kcg_a3.value);
																						pridavek = parseFloat(kal.jed_krid_prid_a3.value);
																						priprava = parseFloat(kal.jed_prip_a3.value);
																						kcp = parseFloat(kal.jed_kcp_a3.value);
											break
											case (papirf = "a4"): //papirc = parseFloat(kal.jed_krid_a4.value);
																						kckg = parseFloat(kal.jed_krid_kcg_a4.value);
																						pridavek = parseFloat(kal.jed_krid_prid_a4.value);
																						priprava = parseFloat(kal.jed_prip_a4.value);
																						kcp = parseFloat(kal.jed_kcp_a4.value);
											break
											case (papirf = "a5"): //papirc = parseFloat(kal.jed_krid_a5.value);
																						kckg = parseFloat(kal.jed_krid_kcg_a5.value);
																						pridavek = parseFloat(kal.jed_krid_prid_a5.value);
																						priprava = parseFloat(kal.jed_prip_a5.value);
																						kcp = parseFloat(kal.jed_kcp_a5.value);
											break
											case (papirf = "a6"): //papirc = parseFloat(kal.jed_krid_a6.value);
																						kckg = parseFloat(kal.jed_krid_kcg_a6.value);
																						pridavek = parseFloat(kal.jed_krid_prid_a6.value);
																						priprava = parseFloat(kal.jed_prip_a6.value);
																						kcp = parseFloat(kal.jed_kcp_a6.value);
											break
											case (papirf = "a7"): //papirc = parseFloat(kal.jed_krid_a7.value);
																						kckg = parseFloat(kal.jed_krid_kcg_a7.value);
																						pridavek = parseFloat(kal.jed_krid_prid_a7.value);
																						priprava = parseFloat(kal.jed_prip_a7.value);
																						kcp = parseFloat(kal.jed_kcp_a7.value);
											break											
										}	
										
									//kckg = parseFloat(kal.jed_krid_kcg.value);
				  	break
				  	case 2: //alert("j-ofsetový");s
				  				switch (papirf)
										{
											case (papirf = "a3"): //papirc = parseFloat(kal.jed_ofs_a3.value);
																						kckg = parseFloat(kal.jed_ofs_kcg_a3.value);
																						pridavek = parseFloat(kal.jed_ofs_prid_a3.value);
																						priprava = parseFloat(kal.jed_prip_a3.value);
																						kcp = parseFloat(kal.jed_kcp_a3.value);
											break
											case (papirf = "a4"): //papirc = parseFloat(kal.jed_ofs_a4.value);
																						kckg = parseFloat(kal.jed_ofs_kcg_a4.value);
																						pridavek = parseFloat(kal.jed_ofs_prid_a4.value);
																						priprava = parseFloat(kal.jed_prip_a4.value);
																						kcp = parseFloat(kal.jed_kcp_a4.value);
											break
											case (papirf = "a5"): //papirc = parseFloat(kal.jed_ofs_a5.value);
																						kckg = parseFloat(kal.jed_ofs_kcg_a5.value);
																						pridavek = parseFloat(kal.jed_ofs_prid_a5.value);
																						priprava = parseFloat(kal.jed_prip_a5.value);
																						kcp = parseFloat(kal.jed_kcp_a5.value);
											break
											case (papirf = "a6"): //papirc = parseFloat(kal.jed_ofs_a6.value);
																						kckg = parseFloat(kal.jed_ofs_kcg_a6.value);
																						pridavek = parseFloat(kal.jed_ofs_prid_a6.value);
																						priprava = parseFloat(kal.jed_prip_a6.value);
																						kcp = parseFloat(kal.jed_kcp_a6.value);
											break
											case (papirf = "a7"): //papirc = parseFloat(kal.jed_ofs_a7.value);
																						kckg = parseFloat(kal.jed_ofs_kcg_a7.value);
																						pridavek = parseFloat(kal.jed_ofs_prid_a7.value);
																						priprava = parseFloat(kal.jed_prip_a7.value);
																						kcp = parseFloat(kal.jed_kcp_a7.value);
											break											
										}	
										
									//kckg = parseFloat(kal.jed_ofs_kcg.value);
				  	break
	  			}	
	break
	case 2:	//_______________________________________________________________________	plnobarevný oboustranný tisk ____
					switch (typ_pap)
					{
	  				case 1: //alert("o-křídový");
									switch (papirf)
										{
											case (papirf = "a3"): //papirc = parseFloat(kal.obs_krid_a3.value);
																						kckg = parseFloat(kal.obs_krid_kcg_a3.value);
																						pridavek = parseFloat(kal.obs_krid_prid_a3.value);
																						priprava = parseFloat(kal.obs_prip_a3.value);
																						kcp = parseFloat(kal.obs_kcp_a3.value);
											break
											case (papirf = "a4"): //papirc = parseFloat(kal.obs_krid_a4.value);
																						kckg = parseFloat(kal.obs_krid_kcg_a4.value);
																						pridavek = parseFloat(kal.obs_krid_prid_a4.value);
																						priprava = parseFloat(kal.obs_prip_a4.value);
																						kcp = parseFloat(kal.obs_kcp_a4.value);
											break
											case (papirf = "a5"): //papirc = parseFloat(kal.obs_krid_a5.value);
																						kckg = parseFloat(kal.obs_krid_kcg_a5.value);
																						pridavek = parseFloat(kal.obs_krid_prid_a5.value);
																						priprava = parseFloat(kal.obs_prip_a5.value);
																						kcp = parseFloat(kal.obs_kcp_a5.value);
											break
											case (papirf = "a6"): //papirc = parseFloat(kal.obs_krid_a6.value);
																						kckg = parseFloat(kal.obs_krid_kcg_a6.value);
																						pridavek = parseFloat(kal.obs_krid_prid_a6.value);
																						priprava = parseFloat(kal.obs_prip_a6.value);
																						kcp = parseFloat(kal.obs_kcp_a6.value);
											break
											case (papirf = "a7"): //papirc = parseFloat(kal.obs_krid_a7.value);
																						kckg = parseFloat(kal.obs_krid_kcg_a7.value);
																						pridavek = parseFloat(kal.obs_krid_prid_a7.value);
																						priprava = parseFloat(kal.obs_prip_a7.value);
																						kcp = parseFloat(kal.obs_kcp_a7.value);
											break											
										}		
										
									//kckg = parseFloat(kal.obs_krid_kcg.value);
				  	break
				  	case 2: //alert("o-ofsetový");
				  				switch (papirf)
										{
											case (papirf = "a3"): //papirc = parseFloat(kal.obs_ofs_a3.value);
																						kckg = parseFloat(kal.obs_ofs_kcg_a3.value);
																						pridavek = parseFloat(kal.obs_ofs_prid_a3.value);
																						priprava = parseFloat(kal.obs_prip_a3.value);
																						kcp = parseFloat(kal.obs_kcp_a3.value);
											break
											case (papirf = "a4"): //papirc = parseFloat(kal.obs_ofs_a4.value);
																						kckg = parseFloat(kal.obs_ofs_kcg_a4.value);
																						pridavek = parseFloat(kal.obs_ofs_prid_a4.value);
																						priprava = parseFloat(kal.obs_prip_a4.value);
																						kcp = parseFloat(kal.obs_kcp_a4.value);
											break
											case (papirf = "a5"): //papirc = parseFloat(kal.obs_ofs_a5.value);
																						kckg = parseFloat(kal.obs_ofs_kcg_a5.value);
																						pridavek = parseFloat(kal.obs_ofs_prid_a5.value);
																						priprava = parseFloat(kal.obs_prip_a5.value);
																						kcp = parseFloat(kal.obs_kcp_a5.value);
											break
											case (papirf = "a6"): //papirc = parseFloat(kal.obs_ofs_a6.value);
																						kckg = parseFloat(kal.obs_ofs_kcg_a6.value);
																						pridavek = parseFloat(kal.obs_ofs_prid_a6.value);
																						priprava = parseFloat(kal.obs_prip_a6.value);
																						kcp = parseFloat(kal.obs_kcp_a6.value);
											break
											case (papirf = "a7"): //papirc = parseFloat(kal.obs_ofs_a7.value);
																						kckg = parseFloat(kal.obs_ofs_kcg_a7.value);
																						pridavek = parseFloat(kal.obs_ofs_prid_a7.value);
																						priprava = parseFloat(kal.obs_prip_a7.value);
																						kcp = parseFloat(kal.obs_kcp_a7.value);
											break											
										}	
										
									//kckg = parseFloat(kal.obs_ofs_kcg.value);
				  	break
	  			}	
	break
		case 3:	//_______________________________________________________________________	jednobarevný oboustranný tisk ____
					switch (typ_pap)
					{
	  				case 1: //alert("o-křídový");
									switch (papirf)
										{
											case (papirf = "a3"): //papirc = parseFloat(kal.jed_jbar_krid_a3.value);
																						kckg = parseFloat(kal.jed_jbar_krid_kcg_a3.value);
																						pridavek = parseFloat(kal.jed_jbar_krid_prid_a3.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a3.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a3.value);
											break
											case (papirf = "a4"): //papirc = parseFloat(kal.jed_jbar_krid_a4.value);
																						kckg = parseFloat(kal.jed_jbar_krid_kcg_a4.value);
																						pridavek = parseFloat(kal.jed_jbar_krid_prid_a4.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a4.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a4.value);
											break
											case (papirf = "a5"): //papirc = parseFloat(kal.jed_jbar_krid_a5.value);
																						kckg = parseFloat(kal.jed_jbar_krid_kcg_a5.value);
																						pridavek = parseFloat(kal.jed_jbar_krid_prid_a5.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a5.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a5.value);
											break
											case (papirf = "a6"): //papirc = parseFloat(kal.jed_jbar_krid_a6.value);
																						kckg = parseFloat(kal.jed_jbar_krid_kcg_a6.value);
																						pridavek = parseFloat(kal.jed_jbar_krid_prid_a6.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a6.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a6.value);
											break
											case (papirf = "a7"): //papirc = parseFloat(kal.jed_jbar_krid_a7.value);
																						kckg = parseFloat(kal.jed_jbar_krid_kcg_a7.value);
																						pridavek = parseFloat(kal.jed_jbar_krid_prid_a7.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a7.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a7.value);
											break											
										}		
										
									//kckg = parseFloat(kal.jed_jbar_krid_kcg.value);
				  	break
				  	case 2: //alert("o-ofsetový");
				  				switch (papirf)
										{
											case (papirf = "a3"): //papirc = parseFloat(kal.jed_jbar_ofs_a3.value);
																						kckg = parseFloat(kal.jed_jbar_ofs_kcg_a3.value);
																						pridavek = parseFloat(kal.jed_jbar_ofs_prid_a3.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a3.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a3.value);
											break
											case (papirf = "a4"): //papirc = parseFloat(kal.jed_jbar_ofs_a4.value);
																						kckg = parseFloat(kal.jed_jbar_ofs_kcg_a4.value);
																						pridavek = parseFloat(kal.jed_jbar_ofs_prid_a4.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a4.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a4.value);
											break
											case (papirf = "a5"): //papirc = parseFloat(kal.jed_jbar_ofs_a5.value);
																						kckg = parseFloat(kal.jed_jbar_ofs_kcg_a5.value);
																						pridavek = parseFloat(kal.jed_jbar_ofs_prid_a5.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a5.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a5.value);
											break
											case (papirf = "a6"): //papirc = parseFloat(kal.jed_jbar_ofs_a6.value);
																						kckg = parseFloat(kal.jed_jbar_ofs_kcg_a6.value);
																						pridavek = parseFloat(kal.jed_jbar_ofs_prid_a6.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a6.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a6.value);
											break
											case (papirf = "a7"): //papirc = parseFloat(kal.jed_jbar_ofs_a7.value);
																						kckg = parseFloat(kal.jed_jbar_ofs_kcg_a7.value);
																						pridavek = parseFloat(kal.jed_jbar_ofs_prid_a7.value);
																						priprava = parseFloat(kal.jed_jbar_prip_a7.value);
																						kcp = parseFloat(kal.jed_jbar_kcp_a7.value);
											break											
										}	
										
									//kckg = parseFloat(kal.jed_jbar_ofs_kcg.value);
				  	break
	  			}	
	break
	case 4:	//_______________________________________________________________________	plnobarevný oboustranný tisk ____
					switch (typ_pap)
					{
	  				case 1: //alert("o-křídový");
									switch (papirf)
										{
											case (papirf = "a3"): //papirc = parseFloat(kal.obs_jbar_krid_a3.value);
																						kckg = parseFloat(kal.obs_jbar_krid_kcg_a3.value);
																						pridavek = parseFloat(kal.obs_jbar_krid_prid_a3.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a3.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a3.value);
											break
											case (papirf = "a4"): //papirc = parseFloat(kal.obs_jbar_krid_a4.value);
																						kckg = parseFloat(kal.obs_jbar_krid_kcg_a4.value);
																						pridavek = parseFloat(kal.obs_jbar_krid_prid_a4.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a4.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a4.value);
											break
											case (papirf = "a5"): //papirc = parseFloat(kal.obs_jbar_krid_a5.value);
																						kckg = parseFloat(kal.obs_jbar_krid_kcg_a5.value);
																						pridavek = parseFloat(kal.obs_jbar_krid_prid_a5.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a5.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a5.value);
											break
											case (papirf = "a6"): //papirc = parseFloat(kal.obs_jbar_krid_a6.value);
																						kckg = parseFloat(kal.obs_jbar_krid_kcg_a6.value);
																						pridavek = parseFloat(kal.obs_jbar_krid_prid_a6.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a6.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a6.value);
											break
											case (papirf = "a7"): //papirc = parseFloat(kal.obs_jbar_krid_a7.value);
																						kckg = parseFloat(kal.obs_jbar_krid_kcg_a7.value);
																						pridavek = parseFloat(kal.obs_jbar_krid_prid_a7.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a7.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a7.value);
											break											
										}		
										
									//kckg = parseFloat(kal.obs_jbar_krid_kcg.value);
				  	break
				  	case 2: //alert("o-ofsetový");
				  				switch (papirf)
										{
											case (papirf = "a3"): //papirc = parseFloat(kal.obs_jbar_ofs_a3.value);
																						kckg = parseFloat(kal.obs_jbar_ofs_kcg_a3.value);
																						pridavek = parseFloat(kal.obs_jbar_ofs_prid_a3.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a3.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a3.value);
											break
											case (papirf = "a4"): //papirc = parseFloat(kal.obs_jbar_ofs_a4.value);
																						kckg = parseFloat(kal.obs_jbar_ofs_kcg_a4.value);
																						pridavek = parseFloat(kal.obs_jbar_ofs_prid_a4.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a4.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a4.value);
											break
											case (papirf = "a5"): //papirc = parseFloat(kal.obs_jbar_ofs_a5.value);
																						kckg = parseFloat(kal.obs_jbar_ofs_kcg_a5.value);
																						pridavek = parseFloat(kal.obs_jbar_ofs_prid_a5.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a5.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a5.value);
											break
											case (papirf = "a6"): //papirc = parseFloat(kal.obs_jbar_ofs_a6.value);
																						kckg = parseFloat(kal.obs_jbar_ofs_kcg_a6.value);
																						pridavek = parseFloat(kal.obs_jbar_ofs_prid_a6.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a6.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a6.value);
											break
											case (papirf = "a7"): //papirc = parseFloat(kal.obs_jbar_ofs_a7.value);
																						kckg = parseFloat(kal.obs_jbar_ofs_kcg_a7.value);
																						pridavek = parseFloat(kal.obs_jbar_ofs_prid_a7.value);
																						priprava = parseFloat(kal.obs_jbar_prip_a7.value);
																						kcp = parseFloat(kal.obs_jbar_kcp_a7.value);
											break											
										}	
										
									//kckg = parseFloat(kal.obs_jbar_ofs_kcg.value);
				  	break
	  			}	
	break	
	default:
	  alert("Neznámá hodnota /barevnost/");
	break
	}
	
	var del = 1;
	switch (parseFloat(papirf[1])) {
	case (3): del = 1;
						break;
	case (4): del = 2;
						break;
	case (5): del = 4;
						break;
	case (6): del = 8;
						break;																		
	case (7): del = 6;
						break;							
	}						
	
	
	var czgr = 0.00015456; // cena za gram
	var ckgg = (czgr*gramaz*kckg)/del;// cena za papir
	
	
	//alert(ckgg);
	
	papirc = (Math.round((ckgg) * 10000)) / 10000 ;
	
	//alert(papirc +"*"+ pocks +"+"+ papirc +"*"+ pridavek +"+"+ kcp +"*"+ pocks +"+"+ priprava);
	
	vysl = (papirc*pocks)+(papirc*pridavek)+(kcp*pocks)+priprava;
	
	kal.cena.value = vysl.toFixed(2);
			
}

function openwin(url,name) {
  var height = 600;
  var width = 800;
  var str = "height=" + height + ",innerHeight=" + height;
  str += ",width=" + width + ",innerWidth=" + width;
  if (window.screen) {
    var ah = screen.availHeight - 30;
    var aw = screen.availWidth - 10;
    var xc = Math.floor((aw - width) / 2);
    var yc = Math.floor((ah - height) / 2);
    str += ",left=" + xc + ",screenX=" + xc;
    str += ",top=" + yc + ",screenY=" + yc;
  }
  str += ",directories=0,location=0,menubar=1,personalbar=1,scrollbars=1,status=1,toolbar=1";
  return window.open(url,name,str);
}