function SaveSettings(){
  var VRSave = "?kg=" + document.PktClc.kg.value + "&";
  VRSave = VRSave + "le=" + document.PktClc.le.value + "&";
  VRSave = VRSave + "wi=" + document.PktClc.wi.value + "&";
  VRSave = VRSave + "hi=" + document.PktClc.hi.value + "&";
  VRSave = VRSave + "VR=" + window.name;

   var Verfall = 1000*60*60*24*365*2;
   var jetzt = new Date();
   var Auszeit = new Date(jetzt.getTime() + Verfall);

  document.cookie = VRSave + "; expires=" + Auszeit.toGMTString() + ";" ;

    var CT =  "Die aktuellen Einstellungen für Maße, Gewicht,\n";
    CT = CT + "Versicherung, Abholung und die ausgewählten \n"
    CT = CT + "Anbieter/Tarife wurden als Cookie gespeichert. \n\n";
    CT = CT + "Diese Einstellungen werden bei späteren \n";
    CT = CT + "Aufrufen des Versandrechners genutzt.";
    alert(CT);
}

function DelSettings(){
   var Verfall = 1000*60*60*24*365*2;
   var jetzt = new Date();
   var Auszeit = new Date(jetzt.getTime() - Verfall);

  document.cookie = "?kg=; expires=" + Auszeit.toGMTString() + ";" ;
    var  CT = "Die gespeicherten Einstellungen für Maße, Gewicht,\n";
    CT = CT + " Versicherung, Abholung und ausgewählte \n";
    CT = CT + "Anbieter/Tarife wurden gelöscht. \n\n";
    CT = CT + "Der Versandrechners wird beim nächsten \n";
    CT = CT + "Aufruf die Default-Werte nutzen.";
    alert(CT);
}

function CreateLink(){
  var VRLink = "showlink.html?kg=" + document.PktClc.kg.value + "&";
  VRLink = VRLink + "le=" + document.PktClc.le.value + "&";
  VRLink = VRLink + "wi=" + document.PktClc.wi.value + "&";
  VRLink = VRLink + "hi=" + document.PktClc.hi.value;
//http://versandrechner.de/index.html?kg=4&le=50&wi=30&hi=20
  F = window.open(VRLink,"VRLink","left=100, top=100, width=450, height=430, resizable=yes, scrollbars=yes");
  F.focus();
}

function GoArtikel(Artikel)
{
var ffStr;

SaveChk();
ffStr = document.PktClc.ArtikelWahl.options[document.PktClc.ArtikelWahl.selectedIndex].value;
  if (ffStr != "noCalc")
  {
    top.location.href = ffStr;
  }
}

function SaveChk()
{
var TarifeChk = "";
var TChk, ArtikelIdx;
  for (i = 0; i< document.getElementsByTagName("input").length; i++)
  {
    TChk = "0";
    if (document.getElementsByTagName("input")[i].checked == true) TChk = 1;
    TarifeChk = TarifeChk + TChk;
  }
  ArtikelIdx = document.PktClc.ArtikelWahl.selectedIndex;

  window.name = "VRCheckBeg" + TarifeChk + "VRCheckEndVRArtBeg" + ArtikelIdx + "VRArtEnd";
}

function SetChk(){
  var i = 0, params;
  var vrcBeg = window.name.indexOf("VRCheckBeg");
  var vrcEnd = window.name.indexOf("VRCheckEnd");
  var vraBeg = window.name.indexOf("VRArtBeg");
  var vraEnd = window.name.indexOf("VRArtEnd");
  if (vrcBeg > -1 && vrcEnd > 0){
    params = window.name.substring(vrcBeg+10,vrcEnd);
    while(i < params.length){
      if (i < document.getElementsByTagName("input").length){
        document.getElementsByTagName("input")[i].checked = true;
        if (params.substring(i,i + 1) == 0) document.getElementsByTagName("input")[i].checked = false;
      }
      i++;
    }
  }
  if (vraBeg > -1 && vraEnd > 0) document.PktClc.ArtikelWahl.selectedIndex = window.name.substring(vraBeg+8,vraEnd);
}

