//
// pat_shop.js
//
// 05.07.16  äöü

/*
p_Shop
f_Shop_Nummer_viaLocal
p_Shop_Nummer_viaLocal
f_Shop_Zahlart
f_Shop_Vorspann_eruieren
f_Shop_Rohwert_eruieren
f_Shop_Position
f_Shop_Kosten
p_Shop_zeigen
p_Shop_auflisten
p_Shop_drucken
p_Shop_senden
f_Shop_Kaschieren
p_Shop_Taste_set
p_Shop_Taste_auf
p_Shop_Taste_weg
p_Shop_leeren
f_Shop_Nummer_viaServer
*/


/////
/////
function p_Shop(nMulti,cWahl,cArtikelRoh,cErsatz1,cErsatz2,cErsatz3)
{

//Variablen leer
var xDummy;
var lSoll;
var i,nAnzahl,nVon;
var cArtNum,cDummy;
var aNach0        =new Array(1);
var aVorspann     =new Array(1);
var aRohAlt       =new Array(1);
var aPosition     =new Array(2);
var aKosten       =new Array(1);

//Variablen füllen
var cArtikel      =cArtikelRoh.substr(4,5);
var nArtikel      =parseInt(cArtikel);
//
var oZeit11="";
var nMal11 =0;
var nBis11 =0;


//Stückzahl-Eingabefeld
  if (typeof(eval("top.iframe_start."+cArtikelRoh))=="undefined")
    {
    //nein, nicht vorhanden
    window.alert("interner Fehler: 55\n\n"+
                 "Warenkorb und Feldname nicht identisch\n\n"+
                 "Artikel kann zur Zeit nicht ausgewählt werden");
    }

  else
    {
    //ja, vorhanden

    //Inhalt Stückzahlfeld holen
    xDummy=parseInt(document.getElementById("Art_"+cArtikel).value);

    //allenfalls NaN auf echte 0 setzen
      if (isNaN(xDummy)==false)
        {
        nAnzahl=xDummy;
        }
      else
        {
        nAnzahl=0;
        }  //endIf

    //Anzahl
      if (nAnzahl==0)
        {
        //nein, ungültige Anzahl
        window.alert("keine gültige Auswahl");
        }

      else
        {
        //ja, gültige Anzahl

        //DB überprüfen
          if (eval("top.cArtikelstamm.search(/"+cArtikelRoh+"/)")==-1)
            {
            //nein, nicht in Datenbank
            window.alert("interner Fehler: 23\n\n"+
                         "DB und htm nicht identisch\n\n"+
                         "Artikel kann zur Zeit nicht ausgewählt werden");
            }

          else
            {
            //ja, in Datenbank

            //aus Artikelstamm Artikelnummer holen
            nVon   =top.cArtikelstamm.indexOf("Art_"+(nArtikel-1))+10;  //Beginn der Zeile 8
            cArtNum=top.cArtikelstamm.substr(nVon,8)

            //Artikelstamm und HTM identisch
              if (cArtNum!=document.getElementsByName(cArtikelRoh)[0].getAttribute("datafld"))
                {
                //nein, nicht identisch
                window.alert("interner Fehler: 32\n\n"+
                             "DB und htm nicht identisch\n\n"+
                             "Artikel kann zur Zeit nicht ausgewählt werden");
                }

              else
                {
                //ja, identisch

                //wenn Bestellung leer, wirklich leeren
                  if (top.cInhalt.search(/noch keine Artikel ausgewählt./ig)>-1)
                    {
                    top.cInhalt="";
                    }  //endIf

                //
                  if (cWahl==1)
                    {
                    top.aShop[6]=1;  //AdminAnteil Sperre
                    top.aShop[7]=1;  //AdminAnteil Zuschlag
                    top.kSpedi=(parseFloat(top.kSpediRet)+
                                parseFloat(top.kSpediPlus5)).toFixed(2).toString();
                    }  //endIf

            /////wenn ganz neue Bestellung
                  if (top.cInhalt.length==0)
                    {

                    //Taste drucken aktualisieren
                    top.aShop[2]=0;

                    //Nachspann vervollständigen
                    aNach0=f_Shop_Zahlart();  //swu

                    //Rechnungsnummer erzeugen
                      if (top.cNummer.length==0)
                        {
                        //ist online ?
                          if (top.IsLocal=="ja")
                            {
                            //offline
                            top.cNummer=f_Shop_Nummer_viaLocal();
                            }
                          else
                            {
                            //online
//                            top.cNummer=f_Shop_Nummer_viaServer();
                            top.cNummer=f_Shop_Nummer_viaLocal();
                            }  //endIf  online
                        }  //endIf  Rechnungsnummer

                    //Position erzeugen
                    aPosition=f_Shop_Position(nAnzahl,cArtikel,cErsatz1,cErsatz2,cErsatz3);  //swu

                    //Kosten erzeugen
                    aKosten=f_Shop_Kosten(0,aPosition[1]);  //swu

                    //Bestellung zusammenstellen
                    top.cInhalt=top.cNummer+
                                "                                    "+
                                top.kDatum+"\n\n"+
                                aPosition[0]+"\n\n"+
                                aKosten[0]+"\n\n"+
                                top.cNach1+aNach0[0]+"\n\n"+top.cNach2;

                    //aktualisierte Bestellung zeigen ?
                    lSoll=window.confirm(cArtNum+" mit "+nAnzahl+" Stück, "+
                                         "in Bestellung übernommen.  "+
                                         "\n\n\n"+
                                         "aktuallisierte Bestellung jetzt zeigen ?  ");
                      if (lSoll==true)
                        {
                        p_Shop_zeigen(1,"");  //swu
                        }  //endIf
                    }


            /////Bestellung erweitern
                  else
                    {

                    /////Artikel noch nicht in der Bestellung und Anzahl>0, also neuer Artikel
                      if ((eval("top.cInhalt.search(/"+cArtNum+"/i)")==-1 && nAnzahl>0)
                          ||
                          nMulti==1 && nAnzahl>0)
                        {

                        //Taste drucken aktuallisieren
                        top.aShop[2]=0;

                        //Nachspann vervollständigen
                        aNach0=f_Shop_Zahlart();  //swu

                        //Vorspann erzeugen
                        aVorspann=f_Shop_Vorspann_eruieren();  //swu

                        //Betrag Rohwert bilden aus bestehendem Shopsinhalt
                        aRohAlt=f_Shop_Rohwert_eruieren();  //swu

                        //Position erzeugen
                        aPosition=f_Shop_Position(nAnzahl,cArtikel,cErsatz1,cErsatz2,cErsatz3);  //swu

                        //Kosten erzeugen
                        aKosten=f_Shop_Kosten(aRohAlt[0],aPosition[1]);  //swu

                        //Bestellung zusammenstellen
                        top.cInhalt=aVorspann[0]+"\n"+
                                    aPosition[0]+"\n\n"+
                                    aKosten[0]+"\n\n"+
                                    top.cNach1+aNach0[0]+"\n\n"+top.cNach2;

                        //aktualisierte Bestellung zeigen ?
                        lSoll=window.confirm(cArtNum+" mit "+nAnzahl+" Stück, "+
                                             "in Bestellung übernommen.  "+
                                             "\n\n\n"+
                                             "aktuallisierte Bestellung jetzt zeigen ?  ");
                          if (lSoll==true)
                            {
                            p_Shop_zeigen(1,"");  //swu
                            }  //endIf
                        }


                    /////Artikel in der Bestellung und Anzahl>0, also eine Doublette
                      else
                        {

                        //aus der Bestellung die Stückzahl holen
                        nVon  =top.cInhalt.indexOf(cArtNum)+47;  //Beginn der Stückzahl
                        cDummy=top.cInhalt.substr(nVon,2);

                        //Meldung
                        document.getElementById("sound_shop").src="./../sound/pat8.wav";
                        lSoll=window.confirm(cArtNum+" mit "+cDummy+" Stück, "+
                                             "schon in der Bestellung.  \n\n"+
                                             "Zum ändern, ganze Bestellung leeren und neu beginnen.  "+
                                             "\n\n\n"+
                                             "Bestellung jetzt leeren ?  ");
                          if (lSoll==true)
                            {
                            p_Shop_leeren(0);
                            }  //endIf

                        }  //endIf  Doublette

                    }  //endIf  Bestellung neu

                }  //endIf  identisch

            }  //endIf  in DB

        }  //endIf  Anzahl

    }  //endIf  Stückzahl-Eingabefeld

return;
}  //endProz


