VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmBerichte 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'Kein
   Caption         =   "Form1"
   ClientHeight    =   5835
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12885
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5835
   ScaleWidth      =   12885
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox PictureBerichte 
      Appearance      =   0  '2D
      BackColor       =   &H80000002&
      ForeColor       =   &H80000008&
      Height          =   3045
      Left            =   2040
      ScaleHeight     =   3015
      ScaleWidth      =   9435
      TabIndex        =   1
      Top             =   0
      Width           =   9465
      Begin VB.CommandButton cmdUmsatzDetails 
         Caption         =   "Umsatzdetails  anzeigen"
         Height          =   600
         Left            =   6850
         TabIndex        =   11
         Top             =   1800
         Width           =   2060
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Command1"
         Height          =   465
         Left            =   6300
         TabIndex        =   10
         Top             =   480
         Visible         =   0   'False
         Width           =   1275
      End
      Begin MSComCtl2.DTPicker DTPickerEnddatum 
         Height          =   420
         Left            =   3630
         TabIndex        =   9
         Top             =   1230
         Width           =   1875
         _ExtentX        =   3307
         _ExtentY        =   741
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         CalendarTitleBackColor=   8421631
         Format          =   62849025
         CurrentDate     =   39250
      End
      Begin MSComCtl2.DTPicker DTPickerStartdatum 
         Height          =   420
         Left            =   3630
         TabIndex        =   8
         Top             =   660
         Width           =   1880
         _ExtentX        =   3307
         _ExtentY        =   741
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         CalendarTitleBackColor=   8421631
         Format          =   62849025
         CurrentDate     =   39250
      End
      Begin VB.ComboBox ComboKellner 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Left            =   3630
         TabIndex        =   7
         Text            =   "Combo1"
         Top             =   1800
         Width           =   2115
      End
      Begin VB.CommandButton cmdDrucken 
         Caption         =   "Gesamtumsatz anzeigen"
         Height          =   600
         Left            =   6850
         TabIndex        =   2
         Top             =   1000
         Width           =   2060
      End
      Begin VB.Label lblKellner 
         AutoSize        =   -1  'True
         BackColor       =   &H80000002&
         Caption         =   "Kellner:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   2640
         TabIndex        =   6
         Top             =   1890
         Width           =   780
      End
      Begin VB.Label lblBericht 
         Alignment       =   2  'Zentriert
         BackColor       =   &H80000013&
         Caption         =   "Label1"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000E&
         Height          =   465
         Left            =   2430
         TabIndex        =   5
         Top             =   60
         Width           =   3345
      End
      Begin VB.Label lblStartdatum 
         AutoSize        =   -1  'True
         BackColor       =   &H80000002&
         Caption         =   "Startdatum:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   2160
         TabIndex        =   4
         Top             =   720
         Width           =   1200
      End
      Begin VB.Label lblEnddatum 
         AutoSize        =   -1  'True
         BackColor       =   &H80000002&
         Caption         =   "Enddatum:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   2250
         TabIndex        =   3
         Top             =   1320
         Width           =   1125
      End
   End
   Begin MSComctlLib.TreeView TreeViewBerichte 
      Height          =   2850
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   2025
      _ExtentX        =   3572
      _ExtentY        =   5027
      _Version        =   393217
      LineStyle       =   1
      Style           =   7
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frmBerichte"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Test
End Sub

Private Sub Form_Load()
frmBerichte.Top = 0
frmBerichte.Left = 0
frmBerichte.Width = MDIHauptmenu.ScaleWidth - frmLink.Width
frmBerichte.Height = MDIHauptmenu.ScaleHeight

TreeViewBerichte.Top = 0
TreeViewBerichte.Left = 0
TreeViewBerichte.Height = frmBerichte.ScaleHeight
TreeViewBerichte.Width = frmRaum.ScaleWidth / 4

PictureBerichte.Top = 0
PictureBerichte.Left = TreeViewBerichte.Left + TreeViewBerichte.Width
PictureBerichte.Height = MDIHauptmenu.ScaleHeight / 4
PictureBerichte.Width = frmBerichte.Width - TreeViewBerichte.Width
ComboKellnerfuelen

Me.lblBericht.Top = Me.PictureBerichte.Top
Me.lblBericht.Left = 0
Me.lblBericht.Width = Me.PictureBerichte.Width