function FillFormat(Wahl)
{
var ffStr;
if (Wahl == "ArtikelWahl") ffStr = document.PktClc.ArtikelWahl.options[document.PktClc.ArtikelWahl.selectedIndex].value;
if (Wahl == "FormatWahl")  ffStr = document.PktClc.FormatWahl.options[document.PktClc.FormatWahl.selectedIndex].value;
if (ffStr != "noCalc"){
  if (Trim(ffStr.substring(0,6),2) > 0) document.PktClc.kg.value = Trim(ffStr.substring(0,6),2);
  document.PktClc.le.value = Trim(ffStr.substring(6,12),2);
  document.PktClc.wi.value = Trim(ffStr.substring(12,18),2);
  document.PktClc.hi.value = Trim(ffStr.substring(18,24),2);
  GetBest()
    }
}

function GetParas()
{
  kg   = SucheErsetze(document.PktClc.kg.value,",",".");
  l[0] = SucheErsetze(document.PktClc.le.value,",",".");
  l[1] = SucheErsetze(document.PktClc.wi.value,",",".");
  l[2] = SucheErsetze(document.PktClc.hi.value,",",".");
  if (isNaN(kg) == true || kg <= 0 || kg > 2000) WarnMsg = "Das Gewicht muss zwischen 0 und 2000 kg liegen!";
  for (var i = 0; i <= 2; i++){
    if (isNaN(l[i]) == true || l[i] <= 0 || l[i] > 400) WarnMsg = "Länge, Breite und Höhe müssen zwischen 0 und 400 cm liegen";
  }
  if (WarnMsg == ""){
    document.PktClc.kg.value = Trim(kg,2);
    document.PktClc.le.value = Trim(l[2],2);
    document.PktClc.wi.value = Trim(l[1],2);
    document.PktClc.hi.value = Trim(l[0],2);
    kg = eval(kg); l[0] = eval(l[0]); l[1] = eval(l[1]); l[2] = eval(l[2]);
    l.sort(Numsort2);
    document.PktClc.kg.value = Trim(kg,2);
    document.PktClc.le.value = Trim(l[2],2);
    document.PktClc.wi.value = Trim(l[1],2);
    document.PktClc.hi.value = Trim(l[0],2);
    lhb = l[2] + l[1] + l[0]; Umf = 2 * (l[1] + l[0]); Gur = Umf + l[2]; lks = l[2] + l[0]; lbs = l[2] + l[1];
    Vol = l[2] * l[1] * l[0]; VolG1 = Vol/6000; VolG2 = Vol/6666; Vol = Vol/1000;
    document.getElementById("kzLHB").firstChild.nodeValue = Trim(lhb,1);
    document.getElementById("kzUmf").firstChild.nodeValue = Trim(Umf,1);
    document.getElementById("kzGur").firstChild.nodeValue = Trim(Gur,1);
    document.getElementById("kzLKS").firstChild.nodeValue = Trim(lks,1);
    document.getElementById("kzLBS").firstChild.nodeValue = Trim(lbs,1);
    document.getElementById("kzVol").firstChild.nodeValue = Trim(Vol,1);
    document.getElementById("kzVolG1").firstChild.nodeValue = Trim(VolG1,1);
    document.getElementById("kzVolG2").firstChild.nodeValue = Trim(VolG2,1);
  }
}

  function DefArrays()
{
  TarifGrp = new Array(); TarifName = new Array(); TarifNr   = new Array();
  Preis    = new Array(); MaxKG     = new Array(); AnbURL    = new Array();
  MaxLe    = new Array(); MaxWi     = new Array(); MaxHi     = new Array();
  MaxLHB   = new Array(); MaxGur    = new Array(); MaxLKS    = new Array(); MaxLBS    = new Array();
  MaxVol   = new Array(); VolG      = new Array(); MaxRealKg = new Array();
  MaxUmf   = new Array(); AbHol     = new Array(); Vers      = new Array();
  Anm1     = new Array(); Anm2      = new Array(); Anm3      = new Array(); Anm2URL   = new Array();
  TrfKrz   = new Array(); TFnd      = new Array();
  PproKg   = new Array(); ShowPrice = new Array();
}


  function GetBest()
{
  SaveChk();
  DefArrays();

  WarnMsg = "";
  GetParas();
  document.getElementById("AltT").firstChild.nodeValue = " ";
  document.getElementById("Alt1").firstChild.nodeValue = " ";
  document.getElementById("Alt2").firstChild.nodeValue = " ";
  document.getElementById("Alt3").firstChild.nodeValue = " ";
  document.getElementById("Alt4").firstChild.nodeValue = " ";
  document.getElementById("AltT2").firstChild.nodeValue = " ";
  document.getElementById("Alt5").firstChild.nodeValue = " ";
  if (WarnMsg == "")
  {
    TN = -1;

    DefTarifeAll();

    maxTN=TN;
    TestTarife();
  }
  else
  {
    alert(WarnMsg);
    for(i = 0; i <= 4; i++)
    {
      DelOut(i);
    }
  }

  if (Preis[TFnd[0]] + PproKg[TFnd[0]] * Math.floor(kg + 0.999) > 50 || isNaN(Preis[TFnd[0]]))
  {
    var AltA = "Leider wurde kein Anbieter unter 50 EUR gefunden. "
    AltA = AltA + "Bei sehr sperrigen oder sehr schweren Sendungen sind die ";
    AltA = AltA + "folgenden Links eventuell hilfreich:";
    document.getElementById("AltT").firstChild.nodeValue = AltA;
    document.getElementById("Alt1").firstChild.nodeValue = "Transportangebote bei eBay";
    document.getElementById("Alt1").href = "http://shop.ebay.de/i.html?_sacat=110780";
    document.getElementById("Alt2").firstChild.nodeValue = "Speditionen in der Versandübersicht";
    document.getElementById("Alt2").href = "versandlinks.html";
  }
}