/////
/////
function f_Shop_Nummer_viaLocal()
{

//Variablen leer
var oJetzt,cJahrL,cJahrK,cMonat,cTagL,cTagK,cStunde,cMinute,cSekunde;
var aRechnung   =new Array(1);

//Variablen füllen


//verarbeiten
oJetzt  =new Date();
cJahrL  =String(oJetzt.getYear());
cJahrK  =cJahrL.substr(3,1);
cMonat  =String(oJetzt.getMonth()+1);
cMonat  =((cMonat<10) ? "0"+cMonat:cMonat);
cTagK   =oJetzt.getDate();
cTagL   =((cTagK<10) ? "0"+cTagK:cTagK);
cTagK   =((cTagK<10) ? " "+cTagK:cTagK);  //05.02.01
cStunde =oJetzt.getHours();
cStunde =((cStunde<10) ? "0"+cStunde:cStunde);
cMinute =oJetzt.getMinutes();
cMinute =((cMinute<10) ? "0"+cMinute:cMinute);
cSekunde=oJetzt.getSeconds();
cSekunde=((cSekunde<10) ? "0"+cSekunde:cSekunde);

//Rückgabe
aRechnung[0]=cJahrK+"4"+cMonat+"-"+cTagL+cStunde+"-"+cMinute+cSekunde;
//top.cDatum  =cTagK+"."+cMonat+"."+cJahrL;

return (aRechnung);
}  //endFunk


