function horisontal_start()
{
  alert("Angiver ønsket periode for status ved boring");
}


function horisontal_skridt()
{
  alert("Angiver længde i fraktion af centerlinjen pr. cyklus i beregningen");
}

function medtag()
{
alert("Du kan vælge mellem at beregne den horisontale omsætning kun mod boringer eller mod alle centerlinjeslutpunkter (boringer, lavninger og oplandsgrænser")
}

function beregn()
{
alert("Du kan vælge mellem beregning af slutstyrker og koncentrationsbidrag")
}

function importer_horisontal_input()
{
 startwait();     
    w = document.all.risiko_4_beregn_til.selectedIndex;
    slutaar =  document.all.risiko_4_beregn_til.options[w].text;
    document.all.risiko_4_kort_aar.innerHTML = slutaar;
  /*
		  a. Oplandsoplysningerne indsamles
		  Trans. mid. 
		  Trans. min. 
		  Trans. max. 
		  Bjergart 
		  Massefylde 
		  Porøsitet 
		  Redox 
		  Magasintykkelse 
		  Infiltration 
		  Oplandsnavn
		  b.	For hver lokalitet indsamles
			   lokalitets ID 
			   kildestyrkesæt
			   gradient
			   centerlinje
			   samt 
				  c.	For hvert stof indsamles stofoplysningerne:
				  stofid
				  koncentration
				  areal
				  kd
				  td50
				  start
				  slut
				  kildestyrke
  */
  var send_streng = "";
  //oplandsoplysninger
  send_streng += document.all.risiko_3_opland_tval_mean.value;
  send_streng += "£" +  document.all.risiko_3_opland_tval_min.value;
  send_streng += "£" +  document.all.risiko_3_opland_tval_max.value;
  send_streng += "£" +  document.all.risiko_3_opland_bjergart.innerHTML;
  send_streng += "£" +  document.all.risiko_3_opland_massefylde.innerHTML;
  send_streng += "£" +  document.all. risiko_3_opland_poroesitet.innerHTML;
  send_streng += "£" +  document.all.risiko_3_opland_redox.innerHTML;
  send_streng += "£" +  document.all.risiko_3_opland_magasintykkelse.innerHTML;
  send_streng += "£" +  document.all. risiko_3_opland_infiltration.innerHTML;
  
  var w = document.all.risiko_4_beregn_fra.selectedIndex;
  send_streng += "£" + document.all.risiko_4_beregn_fra.options[w].text;
  var w = document.all.risiko_4_beregn_til.selectedIndex;
  send_streng += "£" + document.all.risiko_4_beregn_til.options[w].text;
  var w = document.all.risiko_4_centerlinje_fraktion.selectedIndex;
  send_streng += "£" + document.all.risiko_4_centerlinje_fraktion.options[w].value;
  send_streng += "£" +  document.all. risiko_3_opland_navn.innerHTML;
  lok_id = getElementsByClassName(document.all.risiko_3_container,"td","risiko_3_lok_id"); 
  lok_navn = getElementsByClassName(document.all.risiko_3_container,"td","risiko_3_lok_navn");
  kildestyrkesaet =  getElementsByClassName(document.all.risiko_3_container,"td","risiko_3_kildestyrkesæt");
  gradient =  getElementsByClassName(document.all.risiko_3_container,"td","risiko_3_gradient");
  centerlinje =  getElementsByClassName(document.all.risiko_3_container,"td","risiko_3_centerlinje");

  loks = getElementsByClassName(document.all.risiko_3_container,"table","risiko_3_kildetabel");
  for (x=0;x<loks.length;x++)
  {
    send_streng += "¤" + lok_id[x].innerHTML;
    send_streng += "£" + lok_navn[x].innerHTML;
    send_streng += "£" + kildestyrkesaet[x].innerHTML;
    send_streng += "£" + gradient[x].innerHTML;
    send_streng += "£" + centerlinje[x].innerHTML;
     
    stofdata =  getElementsByClassName(loks[x],"tr","risiko_3_stofdata");
    for (y=0;y<stofdata.length;y++)
    {   
      td_data = stofdata[y].getElementsByTagName("input");
      for (z=0;z<td_data.length;z++)
      {
        if (z==0)
        {
          send_streng += "§" + td_data[z].value;             
        }
        else
        { 
          send_streng += "£" + td_data[z].value;
        }
      }
    }
  }
  //TILFØJER RADIOKNAPVÆRDIER
  send_streng += "knap_knap" + document.all.risiko_4_chkBoringer.checked + "@_@" + document.all.risiko_4_radSlutstyrke.checked   ;	
  startwait();
  skjul_kort_og_diagram();    
 // alert("send_streng" + send_streng);
  CallServer("602¤" + send_streng);			
}


