// Copyright 2002 Guenther Starnberger <gst@atnet.at>, ATnet http://www.atnet.at/

var da = (document.all) ? 1 : 0;
var pr = (window.print) ? 1 : 0;
var mac = (navigator.userAgent.indexOf("Mac") != -1); 

if (da && !pr && !mac) with (document) {
  writeln('<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>');
  writeln('<' + 'SCRIPT LANGUAGE="VBScript">');
  writeln('Sub window_onunload');
  writeln('  On Error Resume Next');
  writeln('  Set WB = nothing');
  writeln('End Sub');
  writeln('Sub vbPrintPage');
  writeln('  OLECMDID_PRINT = 6');
  writeln('  OLECMDEXECOPT_DONTPROMPTUSER = 2');
  writeln('  OLECMDEXECOPT_PROMPTUSER = 1');
  writeln('  On Error Resume Next');
  writeln('  WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER');
  writeln('End Sub');
  writeln('<' + '/SCRIPT>');
}


function UpdateFelder() {
try {
  var FeldWerte = document.FormDaten.AuswahlListe.value.split('~');
  
  //document.FormDaten.W_Firma_4.value=document.FormDaten.AuswahlListe.options[document.FormDaten.AuswahlListe.selectedIndex].text;
  document.FormDaten.W_Firma_4.value=FeldWerte[3];
  document.FormDaten.W_PLZ_4.value=FeldWerte[0];
  document.FormDaten.W_Adresse_4.value=FeldWerte[1];
  document.FormDaten.W_HNr_4.value=FeldWerte[2];
  //document.FormDaten.W_HNrZus_4.value=FeldWerte[3];
} catch(e) {}

}

function UpdateVeloceFelder() {
try {
  var FeldWerte = document.FormDaten.AuswahlListe.value.split('~');

  if(FeldWerte[0]) {
  //document.FormDaten.W_Firma_3.value=document.FormDaten.AuswahlListe.options[document.FormDaten.AuswahlListe.selectedIndex].text;
  document.FormDaten.W_Firma_3.value=FeldWerte[5];
  document.FormDaten.W_PLZ_3.value=FeldWerte[0];
  document.FormDaten.W_Adresse_3.value=FeldWerte[1];
  document.FormDaten.W_HNr_3.value=FeldWerte[2];
  document.FormDaten.W_HNrZus_3.value=FeldWerte[3];
  document.FormDaten.W_Kundennummer_3.value=FeldWerte[4];}
} catch(e) {}

}

function UpdateVeloceAbsenderFelder() {
try {
  var FeldWerte = document.FormDaten.AuswahlListe.value.split('~');

  if(FeldWerte[0]) {
  //document.FormDaten.W_Firma_1.value=document.FormDaten.AuswahlListe.options[document.FormDaten.AuswahlListe.selectedIndex].text;
  document.FormDaten.W_Firma_1.value=FeldWerte[5];
  document.FormDaten.W_PLZ_1.value=FeldWerte[0];
  document.FormDaten.W_Adresse_1.value=FeldWerte[1];
  document.FormDaten.W_HNr_1.value=FeldWerte[2];
  document.FormDaten.W_HNrZus_1.value=FeldWerte[3];
  document.FormDaten.W_Kundennummer_1.value=FeldWerte[4];}
} catch(e) {}

}

// Binary search
function binarySearch(key,length)
{
  var low = 0;                    // low subscript
  var high = document.FormDaten.AuswahlListe.length - 1; // high subscript
  var middle;                     // middle subscript
  //var key = document.FormDaten.W_Firma_4.value.toLowerCase();

  key = key.replace(/ä/,"ae");
  key = key.replace(/ö/,"oe");
  key = key.replace(/ü/,"ue");

  while ( low <= high ) {
   middle = Math.floor ( ( low + high ) / 2 );

    try {
     mstring = document.FormDaten.AuswahlListe.options[middle].text.substr(0,length).toLowerCase();
    } catch(e) { mstring = ""; }

    mstring = mstring.replace(/ä/,"ae");
    mstring = mstring.replace(/ö/,"oe");
    mstring = mstring.replace(/ü/,"ue");

    if (( key == mstring )  && (length > 0)) // match
     return middle

    else if ( key < mstring )
      high = middle - 1; // search low end of array
    else
      low = middle + 1;  // search high end of array
    }

//return -1;   // searchKey not found

return 0;    // return best matching key
}



