VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmTotal 
   BackColor       =   &H80000003&
   BorderStyle     =   3  'Fester Dialog
   Caption         =   "TOTAL"
   ClientHeight    =   8010
   ClientLeft      =   105
   ClientTop       =   855
   ClientWidth     =   9825
   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     =   8010
   ScaleWidth      =   9825
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000007&
      Height          =   1770
      Left            =   825
      TabIndex        =   6
      Top             =   5025
      Width           =   8535
      Begin VB.CommandButton cmdKeinBon 
         Caption         =   "kein Bon"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   670
         Left            =   4500
         Style           =   1  'Grafisch
         TabIndex        =   13
         Top             =   975
         Width           =   1700
      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          =   670
         Left            =   2325
         Style           =   1  'Grafisch
         TabIndex        =   12
         Top             =   975
         Width           =   1700
      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          =   670
         Left            =   225
         Style           =   1  'Grafisch
         TabIndex        =   11
         Top             =   975
         Width           =   1700
      End
      Begin VB.CommandButton cmdSchliessen 
         Caption         =   "Schließen"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   670
         Left            =   6600
         Style           =   1  'Grafisch
         TabIndex        =   10
         Top             =   900
         Width           =   1700
      End
      Begin VB.OptionButton Option1 
         Caption         =   "GUTSCHEIN"
         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            =   3900
         TabIndex        =   9
         Top             =   375
         Width           =   1755
      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            =   2025
         TabIndex        =   8
         Top             =   375
         Width           =   1455
      End
      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        =   7
         Top             =   375
         Width           =   1455
      End
   End
   Begin VB.CommandButton cmdNurMarkierungNachLinks 
      BackColor       =   &H80000002&
      Caption         =   "<"
      Height          =   480
      Left            =   4188
      Style           =   1  'Grafisch
      TabIndex        =   3
      Top             =   2808
      Width           =   732
   End
   Begin VB.CommandButton cmdAllesNachLinks 
      BackColor       =   &H80000002&
      Caption         =   "<<"
      Height          =   480
      Left            =   4200
      Style           =   1  'Grafisch
      TabIndex        =   2
      Top             =   2112
      Width           =   732
   End
   Begin VB.CommandButton cmdNurMarkierungNachRechts 
      BackColor       =   &H80000003&
      Caption         =   ">"
      Height          =   410
      Left            =   4164
      Style           =   1  'Grafisch
      TabIndex        =   1
      Top             =   1308
      UseMaskColor    =   -1  'True
      Width           =   750
   End
   Begin VB.CommandButton cmdAllesNachRechts 
      BackColor       =   &H80000003&
      Caption         =   ">>"
      Height          =   410
      Left            =   4176
      Style           =   1  'Grafisch
      TabIndex        =   0
      Top             =   852
      UseMaskColor    =   -1  'True
      Width           =   750
   End
   Begin MSDataGridLib.DataGrid DataGrid2 
      Height          =   3495
      Left            =   6240
      TabIndex        =   16
      Top             =   240
      Width           =   3150
      _ExtentX        =   5556
      _ExtentY        =   6165
      _Version        =   393216
      AllowUpdate     =   -1  'True
      AllowArrows     =   -1  'True
      BackColor       =   16777215
      BorderStyle     =   0
      Enabled         =   -1  'True
      ForeColor       =   128
      HeadLines       =   2
      RowHeight       =   20
      WrapCellPointer =   -1  'True
      RowDividerStyle =   6
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   11.25
         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 
         RecordSelectors =   0   'False
         Size            =   4455
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin MSDataGridLib.DataGrid DataGrid1 
      Height          =   3495
      Left            =   840
      TabIndex        =   17
      Top             =   480
      Width           =   3150
      _ExtentX        =   5556
      _ExtentY        =   6165
      _Version        =   393216
      AllowUpdate     =   -1  'True
      AllowArrows     =   -1  'True
      BackColor       =   16777215
      BorderStyle     =   0
      Enabled         =   -1  'True
      ForeColor       =   128
      HeadLines       =   2
      RowHeight       =   20
      WrapCellPointer =   -1  'True
      RowDividerStyle =   6
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   11.25
         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 
         RecordSelectors =   0   'False
         Size            =   4455
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin VB.Label lblTischSummeRechts 
      Alignment       =   1  'Rechts
      BorderStyle     =   1  'Fest Einfach
      Caption         =   "LabelRechts"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   495
      Left            =   6450
      TabIndex        =   15
      Top             =   4200
      Width           =   2190
   End
   Begin VB.Label lblTischSummeLinks 
      Alignment       =   1  'Rechts
      BorderStyle     =   1  'Fest Einfach
      Caption         =   "LabelLinks"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   495
      Left            =   1635
      TabIndex        =   14
      Top             =   4125
      Width           =   1950
   End
   Begin VB.Label lblNachtisch 
      BackColor       =   &H8000000C&
      Caption         =   "lblNachtisch"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   1095
      Left            =   4950
      TabIndex        =   5
      Top             =   2040
      Width           =   1095
   End
   Begin VB.Label lblVonTisch 
      BackColor       =   &H8000000C&
      Caption         =   "lblVonTisch"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   615
      Left            =   5040
      TabIndex        =   4
      Top             =   1200
      Width           =   1095
   End
