/*
 * Datei vom 27.08.09 Version 1.02
 * Copyright (c) EDV-Dürrschmidt
 * OnlineShop-MANAGER #OS_VERSION#
 */

// Änderungen in Version 1.02
// - Bei Bestellung ohne Mwst. wurde Mwst. in der EMail angezeigt
// Änderungen in Version 1.01
// - Unterstützung des PayPal-Kontos


window.onerror = IsFehler

function IsFehler(Nachricht,Datei,Zeile)
{
 var Fehler = "Fehlermeldung:\n"+ Nachricht+"\n"+Datei+"\nZeile:"+Zeile;
 alert(Fehler)


 return true;
}


function Text_Laenge(addr,anz)
{
  if (addr.length==anz) 
     return false
  else
     return true
}


function Check_EMail(addr)
{
  if (addr!="") 
  {
     var trennpos=addr.indexOf("@")       

     if (trennpos!=-1)
     {

       var Werte = addr.split("@")
       var dom = Werte[1];
       
       trennpos=dom.indexOf(".")       
       if (trennpos==-1)
          return true
       else
          return false

     }
     else
        return true
  }
  else
     return true
}

function Set_Text(typ,text,lang)
{
   var data = ""
   var n = lang-text.length 
   text=text.slice(0,lang)
   
   for (x=0;x<=n;x++)
       data=data+' '

   if (typ==0) 
      return text+data
   else
      return data+text
}

function Put_Artikel()
{
   Load_Warenkorb();


   var IsText= ""
   var data = "";
   var x = 0;
   var astr = ""
   var preis = 0
   var ipreis = 0
   //Nur für Internetexplorer
   if (document.all) 
      var wtemp=document.all.tags("body")[0].innerHTML;
   else
   {
      if (document.getElementById("Dokumentinhalt")!=null)
      {
         var wtemp=document.getElementById("Dokumentinhalt").innerHTML;
      }
   }

   data="";	

   for (x=0;x<=bNr.length-1;x++)
   {
      
       if (Mit_Mwst)  
          iPreis=bPreis[x]
       else
          iPreis=Get_Netto(bPreis[x],bMwst[x])


       if (x>>0) 
          data=data+TRENNZEICHEN
       data=data+bNr[x]+TRENNZEICHEN+bAnzahl[x]+TRENNZEICHEN+change_char(Get_Netto(bPreis[x],bMwst[x]),'.',',');

       preis=parseFloat(iPreis)*parseFloat(bAnzahl[x])
       preis=preis.toFixed(2) 
       preis=change_char(preis,'.',',');


       astr=astr+"\n"+Set_Text(1,bAnzahl[x],5)+" x "+Set_Text(0,bName[x],60)+Set_Text(1,preis,10)+" €"

   }

   IsText='<input type="hidden" name="Artikelanzahl"  value="'+bNr.length+'">';
   IsText=IsText+'<input type="hidden" name="Artikel"  value="'+data+'">';

   var LiefBetrag1=Check_Lieferung(wLiefBetrag1,wLiefWert1);
   var LiefBetrag2=Check_Lieferung(wLiefBetrag2,wLiefWert2);
   var LiefBetrag3=Check_Lieferung(wLiefBetrag3,wLiefWert3);
   var summe=0;
   if (Mit_Mwst) 
      wSumme=change_char(wSumme,',','.')
   else
      wSumme=change_char(wNetto,',','.')
   summe=Add_Betrag(summe,wSumme);  
   if (LIEF1_Aktiv==1)  
      summe=Add_Betrag(summe,LiefBetrag1);  
   if (LIEF2_Aktiv==1)  
      summe=Add_Betrag(summe,LiefBetrag2);  
   if (LIEF3_Aktiv==1)     
      summe=Add_Betrag(summe,LiefBetrag3);  

   IsText=IsText+'<input type="hidden" name="MitMwst" value="'+Mit_Mwst+'">';
   IsText=IsText+'<input type="hidden" name="Waehrung" value="€">';
   IsText=IsText+'<input type="hidden" name="Mwst" value="'+fMwst+'">';
   IsText=IsText+'<input type="hidden" name="Nettobetrag" value="'+wNetto+'">';
   if (Mit_Mwst)  
      IsText=IsText+'<input type="hidden" name="Mwstbetrag" value="'+wMwst+'">';
   else
      IsText=IsText+'<input type="hidden" name="Mwstbetrag" value="0,00">';
   wSumme=change_char(wSumme,'.',',')
   IsText=IsText+'<input type="hidden" name="Bruttobetrag" value="'+wSumme+'">';
   if (LIEF1_Aktiv==1)  
      IsText=IsText+'<input type="hidden" name="Lieferung1" value="'+Add_Betrag(LiefBetrag1,0)+'; '+TextLieferung1+'">'
   else
      IsText=IsText+'<input type="hidden" name="Lieferung1" value="">' 
   if (LIEF2_Aktiv==1)     
      IsText=IsText+'<input type="hidden" name="Lieferung2" value="'+Add_Betrag(LiefBetrag2,0)+'; '+TextLieferung2+'">'
   else
      IsText=IsText+'<input type="hidden" name="Lieferung2" value="">' 
   if (LIEF3_Aktiv==1)  
      IsText=IsText+'<input type="hidden" name="Lieferung3" value="'+Add_Betrag(LiefBetrag3,0)+'; '+TextLieferung3+'">'
   else
      IsText=IsText+'<input type="hidden" name="Lieferung3" value="">' 
   IsText=IsText+'<input type="hidden" name="Gesamtbetrag" value="'+summe+'">';


   IsText=IsText+'<input type="hidden" name="Bestellung" value="'+astr+'">';

   //Nur für Internetexplorer
   if (document.all) 
      var wtemp=document.all.tags("body")[0].innerHTML;
   else
   {
      if (document.getElementById("Dokumentinhalt")!=null)
      {    
         var wtemp=document.getElementById("Dokumentinhalt").innerHTML;
      }
   }

   
   if (wtemp!=null)
   {
      wtemp=wtemp.replace("#BST_ARTIKEL#",IsText);       

      //Nur für Internetexplorer
      if (document.all) 
         document.all.tags("body")[0].innerHTML=wtemp;
      else
         document.getElementById("Dokumentinhalt").innerHTML=wtemp;
   }
}