/////
/////
function p_Shop_Nummer_viaLocal()
{

//Variablen leer
var oJetzt,cJahrL,cJahrK,cMonat,cTagL,cTagK,cStunde,cMinute,cSekunde;

//Variablen füllen


//verarbeiten
oJetzt  =new Date();
cJahrL  =String(oJetzt.getYear());
cJahrK  =cJahrL.substr(3,1);
cMonat  =String(oJetzt.getMonth()+1);
cMonat  =((cMonat<10) ? "0"+cMonat:cMonat);
cTagK   =oJetzt.getDate();
cTagL   =((cTagK<10) ? "0"+cTagK:cTagK);
cTagK   =((cTagK<10) ? " "+cTagK:cTagK);  //05.02.01
cStunde =oJetzt.getHours();
cStunde =((cStunde<10) ? "0"+cStunde:cStunde);
cMinute =oJetzt.getMinutes();
cMinute =((cMinute<10) ? "0"+cMinute:cMinute);
cSekunde=oJetzt.getSeconds();
cSekunde=((cSekunde<10) ? "0"+cSekunde:cSekunde);

//Rückgabe
top.cNummer=cJahrK+"4"+cMonat+"-"+cTagL+cStunde+"-"+cMinute+cSekunde;
//top.cDatum =cTagK+"."+cMonat+"."+cJahrL;

return;
}  //endProz


/////
/////
function f_Shop_Zahlart()
{

//Variablen leer

//Variablen füllen
var aNach0    =new Array(1);


//verarbeiten
  if (top.nZahlart==1)
    {
    aNach0[0]=top.kTele;
    }  //endIf
  if (top.nZahlart==2)
    {
    aNach0[0]=top.kCash;
    }  //endIf
  if (top.nZahlart==3)
    {
    aNach0[0]=top.kFaktura;
    }  //endIf

//Rückgabe vorbereiten, siehe bei Verarbeitung

return (aNach0);
}  //endFunk


/////
/////
function f_Shop_Vorspann_eruieren()
{

//Variablen leer
var nBis;
var aVorspann =new Array(1);

//Variablen füllen


//verarbeiten
  if (eval("top.cInhalt.search(/-"+top.kRabatt+"% Rabatt =/)")==-1)  //kein Rabatt
    {
    nBis        =eval("top.cInhalt.search(/"+top.kAdmin+" =/)")-49-2;  //-2=\n
    aVorspann[0]=top.cInhalt.substr(0,nBis);
    }
  else  //hat Rabatt
    {
    nBis        =eval("top.cInhalt.search(/-"+top.kRabatt+"% Rabatt =/)")-49-2;  //-2=\n
    aVorspann[0]=top.cInhalt.substr(0,nBis);
    }  //endIf

//Rückgabe vorbereiten, siehe bei Verarbeitung

return (aVorspann);
}  //endFunk