End
Attribute VB_Name = "frmTotal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim VarGutscheinNr, VarGutscheinBetrag
'=========================== FORM EREIGNISSE ========================
'====================================================================

Private Sub Form_DblClick()
frmTastenMenu2.TimerMenu2.Enabled = False
frmGutscheinTasten.Show 1
frmTastenMenu2.TimerMenu2.Enabled = True

End Sub

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

Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002

Me.Option1.Item(0).Value = True
Abstand = MDIHauptmenu.ScaleHeight / 70
AbstandMitte = 8 * Abstand

Me.Width = 0.9 * MDIHauptmenu.ScaleWidth
Me.Height = 0.8 * MDIHauptmenu.ScaleHeight
Me.Top = MDIHauptmenu.ScaleHeight / 2 - Me.Height / 2
Me.Left = MDIHauptmenu.ScaleWidth / 2 - Me.Width / 2


Me.lblVonTisch.Top = Abstand
Me.lblVonTisch.Left = Abstand
Me.lblVonTisch.Width = Me.ScaleWidth / 2 - AbstandMitte / 2 - 2 * Abstand
Me.lblVonTisch.Caption = "Bestellung"

Me.DataGrid1.Top = Me.lblVonTisch.Top + Me.lblVonTisch.Height
Me.DataGrid1.Left = Me.lblVonTisch.Left
Me.DataGrid1.Width = Me.lblVonTisch.Width
Me.DataGrid1.Height = 0.6 * Me.ScaleHeight

Me.DataGrid1.RowHeight = 0.08 * Me.DataGrid1.Height
Me.DataGrid2.RowHeight = Me.DataGrid1.RowHeight
'DataGrid1.Align = 3

lblNachtisch.Top = Abstand
lblNachtisch.Left = DataGrid1.Left + DataGrid1.Width + AbstandMitte + 2 * Abstand
lblNachtisch.Width = lblVonTisch.Width
lblNachtisch.Height = lblVonTisch.Height

DataGrid2.Top = lblNachtisch.Top + lblNachtisch.Height
DataGrid2.Left = lblNachtisch.Left
DataGrid2.Width = lblNachtisch.Width
DataGrid2.Height = DataGrid1.Height



Me.cmdAllesNachRechts.Width = AbstandMitte - 1.5 * Abstand
Me.cmdAllesNachRechts.Height = 5 * Abstand
Me.cmdAllesNachRechts.Top = Me.DataGrid1.Top + Me.DataGrid1.Height / 4 - (2 * Me.cmdAllesNachRechts.Height + Abstand) / 3
Me.cmdAllesNachRechts.Left = Me.DataGrid1.Left + Me.DataGrid1.Width + 2 * Abstand

Me.cmdNurMarkierungNachRechts.Top = Me.cmdAllesNachRechts.Top + Me.cmdAllesNachRechts.Height + 0.8 * Abstand
Me.cmdNurMarkierungNachRechts.Left = Me.cmdAllesNachRechts.Left
Me.cmdNurMarkierungNachRechts.Width = Me.cmdAllesNachRechts.Width
Me.cmdNurMarkierungNachRechts.Height = Me.cmdAllesNachRechts.Height