function Bestellen()
{
   var Text1 = "Bitte füllen Sie folgende Felder aus:"
   var IsText = ""
   var ok = false
   //Nur für Internetexplorer
   if (document.all)
      var wtemp=document.all.tags("body")[0].innerText
   else
      var wtemp=document.getElementById("Dokumentinhalt").innerHTML
   
   if (wtemp.indexOf("Vorname:")>0)
   {
     if (document.Formular.Vorname.value=="")
        IsText=IsText+"\n-> Vorname:"
   }
   if (wtemp.indexOf("Nachname:")>0)
   {
     if (document.Formular.Nachname.value=="")
        IsText=IsText+"\n-> Nachname:"
   }
   if (wtemp.indexOf("Firma:")>0)
   {
     if (document.Formular.Firma.value=="")
        IsText=IsText+"\n-> Firma:"
   }
   if (wtemp.indexOf("Straße und Hausnr.:")>0)
   {
     if (document.Formular.Strasse.value=="")
        IsText=IsText+"\n-> Straße und Hausnr.:"
   }
   if (wtemp.indexOf("Postleitzahl / Ort:")>0)
   {
     if (document.Formular.PLZ.value=="")
        IsText=IsText+"\n-> Postleitzahl / Ort:"
   }
   if (wtemp.indexOf("Ort:")>0)
   {
     if (document.Formular.Ort.value=="")
        IsText=IsText+"\n-> Ort:"
   }
   if (wtemp.indexOf("Land:")>0)
   {
     if (document.Formular.Land.value=="")
        IsText=IsText+"\n-> Land:"
   }
   if (wtemp.indexOf("E-Mailadresse:")>0)
   {
     if ((document.Formular.EMail.value=="") || (Check_EMail(document.Formular.EMail.value)))
        IsText=IsText+"\n-> E-Mailadresse:"
   }
   if (wtemp.indexOf("USt-Id.Nr:")>0)
   {
     if (document.Formular.UStId.value=="")
        IsText=IsText+"\n-> USt-Id.Nr:"
   }
   if (wtemp.indexOf("Registriernummer:")>0)
   {
     if ((Text_Laenge(document.Formular.Registriernummer.value,14)) && !document.Formular.KeineInstallation.checked)
        IsText=IsText+"\n-> Registriernummer:"
   }
   if (IsText=="")
   {
       ok=true
       Loesche_Warenkorb(true)
       window.status ="Bestellung mit Vorabüberweisung wurde verschickt !"
   }
   else
      alert(Text1+IsText)
   
   return ok

}

