VERSION 5.00
Begin {78E93846-85FD-11D0-8487-00A0C90DC8A9} ReportRechnung 
   Caption         =   "Abrechnung"
   ClientHeight    =   10950
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   15120
   _ExtentX        =   26670
   _ExtentY        =   19315
   _Version        =   393216
   _DesignerVersion=   100684101
   ReportWidth     =   3420
   BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   GridX           =   1
   GridY           =   1
   LeftMargin      =   200
   RightMargin     =   50
   BottomMargin    =   200
   _Settings       =   23
   NumSections     =   3
   SectionCode0    =   1
   BeginProperty Section0 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
      _Version        =   393216
      Name            =   "Bereich4"
      Object.Height          =   3195
      NumControls     =   6
      ItemType0       =   7
      BeginProperty Item0 {1C13A8E5-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Symbol1"
         Object.Width           =   3360
         Object.Height          =   1065
         SizeMode        =   2
      EndProperty
      ItemType1       =   3
      BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblAbrechnung"
         Object.Top             =   1575
         Object.Width           =   3390
         Object.Height          =   390
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Rechnung"
         Alignment       =   2
      EndProperty
      ItemType2       =   3
      BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblDatum"
         Object.Top             =   2025
         Object.Width           =   3390
         Object.Height          =   225
         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
         Object.Caption         =   "Datum"
         Alignment       =   2
      EndProperty
      ItemType3       =   3
      BeginProperty Item3 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblStationUNDTisch"
         Object.Top             =   2280
         Object.Width           =   3390
         Object.Height          =   225
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "StationUNDTisch"
         Alignment       =   2
      EndProperty
      ItemType4       =   3
      BeginProperty Item4 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblKellner"
         Object.Top             =   2520
         Object.Width           =   3390
         Object.Height          =   225
         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
         Object.Caption         =   "Kellner"
         Alignment       =   2
      EndProperty
      ItemType5       =   3
      BeginProperty Item5 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblAdresse"
         Object.Top             =   1065
         Object.Width           =   3405
         Object.Height          =   225
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Adresse"
         Alignment       =   2
      EndProperty
   EndProperty
   SectionCode1    =   4
   BeginProperty Section1 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
      _Version        =   393216
      Name            =   "Bereich1"
      Object.Height          =   600
      NumControls     =   5
      ItemType0       =   4
      BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "txtGericht"
         Object.Left            =   30
         Object.Width           =   3180
         Object.Height          =   225
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         CanGrow         =   -1  'True
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
      ItemType1       =   4
      BeginProperty Item1 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "txtSummeMenge"
         Object.Top             =   240
         Object.Width           =   360
         Object.Height          =   225
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Alignment       =   1
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
      ItemType2       =   4
      BeginProperty Item2 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "txtEPREIS"
         Object.Left            =   570
         Object.Top             =   240
         Object.Width           =   1680
         Object.Height          =   225
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   1
            Format          =   "#.##0,00 ""€"""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   2
         EndProperty
      EndProperty
      ItemType3       =   3
      BeginProperty Item3 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblProdukt"
         Object.Left            =   360
         Object.Top             =   225
         Object.Width           =   150
         Object.Height          =   225
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "x"
      EndProperty
      ItemType4       =   4
      BeginProperty Item4 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "txtSummeEPREIS"
         Object.Left            =   2505
         Object.Top             =   240
         Object.Width           =   870
         Object.Height          =   225
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Alignment       =   1
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   1
            Format          =   "#####0.00"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
   EndProperty
   SectionCode2    =   8
   BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
      _Version        =   393216
      Name            =   "Bereich5"
      Object.Height          =   5760
      NumControls     =   23
      ItemType0       =   13
      BeginProperty Item0 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2} 
         _Version        =   393216
         Name            =   "FunktionSummeBrutto"
         Object.Left            =   1725
         Object.Top             =   795
         Object.Width           =   1665
         Object.Height          =   360
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Alignment       =   1
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   1
            Format          =   "#.##0,00 ""€"""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   2
         EndProperty
      EndProperty
      ItemType1       =   3
      BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblBar"
         Object.Top             =   810
         Object.Width           =   570
         Object.Height          =   330
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "BAR"
      EndProperty
      ItemType2       =   3
      BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblBedanken"
         Object.Top             =   1455
         Object.Width           =   3375
         Object.Height          =   225
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bedanken"
         Alignment       =   2
      EndProperty
      ItemType3       =   5
      BeginProperty Item3 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Linie1"
         Object.Left            =   15
         Object.Width           =   3360
      EndProperty
      ItemType4       =   3
      BeginProperty Item4 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblNetto"
         Object.Left            =   15
         Object.Top             =   75
         Object.Width           =   1065
         Object.Height          =   235
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Netto"
      EndProperty
      ItemType5       =   3
      BeginProperty Item5 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblMwSt"
         Object.Top             =   330
         Object.Width           =   2265
         Object.Height          =   235
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "MwSt"
      EndProperty
      ItemType6       =   13
      BeginProperty Item6 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2} 
         _Version        =   393216
         Name            =   "FunktionSummeNetto"
         Object.Left            =   2220
         Object.Top             =   90
         Object.Width           =   1155
         Object.Height          =   235
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Alignment       =   1
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   1
            Format          =   "#####0.00"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
      ItemType7       =   13
      BeginProperty Item7 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2} 
         _Version        =   393216
         Name            =   "FunktionSummeMwSt"
         Object.Left            =   2235
         Object.Top             =   345
         Object.Width           =   1155
         Object.Height          =   240
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Alignment       =   1
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   1
            Format          =   "#####0.00"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1031
            SubFormatType   =   0
         EndProperty
      EndProperty
      ItemType8       =   3
      BeginProperty Item8 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblBeleg1"
         Object.Top             =   2280
         Object.Width           =   3405
         Object.Height          =   240
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "TextBeleg1"
         CanGrow         =   -1  'True
      EndProperty
      ItemType9       =   3
      BeginProperty Item9 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "lblBeleg2"
         Object.Left            =   15
         Object.Top             =   2940
         Object.Width           =   2985
         Object.Height          =   210
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "lblBeleg2"
         CanGrow         =   -1  'True
      EndProperty
      ItemType10      =   3
      BeginProperty Item10 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Bezeichnung1"
         Object.Left            =   45
         Object.Top             =   3390
         Object.Width           =   930
         Object.Height          =   300
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bezeichnung1"
         CanGrow         =   -1  'True
      EndProperty
      ItemType11      =   3
      BeginProperty Item11 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Bezeichnung2"
         Object.Top             =   3810
         Object.Width           =   1155
         Object.Height          =   255
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bezeichnung2"
      EndProperty
      ItemType12      =   3
      BeginProperty Item12 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Bezeichnung3"
         Object.Left            =   975
         Object.Top             =   3450
         Object.Width           =   2400
         Object.Height          =   300
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bezeichnung3"
      EndProperty
      ItemType13      =   7
      BeginProperty Item13 {1C13A8E5-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Symbol2"
         Object.Left            =   135
         Object.Top             =   3480
         Object.Width           =   615
         Object.Height          =   375
         Object.BorderStyle     =   1
      EndProperty
      ItemType14      =   7
      BeginProperty Item14 {1C13A8E5-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Symbol3"
         Object.Left            =   1425
         Object.Top             =   3540
         Object.Width           =   960
         Object.Height          =   300
         Object.BorderStyle     =   1
      EndProperty
      ItemType15      =   7
      BeginProperty Item15 {1C13A8E5-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Symbol4"
         Object.Left            =   990
         Object.Top             =   4200
         Object.Width           =   720
         Object.Height          =   360
         Object.BorderStyle     =   1
      EndProperty
      ItemType16      =   7
      BeginProperty Item16 {1C13A8E5-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Symbol5"
         Object.Left            =   810
         Object.Top             =   4650
         Object.Width           =   1110
         Object.Height          =   360
         Object.BorderStyle     =   1
      EndProperty
      ItemType17      =   3
      BeginProperty Item17 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Bezeichnung4"
         Object.Left            =   1380
         Object.Top             =   3750
         Object.Width           =   1950
         Object.Height          =   330
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bezeichnung4"
         CanGrow         =   -1  'True
      EndProperty
      ItemType18      =   3
      BeginProperty Item18 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Bezeichnung5"
         Object.Left            =   345
         Object.Top             =   4200
         Object.Width           =   2025
         Object.Height          =   330
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bezeichnung5"
      EndProperty
      ItemType19      =   7
      BeginProperty Item19 {1C13A8E5-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Symbol6"
         Object.Left            =   840
         Object.Top             =   5265
         Object.Width           =   1170
         Object.Height          =   285
         Object.BorderStyle     =   1
      EndProperty
      ItemType20      =   3
      BeginProperty Item20 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Bezeichnung6"
         Object.Left            =   495
         Object.Top             =   4620
         Object.Width           =   1995
         Object.Height          =   330
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bezeichnung6"
      EndProperty
      ItemType21      =   3
      BeginProperty Item21 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Bezeichnung7"
         Object.Left            =   30
         Object.Top             =   5040
         Object.Width           =   1635
         Object.Height          =   345
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bezeichnung7"
      EndProperty
      ItemType22      =   3
      BeginProperty Item22 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
         _Version        =   393216
         Name            =   "Bezeichnung8"
         Object.Left            =   1650
         Object.Top             =   5025
         Object.Width           =   1545
         Object.Height          =   315
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Object.Caption         =   "Bezeichnung8"
      EndProperty
   EndProperty
End
Attribute VB_Name = "ReportRechnung"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Function Rechnung(TischRechnung)
Dim objConn As ADODB.Connection
Dim rsOffeneTische As ADODB.Recordset
Dim strPath As String

Set objConn = New ADODB.Connection
Set rsOffeneTische = 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=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
  
   'Tabelle OffeneTische öffnen
   With rsOffeneTische
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     '.Open "Select Gericht,EPREIS As Einzelpreis,Sum(Menge) AS SummeMenge,Sum(Menge)*EPREIS As SummeBrutto,Sum(Menge)*EPREIS/1.19 As SummeNetto,SummeBrutto-SummeNetto AS SummeMwSt from OffeneTische Where Station = '" & VarStation & "' and Kellner='" & VarKellner & "' and Tisch='" & VarTisch & "' Group by Gericht,EPREIS"
     .Open "Select Gericht,EPREIS As Einzelpreis,Menge AS SummeMenge,Menge*EPREIS As SummeBrutto,Menge*EPREIS/1.19 As SummeNetto,SummeBrutto-SummeNetto AS SummeMwSt from OffeneTische Where Station = '" & VarStation & "' and Tisch='" & TischRechnung & "'"

   End With
 
If rsOffeneTische.EOF = True Then
    Rechnung = False
    GoTo 10
Else
    Rechnung = True
End If
 
 Set ReportRechnung.DataSource = rsOffeneTische
  
 Set Me.Sections("Bereich4").Controls("Symbol1").Picture = LoadPicture(App.Path & "\Logos\Logo_Lokal.emf")

 
  ReportRechnung.Sections("Bereich4").Controls("lblDatum").Caption = Now
  ReportRechnung.Sections("Bereich4").Controls("lblStationUNDTisch").Caption = VarStation & "  -  " & "Tisch: " & VarTisch
  ReportRechnung.Sections("Bereich4").Controls("lblKellner").Caption = "Es bediente Sie " & VarKellner
  ReportRechnung.Sections("Bereich4").Controls("lblAdresse").Caption = "Gutenbergstr. 20 - 67346 Speyer - Tel:74611"

 ReportRechnung.Sections("Bereich1").Controls("txtGericht").DataField = rsOffeneTische.Fields("Gericht").Name
 ReportRechnung.Sections("Bereich1").Controls("txtSummeMenge").DataField = rsOffeneTische.Fields("SummeMenge").Name
 ReportRechnung.Sections("Bereich1").Controls("txtEPREIS").DataField = rsOffeneTische.Fields("Einzelpreis").Name
 ReportRechnung.Sections("Bereich1").Controls("txtSummeEPREIS").DataField = rsOffeneTische.Fields("SummeBrutto").Name
 
 ReportRechnung.Sections("Bereich5").Controls("lblNetto").Caption = "Netto"
 ReportRechnung.Sections("Bereich5").Controls("FunktionSummeNetto").DataField = rsOffeneTische.Fields("SummeNetto").Name
 ReportRechnung.Sections("Bereich5").Controls("lblMwSt").Caption = "Enthaltene MwSt. 19%"
 ReportRechnung.Sections("Bereich5").Controls("FunktionSummeMwSt").DataField = rsOffeneTische.Fields("SummeMwSt").Name

 ReportRechnung.Sections("Bereich5").Controls("FunktionSummeBrutto").DataField = rsOffeneTische.Fields("SummeBrutto").Name
 ReportRechnung.Sections("Bereich5").Controls("lblBedanken").Caption = "Vielen Dank für Ihren Besuch."
 
 'Beleg
 ReportRechnung.Sections("Bereich5").Controls("lblBeleg1").Caption = "Angaben zum Nachweis der Höhe und der betrieblichen Veranlassung von Bewirtungs- Aufwendungen (Par.4 Abs.5 Ziff.2 EStG) ."
 ReportRechnung.Sections("Bereich5").Controls("lblBeleg2").Caption = "StIDNr. 3044442027"

 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Caption = "Tag der bewirtung"
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung2").Caption = Date
 ReportRechnung.Sections("Bereich5").Controls("symbol2").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Top
 ReportRechnung.Sections("Bereich5").Controls("symbol2").Left = 0
 ReportRechnung.Sections("Bereich5").Controls("symbol2").Width = 2 * ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left + ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol2").Height = 3 * ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Height
 
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung2").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung2").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Top + 1.5 * ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Height

 
 
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung3").Caption = "Ort der Bewirtung"
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung4").Caption = "Hotel Restaurant Amadeus"
 ReportRechnung.Sections("Bereich5").Controls("symbol3").Top = ReportRechnung.Sections("Bereich5").Controls("symbol2").Top
 ReportRechnung.Sections("Bereich5").Controls("symbol3").Left = ReportRechnung.Sections("Bereich5").Controls("symbol2").Left + ReportRechnung.Sections("Bereich5").Controls("symbol2").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol3").Width = ReportRechnung.ReportWidth - ReportRechnung.Sections("Bereich5").Controls("symbol2").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol3").Height = ReportRechnung.Sections("Bereich5").Controls("symbol2").Height
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung3").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Top
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung3").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left + ReportRechnung.Sections("Bereich5").Controls("symbol2").Width
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung4").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung3").Left
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung4").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung2").Top

 
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung5").Caption = "Bewirtete Person(en)"
 ReportRechnung.Sections("Bereich5").Controls("symbol4").Top = ReportRechnung.Sections("Bereich5").Controls("symbol2").Top + ReportRechnung.Sections("Bereich5").Controls("symbol2").Height
 ReportRechnung.Sections("Bereich5").Controls("symbol4").Left = ReportRechnung.Sections("Bereich5").Controls("symbol2").Left
 ReportRechnung.Sections("Bereich5").Controls("symbol4").Width = ReportRechnung.Sections("Bereich5").Controls("symbol2").Width + ReportRechnung.Sections("Bereich5").Controls("symbol3").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol4").Height = 3 * ReportRechnung.Sections("Bereich5").Controls("symbol2").Height
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung5").Top = ReportRechnung.Sections("Bereich5").Controls("symbol4").Top
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung5").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left

  
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung6").Caption = "Anlaß der Bewirtung"
 ReportRechnung.Sections("Bereich5").Controls("symbol5").Top = ReportRechnung.Sections("Bereich5").Controls("symbol4").Top + ReportRechnung.Sections("Bereich5").Controls("symbol4").Height
 ReportRechnung.Sections("Bereich5").Controls("symbol5").Left = ReportRechnung.Sections("Bereich5").Controls("symbol4").Left
 ReportRechnung.Sections("Bereich5").Controls("symbol5").Width = ReportRechnung.Sections("Bereich5").Controls("symbol4").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol5").Height = ReportRechnung.Sections("Bereich5").Controls("symbol4").Height / 3
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung6").Top = ReportRechnung.Sections("Bereich5").Controls("symbol5").Top
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung6").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left

 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung7").Caption = "Ort, Datum"
 ReportRechnung.Sections("Bereich5").Controls("symbol6").Top = ReportRechnung.Sections("Bereich5").Controls("symbol5").Top + ReportRechnung.Sections("Bereich5").Controls("symbol5").Height
 ReportRechnung.Sections("Bereich5").Controls("symbol6").Left = ReportRechnung.Sections("Bereich5").Controls("symbol5").Left
 ReportRechnung.Sections("Bereich5").Controls("symbol6").Width = ReportRechnung.Sections("Bereich5").Controls("symbol5").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol6").Height = ReportRechnung.Sections("Bereich5").Controls("symbol5").Height
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung7").Top = ReportRechnung.Sections("Bereich5").Controls("symbol6").Top
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung7").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left

 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung8").Caption = "Unterschrift"
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung8").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung7").Top
 