Call VorschauDefinieren("Kellnerbericht")
DTPickerStartdatum.Value = Date
DTPickerEnddatum.Value = Date
End Sub
Private Sub Form_Activate()
'cmdDrucken.Visible = False
'mdlVerwalltung.ReportKellnerBerichtAuswahl
BerichteTreeView
TreeViewBerichte.Nodes.Item(TreeViewBerichte.Nodes.Count).EnsureVisible
TreeViewBerichte.Nodes.Item(2).Selected = True
TreeViewBerichte.SelectedItem.BackColor = &H8000000D
TreeViewBerichte.SelectedItem.ForeColor = &H80000005
'Artikelgruppe (TreeViewBerichte.SelectedItem.Text)

lblBericht.Caption = TreeViewBerichte.Nodes.Item(2).Text
End Sub
Private Sub DTPickerStartdatum_Change()
If DTPickerStartdatum.Value > Date Then
DTPickerStartdatum.Value = Date
End If
If DTPickerStartdatum.Value > DTPickerEnddatum.Value Then
     DTPickerEnddatum.Value = DTPickerStartdatum.Value
ElseIf DTPickerStartdatum.Value > Date Then
    DTPickerStartdatum.Value = DTPickerEnddatum.Value
End If
End Sub
Private Sub DTPickerEnddatum_Change()
If DTPickerEnddatum.Value > Date Then
DTPickerEnddatum.Value = Date
End If

If DTPickerEnddatum.Value < DTPickerStartdatum.Value Then
    DTPickerStartdatum.Value = DTPickerEnddatum.Value
ElseIf DTPickerEnddatum.Value > Date Then
    DTPickerEnddatum.Value = Date
End If
End Sub

Private Sub cmdDrucken_Click()

Select Case lblBericht.Caption
 Case "Kellnerbericht"
    If ComboKellner.Text = "alle Kellner" Then
        Call ReportKellnerBericht.BerichtAlleKellner(Me.DTPickerStartdatum.Value, DTPickerEnddatum.Value)
    Else
        Call ReportKellnerBericht.BerichtEinKellner(Me.ComboKellner.Text, DTPickerStartdatum.Value, DTPickerEnddatum.Value)
    End If
 
 Case "Stornobericht"
    frmStornobericht.Show 1
 Case "Umsatzbericht"
    Call ReportUmsatzbericht.BerichtUmsatz(Me.DTPickerStartdatum.Value, Me.DTPickerEnddatum.Value)
End Select
End Sub
Private Sub cmdUmsatzDetails_Click()
  If DTPickerEnddatum.Value = DTPickerStartdatum.Value Then
   MsgBox "Der ausgewählte Zeitraum muss mehr als ein Tag sein"
  Else
   Select Case lblBericht.Caption
    Case "Umsatzbericht"
     Call ReportUmsatzberichtDetails.BerichtUmsatzDetails(DTPickerStartdatum.Value, DTPickerEnddatum.Value)
    End Select
  End If
End Sub

'............ TreeViewBerichte STEUERELEMENT .............
Private Sub TreeViewBerichte_GotFocus()
TreeViewBerichte.SelectedItem.BackColor = &H80000005
TreeViewBerichte.SelectedItem.ForeColor = &H80000012
End Sub
Private Sub TreeViewBerichte_LostFocus()
TreeViewBerichte.SelectedItem.BackColor = &H8000000D
TreeViewBerichte.SelectedItem.ForeColor = &H80000005
End Sub
Private Sub TreeViewBerichte_NodeClick(ByVal Node As MSComctlLib.Node)
Call VorschauDefinieren(Node)
End Sub
'............ PROZEDUREN .............

'---------Tabelle ReportKellnerBerichte abfragen-------------

Sub BerichteTreeView()
Dim objConn As ADODB.Connection
Dim rsReportKellnerBericht As ADODB.Recordset
Set objConn = New ADODB.Connection
Set rsReportKellnerBericht = 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"
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With


  With rsReportKellnerBericht
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Berichte"
  End With
 
 TreeViewBerichte.Nodes.Clear
 TreeViewBerichte.Nodes.Add , , "B", "Berichte"

  While Not rsReportKellnerBericht.EOF
      TreeViewBerichte.Nodes.Add "B", tvwChild, , rsReportKellnerBericht.Fields("Bericht").Value
      rsReportKellnerBericht.MoveNext
  Wend

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

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsReportKellnerBericht = Nothing
Set objConn = Nothing


