//	Copyright by Otte Kunststofftechnik
//	auf teicfolien.org 2010
//	alle Rechte vorbehalten
//
//
function ziffern_parser(ziffer)
{
	if (isNaN(ziffer) == true)
	{
		if (ziffer == "undefined" || ziffer == "0" || ziffer == NaN || ziffer.length == 0)
		{
			ziffer = 0;
		}
		else
		{
			ziffer = parseFloat(ziffer.replace(/,/, "."));
		}
	}
	else
	{
		ziffer = parseFloat(ziffer);
	}
	return ziffer;
}

function material(feld, wert)
{
	var feld_array = feld.split("|");
	return feld_array[wert];
}

function preis_berechnen(tlaenge,tbreite)
{
	tlaenge = ziffern_parser(tlaenge);
	tbreite = ziffern_parser(tbreite);
	if (tlaenge > 0 && tbreite > 0)
	{
		tkastenrand = ziffern_parser(document.planer.kastenrand.options[document.planer.kastenrand.selectedIndex].value);
		tausfuehrung_zuschlag = ziffern_parser(material(document.planer.ausfuehrung.options[document.planer.ausfuehrung.selectedIndex].value, 0));
		tausfuehrung_preis = ziffern_parser(material(document.planer.ausfuehrung.options[document.planer.ausfuehrung.selectedIndex].value, 1));
		tausfuehrung_sonderanfertigung = ziffern_parser(material(document.planer.ausfuehrung.options[document.planer.ausfuehrung.selectedIndex].value, 2));
		if (tausfuehrung_zuschlag > 0) {
			if (tkastenrand > 0.1) {
				tlaenge += tausfuehrung_zuschlag;
				tbreite += tausfuehrung_zuschlag;
			}
			else {
				alert ('Für die Hauben-Ausführung muss der Sandkasten eine Mindesthöhe von 10cm haben.');
				document.planer.endqm.value = 0;
				document.planer.ausfuehrungspreis.value = tausfuehrung_preis.toFixed(2);
				document.planer.endpreis.value = 0;
				return (false);
			}
		}
		else {
			tlaenge += tkastenrand;
			tbreite += tkastenrand;
		}
//		alert (tlaenge);
		var qm2 = tlaenge * tbreite;
		document.planer.endqm.value = qm2.toFixed(2);
		var sonderanfertigung = tausfuehrung_sonderanfertigung;
		var zwischensumme = tausfuehrung_preis * document.planer.endqm.value;
		var endpreis = zwischensumme + sonderanfertigung;
		document.planer.ausfuehrungspreis.value = tausfuehrung_preis.toFixed(2);
		document.planer.zwischensumme.value = zwischensumme.toFixed(2);
		document.planer.sonderanfertigung.value = tausfuehrung_sonderanfertigung.toFixed(2);
		document.planer.endpreis.value = endpreis.toFixed(2);
		alert ('Der Sandkasten-Abdeckungs-Planer hat folgende Werte ermittelt:\n\nGröße:  ' +
		 document.planer.endqm.value + ' qm\nPreis je qm:  ' +
		 document.planer.ausfuehrungspreis.value + ' EUR\nZwischensumme:  ' +
		 document.planer.zwischensumme.value + ' EUR\nSonderanfertigung:  ' +
		 document.planer.sonderanfertigung.value + ' EUR\nEndpreis:  ' +
		 document.planer.endpreis.value+ ' EUR');
	}
	else {
		alert ('Mindestens eine der Angaben zu Laenge oder Breite ist 0');
	}
	return (false);
}