// Version 14.03.2009 CB Ctrixs Controller 
// 22.05.09 command dogetvalues() dazugefügt 
// 23.7.2009 background - Objekt raster nicht anzeigen dazugefügt
// 03.08.2009 formatzahl verbessert, da Textvariablen auch . oder @  haben ,minimum Kommazahl 1 Stelle 
// 06.08.2009 - Anzeige Date dazugefügt
//20.01.2010  // Delayded Taster dtst() dazugefügt

ladezustand=0;
var act_command=0;   /// Aktualisierung nach Komand 

function initsettime(t)
{ if(dom||op)
 time=eval(t*1000); // Zeit in Sekunden   
return;
}

function initbacground(bild)
{ 
if(dom||op)
{ 
var obj=document.getElementsByTagName("BODY");
if (bild.indexOf("../user_gif/raster.gif")==0)    obj[0].setAttribute("background","../user_gif/leer.gif"); else obj[0].setAttribute("background",bild);
return;
}

}

var requestString;
function buildRequest()
{ 
requestString="/cgi-bin/anz_rd_sps.cgi?";
for(i=0;i<ebenenIds.length;i++) {              
if ((varNames[i]!="")&&(varNames[i]!=="Extern")) requestString+="+"+ varNames[i]; 
if (var2Names[i]!="") requestString+="+"+ var2Names[i]; 
if (var3Names[i]!="") requestString+="+"+ var3Names[i]; }
doGetValues();
} 


var fault_com=0  ; // Fehler in Datenabfolge zu merken 

function doGetValues()
{ 
parent.bWaitResult = true;
waitCount=0;           
if (fault_com<10)  parent.result.location.href=requestString;
window.setTimeout("doGetValuesWait1()",500);
} 

function doGetValuesWait1()
{
if(waitCount>20){window.setTimeout("doGetValues()",100);return;}
if(parent.bWaitResult){waitCount++;window.setTimeout("doGetValuesWait1()",200);return;}
else
     {  act_command=0;
try{if(parent.result.szCmd.length>0)throw "richtig"; else throw "falsch" ;}
catch(e)
{
if(e=="richtig"){
var val=parent.result.szCmd.split(" ");parent.result.szCmd=""; 	// Resultate im Feld
var val1=new Array () ; // 1. Wert in der Ebene
  var val2=new Array () ; // 2. Wert in der Ebene
  var val3=new Array () ; // 3. Wert in der Ebene
  var j=0; fault_com=0; 
 for (i=0;i<ebenenIds.length;i++)  {
    if (varNames[i]!=="Extern") {
   if (varNames[i].length >0 )  {val1[i]=val[j]; j++;} 
   if (var2Names[i].length >0)  {val2[i]=val[j]; j++;}  else val2[i]="--";
   if (var3Names[i].length >0)  {val3[i]=val[j]; j++;}  else val3[i]="--";  
 
   if (dispFunc[i]){mValue[i]=val1[i];dispFunc[i](ebenenIds[i],unescape(val1[i]),i,unescape(val2[i]),unescape(val3[i]),src0[i],src1[i]); }
    else {i++};                         }  
                                               } 
if (act_command==1) window.setTimeout("doGetValues()",500); 
if(fault_com<5) window.setTimeout("doGetValues()",time);}  
if(e=="falsch"){fault_com++;if(fault_com==5){alert("Programm lauft nicht ! --- keine Daten vorhanden ");}else {window.setTimeout("doGetValues()",time);} }
 }
    }
  }  


var zaehl_ext=0;

function reqip()                 
{ 
var i = zaehl_ext;
if (varNames[i]=="Extern") {  
var text=aValue4[i]+aAktion[i];
var myip="";
var myvar="";    
myip=text.substring(text.indexOf("(")+1,text.indexOf(",")) ;
myvar=text.substring(text.indexOf(",")+1,text.indexOf(")")) ; 
if (myip.length >=7) {parent.res_ext.location.href=""+escape('/cgi-bin/rd_sps.cgi? '+myip+' rdsps?'+myvar+'+-n ');}
} 
var time_ex=eval(time);
window.setTimeout("do_reqipWait1()",time_ex);
} 
 
 

function rld(bildobj)
{ if (reftime>0) {window.setTimeout("doReload('"+bildobj.id+"')",4*time); }
  else
    {window.setTimeout("doReload('"+bildobj.id+"')",20000);}
}

function doReload(id)
{ var pic=document.getElementById(id);
  var name=pic.src.lastIndexOf("?");
  bild.src=bild.src.substring(0,name+1)+'_'+jetzt.getTime();
  }

function sendVal(varname,obj)
{ 
if ((varname.substring(0,1)=="M") || (varname.substring(0,3)=="DOT") | (varname.substring(0,3)=="AOT") )
{
if(varname){   
varname+=".val";   
parent.result.location.href="/cgi-bin/wr_sps.cgi?"+varname+"="+escape(obj.value);
         }
  }  }