function TestTarife()
{
var i, LE, ckg, TrfStr, RealKg;
TrfStr=";"
for (i = 0; i< document.getElementsByTagName("input").length; i++){
  if (document.getElementsByTagName("input")[i].checked == true){
    TrfStr = TrfStr + document.getElementsByTagName("input")[i].name + ";";
  }
}
TrfStr = TrfStr + ";";
maxTFnd=0;
for(i = 0; i <= TN; i++){
RealKg = kg;
ckg    = kg;
  if (VolG[i] == 1){
    ckg = l[0] * l[1] * l[2] / 6000;
    if (ckg < kg) ckg = kg;
  }
  if (VolG[i] == 2){
    ckg = l[0] * l[1] * l[2] / 6666;
    if (ckg < kg) ckg = kg;
  }

  if (eval(ckg) <= MaxKG[i]){
    if (MaxLe[i] == 0 || l[2] <= MaxLe[i]){
      if (MaxWi[i] == 0 || l[1] <= MaxWi[i]){
        if (MaxHi[i] == 0 || l[0] <= MaxHi[i]){
          if (MaxLHB[i] == 0 || lhb <= MaxLHB[i]){
            if (MaxGur[i] == 0 || Gur <= MaxGur[i]){
              if (MaxLKS[i] == 0 || lks <= MaxLKS[i]){
              if (MaxLBS[i] == 0 || lbs <= MaxLBS[i]){
                if (MaxVol[i] == 0 || Vol <= MaxVol[i]){
                  if (MaxRealKg[i] == 0 || RealKg <= MaxRealKg[i]){
                    if (MaxUmf[i] == 0 || Umf <= MaxUmf[i]){
                      if (document.PktClc.Vers.checked == false || Vers[i] != "nein"){
                        var Abh = 0
                        if (document.PktClc.AbHJ.checked == true){
                          if (AbHol[i] != "nein") Abh = 1;
                        }
                        if (document.PktClc.AbHN.checked == true){
                          if (AbHol[i] == "nein") Abh = 1;
                        }
                        if (Abh == 1){
                          if (TrfStr.indexOf(";"+TrfKrz[i]+";") >= 0 == true){
                            var SVH = 0;
                            for (var j=0; j<=maxTFnd; j++){
                              if (TarifGrp[TFnd[j]] == TarifGrp[i]){
                                SVH = 1;
                              }
                            }
                            if (SVH == 0){
                                maxTFnd++;
                                TFnd[maxTFnd-1]=i;
                            }
                          }
                        }
                      }
                    }
                  }
                }
              }
              }
            }
          }
        }
      }
    }
  }
}

var a = new Array(maxTFnd);
for (i = 0; i < maxTFnd; ++i){

  if (PproKg[TFnd[i]] == 0){
    a[i] = Trim(Preis[TFnd[i]] * 1000,0) + "          " + TFnd[i]+"  ";
  }
  else{
    ckg = kg;
    if (VolG[TFnd[i]] == 1) ckg = VolG1;
    if (VolG[TFnd[i]] == 2) ckg = VolG2;
    if (ckg < kg) ckg = kg;
    a[i] = Trim((Preis[TFnd[i]] + PproKg[TFnd[i]] * Math.floor(ckg + 0.999)) * 1000,0) + "          " + TFnd[i]+"  ";
  }
}
a.sort(Numsort);
for (i = 0; i < maxTFnd; ++i){
 TFnd[i]=eval(a[i].substring(10,a[i].length))
}

for(i = 0; i <= 4; i++){
  if (Preis[TFnd[i]] > 0){
      ckg = kg;
      if (VolG[TFnd[i]] == 1) ckg = VolG1;
      if (VolG[TFnd[i]] == 2) ckg = VolG2;
      if (ckg < kg) ckg = kg;
    document.getElementById("Anb"+i).firstChild.nodeValue = TarifGrp[TFnd[i]];
    document.getElementById("Anb"+i).href = AnbURL[TFnd[i]];
    if (PproKg[TFnd[i]] == 0){
      document.getElementById("Tarif"+i).firstChild.nodeValue = TarifName[TFnd[i]];
    }
    else{
      document.getElementById("Tarif"+i).firstChild.nodeValue = TarifName[TFnd[i]] + Trim0(Math.floor(ckg + 0.999)) + " kg";
    }
    document.getElementById("Vers"+i).firstChild.nodeValue = Vers[TFnd[i]];
    document.getElementById("Abh"+i).firstChild.nodeValue = AbHol[TFnd[i]];
    if (ShowPrice[TFnd[i]] == "yes"){
      document.getElementById("Preis"+i).firstChild.nodeValue = Trim2(Preis[TFnd[i]] + PproKg[TFnd[i]] * Math.floor(ckg + 0.999)) + " €";
    }
    else{
      document.getElementById("Preis"+i).firstChild.nodeValue = "*";
    }
    document.getElementById("Anm1"+i).firstChild.nodeValue = Anm1[TFnd[i]];
    document.getElementById("Anm2"+i).firstChild.nodeValue = Anm2[TFnd[i]];
    document.getElementById("Anm2"+i).href = Anm2URL[TFnd[i]];
    document.getElementById("Anm3"+i).firstChild.nodeValue = Anm3[TFnd[i]];
  }
  else{
    DelOut(i)
  }
}
}

