

// +-----------------------------------------------------------------------------------------------------+
// | rechner.js                                                                                          |
// +-----------------------------------------------------------------------------------------------------+
// | Copyright (c) 2008 steuerberaten.de                                                                 |
// +-----------------------------------------------------------------------------------------------------+
// | Datum: 07.07.2008                                                                                   |
// +-----------------------------------------------------------------------------------------------------+
// | Urheberrechtshinweis:                                                                               |
// | Diese Script ist urheberrechtlich geschützt. Einer Freigabe zur Publikation in anderen Medien oder  |
// | zu sonstiger Verwendung wird ausdrücklich widersprochen. Jede Zuwiderhandlung wird - unabhängig von |
// | Zweck, Person, Umfang, Einsatzgebiet - sofort und ohne weitere Warnung juristisch verfolgt.         |
// +-----------------------------------------------------------------------------------------------------+
// | Autor: Michael Mühl <muehl@emric.de>                                                                |
// +-----------------------------------------------------------------------------------------------------+



// ********** INFO TEXTE *********
function set_info(type)
 {
 	var TAXCALC = "19272001169";
	var obj;
    var txt;

    if (document.all)
      obj = document.all.infotext;
    else
      obj = document.getElementById("infotext");


	switch (type)
    {
		case "ausgabe":
			txt = txtausgabe
			break;

		case "gewinn":
			txt = "Gewinn der Körperschaft vor Gewerbesteuer und Körperschaftsteuer. Hinzurechnungen und Kürzungen bei der Gewerbesteuer werden vernachlässigt. ";
			break;
		case "eksatz":
			txt = "Schätzen Sie Ihren persönlichen Einkommensteuersatz in % auf der Basis Ihres zu versteuernden Einkommens.";
			break;
		case "eksatz_test":
			txt = "Der persönliche Einkommensteuersatz muss immer zwischen 0% und 45% liegen";
			break;
		case "kirche":
			txt = "Sind Sie kirchensteuerpflichtig?";
			break;
		case "hebesatz":
			txt = "Durch die Gemeinde festgesetzter Hebesatz ( mindestens 200%).";
			break;
		case "hebesatz_test":
			txt = "Der Hebesatz muss immer zwischen 200% und 600% liegen.";
			break;
	}

    obj.innerHTML = txt;

  }
  

