VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.MDIForm MDIHauptmenu 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000F&
   Caption         =   "Kasse-Central"
   ClientHeight    =   4320
   ClientLeft      =   225
   ClientTop       =   855
   ClientWidth     =   10245
   LinkTopic       =   "MDIForm1"
   ScrollBars      =   0   'False
   StartUpPosition =   3  'Windows-Standard
   WindowState     =   2  'Maximiert
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   5700
      Top             =   2025
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Timer Timer1 
      Left            =   4725
      Top             =   2025
   End
   Begin VB.PictureBox picLeisteUnten 
      Align           =   2  'Unten ausrichten
      Appearance      =   0  '2D
      BackColor       =   &H80000004&
      ForeColor       =   &H80000008&
      Height          =   660
      Left            =   0
      ScaleHeight     =   630
      ScaleWidth      =   10215
      TabIndex        =   0
      Top             =   3660
      Width           =   10245
      Begin VB.Label lblKellner 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "lblKellner"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000040&
         Height          =   240
         Left            =   2250
         TabIndex        =   1
         Top             =   150
         Width           =   825
      End
      Begin VB.Label lblZeit 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "lblZeit"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000040&
         Height          =   240
         Left            =   7884
         TabIndex        =   3
         Top             =   156
         Width           =   528
      End
      Begin VB.Label lblDatum 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "lblDatum"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000040&
         Height          =   240
         Left            =   6876
         TabIndex        =   2
         Top             =   132
         Width           =   804
      End
      Begin VB.Image imgMenu 
         Appearance      =   0  '2D
         Height          =   576
         Left            =   0
         Stretch         =   -1  'True
         Top             =   24
         Width           =   1212
      End
      Begin VB.Image imgLeisteUnten 
         Appearance      =   0  '2D
         Height          =   570
         Left            =   4125
         Picture         =   "MDIHauptmenu.frx":0000
         Stretch         =   -1  'True
         Top             =   0
         Width           =   1020
      End
   End
   Begin VB.Menu mnuMENU 
      Caption         =   "MENU"
      Begin VB.Menu mnuRechnungsübersicht 
         Caption         =   "&Rechnungsübersicht"
      End
      Begin VB.Menu Trennlinie2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuKassenbericht 
         Caption         =   "Kassen&bericht Drucken"
      End
      Begin VB.Menu mnuKellnerbericht 
         Caption         =   "&Kellnerbericht Drucken"
      End
      Begin VB.Menu mnuKassenabschluss 
         Caption         =   "Kassen&abschluss"
      End
      Begin VB.Menu mnuTrennlinie1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSchliessen 
         Caption         =   "Kasse sch&ließen"
      End
   End
End
Attribute VB_Name = "MDIHauptmenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'========================= MDI FORMULAR EREIGNISSE =======================
'=========================================================================
Private Sub MDIForm_Load()

VarPasswordDatenbank = "thanos14111965i"
VarDatenbank = App.Path & "\arxio.mdb"

Call SetFormStyle(MDIHauptmenu) 'Fenster min- bzw. maximieren mit API
mnuMENU.Visible = False

MDIHauptmenu.Left = 0
MDIHauptmenu.Top = 0
MDIHauptmenu.Height = Screen.Height
MDIHauptmenu.Width = Screen.Width

Me.PositionierenLeiste

frmPin.Show 1
Call frmPin.PrueffePin

Set imgMenu.Picture = LoadPicture(App.Path & "\image\Menu.jpg")
Timer1.Interval = 100

Call mdlAllgemein.Positionierung
Call mdlDatenbanken.Stationen

Call mdlDatenbanken.Verwaltung
Call mdlAPI.SetDefaultPrinter("Star TSP100 Cutter (TSP143)")

Me.lblKellner.Caption = VarKellner
VarStation = frmLink.cmdStationenLink(1).Caption 'Feste Station wird angegeben
Call mdlDatenbanken.TabellePicTischAbfragen(frmRaum, VarStation)
frmLink.Visible = True
End Sub
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Me.TastenFarbeAbheben
End Sub
Private Sub MDIForm_Resize()
'Call Taskleiste
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
ShowStartmenue True
Dim I As Integer
   ' Forms-Auflistung durchlaufen und jedes Formular entladen.
   For I = 0 To Forms.Count - 1
      Unload Forms(I)
Next
End Sub

'========================= TIMER EREIGNISSE =======================
'====================================================================
Sub Timer1_Timer()
picLeisteUnten.AutoRedraw = True
lblZeit.Caption = Format(Time, "hh.mm.ss")
End Sub
'========================= IMAGE EREIGNISSE =======================
'==================================================================
Sub ImgMenu_Click()
If modRechte.MitarbeiterRecht(VarKellner, "MENUSPERRE") = True Then
  MsgBox "Sie haben nicht die nötigen Rechte, um auf die Menuleiste zuzugreifen"
  Exit Sub
Else
  frmRaum.TimerTischauswahl.Enabled = False
  frmPin2.Show 1
  frmRaum.TimerTischauswahl.Enabled = True

  If Me.imgMenu.Tag = "weiter" Then
   Me.imgMenu.Tag = "raus"
   PopupMenu mnuMENU, , 0, picLeisteUnten.Top + imgMenu.Top
  End If