cmdAllesNachLinks.Top = Me.DataGrid1.Top + Me.DataGrid1.Height / 2 + (2 * Me.cmdAllesNachRechts.Height + Abstand) / 3
cmdAllesNachLinks.Left = cmdNurMarkierungNachRechts.Left
cmdAllesNachLinks.Width = cmdNurMarkierungNachRechts.Width
cmdAllesNachLinks.Height = cmdNurMarkierungNachRechts.Height

cmdNurMarkierungNachLinks.Top = cmdAllesNachLinks.Top + cmdAllesNachLinks.Height + 0.8 * Abstand
cmdNurMarkierungNachLinks.Left = cmdAllesNachLinks.Left
cmdNurMarkierungNachLinks.Width = cmdAllesNachLinks.Width
cmdNurMarkierungNachLinks.Height = cmdAllesNachLinks.Height



For I = 0 To Option1.Count - 1
If Option1.Item(I).Value = True Then
 lblNachtisch.Caption = Option1(I).Caption
End If
Next I


Me.lblTischSummeLinks.Top = Me.DataGrid1.Top + Me.DataGrid1.Height
Me.lblTischSummeLinks.Left = Me.DataGrid1.Left + Me.DataGrid1.Width - Me.lblTischSummeLinks.Width

Me.lblTischSummeRechts.Top = Me.DataGrid2.Top + Me.DataGrid2.Height
Me.lblTischSummeRechts.Left = Me.DataGrid2.Left + Me.DataGrid2.Width - Me.lblTischSummeRechts.Width

Me.Frame1.Left = Me.DataGrid2.Left
Me.Frame1.Top = Me.DataGrid2.Top + Me.DataGrid2.Height + Me.lblTischSummeRechts.Height + Abstand / 2
Me.Frame1.Width = Me.DataGrid2.Width
Me.Frame1.Height = Me.ScaleHeight - (lblNachtisch.Height + Me.DataGrid2.Height + Me.lblTischSummeRechts.Height) - 2.5 * Abstand

Me.Option1(0).Top = Abstand
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.Top = Me.Frame1.Height / 2
Me.cmdKassenbon.Left = Abstand
Me.cmdKassenbon.Width = (Me.Frame1.Width - 8 * Abstand) / 4
Me.cmdKassenbon.Height = 0.4 * Me.Frame1.Height

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.cmdKeinBon.Top = Me.cmdRechnung.Top
Me.cmdKeinBon.Left = Me.cmdRechnung.Left + Me.cmdRechnung.Width + 2 * Abstand
Me.cmdKeinBon.Width = Me.cmdRechnung.Width
Me.cmdKeinBon.Height = Me.cmdRechnung.Height

Me.cmdSchliessen.Top = Me.cmdKeinBon.Top
Me.cmdSchliessen.Left = Me.cmdKeinBon.Left + Me.cmdKeinBon.Width + 2 * Abstand
Me.cmdSchliessen.Width = Me.cmdKeinBon.Width
Me.cmdSchliessen.Height = Me.cmdKeinBon.Height



Call Me.AllesUmbuchen(DataGrid1, VarTisch, "Zahlen")
Call Me.TischLokalAktualisieren(Me.DataGrid1, Me.lblTischSummeLinks, VarStation, VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid2, Me.lblTischSummeRechts, VarStation, "Zahlen")
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002
End Sub

Private Sub Form_Paint()
'DataGrid1.Scroll 0, 1000
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 1 Then
'Die Unload-Anweisung wurde im Code aufgerufen
Else
    
    On Error Resume Next
    Call AllesUmbuchen(Me.DataGrid1, "Zahlen", VarTisch)
    
Call Me.TischLokalAktualisieren(Me.DataGrid1, Me.lblTischSummeLinks, VarStation, VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid2, Me.lblTischSummeRechts, VarStation, "Zahlen")
End If
Call mdlDatenbanken.TischAktualisieren(VarTisch, frmTisch.cmdTisch.Caption)
End Sub
'=========================== FRAME EREIGNISSE ========================
'======================================================================

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002

End Sub



'=========================== OPTION EREIGNISSE ========================
'======================================================================
Private Sub Option1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
 Case 0, 1
    Me.lblNachtisch.Caption = Me.Option1(Index).Caption
 Case 2
    VarGutscheinNr = InputBox("Geben Sie eine Gutschein-Nr. ein. ", "Gutschein-Nr.")
    VarGutscheinBetrag = InputBox("Geben Sie eine Gutschein-Betrag ein ", "Gutschein-Nr.")

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