//byg præsentationer (603-607)
function diagram_output_xakse_aar(arg)
{
 var ymax = "";
  //tøm legend
  var dia = document.getElementById("risiko_4_diagram_applet");
  var legend = document.getElementById("diagram_4_legend");
  var rows = legend.getElementsByTagName("tr");
  for (x = rows.length-1;x>0;x--)
  {
    legend.deleteRow(x);
  }     
  
  //tøm diagram
/*  nx = xakse.split(",");
  nx = nx.length;  */ 
  var nuller="";
  for (b=0;b<100;b++)
  {nuller = nuller + "0,"}
  nuller = nuller.substring(0, nuller.length-1);  
   for (a = 0; a < 25;a++)
  {
  var s_value = "s" + a + "_value";
  var s_line_weight = "s" + a + "_line_weight";
  dia.setParam(s_line_weight,'0');
  dia.setParam(s_value,nuller);    
  } 
  
  //fjern tabellerne
  var diagram = document.getElementById("risiko_4_TabelContainer");
  diagram.innerHTML = ""; 

  //dan diagram titel
  var titel = arg.split("¤1_1_1¤");
  titel = titel[0].split("¤1_1¤");
  titel = titel[1].replace("&amp;","&");
  regneark_titel(titel)

  //find x-akse, niveau1sæt og ymax   
  var niveau1 = arg.split("¤2_2¤");
  niveau1 = niveau1[0].split("¤1_1_1¤");
                            
  //hvis der findes dataserier:
  if (niveau1.length>1)
  {                      
  niveau1 = niveau1[1].split("¤_¤");
  
  var xakse = "";
  var yakse = "";
  var ymixmax = "";
  
  for (x = 0;x<niveau1.length-1;x++)
  {
    var bid =  niveau1[x].split("¤"); 
    xakse += bid[1]+ ",";       
    yakse += bid[0].replace(",",".") + "," ;
    if (ymax < parseFloat(bid[0].replace(",",".")))
    {
      ymax = parseFloat(bid[0].replace(",","."));
    }
  }     
  ymax = ymax * 1.1;
  ymax = ymax + '';
  ymax = ymax.replace(",",".");
  //strip last comma
  yakse = yakse.substring(0, yakse.length-1);
  xakse = xakse.substring(0, xakse.length-1); 
  
  
  var xenhed = "År"
  var yenhed =  "mg/år"
  if (document.all.risiko_4_radSlutstyrke.checked == false) 
  {yenhed = "µg/l";}
  regneark_xakse(xakse)
  formater_diagram(dia,ymax,xakse,titel,xenhed,yenhed);     
  add_serie(dia,yakse,1,1,"Alle",'nej',xakse,"");
 
  //find niveau2sæt
  var niveau2 =  arg.split("¤2_2¤");
  for (x = 1;x<niveau2.length;x++)
  {
    var niveau2_2 = niveau2[x].split("¤3_3¤");
    niveau2_2 = niveau2_2[0].split("¤2_2_2¤");
    var label2 = niveau2_2[0];
    var data2 = niveau2_2[1].split("¤_¤");
    var y2 = "";
    for (y = 0;y<data2.length-1;y++)
    {
      bid = data2[y].split("¤");
      y2 += bid[0].replace(",",".") + ",";        
    }
    //strip last komma             
    y2 = y2.substring(0, y2.length-1);
    add_serie(dia,y2,x+1,0,label2,'ja',xakse,"");
  }
    
  //find niveau3sæt
    var niveau3 = arg.split("¤2_2¤");
  for (y=1;y<niveau3.length;y++)
  {
    var yyy = y+1;
    var tabellen = "risiko_4_d_table_" + yyy;
    var ny_tabel = document.getElementById(tabellen);    
    subs=niveau3[y].split("¤2_2_2¤"); 
    subs=subs[0] 
    var niveau3_3 = niveau3[y].split("¤3_3¤");
    ny_row = new Array();
    regneark_subserie(subs);
    for (z=1;z<niveau3_3.length;z++)
    {
      ny_row[z+1] = document.createElement("tr");
      var niveau_3_3_3 = niveau3_3[z].split("¤3_3_3¤");
      var y3 = niveau_3_3_3[0];
      ny_cell = new Array();
      ny_cell[0] = document.createElement("td");
      ny_cell[0].innerHTML = y3;
      regneark_sub_ds(y3);
      ny_row[z+1].appendChild(ny_cell[0]);
      var data3 = niveau_3_3_3[1].split("¤_¤");        
      for (w=0;w<data3.length-1;w++)
      {
        ny_cell[w+1] = document.createElement("td");
        bid = data3[w].split("¤");
        ny_cell[w+1].innerHTML = bid[0].replace(",",".").substring(0,6);
        regneark_sub_data(bid[0].replace(",",".").substring(0,6));
        ny_row[z+1].appendChild(ny_cell[w+1]);
            }
      //alert(ny_row[z+1].innerHTML);    
      ny_tabel.appendChild(ny_row[z+1]);
      //alert(ny_tabel.innerHTML);    
    }
  }    
  dia.repaint();  
  }
}