End If
End Sub
'========================= MENU EREIGNISSE =======================
'=================================================================
Private Sub mnuRechnungsübersicht_Click()
 If modRechte.MitarbeiterRecht(VarKellner, "RechnungsUebersicht") = False Then
    MsgBox "Sie haben nicht die nötigen Rechte, um diese Aktion auszuführen"
    Exit Sub
 End If
    frmRechnungsuebersicht.Show 1
End Sub
Private Sub mnuKassenbericht_Click()
 If modRechte.MitarbeiterRecht(VarKellner, "KassenberichtDrucken") = False Then
    MsgBox "Sie haben nicht die nötigen Rechte, um diese Aktion auszuführen"
    Exit Sub
 End If
  
  If Time < "04:00:00" Then
      VarDatumAktuel = CStr(Date - 1)
   Else
      VarDatumAktuel = CStr(Date)
   End If
   Call mdlKassenabschluss.EintragenAlleUmsaetzeRestaurant
   Call ReportKassenbericht.BerichtKasse(VarDatumAktuel, VarDatumAktuel)
End Sub
Private Sub mnuKellnerbericht_Click()
 If modRechte.MitarbeiterRecht(VarKellner, "KellnerberichtDrucken") = False Then
    MsgBox "Sie haben nicht die nötigen Rechte, um diese Aktion auszuführen"
  Exit Sub
End If
   
   If Time < "04:00:00" Then
      VarDatumAktuel = CStr(Date - 1)
   Else
       VarDatumAktuel = CStr(Date)
   End If
   Call mdlKassenabschluss.EintragenAlleUmsaetzeRestaurant
   Call ReportKellnerBericht.BerichtEinKellner(VarKellner, VarDatumAktuel, VarDatumAktuel)
End Sub
Private Sub mnuKassenabschluss_Click()
 If modRechte.MitarbeiterRecht(VarKellner, "Kassenabschluss") = False Then
    MsgBox "Sie haben nicht die nötigen Rechte, um diese Aktion auszuführen"
    Exit Sub
 End If
 
  If Time < "04:00:00" Then
      VarDatumAktuel = CStr(Date - 1)
   Else
      VarDatumAktuel = CStr(Date)
   End If
    Call ReportKellnerBericht.BerichtAlleKellner(VarDatumAktuel, VarDatumAktuel)
    Call mdlKassenabschluss.EintragenAlleUmsaetzeRestaurant
    Call mdlKassenabschluss.DelAlleTabellenRestaurant
    Call ReportKassenbericht.BerichtKasse(VarDatumAktuel, VarDatumAktuel)

End Sub


Private Sub mnuSystemkonfiguration_Click()
 If modRechte.MitarbeiterRecht(VarKellner, "Sytemkonfiguration") = False Then
    MsgBox "Sie haben nicht die nötigen Rechte, um diese Aktion auszuführen"
 Else
    MsgBox "Die Sytemkonfiguration ist noch nicht aktiviert"
 End If
End Sub

Private Sub mnuSchliessen_Click()
Unload MDIHauptmenu
End Sub
'========================= PROZEDUREN =======================
'============================================================
Sub PositionierenLeiste()
picLeisteUnten.Height = MDIHauptmenu.ScaleHeight / 18
imgMenu.Move 0, 0
imgMenu.Height = picLeisteUnten.ScaleHeight

imgLeisteUnten.Move 0, 0 'imgMenu.Left + imgMenu.Width, 0
imgLeisteUnten.Height = picLeisteUnten.ScaleHeight
imgLeisteUnten.Width = picLeisteUnten.ScaleWidth

imgMenu.ZOrder 0

lblKellner.Top = picLeisteUnten.ScaleHeight / 2 - lblKellner.Height / 2
lblKellner.Left = picLeisteUnten.ScaleWidth / 5 - lblKellner.Width / 2


lblDatum.Top = lblKellner.Top
lblDatum.Left = picLeisteUnten.ScaleWidth / 2 - lblDatum.Width / 2
lblDatum.Caption = Format(Date, "dddd,  dd. mmmm,  YYYY")

lblZeit.Top = lblKellner.Top
lblZeit.Left = 4 * picLeisteUnten.ScaleWidth / 5 - lblZeit.Width / 2
End Sub
Sub Taskleiste()
Select Case Me.WindowState  'Taskleiste ein- bzw. ausblenden mit API
 Case 1
 ShowStartmenue True
 Case 0, 2
 ShowStartmenue False
End Select
End Sub
Sub TastenFarbeAbheben()
If VarTastenFarbeAbheben = True Then Exit Sub

frmSchnellwahltaste.MSHFlexGrid1.Visible = False
VarTastenFarbeAbheben = True
For I = 0 To frmTastenMenu1.cmdTastenMenu1.Count - 1
 frmTastenMenu1.cmdTastenMenu1.Item(I).BackColor = &H80000002
Next I

For I = 0 To frmTastenMenu2.cmdTastenMenu2.Count - 1
 frmTastenMenu2.cmdTastenMenu2.Item(I).BackColor = &H80000002
Next I

For I = 0 To frmSchnellwahltaste.cmdWG.Count - 1
 If frmSchnellwahltaste.cmdWG.Item(I).BackColor = &H80C0FF Then
    frmSchnellwahltaste.cmdWG.Item(I).BackColor = &H80000002
 End If
Next I
End Sub