End Sub

'=========================== COMMANDBUTTON EREIGNISSE ========================
'=============================================================================
Private Sub cmdAllesNachLinks_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80C0FF
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002
End Sub
Private Sub cmdAllesNachRechts_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80C0FF
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002
End Sub
Private Sub cmdNurMarkierungNachRechts_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80C0FF
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002
End Sub
Private Sub cmdNurMarkierungNachLinks_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80C0FF
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002
End Sub
Private Sub cmdKassenbon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80C0FF
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002
End Sub

Private Sub cmdKeinBon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80C0FF
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80000002
End Sub

Private Sub cmdRechnung_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80C0FF
Me.cmdSchliessen.BackColor = &H80000002
End Sub
Private Sub cmdSchliessen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.cmdAllesNachRechts.BackColor = &H80000002
Me.cmdNurMarkierungNachRechts.BackColor = &H80000002
Me.cmdAllesNachLinks.BackColor = &H80000002
Me.cmdNurMarkierungNachLinks.BackColor = &H80000002
Me.cmdKassenbon.BackColor = &H80000002
Me.cmdKeinBon.BackColor = &H80000002
Me.cmdRechnung.BackColor = &H80000002
Me.cmdSchliessen.BackColor = &H80C0FF
End Sub
Private Sub cmdKassenbon_Click()
  
  If ReportAbrechnung.Abrechnung("Zahlen", "Kassenbon") Then

    Call ReportAbrechnung.RechnungDetails("Zahlen", Me.lblNachtisch.Caption, VarGutscheinNr, VarGutscheinBetrag, "Kassenbon")
    Unload Me
    
    frmTastenMenu1.BesetzteTische
    frmTisch.Visible = False
    frmTastenMenu1.Visible = False
    frmSchnellwahltaste.Visible = False
 
    frmTastenMenu2.Visible = False
    frmLink.Visible = True
    MDIHauptmenu.imgMenu.Visible = True
    'frmPin.Show 1 'Übeprüfen von Pin
    frmRaum.Visible = True
  End If

End Sub
Private Sub cmdRechnung_Click()
  'Prüffen ob betreffende Rechte vorhanden sind
         If modRechte.MitarbeiterRecht(VarKellner, "Rechnungen") = False Then
           MsgBox "Sie haben nicht die nötigen Rechte, um diese Aktion auszuführen"
           Exit Sub
         End If
  If ReportRechnung.Rechnung("Zahlen") Then
    Call ReportRechnung.RechnungDetails("Zahlen", Me.lblNachtisch.Caption, VarGutscheinNr, VarGutscheinBetrag, "Rechnung")
    Unload Me
    
    frmTastenMenu1.BesetzteTische
    frmTisch.Visible = False
    frmTastenMenu1.Visible = False
    frmSchnellwahltaste.Visible = False
 
    frmTastenMenu2.Visible = False
    frmLink.Visible = True
    MDIHauptmenu.imgMenu.Visible = True
    'frmPin.Show 1 'Übeprüfen von Pin
    frmRaum.Visible = True
  End If
End Sub
Private Sub cmdKeinBon_Click()
  
   
  If ReportAbrechnung.Abrechnung("Zahlen", "kein Bon") Then
    Call ReportAbrechnung.RechnungDetails("Zahlen", Me.lblNachtisch.Caption, VarGutscheinNr, VarGutscheinBetrag, "kein Bon")
    Unload Me
    
    frmTastenMenu1.BesetzteTische
    frmTisch.Visible = False
    frmTastenMenu1.Visible = False
    frmSchnellwahltaste.Visible = False
 
    frmTastenMenu2.Visible = False
    frmLink.Visible = True
    MDIHauptmenu.imgMenu.Visible = True
    'frmPin.Show 1 'Übeprüfen von Pin
    frmRaum.Visible = True
  End If
End Sub
Private Sub cmdSchliessen_Click()
Call AllesUmbuchen(Me.DataGrid1, "Zahlen", VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid1, Me.lblTischSummeLinks, VarStation, VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid2, Me.lblTischSummeRechts, VarStation, "Zahlen")

Call mdlDatenbanken.TischAktualisieren(VarTisch, frmTisch.cmdTisch.Caption)

Unload Me
End Sub