function displayBalkenW(name,value,no)	// waagerechter Balken: eMin,eMax,eWidth
{ var w=aValue3[no];
var min=aValue1[no];
var max=aValue2[no];
var bgColor=aValue5[no];
if (isNaN(value) == false ) { var breit=parseInt(""+(0.5+(value-min)*w/(max-min)));}  
else { if (bgColor.substring(0,1) == "#") {var breit=parseInt(""+(0.5+(max-min)*w/(max-min)));} }
if(isNaN(breit)==true) breit=0;
if(breit<1) breit=1;
if(breit>w) breit=w;
if(op)
{ document.getElementById(name).style.pixelWidth=breit;
}
if(ns)
{ document.inner.document[name].clip.right=breit;
}
if(dom)
{ var txt=document.getElementById(name).style.clip;
var i=txt.indexOf("px")+3;
var j=txt.indexOf("px",i);
document.getElementById(name).style.clip=txt.substring(0,i)+breit+txt.substring(j,txt.length);
}
if(ie)
{ var txt=document.all[name].style.clip;
var i=txt.indexOf("px")+3;
var j=txt.indexOf("px",i);
document.all[name].style.clip=txt.substring(0,i)+breit+txt.substring(j,txt.length);
}
}

function displayBalkenS(name,value,no)	// senkrechter Balken eMin,eMax,eHeight,eTop
{ var h=aValue3[no];
var min=aValue1[no];
var max=aValue2[no];  
var bgColor=aValue5[no];
if (isNaN(value) == false ) { var hoch=h-parseInt(""+(0.5+(value-min)*h/(max-min)));}  
else { if (bgColor.substring(0,1) == "#") {var hoch=h-parseInt(""+(0.5+(max-min)*h/(max-min)));} }
if(isNaN(hoch)==true) hoch=h;
if(hoch<0) hoch=0;
if(hoch>=h) hoch=h-1;
if(op)
{ var topp=aValue4[no];
document.getElementById(name).style.pixelTop=topp+hoch;
document.getElementById(name).style.pixelHeight=h-hoch;}
if(ns)
{ document.inner.document[name].clip.top=hoch;}
if(dom)
{ var txt=document.getElementById(name).style.clip;
var i=txt.indexOf("(")+1;
var j=txt.indexOf("px",i);
document.getElementById(name).style.clip=txt.substring(0,i)+hoch+txt.substring(j,txt.length);}
if(ie)
{ var txt=document.all[name].style.clip;
var i=txt.indexOf("(")+1;
var j=txt.indexOf("px",i);
document.all[name].style.clip=txt.substring(0,i)+hoch+txt.substring(j,txt.length);}
}


function formatzahl(value,no)
{ 
var aus=""+value;
var gs=aValue1[no];
var nks=aValue2[no];
var einheit=aValue3[no];             
var y =aValue4[no]   // Hier wird geprüft ob anz Formel existiert 28_10_04 CB 
if (y.indexOf("anz") > -1) {
var x=y.indexOf("(")
var y=y.substring(x+1,y.length-1)   
aus=eval(aus+''+y);  
}
aus=String(aus);
if (aus.indexOf(".") > -1)  aus=aus; else aus+=".0"
if (nks >0) aus=aus.substring(0,aus.indexOf(".")+nks+1);  
aus+=einheit;
return(aus);
}  


function displayZahl(name,value,no,src0)
{  var aus=formatzahl(value,no);
  if (op)
{ document.forms[name+'d'].elements[0].value=aus;}
if(ns)
{ document.inner.document[name].document.forms[0].elements[0].value=aus;}
if(dom)
{ document.getElementById(name+'d').firstChild.nodeValue=aus;}
if(ie)
{ document.all[name+'d'].innerHTML=aus;}  }

function displayText(name,value,no,src0)
{ if(dom||op)
{ if(document.getElementById(name+'1'))
document.getElementById(name+'1').style.visibility=(value>0)?"visible":"hidden";
if(document.getElementById(name+'0'))
document.getElementById(name+'0').style.visibility=(value>0)?"hidden":"visible";
}
}      

