<!-- Rechner, (c) Copyright by SAMSoft, Rainer Link - All rights reserved


var VERSION = "0.12";



function Berechnen(theForm, MaxElem, WaehrungStr)

{

  CreateHTMLPage(theForm, MaxElem, WaehrungStr);
  return false; // do not submit form

}



function SplitStr(str, index)

{

  Teil = str.split(",")

  return Teil[(index-1)];

}



function SubStrX(str, anf, ende)

{

  var tstr = "";

  for (a = anf; a < ende; a++)

    tstr = tstr + str.charAt(a);



  return tstr;

} 



function TP (wert)

{

tmpstr = new String(wert); 

  var rstr = ""; 

  var nachkommastr = "";
  pos = tmpstr.indexOf(".");

  if (pos > -1)

  {

    nachkommastr = tmpstr.substring(pos+1, tmpstr.length);

    tmpstr = tmpstr.substring(0, pos);

  }

  while (tmpstr.length >= 4)

  {

    cpstr = tmpstr.substring(tmpstr.length-3, tmpstr.length);

    rstr = rstr + "." + cpstr;

    tmpstr = tmpstr.substring(0, tmpstr.length-3);

  }

  if (tmpstr.length < 4) rstr = tmpstr + rstr;

  if (nachkommastr != "") rstr = rstr + "," + nachkommastr

  else rstr += ",--";

  return rstr;



}



function CreateHTMLPage(theForm, MaxElem, WaehrungStr)

{

  var SUMME = 0; 

  var ZWSUMME = 0; 

  var ElemCount = 0; 

  var FaktorBezug = -1; 

  var FaktorBezugPos = -1; 

  var tmpStr = ""; 





ergw = window.open("", "Fenster", "locationbar=0,menubar=0,status=0,resizable=1,width=450,height=500,screenX=0,screenY=0");

 ergw.document.open("text/html");



 ergw.document.writeln("<HTML><HEAD><TITLE>Ergebnis der Berechnung</TITLE></HEAD><BODY BGCOLOR=\"#22AAAA\">");

 ergw.document.writeln("<H1><CENTER>Ergebnis</CENTER></H1></P><P><BR></P>");



while (ElemCount < MaxElem)

 {

if (theForm.elements[ElemCount].type.toLowerCase().indexOf("radio") > -1)

   {

   ergw.document.write("<P>" + SplitStr(theForm.elements[ElemCount].value, 1) + ": ");

   GroupAnz = SplitStr(theForm.elements[ElemCount].value, 2);

   for (GroupIndex = 0; GroupIndex < GroupAnz; GroupIndex++)

     {

       if (theForm.elements[ElemCount].checked)

       {  

	  if (GroupIndex == 0)

          {

	     verglChar = SplitStr(theForm.elements[ElemCount].value, 4).charAt(0);

             

            if (verglChar == "%")

	     {

		ZWSUMME = SubStrX(SplitStr(theForm.elements[FaktorBezug].value, FaktorBezugPos), 1, SplitStr(theForm.elements[FaktorBezug].value, FaktorBezugPos).length) * SubStrX(SplitStr(theForm.elements[ElemCount].value, 4), 1, SplitStr(theForm.elements[ElemCount].value, 4).length);

                ergw.document.write("<B>" + SplitStr(theForm.elements[ElemCount].value, 3) + "</B>");

		SUMME += (ZWSUMME * 1);

	     }

             else if (verglChar != "&")

	     { 

               

               ergw.document.write("<B>" + SplitStr(theForm.elements[ElemCount].value, 3) + "</B>");

               ZWSUMME = SplitStr(theForm.elements[ElemCount].value, 4) * 1;

	        SUMME += ZWSUMME;

             }

	     else if (verglChar  == "&")

	     {

                FaktorBezug = ElemCount;

		FaktorBezugPos = 4;

		ergw.document.write("<B>" + SplitStr(theForm.elements[ElemCount].value, 3) + "</B>");

	     } 

            

          }

          else

          {

	     verglChar = SplitStr(theForm.elements[ElemCount].value, 2).charAt(0);

             

	     // Kostenfaktor

             if (verglChar == "%")

	     {

		ZWSUMME = SubStrX(SplitStr(theForm.elements[FaktorBezug].value, FaktorBezugPos), 1, SplitStr(theForm.elements[FaktorBezug].value, FaktorBezugPos).length) * SubStrX(SplitStr(theForm.elements[ElemCount].value, 2), 1, SplitStr(theForm.elements[ElemCount].value, 2).length);

                ergw.document.write("<B>" + SplitStr(theForm.elements[ElemCount].value, 1) + "</B>");

//		ergw.document.writeln(", Kosten: " + TP(ZWSUMME) + " " + WaehrungStr + "</P>");

		SUMME += (ZWSUMME * 1);

	     }

             else if (verglChar != "&")

	     { 

               

               ergw.document.write("<B>" + SplitStr(theForm.elements[ElemCount].value, 1) + "</B>");

               ZWSUMME = SplitStr(theForm.elements[ElemCount].value, 2) * 1;

	        SUMME += ZWSUMME;

             }

	     // der gespeicherte Betrag muss nachfolgende mit dem

	     // Kostenfaktor multipliziert werden

	     else if (verglChar  == "&")

	     {

	        FaktorBezug = ElemCount;

		FaktorBezugPos = 2;

		ergw.document.write("<B>" + SplitStr(theForm.elements[ElemCount].value, 1) + "</B>");

	     } 

            

          }

       }

       ElemCount++;

     }

   }

    if (theForm.elements[ElemCount].type.toLowerCase().indexOf("checkbox") > -1)

   {

     ergw.document.write("<P>" + SplitStr(theForm.elements[ElemCount].value, 1) + ":" + "<UL>");

     GroupAnz = SplitStr(theForm.elements[ElemCount].value, 2);

     for (GroupIndex = 0; GroupIndex < GroupAnz; GroupIndex++)

     {

        if (theForm.elements[ElemCount].checked)

        {

           if (GroupIndex == 0)

           {

	     ergw.document.write("<LI><B>" + SplitStr(theForm.elements[ElemCount].value, 3) + "</B>");

             ZWSUMME = SplitStr(theForm.elements[ElemCount].value, 4) * 1;

             SUMME += ZWSUMME;

          }

          else

          {

             ergw.document.write("<LI><B>" + SplitStr(theForm.elements[ElemCount].value, 1) + "</B>");

             ZWSUMME = SplitStr(theForm.elements[ElemCount].value, 2) * 1;

             SUMME += ZWSUMME;

          }

        }

        ElemCount++; 

     }

     ergw.document.writeln("</UL>");

   }



 }

 

 ergw.document.writeln("<P><BR></P>");

 ergw.document.writeln("<P><FONT SIZE=+1><B>Gesch&auml;tzer Gesamtaufwand</B>: " + TP(SUMME) + " " + WaehrungStr); 

 ergw.document.writeln("<P><FONT SIZE=-1>Copyright &copy; by SAMSoft&reg;, Augsburg 1998-2006</FONT></P>");

 ergw.document.writeln("</BODY></HTML>");



 ergw.document.close();



 ergw.focus();
 



}

//-->

