/////
/////
function f_Shop_Rohwert_eruieren()
{

//Variablen leer
var nVon,nTotal,nMWSt,nSpedi,nRabatt;
var aRohAlt   =new Array(1);

//Variablen füllen


//verarbeiten
  if (eval("top.cInhalt.search(/-"+top.kRabatt+"% Rabatt =/)")==-1)  //kein Rabatt
    {
    nVon      =eval("top.cInhalt.search(/Total   "+top.kWaehrung+" =/)")+13+1;  //+1=beginnt halt bei 0
    nTotal    =parseFloat(top.cInhalt.substr(nVon,8));
    nVon      =eval("top.cInhalt.search(/MWSt  "+top.kMWSt+"% =/)")+13+1;
    nMWSt     =parseFloat(top.cInhalt.substr(nVon,8));
    nVon      =eval("top.cInhalt.search(/"+top.kAdmin+" =/)")+13+1;
    nSpedi    =parseFloat(top.cInhalt.substr(nVon,8));
    aRohAlt[0]=nTotal-nMWSt-nSpedi;
    }
  else  //hat Rabatt
    {
    nVon      =eval("top.cInhalt.search(/Total   "+top.kWaehrung+" =/)")+13+1;  //+1=beginnt halt bei 0
    nTotal    =parseFloat(top.cInhalt.substr(nVon,8));
    nVon      =eval("top.cInhalt.search(/MWSt  "+top.kMWSt+"% =/)")+13+1;
    nMWSt     =parseFloat(top.cInhalt.substr(nVon,8));
    nVon      =eval("top.cInhalt.search(/"+top.kAdmin+" =/)")+13+1;
    nSpedi    =parseFloat(top.cInhalt.substr(nVon,8));
    nVon      =eval("top.cInhalt.search(/-"+top.kRabatt+"% Rabatt =/)")+13+1;  //+1=beginnt halt bei 0
    nRabatt   =parseFloat(top.cInhalt.substr(nVon,8));
    aRohAlt[0]=nTotal-nMWSt-nSpedi+nRabatt;
    }  //endIf

//Rückgabe vorbereiten, siehe bei Verarbeitung

return (aRohAlt);
}  //endFunk