function displayBild(name,value,no,value2,value3,esrc0,esrc1)
{
 if (isNaN(value)==true)  value=0;
 if (isNaN(value2)==true) value2=0;
 if (isNaN(value3)==true) value3=0; 

 
 if(dom||op)
{ 
var y =aAktion[no]
if (y.indexOf("popup")== -1) {
document.getElementById(name+'3').style.visibility=(value3>0)?"visible":"hidden";
document.getElementById(name+'2').style.visibility=(value2>0&&value3==0)?"visible":"hidden";
document.getElementById(name+'1').style.visibility=(value>0&&esrc1.length>0&&value2==0&&value3==0)?"visible":"hidden";
document.getElementById(name+'0').style.visibility=(value<=0&&esrc0.length>0&&value2==0&&value3==0)?"visible":"hidden";
}
else
{
if  (value==0&&value2==0&&value3==0) {anz_value[no]="0";}
document.getElementById(name+'3').style.visibility=(value3>0)?"visible":"hidden";
document.getElementById(name+'2').style.visibility=(value2>0&&value3==0)?"visible":"hidden";
document.getElementById(name+'1').style.visibility=(value>0&&esrc1.length>0&&value2==0&&value3==0)?"visible":"hidden";
document.getElementById(name+'0').style.visibility=(value<=0&&esrc0.length>0&&value2==0&&value3==0)?"visible":"hidden";
if  (value>0||value2>0||value3>0) {
var y =aAktion[no]     
if ((y.indexOf("popup") == 0)&&(anz_value[no]=="0")) {
anz_value[no]=1 ; // Wert wird 1-mal gesetzt&nbsp;
var text=y;
 var myopt="";
 var i=text.indexOf("(");
if(i>0) text=text.substring(i+1,text.length);
if ((i=text.lastIndexOf(","))>0){
text=text.substring(i+1,text.length-1);          
myopt=text;}
text=y;
if ((i=text.indexOf(","))>0){
text=text.substring(6,i);
myurl=text; }
else
if ((i=text.indexOf(")"))>0){
text=text.substring(6,i);
myurl=text; }  
window.open(myurl,'',''+myopt+'location=no');
}}
}

if(ns)
{
document.inner.document[name+'3'].style.visibility=(value3>0)?"visible":"hidden";
document.inner.document[name+'2'].style.visibility=(value2>0&&value3==0)?"visible":"hidden";
document.inner.document[name+'1'].style.visibility=(value>0&&esrc1.length>0&&value2==0&&value3==0)?"visible":"hidden";
document.inner.document[name+'0'].style.visibility=(value<=0&&esrc0.length>0&&value2==0&&value3==0)?"visible":"hidden"; }
if(ie)              
{ document.all[name+'3'].style.visibility=(value3>0)?"visible":"hidden";
  document.all[name+'2'].style.visibility=(value2>0&&value3==0)?"visible":"hidden";
  document.all[name+'1'].style.visibility=(value>0&&esrc1.length>0&&value2==0&&value3==0)?"visible":"hidden";
  document.all[name+'0'].style.visibility=(value<=0&&esrc0.length>0&&value2==0&&value3==0)?"visible":"hidden"; }
}
}      

function displayZinput(name,value,no)
{ 
var aus=formatzahl(value,no); 
if(dom||op)
{ if(!document.getElementById(name+'d').hasFocus)
document.getElementById(name+'d').value=aus;
}
}

dispFunc = new Array();
ebenenIds = new Array();	// Werte-Arrays, werden dynamisch beim Starten aufgebaut
varNames = new Array();
var2Names = new Array();     //neue Werte fuer St&ouml;rung , Wartung
var3Names = new Array();
aValue1 = new Array();
aValue2 = new Array();
aValue3 = new Array();
aValue4 = new Array();
aValue5 = new Array();
aAktion = new Array();
mValue = new Array();   
src0 = new Array();
src1 = new Array();
anz_value = new Array();    // um Popup 1x zu betätigen
var m_st = new Array();        // Bildwerte merken  
var m_x1=0;

function setUpdate(df,lid,varname,aktion,v1,v2,v3,v4,var2name,var3name,esrc0,v5,esrc1)	// baut obige Werte-Arrays auf
{ var i=ebenenIds.length;
dispFunc[i]=df;
ebenenIds[i]=lid;
varNames[i]=varname ;
var2Names[i]=var2name; 
var3Names[i]=var3name;
aAktion[i]=aktion;
aValue1[i]=v1;
aValue2[i]=v2;
aValue3[i]=v3;
aValue4[i]=v4;   
aValue5[i]=v5;   
src0[i]=esrc0;
src1[i]=esrc1;

if (esrc0.length>0) {
m_st[i]=new Object(); 
m_st[i]["ebenenr"]=i;
m_st[i]["id0"]=v1;
m_st[i]["id1"]=v2;
m_st[i]["src0_over"]=v3;
m_st[i]["src1_over"]=v4;
m_st[i]["mydata"]=varname;
m_st[i]["myaktion"]=aktion;
m_x1++
}
}

                



function do_reqipWait1()
 { 
  try  {  if (parent.res_ext.szCmd.length>3) throw "richtig";  throw "falsch"; } 
 catch (e)    {                                      
     if ((e=="richtig")&&(varNames[zaehl_ext]=="Extern")) { var val=parent.res_ext.szCmd.split(" ");val=String(val);
         val=val.substring(val.indexOf("=")+1,val.length);
          dispFunc[zaehl_ext](ebenenIds[zaehl_ext],val,zaehl_ext,false,false,src0[zaehl_ext],src1[zaehl_ext]);   parent.res_ext.szCmd="" ; // wird Null gesetzt 
 }
        if ((e=="falsch")&&(varNames[zaehl_ext]=="Extern")) { var val="--- no comm ---" ;
          dispFunc[zaehl_ext](ebenenIds[zaehl_ext],val,zaehl_ext,false,false,src0[zaehl_ext],src1[zaehl_ext]);    parent.res_ext.szCmd="" ; // wird Null gesetzt 
  }   
              }     
   var x=parseInt(zaehl_ext); 
 if ( x<(ebenenIds.length)) {x++;zaehl_ext=x; } else {x=0;zaehl_ext=0;} 
  window.setTimeout("reqip()",1000);
  }



