// JScript File

function overfoer_vertikal()
{
  var raekke = document.all.risiko_2_nuv_raekke.value;
  
  
  var tal = document.all.risiko_2_resultat.value;
  var fortype = document.all.risiko_2_ftype.value;
  var niveau = document.all.risiko_2_niveau.value;
  var areal = document.all.risiko_2_areal.value;
  tal_id="risiko_2_sub_tal" + raekke;
  fortype_id="risiko_2_sub_fortype" + raekke;
  niveau_id="risiko_2_sub_niveau" + raekke;
  areal_id="risiko_2_sub_areal" + raekke; 
  document.all(tal_id).value = tal;
  document.all(fortype_id).value = fortype;
  document.all(niveau_id).value = niveau;
  document.all(areal_id).value = areal;
  fed(raekke);
  annuller();
}

function beregn_vertikal()
{               
  startwait();
  // 1.	dan input fil
  //      hent fra brugerflade
  if ((document.all.A_sand + document.all.A_ler + document.all.A_organisk) > 100  || (document.all.B_ler + document.all.B_sand) > 100)
  {
    alert("Een af horisonterne summerer fraktionerne til over 100%. Korrigér.");
  }
  else
  {
    //document.all.risiko_2_A_ler.value = document.all.risiko_2_A_ler.value.replace(",",".")
    //document.all.risiko_2_A_sand.value = document.all.risiko_2_A_sand.value.replace(",",".")
    //document.all.risiko_2_B_ler.value = document.all.risiko_2_B_ler.value.replace(",",".")
    //document.all.risiko_2_A_sand.value = document.all.risiko_2_A_sand.value.replace(",",".")
    //document.all.risiko_2_A_organisk.value = document.all.risiko_2_A_organisk.replace(",",".")
    A_ler = 0.01 *document.all.risiko_2_A_ler.value;
    A_sand = 0.01 *document.all.risiko_2_A_sand.value;
    B_ler = 0.01 *document.all.risiko_2_B_ler.value;
    B_sand = 0.01 * document.all.risiko_2_B_sand.value;
    A_organisk = 0.01 * document.all.risiko_2_A_organisk.value;
    halvering =  document.all.risiko_2_dt50.value;
    koc = document.all.risiko_2_koc.value;  
    halvering = halvering.replace(",",".");
    koc = koc.replace(",",".");

    send_streng = A_ler + "¤" + A_sand + "¤" + B_ler + "¤" + B_sand + "¤" + A_organisk + "¤"
      + halvering + "¤" + koc;
    // send argumenter, kør metamodel for vertikal transport og returner resultat.
  //  alert(send_streng);
    CallServer("501¤" + send_streng);
  }
}


function annuller()
{
  document.all.risiko_2_sub_kildestyrker.style.display = 'block';
  document.all.risiko_2_kildestyrker.style.display = 'block';  
  document.all.risiko_2_vertikal_beregning.style.display = 'none'; 
}


function set_GF(a,raekke,ftype,areal,niveau)
{
  //(argumentet areal bruges ikke - det hentes direkte fra feltet inde fra funktionen.
  //this.value," + ff + " , " + jord + " , " + bidder[16] + "
  clear_vertikal();

  switch (niveau)
  {
  case 1:
  {
    niv = "min";
    break;
  }
  case 2:
  {
    niv = "middel";
    break;
  }
  case 3:
  {
    niv = "max";
    break;
  }
  }        

  document.all.risiko_2_sub_kildestyrker.style.display = 'none';
  document.all.risiko_2_kildestyrker.style.display = 'none';  
  document.all.risiko_2_vertikal_beregning.style.display = 'block'; 
  document.all.risiko_2_stofid.value = document.all.risiko_2_sub_kildestyrker.rows[raekke].cells[0].innerHTML;
  document.all.risiko_2_niveau.value = niv;
  document.all.risiko_2_stofnavn.value = document.all.risiko_2_sub_kildestyrker.rows[raekke].cells[1].innerHTML;
  document.all.risiko_2_nuv_raekke.value = raekke;
  var areal = "";

  switch (ftype)
  {
  case 1:
  {
    fortype = "GV";
    areal_id =  "risiko_2_GV_areal_" + raekke; 
    break;
  }
  case 2:
  {
    fortype = "SPILD";
    document.all.risiko_2_maengde.innerHTML = 'Mængde (kg/år)';
    areal_id =  "risiko_2_SPILD_areal_" + raekke;
    break;
  }
  case 3:
  {
    fortype = "JORD";
    document.all.risiko_2_maengde.innerHTML = 'Mængde (mg/kg TS)';
    areal_id =  "risiko_2_JORD_areal_" + raekke; 
    break;
  }
  case 4:
  {
    fortype = "DEF";
    areal_id =  "risiko_2_DEFAULT_areal_" + raekke; 
    break;
  }
  }
  areal = document.getElementById(areal_id).value;
  document.all.risiko_2_ftype.value = fortype; 
  document.all.risiko_2_areal.value = areal;
  document.all.risiko_2_vaerdi.value = a;  

  //  find koc og dt50
  CallServer("204¤" + document.all.risiko_2_stofid.value);
}


function jordtype(indeks)
{
  switch (indeks)
  {
  case 0:
  {
    document.all.risiko_2_A_sand.innerText = "";
    document.all.risiko_2_A_ler.innerText = "";
    document.all.risiko_2_A_organisk.innerText = "";
    document.all.risiko_2_B_sand.innerText = "";
    document.all.risiko_2_B_ler.innerText = "";
    break;
  }
  case 1:
  {
    document.all.risiko_2_A_sand.innerText = "53";
    document.all.risiko_2_A_ler.innerText = "16";
    document.all.risiko_2_A_organisk.innerText = "3";
    document.all.risiko_2_B_sand.innerText = "52";
    document.all.risiko_2_B_ler.innerText = "21";
    break;
  }
  case 2:
  {
    document.all.risiko_2_A_sand.innerText = "80";
    document.all.risiko_2_A_ler.innerText = "5";
    document.all.risiko_2_A_organisk.innerText = "4";
    document.all.risiko_2_B_sand.innerText = "80";
    document.all.risiko_2_B_ler.innerText = "7";
    break;
  }
  case 3:
  {
    document.all.risiko_2_A_sand.innerText = "84";
    document.all.risiko_2_A_ler.innerText = "4";
    document.all.risiko_2_A_organisk.innerText = "3";
    document.all.risiko_2_B_sand.innerText = "90";
    document.all.risiko_2_B_ler.innerText = "4";
    break;
  }
  }      
}      

function clear_vertikal()
{
  document.all.risiko_2_stofid.value = "";
  document.all.risiko_2_stofnavn.value = "";
  document.all.risiko_2_areal.value = "";
  document.all.risiko_2_ftype.value = "";
  document.all.risiko_2_niveau.value = "";
  document.all.risiko_2_vaerdi.value = "";
  document.all.risiko_2_koc.value = "";
  document.all.risiko_2_A_sand.value = "";
  document.all.risiko_2_A_ler.value = "";
  document.all.risiko_2_A_organisk.value = "";
  document.all.risiko_2_B_sand.value = "";
  document.all.risiko_2_B_ler.value = "";
  document.all.risiko_2_dt50.value = "";
  document.all.risiko_2_resultat.value = "";
}