// ********** CALC *********
function CalcKapital(widget, style) 
{

	style_action(style);
	
	if (widget == "") widget = false;
	else widget = true;
	
	hebesatz				= change(document.eingabe.hebesatz.value);
	gewinn					= change(document.eingabe.gewinn.value);
	eksatz					= change(document.eingabe.eksatz.value);
	kirche					= document.eingabe.kirche.selectedIndex;
	

	// Berechnung 
	gewerbesteuer_2008		= (-1 * gewinn) * 0.035 * (hebesatz / 100);
	gewerbesteuer_proz_2008	= (gewerbesteuer_2008 / gewinn) * 100;
	gewerbesteuer_2007		= (-1 * (gewinn * hebesatz)) / (2000 + hebesatz);
	gewerbesteuer_proz_2007 = (gewerbesteuer_2007 / gewinn) * 100;
	gewerbesteuer_2009		= (-1 * gewinn) * 0.035 * (hebesatz / 100);
	gewerbesteuer_proz_2009 = (gewerbesteuer_2009 / gewinn) * 100;

	koerpersteuer_2008		= (-1 * gewinn) * 0.15;
	koerpersteuer_proz_2008 = (koerpersteuer_2008 / gewinn) * 100;
	koerpersteuer_2007		= -1 * (gewinn + gewerbesteuer_2007) * 0.25;
	koerpersteuer_proz_2007 = (koerpersteuer_2007 / gewinn) * 100;
	koerpersteuer_2009		= (-1 * gewinn) * 0.15;
	koerpersteuer_proz_2009 = (koerpersteuer_2009 / gewinn) * 100;

	soli_2008				= koerpersteuer_2008 * 0.055;
	soli_proz_2008			= (soli_2008 / gewinn) * 100;
	soli_2007				= koerpersteuer_2007 * 0.055;
	soli_proz_2007			= (soli_2007 / gewinn) * 100;
	soli_2009				= koerpersteuer_2009 * 0.055;
	soli_proz_2009			= (soli_2009 / gewinn) * 100;

	steuer_ges_2008			= gewerbesteuer_2008 + koerpersteuer_2008 + soli_2008;
	steuer_ges_proz_2008	= (steuer_ges_2008 / gewinn) * 100;
	steuer_ges_2007			= gewerbesteuer_2007 + koerpersteuer_2007 + soli_2007;
	steuer_ges_proz_2007	= (steuer_ges_2007 / gewinn) * 100;
	steuer_ges_2009			= gewerbesteuer_2009 + koerpersteuer_2009 + soli_2009;
	steuer_ges_proz_2009	= (steuer_ges_2009 / gewinn) * 100;

	gewinn_ges_2008			= gewinn + steuer_ges_2008;
	gewinn_ges_proz_2008	= (gewinn_ges_2008 / gewinn) * 100;
	gewinn_ges_2007			= gewinn + steuer_ges_2007;
	gewinn_ges_proz_2007	= (gewinn_ges_2007 / gewinn) * 100;
	gewinn_ges_2009			= gewinn + steuer_ges_2009;
	gewinn_ges_proz_2009	= (gewinn_ges_2009 / gewinn) * 100;

	eksteuer_2008			= (-1 * gewinn_ges_2008)/2 * (eksatz/100);
	eksteuer_proz_2008		= (eksteuer_2008 / gewinn) * 100;
	eksteuer_2007			= (-1 * gewinn_ges_2007)/2 * (eksatz/100);
	eksteuer_proz_2007		= (eksteuer_2007 / gewinn) * 100;
	eksteuer_2009			= -1 * gewinn_ges_2009 * 0.25;
	eksteuer_proz_2009		= (eksteuer_2009 / gewinn) * 100;

	if (kirche != 0)
	{
		if (kirche == 1)
		{
			kirche_proz	= 0.08;
		}
		else
		{
			kirche_proz	= 0.09;
		}

		kirche_2008			= eksteuer_2008 * kirche_proz;
		kirche_proz_2008	= (kirche_2008 / gewinn) * 100;
		kirche_2007			= eksteuer_2007 * kirche_proz;
		kirche_proz_2007	= (kirche_2007 / gewinn) * 100;
		kirche_2009			= eksteuer_2009 * kirche_proz;
		kirche_proz_2009	= (kirche_2009 / gewinn) * 100;
	}
	else
	{
		kirche_2008			= 0;
		kirche_proz_2008	= 0;
		kirche_2007			= 0;
		kirche_proz_2007	= 0;
		kirche_2009			= 0;
		kirche_proz_2009	= 0;
	}

	soli_p_2008				= eksteuer_2008 * 0.055;
	soli_p_proz_2008		= (soli_2008 / gewinn) * 100;
	soli_p_2007				= eksteuer_2007 * 0.055;
	soli_p_proz_2007		= (soli_2007 / gewinn) * 100;
	soli_p_2009				= eksteuer_2009 * 0.055;
	soli_p_proz_2009		= (soli_2009 / gewinn) * 100;

	steuer_p_2008			= eksteuer_2008 + kirche_2008 + soli_p_2008;
	steuer_p_proz_2008		= (steuer_p_2008 / gewinn) * 100;
	steuer_p_2007			= eksteuer_2007 + kirche_2007 + soli_p_2007;
	steuer_p_proz_2007		= (steuer_p_2007 / gewinn) * 100;
	steuer_p_2009			= eksteuer_2009 + kirche_2009 + soli_p_2009;
	steuer_p_proz_2009		= (steuer_p_2009 / gewinn) * 100;

	steuer_2008				= steuer_ges_2008 + steuer_p_2008;
	steuer_proz_2008		= (steuer_2008 / gewinn) * 100;
	steuer_2007				= steuer_ges_2007 + steuer_p_2007;
	steuer_proz_2007		= (steuer_2007 / gewinn) * 100;
	steuer_2009				= steuer_ges_2009 + steuer_p_2009;
	steuer_proz_2009		= (steuer_2009 / gewinn) * 100;

	rendite_2008			= gewinn + steuer_2008;
	rendite_proz_2008		= (rendite_2008 / gewinn) * 100;
	rendite_2007			= gewinn + steuer_2007;
	rendite_proz_2007		= (rendite_2007 / gewinn) * 100;
	rendite_2009			= gewinn + steuer_2009;
	rendite_proz_2009		= (rendite_2009 / gewinn) * 100;

	// Validitaet
	error = false;
	if (hebesatz < 200 || hebesatz > 600)
	{
		error = true;
		set_info('hebesatz_test');
	}
	if (eksatz < 0 || eksatz > 45)
	{
		error = true;
		set_info('eksatz_test');
	}

	if (!error)
	{

		textzusammen(widget);
		set_info('ausgabe');
	}

}