function zinput(eId,eZ,eVarName,eLeft,eTop,eColor,eFontsize,eGS,eNKS,einheit)
{ var doc=ns?document.inner.document:document;
if ((eZ<0)&&netscape) eZ=-eZ-1;  // für NS
if(ns)
doc.writeln('<div id="'+eId+'" style="position:absolute; text-align:center; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px;"><form id="'+eId+'f" method="get" action=""><input id="'+eId+'d" type="text" size="'+eGS+'" value=###.# style="background-color:#FFFF66; font-family: Arial, Helvetica, sans-serif; font-size:'+eFontsize+'px; text-align:center; " onFocus="this.hasFocus=true;" onBlur="this.hasFocus=false;" onChange="sendVal(\''+eVarName+'\',this);"></form></div>');
else {             
eGS+=einheit.length-3;
if (eGS <=2 ) eGS=2;
doc.writeln('<div id="'+eId+'" style="position:absolute; text-align:center; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px;"><form id="'+eId+'f" method="get" action=""><input id="'+eId+'d" type="text" size="'+eGS+'" value=###.# style="background-color:#FFFF66; font-family: Arial, Helvetica, sans-serif; font-size:'+eFontsize+'px; text-align:center; color:'+eColor+';" onFocus="this.hasFocus=true;" onBlur="this.hasFocus=false;" onChange="sendVal(\''+eVarName+'\',this);"></form></div>');
}
setUpdate(displayZinput,eId,eVarName,false,eGS,eNKS,einheit,"","","","","","");
}
function zahl(eId,eZ,eVarName,eLeft,eTop,eColor,eBgColor,eFontsize,eGS,eNKS,einheit,eAktion)
{ var doc=ns?document.inner.document:document;
var clk=(eAktion.length>0)&&(eAktion.search("anz") <= -1)&&(eAktion.search("reqip") <= -1) ?' cursor:'+cHand+';':''
var aId=(eVarName.length>0)?ebenenIds.length:0;
if ((eZ<0)&&netscape) eZ=-eZ-1;
 if  ((eAktion.search("anz") <= -1)&&(eAktion.search("reqip") <= -1)) { var aktion=(eAktion.length>0)?' onClick="clicked('+aId+',\''+eAktion+'\')"':''; }
if(op||ns)
  { var fs=eFontsize*0.7;
var fss=""+fs;
var j=fss.indexOf(".");
if(j>=0)
{ fss=fss.substring(0,j)}
var fs=eGS*1.25;
var sz=""+fs;
j=sz.indexOf(".");   
if(j>=0)
{ sz=sz.substring(0,j) }
doc.writeln('<div id="'+eId+'" style="position:absolute; font-family: Arial, Helvetica, sans-serif;text-align:center; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px; ;'+clk+'"'+aktion+' "><form id="'+eId+'d" method="get" action=""><input id="'+eId+'i" type="text"  value=###.## style="  color:'+eColor+'; font-family: Arial, Helvetica, sans-serif; font-size:'+fss+'px;" onFocus="this.blur()" readonly></form></div>');
  }
else
{ 
var breite=parseInt((eGS+1+einheit.length)*eFontsize/2);
var hoehe=eFontsize+4;
doc.write('<div id="'+eId+'d" style="position:absolute; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px; width:'+breite+'; height:'+hoehe+';  color:'+eColor+';');

if(eBgColor)
doc.write(' background-color:'+eBgColor+'; ');
doc.writeln(' overflow:hidden; font-family: Arial, Helvetica, sans-serif; font-size:'+eFontsize+'px; clip:rect(0px '+breite+'px '+hoehe+'px 0px); '+clk+'"'+aktion+'">###.##</div>');
}
setUpdate(displayZahl,eId,eVarName,false,eGS,eNKS,einheit,eAktion,"","","","","");
}    


var bed_element=new Array() ;

function bild(eId,eZ,eVarName,eAktion,eLeft,eTop,eSrc0,eSrc1,eAlt0,eAlt1,eVar2Name,eSrc2,eVar3Name,eSrc3,ewidth,eheight)
{ var doc=ns?document.inner.document:document;
var clk=((eAktion.length>0)&&(eAktion.search("reqip") <= -1))?' cursor:'+cHand+';':''
var aId=(eVarName.length>0)?ebenenIds.length:1; 
if ((eZ<0)&&netscape) eZ=-eZ-1; 
var laenge=(ewidth.length>0)?' width="'+ewidth+'" height="'+eheight+'"' : '' ;
if  ((eAktion.search("pop") <= -1)&&(eAktion.search("reqip") <= -1)) { var aktion=(eAktion.length>0)?' onClick="clicked('+aId+',\''+eAktion+'\')"':''  }

var dyn0="";
var dyn1="";
if (eSrc0.lastIndexOf("?")==(eSrc0.length-1)) dyn0=' onLoad="rld(this);"';
if (eSrc1.lastIndexOf("?")==(eSrc1.length-1)) dyn1=' onLoad="rld(this);"';
(eAlt1.length>0)?eAlt1=eAlt1:eAlt1=""+eId ;
(eAlt0.length>0)?eAlt0=eAlt0:eAlt0=""+eId ;
(eSrc2.length>0)?eSrc2=eSrc2:eSrc2=eSrc0 ;
(eSrc3.length>0)?eSrc3=eSrc3:eSrc3=eSrc1 ;

doc.write('<div id="'+eId+'d3" style="position:absolute; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px; visibility:visible;'+clk+'"'+aktion+'><img id="'+eId+'i3" src="'+eSrc3+'"  '+laenge+' alt="'+eAlt1+'" title="'+eAlt1+'" ></div>');
doc.write('<div id="'+eId+'d2" style="position:absolute; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px; visibility:visible;'+clk+'"'+aktion+'><img id="'+eId+'i2" src="'+eSrc2+'"  '+laenge+' alt="'+eAlt1+'" title="'+eAlt1+'" ></div>');
doc.write('<div id="'+eId+'d1" style="position:absolute; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px; visibility:visible;'+clk+'"'+aktion+'><img id="'+eId+'i1" src="'+eSrc1+'"   '+laenge+' alt="'+eAlt1+'" title="'+eAlt1+' "   ></div>');

doc.write('<div id="'+eId+'d0" style="position:absolute; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px; visibility:hidden;'+clk+'"'+aktion+'><img id="'+eId+'i0" src="'+eSrc0+'" '+laenge+' alt="'+eAlt0+'" title="'+eAlt0+'"      ></div>');


     
               
setUpdate(displayBild,eId+'d',eVarName,eAktion,eId+'i0',eId+'i1',eSrc2,eSrc3,eVar2Name,eVar3Name,eSrc0,"",eSrc1);
}
  
