VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmRechnungsuebersicht 
   BackColor       =   &H80000013&
   BorderStyle     =   3  'Fester Dialog
   Caption         =   "Rechnungsübersicht"
   ClientHeight    =   9000
   ClientLeft      =   105
   ClientTop       =   855
   ClientWidth     =   10335
   FillStyle       =   0  'Ausgefüllt
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000016&
   LinkMode        =   1  'Quelle
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   9000
   ScaleWidth      =   10335
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Caption         =   "Zahlart ändern"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000007&
      Height          =   870
      Left            =   525
      TabIndex        =   11
      Top             =   7200
      Width           =   8460
      Begin VB.OptionButton Option1 
         Caption         =   "BAR"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   0
         Left            =   240
         TabIndex        =   14
         Top             =   375
         Width           =   855
      End
      Begin VB.OptionButton Option1 
         Caption         =   "KARTE"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   1
         Left            =   1950
         TabIndex        =   13
         Top             =   375
         Width           =   1095
      End
      Begin VB.OptionButton Option1 
         Caption         =   "GUTSCHEIN/BAR"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   2
         Left            =   4200
         TabIndex        =   12
         Top             =   375
         Width           =   2235
      End
   End
   Begin VB.CommandButton cmdKassenbon 
      Caption         =   "Kassenbon"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   3975
      Style           =   1  'Grafisch
      TabIndex        =   10
      Top             =   8250
      Width           =   1590
   End
   Begin VB.CommandButton cmdRechnung 
      Caption         =   "Rechnung"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   5925
      Style           =   1  'Grafisch
      TabIndex        =   9
      Top             =   8250
      Width           =   1290
   End
   Begin VB.CommandButton cmdBeenden 
      Caption         =   "Beenden"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   7440
      Style           =   1  'Grafisch
      TabIndex        =   8
      Top             =   8280
      Width           =   1575
   End
   Begin MSComCtl2.DTPicker DTPickerBis 
      Height          =   360
      Left            =   4155
      TabIndex        =   7
      Top             =   225
      Width           =   720
      _ExtentX        =   1270
      _ExtentY        =   635
      _Version        =   393216
      Format          =   47448065
      CurrentDate     =   39460
   End
   Begin MSComCtl2.DTPicker DTPickerVon 
      Height          =   390
      Left            =   2115
      TabIndex        =   6
      Top             =   285
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   688
      _Version        =   393216
      Format          =   47448065
      CurrentDate     =   39460
   End
   Begin MSDataGridLib.DataGrid DataGrid2 
      Height          =   3255
      Left            =   480
      TabIndex        =   3
      Top             =   3840
      Width           =   8520
      _ExtentX        =   15028
      _ExtentY        =   5741
      _Version        =   393216
      HeadLines       =   1
      RowHeight       =   18
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin MSDataGridLib.DataGrid DataGrid1 
      Height          =   2625
      Left            =   480
      TabIndex        =   2
      Top             =   915
      Width           =   8505
      _ExtentX        =   15002
      _ExtentY        =   4630
      _Version        =   393216
      HeadLines       =   1
      RowHeight       =   18
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin VB.CommandButton cmdVonBisAnzeigen 
      Caption         =   "Anzeigen"
      Height          =   645
      Left            =   6495
      Style           =   1  'Grafisch
      TabIndex        =   1
      Top             =   120
      UseMaskColor    =   -1  'True
      Width           =   1125
   End
   Begin VB.CommandButton cmdAllesAnzeigen 
      Caption         =   "Alle Anzeigen"
      Height          =   645
      Left            =   7845
      Style           =   1  'Grafisch
      TabIndex        =   0
      Top             =   90
      UseMaskColor    =   -1  'True
      Width           =   1125
   End
   Begin VB.Label lblbis 
      Alignment       =   2  'Zentriert
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fest Einfach
      Caption         =   "bis"
      Height          =   375
      Left            =   5025
      TabIndex        =   5
      Top             =   225
      Width           =   570
   End
   Begin VB.Label lblvon 
      Alignment       =   2  'Zentriert
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fest Einfach
      Caption         =   "von"
      Height          =   375
      Left            =   1080
      TabIndex        =   4
      Top             =   255
      Width           =   495
   End