function add_serie(dia,y_values,serienr,fed,serielabel,tabel,xakse,diagram)                
{
  regneark_ds(dia,y_values,serienr,fed,serielabel,tabel,xakse,diagram) 
  
  var s_color = "s" + serienr + "_color";
  var s_line_weight = "s" + serienr + "_line_weight";
  var s_line_style = "s" + serienr + "_line_style";
  var s_label = "s" + serienr + "_label";
   var s_line_marker = "s" + serienr + "_line_marker";
  var s_value = "s" + serienr + "_value";
  var color = get_color(serienr);
  if (diagram == 'centerlinje')
  {
  dia.setParam("grid_line_hor","Y");
  dia.setParam(s_label,serielabel);
  dia.setParam("legend_position","INTOPRIGHT");
  dia.setParam("title_font_size","12");  
  if (serienr == 1)
  {
  dia.setParam("s1_color","abcdef");
  }   
  }
  dia.setParam(s_color,color);
  dia.setParam(s_line_weight,'1');
  if (fed==1)
  {
    dia.setParam(s_line_weight,'2');
  }
  dia.setParam(s_line_style,'1');
  dia.setParam(s_line_marker,'n');
  dia.setParam(s_value,y_values); 
  var legend = document.getElementById("diagram_4_legend");
  var nycelle=legend.insertRow(serienr);
  var a=nycelle.insertCell(0);
  a.innerHTML = serielabel;
  a.style.color = "#" + color;
  if (a.innerHTML != "Alle")
  {
    a.className = "tdknap";
    a.onclick = new Function("aabn_tabel('" + serienr +  "')");
  }
  if (tabel == 'ja')
  {
    //alert(serienr + "," + serielabel + "," + xakse + "," + color);
    dan_tabel(serienr,serielabel,xakse,color);
  }
}    

