/*

	System:     Calculate liner size			
	Version:    1.10					
	Copyright:  2008 (c) Fred's Konsult			
	                     Fredrik Jacobsson	
								
	All rights reserved.					
	All JavaScript-code in this file are the property of	
	Fred's Konsult. You are not allowed to copy, modify or 	
	distribute any portion of it without permission.
								
	Website:   http://www.fredskonsult.se			
	E-mail:    info@fredskonsult.se				

*/


//	Liner configuration

var epdmB = [3.05, 4.27, 6.10, 7.62, 9.15, 12.20, 15.25];	//  EPDM width
var epdmL = 30.5;						//  EPDM max length
var epdmP = '';							//  EPDM price
var epdmN = '';							//  EPDM art.no.

var pvcB = [2, 4, 6, 8];					//  PVC width
var pvcL = 25;							//  PVC max length
var pvcP = '';							//  PVC price
var pvcN = '';							//  PVC art.no.

var skmB  = [2];						//   width
var skmP  = '';							//   price
var skmN  = '';							//   art.no.
var skmI  = '';							//   id

//	Language configuration

var langpr	= '      Pris: ';
var langartno	= '      Art.nr. ';	
var langval	= ' Kr';		
var langsp1	= ' ';				
var langsp2	= '       ';	
var langerr	= '  Ingen standardstorlek passar dessa m' + unescape("%E5") + 'tt.';

//	End configuration

































var folie = epdmB;
var maxl = epdmL;
var pris = epdmP;
var artno = epdmN;
var skm   = 0;
var m = 0;


function calcf() {
 if (m != 0) {return;}
 m = 1;
 with (document.ls) {
	var a1 = d1.value;
	var a2 = d2.value;
	var a3 = d3.value;
	if (d4) {
		var vol = a1 * a2 * d4.value;
		if(shape[0].checked) {vol*=shape[0].value;}
		if(shape[1].checked) {vol*=shape[1].value;}
		vol *= 1000;
		d5.value = rund(vol,0.1);
	}
	clt();
	clf();
	if (a3>0 && a1>0) {f1.value = rund(2 * a3 + 1 * a1, 100);}
	if (a3>0 && a2>0) {f2.value = rund(2 * a3 + 1 * a2, 100);}
 }
 m = 0;
 calcr(1);
}

function calcr(mod) {
if (m != 0) {return;}
 m = 1;
 with (document.ls) {
	if (! mod) {
		cld();
		clt();
	}

	var l = f4.options[f4.selectedIndex].value;
	var b = f5.options[f5.selectedIndex].value;
	l = rund(l*1 + f1.value * 1, 100);
	b = rund(b*1 + f2.value * 1, 100);
	if (f1.value<0.1) {l=0;}
	if (f2.value<0.1) {b=0;}
	var vol = rund(l * b,100);
	f3.value = vol;
	if (vol == 0) {
		m = 0;
		return;
	}

	// skm
	var skmm = chvalue(vol);
	skmm = rund(( skmm / skmB[skm]),10 );
	skmm = chvalue(skmm);
	var skmY = skmm*skmB[skm]
	var skmWid = rund(skmB[skm],100);
	var skmLen = rund(skmm,100);
	text3 = " " + skmWid + " x " + skmLen + langsp2 + skmY + ' m' + unescape("%B2");
	var pr = rund(skmY * skmP[skm], 1);
	if (pr > 0)    { text3 = text3 + langpr + pr + langval; }
	if (skmN[skm]) { text3 = text3 + langartno + skmN[skm]; }
	t3.value = text3;
	//linkant3 = skmm;
	// skm end


	var text1 = ' --';
	var text2 = ' --';
	var altL = 0;
	var altLY = 0;
	var altLYY= 0;
	var altB = 0;
	var altBY = 0;
	var altBYY= 0;

	var i = checkwid(l, b);
	if (i >= 0) {
		altL = rund(folie[i], 100);
		altLY = altL * b;
		altLYY= rund(altLY, 100);
		text2 = langsp1 + altL + ' x ' + b + langsp2 + altLYY + ' m' + unescape("%B2");
		var pr = rund(altLYY * pris[i], 1);
		if (pr > 0) { text2 = text2 + langpr + pr + langval; }
		if (artno[i])  { text2 = text2 + langartno + artno[i]; }
	}

	var i = checkwid(b, l);
	if (i >= 0) {
		altB = rund(folie[i], 100);
		altBY = altB * l;
		altBYY= rund(altBY, 100);

		text1 = langsp1 + altB + ' x ' + l + langsp2 + altBYY + ' m' + unescape("%B2");
		var pr = rund(altBYY * pris[i], 1);
		if (pr > 0) { text1 = text1 + langpr + pr + langval; }
		if (artno[i])  { text1 = text1 + langartno + artno[i]; }
	}

	if (altBY == 0) { altBY = 9999;}
	if (altLY == 0) { altLY = 9999;}


	if (altBY < altLY) {
		if (altB == altL) {text2=' --';}
		if (altB == 0) { text2 = langerr;}
		t1.value = text1;
		t2.value = text2;
	} else {
		if (altL == altB) {text1=' --';}
		if (altL == 0) { text2 = langerr;}
		t1.value = text2;
		t2.value = text1;
	}
 }
 m = 0;
}

function checkwid(wid, lenn) {
	var i = 0;
	if (lenn > maxl) { return -1; }
	while (folie[i] > 0) {
		if (wid <= folie[i]) { return i;}
		i++;
	}
	return -1;
}

function mod() {
	if (document.ls.sort[0].checked == 1) {
		folie = epdmB;
		pris = epdmP;
		artno = epdmN;
		maxl = epdmL;
	} else {
		folie = pvcB;
		pris = pvcP;
		artno = pvcN;
		maxl = pvcL;
	}
	if (skmB[1]) {
		if      (document.ls.sm[0].checked == 1) { skm = 0; }
		else if (document.ls.sm[1].checked == 1) { skm = 1; }
		else if (document.ls.sm[2].checked == 1) { skm = 2; }
		else if (document.ls.sm[3].checked == 1) { skm = 3; }
	}

}

function cld() {
	document.ls.d1.value = '';
	document.ls.d2.value = '';
	document.ls.d3.value = '';
	document.ls.d4.value = '';
}
function clf() {
	document.ls.f1.value = '';
	document.ls.f2.value = '';
}
function clt() {
	document.ls.t1.value = '';
	document.ls.t2.value = '';
	document.ls.t3.value = '';
}
function reseta() {
	cld();
	calcf();
	with (document.ls) {
		f4.options[6].selected = 1;
		f5.options[6].selected = 1;
		if (sort[0]) { sort[0].checked = 1; }
		if (sm[0])   { sm[0].checked = 1; }
	}
}

function rund(a,b) {
	a += 0.0001;
	a = Math.floor(a * b) / b;
	if (b==10) {var fix = 1;}
	if (b==100) {var fix = 2;}
	if (a.toFixed && (fix)) {
		a = a.toFixed(fix);
	}
	if (a == 0) {a='';}
	return a;
}

function parses(v) {
	var str = v.value;
	var b = str.indexOf(",");
	if (b >=0) {
		str = str.substring(0,b) + "." + str.substring(b+1);
	}
	b = parseFloat(str);
	b = chvalue(b);
	v.value = rund(b,100);
}
function chvalue(a) {a = isvalue(a);a = Math.abs(a);return a;}

function isvalue(a) {if (isNaN(a)) {return 0;} else {return a;}}

function noenter() { return false;}