End
Attribute VB_Name = "frmRechnungsuebersicht"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim VarcmdAktuell
Dim VarRegNrAktuell, VarZahlungsartAktuell, VarOptionIndexAktuell
'==================== FORMS EREIGNISSE ====================
'==========================================================
Private Sub Form_Load()
DataGrid1.RecordSelectors = False
Me.Width = 0.8 * MDIHauptmenu.ScaleWidth
Me.Height = 0.7 * MDIHauptmenu.ScaleHeight
Me.Top = MDIHauptmenu.ScaleHeight / 2 - Me.Height / 2
Me.Left = (MDIHauptmenu.ScaleWidth - frmLink.Width) / 2 - Me.Width / 2

Me.BackColor = &H80000003
Me.Frame1.BackColor = &H80000003
Me.lblvon.BackColor = &H80000003
Me.lblbis.BackColor = &H80000003

For I = 0 To Me.Option1.Count - 1
 Me.Option1.Item(I).BackColor = &H80000003
Next I

Me.cmdVonBisAnzeigen.BackColor = &H80000002
Me.cmdAllesAnzeigen.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdBeenden.BackColor = &H80000002


Abstand = MDIHauptmenu.ScaleHeight / 40
lblvon.Top = Abstand
lblvon.Left = Abstand
lblvon.Height = 1.5 * Abstand

DTPickerVon.Top = lblvon.Top
DTPickerVon.Left = lblvon.Left + lblvon.Width + 0.3 * Abstand
DTPickerVon.Height = lblvon.Height
DTPickerVon.Width = 3 * lblvon.Width

lblbis.Top = lblvon.Top
lblbis.Left = DTPickerVon.Left + 1.5 * DTPickerVon.Width
lblbis.Height = lblvon.Height
lblbis.Width = lblvon.Width

DTPickerBis.Top = lblbis.Top
DTPickerBis.Left = lblbis.Left + lblbis.Width + 0.3 * Abstand
DTPickerBis.Height = lblbis.Height
DTPickerBis.Width = DTPickerVon.Width

cmdVonBisAnzeigen.Height = 1.2 * DTPickerBis.Height
cmdVonBisAnzeigen.Width = 1.2 * DTPickerBis.Width
cmdVonBisAnzeigen.Top = DTPickerBis.Top + DTPickerBis.Height / 2 - cmdVonBisAnzeigen.Height / 2
cmdVonBisAnzeigen.Left = DTPickerBis.Left + 2 * DTPickerBis.Width

cmdAllesAnzeigen.Top = cmdVonBisAnzeigen.Top
cmdAllesAnzeigen.Left = cmdVonBisAnzeigen.Left + 1.5 * cmdVonBisAnzeigen.Width
cmdAllesAnzeigen.Height = cmdVonBisAnzeigen.Height
cmdAllesAnzeigen.Width = cmdVonBisAnzeigen.Width

DataGrid1.Top = lblvon.Top + lblvon.Height + 0.5 * Abstand
DataGrid1.Left = lblvon.Left
DataGrid1.Width = frmRechnungsuebersicht.ScaleWidth - 2 * Abstand
DataGrid1.Height = frmRechnungsuebersicht.ScaleHeight / 3
DataGrid1.RowHeight = Abstand


DataGrid2.Top = DataGrid1.Top + DataGrid1.Height + Abstand
DataGrid2.Left = DataGrid1.Left
DataGrid2.Width = DataGrid1.Width
DataGrid2.Height = DataGrid1.Height
DataGrid2.RowHeight = 1.2 * Abstand

Me.Frame1.Left = Me.DataGrid2.Left
Me.Frame1.Top = Me.DataGrid2.Top + Me.DataGrid2.Height + Abstand / 2
Me.Frame1.Width = Me.DataGrid2.Width / 2
Me.Frame1.Height = Me.ScaleHeight - (Me.lblvon.Height + Me.DataGrid1.Height + Me.DataGrid1.Height) - 4 * Abstand

Me.Option1(0).Top = Me.Frame1.Height / 2 - Me.Option1(0).Height / 2
Me.Option1(0).Left = Abstand