function formater_diagram(dia,ymax,xakse,titel,xenhed,yenhed)
{                
  dia.setParam("x_value",xakse);
  dia.setParam("y_max",ymax);
  y_units = y_unit(ymax);
  y_format = y_formatf(ymax);
  dia.setParam("y_unit",y_units);    
  
 //  dia.setParam("y_axis_title_font_size","10");
  //dia.setParam("x_axis_title_font_style","BOLD");
  
  
  
    
  dia.setParam("x_axis_title_text",xenhed);
 // dia.setParam("y_axis_title_text",yenhed);
 // 
  dia.setParam("x_axis_font_orientation","RIGHT");
  dia.setParam("grid_line_hor","N");
  dia.setParam("grid_line_hor_color","999999");
  dia.setParam("grid_line_hor_type","0");
  dia.setParam("grid_line_ver","N");
  dia.setParam("grid_line_ver_color","999999");
  dia.setParam("grid_line_ver_type","0");
  dia.setParam("applet_bg","f1f1ff");
  dia.setParam("chart_bg","f1f1ff");
  dia.setParam("y_axis_value_format",y_format);
  dia.setParam("y_axis_font_style","BOLD");
  dia.setParam("y_axis_font_size","10");
  dia.setParam("x_axis_font_style","BOLD");
  dia.setParam("x_axis_font_size","10"); 
 
  //indsæt xakse og yakse enheder  
 // dia.setParam("x_axis_title_text",xenhed); 
 // dia.setParam("y_axis_title_text",yenhed); 
  
  dia.setParam("title_text",titel + ", " + xenhed + ", " + yenhed);
  dia.setParam("title_font_color","000000");
  dia.setParam("title_font_size","16");
  dia.setParam("title_font_style","BOLD");
  dia.setParam("legend_position","none");
  dia.setParam("legend_font_size","12");
  dia.setParam("data_value","NONE");    //kan også bruge "INSIDE", "OUTSIDE" etc.
  // dia.repaint();
}

function dan_tabel(nr,serielabel,xakse,color)
{  

  var xakse = xakse.split(",");
  var mytablebody = document.createElement("tbody");
  mytablebody.className = "risiko_4_d_table";
  mytablebody.id = "risiko_4_d_table_" + nr;
  var d_row = document.createElement("tr");
  var d_cell = document.createElement("td");
  d_cell.colSpan = xakse.length + 1;
  d_cell.innerHTML = serielabel;
  d_cell.className = "output_tabel_header";
  d_cell.style.color = get_color(nr);
  d_cell.style.borderColor = get_color(nr);
  d_row.appendChild(d_cell);
  mytablebody.appendChild(d_row);

  var e_row = document.createElement("tr");
  e_cell = new Array();
  e_cell[0] = document.createElement("td");
  e_row.appendChild(e_cell[0]);
  for (xx=1;xx<xakse.length+1;xx++)
  {
    e_cell[xx] = document.createElement("td"); 
    e_cell[xx].innerHTML = xakse[xx-1];
    e_row.appendChild(e_cell[xx]); 
  }            
  mytablebody.appendChild(e_row);    

  var mytable = document.createElement("table");      
  mytable.appendChild(mytablebody);            
  var celle = document.createElement("td");
  celle.colSpan = 2;
  celle.appendChild(mytable);       
  var raekke = document.createElement("tr");  
  raekke.appendChild(celle);
  var tbody =  document.createElement("tbody");
  tbody.appendChild(raekke);      
  var tabel =  document.createElement("table"); 
  tabel.id = "risiko_4_d_raekke_" + nr;
  tabel.className = "risiko_4_d_raekke";
  tabel.style.display = 'none'; 
  tabel.appendChild(tbody);  
  var diagram = document.getElementById("risiko_4_TabelContainer");        
  diagram.appendChild(tabel);
}

function aabn_tabel(n)
{
  var elem = document.getElementById("risiko_4_diagram");
  var all_tables = getElementsByClassName(elem,"table","risiko_4_d_raekke");
  for (aa=0;aa<all_tables.length;aa++)
  { 
    all_tables[aa].style.display = 'none';
    thistable = "risiko_4_d_raekke_" + n;
    thistable = document.getElementById(thistable);
    thistable.style.display = 'block';
  }
}


function get_color(serienr)
{
switch (serienr)
{
case 1:{color = "cccccc";break;}
case 2:{color = "00dd00";break;}
case 3:{color = "bbbb00";break;}
case 4:{color = "dd0000";break;}
case 5:{color = "dd00dd";break;}
case 6:{color = "800080";break;}
case 7:{color = "800000";break;}
case 8:{color = "0000dd";break;}
case 9:{color = "000080";break;}
case 10:{color = "008080";break;}
case 11:{color = "008000";break;}
case 12:{color = "808000";break;}
case 13:{color = "c0c0c0";break;}
case 14:{color = "808080";break;}
case 15:{color = "000000";break;}
}
return color;
}