/////
/////
function f_Shop_Position(nAnzahl,cArtikel,cErsatz1,cErsatz2,cErsatz3)
{

//Variablen leer
var i,nVon,nBis;
var cZeile,cPosition;
var aDummy    =new Array(5);
var aPosition =new Array(2);

//Variablen füllen
var nArtikel  =parseInt(cArtikel);
var cArtNum   ="";  //Artikel-Nummer
var nArtAnz   =0;   //Anzahl
var nArtEin   =0;   //Preis
var cArtLi1   ="";  //Artikeltext Linie 1
var cArtLi2   ="";  //Artikeltext Linie 2
var cArtLi3   ="";  //Artikeltext Linie 3
var nArtTot   =0;   //Anzahl mal Preis


//aus Artikelstamm Datenzeile entnehmen und aufsplitten
nVon  =top.cArtikelstamm.indexOf("Art_"+(nArtikel-1))+10;  //Beginn der Zeile 8
nBis  =top.cArtikelstamm.indexOf("Art_"+cArtikel);  //Ende der Zeile
cZeile=top.cArtikelstamm.slice(nVon,nBis);
aDummy=cZeile.split("|");

//Dummys füllen
cArtNum=aDummy[0];
nArtAnz=nAnzahl;
nArtEin=parseFloat(aDummy[4]);  //.toFixed(2);
cArtLi1=cErsatz1.length==0?aDummy[1]:cErsatz1;
cArtLi2=cErsatz2.length==0?aDummy[2]:cErsatz2;
cArtLi3=cErsatz3.length==0?aDummy[3]:cErsatz3;
nArtTot=nArtAnz*nArtEin;  //).toFixed(2);

//mit Space auf Solllänge auffüllen
  for (i=cArtNum.length; i<8; i++)
    {
    cArtNum=cArtNum+" ";
    }  //endFor
  for (i=cArtLi1.length; i<34; i++)
    {
    cArtLi1=cArtLi1+" ";
    }  //endFor
  if (cArtLi2.length>0)
    {
      for (i=cArtLi2.length; i<34; i++)
        {
        cArtLi2=cArtLi2+" ";
        }  //endFor
    }  //endIf
  if (cArtLi3.length>0)
    {
      for (i=cArtLi3.length; i<34; i++)
        {
        cArtLi3=cArtLi3+" ";
        }  //endFor
    }  //endIf

//
cArtAnz=nArtAnz.toString();
  if (cArtAnz=="0")
    {
    cArtAnz="     ";  //space(5)
    }
  else
    {
      for (i=cArtAnz.length; i<2; i++)
        {
        cArtAnz=" "+cArtAnz;
        }  //endFor
    cArtAnz=cArtAnz+" x ";
    }  //endIf

//
cArtEin=nArtEin.toFixed(2).toString();
  if (cArtEin=="0.00")
    {
    cArtEin="          ";  //space(10)
    }
  else
    {
      for (i=cArtEin.length; i<7; i++)
        {
        cArtEin=" "+cArtEin;
        }  //endFor
    cArtEin=cArtEin+" = ";
    }  //endIf

//
cArtTot=nArtTot.toFixed(2).toString();
  if (cArtTot=="0.00")
    {
    cArtTot="        ";  //space(8)
    }
  else
    {
      for (i=cArtTot.length; i<8; i++)
        {
        cArtTot=" "+cArtTot;
        }  //endFor
    }  //endIf

//Position erzeugen
cPosition=" "+cArtNum+"  "+cArtLi1+"   "+cArtAnz+cArtEin+cArtTot;
  if (cArtLi2.length>0)
    {
    cPosition=cPosition+"\n"+"           "+cArtLi2;
    }  //endIf
  if (cArtLi3.length>0)
    {
    cPosition=cPosition+"\n"+"           "+cArtLi3;
    }  //endIf

//Rückgabe vorbereiten


//window.alert("1vorher:\n"+top.cPosition);


top.cPosition=top.cPosition+"\n"+cPosition;
aPosition[0]=cPosition;
aPosition[1]=nArtTot;


//window.alert("1neu:\n"+aPosition[0]);
//window.alert("1total:\n"+top.cPosition);


return (aPosition);
}  //endFunk