function streaming(eId,eZ,eVarName,eAktion,eLeft,eTop,eSrc0,camtyp0,eSrc1,camtyp1,eAlt0,eAlt1,eVar2Name,eSrc2,camtyp2,eVar3Name,eSrc3,camtyp3,ewidth,eheight)
{ var doc=ns?document.inner.document:document;
	if ((navigator.appName == "Microsoft Internet Explorer") && (navigator.platform != "MacPPC") && (navigator.platform != "Mac68k"))
	{	WriteCamHTML(camtyp0,eId+'d0',eSrc0,eTop,eLeft,ewidth,eheight,eAlt0,1,doc);
		WriteCamHTML(camtyp1,eId+'d1',eSrc1,eTop,eLeft,ewidth,eheight,eAlt0,1,doc);
		WriteCamHTML(camtyp2,eId+'d2',eSrc2,eTop,eLeft,ewidth,eheight,eAlt0,1,doc);
		WriteCamHTML(camtyp3,eId+'d3',eSrc3,eTop,eLeft,ewidth,eheight,eAlt0,1,doc);
	}else{
		WriteCamHTML(camtyp0,eId+'d0',eSrc0,eTop,eLeft,ewidth,eheight,eAlt0,0,doc);
		WriteCamHTML(camtyp1,eId+'d1',eSrc1,eTop,eLeft,ewidth,eheight,eAlt0,0,doc);
		WriteCamHTML(camtyp2,eId+'d2',eSrc2,eTop,eLeft,ewidth,eheight,eAlt0,0,doc);
		WriteCamHTML(camtyp3,eId+'d3',eSrc3,eTop,eLeft,ewidth,eheight,eAlt0,0,doc);
		}	
		
setUpdate(displayBild,eId+'d',eVarName,eAktion,eId+'i0',eId+'i1',eSrc2,eSrc3,eVar2Name,eVar3Name,eSrc0,"",eSrc1);
}


function text(eId,eZ,eVarName,eAktion,eLeft,eTop,eColor,eBgColor,eFontsize,eText0,eText1)
{ var doc=ns?document.inner.document:document;
var aId=(eVarName.length>0)?ebenenIds.length:0;
var aktion=((eAktion.length>0)&&(eAktion.search("reqip") <= -1))?' onClick="clicked('+aId+',\''+eAktion+'\')"':''; 
var clk=((eAktion.length>0)&&(eAktion.search("reqip") <= -1))?' cursor:'+cHand+';':''
if ((eZ<0)&&netscape) eZ=-eZ-1;
if(eText0)
{ var breite=parseInt((eText0.length+8)*eFontsize/2);
var hoehe=eFontsize+8; 
doc.write('<div id="'+eId+'d0" class="props" style="position:absolute; z-index:'+eZ+'; left:'+eLeft+'px; top:'+eTop+'px;  color:'+eColor+'; visibility:hidden; ');
if(eBgColor)
doc.write('background-color:'+eBgColor+';');
doc.writeln(' overflow:hidden;  font-size:'+eFontsize+'px; clip:rect(0px '+breite+'px '+hoehe+'px 0px);'+clk+'"'+aktion+'>'+unescape(eText0)+'</div>');
}
if(eText1)
{ 
var breite=parseInt((eText1.length+8)*eFontsize/2);
var hoehe=eFontsize+8;
doc.write('<div id="'+eId+'d1" class="props" style="position:absolute;  z-index:'+eZ+'; text-align:center; left:'+eLeft+'px; top:'+eTop+'px;  color:'+eColor+'; visibility:visible; ');
if(eBgColor) doc.write('background-color:'+eBgColor+'; ');
doc.writeln(' overflow:hidden;  font-size:'+eFontsize+'px; clip:rect(0px '+breite+'px '+hoehe+'px 0px);'+clk+'"'+aktion+'>'+unescape(eText1)+'</div>');
}
if((ns||op)&&(eAktion.length>0))
{ doc.writeln('<div id="'+eId+'b" class="props" style="position:absolute;  width:'+breite+'px; height:'+hoehe+'px; z-index:'+(eZ+7)+'; left:'+eLeft+'px; top:'+(eTop+1)+'px;" width="'+breite+'"><a href="javascript:'+aktion.substring(10,aktion.length)+'><img src="leer.gif" height="'+hoehe+'" width="'+breite+'" border="0"></a></div>');
}
setUpdate(displayText,eId+'d',eVarName,eAktion,"","","","","","","","","");
}