function hentkort()
{
  startwait();
  document.all.risiko_4_korttabel_header.innerHTML = "";
  var w = document.getElementById('risiko_1_fldWest').value;
  var s = document.getElementById('risiko_1_fldSouth').value;
  var e = document.getElementById('risiko_1_fldEast').value;
  var n = document.getElementById('risiko_1_fldNorth').value;
  var koordinater_wsen = w + '£' + s + '£' + e + '£' + n;
  var w = document.all.risiko_4_centerlinje_fraktion.selectedIndex;
  var lok_navn = document.getElementById('risiko_3_opland_navn').innerHTML;
  var trin = (1/(1*document.all.risiko_4_centerlinje_fraktion.options[w].value));
  CallServer('608¤'+lok_navn+'@'+trin +  '@' + document.all.risiko_4_shapefiler.checked )
}

function toggleshapefile()
{             
if (document.all.risiko_4_shapefiler.checked == true)
{
document.all.risiko_4_downloadkort.innerHTML = "<a target= '_blank' href= './mapserver/tmp/cab/risikokort.cab' >Download kort</a>"
}
else
{
document.all.risiko_4_downloadkort.innerHTML = "" ;
}
}
function slutpunkter(x)
{
switch (parseInt(x))
{
case 1:
{
document.all.risiko_4_chkAlleSlutpunkter.checked = null;
document.all.risiko_4_chkBoringer.checked = 'checked';
document.all.risiko_4_radKoncentrationsbidrag.disabled = null;
document.all.risiko_4_radSlutstyrke.disabled = null;
break;
}
case 2:
{
document.all.risiko_4_chkBoringer.checked = null; 
document.all.risiko_4_chkAlleSlutpunkter.checked = 'checked';    
document.all.risiko_4_radKoncentrationsbidrag.disabled = 'disabled';
document.all.risiko_4_radSlutstyrke.disabled = 'disabled';
document.all.risiko_4_radKoncentrationsbidrag.checked = null;
document.all.risiko_4_radSlutstyrke.checked = 'checked';
break;
}
}
}

function beregn(x)
{
switch (parseInt(x))
{
case 1:
{
document.all.risiko_4_radKoncentrationsbidrag.checked = null;
document.all.risiko_4_radSlutstyrke.checked = 'checked';
break;
}
case 2:
{
document.all.risiko_4_radKoncentrationsbidrag.checked = 'checked';
document.all.risiko_4_radSlutstyrke.checked = null;
break;
}
}
}    


function vis_dia5()
{
//hent lokaliteter og slutaar her og put i ddl'er     
//lokaliteter  
document.all.risiko_4_diagram.style.display = 'none';
document.all.risiko_4_ddlLokalitet.innerHTML = "";
document.all.risiko_4_ddlSlutaar.innerHTML = "";                       
ctr = document.all.risiko_3_container;
nlok = document.all.risiko_3_container.rows.length - 2;
for (f = nlok;f>0;f-=2)
{
//lokaliteter
opt = new Option(ctr.rows(f).cells(1).innerHTML,ctr.rows(f).cells(0).innerHTML);
document.all.risiko_4_ddlLokalitet.add(opt);
}   
//sæt lok til allerede valgt:
drop = document.all.risiko_4_ddlLokalitet.options
for (y=0;y< drop.length;y++)
{
 if (drop[y].text == document.all.risiko_4_hfValgtLokDia5.value)
 {
      document.all.risiko_4_ddlLokalitet.selectedIndex = y;
 }
}



   
//aar
var w = document.all.risiko_4_beregn_fra.selectedIndex;
  forste_slutaar =  document.all.risiko_4_beregn_fra.options[w].text;
w = document.all.risiko_4_beregn_til.selectedIndex;
  sidste_slutaar =  document.all.risiko_4_beregn_til.options[w].text;
for (g = forste_slutaar;g<=sidste_slutaar;g++)
{
opt = new Option(g,g);
document.all.risiko_4_ddlSlutaar.add(opt);
}                    
document.all.risiko_4_dia5_vaelg_lokalitet_og_aar.style.display = 'block';
}

function reset_dia5()
{
document.all.risiko_4_dia5_vaelg_lokalitet_og_aar.style.display = 'none';
}