Me.Option1(1).Top = Me.Option1(0).Top
Me.Option1(1).Left = Me.Frame1.Width / 4

Me.Option1(2).Top = Me.Option1(1).Top
Me.Option1(2).Left = 2 * Me.Frame1.Width / 4

Me.cmdKassenbon.Height = 0.7 * Me.Frame1.Height
Me.cmdKassenbon.Top = Me.Frame1.Top + Me.Frame1.Height / 2 - Me.cmdKassenbon.Height / 2
Me.cmdKassenbon.Left = Me.Frame1.Left + Me.Frame1.Width + 3 * Abstand
Me.cmdKassenbon.Width = (Me.ScaleWidth - (2 * Abstand + Me.Frame1.Left + Me.Frame1.Width + 6 * Abstand)) / 3

Me.cmdRechnung.Top = Me.cmdKassenbon.Top
Me.cmdRechnung.Left = Me.cmdKassenbon.Left + Me.cmdKassenbon.Width + 2 * Abstand
Me.cmdRechnung.Width = Me.cmdKassenbon.Width
Me.cmdRechnung.Height = Me.cmdKassenbon.Height


Me.cmdBeenden.Top = Me.cmdRechnung.Top
Me.cmdBeenden.Left = Me.cmdRechnung.Left + Me.cmdRechnung.Width + 2 * Abstand
Me.cmdBeenden.Width = Me.cmdRechnung.Width
Me.cmdBeenden.Height = Me.cmdRechnung.Height




DTPickerVon.Value = Date
DTPickerBis.Value = Date

 If modRechte.MitarbeiterRecht(VarKellner, "AlleRechnungenAnsehen") = True Then
    Call Me.AlleKellnerVonBisRechnungen(DTPickerVon.Value, DTPickerBis.Value)
 ElseIf modRechte.MitarbeiterRecht(VarKellner, "SeineRechnungenAnsehen") = True Then
    Call Me.NurEinKellnerVonBisRechnungen(DTPickerVon.Value, DTPickerBis.Value, VarKellner)
 End If

On Error Resume Next
Call Me.RechnungDetailsDurchsuchen(DataGrid1.Columns(1).Text) 'RegNr anzeigen Lassen

End Sub
Private Sub Form_Activate()
Me.DataGrid1.SetFocus
End Sub


'==================== DatumPicker EREIGNISSE ====================
'=================================================================

Private Sub DTPickerbis_Change()
If DTPickerBis.Value > Date Then
DTPickerBis.Value = Date
End If

If DTPickerBis.Value < DTPickerVon.Value Then
    DTPickerVon.Value = DTPickerBis.Value
ElseIf DTPickerBis.Value > Date Then
    DTPickerBis.Value = Date
End If
End Sub
Private Sub DTPickerVon_Change()
If DTPickerVon.Value > Date Then
DTPickerVon.Value = Date
End If
If DTPickerVon.Value > DTPickerBis.Value Then
     DTPickerBis.Value = DTPickerVon.Value
ElseIf DTPickerVon.Value > Date Then
    DTPickerVon.Value = DTPickerBis.Value
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If VarcmdAktuell = "" Then Exit Sub
VarcmdAktuell = ""
Me.cmdVonBisAnzeigen.BackColor = &H80000002
Me.cmdAllesAnzeigen.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdBeenden.BackColor = &H80000002
End Sub