/////
/////
function f_Shop_Kosten(nRoh,nPlus)
{

//Variablen leer
var i,n,nDummy,nVon,nMWSt,nTotal;
var cRoh,cRabatt,cSpedi,cMWSt,cTotal,cDummy,cAktion;
var aKosten       =new Array(1);

//Variablen füllen
var nRabatt       =0;
var cKosten       ="";


//Roh berechnen
nRoh=nRoh+parseFloat(nPlus);

//Rabatt berücksichtigen
  if (top.cAktion.length>0)
    {


/*
    //aus Datenbank Veteranstamm, Rabatt eruieren
    top.kRabatt=f_Main_Lupe_1("top.cVeteranstamm",
                               top.cAktion,
                               2,
                               "|",
                               "0");  //¦ |
*/


    //Roh minus Rabatt
    nRabatt=nRoh/100*parseFloat(top.kRabatt);

    //Rabatt-Betrag runden 1..4=5 5=5 6..9=10 zu Gunsten Kunde aufrunden
    cRabatt=nRabatt.toFixed(2).toString();
    nDummy=parseInt(cRabatt.substr(cRabatt.length-1,1));
      if (nDummy>=1 && nDummy<=4)
        {
        cRabatt=cRabatt.substr(0,cRabatt.length-1)+"5";
        nRabatt=parseFloat(cRabatt);
        }
      else
        {
          if (nDummy>=6 && nDummy<=9)
            {
            cRabatt=cRabatt.substr(0,cRabatt.length-1)+"0";
            nRabatt=parseFloat(cRabatt)+0.1;
            }  //endIf
        }  //endIf
    nRoh=nRoh-nRabatt;
    }  //endIf

//Roh plus Speditionskosten
nRoh=nRoh+parseFloat(top.kSpedi);

//MWSt berechnen
nMWSt=nRoh*parseFloat(top.kMWSt)/100;
//MWST-Betrag runden 1..4=0 5=5 6..9=5 zu Gunsten Kunde abrunden
cMWSt=nMWSt.toFixed(2).toString();
nDummy=parseInt(cMWSt.substr(cMWSt.length-1,1));
  if (nDummy>=1 && nDummy<=4)
    {
    cMWSt=cMWSt.substr(0,cMWSt.length-1)+"0";
    }
  else
    {
      if (nDummy>=6 && nDummy<=9)
        {
        cMWSt=cMWSt.substr(0,cMWSt.length-1)+"5";
        }  //endIf
    }  //endIf
nMWSt=parseFloat(cMWSt);

//plus MWSt
nTotal=nRoh+nMWSt;

//mit Space auf Solllänge auffüllen
cRabatt=nRabatt.toFixed(2).toString();
  for (i=cRabatt.length; i<8; i++)
    {
    cRabatt=" "+cRabatt;
    }  //endFor
cSpedi=top.kSpedi.toString();
  for (i=cSpedi.length; i<8; i++)
    {
    cSpedi=" "+cSpedi;
    }  //endFor
cMWSt=nMWSt.toFixed(2).toString();
  for (i=cMWSt.length; i<8; i++)
    {
    cMWSt=" "+cMWSt;
    }  //endFor
cTotal=nTotal.toFixed(2).toString();
  for (i=cTotal.length; i<8; i++)
    {
    cTotal=" "+cTotal;
    }  //endFor

//allenfalls Rabattzeile erzeugen
  if (nRabatt>0)
    {


/*
    //aus Veteranstamm die Kundennummer holen
    nDummy=top.cAktion.length;
    nVon  =top.cVeteranstamm.indexOf("|"+top.cAktion+"|")+nDummy+2;
    cDummy=top.cVeteranstamm.substr(nVon,7);
    cAktion=" "+cDummy+" "+top.cAktion;
*/


    cAktion=" "+top.cAdrNum+" "+top.cAktion;
      for (i=cAktion.length; i<49; i++)
        {
        cAktion=cAktion+" ";
        }  //endFor
    cKosten=cAktion+"-"+top.kRabatt+"% Rabatt = "+cRabatt+"\n"
    }  //endIf

//Kostenzeile erzeugen
cKosten=cKosten+"                                         "+
                "        "+top.kAdmin+" = "+cSpedi+"\n"+
                "                                         "+
                "        MWSt  "+top.kMWSt+"% = "+cMWSt+"\n"+
                "                                         "+
                "                      --------\n"+
                "                                         "+
                "        Total   "+top.kWaehrung+" = "+cTotal

//für Mindestbetrag (in bestellunganzeigen.htm
top.cTotalAkt=cTotal;

//Rückgabe vorbereiten
top.cKosten=cKosten;
aKosten[0]=cKosten;

return (aKosten);
}  //endFunk