function diagram_output_xakse_centerlinje(arg)
{                 
   
  //dan diagram titel
  var dia = document.getElementById('risiko_4_diagram_applet_centerlinje');
  
  var w = document.all.risiko_4_ddlLokalitet.selectedIndex;
  lokalitet =  document.all.risiko_4_ddlLokalitet.options[w].text;
  w = document.all.risiko_4_ddlSlutaar.selectedIndex;
  slutaar =  document.all.risiko_4_ddlSlutaar.options[w].text;
  //TITEL
  var titel = "Fra lokaliteten " + lokalitet + " ved år " + slutaar + "." 
   arg = arg.substring(4,arg.length)  
   //find sæt af stofnavn, x og y værdier
   stofsaet = arg.split("¤4_4¤");
   //find x værdierne       
   xvaerdier = stofsaet[0].split("¤1_1¤");   
   xvaerdier = xvaerdier[1].split("¤3_3¤");
   xvaerdier = xvaerdier[0].split("¤2_2¤");
   var ymax = "";
   var xakse = "";
   var yakse = "";
   for (s=0;s<xvaerdier.length-1;s++)
   {
   x =  parseInt(xvaerdier[s])+1;
   xakse = xakse + x + ",";
   }
   //XAKSE
   xakse = xakse.substring(0, xakse.length-1);
      
   //find Y værdierne
   for (r = 0; r<stofsaet.length-1;r++)
   { 
   serienr = r+1;
   yvaerdier = stofsaet[r].split("¤1_1¤");
   serie =  yvaerdier[0];  
   yvaerdier = yvaerdier[1].split("¤2_2¤");
   yvaerdier = yvaerdier[yvaerdier.length-1];
   yvaerdier = yvaerdier.split("¤3_3¤");
   for (w = 0;w<yvaerdier.length-1;w++)
   {
   yakse = yvaerdier[w].replace(",",".") + "," + yakse ;
   if (ymax < yvaerdier[w].replace(",","."))
    {
      ymax = yvaerdier[w].replace(",",".");
      ymax = roundNumber(1.25*ymax,0)+1;
    } 
   } 
   //YAKSE
   yakse = yakse.substring(0, yakse.length-1); 
   var xenhed = "år"
   var yenhed =  "mg/år"
  if (document.all.risiko_4_radSlutstyrke.checked == false) 
  {yenhed = "µg/l";}         
   formater_diagram(dia,ymax,xakse,titel,xenhed,yenhed);
   add_serie(dia,yakse,serienr,0,serie,'nej',xakse,'centerlinje');
   yakse="";
   }
  dia.repaint();
  display_centerlinje();
}


//JID 20061003
function trinpunkt_mover(lokId,trin)
{
  //alert('lokId:'+lokId+'\ntrin:'+trin);
}


function trinpunkt_click(lokId,trin,loknavn)
{    
  document.all.risiko_4_korttabel_header.innerHTML = "Lokalitet: " + lokId + " " + loknavn;
           
  CallServer('609' + "¤" + lokId + "¤" + trin + "¤" + document.all.risiko_4_kort_aar.innerHTML)
 // alert('lokId:'+lokId+'\ntrin:'+trin);
}

function til_aar()
{
    alert("Dette år bruges også til kortpræsentationen.")
}


function y_unit(ymax)
{
y_units = 0.01
if (ymax > 0.5)
y_units = 0.05
if (ymax > 1)
y_units = 0.1
if (ymax > 2.5)
y_units = 0.5
if (ymax > 5)
{y_units = 1} 
if (ymax > 25)
{y_units = 5}
if (ymax > 50)
{y_units = 10}
if (ymax > 100)
{y_units = 20}
if (ymax > 250)
{y_units = 50}
if (ymax > 500)
{y_units = 100}
if (ymax > 1000)
{y_units = 200}
if (ymax > 2500)
{y_units = 500}
if (ymax > 5000)
{y_units = 1000}
if (ymax > 10000)
{y_units = 2000}
if (ymax > 25000)
{y_units = 5000}
if (ymax > 50000)
{y_units = 10000}
if (ymax > 100000)
{y_units = 20000}
if (ymax > 250000)
{y_units = 50000}
if (ymax > 500000)
{y_units = 100000}
if (ymax > 5000000)
{y_units = 1000000}
if (ymax > 50000000)
{y_units = 10000000}
if (ymax > 500000000)
{y_units = 100000000}
if (ymax > 5000000000)
{y_units = 1000000000}

return y_units;
}