function Aktualisieren() {
//  for(i=0;i<document.FormDaten.AuswahlListe.length;i++) {
//    if((document.FormDaten.AuswahlListe.options[i].text.substr(0,document.FormDaten.W_Firma_4.value.length).toLowerCase() == document.FormDaten.W_Firma_4.value.toLowerCase()) && document.FormDaten.W_Firma_4.value.length >0 ) {
//      document.FormDaten.AuswahlListe.selectedIndex=i;
//      break;
//    }
//  }
  document.FormDaten.AuswahlListe.selectedIndex=binarySearch(document.FormDaten.W_Firma_4.value.toLowerCase(),document.FormDaten.W_Firma_4.value.length);
}



function VeloceAktualisieren() {
//  for(i=0;i<document.FormDaten.AuswahlListe.length;i++) {
//    if((document.FormDaten.AuswahlListe.options[i].text.substr(0,document.FormDaten.W_Firma_3.value.length).toLowerCase() == document.FormDaten.W_Firma_3.value.toLowerCase()) && document.FormDaten.W_Firma_3.value.length >0 ) {
//      document.FormDaten.AuswahlListe.selectedIndex=i;
//      break;
//    }
//  }
  document.FormDaten.AuswahlListe.selectedIndex=binarySearch(document.FormDaten.W_Firma_3.value.toLowerCase(),document.FormDaten.W_Firma_3.value.length);
}


function VeloceAbsenderAktualisieren() {
//  for(i=0;i<document.FormDaten.AuswahlListe.length;i++) {
//    if((document.FormDaten.AuswahlListe.options[i].text.substr(0,document.FormDaten.W_Firma_1.value.length).toLowerCase() == document.FormDaten.W_Firma_1.value.toLowerCase()) && document.FormDaten.W_Firma_1.value.length >0 ) {
//      document.FormDaten.AuswahlListe.selectedIndex=i;
//      break;
//    }
//  }
  document.FormDaten.AuswahlListe.selectedIndex=binarySearch(document.FormDaten.W_Firma_1.value.toLowerCase(),document.FormDaten.W_Firma_1.value.length);
}


function FillTourDate() {
  var Tourstring = document.FormDaten.TourAuswahl.value;
  var TourWerte = Tourstring.split('~');

  // 2 Variablen benoetigt wg. Bug in Mac IE

  document.FormDaten.W_abholzeit.value=TourWerte[1];
  document.FormDaten.Gueltigkeit.value=TourWerte[3]+" - "+TourWerte[2];
}

// Loeschen der Feldinhalte fuer Logistik
function VelReset() {
  document.FormDaten.AuswahlListe.selectedIndex=0;
  document.FormDaten.TourAuswahl.selectedIndex=0;
  FillTourDate();
  document.FormDaten.W_Sendungsnummer_4.value="";
  document.FormDaten.W_Firma_4.value="";
  document.FormDaten.W_PLZ_4.value="";
  document.FormDaten.W_Adresse_4.value="";
  document.FormDaten.W_HNr_4.value="";
  document.FormDaten.W_HNrZus_4.value="";
  document.FormDaten.W_Name_4.value="";
  document.FormDaten.W_Tel_4.value="";
  document.FormDaten.W_Zufahrtshinweise_4.value="";
  document.FormDaten.W_Termin_4_1.value="";
  document.FormDaten.W_Termin_4_2.value="";
  document.FormDaten.W_Gewicht_4.value="";
  document.FormDaten.W_kst_4.value="";
  document.FormDaten.W_referenz_4.value="";
  document.FormDaten.W_Besondere_Hinweise.value="";
  document.FormDaten.neuopen.value="1";
  document.FormDaten.submit();
}