function balkenW(eId,eZ,eVarName,eAktion,eLeft,eTop,eWidth,eHeight,eColor,eMin,eMax,eSkala,eBgColor)
{ var doc=ns?document.inner.document:document;
var aId=(eVarName.length>0)?ebenenIds.length:-1;
var aktion=((eAktion.length>0)&&(eAktion.search("reqip") <= -1))?' onClick="clicked('+aId+',\''+eAktion+'\')"':'';
var clk=((eAktion.length>0)&&(eAktion.search("reqip") <= -1))?' cursor:'+cHand+';':'' 
if ((eZ<0)&&netscape) eZ=-eZ-1;
var brd_x; eBgColor?brd_x=0:brd_x=1; // Für Borderausblendung
doc.writeln('<div id="'+eId+'o" style="position:absolute; width:'+(eWidth+1)+'px; height:1px; z-index:'+(eZ+2)+'; left:'+eLeft+'px; top:'+eTop+'px;border='+brd_x+';border-style:solid;border-color:'+eColor+';  background-color:'+eBgColor+'; overflow:hidden; layer-background-color:'+eColor+'; clip:rect(0px '+(eWidth+1)+'px 1px 0px);"></div>');
doc.writeln('<div id="'+eId+'u" style="position:absolute; width:'+(eWidth+1)+'px; height:1px; z-index:'+(eZ+3)+'; left:'+eLeft+'px; top:'+(eTop+eHeight)+'px;border=1; border-style:solid;border-color:'+eColor+';  background-color:'+eBgColor+'; overflow:hidden; layer-background-color:'+eColor+'; clip:rect(0px '+(eWidth+1)+'px 1px 0px);"></div>');
doc.writeln('<div id="'+eId+'r" style="position:absolute; width:1px; height:'+(eHeight+2)+'px; z-index:'+(eZ+4)+'; left:'+(eLeft+eWidth)+'px; top:'+eTop+'px;border='+brd_x+'; border-style:solid;border-color:'+eColor+';  ;background-color:'+eBgColor+'; overflow:hidden; layer-background-color:'+eColor+'; clip:rect(0px 1px '+(eHeight+2)+'px 0px);"></div>');
doc.writeln('<div id="'+eId+'d" style="position:absolute; width:'+eWidth+'px; height:'+eHeight+'px; z-index:'+(eZ+1)+'; left:'+eLeft+'px; top:'+(eTop+1)+'px;border=1; border-style:solid; border-color:'+eColor+' ;background-color:'+eBgColor+'; overflow:hidden; layer-background-color:'+eColor+'; clip:rect(0px '+eWidth+'px '+eHeight+'px 0px);'+clk+'" width="'+eWidth+'"'+aktion+'></div>');
if(ns||op)
{ var clk=(eAktion.length>0)?'<a href="javascript:'+aktion.substring(10,aktion.length)+'><img src="leer.gif" height="'+eHeight+'" width="'+eWidth+'" border="0"></a>':'';
doc.writeln('<div id="'+eId+'b" style="position:absolute; width:'+eWidth+'px; height:'+eHeight+'px; z-index:'+(eZ+7)+'; left:'+eLeft+'px; top:'+(eTop+1)+'px;" width="'+eWidth+'">'+clk+'</div>');
}
else
doc.writeln('<div id="'+eId+'b" style="position:absolute; width:'+eWidth+'px; height:'+eHeight+'px; z-index:'+eZ+'; left:'+eLeft+'px; top:'+(eTop+1)+'px;'+clk+'" width="'+eWidth+'"'+aktion+'></div>');
if(eSkala==true)
{ var pos,wert,i_anz,schrift,art;
 
if (eWidth>= "100")
{ i_anz=5;schrift=15;art="lighter";}
 else 
{ i_anz=2;schrift=10;art="lighter";}

for(i=0;i<=i_anz;i++)
{ pos=parseInt(eLeft-6+eWidth*i/i_anz);
if(isNaN(pos)) pos=eLeft-6;
wert=parseInt(eMin+i*(eMax-eMin)/i_anz);
if(isNaN(wert)) wert=0;
doc.writeln('<div id="'+eId+'s'+i+'" style="position:absolute; z-index:'+(eZ+5)+'; left:'+pos+'px; top:'+(eTop+eHeight+3)+'px; color:'+eColor+'; font-size:'+schrift+'px; font-weight:'+art+';">'+wert+'</div>');
}
}
setUpdate(displayBalkenW,eId+'d',eVarName,eAktion,eMin,eMax,eWidth,"","","","",eBgColor,"");
}