function y_formatf(ymax)
{  
y_format = "#0.00#";
if (ymax > 0.5)
{y_format = "#0.0#"}
if (ymax > 1)
{y_format = "#0.#"}
if (ymax > 2.5)
{y_format = "#0.#"}
if (ymax > 5)
{y_format = "#"} 
return y_format;
}


function kort_tabel(arg)

//der dannes en tabel med disse kolonner:
//1.    Trinpunkt
//2.    Styrke/koncentrationsbidrag
//3.    Afstand fra lokalitet

{              
  var tbody = document.createElement("tbody");
  tbody.innerHTML="";
  
  //header row
  var d_row = document.createElement("tr");
  d_row.innerHTML = ""; 
  d_row.style.fontSize='11px';
  d_row.style.borderWidth = '1px';
  d_row.style.backgroundColor = 'Yellow';
  d_row.style.borderColor = 'White';
  var trin_header = document.createElement("td");
  var styrke_header = document.createElement("td");
  var afstand_header = document.createElement("td"); 
  trin_header.verticalAlign = 'top';
  trin_header.textAlign = 'center';
  styrke_header.verticalAlign = 'top';
  styrke_header.textAlign = 'center';
  afstand_header.verticalAlign = 'top';
  afstand_header.textAlign = 'center'; 
  trin_header.innerHTML = "Trinpunkt";
  d_row.appendChild(trin_header);
  if (document.all.risiko_4_radSlutstyrke.checked == false)
  {
      styrke_header.innerHTML = "Konc. bidrag<br/>μg/l";
  }
  else
  {
      styrke_header.innerHTML = "Flux<br/>mg/år";
  }            
  
  
  d_row.appendChild(styrke_header);  
  afstand_header.innerHTML = "Afstand fra lokalitet";
  d_row.appendChild(afstand_header);         
  tbody.appendChild(d_row);        
    s = arg.split("¤_¤");
    forendedele=s[1].split("¤");
    valgt_raekke = forendedele[1] 

    for (n=s.length-2;n>1;n--)
    {        
      ss = s[n].split("¤")  
      var e_row = document.createElement("tr");
      e_row.style.backgroundColor = 'White';
      e_row.innerHTML="";
      var trin= document.createElement("td");
      var styrke= document.createElement("td");
      var afstand= document.createElement("td");
      trin.innerHTML = s.length-3 - ss[2];      
      styrke.innerHTML = parseFloat(ss[0]);
      afstand.innerHTML = roundNumber(parseFloat(ss[1]),0) + " m";
      e_row.appendChild(trin); 
      e_row.appendChild(styrke); 
      e_row.appendChild(afstand);
      if (trin.innerHTML==valgt_raekke)
      {e_row.style.color = 'white';
      e_row.style.borderWidth = '1px';
      e_row.style.borderStyle = 'solid';
      e_row.style.backgroundColor = 'lightgreen';      
      e_row.style.borderColor = 'maroon';
      e_row.style.fontSize = '10px'} 
      tbody.appendChild(e_row);
    }
      var tabello = document.createElement("table");           
      tabello.style.display = 'block'; 
      tabello.style.backgroundColor = 'Yellow';
      tabello.appendChild(tbody);          
      diagram = document.getElementById("risiko_4_korttabel_container");
      diagram.innerHTML = ""; 
      diagram.appendChild(tabello);      
}


function regneark_titel(titel)
{
document.all.risiko_4_regneark.value = titel;
}
function regneark_xakse(xakse)
{
document.all.risiko_4_regneark.value += "xakse" + xakse
}
function regneark_ds(dia,y_values,serienr,fed,serielabel,tabel,xakse,diagram) 
{
document.all.risiko_4_regneark.value += "serienr" + serienr
document.all.risiko_4_regneark.value += "serielabel" + serielabel  
document.all.risiko_4_regneark.value += "y_values" + y_values   
}
function regneark_subserie(subs)
{
document.all.risiko_4_regneark.value += "subsæt" +  subs;
}
function regneark_sub_ds(ds)
{document.all.risiko_4_regneark.value += "subserielabel" + ds}  
function regneark_sub_data(data)
{document.all.risiko_4_regneark.value += "sub_y_values" + data}  
               