Private Sub cmdAllesNachRechts_Click()
On Error Resume Next
Call AllesUmbuchen(DataGrid1, VarTisch, "Zahlen")
Call Me.TischLokalAktualisieren(Me.DataGrid1, Me.lblTischSummeLinks, VarStation, VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid2, Me.lblTischSummeRechts, VarStation, "Zahlen")
End Sub
Private Sub cmdAllesNachLinks_Click()
On Error Resume Next
Call AllesUmbuchen(DataGrid2, "Zahlen", VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid1, Me.lblTischSummeLinks, VarStation, VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid2, Me.lblTischSummeRechts, VarStation, "Zahlen")
End Sub
Private Sub cmdNurMarkierungNachRechts_Click()
On Error Resume Next
Call NurGerichtUmbuchen(VarTisch, "Zahlen", Me.DataGrid1.Columns("PLU").Text, Format(Me.DataGrid1.Columns("E-Preis").Text, "0.00"))
Call Me.TischLokalAktualisieren(Me.DataGrid1, Me.lblTischSummeLinks, VarStation, VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid2, Me.lblTischSummeRechts, VarStation, "Zahlen")
End Sub
Private Sub cmdNurMarkierungNachLinks_Click()
On Error Resume Next
Call NurGerichtUmbuchen("Zahlen", VarTisch, Me.DataGrid2.Columns("PLU").Text, Format(Me.DataGrid2.Columns("E-Preis").Text, "0.00"))
Call Me.TischLokalAktualisieren(Me.DataGrid1, Me.lblTischSummeLinks, VarStation, VarTisch)
Call Me.TischLokalAktualisieren(Me.DataGrid2, Me.lblTischSummeRechts, VarStation, "Zahlen")
End Sub

'=========================== DataGrid EREIGNISSE  ========================
'=========================================================================
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
End Sub
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
DataGrid1.Col = 0 'so kann nichts eingetragen werden
End Sub
Private Sub Datagrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error Resume Next
If DataGrid2.SelBookmarks.Count <> 0 Then DataGrid2.SelBookmarks.Remove 0
   DataGrid2.SelBookmarks.Add DataGrid2.Bookmark
DataGrid2.Col = 0 'so kann nichts eingetragen werden
End Sub
Private Sub DataGrid2_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If DataGrid2.SelBookmarks.Count <> 0 Then DataGrid2.SelBookmarks.Remove 0
   DataGrid2.SelBookmarks.Add DataGrid2.Bookmark
DataGrid2.Col = 0 'so kann nichts eingetragen werden
End Sub

'=========================== P R O Z E D U R E N ========================
'========================================================================
Sub TischLokalAktualisieren(VarTabelle, VarlblTischSumme, VarStationLokal, VarTischLokal)
Dim objConn As New ADODB.Connection
Dim rsTisch As New ADODB.Recordset
Dim strPath As String

Set objConn = New ADODB.Connection
Set rsTisch = 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=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Überprüfen ob Tisch vorhanden
  With rsTisch
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM OffeneTische Where Tisch='" & VarTischLokal & "' ORDER BY IDWG,RegID,ID"

  End With

If rsTisch.EOF = True Then 'Datensatz wurde nicht gefunden
    VarKellnerLokal = VarKellner
Else
    VarKellnerLokal = rsTisch.Fields("Kellner").Value