function Set_Funktionen()
{
   if (document.getElementById("Dokumentinhalt")!=null)
   {
      if (document.getElementsByName("Anrede")[0]!=null)
{
  if (document.getElementById("Anrede")!=null)
  {
    if (document.Formular.Anrede.value=="")
    {
       document.Formular.Anrede.value="Herr"
    }
  }
}
if (document.getElementsByName("Land")[0]!=null)
{
  if (document.getElementById("Land")!=null)
  {
     var isLand = "Deutschland";
 
     if(typeof(SelLand)!="undefined")
     {
        if (SelLand=="DE")
           isLand="Deutschland";
        if (SelLand=="CH")
           isLand="Schweiz";
        if (SelLand=="AT")
           isLand="Österreich";
        if (SelLand=="")
           isLand="";
     }    
    
     document.Formular.Land.value=isLand;
  }
}
if (Mit_Mwst)
{
    if (document.getElementById("UStId")!=null)
       document.getElementById("UStId").innerHTML=""
}
var ok = true
var x = 0

for (x=0;x<=bNr.length-1;x++)
{
     if ((bNr[x]=="1000") || (bNr[x]=="1001") || (bNr[x]=="1002") || (bNr[x]=="1003") || (bNr[x]=="1004") || (bNr[x]=="1005") || (bNr[x]=="1007") || (bNr[x]=="1008") || (bNr[x]=="10500"))
         ok=false
}

var wtemp=document.getElementById("Dokumentinhalt").innerHTML
if (ok)
{
   wtemp=wtemp.replace(/#HEADER_12#/ig,"")
   //Nur für Internetexplorer
   if (document.all)
      wtemp=wtemp.replace(/#CLHEADER_12#/ig,"BGCOLOR=#FFFFFF")
   else
      wtemp=wtemp.replace(/#CLHEADER_12=""/ig,"BGCOLOR=#FFFFFF")
}
else
{
   wtemp=wtemp.replace(/#HEADER_12#/ig,"Registrierung der Software")
   //Nur für Internetexplorer
   if (document.all)
      wtemp=wtemp.replace(/#CLHEADER_12#/ig,"BGCOLOR=#C0C0C0")
   else
      wtemp=wtemp.replace(/#CLHEADER_12=""/ig,"BGCOLOR=#C0C0C0")
}
document.getElementById("Dokumentinhalt").innerHTML=wtemp
var ok = true
var x = 0

for (x=0;x<=bNr.length-1;x++)
{
     if ((bNr[x]=="1000") || (bNr[x]=="1001") || (bNr[x]=="1002") || (bNr[x]=="1003") || (bNr[x]=="1004") || (bNr[x]=="1005") || (bNr[x]=="1007") || (bNr[x]=="1008") || (bNr[x]=="10500"))
         ok=false
}

if (ok)
{
   if (document.getElementById("Registriernummer")!=null)
      document.getElementById("Registriernummer").innerHTML=""
}
var ok = true
var x = 0

for (x=0;x<=bNr.length-1;x++)
{
     if ((bNr[x]=="1000") || (bNr[x]=="1001") || (bNr[x]=="1002") || (bNr[x]=="1003") || (bNr[x]=="1004") || (bNr[x]=="1005") || (bNr[x]=="1007") || (bNr[x]=="1008") || (bNr[x]=="10500"))
         ok=false
}

if (ok)
{
   if (document.getElementById("KeineInstallation")!=null)
      document.getElementById("KeineInstallation").innerHTML=""
}


      if (SelLand=="CH")
      {
         if (document.getElementById("UStId")!=null)
            document.getElementById("UStId").innerHTML=""
      }
   }
}

function LoadKundenData()
{
   var cookie_val=GetCookie("eSM_FORMULARDATEN_#FORMULAR_NR#"); 

   if (cookie_val)
   {
      var tmp = cookie_val
      var Werte = tmp.split("#;#")
      if (document.Formular!=null)
      {
         document.Formular.Anrede.value=Werte[0]
         document.Formular.Vorname.value=Werte[1]
         document.Formular.Nachname.value=Werte[2]
         document.Formular.Firma.value=Werte[3]
         document.Formular.Strasse.value=Werte[4]
         document.Formular.PLZ.value=Werte[5]
         document.Formular.Ort.value=Werte[6]
         document.Formular.Land.value=Werte[7]
         document.Formular.EMail.value=Werte[8]
         document.Formular.UStId.value=Werte[9]
         document.Formular.Registriernummer.value=Werte[10]
         document.Formular.KeineInstallation.value=Werte[11]
         document.Formular.Kundennummer.value=Werte[12]
         document.Formular.Telefon.value=Werte[13]
         document.Formular.Fax.value=Werte[14]
         document.Formular.Info1.value=Werte[15]
         document.Formular.Info2.value=Werte[16]
      }

   }

   Put_Artikel();
   
   Set_Funktionen();


}

function Check_SoftwareKey()
{
  var ok = true
  var x = 0

  for (x=0;x<=bNr.length-1;x++)
  {
     if ((bNr[x]=="1000") || (bNr[x]=="1001") || (bNr[x]=="1002") || (bNr[x]=="1003") || (bNr[x]=="1004") || (bNr[x]=="1005") || (bNr[x]=="1006") || (bNr[x]=="1007") || (bNr[x]=="1008") || (bNr[x]=="10500"))
         ok=false
  }

  if (ok)
  {
     if (document.getElementById("SoftwareKey")!=null)
       document.getElementById("SoftwareKey").innerHTML="";
  } 

  
  if (Mit_Mwst) 
  {
     if (document.getElementById("KUStID")!=null)
        document.getElementById("KUStID").innerHTML="";
  }
}




function Save()
{
   var tmp = ""
   var verfall = new Date ();
   verfall.setTime (verfall.getTime() + (12 * 30 * 24 * 60 * 60 * 1000));
   verfall=null

      //Nur für Internetexplorer
   if (document.all)
      var wtemp=document.all.tags("body")[0].innerText
   else
      var wtemp=document.getElementById("Dokumentinhalt").innerHTML
   
   if (wtemp.indexOf("Anrede:")>0)
      tmp=tmp+document.Formular.Anrede.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Vorname:")>0)
      tmp=tmp+document.Formular.Vorname.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Nachname:")>0)
      tmp=tmp+document.Formular.Nachname.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Firma:")>0)
      tmp=tmp+document.Formular.Firma.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Straße und Hausnr.:")>0)
      tmp=tmp+document.Formular.Strasse.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Postleitzahl / Ort:")>0)
      tmp=tmp+document.Formular.PLZ.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Ort:")>0)
      tmp=tmp+document.Formular.Ort.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Land:")>0)
      tmp=tmp+document.Formular.Land.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("E-Mailadresse:")>0)
      tmp=tmp+document.Formular.EMail.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("USt-Id.Nr:")>0)
      tmp=tmp+document.Formular.UStId.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Registriernummer:")>0)
      tmp=tmp+document.Formular.Registriernummer.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("")>0)
      tmp=tmp+document.Formular.KeineInstallation.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Kundennummer:")>0)
      tmp=tmp+document.Formular.Kundennummer.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Telefon:")>0)
      tmp=tmp+document.Formular.Telefon.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Fax:")>0)
      tmp=tmp+document.Formular.Fax.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Information:")>0)
      tmp=tmp+document.Formular.Info1.value+"#;#"
   else
      tmp=tmp+"0#;#"
   if (wtemp.indexOf("Zusätzliche Mitteilung:")>0)
      tmp=tmp+document.Formular.Info2.value+"#;#"
   else
      tmp=tmp+"0#;#"


   SetCookie ("eSM_FORMULARDATEN_#FORMULAR_NR#",tmp,verfall)
}