'ReportRechnung.Show 1
ReportRechnung.PrintReport

Set objConn = Nothing
Set rsOffeneTische = Nothing


exit_Sub:
  On Error GoTo 0

10  Set rsOffeneTische = Nothing
    Set objConn = Nothing
  
  Exit Function

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

Set rsOffeneTische = Nothing
Set objConn = Nothing

End Function
Sub RechnungDetails(TischRechnung, VarZahlungsart, VarGutscheinNrLokal, VarGutscheinBetragLokal, VarBeleg)
Dim objConn As ADODB.Connection
Dim rsRegNr As ADODB.Recordset
Dim rsRechnungsuebersicht As ADODB.Recordset

Dim rsOffeneTische As ADODB.Recordset
Dim rsGesamt As ADODB.Recordset
Dim rsRechnungDetails As ADODB.Recordset

Dim strPath As String

Set objConn = New ADODB.Connection
Set rsRegNr = New ADODB.Recordset
Set rsRechnungsuebersicht = New ADODB.Recordset
Set rsOffeneTische = New ADODB.Recordset
Set rsGesamt = New ADODB.Recordset
Set rsRechnungDetails = 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=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
  
    
   'Tabelle OffeneTische öffnen
   With rsOffeneTische
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     .Open "Select *from OffeneTische Where Station = '" & VarStation & "' and Tisch='" & TischRechnung & "'"
   End With

    'Tabelle OffeneTische öffnen
   With rsGesamt
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     .Open "Select Sum(GPREIS) from OffeneTische Where Station = '" & VarStation & "' and Kellner='" & VarKellner & "' and Tisch='" & TischRechnung & "'"
   End With

   Set frmSchnellwahltaste.DataGrid1.DataSource = rsGesamt
   
   VarGesamt = Format(frmSchnellwahltaste.DataGrid1.Text, "######0.00")
   
 
 
 
 
 'Tabelle RechnungsDetails öffnen
   With rsRechnungDetails
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     .Open "Select *FROM RechnungDetails"
  End With
       
    'Tabelle Rechnungsuebersicht öffnen
  With rsRegNr
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     .Open "Select max(RegNr) FROM Rechnungsuebersicht"
  End With

   Set frmSchnellwahltaste.MSHFlexGrid1.DataSource = rsRegNr
   VarRegNr = frmSchnellwahltaste.MSHFlexGrid1.Text
   frmSchnellwahltaste.MSHFlexGrid1.Text = ""
   
   
   If VarRegNr = "" Then
    VarRegNr = "0"
   End If
   VarRegNr = VarRegNr + 1
    
    'Tabelle Rechnungsuebersicht öffnen
  With rsRechnungsuebersicht
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     .Open "Select *FROM Rechnungsuebersicht"
  End With
  
      
   
   While Not rsOffeneTische.EOF
    rsRechnungDetails.AddNew
   
    rsRechnungDetails.Fields("RegNr").Value = VarRegNr
    rsRechnungDetails.Fields("Station").Value = rsOffeneTische.Fields("Station").Value
    rsRechnungDetails.Fields("Tisch").Value = VarTisch
    rsRechnungDetails.Fields("Kellner").Value = VarKellner
    rsRechnungDetails.Fields("IDWG").Value = rsOffeneTische.Fields("IDWG").Value
    rsRechnungDetails.Fields("WG").Value = rsOffeneTische.Fields("WG").Value
    rsRechnungDetails.Fields("Stationsdrucker").Value = rsOffeneTische.Fields("Stationsdrucker").Value
    rsRechnungDetails.Fields("Bondrucker").Value = rsOffeneTische.Fields("Bondrucker").Value
    rsRechnungDetails.Fields("Menge").Value = rsOffeneTische.Fields("Menge").Value
    rsRechnungDetails.Fields("PLU").Value = rsOffeneTische.Fields("PLU").Value
    rsRechnungDetails.Fields("Gericht").Value = rsOffeneTische.Fields("Gericht").Value
    rsRechnungDetails.Fields("EPREIS").Value = rsOffeneTische.Fields("EPREIS").Value
    rsRechnungDetails.Fields("GPREIS").Value = rsOffeneTische.Fields("GPREIS").Value
    rsRechnungDetails.Fields("Datum").Value = rsOffeneTische.Fields("Datum").Value
    rsRechnungDetails.Fields("Zeit").Value = rsOffeneTische.Fields("Zeit").Value


    
    rsOffeneTische.Delete
    rsOffeneTische.MoveNext
  Wend
 rsRechnungDetails.Update
 rsRechnungDetails.Requery
   
   
   
   
   
   
   
   
   rsRechnungsuebersicht.AddNew
   
   rsRechnungsuebersicht.Fields("RegNr") = VarRegNr
   rsRechnungsuebersicht.Fields("Datum") = Date
   rsRechnungsuebersicht.Fields("Zeit") = Format(Time, "hh:mm:ss")

   rsRechnungsuebersicht.Fields("Station") = VarStation
   rsRechnungsuebersicht.Fields("Mitarbeiter") = VarKellner
   rsRechnungsuebersicht.Fields("Tisch") = VarTisch
    Select Case VarZahlungsart
      Case "BAR"
      rsRechnungsuebersicht.Fields("BAR") = VarGesamt
      rsRechnungsuebersicht.Fields("KARTE") = ""
      rsRechnungsuebersicht.Fields("GUTSCHEIN") = ""
      Case "KARTE"
      rsRechnungsuebersicht.Fields("KARTE") = VarGesamt
      rsRechnungsuebersicht.Fields("BAR") = ""
      rsRechnungsuebersicht.Fields("GUTSCHEIN") = ""
      Case "GUTSCHEIN"
      rsRechnungsuebersicht.Fields("GUTSCHEIN") = Format(VarGutscheinBetragLokal, "######0.00")
      rsRechnungsuebersicht.Fields("BAR") = Format(VarGesamt - VarGutscheinBetragLokal, "######0.00")
      rsRechnungsuebersicht.Fields("KARTE") = ""
     End Select
   
   rsRechnungsuebersicht.Fields("Beleg") = VarBeleg
   rsRechnungsuebersicht.Fields("Gesamt") = VarGesamt

   rsRechnungsuebersicht.Update

     