function textzusammen(widget) 
{
	
	text = "<TABLE cellspacing=0 cellpadding=1 border=0 width=345'>";
	text += "<TR><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD></TR>";

	text += "<TR><TD></TD>";
	
	text += "<TD colspan=2 class='cell_green_border'>2007</TD>";
	text += "<TD colspan=2 class='cell_green_border'>2008</TD>";
	text += "<TD colspan=2 class='cell_green_border'>2009</TD></TR>";

	text += "<TR><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD></TR>";
	
	text += "<TR><TD class='cell'>Gewerbesteuer:</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(gewerbesteuer_2007) + " &euro;</nobr></TD><TD class='cell'>&nbsp;<nobr>&nbsp;" + komma(gewerbesteuer_proz_2007) + "%</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(gewerbesteuer_2008) + " &euro;</nobr></TD><TD class='cell'>&nbsp;<nobr>&nbsp;" + komma(gewerbesteuer_proz_2008) + "%</TD>";	
	text += "<TD class='cell_border''><nobr>&nbsp;" + komma(gewerbesteuer_2009) + " &euro;</nobr></TD><TD class='cell'>&nbsp;<nobr>&nbsp;" + komma(gewerbesteuer_proz_2009) + "%</TD></TR>";		


	text += "<TR><TD class='cell'>K&ouml;rperschaftst.:</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(koerpersteuer_2007) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(koerpersteuer_proz_2007) + "%</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(koerpersteuer_2008) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(koerpersteuer_proz_2008) + "%</TD>";	
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(koerpersteuer_2009) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(koerpersteuer_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell'>Solidarit&auml;tszschl.:</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(soli_2007) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(soli_proz_2007) + "%</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(soli_2008) + " &euro;</nobr></TD><TD class='cell''><nobr>&nbsp;" + komma(soli_proz_2008) + "%</TD>";	
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(soli_2009) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(soli_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD></TR>";

	text += "<TR><TD class='cell_green'><nobr>Steuern Gesellschaft:</nobr></TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(steuer_ges_2007) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_ges_proz_2007) + "%</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(steuer_ges_2008) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_ges_proz_2008) + "%</TD>";	
	text += "<TD class='cell_green_border''><nobr>&nbsp;" + komma(steuer_ges_2009) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_ges_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell_green'>Gewinn n. Steuern:</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(gewinn_ges_2007) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(gewinn_ges_proz_2007) + "%</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(gewinn_ges_2008) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(gewinn_ges_proz_2008) + "%</TD>";	
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(gewinn_ges_2009) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(gewinn_ges_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD></TR>";

	text += "<TR><TD class='cell'>Einkommensteuer:</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(eksteuer_2007) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(eksteuer_proz_2007) + "%</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(eksteuer_2008) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(eksteuer_proz_2008) + "%</TD>";	
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(eksteuer_2009) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(eksteuer_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell'>Kirchensteuer:</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(kirche_2007) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(kirche_proz_2007) + "%</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(kirche_2008) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(kirche_proz_2008) + "%</TD>";	
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(kirche_2009) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(kirche_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell'>Solidarit&auml;tszschl.:</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(soli_p_2007) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(soli_p_proz_2007) + "%</TD>";
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(soli_p_2008) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(soli_p_proz_2008) + "%</TD>";	
	text += "<TD class='cell_border'><nobr>&nbsp;" + komma(soli_p_2009) + " &euro;</nobr></TD><TD class='cell'><nobr>&nbsp;" + komma(soli_p_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line_border'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD></TR>";

	text += "<TR><TD class='cell_green'>Steuern Privat:</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(steuer_p_2007) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_p_proz_2007) + "%</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(steuer_p_2008) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_p_proz_2008) + "%</TD>";	
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(steuer_p_2009) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_p_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell_green''>Steuern Gesamt:</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(steuer_2007) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_proz_2007) + "%</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(steuer_2008) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_proz_2008) + "%</TD>";	
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(steuer_2009) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(steuer_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell_green'>Netto Rendite:</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(rendite_2007) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(rendite_proz_2007) + "%</TD>";
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(rendite_2008) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(rendite_proz_2008) + "%</TD>";	
	text += "<TD class='cell_green_border'><nobr>&nbsp;" + komma(rendite_2009) + " &euro;</nobr></TD><TD class='cell_green'><nobr>&nbsp;" + komma(rendite_proz_2009) + "%</TD></TR>";	


	text += "<TR><TD class='cell_line'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD><TD class='cell_line'>&nbsp;</TD></TR>";
	text += "</TABLE>";

	if (!widget) 
	{ 
		promo = promo_u;
	} 
	else 
	{ 
		promo = "";
	}

	txtausgabe = text+promo;
}