End If

 VarKellnerUmbuchen = VarKellnerLokal
 
 Set VarTabelle.DataSource = rsTisch


 VarTabelle.LeftCol = 1
  For I = 0 To VarTabelle.Columns.Count - 1
  VarTabelle.Columns.Item(I).Visible = False
 Next I
 
 VarTabelle.Columns("EPREIS").Caption = "E-Preis"
 VarTabelle.Columns("GPREIS").Caption = "G-Preis"
 VarTabelle.Columns("Menge_Text").Caption = "Anz."
 
 VarTabelle.Columns("PLU").Visible = True
 VarTabelle.Columns("Anz.").Visible = True
 VarTabelle.Columns("Gericht").Visible = True
 VarTabelle.Columns("E-Preis").Visible = True
 VarTabelle.Columns("G-Preis").Visible = True

 VarTabelle.Columns("PLU").Width = 0.09 * VarTabelle.Width
 VarTabelle.Columns("Anz.").Width = 0.08 * VarTabelle.Width
 VarTabelle.Columns("Anz.").DividerStyle = 0
 VarTabelle.Columns("Gericht").Width = 0.45 * VarTabelle.Width
 VarTabelle.Columns("E-Preis").Width = 0.16 * VarTabelle.Width
 VarTabelle.Columns("G-Preis").Width = 0.16 * VarTabelle.Width

 VarTabelle.Columns("PLU").Alignment = dbgCenter
 VarTabelle.Columns("Anz.").Alignment = dbgCenter
 VarTabelle.Columns("E-Preis").Alignment = dbgRight
 VarTabelle.Columns("G-Preis").Alignment = dbgRight


 VarlblTischSumme.Width = 2 * VarTabelle.Columns("G-Preis").Width + 0.03 * VarTabelle.Width
 VarlblTischSumme.Top = VarTabelle.Top + VarTabelle.Height
 VarlblTischSumme.Left = VarTabelle.Left + VarTabelle.Width - VarlblTischSumme.Width
 VarlblTischSumme.FontSize = "18"
  
 If VarTabelle.Row >= 0 Then
     VarTabelle.Scroll 0, 1000
     VarTabelle.Row = VarTabelle.VisibleRows - 1
     'Selection modus setzen
    If VarTabelle.SelBookmarks.Count <> 0 Then VarTabelle.SelBookmarks.Remove 0
     VarTabelle.SelBookmarks.Add VarTabelle.Bookmark
   'SendKeys "{ESC}"
   End If
 
 Call TischSumme(VarTabelle, VarlblTischSumme, VarStationLokal, VarTischLokal)
    
Set rsTisch = Nothing
Set objConn = Nothing

End Sub
Sub TischSumme(VarTabelle, VarlblTischSumme, VarStationLokal, VarTischLokal)
Dim objConn As New ADODB.Connection
Dim rsSummeTisch As New ADODB.Recordset


Dim strPath As String

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

  On Error GoTo err_Handler

  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=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With

With rsSummeTisch
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Source = "Select Sum(Menge*EPREIS) As SummeTisch FROM OffeneTische Where Station='" & VarStationLokal & "' and Tisch='" & VarTischLokal & "' "
    .Open
End With
  
 IstNullWert = CStr(IsNull(rsSummeTisch("SummeTisch")))

 If IstNullWert = True Then
   VarTabelle.Caption = VarStation & "   " & "Tisch: " & VarTisch
   VarlblTischSumme.Visible = False
  Else
   VarTabelle.Caption = VarStation & "   " & "Tisch: " & VarTisch
    VarlblTischSumme.Caption = Format(CStr(rsSummeTisch("SummeTisch")), "Currency")
    VarlblTischSumme.Visible = True
 End If

  If VarTabelle.Name = "DataGrid1" Then
   VarTabelle.Caption = VarStationLokal & "   " & "Tisch: " & VarTischLokal & ""
  Else
  
  
  
  
  End If

   'Formatierung von Datagrid1 Tabelle vornehmen
   Set fmt = New StdDataFormat
   fmt.Type = fmtCustom
   fmt.Format = "Currency" '"###,##0.00"
   Set VarTabelle.Columns("E-Preis").DataFormat = fmt
   Set VarTabelle.Columns("G-Preis").DataFormat = fmt


Set objConn = Nothing
Set rsSummeTisch = Nothing
Set fmt = Nothing
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    VarTabelle.ReBind
  Resume exit_Sub
Set objConn = Nothing
Set rsSummeTisch = Nothing
End Sub
Sub AllesUmbuchen(VarTabelle, VarTischVon, VarTischNach)
Dim objConn As ADODB.Connection
Dim rsTischVon As ADODB.Recordset
Dim rsTischNach As ADODB.Recordset
Dim strPath As String