'==================== Option1 EREIGNISSE ====================
'==========================================================
Private Sub Option1_Mouseup(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Var1 = VarZahlungsartAktuell
Var2 = Me.Option1(Index).Caption
If VarOptionIndexAktuell = Index Then
    Select Case Index
        Case 0, 1
        Exit Sub
        Case 2
        Var2 = Var2 & "....."
    End Select
End If



If MsgBox("Möchten sie wirklich die Zahlungsart von '" & Var1 & "' in '" & _
    Var2 & "' ändern", vbYesNo) = vbNo Then

    Me.Option1(VarOptionIndexAktuell).Value = True 'Wert zurücksetzen
    Exit Sub
Else
   VarOptionIndexAktuell = Index
End If

Select Case Index
 Case 0, 1
    VarOptionLokal = Me.Option1(Index).Caption
 Case 2
    VarOptionLokal = InputBox("Geben Sie eine Gutschein-Nr. ein und anschließend drücken Sie auf Ok. ", "Gutschein-Nr.")

    If VarOptionLokal = "" Then
        VarOptionLokal = Me.Option1(Index).Caption
   Else
        VarOptionLokal = Me.Option1(Index).Caption & "  Nr " & VarOptionLokal
   End If
End Select

VarZahlungsartAktuell = VarOptionLokal
Call Me.ZahlungsartAendern(VarRegNrAktuell, VarOptionLokal)
End Sub
'==================== COMMANDBUTTON EREIGNISSE ====================
'==============================================================

Private Sub cmdVonBisAnzeigen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If VarcmdAktuell = "cmdVonBisAnzeigen" Then Exit Sub
Me.cmdVonBisAnzeigen.BackColor = &H80C0FF
Me.cmdAllesAnzeigen.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdBeenden.BackColor = &H80000002
VarcmdAktuell = "cmdVonBisAnzeigen"
End Sub
Private Sub cmdAllesAnzeigen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If VarcmdAktuell = "cmdAllesAnzeigen" Then Exit Sub
Me.cmdVonBisAnzeigen.BackColor = &H80000002
Me.cmdAllesAnzeigen.BackColor = &H80C0FF
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdBeenden.BackColor = &H80000002
VarcmdAktuell = "cmdAllesAnzeigen"
End Sub
Private Sub cmdKassenbon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If VarcmdAktuell = "cmdKassenbon" Then Exit Sub
Me.cmdVonBisAnzeigen.BackColor = &H80000002
Me.cmdAllesAnzeigen.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80C0FF
Me.cmdRechnung.BackColor = &H80000002
Me.cmdBeenden.BackColor = &H80000002
VarcmdAktuell = "cmdKassenbon"
End Sub
Private Sub cmdRechnung_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If VarcmdAktuell = "cmdRechnung" Then Exit Sub
Me.cmdVonBisAnzeigen.BackColor = &H80000002
Me.cmdAllesAnzeigen.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80C0FF
Me.cmdBeenden.BackColor = &H80000002
VarcmdAktuell = "cmdRechnung"
End Sub
Private Sub cmdBeenden_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If VarcmdAktuell = "cmdBeenden" Then Exit Sub
Me.cmdVonBisAnzeigen.BackColor = &H80000002
Me.cmdAllesAnzeigen.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdBeenden.BackColor = &H80C0FF
VarcmdAktuell = "cmdBeenden"
End Sub
Private Sub cmdVonBisAnzeigen_Click()
  Call Me.NurEinKellnerVonBisRechnungen(DTPickerVon.Value, DTPickerBis.Value, VarKellner)
End Sub
Private Sub cmdAllesAnzeigen_Click()
 If modRechte.MitarbeiterRecht(VarKellner, "AlleRechnungenAnsehen") = True Then
  Call Me.AlleKellnerVonBisRechnungen(DTPickerVon.Value, DTPickerBis.Value)
 End If
End Sub
Private Sub cmdKassenbon_Click()
    Call ReportAbrechnung.DruckeKassenbonVonUebersichtsrechnung(VarRegNrAktuell)
End Sub
Private Sub cmdRechnung_Click()
  If modRechte.MitarbeiterRecht(VarKellner, "Rechnungen") = False Then
    MsgBox "Sie haben nicht die nötigen Rechte, um diese Aktion auszuführen"
    Exit Sub
  End If
Call ReportRechnung.DruckeRechnungVonUebersichtsrechnung(VarRegNrAktuell)
End Sub
Private Sub cmdBeenden_Click()
Unload Me
End Sub
'==================== DataGrid EREIGNISSE ====================
'==============================================================
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If DataGrid1.SelBookmarks.Count <> 0 Then DataGrid1.SelBookmarks.Remove 0
   DataGrid1.SelBookmarks.Add DataGrid1.Bookmark
Call Me.RechnungDetailsDurchsuchen(DataGrid1.Columns(1).Text) 'RegNr anzeigen Lassen
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error Resume Next
If DataGrid1.SelBookmarks.Count <> 0 Then DataGrid1.SelBookmarks.Remove 0
    DataGrid1.SelBookmarks.Add DataGrid1.Bookmark
DataGrid1.Col = 0 'so kann nichts eingetragen werden
  
   If Not Me.DataGrid1.Columns("BAR").Value = "" And Me.DataGrid1.Columns("GUTSCHEIN").Value = "" Then
     VarZahlungsartAktuell = "BAR"
   ElseIf Not Me.DataGrid1.Columns("KARTE").Value = "" Then
     VarZahlungsartAktuell = "KARTE"
   ElseIf Not Me.DataGrid1.Columns("GUTSCHEIN").Value = "" Then
     VarZahlungsartAktuell = "GUTSCHEIN/BAR"
   End If


Call Me.RechnungDetailsDurchsuchen(DataGrid1.Columns(1).Text) 'RegNr anzeigen Lassen
VarRegNrAktuell = Me.DataGrid1.Columns(1).Text
Call Option1Aktualisieren

End Sub
Private Sub Datagrid2_BeforeColEdit(ByVal ColIndex As Integer, ByVal KeyAscii As Integer, Cancel As Integer)
SendKeys "{ESC}"
End Sub
Private Sub Datagrid2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
SendKeys "{ESC}"
End Sub
Private Sub Datagrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
SendKeys "{ESC}"
End Sub
'==================== PROZEDUREN ====================
'====================================================
Sub NurEinKellnerVonBisRechnungen(VarDatumVonLokal, VarDatumBisLokal, VarKellnerLokal)

Dim objConn As New ADODB.Connection
Dim rsRechnungsuebersicht As New ADODB.Recordset


Dim strPath As String

Set objConn = New ADODB.Connection
Set rsRechnungsuebersicht = New ADODB.Recordset

  
  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Überprüfen ob Tisch vorhanden
  With rsRechnungsuebersicht
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select ID,RegNr AS [Reg-Nr] ,Datum,Zeit,Tisch,Station,Mitarbeiter,BAR,KARTE,GUTSCHEIN,Beleg,Gesamt from Rechnungsuebersicht Where Datum >= #" & Format$(VarDatumVonLokal, "mm-dd-yyyy") & "# and Datum <= #" & Format$(VarDatumBisLokal, "mm-dd-yyyy") & "# and Mitarbeiter = '" & VarKellnerLokal & "' "
    '.Open "Select RegNr AS [Reg-Nr] ,Datum,Zeit,Tisch,Station,Kellner,Zahlungsart,Beleg,Gesamt from Rechnungsuebersicht Where Station = '" & VarStation & "' and Kellner = '" & VarKellner & "' and Datum >= #" & Format$(VarDatumVonLokal, "mm-dd-yyyy") & "# and Datum <= #" & Format$(VarDatumBisLokal, "mm-dd-yyyy") & "#"
    '.Find ("Name = '" & VarTischUmbuchen & "'")
   End With
 
 If rsRechnungsuebersicht.EOF = False Then
   If Not rsRechnungsuebersicht.Fields("BAR").Value = "" And rsRechnungsuebersicht.Fields("GUTSCHEIN").Value = "" Then
     VarZahlungsartAktuell = "BAR"
   ElseIf Not rsRechnungsuebersicht.Fields("KARTE").Value = "" Then
     VarZahlungsartAktuell = "KARTE"
   ElseIf Not rsRechnungsuebersicht.Fields("GUTSCHEIN").Value = "" Then
     VarZahlungsartAktuell = "GUTSCHEIN/BAR"
   End If
 End If
 
 Set DataGrid1.DataSource = rsRechnungsuebersicht
 
 DataGrid1.Columns(1).Width = 0.7 * DataGrid1.Width / 11
 DataGrid1.Columns(2).Width = DataGrid1.Width / 11
 DataGrid1.Columns(3).Width = DataGrid1.Width / 11
 DataGrid1.Columns(4).Width = DataGrid1.Width / 11
 DataGrid1.Columns(5).Width = DataGrid1.Width / 11
 DataGrid1.Columns(6).Width = DataGrid1.Width / 11
 DataGrid1.Columns(7).Width = DataGrid1.Width / 11
 DataGrid1.Columns(8).Width = DataGrid1.Width / 11
 DataGrid1.Columns(9).Width = DataGrid1.Width / 11
 DataGrid1.Columns(10).Width = DataGrid1.Width / 11
 DataGrid1.Columns(11).Width = DataGrid1.Width / 11

 DataGrid1.Columns(0).Visible = False


If rsRechnungsuebersicht.EOF = False Then
    Me.DataGrid1.Row = rsRechnungsuebersicht.RecordCount - 1
  'Selection modus setzen
    If Me.DataGrid1.SelBookmarks.Count <> 0 Then Me.DataGrid1.SelBookmarks.Remove 0
        Me.DataGrid1.SelBookmarks.Add Me.DataGrid1.Bookmark
        SendKeys "{ESC}"
    Me.DataGrid1.Scroll 0, 1000
   
 End If

Call Option1Aktualisieren



Set rsRechnungsuebersicht = Nothing
Set objConn = Nothing

End Sub
Sub AlleKellnerVonBisRechnungen(VarDatumVonLokal, VarDatumBisLokal)

Dim objConn As New ADODB.Connection
Dim rsRechnungsuebersicht As New ADODB.Recordset


Dim strPath As String

Set objConn = New ADODB.Connection
Set rsRechnungsuebersicht = New ADODB.Recordset


  
  
  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Überprüfen ob Tisch vorhanden
  With rsRechnungsuebersicht
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select ID,RegNr AS [Reg-Nr] ,Datum,Zeit,Tisch,Station,Mitarbeiter,BAR,KARTE,GUTSCHEIN,Beleg,Gesamt from Rechnungsuebersicht Where Datum >= #" & Format$(VarDatumVonLokal, "mm-dd-yyyy") & "# and Datum <= #" & Format$(VarDatumBisLokal, "mm-dd-yyyy") & "# ORDER by RegNr"
    '.Open "Select RegNr AS [Reg-Nr] ,Datum,Zeit,Tisch,Station,Kellner,Zahlungsart,Beleg,Gesamt from Rechnungsuebersicht Where Station = '" & VarStation & "' and Kellner = '" & VarKellner & "' and Datum >= #" & Format$(VarDatumVonLokal, "mm-dd-yyyy") & "# and Datum <= #" & Format$(VarDatumBisLokal, "mm-dd-yyyy") & "#"
    '.Find ("Name = '" & VarTischUmbuchen & "'")
   End With

If rsRechnungsuebersicht.EOF = False Then
   If Not rsRechnungsuebersicht.Fields("BAR").Value = "" And rsRechnungsuebersicht.Fields("GUTSCHEIN").Value = "" Then
     VarZahlungsartAktuell = "BAR"
   ElseIf Not rsRechnungsuebersicht.Fields("KARTE").Value = "" Then
     VarZahlungsartAktuell = "KARTE"
   ElseIf Not rsRechnungsuebersicht.Fields("GUTSCHEIN").Value = "" Then
     VarZahlungsartAktuell = "GUTSCHEIN/BAR"
   End If
 End If

 

Set DataGrid1.DataSource = rsRechnungsuebersicht
 
 DataGrid1.Columns(1).Width = 0.7 * DataGrid1.Width / 11
 DataGrid1.Columns(2).Width = DataGrid1.Width / 11
 DataGrid1.Columns(3).Width = DataGrid1.Width / 11
 DataGrid1.Columns(4).Width = DataGrid1.Width / 11
 DataGrid1.Columns(5).Width = DataGrid1.Width / 11
 DataGrid1.Columns(6).Width = DataGrid1.Width / 11
 DataGrid1.Columns(7).Width = DataGrid1.Width / 11
 DataGrid1.Columns(8).Width = DataGrid1.Width / 11
 DataGrid1.Columns(9).Width = DataGrid1.Width / 11
 DataGrid1.Columns(10).Width = DataGrid1.Width / 11
 DataGrid1.Columns(11).Width = DataGrid1.Width / 11
 
 
DataGrid1.Columns(0).Visible = False


If rsRechnungsuebersicht.EOF = False Then
    Me.DataGrid1.Row = rsRechnungsuebersicht.RecordCount - 1
  'Selection modus setzen
    If Me.DataGrid1.SelBookmarks.Count <> 0 Then Me.DataGrid1.SelBookmarks.Remove 0
        Me.DataGrid1.SelBookmarks.Add Me.DataGrid1.Bookmark
        SendKeys "{ESC}"
    Me.DataGrid1.Scroll 0, 1000
   
 End If

Call Option1Aktualisieren


Set rsRechnungsuebersicht = Nothing
Set objConn = Nothing

End Sub
Sub RechnungDetailsDurchsuchen(RegNrLokal)

Dim objConn As New ADODB.Connection
Dim rsRechnungDetails As New ADODB.Recordset


Dim strPath As String

Set objConn = New ADODB.Connection
Set rsRechnungDetails = New ADODB.Recordset



  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Überprüfen ob Tisch vorhanden
  With rsRechnungDetails
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select ID,PLU,Menge,Gericht,EPREIS,GPREIS from RechnungDetails Where RegNr = '" & RegNrLokal & "'"
    '.Find ("Name = '" & VarTischUmbuchen & "'")
   End With
Set DataGrid2.DataSource = rsRechnungDetails

 DataGrid2.Columns(1).Width = 0.1 * DataGrid1.Width
 DataGrid2.Columns(2).Width = 0.1 * DataGrid1.Width
 DataGrid2.Columns(3).Width = 0.6 * DataGrid1.Width
 DataGrid2.Columns(4).Width = 0.1 * DataGrid1.Width
 DataGrid2.Columns(4).Width = 0.1 * DataGrid1.Width

 DataGrid2.Columns(0).Visible = False

Set rsRechnungDetails = Nothing
Set objConn = Nothing

End Sub

Sub ZahlungsartAendern(VarRegNrLokal, VarZahlungsartLokal)

Dim objConn As New ADODB.Connection
Dim rsRechnungsuebersicht As New ADODB.Recordset


Dim strPath As String

Set objConn = New ADODB.Connection
Set rsRechnungsuebersicht = New ADODB.Recordset



  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Überprüfen ob Tisch vorhanden
  With rsRechnungsuebersicht
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select ID,RegNr AS [Reg-Nr] ,Datum,Zeit,Tisch,Station,>Mitarbeiter,Zahlungsart,Beleg,Gesamt from Rechnungsuebersicht Where  RegNr= '" & VarRegNrLokal & "'ORDER by RegNr"
    '.Open "Select RegNr AS [Reg-Nr] ,Datum,Zeit,Tisch,Station,Kellner,Zahlungsart,Beleg,Gesamt from Rechnungsuebersicht Where Station = '" & VarStation & "' and Kellner = '" & VarKellner & "' and Datum >= #" & Format$(VarDatumVonLokal, "mm-dd-yyyy") & "# and Datum <= #" & Format$(VarDatumBisLokal, "mm-dd-yyyy") & "#"
    '.Find ("Name = '" & VarTischUmbuchen & "'")
   End With

rsRechnungsuebersicht.Fields("Zahlungsart").Value = VarZahlungsartLokal
rsRechnungsuebersicht.Update

Set DataGrid1.DataSource = rsRechnungsuebersicht
 
 
 DataGrid1.Columns(0).Width = DataGrid1.Width / 9
 DataGrid1.Columns(1).Width = DataGrid1.Width / 9
 DataGrid1.Columns(2).Width = DataGrid1.Width / 9
 DataGrid1.Columns(3).Width = DataGrid1.Width / 9
 DataGrid1.Columns(4).Width = DataGrid1.Width / 9
 DataGrid1.Columns(5).Width = DataGrid1.Width / 9
 DataGrid1.Columns(6).Width = DataGrid1.Width / 9
 DataGrid1.Columns(7).Width = DataGrid1.Width / 9
 DataGrid1.Columns(8).Width = DataGrid1.Width / 9

 DataGrid1.Columns(0).Visible = False

Set rsRechnungsuebersicht = Nothing
Set objConn = Nothing

End Sub

Sub Option1Aktualisieren()
For I = 0 To Me.Option1.Count - 1
    If Me.Option1.Item(I).Caption = VarZahlungsartAktuell Then
        Me.Option1.Item(I).Value = True
        VarOptionIndexAktuell = I
    End If
Next I

End Sub