function balkenS(eId,eZ,eVarName,eAktion,eLeft,eTop,eWidth,eHeight,eColor,eMin,eMax,eSkala,eBgColor)
{ var doc=ns?document.inner.document:document;
var aId=(eVarName.length>0)?ebenenIds.length:-1;
var aktion=((eAktion.length>0)&&(eAktion.search("reqip") <= -1))?' onClick="clicked('+aId+',\''+eAktion+'\')"':'';
var clk=((eAktion.length>0)&&(eAktion.search("reqip") <= -1))?' cursor:'+cHand+';':''
if ((eZ<0)&&netscape) eZ=-eZ-1;
var brd_x;eBgColor?brd_x=0:brd_x=1;   // Für Borderausblendung
doc.writeln('<div id="'+eId+'l" style="position:absolute; width:1px; height:'+eHeight+'px; z-index:'+(eZ+2)+'; left:'+eLeft+'px; top:'+(eTop+1)+'px; border='+brd_x+';border-style:solid;border-color:'+eColor+';  background-color:'+eBgColor+'; overflow:hidden; layer-background-color:'+eColor+'; clip:rect(0px 1px '+eHeight+'px 0px);"></div>');
doc.writeln('<div id="'+eId+'r" style="position:absolute; width:1px; height:'+eHeight+'px; z-index:'+(eZ+3)+'; left:'+(eLeft+eWidth)+'px; top:'+(eTop+1)+'px;border=1;border-style:solid;border-color:'+eColor+';  background-color:'+eBgColor+'; overflow:hidden; layer-background-color:'+eColor+'; clip:rect(0px 1px '+eHeight+'px 0px);"></div>');
doc.writeln('<div id="'+eId+'o" style="position:absolute; width:'+eWidth+'px; height:1px; z-index:'+(eZ+4)+'; left:'+eLeft+'px; top:'+eTop+'px; border='+brd_x+';border-style:solid;border-color:'+eColor+';  background-color:'+eBgColor+'; overflow:hidden; layer-background-color:'+eColor+'; clip:rect(0px '+eWidth+'px 1px 0px);"></div>');
doc.writeln('<div id="'+eId+'d" style="position:absolute; width:'+eWidth+'px; height:'+eHeight+'px; z-index:'+(eZ+1)+'; left:'+eLeft+'px; top:'+(eTop+1)+'px; border='+brd_x+';border-style:solid;border-color:'+eColor+';  background-color:'+eBgColor+'; overflow:hidden; layer-background-color:'+eColor+'; clip:rect(0px '+eWidth+'px '+eHeight+'px 0px);'+clk+'" height="'+eHeight+'"'+aktion+'></div>');
if(ns||op)
{ var clk=(eAktion.length>0)?'<a href="javascript:'+aktion.substring(10,aktion.length)+'><img src="leer.gif" height="'+eHeight+'" width="'+eWidth+'" border="0"></a>':'';
doc.writeln('<div id="'+eId+'b" style="position:absolute; width:'+eWidth+'px; height:'+eHeight+'px; z-index:'+(eZ+7)+'; left:'+eLeft+'px; top:'+(eTop+1)+'px;" height="'+eHeight+'">'+clk+'</div>');
}
else
doc.writeln('<div id="'+eId+'b" style="position:absolute; width:'+eWidth+'px; height:'+eHeight+'px; z-index:'+eZ+'; left:'+eLeft+'px; top:'+(eTop+1)+'px;'+clk+'" height="'+eHeight+'"'+aktion+'></div>');
if(eSkala==true)
{ var pos,wert,i_anz,schrift,art;
  
if (eHeight >= "100")
{ i_anz=5;schrift=15;art="bold";}
 else 
{ i_anz=2;schrift=10;art="lighter";}

for(i=0;i<=i_anz;i++)
{ pos=parseInt(eTop-8+eHeight*i/i_anz);
if(isNaN(pos)) pos=eTop-8;
wert=parseInt(eMin+(i_anz-i)*(eMax-eMin)/i_anz);
if(isNaN(wert)) wert=0;
doc.writeln('<div id="'+eId+'s'+i+'" style="position:absolute; z-index:'+(eZ+5)+'; left:'+(eLeft+eWidth+4)+'px; top:'+pos+'px; color:'+eColor+'; font-size:'+schrift+'px; font-weight:'+art+';">'+wert+'</div>');
}
}
setUpdate(displayBalkenS,eId+'d',eVarName,eAktion,eMin,eMax,eHeight,eTop,"","","",eBgColor,"");
}
function fetchArg(text)
{ var i=text.indexOf("(");
if(i>0)
{ text=text.substring(i+1,text.length);
if((i=text.indexOf(")"))<0)
i=text.length;
text=text.substring(0,i);
if(text.charAt(0)=="'")
{ if((i=text.indexOf("'",1))<0)
i=text.length;
text=text.substring(1,i);
}
if(text.charAt(0)=='"')
{ if((i=text.indexOf('"',1))<0)
i=text.length;
text=text.substring(1,i);}}
return(text);}   

 function sleep(ms){ 
var zeit=(new Date()).getTime(); 
var stoppZeit=zeit+ms; 
while((new Date()).getTime()<stoppZeit){}; 
} 
      