function DelOut(i){
    document.getElementById("Anb"+i).firstChild.nodeValue = " ";
    document.getElementById("Anb"+i).href = " ";
    document.getElementById("Tarif"+i).firstChild.nodeValue = " ";
    document.getElementById("Vers"+i).firstChild.nodeValue = " ";
    document.getElementById("Abh"+i).firstChild.nodeValue = " ";
    document.getElementById("Preis"+i).firstChild.nodeValue = "-";
    document.getElementById("Anm1"+i).firstChild.nodeValue = "-";
    document.getElementById("Anm2"+i).firstChild.nodeValue = "-";
    document.getElementById("Anm2"+i).href = " ";
    document.getElementById("Anm3"+i).firstChild.nodeValue = "-";
}

function SelAll(){
for (i = 0; i< document.getElementsByTagName("input").length; i++){
  if (document.getElementsByTagName("input")[i].name != "Vers"){
  if (document.getElementsByTagName("input")[i].name != "AbHJ"){
  if (document.getElementsByTagName("input")[i].name != "AbHN"){
    document.getElementsByTagName("input")[i].checked = true;
  }
  }
  }
}
GetBest();
}

function SelNone(){
for (i = 0; i< document.getElementsByTagName("input").length; i++){
  if (document.getElementsByTagName("input")[i].name != "Vers"){
    if (document.getElementsByTagName("input")[i].name != "AbHJ"){
      if (document.getElementsByTagName("input")[i].name != "AbHN"){
        document.getElementsByTagName("input")[i].checked = false;
      }
    }
  }
}
GetBest();
}

function ChkAbhJ()
{
  if (document.PktClc.AbHJ.checked == false) document.PktClc.AbHN.checked = true
  GetBest()
}
function ChkAbhN()
{
  if (document.PktClc.AbHJ.checked == false) document.PktClc.AbHJ.checked = true
  GetBest()
}

function ET(eid)
{
  if (window.event.keyCode == 13){
    GetBest();
  }
}

function CF()
{
document.PktClc.FormatWahl.selectedIndex = 0;
    GetBest();
}