/////
/////
function p_Shop_zeigen(nHidden,cVorspann)
{

//Variablen leer
var aNach0        =new Array(1);
var aVorspann     =new Array(1);
var aRohAlt       =new Array(1);
var aPosition     =new Array(2);
var aKosten       =new Array(1);

//Variablen füllen


//vervollständigen/auswerten
  if (top.cInhalt.length==0)  //kein Inhalt
    {
    aNach0=f_Shop_Zahlart();  //swo
    top.cInhalt="\n\n noch keine Artikel ausgewählt.\n\n"+
      top.cNach1+aNach0[0]+" "+top.kZusatz+"\n\n"+top.cNach2;
//      top.cNach1+top.kTele+" "+top.kZusatz+"\n\n"+top.cNach2;
    }
  else
    {
    //wegen Aktion etc. updaten
      if (top.cInhalt.search(/noch keine Artikel ausgewählt./ig)==-1)
        {
        //Nachspann vervollständigen
        aNach0=f_Shop_Zahlart();  //swo

        //Vorspann erzeugen
        aVorspann=f_Shop_Vorspann_eruieren();  //swo

        //Betrag Rohwert bilden aus bestehendem Bestellungssinhalt
        aRohAlt=f_Shop_Rohwert_eruieren();  //swo

        //Kosten erzeugen
        aKosten=f_Shop_Kosten(aRohAlt[0],0);  //swo

        //Shop zusammenstellen
        top.cInhalt=aVorspann[0]+"\n\n"+
                    aKosten[0]+"\n\n"+
                    top.cNach1+aNach0[0]+"\n\n"+top.cNach2;
        top.cNach0=aNach0[0];
        }  //endIf
    }  //endIf


//sichtbar
  if (nHidden==1)
    {
      if (top.aMenutaste[3]!=1)  //hat wichtiges noch nicht angeschaut
        {
        document.getElementById("sound_shop").src="./../sound/pat1.wav";
        window.alert('unbedingt noch die Rubrik\n\n'+
                     '" Wichtiges "\n\n'+
                     'vor dem Absenden ansehen');
        }  //endIf

    //Zusammenstellung in neuem Fenster anzeigen
    top.cSystemRet=top.cSystem;
    top.oWinShop=window.open(cVorspann+"./../bestellung/bestellunganzeigen.htm",
                             "WinShop",
                             "width =550,"+
                             "height=640,"+
                             "left  =200,"+
                             "top   =0,"+
                             "noresizable");
    }  //endIf

return;
}  //endProz


/////
/////
function p_Shop_auflisten()
{

//Variablen leer
var i;
var aInhalt=new Array();

//Variablen füllen
aInhalt=opener.top.cInhalt.split("\n");


//verarbeiten
  if (opener.top.cInhalt.search(/noch keine Artikel ausgewählt./ig)==-1)
    {
    document.write("&nbspRechnung:&nbsp"+aInhalt[0].replace(/ /g,"&nbsp")+"<BR>");
    }  //endIf

  for (i = 1; i<aInhalt.length; i++)
    {
      if (aInhalt[i].length==0)  //also [1] und nicht [0]
        {
        document.write("&nbsp<BR>");
        }
      else
        {
        document.write(aInhalt[i].replace(/ /g,"&nbsp")+"<BR>");
        }  //endIf
    }  //endFor

return;
}  //endProz


/////
/////
function p_Shop_drucken()
{

//Variablen leer

//Variablen füllen


//verarbeiten
document.getElementById("BestellungTasten").style.visibility="hidden";
document.getElementById("UserdatenHinweis").style.visibility="hidden";
window.print();
document.getElementById("BestellungTasten").style.visibility="visible";
document.getElementById("UserdatenHinweis").style.visibility="visible";
self.focus();

return;
}  //endProz


/////
/////
function p_Shop_senden()
{

//Variablen leer
var cAdresse,cPosition,cKosten,cNach;

//Variablen füllen
var cDummy      ="";


//verarbeiten
  if (opener.top.IsLocal=="ja")
    {
    opener.top.document.getElementById("sound_Index").src="./sound/pat1.wav";
    window.alert("offline, daher kein absenden möglich");
    }
  else
    {
    //Besteller aktualisieren
    opener.top.cBesteller=document.getElementById("Besteller").value;

    //zusammenstellen
    cAdresse  =f_Shop_Kaschieren(opener.top.cBesteller);
    cPosition =f_Shop_Kaschieren(opener.top.cPosition);
    cKosten   =f_Shop_Kaschieren(opener.top.cKosten);
    cNach     =f_Shop_Kaschieren((opener.top.cNach1+opener.top.cNach0+"\n\n"+opener.top.cNach2));


//window.alert(opener.top.cPosition);
//window.alert(cPosition);
//window.alert(opener.top.cKosten);
//window.alert(cKosten);


    //absenden
  if (opener.top.cNummer.length==0 || opener.top.kDatum.length==0)
{
window.alert("|"+opener.top.cNummer+"|"+opener.top.kDatum+"|");
}
  if (cAdresse.length==0)
{
window.alert("|"+cAdresse+"|");
}
  if (cPosition.length==0)
{
window.alert("|"+cPosition+"|");
}
  if (cKosten.length==0)
{
window.alert("|"+cKosten+"|");
}
  if (cNach.length==0)
{
window.alert("|"+cNach+"|");
}
  if (opener.top.kIPakt.length==0 || opener.top.kPortakt.length==0)
{
window.alert("|"+opener.top.kIPakt+"|"+opener.top.kPortakt+"|");
}
    self.focus();
    location.href="./../php/pat_shop.php"+
                  "?cParam1="+opener.top.cNummer+
                  "&cParam2="+opener.top.kDatum+
                  "&cParam3="+cAdresse+
                  "&cParam4="+cPosition+
                  "&cParam5="+cKosten+
                  "&cParam6="+cNach+
                  "&cParam7="+opener.top.kIPakt+"-"+opener.top.kPortakt;

    }  //endIf  online

return;
}  //endProz