Set objConn = Nothing

Set rsOffeneTische = Nothing
Set rsRechnungDetails = Nothing
Set rsRegNr = Nothing
Set rsGesamt = Nothing
Set rsRechnungsuebersicht = Nothing
exit_Sub:
  On Error GoTo 0

Set rsOffeneTische = Nothing
Set rsRechnungDetails = Nothing
Set rsRegNr = Nothing
Set rsGesamt = Nothing
Set rsRechnungsuebersicht = Nothing
  
  Exit Sub

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

Set rsOffeneTische = Nothing
Set rsRechnungDetails = Nothing
Set rsRegNr = Nothing
Set rsGesamt = Nothing

End Sub
Function DruckeRechnungVonUebersichtsrechnung(VarRegNrLokal)
Dim objConn As ADODB.Connection
Dim rsRechnungDetails As ADODB.Recordset
Dim strPath As String

Set objConn = New ADODB.Connection
Set rsRechnungDetails = 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=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
  
   'Tabelle RechnungDetails öffnen
   With rsRechnungDetails
     .ActiveConnection = objConn
     .CursorLocation = adUseClient
     .LockType = adLockOptimistic
     '.Open "Select Gericht,EPREIS As Einzelpreis,Sum(Menge) AS SummeMenge,Sum(Menge)*EPREIS As SummeBrutto,Sum(Menge)*EPREIS/1.19 As SummeNetto,SummeBrutto-SummeNetto AS SummeMwSt from RechnungDetails Where Station = '" & VarStation & "' and Kellner='" & VarKellner & "' and Tisch='" & VarTisch & "' Group by Gericht,EPREIS"
     .Open "Select Station,Kellner,Tisch,Gericht,EPREIS As Einzelpreis,Menge AS SummeMenge,Menge*EPREIS As SummeBrutto,Menge*EPREIS/1.19 As SummeNetto,SummeBrutto-SummeNetto AS SummeMwSt from RechnungDetails Where RegNr = '" & VarRegNrLokal & "'"

   End With
 