// Loeschen der Feldinhalte fuer Veloce
function VeloceReset() {
  document.FormDaten.AuswahlListe.selectedIndex=0;
  document.FormDaten.W_Kostenstelle_A.value="";
  document.FormDaten.W_Kundenreferenz_A.value="";
  //document.FormDaten.W_Rechnungsempfaenger.value="";
  document.FormDaten.W_Firma_1.value="";
  document.FormDaten.W_Kundennummer_1.value="";
  document.FormDaten.W_PLZ_1.value="";
  document.FormDaten.W_Adresse_1.value="";
  document.FormDaten.W_HNr_1.value="";
  document.FormDaten.W_HNrZus_1.value="";
  document.FormDaten.W_NameTelNrZufahrtshinweise_1.value="";
  //document.FormDaten.W_KZ_AZT_ABU_1.value="";
  document.FormDaten.W_Termin_1_1.value="";
  document.FormDaten.W_Termin_1_2.value="";
  //document.FormDaten.W_DatumAbholung_1.value="";
  document.FormDaten.W_Firma_3.value="";
  document.FormDaten.W_Kundennummer_3.value="";
  document.FormDaten.W_PLZ_3.value="";
  document.FormDaten.W_Adresse_3.value="";
  document.FormDaten.W_HNr_3.value="";
  document.FormDaten.W_HNrZus_3.value="";
  document.FormDaten.W_NameTelNrZufahrtshinweise_3.value="";
  document.FormDaten.W_Termin_3_1.value="";
  document.FormDaten.W_Termin_3_2.value="";
  //document.FormDaten.W_Frachtzahler.value="";
  //document.FormDaten.W_Transportgut.value="";
  //document.FormDaten.W_Service.value="";
  document.FormDaten.W_Sendungsnummern.value="";
  document.FormDaten.W_Besondere_Hinweise_Sendungsbeschreibung.value="";
  document.FormDaten.neuopen.value="1";

  document.FormDaten.W_Termin_4_1.value="";
  document.FormDaten.W_Termin_4_2.value="";

  // Frachtzahler = Auftraggeber
  document.FormDaten.W_Frachtzahler[0].checked=true;

  // Transportgut = Minipac
  document.FormDaten.W_Transportgut[2].checked=true;

  // Service = Veloce
  document.FormDaten.W_Service[0].checked=true;

  document.FormDaten.W_KZ_AZT_ABU_1[0].checked=true;
  document.FormDaten.W_KZ_AZT_ABU_3[0].checked=true;
  document.FormDaten.W_KZ_AZT_ABU_4[0].checked=true;

  document.FormDaten.tourretour.checked=false;

  document.FormDaten.submit();
  return true;
}


// Drucken der aktuellen Seite
function PrintPage() {
  if (pr) // NS4, IE5
    window.print()
  else if (da && !mac) // IE4 (Windows)
    vbPrintPage()
  return false;
}

function LadeListe() {
  var URL;
  var myWindow;
//try {
  URL ="ladeliste.php?benutzername="+(document.LadeListe.benutzername.value)+"&passwort="+(document.LadeListe.passwort.value);
  myWindow = window.open(URL, "ladelistewindow", "location=no,menubar=yes,toolbar=yes,scrollbars=yes,resizable=yes");
  myWindow.focus();
  //window.open("blank.htm", "ladelistewindow");
  //document.LadeListe.submit();
//} catch(e) {}
}

function VeloceTauschen() {
  document.FormDaten.tauschen.value='tauschen';
  document.FormDaten.submit();
  return true;
}

function OpenVeloceWindow() {
  window.open('weborder_veloce.php?benutzername='+document.logistik.benutzername.value+'&passwort='+document.logistik.passwort.value+'&neuopen=1', "orderwindow", "width=850,height=500,screenx=850,screeny=500,scrollbars=no,resizable=yes,scrollbars=no");
  //window.open("blank.htm", "orderwindow", "width=850,height=500,screenx=850,screeny=500,scrollbars=no,resizable=yes,scrollbars=no");
  return true;
}

function OpenLogistikWindow() {
  window.open('weborder_logistik.php?benutzername='+document.logistik.benutzername.value+'&passwort='+document.logistik.passwort.value+'&neuopen=1','','width=720,height=380,screenx=720,screeny=380,resizable=yes,scrollbars=no');
  //window.open("blank.htm", "orderwindowlogistik", "width=720,height=380,screenx=720,screeny=380,scrollbars=no,resizable=yes,scrollbars=no");
  return true;
}