Set objConn = New ADODB.Connection
Set rsTischVon = New ADODB.Recordset
Set rsTischNach = New ADODB.Recordset

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
  
  On Error GoTo err_Handler
  
  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Tabelle OffeneTische öffnen
   With rsTischVon
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     .Open "Select *From OffeneTische Where Station = '" & VarStation & "' and Tisch='" & VarTischVon & "' and TischDetails='Alt'"
   End With

  
 'Recordset durchlaufen und neu Eintäge löschen.

  While Not rsTischVon.EOF
     
       With rsTischNach
        .ActiveConnection = objConn
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Open "Select *From OffeneTische Where Station = '" & VarStation & "' and Tisch='" & VarTischNach & "' and TischDetails='Alt' and PLU='" & rsTischVon.Fields("PLU").Value & "' and EPREIS='" & rsTischVon.Fields("EPreis").Value & "'"
       End With
     If rsTischNach.EOF Then
         rsTischNach.AddNew
         For k = 1 To rsTischNach.Fields.Count - 1
            rsTischNach.Fields(k).Value = rsTischVon.Fields(k).Value
         Next k
            rsTischNach.Fields("Tisch").Value = VarTischNach
      Else
        If rsTischNach.Fields("Extra").Value = "Ja" Then
          rsTischNach.AddNew
          For k = 1 To rsTischNach.Fields.Count - 1
            rsTischNach.Fields(k).Value = rsTischVon.Fields(k).Value
          Next k
          rsTischNach.Fields("Tisch").Value = VarTischNach
        Else
          rsTischNach.Fields("Menge").Value = rsTischNach.Fields("Menge").Value + rsTischVon.Fields("Menge").Value
          rsTischNach.Fields("Menge_Text").Value = rsTischNach.Fields("Menge").Value & "x"
          rsTischNach.Fields("GPreis").Value = Format(rsTischNach.Fields("Menge").Value * rsTischNach.Fields("EPreis").Value, "####0.#0")
       End If
      End If
       rsTischNach.Update 'Datenbank Aktualisieren
       rsTischNach.Close
    
  rsTischVon.Delete
 rsTischVon.MoveNext
 Wend
       
'Objekte aus dem Speicher leeren


Set rsTischVon = Nothing
Set rsTischNach = Nothing
Set objConn = Nothing

exit_Sub:
  On Error GoTo 0
Set rsTischVon = Nothing
Set rsTischNach = Nothing
Set objConn = Nothing
  
  Exit Sub

err_Handler:
    MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsTischVon = Nothing
Set rsTischNach = Nothing
Set objConn = Nothing
End Sub
Sub NurGerichtUmbuchen(VarTischVon, VarTischNach, VarPLU, VarEPREIS)
Dim Wert As Integer

Dim objConn As ADODB.Connection

Dim rsTischVon As ADODB.Recordset
Dim rsTischNach As ADODB.Recordset

Set objConn = New ADODB.Connection

Set rsTischVon = New ADODB.Recordset
Set rsTischNach = New ADODB.Recordset

Dim strPath As String

  On Error GoTo err_Handler

  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=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With

  With rsTischVon
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM OffeneTische Where Tisch='" & VarTischVon & "' and TischDetails='Alt' and PLU='" & VarPLU & "' and EPREIS='" & VarEPREIS & "'"
  End With
   
  With rsTischNach
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM OffeneTische Where Tisch='" & VarTischNach & "' and TischDetails='Alt' and PLU='" & VarPLU & "' and EPREIS='" & VarEPREIS & "'"
  End With

If rsTischVon.EOF = True Then 'Bedingung 1 Starten
        
        MsgBox "Gericht nicht gefunden oder Tisch ist Leer"