If rsRechnungDetails.EOF = True Then
    RechnungUebersichtsrechnung = False
    GoTo 10
Else
    RechnungUebersichtsrechnung = True
End If
 
 Set ReportRechnung.DataSource = rsRechnungDetails
 
 Set Me.Sections("Bereich4").Controls("Symbol1").Picture = LoadPicture(App.Path & "\Logos\Logo_Lokal.emf")


 
 
 ReportRechnung.Sections("Bereich4").Controls("lblDatum").Caption = Now
 ReportRechnung.Sections("Bereich4").Controls("lblStationUNDTisch").Caption = rsRechnungDetails.Fields("Station").Value & "  -  " & "Tisch: " & rsRechnungDetails.Fields("Tisch").Value
 ReportRechnung.Sections("Bereich4").Controls("lblKellner").Caption = "Es bediente Sie " & rsRechnungDetails.Fields("Kellner").Value
 ReportRechnung.Sections("Bereich4").Controls("lblAdresse").Caption = "Gutenbergstr. 20 - 67346 Speyer - Tel:74611"

 ReportRechnung.Sections("Bereich1").Controls("txtGericht").DataField = rsRechnungDetails.Fields("Gericht").Name
 ReportRechnung.Sections("Bereich1").Controls("txtSummeMenge").DataField = rsRechnungDetails.Fields("SummeMenge").Name
 ReportRechnung.Sections("Bereich1").Controls("txtEPREIS").DataField = rsRechnungDetails.Fields("Einzelpreis").Name
 ReportRechnung.Sections("Bereich1").Controls("txtSummeEPREIS").DataField = rsRechnungDetails.Fields("SummeBrutto").Name
 
 ReportRechnung.Sections("Bereich5").Controls("lblNetto").Caption = "Netto"
 ReportRechnung.Sections("Bereich5").Controls("FunktionSummeNetto").DataField = rsRechnungDetails.Fields("SummeNetto").Name
 ReportRechnung.Sections("Bereich5").Controls("lblMwSt").Caption = "Enthaltene MwSt. 19%"
 ReportRechnung.Sections("Bereich5").Controls("FunktionSummeMwSt").DataField = rsRechnungDetails.Fields("SummeMwSt").Name

 ReportRechnung.Sections("Bereich5").Controls("FunktionSummeBrutto").DataField = rsRechnungDetails.Fields("SummeBrutto").Name
 ReportRechnung.Sections("Bereich5").Controls("lblBedanken").Caption = "Vielen Dank für Ihren Besuch."
 
 'Beleg
 ReportRechnung.Sections("Bereich5").Controls("lblBeleg1").Caption = "Angaben zum Nachweis der Höhe und der betrieblichen Veranlassung von Bewirtungs- Aufwendungen (Par.4 Abs.5 Ziff.2 EStG) ."
 ReportRechnung.Sections("Bereich5").Controls("lblBeleg2").Caption = "StIDNr. 3044442027"

 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Caption = "Tag der bewirtung"
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung2").Caption = Date
 ReportRechnung.Sections("Bereich5").Controls("symbol2").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Top
 ReportRechnung.Sections("Bereich5").Controls("symbol2").Left = 0
 ReportRechnung.Sections("Bereich5").Controls("symbol2").Width = 2 * ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left + ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol2").Height = 3 * ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Height
 
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung2").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung2").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Top + 1.5 * ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Height

 
 
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung3").Caption = "Ort der Bewirtung"
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung4").Caption = "Hotel Restaurant Amadeus"
 ReportRechnung.Sections("Bereich5").Controls("symbol3").Top = ReportRechnung.Sections("Bereich5").Controls("symbol2").Top
 ReportRechnung.Sections("Bereich5").Controls("symbol3").Left = ReportRechnung.Sections("Bereich5").Controls("symbol2").Left + ReportRechnung.Sections("Bereich5").Controls("symbol2").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol3").Width = ReportRechnung.ReportWidth - ReportRechnung.Sections("Bereich5").Controls("symbol2").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol3").Height = ReportRechnung.Sections("Bereich5").Controls("symbol2").Height
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung3").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Top
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung3").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left + ReportRechnung.Sections("Bereich5").Controls("symbol2").Width
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung4").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung3").Left
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung4").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung2").Top

 
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung5").Caption = "Bewirtete Person(en)"
 ReportRechnung.Sections("Bereich5").Controls("symbol4").Top = ReportRechnung.Sections("Bereich5").Controls("symbol2").Top + ReportRechnung.Sections("Bereich5").Controls("symbol2").Height
 ReportRechnung.Sections("Bereich5").Controls("symbol4").Left = ReportRechnung.Sections("Bereich5").Controls("symbol2").Left
 ReportRechnung.Sections("Bereich5").Controls("symbol4").Width = ReportRechnung.Sections("Bereich5").Controls("symbol2").Width + ReportRechnung.Sections("Bereich5").Controls("symbol3").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol4").Height = 3 * ReportRechnung.Sections("Bereich5").Controls("symbol2").Height
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung5").Top = ReportRechnung.Sections("Bereich5").Controls("symbol4").Top
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung5").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left

  
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung6").Caption = "Anlaß der Bewirtung"
 ReportRechnung.Sections("Bereich5").Controls("symbol5").Top = ReportRechnung.Sections("Bereich5").Controls("symbol4").Top + ReportRechnung.Sections("Bereich5").Controls("symbol4").Height
 ReportRechnung.Sections("Bereich5").Controls("symbol5").Left = ReportRechnung.Sections("Bereich5").Controls("symbol4").Left
 ReportRechnung.Sections("Bereich5").Controls("symbol5").Width = ReportRechnung.Sections("Bereich5").Controls("symbol4").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol5").Height = ReportRechnung.Sections("Bereich5").Controls("symbol4").Height / 3
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung6").Top = ReportRechnung.Sections("Bereich5").Controls("symbol5").Top
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung6").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left

 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung7").Caption = "Ort, Datum"
 ReportRechnung.Sections("Bereich5").Controls("symbol6").Top = ReportRechnung.Sections("Bereich5").Controls("symbol5").Top + ReportRechnung.Sections("Bereich5").Controls("symbol5").Height
 ReportRechnung.Sections("Bereich5").Controls("symbol6").Left = ReportRechnung.Sections("Bereich5").Controls("symbol5").Left
 ReportRechnung.Sections("Bereich5").Controls("symbol6").Width = ReportRechnung.Sections("Bereich5").Controls("symbol5").Width
 ReportRechnung.Sections("Bereich5").Controls("symbol6").Height = ReportRechnung.Sections("Bereich5").Controls("symbol5").Height
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung7").Top = ReportRechnung.Sections("Bereich5").Controls("symbol6").Top
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung7").Left = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung1").Left

 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung8").Caption = "Unterschrift"
 ReportRechnung.Sections("Bereich5").Controls("Bezeichnung8").Top = ReportRechnung.Sections("Bereich5").Controls("Bezeichnung7").Top
 
'ReportRechnung.Show 1
Me.PrintReport

Set objConn = Nothing
Set rsRechnungDetails = Nothing


exit_Sub:
  On Error GoTo 0

10  Set rsRechnungDetails = Nothing
    Set objConn = Nothing
  
  Exit Function

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

Set rsRechnungDetails = Nothing
Set objConn = Nothing

End Function