function clicked(idx,kommando)
{ var kommando=kommando;
 switch(kommando.substr(0,4))
{ case "goto":
var myurl=fetchArg(kommando);self.location.href=myurl;break;   
case "comw":
var myurl=fetchArg(kommando);
parent.cmd.location.href=myurl;break;       
case "refr":
window.location.reload();break; 
case "clos":
window.close();
break;  
case "back":
window.history.back();break;
case "open":
 var text=kommando;
 var myopt="";
if ((i=text.indexOf(","))>0){text=text.substring(i+1,text.length); 
       if ((x=text.indexOf(";"))>0){text=text.substring(0,x);}       
myopt="style='position:absolute; "+text+"'";}
text=kommando;
if ((i=text.indexOf(","))>0){text=text.substring(5,i);myurl=text; }
else
if ((i=text.indexOf(")"))>0){text=text.substring(5,i);myurl=text; }
window.open(myurl,'',''+myopt);
break;  

case "clos":
window.close();
break;  

case "setp":
 var text=kommando;
 var myurl="sollwert.shtml";
 var myopt="";
 var varname=varNames[idx];
 var i=text.indexOf("(");
if (i>0) text=text.substring(i+1,text.length);
if ((i=text.indexOf(")"))>0){text=text.substring(0,i);myopt=text;}
window.open(myurl+"?"+varname+","+myopt,'Sollwert',"style='position:absolute; width=285 height=200 top=102 left=1'");
break;

case "writ":
var value=fetchArg(kommando);	// irgendeine zahl  
if(idx>=0){
     if(varNames[idx].indexOf(".")>-1) {
parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+varNames[idx]+".off=1 "+varNames[idx]+".def="+value; }
     else
{parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+varNames[idx]+"="+value;}
          }
else
{ alert("illegal cmd: "+kommando);}    
act_command=1; 
break;    


case "togg":
var value=0; 
if(idx>=0)
{ if(mValue[idx]==0) value=1;
if(varNames[idx].indexOf(".")<0)
parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+varNames[idx]+".off=1+"+varNames[idx]+".def="+value; 
else
parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+varNames[idx]+"="+value;
}
else
{ alert("illegal cmd: "+kommando);}
act_command=1;
break;

case "tast": 
var value=0;
if(idx>=0)
{if(mValue[idx]==0) value=1;parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+varNames[idx]+"="+value;}
else
{ alert("illegal cmd: "+kommando);}
act_command=1;    
break;
   
 // Delayded Taster   
case "dtst": 
var value=1;
parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+varNames[idx]+"="+value;
sleep(1000);
value=0;
if(idx>=0)
{parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+varNames[idx]+"="+value;}
else
{ alert("illegal cmd: "+kommando);}
act_command=1;    
break;

case "over": 
var vname=fetchArg(kommando);	// irgendeine zahl 
if (vname.indexOf("=")>-1) { value=vname.substring(vname.indexOf("=")+1,10); vname=vname.substring(0,vname.indexOf("=")); }   else {value="xx";vname= fetchArg(kommando);}
if(idx>=0)
{ if (value=="xx") {(mValue[idx]==0)?value=1:value=0;}
parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+vname+"="+value;
}
else
{ alert("illegal cmd: "+kommando);}
act_command=1;
break;

case "addw":
var value=fetchArg(kommando);	// irgendeine zahl
if(idx>=0){
 parent.cmd.location.href="/cgi-bin/wr_sps.cgi?"+varNames[idx]+"="+eval(parseFloat(mValue[idx])+parseFloat(value)) ;}
 else
{ alert("illegal cmd: "+kommando);}
act_command=1;
break;    

default:
alert("unknown cmd: "+kommando);
break;
}
}              
ladezustand=1;

function HandleTVcCommand(command) {
Cursortasten("",command);}

var mypos_alt=0
var mypos_new=0
var mydata=""
var command=""

function Cursortasten(event,command)
{ mypos_alt=mypos_new; 
var schritt=(event.keyCode ==37)*-1+(event.keyCode ==39)*1+(event.keyCode ==38)*-2+ (event.keyCode ==40)*2+(command =="LEFT")*-1+(command =="RIGHT")*1+(command =="DOWN")*-2+ (command =="UP")*2

if (mypos_new <0)  {mypos_new=1;mypos_alt=0;schritt=0;} 
if (mypos_new >m_x1) {mypos_new=1;mypos_alt=m_x1;schritt=0;}
else {mypos_new=mypos_alt+schritt;}
try  {  if ((m_st[mypos_new]["ebenenr"]>"")&& (m_st[mypos_alt]["ebenenr"]>"")) {throw "richtig";}  } 
catch (e)    {                                      
 if (e=="richtig") { 
  mydata=m_st[mypos_new]["mydata"] ;
  if ((parseInt(mValue[m_st[mypos_new]["ebenenr"]])>0))
{document.getElementById(''+m_st[mypos_new]["id1"]).src=m_st[mypos_new]["src1_over"]}
else {document.getElementById(''+m_st[mypos_new]["id0"]).src=''+m_st[mypos_new]["src0_over"]};

if ((parseInt(mValue[m_st[mypos_alt]["ebenenr"]])>0)){document.getElementById(''+m_st[mypos_alt]["id1"]).src=src1[m_st[mypos_alt]["ebenenr"]]}
else {document.getElementById(''+m_st[mypos_alt]["id0"]).src=src0[m_st[mypos_alt]["ebenenr"]];} 


var button_ok=(event.keyCode ==13)*1+(command =="SELECT")*1
if ((button_ok ==1)&&(m_st[mypos_new]["myaktion"].length>0)) {clicked(m_st[mypos_new]["ebenenr"],m_st[mypos_new]["myaktion"]);}
}
}

schritt=0;button_ok=0;command=""; 
}