Else
     If rsTischVon.Fields("Menge").Value = 1 Then 'Bedingung 2 Starten
        If rsTischNach.EOF = True Then
          rsTischVon.Fields("Tisch").Value = VarTischNach
          rsTischVon.Update 'Aktualisiert das Recordset
          rsTischVon.Requery 'Aktualisiert die Datenbank
         Else
          rsTischNach.Fields("Menge").Value = rsTischNach.Fields("Menge").Value + rsTischVon.Fields("Menge").Value
          rsTischNach.Fields("Menge_Text").Value = rsTischNach.Fields("Menge").Value & "x"
          rsTischNach.Fields("GPREIS").Value = Format(rsTischNach.Fields("Menge").Value * rsTischNach.Fields("EPREIS").Value, "####0.00")
          rsTischVon.Delete
          rsTischVon.Update 'Aktualisiert das Recordset
          rsTischVon.Requery 'Aktualisiert die Datenbank
          rsTischNach.Update 'Aktualisiert das Recordset
          rsTischNach.Requery 'Aktualisiert die Datenbank
         End If
     Else
        frmTastenBasis.Label1.Caption = "Bitte Anzahl eingeben"
        frmTastenBasis.Show 1
        Select Case MDIHauptmenu.Tag
         Case "Abbrechen"
          Exit Sub
         Case "OkLeer"
          frmTastenBasis.Show 1
         Case "Unload"
          Exit Sub
        End Select
        
        Wert = MDIHauptmenu.Tag
         
        If Wert > 0 And Wert < rsTischVon.Fields("Menge").Value Then 'Bedingung 3 Starten
           
          If rsTischNach.EOF = True Then
            'Das ist kein satz vorhanden
            rsTischNach.AddNew
           
                   
            For I = 1 To rsTischNach.Fields.Count - 1
               rsTischNach.Fields(I).Value = rsTischVon.Fields(I).Value
            Next I
           
           rsTischVon.Fields("Menge").Value = rsTischVon.Fields("Menge").Value - Wert
           rsTischVon.Fields("Menge_Text").Value = rsTischVon.Fields("Menge").Value & "x"
           rsTischVon.Fields("GPREIS").Value = Format(rsTischVon.Fields("Menge").Value * rsTischVon.Fields("EPREIS").Value, "####0.00")
                      
           rsTischNach.Fields("Menge").Value = Wert
           rsTischNach.Fields("Menge_Text").Value = rsTischNach.Fields("Menge").Value & "x"
           rsTischNach.Fields("GPREIS").Value = Format(rsTischNach.Fields("Menge").Value * rsTischNach.Fields("EPREIS").Value, "####0.00")
           rsTischNach.Fields("Tisch").Value = VarTischNach
           
           rsTischVon.Update 'Aktualisiert das Recordset
           rsTischNach.Update 'Aktualisiert das Recordset
          Else
            'Satz ist vorhanden
            
            rsTischVon.Fields("Menge").Value = rsTischVon.Fields("Menge").Value - Wert
            rsTischVon.Fields("Menge_Text").Value = rsTischVon.Fields("Menge").Value & "x"
            rsTischVon.Fields("GPREIS").Value = Format(rsTischVon.Fields("Menge").Value * rsTischVon.Fields("EPREIS").Value, "####0.00")

            rsTischNach.Fields("Menge").Value = rsTischNach.Fields("Menge").Value + Wert
            rsTischNach.Fields("Menge_Text").Value = rsTischNach.Fields("Menge").Value & "x"
            sTischNach.Fields("GPREIS").Value = Format(rsTischNach.Fields("Menge").Value * rsTischNach.Fields("EPREIS").Value, "####0.00")

            rsTischVon.Update 'Aktualisiert das Recordset
            rsTischNach.Update 'Aktualisiert das Recordset
            
          End If
           
           rsTischVon.Update 'Aktualisiert das Recordset
           rsTischVon.Requery 'Aktualisiert die Datenbank
        ElseIf Wert = rsTischVon.Fields("Menge").Value Then
           If rsTischNach.EOF = True Then
            rsTischVon.Fields("Tisch").Value = VarTischNach
            rsTischVon.Update 'Aktualisiert das Recordset
            rsTischVon.Requery 'Aktualisiert die Datenbank
           Else
            rsTischNach.Fields("Menge").Value = rsTischNach.Fields("Menge").Value + rsTischVon.Fields("Menge").Value
            rsTischNach.Fields("Menge_Text").Value = rsTischNach.Fields("Menge").Value & "x"
            rsTischNach.Fields("GPREIS").Value = Format(rsTischNach.Fields("Menge").Value * rsTischNach.Fields("EPREIS").Value, "####0.00")

            rsTischVon.Delete
            rsTischVon.Update 'Aktualisiert das Recordset
            rsTischVon.Requery 'Aktualisiert die Datenbank
            rsTischNach.Update 'Aktualisiert das Recordset
            rsTischNach.Requery 'Aktualisiert die Datenbank
           End If
        End If 'Bedingung 3 abschließen
     End If 'Bedingung 2 abschließen
End If 'Bedingung 1 abschließen
  
  
    

    
Set rsTischNach = Nothing
Set rsTischVon = Nothing
Set objConn = Nothing
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  If Err.Number <> 13 Then
   MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
  End If
  Resume exit_Sub
Set rsTischNach = Nothing
Set rsTischVon = Nothing
Set rsTischNeu = Nothing

End Sub