/////
/////
function f_Shop_Kaschieren(cDummy)
{

//Variablen leer
//var aResultat =new Array(1);

//Variablen füllen


//verarbeiten
cDummy=cDummy.replace(/\r/ig,"");
cDummy=cDummy.replace(/\n/ig,"|-0-|");
cDummy=cDummy.replace(/'/ig, "|-1-|");
cDummy=cDummy.replace(/"/ig, "|-2-|");
cDummy=cDummy.replace(/;/ig, "|-3-|");
cDummy=cDummy.replace(/&/ig, "|-4-|");
cDummy=cDummy.replace(/\+/ig, "|-5-|");

//Rückgabe vorbereiten, siehe bei Verarbeitung

return (cDummy);
}  //endFunk


/////
/////
function p_Shop_Taste_set(xTaste,nTaste)
{

//Variablen leer

//Variablen füllen


//verarbeiten
  if (opener.top.aShop[nTaste]==0)
    {
    xTaste.style.backgroundColor="#33FF00";  //grün
    xTaste.style.color="#FFFFFF";            //weiss
    }
  else
    {
    xTaste.style.backgroundColor="#FFFF99";  //orange
    xTaste.style.color="#AAAAAA";            //grau
    }  //endIf

return;
}  //endProz


/////
/////
function p_Shop_Taste_auf(xTaste)
{

//Variablen leer

//Variablen füllen


//verarbeiten
xTaste.style.backgroundColor="#33FF00";  //grün
xTaste.style.color="#FFFFFF";            //schwarz

return;
}  //endProz


/////
/////
function p_Shop_Taste_weg(xTaste,nTaste)
{

//Variablen leer

//Variablen füllen


//verarbeiten
  if (opener.top.aShop[nTaste]==0)
    {
    xTaste.style.backgroundColor="#33FF00";  //grün
    xTaste.style.color="#FFFFFF";            //weiss
    }
  else
    {
    xTaste.style.backgroundColor="#FFFF99";  //orange
    xTaste.style.color="#AAAAAA";            //grau
    }  //endIf

return;
}  //endProz


/////
/////
function p_Shop_leeren(nWahl)  //0=top  1=kind:opener
{

//Variablen leer
var lSoll;

//Variablen füllen
var cVorspann=nWahl==0?"":"opener.";


//vor dem Leeren, erst bestätigen lassen
lSoll=window.confirm("Bestellung leeren ?");

//jetzt leeren
  if (lSoll==true)
    {

    //Rechnungsnummer leeren
    eval(cVorspann+"top.cNummer=''");

    //Positionen leeren
    eval(cVorspann+"top.cPosition=''");

    //Kosten leeren
    eval(cVorspann+"top.cKosten=''");

    //  leeren
    eval(cVorspann+"top.cNach0=''");

    //Taste drucken aktualisieren
    eval(cVorspann+"top.aShop[2]=0");

    //Zusammenstellungen leeren
    eval(cVorspann+"top.cInhalt=''");
    eval(cVorspann+"top.cBesteller=''");

    //wegen Mindestbetrag
    eval(cVorspann+"top.cTotalAkt='0'");

    //Anschrift Besteller leeren
      if (nWahl==1)
        {
        document.getElementById("Besteller").value="";
        //opener.top.oWinShop.close();
        eval(cVorspann+"top.oWinShop.close()");
        }  //endIf

    }  //endIf

return;
}  //endProz


/////
/////
function f_Shop_Nummer_viaServer()
{
cNummer="123";
top.iframe_extern.location.href="./../php/pat_titnum.php";

return (cNummer);
}  //endFunk