function download_data()
{     

  var xenhed = "år"
  var yenhed =  "mg/år"
  if (document.all.risiko_4_radSlutstyrke.checked == false) 
  {yenhed = "µg/l";}
  
       var oExcel = new ActiveXObject("Excel.Application");
       var oBook = oExcel.Workbooks.Add;
       var oSheet = oBook.Worksheets(1);
       oCell = oSheet.Range("A1:Z200");
       oCell.Font.Size = "8";
       oHeadrow = oSheet.Range("1:1");
       oHeadrow.Font.FontStyle = "Bold";
       oHeadrow.Font.Size = "14";           
       oHeadrow.Cells.Interior.ColorIndex="38";
       oSheet.Columns("A:A").ColumnWidth = 5;
       oSheet.Columns("B:B").ColumnWidth = 25;
       oSheet.Columns("A:A").Font.FontStyle = "Bold";
       oSheet.Columns("B:B").Font.FontStyle = "Bold";
       oSheet.Rows("1:1").RowHeight = 25;
       total = document.all.risiko_4_regneark.value 
       total = total.split("subsæt")
       top_og_serier =  total[0].split("serienr")
       titel_og_xakse =  top_og_serier[0].split("xakse")
       titel = titel_og_xakse[0]
       //XL:titel
       oSheet.Cells(1,1) = titel
       oSheet.Cells(2,2) = xenhed + ", " + yenhed       
       xakse = titel_og_xakse[1].split(",")
       c_r=2;
       c_c=3;
       for (xx=0;xx<xakse.length;xx++)
       {  
          //XL:xakse
          oSheet.Cells(c_r,c_c) = xakse[xx];
          oXAkseRow = oSheet.Range(c_r + ":" + c_r);
          oXAkseRow.Font.FontStyle = "Bold";
          oXAkseRow.Cells.Interior.ColorIndex = "37";          
          c_c++; 
       }         
       for (q=1;q<top_og_serier.length;q++)
        {
        c_c=1;
        c_r++;
        serienr = top_og_serier[q].split("serielabel");
        serielabel = serienr[1].split("y_values")
        serienr = serienr[0]; 
        //XL:serienr
        oSheet.Cells(c_r,c_c) = serienr
        oSerieRow = oSheet.Range(c_r + ":" + c_r);
        oSerieRow.Cells.Interior.ColorIndex = "35";     
        c_c++;
        
        y_values = serielabel[1].split(",");
        serielabel = serielabel[0];
        //XL:serielabel
        oSheet.Cells(c_r,c_c) = serielabel;
        c_c++;   
           
         for(p=0;p<y_values.length;p++)
          {    
            //XL:ydata
            oSheet.Cells(c_r,c_c) = y_values[p];               
            c_c++;
          }     
         for (r=1;r<total.length;r++)
           { 
             subst = total[r].split("subserielabel"); 
             if (subst[0] == serielabel)
             {
               for (t=1;t<subst.length;t++)
                 { 
                   c_r++; 
                   c_c=2;
                   subyakse = subst[t].split("sub_y_values")
                   //XL:sublabel
                   oSheet.Cells(c_r,c_c) = subyakse[0]
                   oSerieRow = oSheet.Range(c_r + ":" + c_r);
                   oSerieRow.Cells.Interior.ColorIndex = "36";     
        
                   c_c++;               
                   for (u=1;u<subyakse.length;u++)
                    {    
                      //XL:suby
                      oSheet.Cells(c_r,c_c) = subyakse[u];
                      c_c++;                  
                    }  
                 }
              }
           }
        }
        
        /*colortester
           for (c_r=1;c_r<40;c_r++)
           {
         oSerieRow = oSheet.Range(c_r + ":" + c_r);            
         oSerieRow.Cells.Interior.ColorIndex = c_r;
        
           }*/
         
          oExcel.Visible = true;
          oExcel.UserControl = true;
}