End Sub

Sub ComboKellnerfuelen()
Dim objConn As ADODB.Connection
Dim rsKellner As ADODB.Recordset
Set objConn = New ADODB.Connection
Set rsKellner = 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"
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With


  With rsKellner
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Kellner"
 End With
 ComboKellner.Clear
 ComboKellner.AddItem "alle Kellner"
 While Not rsKellner.EOF
 ComboKellner.AddItem rsKellner.Fields("Mitarbeiter").Value
 rsKellner.MoveNext
Wend
 
ComboKellner.Text = "alle Kellner"
 

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

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsKellner = Nothing
Set objConn = Nothing


End Sub
Sub VorschauDefinieren(VarNode)
lblBericht.Caption = VarNode

Select Case VarNode
Case "Kellnerbericht"
    Me.lblKellner.Visible = True
    ComboKellner.Visible = True
    cmdUmsatzDetails.Visible = False
    
    cmdDrucken.Caption = "Anzeigen"
    cmdDrucken.Visible = True
    
Case "Umsatzbericht"
    Me.lblKellner.Visible = False
    ComboKellner.Visible = False
    
    cmdDrucken.Caption = "Gesamtumsatz Anzeigen"
    cmdDrucken.Visible = True

    cmdUmsatzDetails.Caption = "Tagesumsätze Anzeigen"
    cmdUmsatzDetails.Visible = True

Case "Stornobericht"
    Me.lblKellner.Visible = True
    ComboKellner.Visible = True
    cmdUmsatzDetails.Visible = False
    
    cmdDrucken.Caption = "Anzeigen "
    cmdDrucken.Visible = True


End Select

End Sub
Sub BerichtePositionieren(frameBericht)
frameBericht.Top = frmBerichte.PictureBerichte.Top + frmBerichte.PictureBerichte.Height + frmBerichte.PictureBerichte.Height / 4
frameBericht.Width = frmBerichte.PictureBerichte.Width / 2
frameBericht.Left = frmBerichte.PictureBerichte.Left + (frmBerichte.PictureBerichte.Width - frameBericht.Width) / 2
frameBericht.Height = frmBerichte.Height - frmBerichte.PictureBerichte.Height - frmBerichte.PictureBerichte.Height / 9
End Sub
Sub Test()
Dim objConn As ADODB.Connection
Dim rsMain As ADODB.Recordset

Dim strPath As String

Set objConn = New ADODB.Connection
Set rsMain = 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"
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
  
   'Tabelle OffeneTische öffnen
   With rsMain
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     .Open "Select *from RechnungDetails"
   End With

 
 While Not rsMain.EOF
   If rsMain.Fields("Tisch").Value < 20 Or rsMain.Fields("Tisch").Value > 100 Then
        rsMain.Fields("Station").Value = "Gastraum"
    ElseIf rsMain.Fields("Tisch").Value > 19 Then
        rsMain.Fields("Station").Value = "Biergarten"
    End If
   
   If rsMain.Fields("PLU").Value < 199 Then
       rsMain.Fields("IDWG").Value = "Speisen"
   ElseIf rsMain.Fields("PLU").Value > 599 And rsMain.Fields("PLU").Value < 900 Then
       rsMain.Fields("IDWG").Value = "Speisen"
   ElseIf rsMain.Fields("PLU").Value > 199 And rsMain.Fields("PLU").Value < 599 Then
       rsMain.Fields("IDWG").Value = "Getränke"
   ElseIf rsMain.Fields("Kellner").Value = "Hansi Fassot" Then
   rsMain.Fields("Kellner").Value = "Hansi Fassott"
   End If
  
  If rsMain.Fields("PLU").Value = 11 Then
    rsMain.Fields("PLU").Value = 998
   ElseIf rsMain.Fields("PLU").Value = 12 Then
    rsMain.Fields("PLU").Value = 999
  End If
  rsMain.MoveNext
 Wend
 


Set objConn = Nothing
Set rsMain = Nothing

exit_Sub:
  On Error GoTo 0

Set objConn = Nothing
Set rsMain = Nothing
  
  Exit Sub

err_Handler:
    MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub

Set objConn = Nothing
Set rsMain = Nothing
End Sub