Projektdateien hinzufügen.

2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
--- a/Aviso/Auswertung/cStatFunctions.vb
+++ b/Aviso/Auswertung/cStatFunctions.vb
@@ -0,0 +1,24 @@
+Public Class cStatFunctions
+    Public Sub showReport(hAuswahl As String, hSQL As String, Optional optIntern As Boolean = False, Optional cboFirma As String = "", Optional Auswahl_Standort As String = "")
+        Try
+            'Dim Werte = New cWerteDAL
+            Dim report As rptAuswertung = New rptAuswertung
+
+            report.Auswahl = hAuswahl
+            report.SQL = hSQL
+            If optIntern Then report.Intern = optIntern
+            If cboFirma <> "" Then report.Frächter = cboFirma
+            If Auswahl_Standort <> "" Then report.Standort = Auswahl_Standort
+            ' report.Frächter = cboFirma.Text
+            ' report.Standort = Auswahl_Standort
+
+            Dim arAuswertung As New frmDruck(report)
+            arAuswertung.Text = "Saldenliste"
+            arAuswertung.Show()
+
+        Catch ex As Exception
+            MsgBox("Beim Drucken ist ein Fehler aufgetreten: " & vbCrLf & ex.Message)
+            Exit Sub
+        End Try
+    End Sub
+End Class
--- a/Aviso/Auswertung/frmAuswertung.Designer.vb
+++ b/Aviso/Auswertung/frmAuswertung.Designer.vb
@@ -0,0 +1,191 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmAuswertung
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertung))
+        Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.pnlOptions = New System.Windows.Forms.Panel()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.pnlMain = New System.Windows.Forms.Panel()
+        Me.pnlHead.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnlOptions.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnlHead
+        '
+        Me.pnlHead.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.pnlHead.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlHead.Controls.Add(Me.Button10)
+        Me.pnlHead.Controls.Add(Me.PictureBox1)
+        Me.pnlHead.Controls.Add(Me.Label1)
+        Me.pnlHead.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlHead.Location = New System.Drawing.Point(0, 0)
+        Me.pnlHead.Name = "pnlHead"
+        Me.pnlHead.Size = New System.Drawing.Size(946, 64)
+        Me.pnlHead.TabIndex = 0
+        '
+        'Button10
+        '
+        Me.Button10.Location = New System.Drawing.Point(313, 11)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(126, 46)
+        Me.Button10.TabIndex = 9
+        Me.Button10.Text = "E-Mails in Fmzoll laden"
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = Global.AVISO.My.Resources.Resources.statistik
+        Me.PictureBox1.Location = New System.Drawing.Point(2, 3)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(63, 58)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox1.TabIndex = 1
+        Me.PictureBox1.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(76, 24)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(175, 20)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "AVISO - Auswertung"
+        '
+        'pnlOptions
+        '
+        Me.pnlOptions.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlOptions.Controls.Add(Me.Panel1)
+        Me.pnlOptions.Controls.Add(Me.Button3)
+        Me.pnlOptions.Controls.Add(Me.Button2)
+        Me.pnlOptions.Controls.Add(Me.Button1)
+        Me.pnlOptions.Dock = System.Windows.Forms.DockStyle.Left
+        Me.pnlOptions.Location = New System.Drawing.Point(0, 64)
+        Me.pnlOptions.Name = "pnlOptions"
+        Me.pnlOptions.Size = New System.Drawing.Size(144, 552)
+        Me.pnlOptions.TabIndex = 1
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.Button4)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel1.Location = New System.Drawing.Point(0, 482)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(144, 70)
+        Me.Panel1.TabIndex = 2
+        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.White
+        Me.Button4.Location = New System.Drawing.Point(7, 18)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(131, 51)
+        Me.Button4.TabIndex = 2
+        Me.Button4.Text = "Schließen"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ForeColor = System.Drawing.Color.White
+        Me.Button3.Location = New System.Drawing.Point(7, 123)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(131, 51)
+        Me.Button3.TabIndex = 1
+        Me.Button3.Text = "Mitarbeiter"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ForeColor = System.Drawing.Color.White
+        Me.Button2.Location = New System.Drawing.Point(7, 66)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(131, 51)
+        Me.Button2.TabIndex = 0
+        Me.Button2.Text = "Statistik" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Gesamt"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.Location = New System.Drawing.Point(7, 9)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(131, 51)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Kunden"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'pnlMain
+        '
+        Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlMain.Location = New System.Drawing.Point(144, 64)
+        Me.pnlMain.Name = "pnlMain"
+        Me.pnlMain.Size = New System.Drawing.Size(802, 552)
+        Me.pnlMain.TabIndex = 2
+        '
+        'frmAuswertung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(946, 616)
+        Me.Controls.Add(Me.pnlMain)
+        Me.Controls.Add(Me.pnlOptions)
+        Me.Controls.Add(Me.pnlHead)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmAuswertung"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "frmAuswertung"
+        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
+        Me.pnlHead.ResumeLayout(False)
+        Me.pnlHead.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnlOptions.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnlHead As System.Windows.Forms.Panel
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents pnlOptions As System.Windows.Forms.Panel
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents pnlMain As System.Windows.Forms.Panel
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Button4 As System.Windows.Forms.Button
+    Friend WithEvents Button10 As System.Windows.Forms.Button
+End Class
--- a/Aviso/Auswertung/frmAuswertung.resx
+++ b/Aviso/Auswertung/frmAuswertung.resx
--- a/Aviso/Auswertung/frmAuswertung.vb
+++ b/Aviso/Auswertung/frmAuswertung.vb
@@ -0,0 +1,690 @@
+Imports Gemeinsames
+Imports System.Data.SqlClient
+Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmAuswertung
+
+
+    Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles Me.Load
+        clrPnlMain()
+        Dim usrCntl As New usrctlAuswertung
+        usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+        pnlMain.Controls.Add(usrCntl)
+
+    End Sub
+
+    Private Sub clrPnlMain()
+        While pnlMain.HasChildren
+            pnlMain.Controls.RemoveAt(0)
+        End While
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        clrPnlMain()
+        Dim usrCntl As New usrctlAuswertung
+        usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+        pnlMain.Controls.Add(usrCntl)
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        clrPnlMain()
+        Dim usrCntl As New usrctStatistik
+        usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+        pnlMain.Controls.Add(usrCntl)
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        clrPnlMain()
+        Dim usrCntl As New usrctlMAUebersicht
+        usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+        pnlMain.Controls.Add(usrCntl)
+    End Sub
+
+
+    Dim SQL As New Statistik
+
+    Function getMAList() As List(Of listMAZusammenf)
+        Dim ll As New List(Of listMAZusammenf)
+        Dim l = Nothing
+
+        ll.Add(New listMAZusammenf(4, "ADMIN"))
+        ll.Add(New listMAZusammenf(227, "AKPINAR"))
+        ll.Add(New listMAZusammenf(220, "ALEX"))
+        ll.Add(New listMAZusammenf(273, "Altenberger"))
+        ll.Add(New listMAZusammenf(133, "ANGERER"))
+        ll.Add(New listMAZusammenf(215, "ANNA"))
+        ll.Add(New listMAZusammenf(266, "ANNAHME_SBG"))
+        ll.Add(New listMAZusammenf(234, "ANNAHME1"))
+        ll.Add(New listMAZusammenf(235, "ANNAHME2"))
+        ll.Add(New listMAZusammenf(262, "Ari"))
+        ll.Add(New listMAZusammenf(229, "ASANGER"))
+        ll.Add(New listMAZusammenf(179, "ATALAY"))
+        ' ll.Add(New listMAZusammenf(264, "ATALAY"))
+        ll.Add(New listMAZusammenf(180, "ATILLA"))
+        ll.Add(New listMAZusammenf(265, "AVISO_WAI_TV"))
+        ll.Add(New listMAZusammenf(237, "BAGHALI"))
+        ll.Add(New listMAZusammenf(238, "BALK"))
+        ll.Add(New listMAZusammenf(239, "BARBUL"))
+        ll.Add(New listMAZusammenf(143, "BATINIC"))
+        ll.Add(New listMAZusammenf(170, "BAUBOECK"))
+        ll.Add(New listMAZusammenf(181, "BÜSRA"))
+        ll.Add(New listMAZusammenf(172, "CARMAN"))
+        ll.Add(New listMAZusammenf(240, "CELEBI"))
+        ll.Add(New listMAZusammenf(222, "CINAR"))
+        ll.Add(New listMAZusammenf(241, "CIYDEM"))
+        ll.Add(New listMAZusammenf(176, "DIKEBO"))
+        ll.Add(New listMAZusammenf(261, "Dreger"))
+        ll.Add(New listMAZusammenf(230, "EINBOECK"))
+        ll.Add(New listMAZusammenf(163, "EREMIA"))
+        ll.Add(New listMAZusammenf(130, "ERTL"))
+        ll.Add(New listMAZusammenf(175, "FAIZ"))
+        ll.Add(New listMAZusammenf(182, "FATMA"))
+        ll.Add(New listMAZusammenf(183, "FATOS"))
+        ll.Add(New listMAZusammenf(136, "FEICHTINGER"))
+        ll.Add(New listMAZusammenf(169, "FUCHS"))
+        ll.Add(New listMAZusammenf(128, "GERLINDE"))
+        ll.Add(New listMAZusammenf(128, "KODISCH"))
+        ll.Add(New listMAZusammenf(184, "GÖKHAN"))
+        ll.Add(New listMAZusammenf(139, "GROEMER"))
+        ll.Add(New listMAZusammenf(242, "GROETSCH"))
+        ll.Add(New listMAZusammenf(243, "GÜLER"))
+        ll.Add(New listMAZusammenf(221, "GÜLLÜ"))
+        ll.Add(New listMAZusammenf(185, "HACER"))
+        ll.Add(New listMAZusammenf(173, "HANSLMAYR"))
+        ll.Add(New listMAZusammenf(186, "HATICE"))
+        ll.Add(New listMAZusammenf(244, "HAZIROVIC"))
+        ll.Add(New listMAZusammenf(245, "HIEROLD"))
+        ll.Add(New listMAZusammenf(231, "HIKMET"))
+        ll.Add(New listMAZusammenf(272, "Höller"))
+        ll.Add(New listMAZusammenf(159, "HUBER"))
+        ll.Add(New listMAZusammenf(165, "JENARIU"))
+        ll.Add(New listMAZusammenf(141, "JINARIU"))
+        ll.Add(New listMAZusammenf(213, "JUERGEN"))
+        ll.Add(New listMAZusammenf(150, "KAPSHAMMER"))
+        ll.Add(New listMAZusammenf(171, "KASBAUER"))
+        ll.Add(New listMAZusammenf(268, "KASKA"))
+        ll.Add(New listMAZusammenf(246, "KERNSTOCK"))
+        ll.Add(New listMAZusammenf(260, "Kriegner"))
+        ll.Add(New listMAZusammenf(216, "LARYSA"))
+        ll.Add(New listMAZusammenf(168, "LISA"))
+        ll.Add(New listMAZusammenf(219, "LISI"))
+        ll.Add(New listMAZusammenf(144, "LUXBAUER"))
+        ll.Add(New listMAZusammenf(267, "LuxbauerB"))
+        ll.Add(New listMAZusammenf(199, "MAHIRA"))
+        ll.Add(New listMAZusammenf(271, "Manhartseder"))
+        ll.Add(New listMAZusammenf(187, "MARIA"))
+        ll.Add(New listMAZusammenf(174, "MATHIAS"))
+        ll.Add(New listMAZusammenf(154, "MAYRHOFER"))
+        ll.Add(New listMAZusammenf(189, "MERVE"))
+        ll.Add(New listMAZusammenf(188, "MIAZ"))
+        ll.Add(New listMAZusammenf(218, "MINE"))
+        ll.Add(New listMAZusammenf(270, "MIZI"))
+        ll.Add(New listMAZusammenf(247, "MOCIRAN"))
+        ll.Add(New listMAZusammenf(162, "MÜLLER"))
+        ll.Add(New listMAZusammenf(167, "MUMINOVIC"))
+        ll.Add(New listMAZusammenf(208, "MUSTAFA"))
+        ll.Add(New listMAZusammenf(207, "MUSTI"))
+        ll.Add(New listMAZusammenf(190, "NADIR"))
+        ll.Add(New listMAZusammenf(200, "NAHIDE"))
+        ll.Add(New listMAZusammenf(217, "NAZ"))
+        ll.Add(New listMAZusammenf(224, "NECIP"))
+        ll.Add(New listMAZusammenf(191, "NESE"))
+        ll.Add(New listMAZusammenf(263, "Nicoara"))
+        ll.Add(New listMAZusammenf(192, "NICOLE"))
+        ll.Add(New listMAZusammenf(138, "NÖBAUER"))
+        ll.Add(New listMAZusammenf(248, "NUSSDORFER"))
+        ll.Add(New listMAZusammenf(125, "ODABAS"))
+        ll.Add(New listMAZusammenf(249, "ÖZKAN"))
+        ll.Add(New listMAZusammenf(126, "ÖZLEM"))
+        ll.Add(New listMAZusammenf(157, "ÖZTÜRK"))
+        ll.Add(New listMAZusammenf(132, "PAHR"))
+        ll.Add(New listMAZusammenf(250, "PIROLT"))
+        ll.Add(New listMAZusammenf(226, "PROBLEM"))
+        ll.Add(New listMAZusammenf(253, "QSPULT"))
+        ll.Add(New listMAZusammenf(129, "REINPRECHT"))
+        ll.Add(New listMAZusammenf(254, "RIEDL"))
+        ll.Add(New listMAZusammenf(161, "ROBA"))
+        ll.Add(New listMAZusammenf(193, "SABINE"))
+        ll.Add(New listMAZusammenf(255, "SARACOGLU"))
+        ll.Add(New listMAZusammenf(214, "SARAH"))
+        ll.Add(New listMAZusammenf(147, "SCHACHNER"))
+        ll.Add(New listMAZusammenf(194, "SELCAN"))
+        ll.Add(New listMAZusammenf(195, "SEMIH"))
+        ll.Add(New listMAZusammenf(201, "SEVGI"))
+        ll.Add(New listMAZusammenf(198, "SEVILAY"))
+        ll.Add(New listMAZusammenf(127, "SIENER"))
+        ll.Add(New listMAZusammenf(148, "SIKORA"))
+        ll.Add(New listMAZusammenf(209, "SIRADA"))
+        ll.Add(New listMAZusammenf(155, "SREINPRECHT"))
+        ll.Add(New listMAZusammenf(223, "STEFANIE"))
+        ll.Add(New listMAZusammenf(202, "SULTAN"))
+        ll.Add(New listMAZusammenf(203, "TAMARA"))
+        ll.Add(New listMAZusammenf(137, "TANJA"))
+        'll.Add(New listMAZusammenf(ll.Add(New listMAZusammenf(204, "TANJA"))
+        ll.Add(New listMAZusammenf(259, "test"))
+        ll.Add(New listMAZusammenf(131, "TICK"))
+        ll.Add(New listMAZusammenf(158, "TORAM1"))
+        ll.Add(New listMAZusammenf(166, "TORAM2"))
+        ll.Add(New listMAZusammenf(197, "TUGAY"))
+        ll.Add(New listMAZusammenf(211, "TÜLAY"))
+        ll.Add(New listMAZusammenf(225, "VERENA"))
+        ll.Add(New listMAZusammenf(196, "VILDAN"))
+        ll.Add(New listMAZusammenf(206, "VOLKAN"))
+        ll.Add(New listMAZusammenf(140, "VÖLKL"))
+        ll.Add(New listMAZusammenf(256, "VRHOVAC"))
+        ll.Add(New listMAZusammenf(142, "WALCH"))
+        ll.Add(New listMAZusammenf(149, "WIMMEDER"))
+        ll.Add(New listMAZusammenf(153, "WUERDIG"))
+        ll.Add(New listMAZusammenf(134, "WURM"))
+        ll.Add(New listMAZusammenf(164, "YASIN"))
+        ll.Add(New listMAZusammenf(146, "YUKSEL"))
+        ll.Add(New listMAZusammenf(257, "ZILK"))
+        ll.Add(New listMAZusammenf(258, "ZITZMANN"))
+        ll.Add(New listMAZusammenf(145, "ZWIRN"))
+
+        ll.Add(New listMAZusammenf(139, "Grömer"))
+        ll.Add(New listMAZusammenf(166, "TORAMAN2"))
+        ll.Add(New listMAZusammenf(146, "Yueksel"))
+        ll.Add(New listMAZusammenf(137, "TREINPRECHT"))
+        ll.Add(New listMAZusammenf(133, "ANGERER"))
+        ll.Add(New listMAZusammenf(158, "TORAMAN"))
+        ll.Add(New listMAZusammenf(126, "Onur"))
+        ll.Add(New listMAZusammenf(231, "TOZCOEKEN"))
+        ll.Add(New listMAZusammenf(164, "DEMIRYÜREK"))
+        ll.Add(New listMAZusammenf(235, "PULT2"))
+        ll.Add(New listMAZusammenf(302, "KADAJ ARLINDA"))
+        ll.Add(New listMAZusammenf(303, "OBIC"))
+
+
+        Return ll
+    End Function
+
+
+    Function getmaid(ma As String) As Integer
+        Dim ll As List(Of listMAZusammenf) = getMAList()
+        For Each l1 As listMAZusammenf In ll
+            If ma.ToLower.Contains(l1.name.ToLower) Then
+                Return l1.id
+            End If
+        Next
+        Return -1
+    End Function
+    Function getmaidEXAKT(ma As String) As Integer
+        Dim ll As List(Of listMAZusammenf) = getMAList()
+        For Each l1 As listMAZusammenf In ll
+            If ma.Trim.ToLower = l1.name.Trim.ToLower Then
+                Return l1.id
+            End If
+        Next
+        Return -1
+    End Function
+    Private Sub Button5_Click(sender As Object, e As EventArgs)
+        Dim ll As List(Of listMAZusammenf) = getMAList()
+        For Each l1 As listMAZusammenf In ll
+            setMATMP(l1)
+        Next
+    End Sub
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs)
+        Dim ll As List(Of listMAZusammenf) = getMAList()
+        For Each l1 As listMAZusammenf In ll
+            setMATMPVermerke(l1)
+        Next
+    End Sub
+
+
+    Public Sub setMATMPVermerke(ByVal l As listMAZusammenf)
+        Dim hAuswahl As String
+
+        hAuswahl = String.Format("UPDATE Vermerke SET MitarbeiterId = @MitarbeiterId WHERE Mitarbeiter like @Mitarbeiter")
+
+        Dim sql = hAuswahl
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            cmd.Parameters.AddWithValue("@MitarbeiterId", l.id)
+            cmd.Parameters.AddWithValue("@Mitarbeiter", l.name & "%")
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
+            End Try
+        End Using
+        conn.Close()
+    End Sub
+
+    Public Sub setMATMP(ByVal l As listMAZusammenf)
+        Dim hAuswahl As String
+
+        hAuswahl = String.Format("UPDATE Aviso SET LetzterMitarbeiterId = @LetzterMitarbeiterId WHERE LetzterMitarbeiter like @LetzterMitarbeiter")
+
+        Dim sql = hAuswahl
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            cmd.Parameters.AddWithValue("@LetzterMitarbeiterId", l.id)
+            cmd.Parameters.AddWithValue("@LetzterMitarbeiter", l.name & "%")
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
+            End Try
+        End Using
+        conn.Close()
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs)
+
+        Dim t As String ' = Button6.Text
+        Dim sAend As New List(Of String)
+
+        Dim sql As String = "SELECT [AvisoID],[Datum],[LKW_Nr],[Änderungen],[LetzterMitarbeiter],[LetzterMitarbeiterId] FROM [Aviso] " 'where datum between '01.01.2015 00:00:00' and '31.01.2015 23:59:59'"
+        Dim dr As SqlDataReader
+
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            dr = cmd.ExecuteReader()
+            Try
+                Dim cnt As Integer = 0
+                If dr.HasRows Then
+                    While dr.Read
+                        If Not dr.Item("LetzterMitarbeiterId") Is DBNull.Value Then
+                            Dim aend As String = CStr(dr.Item("Änderungen"))
+
+                            If aend.Contains(vbNewLine) Then
+                                Dim sarr As String()
+                                sarr = aend.Split(CChar(vbNewLine))
+
+                                '  MsgBox("yes    " & sarr.Count())
+                                For i = 0 To sarr.Count() - 1
+                                    If sarr(i).Contains(" von ") Then
+                                        Dim sarr2 As String()
+                                        sarr2 = sarr(i).Trim.Split({" von "}, StringSplitOptions.None)
+
+
+
+                                        Dim b As Boolean = True
+                                        For Each s In sAend
+                                            If s = sarr2(0).Trim Then
+                                                b = False
+                                            End If
+                                        Next
+                                        If b Then
+                                            sAend.Add(sarr2(0).Trim)
+                                        End If
+
+                                    End If
+
+                                    ' MsgBox(sarr(i))
+                                Next
+                            Else
+                                '     MsgBox("no    ")
+                            End If
+
+
+
+                        End If
+                    End While
+
+                    dr.Close()
+                    dr = cmd.ExecuteReader()
+
+                    While dr.Read
+
+                        If Not dr.Item("LetzterMitarbeiterId") Is DBNull.Value Then
+                            Dim aend As String = CStr(dr.Item("Änderungen"))
+
+                            If aend.Contains(vbNewLine) Then
+                                Dim sarr As String()
+                                sarr = aend.Split(CChar(vbNewLine))
+
+                                '  MsgBox("yes    " & sarr.Count())
+                                For i = 0 To sarr.Count() - 1
+                                    If sarr(i).Contains(" von ") Then
+                                        For Each s In sAend
+                                            If sarr(i).Trim.Contains(s) Then
+                                                Dim sarr2 As String() = sarr(i).Trim.Split({" von "}, StringSplitOptions.None)
+                                                Dim sarr3 As String() = sarr2(1).Trim.Split({" am "}, StringSplitOptions.None)
+
+                                                Dim art As String = sarr2(0).Replace(vbNewLine, "").Trim
+                                                Dim ma As String = sarr3(0).Replace(vbNewLine, "").Trim
+                                                Dim dat As DateTime = CDate(sarr3(1).Replace(vbNewLine, "").Trim)
+                                                'Dim maId As Integer = getmaidEXAKT(ma)
+                                                Dim maId As Integer = getmaid(ma)
+                                                'MsgBox(art & " - " & ma & " - " & dat & " - " & maId)
+
+                                                'getmaid(ma).Trim.Split({" am "}, StringSplitOptions.None)
+                                                insertAend(CInt(dr.Item("AvisoID")), dat, ma, maId, art, sarr(i).Replace(vbNewLine, "").Trim)
+
+                                                'If Not Button6.Text = t & dat.ToString("dd.MM.yyyy") Then
+                                                'Button6.Text = t & dat.ToString("dd.MM.yyyy")
+                                                'End If
+                                            End If
+                                        Next
+
+                                    End If
+                                Next
+                            Else
+
+                            End If
+
+
+
+                        End If
+                    End While
+                    dr.Close()
+
+
+
+                    MsgBox("FIN")
+
+
+                End If
+                conn.Close()
+            Catch ex As Exception
+                MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
+            Finally
+                dr.Close()
+            End Try
+            'end Using
+        End Using
+
+        'Button6.Text' = t
+    End Sub
+
+    Public Sub insertFremdeSpeditionen(fremd_firma, fremd_plz, fremd_ort, fremd_verzolltBei, fremd_bemerkung)
+        Dim hAuswahl As String
+
+
+        hAuswahl = "INSERT INTO [tblFremdSpeditionen] " &
+                   "( [fremd_firma], [fremd_plz], [fremd_ort], [fremd_verzolltBei], [fremd_bemerkung]) VALUES (" &
+                   " @fremd_firma, @fremd_plz, @fremd_ort, @fremd_verzolltBei, @fremd_bemerkung)"
+
+        Dim sql = hAuswahl
+        ' Dim c = New SqlConnection(cGlobal.ConnStr)
+        Dim conn As SqlConnection = New SqlConnection(cSqlDb.GetAVISOConnectionString)
+        conn.Open()
+        Using cmd As New SqlCommand(sql, conn)
+            cmd.Parameters.AddWithValue("@fremd_firma", fremd_firma)
+            cmd.Parameters.AddWithValue("@fremd_plz", fremd_plz)
+            cmd.Parameters.AddWithValue("@fremd_ort", fremd_ort)
+            cmd.Parameters.AddWithValue("@fremd_verzolltBei", fremd_verzolltBei)
+            cmd.Parameters.AddWithValue("@fremd_bemerkung", fremd_bemerkung)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("ERR2!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "ERR")
+            End Try
+        End Using
+        conn.Close()
+    End Sub
+
+
+
+
+    Public Sub insertAend(AvisoID As Integer, Datum As DateTime, Mitarbeiter As String, MitarbeiterId As Integer, Aenderung_Art As String, Aenderung_Text As String)
+        Dim hAuswahl As String
+
+        '              [AenderungID]       INT            IDENTITY (1, 1) NOT NULL,
+        '  [AvisoID]         INT            NULL,
+        '  [Datum]           DATETIME2 (0)  NULL,
+        '  [Mitarbeiter]     NVARCHAR (50)  NULL,
+        ' [MitarbeiterId]     INT  NULL,
+        ' [Aenderung_Art] NVARCHAR (MAX) NULL,
+        '  [Aenderung_Text] NVARCHAR (MAX) NULL,
+        '
+
+        hAuswahl = "INSERT INTO Aenderungen " &
+                   "(AvisoID, Datum, Mitarbeiter, MitarbeiterId, Aenderung_Art, Aenderung_Text) VALUES (" &
+                   "@AvisoID, @Datum, @Mitarbeiter, @MitarbeiterId, @Aenderung_Art, @Aenderung_Text)"
+
+        Dim sql = hAuswahl
+        ' Dim c = New SqlConnection(cGlobal.ConnStr)
+        Dim conn As SqlConnection = New SqlConnection(cSqlDb.GetAVISOConnectionString)
+        conn.Open()
+        Using cmd As New SqlCommand(sql, conn)
+            cmd.Parameters.AddWithValue("@AvisoID", AvisoID)
+            cmd.Parameters.AddWithValue("@Datum", Datum)
+            cmd.Parameters.AddWithValue("@Mitarbeiter", Mitarbeiter)
+            cmd.Parameters.AddWithValue("@MitarbeiterId", MitarbeiterId)
+            cmd.Parameters.AddWithValue("@Aenderung_Art", Aenderung_Art)
+            cmd.Parameters.AddWithValue("@Aenderung_Text", Aenderung_Text)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("ERR2!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "ERR")
+            End Try
+        End Using
+        conn.Close()
+    End Sub
+
+
+    Public Sub setVermerkeCode(code As Integer, ByVal where As String)
+        Dim hAuswahl As String
+
+        hAuswahl = String.Format("UPDATE Vermerke SET VermerkeCode = @code WHERE " & where & " ")
+
+        Dim sql = hAuswahl
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            cmd.Parameters.AddWithValue("@code", code)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
+            End Try
+        End Using
+        conn.Close()
+    End Sub
+
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs)
+
+        setVermerkeCode(1, " [Hinweis_Vermerk] LIKE '%Auftrag für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
+        setVermerkeCode(1, " [Hinweis_Vermerk] LIKE '%Auftrag angefordert%' ")
+        setVermerkeCode(2, " [Hinweis_Vermerk] LIKE '%Auftrag für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
+        setVermerkeCode(3, " [Hinweis_Vermerk] LIKE '%Rechnung für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
+        setVermerkeCode(4, " [Hinweis_Vermerk] LIKE '%Rechnung für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
+        setVermerkeCode(5, " [Hinweis_Vermerk] LIKE '%LS für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
+        setVermerkeCode(6, " [Hinweis_Vermerk] LIKE '%LS für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
+        setVermerkeCode(7, " [Hinweis_Vermerk] LIKE '%ATR Kopie%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
+        setVermerkeCode(8, " [Hinweis_Vermerk] LIKE '%ATR Kopie%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
+        setVermerkeCode(9, " [Hinweis_Vermerk] LIKE '%Vollmacht%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
+        setVermerkeCode(10, " [Hinweis_Vermerk] LIKE '%Vollmacht%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
+        setVermerkeCode(11, " [Hinweis_Vermerk] LIKE '%CMR für Fiskal%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
+        setVermerkeCode(12, " [Hinweis_Vermerk] LIKE '%CMR für Fiskal%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
+        setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%angefordert%' ")
+        setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorkasse%' AND [Hinweis_Vermerk] LIKE '%angefordert%' ")
+        setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%beantragt%' ")
+        setVermerkeCode(14, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%erhalten%' ")
+        setVermerkeCode(14, " [Hinweis_Vermerk] LIKE '%Vorkasse%' AND [Hinweis_Vermerk] LIKE '%erhalten%' ")
+        setVermerkeCode(15, " [Hinweis_Vermerk] LIKE '%Aviso nicht eingelangt%' ")
+        setVermerkeCode(16, " [Hinweis_Vermerk] LIKE '%Aviso eingelangt kurz vor Eintreffen des LKWs%' ")
+        setVermerkeCode(17, " [Hinweis_Vermerk] LIKE '%DE Zoll eingereicht%' ")
+        setVermerkeCode(18, " [Hinweis_Vermerk] LIKE '%DE Zoll fertig%' ")
+        setVermerkeCode(19, " [Hinweis_Vermerk] LIKE '%AT Zoll eingereicht%' ")
+        setVermerkeCode(20, " [Hinweis_Vermerk] LIKE '%AT Zoll eingereicht%' ")
+        setVermerkeCode(21, " [Hinweis_Vermerk] LIKE '%LKW Standzeit Wochenende%' ")
+        setVermerkeCode(22, " [Hinweis_Vermerk] LIKE '%LKW Standzeit Feiertag%' ")
+        setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%Nach SALZBURG avisiert%' ")
+        setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%über Sbg. avisiert%' ")
+        setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%über Salzburg avisiert%' ")
+        setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%NACH SALZBURG AVISIERT!%' ")
+
+        setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%Nach WAIDHAUS avisiert%' ")
+        setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%über Wdh. avisiert%' ")
+        setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%über Waidhaus avisiert%' ")
+        setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%NACH WAIDHAUS AVISIERT!%' ")
+
+        setVermerkeCode(26, " [Hinweis_Vermerk] LIKE '%LKW ist fertig!%' ")
+        setVermerkeCode(27, " [Hinweis_Vermerk] LIKE '%LKW ist nicht fertig.%' ")
+
+
+        'setVermerkeCode(25," [Hinweis_Vermerk] LIKE '%Sonstige Dokumente fehlen
+
+    End Sub
+
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs)
+
+
+        Dim hAuswahl As String
+
+        hAuswahl = String.Format("UPDATE [Aviso] SET Vorbereitet=Avisoeingang ")
+
+        Dim sql = hAuswahl
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Datum Vorbereitet")
+            End Try
+        End Using
+        conn.Close()
+    End Sub
+
+    Private Sub btnFremdeSpeditionenEinlesen_Click(sender As Object, e As EventArgs)
+
+
+        Dim fd As New OpenFileDialog
+        fd.Filter = "Excel Dateien|*.xls;*.xlsx"
+        Dim result As DialogResult = fd.ShowDialog()
+
+        If Not fd.FileName.EndsWith(".xls") And Not fd.FileName.EndsWith(".xlsx") Then
+            Me.Cursor = Cursors.Default
+            Exit Sub
+        End If
+
+        If result = System.Windows.Forms.DialogResult.OK Then
+
+
+            Me.Cursor = Cursors.WaitCursor
+            Dim exclApp As New Excel.Application 'Object 'as Application
+            Dim Datei As Excel.Workbook ' 'as WorkBook
+            Dim Blatt As Excel.Worksheet 'Object 'as WorkSheet
+
+            With exclApp
+                Try
+
+                    .CutCopyMode = False
+
+                    .DisplayAlerts = False
+
+
+                    Datei = .Workbooks.Open(fd.FileName)
+                    Blatt = Datei.Worksheets(1)
+
+                    Datei.Activate()
+
+                    Try
+                        Blatt.ShowAllData() 'Falls Filter ausgewählt wurde
+                    Catch ex As Exception
+
+                    End Try
+
+
+
+                    'Laden des Bereiches aus dem Excel:
+                    Dim myRange As Excel.Range
+                    myRange = Blatt.Range("A2:E" & Blatt.UsedRange.Rows.Count & "")
+                    Dim myArray As Object(,) '<-- declared as 2D Array
+                    myArray = myRange.Value    'store the content of each cell
+                    'myArray(i_soll2 - startRows + 1, 4)
+                    MsgBox(Blatt.UsedRange.Rows.Count)
+                    For i As Integer = 1 To Blatt.UsedRange.Rows.Count - 1 Step 1
+                        Dim firma = If(myArray(i, 1) Is Nothing, "", myArray(i, 1))
+                        Dim plz = If(myArray(i, 2) Is Nothing, "", myArray(i, 2))
+                        Dim ort = If(myArray(i, 3) Is Nothing, "", myArray(i, 3))
+                        Dim sped = If(myArray(i, 4) Is Nothing, "", myArray(i, 4))
+                        Dim bem = If(myArray(i, 5) Is Nothing, "", myArray(i, 5))
+                        If firma <> "" Then
+                            insertFremdeSpeditionen(firma, plz, ort, sped, bem)
+                        End If
+                        '      MsgBox(firma)
+                    Next
+
+                    MsgBox("OK")
+
+
+
+                Catch ex As Exception
+                    MsgBox(ex.Message)
+
+                End Try
+            End With
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+        Dim admin As New cADMIN
+
+        Dim sql As String
+        sql = String.Format("SELECT * FROM Firmen where ( eMail<>'' or eMail2<>'') AND [KundenNr] is not NULL")
+
+        Dim daten As cFirma = Nothing
+
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            Using dr As SqlDataReader = cmd.ExecuteReader()
+                If dr.HasRows Then
+                    While dr.Read
+
+                        Dim kdnr = dr.Item("KundenNr").ToString
+                        Dim LIST_EMAILS = New SDL.cEmailBenachrichtigungList(kdnr, 1)
+                        Dim LIST_EMAILS2 = New SDL.cEmailBenachrichtigungList(kdnr, 2)
+
+                        Dim eMail = (dr.Item("eMail")).ToString.Replace(" ", "")
+                        Dim eMail2 = (dr.Item("eMail2")).ToString.Replace(" ", "")
+
+                        LIST_EMAILS.CLEAR()
+                        LIST_EMAILS2.CLEAR()
+                        If eMail.Contains(";") Then
+                            For Each r In eMail.Split(";")
+                                If r.Trim <> "" Then
+                                    LIST_EMAILS.ADD(r.Trim)
+                                    LIST_EMAILS2.ADD(r.Trim)
+                                End If
+                            Next
+                        ElseIf eMail.Trim <> "" Then
+                            LIST_EMAILS.ADD(eMail.Trim)
+                            LIST_EMAILS2.ADD(eMail.Trim)
+                        End If
+                        If eMail2.Contains(";") Then
+                            For Each r In eMail2.Split(";")
+                                If r.Trim <> "" Then
+                                    LIST_EMAILS.ADD(r.Trim, True)
+                                    LIST_EMAILS2.ADD(r.Trim, True)
+                                End If
+                            Next
+                        ElseIf eMail.Trim <> "" Then
+                            LIST_EMAILS.ADD(eMail2.Trim, True)
+                            LIST_EMAILS2.ADD(eMail2.Trim, True)
+                        End If
+                        LIST_EMAILS.SAVE()
+                        LIST_EMAILS2.SAVE()
+                        If LIST_EMAILS.LIST.Count > 0 Then
+                            admin.doSQL("UPDATE [Kunden] SET [EmailAnkunft]=1,[EmailFreigabe]=1 WHERE [KundenNr]=" & kdnr, "FMZOLL")
+                        End If
+                    End While
+
+                End If
+                dr.Close()
+            End Using
+        End Using
+        conn.Close()
+        'damit leere Einträge gelöscht werden:
+        admin.doSQL("delete FROM [tblEmailBenachrichtigung] WHERE [eb_EMail] = '' ", "FMZOLL")
+
+    End Sub
+End Class
+
+Public Class listMAZusammenf
+    Public id As Integer
+    Public name As String
+
+    Sub New(v1 As Integer, v2 As String)
+        id = v1
+        name = v2
+    End Sub
+End Class
--- a/Aviso/Auswertung/frmStatFrima.Designer.vb
+++ b/Aviso/Auswertung/frmStatFrima.Designer.vb
@@ -0,0 +1,352 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmStatFrima
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStatFrima))
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.lblMaxWZ = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.lblMinWZ = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.lblDurchschnSZ = New System.Windows.Forms.Label()
+        Me.lblAnzLKWs = New System.Windows.Forms.Label()
+        Me.lblZeitraum = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.pnlStat = New System.Windows.Forms.Panel()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.lblFirma = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.ListView1 = New System.Windows.Forms.ListView()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.pnlStat.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.AllowUserToAddRows = False
+        Me.DataGridView1.AllowUserToDeleteRows = False
+        Me.DataGridView1.AllowUserToOrderColumns = True
+        Me.DataGridView1.AllowUserToResizeRows = False
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.LightCyan
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView1.Location = New System.Drawing.Point(0, 101)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.ReadOnly = True
+        Me.DataGridView1.RowHeadersVisible = False
+        Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.DataGridView1.Size = New System.Drawing.Size(1371, 288)
+        Me.DataGridView1.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.DataGridView2)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel1.Location = New System.Drawing.Point(0, 389)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1456, 234)
+        Me.Panel1.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 5)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(55, 13)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Vermerke:"
+        '
+        'DataGridView2
+        '
+        Me.DataGridView2.AllowUserToAddRows = False
+        Me.DataGridView2.AllowUserToDeleteRows = False
+        Me.DataGridView2.AllowUserToOrderColumns = True
+        Me.DataGridView2.AllowUserToResizeRows = False
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightCyan
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.DataGridView2.Location = New System.Drawing.Point(0, 21)
+        Me.DataGridView2.Name = "DataGridView2"
+        Me.DataGridView2.ReadOnly = True
+        Me.DataGridView2.RowHeadersVisible = False
+        Me.DataGridView2.Size = New System.Drawing.Size(1456, 213)
+        Me.DataGridView2.TabIndex = 2
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Button1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
+        Me.Panel2.Location = New System.Drawing.Point(1371, 101)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(85, 288)
+        Me.Panel2.TabIndex = 3
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(6, 12)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Details"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Panel3
+        '
+        Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Panel3.Controls.Add(Me.Panel4)
+        Me.Panel3.Controls.Add(Me.lblMaxWZ)
+        Me.Panel3.Controls.Add(Me.Label10)
+        Me.Panel3.Controls.Add(Me.lblMinWZ)
+        Me.Panel3.Controls.Add(Me.Label8)
+        Me.Panel3.Controls.Add(Me.lblDurchschnSZ)
+        Me.Panel3.Controls.Add(Me.lblAnzLKWs)
+        Me.Panel3.Controls.Add(Me.lblZeitraum)
+        Me.Panel3.Controls.Add(Me.Label6)
+        Me.Panel3.Controls.Add(Me.Label5)
+        Me.Panel3.Controls.Add(Me.Label4)
+        Me.Panel3.Controls.Add(Me.pnlStat)
+        Me.Panel3.Controls.Add(Me.lblFirma)
+        Me.Panel3.Controls.Add(Me.Label2)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel3.Location = New System.Drawing.Point(0, 0)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(1456, 101)
+        Me.Panel3.TabIndex = 5
+        '
+        'lblMaxWZ
+        '
+        Me.lblMaxWZ.AutoSize = True
+        Me.lblMaxWZ.Location = New System.Drawing.Point(347, 66)
+        Me.lblMaxWZ.Name = "lblMaxWZ"
+        Me.lblMaxWZ.Size = New System.Drawing.Size(10, 13)
+        Me.lblMaxWZ.TabIndex = 12
+        Me.lblMaxWZ.Text = "-"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(267, 66)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(74, 13)
+        Me.Label10.TabIndex = 11
+        Me.Label10.Text = "Max. Stehzeit:"
+        '
+        'lblMinWZ
+        '
+        Me.lblMinWZ.AutoSize = True
+        Me.lblMinWZ.Location = New System.Drawing.Point(347, 53)
+        Me.lblMinWZ.Name = "lblMinWZ"
+        Me.lblMinWZ.Size = New System.Drawing.Size(10, 13)
+        Me.lblMinWZ.TabIndex = 10
+        Me.lblMinWZ.Text = "-"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(267, 53)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(71, 13)
+        Me.Label8.TabIndex = 9
+        Me.Label8.Text = "Min. Stehzeit:"
+        '
+        'lblDurchschnSZ
+        '
+        Me.lblDurchschnSZ.AutoSize = True
+        Me.lblDurchschnSZ.Location = New System.Drawing.Point(146, 66)
+        Me.lblDurchschnSZ.Name = "lblDurchschnSZ"
+        Me.lblDurchschnSZ.Size = New System.Drawing.Size(10, 13)
+        Me.lblDurchschnSZ.TabIndex = 8
+        Me.lblDurchschnSZ.Text = "-"
+        '
+        'lblAnzLKWs
+        '
+        Me.lblAnzLKWs.AutoSize = True
+        Me.lblAnzLKWs.Location = New System.Drawing.Point(146, 53)
+        Me.lblAnzLKWs.Name = "lblAnzLKWs"
+        Me.lblAnzLKWs.Size = New System.Drawing.Size(10, 13)
+        Me.lblAnzLKWs.TabIndex = 7
+        Me.lblAnzLKWs.Text = "-"
+        '
+        'lblZeitraum
+        '
+        Me.lblZeitraum.AutoSize = True
+        Me.lblZeitraum.Location = New System.Drawing.Point(146, 40)
+        Me.lblZeitraum.Name = "lblZeitraum"
+        Me.lblZeitraum.Size = New System.Drawing.Size(10, 13)
+        Me.lblZeitraum.TabIndex = 6
+        Me.lblZeitraum.Text = "-"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(6, 66)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(133, 13)
+        Me.Label6.TabIndex = 5
+        Me.Label6.Text = "Durchschnittliche Stehzeit:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(6, 53)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(92, 13)
+        Me.Label5.TabIndex = 4
+        Me.Label5.Text = "Anzahl der LKWs:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(6, 40)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(51, 13)
+        Me.Label4.TabIndex = 3
+        Me.Label4.Text = "Zeitraum:"
+        '
+        'pnlStat
+        '
+        Me.pnlStat.Controls.Add(Me.Label3)
+        Me.pnlStat.Location = New System.Drawing.Point(1012, 3)
+        Me.pnlStat.Name = "pnlStat"
+        Me.pnlStat.Size = New System.Drawing.Size(359, 95)
+        Me.pnlStat.TabIndex = 2
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(3, 1)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(223, 13)
+        Me.Label3.TabIndex = 3
+        Me.Label3.Text = "Verteilung der Wartezeiten (Anzahl der LKWs)"
+        '
+        'lblFirma
+        '
+        Me.lblFirma.AutoSize = True
+        Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblFirma.Location = New System.Drawing.Point(5, 20)
+        Me.lblFirma.Name = "lblFirma"
+        Me.lblFirma.Size = New System.Drawing.Size(184, 20)
+        Me.lblFirma.TabIndex = 1
+        Me.lblFirma.Text = "VERAG Spedition AG"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(6, 4)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(57, 13)
+        Me.Label2.TabIndex = 0
+        Me.Label2.Text = "Details für:"
+        '
+        'Panel4
+        '
+        Me.Panel4.Controls.Add(Me.ListView1)
+        Me.Panel4.Location = New System.Drawing.Point(530, 13)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(476, 82)
+        Me.Panel4.TabIndex = 13
+        '
+        'ListView1
+        '
+        Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ListView1.Location = New System.Drawing.Point(0, 0)
+        Me.ListView1.Name = "ListView1"
+        Me.ListView1.Size = New System.Drawing.Size(476, 82)
+        Me.ListView1.TabIndex = 0
+        Me.ListView1.UseCompatibleStateImageBehavior = False
+        '
+        'frmStatFrima
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1456, 623)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmStatFrima"
+        Me.ShowIcon = False
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Auswertung - Details"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.pnlStat.ResumeLayout(False)
+        Me.pnlStat.PerformLayout()
+        Me.Panel4.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Panel3 As System.Windows.Forms.Panel
+    Friend WithEvents lblFirma As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents pnlStat As System.Windows.Forms.Panel
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents lblZeitraum As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Public WithEvents lblDurchschnSZ As System.Windows.Forms.Label
+    Public WithEvents lblAnzLKWs As System.Windows.Forms.Label
+    Public WithEvents lblMaxWZ As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Public WithEvents lblMinWZ As System.Windows.Forms.Label
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents Panel4 As System.Windows.Forms.Panel
+    Friend WithEvents ListView1 As System.Windows.Forms.ListView
+End Class
--- a/Aviso/Auswertung/frmStatFrima.resx
+++ b/Aviso/Auswertung/frmStatFrima.resx
--- a/Aviso/Auswertung/frmStatFrima.vb
+++ b/Aviso/Auswertung/frmStatFrima.vb
@@ -0,0 +1,225 @@
+Imports Gemeinsames
+Imports VERAG_PROG_ALLGEMEIN 
+
+Public Class frmStatFrima
+
+    Public srch As String = ""
+    Public auftrFraecht As String = ""
+    Public StatVon As String = ""
+    Public StatBis As String = ""
+
+    Public DauerVon As String = ""
+    Public DauerBis As String = ""
+    Public firma As String = ""
+    Dim Sql As New Statistik
+    Private Sub frmStatFrima_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initList()
+
+        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
+        DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
+        lblFirma.Text = firma
+        Try
+            lblZeitraum.Text = StatVon & " - " & StatBis
+        Catch ex As Exception
+
+        End Try
+        ' Me.Height = 
+    End Sub
+
+
+    Sub initPnlStat()
+        If Not IsDate(StatVon) Then StatVon = "1800-01-01 00:00:00"
+        If Not IsDate(StatBis) Then StatBis = Now.ToString("yyyy-MM-dd HH:mm:ss")
+        If Not IsNumeric(DauerVon) Then DauerVon = "0"
+        If Not IsNumeric(DauerBis) Then DauerBis = "99999"
+
+        Dim SQLstat As New StatDB
+        Dim c As Integer = 0
+
+        Dim stdVon As Integer = CInt(Math.Floor(CInt(DauerVon) / 60))
+        Dim stdBis As Integer = CInt(Math.Ceiling(CInt(DauerBis) / 60))
+        ' Dim s3(,) As String
+        Dim stepValue As Integer = 1
+
+        If (stdBis - stdVon) > 15 Then
+            stepValue = CInt(Math.Ceiling((stdBis - stdVon) / 15))
+        End If
+        DauerBis = CStr(CInt(DauerBis) + 1)
+        Dim s(CInt(stdBis / stepValue - stdVon), 2) As String
+
+        For i = stdVon To stdBis - 1 Step stepValue
+            Dim lkws As Integer = SQLstat.getAnzahlLkwDauer(CDate(StatVon), CDate(StatBis), CStr(i * 60), CStr((i + stepValue) * 60 - 1), DauerVon, DauerBis, " AND ( " & srch & " LIKE '" & auftrFraecht & "' ) ")
+            s(c, 0) = i & "-" & (i + stepValue) & " h"
+            s(c, 1) = CStr(lkws)
+            c += 1
+        Next
+
+    
+        drawStat(pnlStat, s)
+
+
+        Dim listStatAvisoProleme As List(Of listStatAvisoProleme) = SQLstat.getAnzahlAvisoProbleme("", CDate(StatVon), CDate(StatBis), DauerVon, DauerBis, " AND ( " & srch & " LIKE '" & auftrFraecht & "' ) ")
+
+
+        ListView1.Columns.Add("Probleme", 150)
+        ListView1.Columns.Add("Anzahl", 50)
+
+        ListView1.View = View.Details
+        ListView1.FullRowSelect = True
+
+        For Each l In listStatAvisoProleme
+
+            Dim eintrag1 As New ListViewItem(l.Bezeichnung, 0)
+            eintrag1.SubItems.Add(l.AnzahlVermerke.ToString)
+            ListView1.Items.Add(eintrag1)
+        Next
+
+
+
+
+
+    End Sub
+    Sub initList()
+        With DataGridView1
+
+            Dim sqlstr As String = "select AvisoID, Datum, LKW_Nr, Dauer, Auftraggeber, Frächter,  Ankunft, Freigabe,  AvisoEingang, Grenzstelle, Info,LetzterMitarbeiter  from Aviso "
+
+            'WHERE
+            Dim where As String = ""
+            If StatVon <> "" Then where &= " AND Datum >= '" & StatVon & "' "
+            If StatBis <> "" Then where &= " AND Datum <= '" & StatBis & "' "
+
+            If DauerVon <> "" Then where &= " AND Dauer >= '" & DauerVon & "' "
+            If DauerBis <> "" Then where &= " AND Dauer <= '" & DauerBis & "' "
+
+            sqlstr &= " WHERE ( " & srch & " LIKE '" & auftrFraecht & "' " & where & " )  AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'  "
+            sqlstr &= " ORDER BY Dauer DESC "
+            .DataSource = Sql.getKunden(sqlstr)
+
+            '.Columns(0).HeaderText
+            .Columns(0).Visible = False
+            .Columns(1).HeaderText = "Datum"
+            .Columns(4).HeaderText = "Avisierer"
+            .Columns("Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns(2).HeaderText = "LKW-Kz"
+            If .RowCount > 0 Then
+                DataGridView1.Rows(0).Cells(0).Selected = True
+                DataGridView1_CellContentClick(DataGridView1, New DataGridViewCellEventArgs(0, 0))
+            End If
+        End With
+    End Sub
+
+    Private Sub DataGridView1_CellContentClick(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
+        If DataGridView1.SelectedCells.Count > 0 Then
+            With DataGridView2
+                If DataGridView1.SelectedRows.Count > 0 Then
+                    Dim sqlstr As String = ""
+                    sqlstr += " ("
+                    sqlstr += " select VermerkID,'' as [AenderungID],AvisoID, Datum, Mitarbeiter, Hinweis_Vermerk from Vermerke WHERE ( AvisoID =  '" & CStr(DataGridView1.SelectedRows(0).Cells(0).Value) & "'  ) "
+                    sqlstr += " union "
+                    sqlstr += " select '',[AenderungID],[AvisoID],[Datum],[Mitarbeiter],[Aenderung_Text] "
+                    sqlstr += " FROM [Aenderungen] WHERE ( AvisoID =  '" & CStr(DataGridView1.SelectedRows(0).Cells(0).Value) & "'  ) "
+                    sqlstr += " ) "
+                    sqlstr += " ORDER By Datum DESC"
+
+                    '   Dim sqlstr As String = "select VermerkID,AvisoID, Datum, Mitarbeiter, Hinweis_Vermerk from Vermerke WHERE ( AvisoID = '" & CStr(DataGridView1.SelectedRows(0).Cells(0).Value) & "' ) "
+                    ' sqlstr &= " ORDER BY Datum DESC "
+                    .DataSource = Sql.getKunden(sqlstr)
+                    .Columns(0).Visible = False
+                    .Columns(1).Visible = False
+                    .Columns(2).Visible = False
+
+                    .Columns(3).HeaderText = "Datum"
+                    .Columns(3).Width = 150
+
+                    .Columns(4).HeaderText = "Mitarbeiter"
+                    .Columns(4).Width = 300
+
+                    .Columns(5).HeaderText = "Vermerk"
+                    .Columns(5).MinimumWidth = 300
+                    .Columns(5).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+                End If
+            End With
+        End If
+    End Sub
+
+   
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim str As String = ""
+        For Each r As DataGridViewRow In DataGridView1.Rows()
+            If r.Selected Then
+                str &= "'" & CStr(r.Cells(0).Value) & "',"
+            End If
+        Next
+        If str.EndsWith(",") Then str = str.Substring(0, str.Length - 1)
+
+        Dim f As New cStatFunctions
+        f.showReport("DETAILS", " SELECT * from Aviso where AvisoID IN (" & str & ")", True)
+
+
+
+    End Sub
+
+
+    Private Sub drawStat(p As Panel, s(,) As String) 'Handles Panel1.Paint
+    
+        Dim g As Graphics = pnlStat.CreateGraphics
+        Dim topbound = 10
+
+        
+        Dim y0 As Integer = 0
+        Dim x0 As Integer = 0
+        Dim yMax As Integer = p.Height - 50
+        Dim xMax As Integer = p.Width
+
+        Dim h As Integer = p.Height
+        Dim w As Integer = p.Width
+
+        Dim sMax As Long = getMax(s)
+
+        Dim xLeftBound As Integer = 0
+        For i = 0 To s.GetUpperBound(0) - 1
+            Try
+
+                Dim hoehe = 0
+                If sMax > 0 Then hoehe = CInt(yMax * (CLng(s(i, 1)) * 100 / sMax) / 100)
+                ' MsgBox(CStr(s(i, 0)).ToString)
+                '     g.FillRectangle(Brushes.Red, New Rectangle(x0 + xLeftBound, y0, 20, hoehe))
+                g.FillRectangle(Brushes.Red, CoordRectangle(w, h, x0 + xLeftBound, y0 + 20, 20, hoehe))
+                g.DrawString(CInt(s(i, 1)).ToString, New Font(p.Font.FontFamily, 8), Brushes.Black, CoordPoint(h, x0 + xLeftBound, 20 + hoehe + 15))
+                g.DrawString(CStr(s(i, 0)).ToString, New Font(p.Font.FontFamily, 7), Brushes.Black, CoordPoint(h, x0 + xLeftBound, 15))
+
+                xLeftBound += 30
+
+            Catch ex As Exception
+
+            End Try
+        Next
+
+    End Sub
+    Function getMax(s(,) As String) As Long
+        Dim max As Long = 0
+        For i = 0 To s.GetUpperBound(0) - 1
+            If CLng(s(i, 1)) > max Then
+                max = CLng(s(i, 1))
+            End If
+        Next
+        Return max
+    End Function
+    Function CoordRectangle(w As Integer, h As Integer, x0 As Integer, y0 As Integer, x As Integer, y As Integer) As Rectangle
+        '  MsgBox(" x0: " & x0 & " y0: " & CStr(h - y0 - y) & " x: " & x & " y: " & y)
+        Return New Rectangle(x0, h - y0 - y, x, y)
+    End Function
+    Function CoordPoint(h As Integer, x As Integer, y As Integer) As Point
+        Return New Point(x, h - y)
+    End Function
+
+    Private Sub frmStatFrima_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        initPnlStat()
+    End Sub
+
+    Private Sub Label8_Click(sender As Object, e As EventArgs) Handles lblAnzLKWs.Click
+
+    End Sub
+End Class
--- a/Aviso/Auswertung/usrctStatistik.Designer.vb
+++ b/Aviso/Auswertung/usrctStatistik.Designer.vb
@@ -0,0 +1,666 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrctStatistik
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblWartezeit = New System.Windows.Forms.Label()
+        Me.txtMin = New System.Windows.Forms.TextBox()
+        Me.txtMax = New System.Windows.Forms.TextBox()
+        Me.datStatBis = New System.Windows.Forms.DateTimePicker()
+        Me.datStatVon = New System.Windows.Forms.DateTimePicker()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtAuswJahrDauerVon = New System.Windows.Forms.TextBox()
+        Me.txtAuswJahrDauerBis = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Panel6 = New System.Windows.Forms.Panel()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.cboArt = New System.Windows.Forms.ComboBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Panel5 = New System.Windows.Forms.Panel()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.cboTag = New System.Windows.Forms.ComboBox()
+        Me.txtdatVon = New System.Windows.Forms.DateTimePicker()
+        Me.txtdatBis = New System.Windows.Forms.DateTimePicker()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.Panel8 = New System.Windows.Forms.Panel()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.cboFirma = New System.Windows.Forms.ComboBox()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.cboFirma2 = New System.Windows.Forms.ComboBox()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        Me.Panel6.SuspendLayout()
+        Me.Panel7.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(87, 74)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(137, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Durchschnitliche Wartezeit:"
+        '
+        'lblWartezeit
+        '
+        Me.lblWartezeit.AutoSize = True
+        Me.lblWartezeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblWartezeit.Location = New System.Drawing.Point(230, 74)
+        Me.lblWartezeit.Name = "lblWartezeit"
+        Me.lblWartezeit.Size = New System.Drawing.Size(11, 13)
+        Me.lblWartezeit.TabIndex = 1
+        Me.lblWartezeit.Text = "-"
+        '
+        'txtMin
+        '
+        Me.txtMin.Location = New System.Drawing.Point(125, 38)
+        Me.txtMin.Name = "txtMin"
+        Me.txtMin.Size = New System.Drawing.Size(50, 20)
+        Me.txtMin.TabIndex = 2
+        Me.txtMin.Text = "0"
+        '
+        'txtMax
+        '
+        Me.txtMax.Location = New System.Drawing.Point(197, 38)
+        Me.txtMax.Name = "txtMax"
+        Me.txtMax.Size = New System.Drawing.Size(50, 20)
+        Me.txtMax.TabIndex = 2
+        Me.txtMax.Text = "9999"
+        '
+        'datStatBis
+        '
+        Me.datStatBis.Location = New System.Drawing.Point(197, 11)
+        Me.datStatBis.Name = "datStatBis"
+        Me.datStatBis.Size = New System.Drawing.Size(105, 20)
+        Me.datStatBis.TabIndex = 7
+        '
+        'datStatVon
+        '
+        Me.datStatVon.Location = New System.Drawing.Point(70, 12)
+        Me.datStatVon.Name = "datStatVon"
+        Me.datStatVon.Size = New System.Drawing.Size(105, 20)
+        Me.datStatVon.TabIndex = 8
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 18)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(51, 13)
+        Me.Label6.TabIndex = 6
+        Me.Label6.Text = "Zeitraum:"
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(6, 69)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 11
+        Me.Button1.Text = "Berechnen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Location = New System.Drawing.Point(3, 27)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(670, 195)
+        Me.Panel1.TabIndex = 12
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(573, 173)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(94, 13)
+        Me.Label3.TabIndex = 21
+        Me.Label3.Text = "(Werte in Minuten)"
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.Button3)
+        Me.Panel2.Controls.Add(Me.Button2)
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.Label7)
+        Me.Panel2.Controls.Add(Me.txtAuswJahrDauerVon)
+        Me.Panel2.Controls.Add(Me.txtAuswJahrDauerBis)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Controls.Add(Me.Panel1)
+        Me.Panel2.Location = New System.Drawing.Point(17, 169)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(701, 228)
+        Me.Panel2.TabIndex = 13
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Location = New System.Drawing.Point(609, 3)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(64, 23)
+        Me.Button3.TabIndex = 21
+        Me.Button3.Text = "Grafik"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(528, 3)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 23)
+        Me.Button2.TabIndex = 20
+        Me.Button2.Text = "Berechnen"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(278, 8)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(116, 13)
+        Me.Label8.TabIndex = 15
+        Me.Label8.Text = "Berücksichtigte Zeiten:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(456, 8)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(10, 13)
+        Me.Label7.TabIndex = 14
+        Me.Label7.Text = "-"
+        '
+        'txtAuswJahrDauerVon
+        '
+        Me.txtAuswJahrDauerVon.Location = New System.Drawing.Point(400, 5)
+        Me.txtAuswJahrDauerVon.Name = "txtAuswJahrDauerVon"
+        Me.txtAuswJahrDauerVon.Size = New System.Drawing.Size(50, 20)
+        Me.txtAuswJahrDauerVon.TabIndex = 17
+        Me.txtAuswJahrDauerVon.Text = "0"
+        '
+        'txtAuswJahrDauerBis
+        '
+        Me.txtAuswJahrDauerBis.Location = New System.Drawing.Point(472, 5)
+        Me.txtAuswJahrDauerBis.Name = "txtAuswJahrDauerBis"
+        Me.txtAuswJahrDauerBis.Size = New System.Drawing.Size(50, 20)
+        Me.txtAuswJahrDauerBis.TabIndex = 16
+        Me.txtAuswJahrDauerBis.Text = "9999"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(3, 6)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(269, 13)
+        Me.Label2.TabIndex = 14
+        Me.Label2.Text = "Durchschnittliche Wartezeit - Jahresübersicht:"
+        '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.Label9)
+        Me.Panel3.Controls.Add(Me.Panel4)
+        Me.Panel3.Location = New System.Drawing.Point(17, 20)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(701, 143)
+        Me.Panel3.TabIndex = 14
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 8)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(232, 13)
+        Me.Label9.TabIndex = 18
+        Me.Label9.Text = "Durchschnittliche Wartezeit berechnen:"
+        '
+        'Panel4
+        '
+        Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel4.Controls.Add(Me.Label11)
+        Me.Panel4.Controls.Add(Me.Label12)
+        Me.Panel4.Controls.Add(Me.lblWartezeit)
+        Me.Panel4.Controls.Add(Me.Label10)
+        Me.Panel4.Controls.Add(Me.Label6)
+        Me.Panel4.Controls.Add(Me.Label1)
+        Me.Panel4.Controls.Add(Me.Button1)
+        Me.Panel4.Controls.Add(Me.datStatBis)
+        Me.Panel4.Controls.Add(Me.datStatVon)
+        Me.Panel4.Controls.Add(Me.txtMin)
+        Me.Panel4.Controls.Add(Me.txtMax)
+        Me.Panel4.Location = New System.Drawing.Point(3, 24)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(670, 109)
+        Me.Panel4.TabIndex = 15
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(3, 41)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(116, 13)
+        Me.Label11.TabIndex = 19
+        Me.Label11.Text = "Berücksichtigte Zeiten:"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(181, 41)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(10, 13)
+        Me.Label12.TabIndex = 18
+        Me.Label12.Text = "-"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(181, 17)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(10, 13)
+        Me.Label10.TabIndex = 18
+        Me.Label10.Text = "-"
+        '
+        'Panel6
+        '
+        Me.Panel6.Controls.Add(Me.Label17)
+        Me.Panel6.Controls.Add(Me.cboFirma)
+        Me.Panel6.Controls.Add(Me.Label15)
+        Me.Panel6.Controls.Add(Me.cboArt)
+        Me.Panel6.Controls.Add(Me.Label13)
+        Me.Panel6.Controls.Add(Me.Label4)
+        Me.Panel6.Controls.Add(Me.Button12)
+        Me.Panel6.Controls.Add(Me.Label5)
+        Me.Panel6.Controls.Add(Me.Panel5)
+        Me.Panel6.Controls.Add(Me.Button11)
+        Me.Panel6.Controls.Add(Me.cboTag)
+        Me.Panel6.Controls.Add(Me.txtdatVon)
+        Me.Panel6.Controls.Add(Me.txtdatBis)
+        Me.Panel6.Controls.Add(Me.Label14)
+        Me.Panel6.Location = New System.Drawing.Point(17, 403)
+        Me.Panel6.Name = "Panel6"
+        Me.Panel6.Size = New System.Drawing.Size(701, 237)
+        Me.Panel6.TabIndex = 21
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(351, 5)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(23, 13)
+        Me.Label15.TabIndex = 24
+        Me.Label15.Text = "Art:"
+        '
+        'cboArt
+        '
+        Me.cboArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboArt.FormattingEnabled = True
+        Me.cboArt.Items.AddRange(New Object() {"Ankunft", "Freigabe"})
+        Me.cboArt.Location = New System.Drawing.Point(423, 2)
+        Me.cboArt.Name = "cboArt"
+        Me.cboArt.Size = New System.Drawing.Size(69, 21)
+        Me.cboArt.TabIndex = 23
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(351, 30)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(66, 13)
+        Me.Label13.TabIndex = 22
+        Me.Label13.Text = "Wochentag:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(184, 30)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(10, 13)
+        Me.Label4.TabIndex = 21
+        Me.Label4.Text = "-"
+        '
+        'Button12
+        '
+        Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button12.Location = New System.Drawing.Point(588, 0)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(75, 23)
+        Me.Button12.TabIndex = 14
+        Me.Button12.Text = "Grafik"
+        Me.Button12.UseVisualStyleBackColor = True
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(6, 30)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(51, 13)
+        Me.Label5.TabIndex = 20
+        Me.Label5.Text = "Zeitraum:"
+        '
+        'Panel5
+        '
+        Me.Panel5.Location = New System.Drawing.Point(3, 53)
+        Me.Panel5.Name = "Panel5"
+        Me.Panel5.Size = New System.Drawing.Size(670, 175)
+        Me.Panel5.TabIndex = 8
+        '
+        'Button11
+        '
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button11.Location = New System.Drawing.Point(567, 25)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(96, 23)
+        Me.Button11.TabIndex = 7
+        Me.Button11.Text = "Auswertung"
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'cboTag
+        '
+        Me.cboTag.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTag.FormattingEnabled = True
+        Me.cboTag.Items.AddRange(New Object() {"So", "Mo", "Di", "Mi", "Do", "Fr", "Sa"})
+        Me.cboTag.Location = New System.Drawing.Point(423, 27)
+        Me.cboTag.Name = "cboTag"
+        Me.cboTag.Size = New System.Drawing.Size(69, 21)
+        Me.cboTag.TabIndex = 10
+        '
+        'txtdatVon
+        '
+        Me.txtdatVon.Location = New System.Drawing.Point(73, 27)
+        Me.txtdatVon.Name = "txtdatVon"
+        Me.txtdatVon.Size = New System.Drawing.Size(105, 20)
+        Me.txtdatVon.TabIndex = 11
+        '
+        'txtdatBis
+        '
+        Me.txtdatBis.Location = New System.Drawing.Point(200, 27)
+        Me.txtdatBis.Name = "txtdatBis"
+        Me.txtdatBis.Size = New System.Drawing.Size(105, 20)
+        Me.txtdatBis.TabIndex = 12
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label14.Location = New System.Drawing.Point(3, 6)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(176, 13)
+        Me.Label14.TabIndex = 14
+        Me.Label14.Text = "Tages- / Stundenauswertung:"
+        '
+        'Panel7
+        '
+        Me.Panel7.Controls.Add(Me.Label21)
+        Me.Panel7.Controls.Add(Me.Label16)
+        Me.Panel7.Controls.Add(Me.cboFirma2)
+        Me.Panel7.Controls.Add(Me.ComboBox1)
+        Me.Panel7.Controls.Add(Me.Label18)
+        Me.Panel7.Controls.Add(Me.Button4)
+        Me.Panel7.Controls.Add(Me.Label19)
+        Me.Panel7.Controls.Add(Me.Panel8)
+        Me.Panel7.Controls.Add(Me.Button5)
+        Me.Panel7.Controls.Add(Me.DateTimePicker1)
+        Me.Panel7.Controls.Add(Me.DateTimePicker2)
+        Me.Panel7.Controls.Add(Me.Label20)
+        Me.Panel7.Location = New System.Drawing.Point(17, 646)
+        Me.Panel7.Name = "Panel7"
+        Me.Panel7.Size = New System.Drawing.Size(701, 237)
+        Me.Panel7.TabIndex = 25
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(351, 5)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(23, 13)
+        Me.Label16.TabIndex = 24
+        Me.Label16.Text = "Art:"
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Items.AddRange(New Object() {"Ankunft", "Freigabe"})
+        Me.ComboBox1.Location = New System.Drawing.Point(423, 2)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(69, 21)
+        Me.ComboBox1.TabIndex = 23
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(184, 30)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(10, 13)
+        Me.Label18.TabIndex = 21
+        Me.Label18.Text = "-"
+        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Location = New System.Drawing.Point(588, 0)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(75, 23)
+        Me.Button4.TabIndex = 14
+        Me.Button4.Text = "Grafik"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Location = New System.Drawing.Point(6, 30)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(51, 13)
+        Me.Label19.TabIndex = 20
+        Me.Label19.Text = "Zeitraum:"
+        '
+        'Panel8
+        '
+        Me.Panel8.Location = New System.Drawing.Point(3, 53)
+        Me.Panel8.Name = "Panel8"
+        Me.Panel8.Size = New System.Drawing.Size(670, 175)
+        Me.Panel8.TabIndex = 8
+        '
+        'Button5
+        '
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.Location = New System.Drawing.Point(567, 25)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(96, 23)
+        Me.Button5.TabIndex = 7
+        Me.Button5.Text = "Auswertung"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Location = New System.Drawing.Point(73, 27)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(105, 20)
+        Me.DateTimePicker1.TabIndex = 11
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.Location = New System.Drawing.Point(200, 27)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(105, 20)
+        Me.DateTimePicker2.TabIndex = 12
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label20.Location = New System.Drawing.Point(3, 6)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(111, 13)
+        Me.Label20.TabIndex = 14
+        Me.Label20.Text = "Tagesauswertung:"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(197, 5)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(35, 13)
+        Me.Label17.TabIndex = 26
+        Me.Label17.Text = "Firma:"
+        '
+        'cboFirma
+        '
+        Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX"})
+        Me.cboFirma.Location = New System.Drawing.Point(236, 2)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(69, 21)
+        Me.cboFirma.TabIndex = 25
+        '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.Location = New System.Drawing.Point(197, 5)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(35, 13)
+        Me.Label21.TabIndex = 28
+        Me.Label21.Text = "Firma:"
+        '
+        'cboFirma2
+        '
+        Me.cboFirma2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboFirma2.FormattingEnabled = True
+        Me.cboFirma2.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX"})
+        Me.cboFirma2.Location = New System.Drawing.Point(236, 2)
+        Me.cboFirma2.Name = "cboFirma2"
+        Me.cboFirma2.Size = New System.Drawing.Size(69, 21)
+        Me.cboFirma2.TabIndex = 27
+        '
+        'usrctStatistik
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.Panel7)
+        Me.Controls.Add(Me.Panel6)
+        Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel2)
+        Me.Name = "usrctStatistik"
+        Me.Size = New System.Drawing.Size(742, 959)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.Panel4.ResumeLayout(False)
+        Me.Panel4.PerformLayout()
+        Me.Panel6.ResumeLayout(False)
+        Me.Panel6.PerformLayout()
+        Me.Panel7.ResumeLayout(False)
+        Me.Panel7.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents lblWartezeit As System.Windows.Forms.Label
+    Friend WithEvents txtMin As System.Windows.Forms.TextBox
+    Friend WithEvents txtMax As System.Windows.Forms.TextBox
+    Friend WithEvents datStatBis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents datStatVon As System.Windows.Forms.DateTimePicker
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents txtAuswJahrDauerVon As System.Windows.Forms.TextBox
+    Friend WithEvents txtAuswJahrDauerBis As System.Windows.Forms.TextBox
+    Friend WithEvents Panel3 As System.Windows.Forms.Panel
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Panel4 As System.Windows.Forms.Panel
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Panel6 As System.Windows.Forms.Panel
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Button12 As System.Windows.Forms.Button
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Panel5 As System.Windows.Forms.Panel
+    Friend WithEvents Button11 As System.Windows.Forms.Button
+    Friend WithEvents cboTag As System.Windows.Forms.ComboBox
+    Friend WithEvents txtdatVon As System.Windows.Forms.DateTimePicker
+    Friend WithEvents txtdatBis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents Label15 As System.Windows.Forms.Label
+    Friend WithEvents cboArt As System.Windows.Forms.ComboBox
+    Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents Panel7 As System.Windows.Forms.Panel
+    Friend WithEvents Label16 As System.Windows.Forms.Label
+    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
+    Friend WithEvents Label18 As System.Windows.Forms.Label
+    Friend WithEvents Button4 As System.Windows.Forms.Button
+    Friend WithEvents Label19 As System.Windows.Forms.Label
+    Friend WithEvents Panel8 As System.Windows.Forms.Panel
+    Friend WithEvents Button5 As System.Windows.Forms.Button
+    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
+    Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
+    Friend WithEvents Label20 As System.Windows.Forms.Label
+    Friend WithEvents Label17 As Label
+    Friend WithEvents cboFirma As ComboBox
+    Friend WithEvents Label21 As Label
+    Friend WithEvents cboFirma2 As ComboBox
+End Class
--- a/Aviso/Auswertung/usrctStatistik.resx
+++ b/Aviso/Auswertung/usrctStatistik.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>
--- a/Aviso/Auswertung/usrctStatistik.vb
+++ b/Aviso/Auswertung/usrctStatistik.vb
@@ -0,0 +1,262 @@
+Imports Gemeinsames
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrctStatistik
+    Dim SQL As New Statistik
+
+    Dim cProgramFunctions As New cProgramFunctions
+    Dim year As Integer = Now.Year
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        lblWartezeit.Text = CStr(SQL.getAVG(CDate(datStatVon.Value.ToShortDateString), CDate(datStatBis.Value.ToShortDateString), txtMin.Text, txtMax.Text)) & " min"
+    End Sub
+
+    Private Sub usrctStatistik_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        datStatVon.Format = DateTimePickerFormat.Short
+        datStatBis.Format = DateTimePickerFormat.Short
+        ' Button2.PerformClick()
+        cboArt.SelectedIndex = 0
+    End Sub
+
+    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
+        Dim g As Graphics = e.Graphics
+        g.Clear(Color.FromArgb(245, 245, 245))
+        Dim p As Panel = DirectCast(sender, Panel)
+        'Jahre:
+        Dim topbound = 10
+        For i = 2013 To Now.Year
+            Dim b As New Button
+            b.Left = p.Width - 100
+            b.Width = 90
+            b.Top = topbound
+            topbound += 25
+            b.Text = CStr(i)
+            p.Controls.Add(b)
+            b.FlatStyle = FlatStyle.Flat
+            AddHandler b.Click, AddressOf changeYear
+        Next
+
+        '  End Sub
+        '
+        '  Private Sub initJahresDurchschnitt(sender As Object, e As PaintEventArgs)
+        'Dim g As Graphics = e.Graphics
+        ' g.Clear(Color.FromArgb(230, 230, 230))
+        ' Dim p As Panel = DirectCast(sender, Panel)
+
+
+        Dim y0 As Integer = 0
+        Dim x0 As Integer = 0
+        Dim yMax As Integer = p.Height - 50
+        Dim xMax As Integer = p.Width
+
+        Dim h As Integer = p.Height
+        Dim w As Integer = p.Width
+
+        'Koordinatensystem von links unten:
+        ' e.Graphics.ScaleTransform(1.0F, -1.0F)
+        ' e.Graphics.TranslateTransform(0, -p.ClientRectangle.Height)
+
+        ' g.FillRectangle(Brushes.Red, CoordRectangle(w, h, 50, 50, 10, 10))
+        'Dim s(10, 2) As String
+        'Dim s As String()()
+        Dim s(12, 2) As String
+
+        For i = 0 To 11
+            Dim d As New Date(year, i + 1, 1)
+            s(i, 0) = d.ToString("MMM")
+            s(i, 1) = CStr(SQL.getAVG(d, d.AddMonths(1).AddDays(-1), txtAuswJahrDauerVon.Text, txtAuswJahrDauerBis.Text))
+            ' MsgBox(s(i, 0) & " - " & s(i, 1))
+        Next
+        Dim sMax As Long = getMax(s)
+
+        Dim xLeftBound As Integer = 0
+        For i = 0 To s.GetUpperBound(0) - 1
+            Dim hoehe = 0
+            If sMax > 0 Then hoehe = CInt(yMax * (CLng(s(i, 1)) * 100 / sMax) / 100)
+            '  MsgBox(hoehe)
+            '     g.FillRectangle(Brushes.Red, New Rectangle(x0 + xLeftBound, y0, 20, hoehe))
+            g.FillRectangle(Brushes.Red, CoordRectangle(w, h, x0 + xLeftBound, y0 + 20, 20, hoehe))
+            g.DrawString(CInt(s(i, 1)).ToString, p.Font, Brushes.Black, CoordPoint(h, x0 + xLeftBound, 20 + hoehe + 15))
+            g.DrawString(CStr(s(i, 0)).ToString, p.Font, Brushes.Black, CoordPoint(h, x0 + xLeftBound, 15))
+            xLeftBound += 30
+        Next
+
+    End Sub
+    
+
+    Sub changeYear(sender As Object, e As EventArgs)
+        year = CInt(DirectCast(sender, Button).Text)
+        Panel1_Paint(Panel1, New PaintEventArgs(Panel1.CreateGraphics, Panel1.ClientRectangle))
+    End Sub
+    Function CoordRectangle(w As Integer, h As Integer, x0 As Integer, y0 As Integer, x As Integer, y As Integer) As Rectangle
+        '  MsgBox(" x0: " & x0 & " y0: " & CStr(h - y0 - y) & " x: " & x & " y: " & y)
+        Return New Rectangle(x0, h - y0 - y, x, y)
+    End Function
+    Function CoordPoint(h As Integer, x As Integer, y As Integer) As Point
+        Return New Point(x, h - y)
+    End Function
+
+    Private Sub txtAuswJahrDauer_TextChanged(sender As Object, e As EventArgs)
+        Panel1_Paint(Panel1, New PaintEventArgs(Panel1.CreateGraphics, Panel1.ClientRectangle))
+    End Sub
+
+
+
+    Private Sub AuswertungWoToag(sender As Object, e As EventArgs) Handles Button11.Click, cboTag.SelectedIndexChanged
+        Dim s(17, 2) As String
+        Dim t As String = Button11.Text
+        Dim datVon As Date = CDate(txtdatVon.Value)
+        Dim datBis As Date = CDate(txtdatBis.Value)
+
+        Dim TESTgesLKWs = 0
+        Dim TESTgesLKWs2 = 0
+        Dim SQLstat As New StatDB
+        Dim c As Integer = 0
+
+        Dim art = ""
+        If cboArt.SelectedIndex = 0 Then art = "Ankunft"
+        If cboArt.SelectedIndex = 1 Then art = "Freigabe"
+
+        For i = 6 To 22
+            Dim cnt As Integer = 0
+            Dim gesLKWs As Integer = 0
+
+            Dim datTmp As Date = datVon
+            While datTmp <= datBis
+                If datTmp.DayOfWeek = cboTag.SelectedIndex Then
+                    gesLKWs += SQLstat.getAnzahlLkwAnkunft(art, datTmp, i, cboFirma.Text)
+                    cnt += 1
+                End If
+                datTmp = datTmp.AddDays(1)
+            End While
+
+            s(c, 0) = i & ":00"
+            If gesLKWs > 0 And cnt > 0 Then
+                s(c, 1) = CStr(CInt(gesLKWs / cnt))
+            Else
+                s(c, 1) = CStr(0)
+            End If
+            c += 1
+        Next
+        StatAuswertungWoToag(s)
+        Button11.Text = t
+    End Sub
+
+
+    Private Sub StatAuswertungWoToag(s(,) As String) 'Handles Panel1.Paint
+        Dim g As Graphics = Panel5.CreateGraphics
+        g.Clear(Color.FromArgb(245, 245, 245))
+        Dim p As Panel = Panel5
+        'Jahre:
+        Dim topbound = 10
+
+
+
+
+        Dim y0 As Integer = 0
+        Dim x0 As Integer = 0
+        Dim yMax As Integer = p.Height - 50
+        Dim xMax As Integer = p.Width
+
+        Dim h As Integer = p.Height
+        Dim w As Integer = p.Width
+
+
+
+        ' MsgBox(s(i, 0) & " - " & s(i, 1))
+
+        Dim sMax As Long = getMax(s)
+
+        Dim xLeftBound As Integer = 0
+        For i = 0 To s.GetUpperBound(0) - 1
+            Dim hoehe = 0
+            If sMax > 0 Then hoehe = CInt(yMax * (CLng(s(i, 1)) * 100 / sMax) / 100)
+            ' MsgBox(hoehe)
+            '     g.FillRectangle(Brushes.Red, New Rectangle(x0 + xLeftBound, y0, 20, hoehe))
+            g.FillRectangle(Brushes.Red, CoordRectangle(w, h, x0 + xLeftBound, y0 + 20, 20, hoehe))
+            g.DrawString(CInt(s(i, 1)).ToString, p.Font, Brushes.Black, CoordPoint(h, x0 + xLeftBound, 20 + hoehe + 15))
+            g.DrawString(CStr(s(i, 0)).ToString, p.Font, Brushes.Black, CoordPoint(h, x0 + xLeftBound, 15))
+            xLeftBound += 30
+        Next
+
+    End Sub
+    Function getMax(s(,) As String) As Long
+        Dim max As Long = 0
+        For i = 0 To s.GetUpperBound(0) - 1
+            If CLng(s(i, 1)) > max Then
+                max = CLng(s(i, 1))
+            End If
+        Next
+        Return max
+    End Function
+
+
+
+
+
+    Private Sub AuswertungWoToag2(sender As Object, e As EventArgs) Handles Button5.Click ', cboTag.SelectedIndexChanged
+        Exit Sub
+        Dim s(17, 2) As String
+        Dim t As String = Button5.Text
+        Dim datVon As Date = CDate(txtdatVon.Value)
+        Dim datBis As Date = CDate(txtdatBis.Value)
+
+        Dim TESTgesLKWs = 0
+        Dim TESTgesLKWs2 = 0
+        Dim SQLstat As New StatDB
+        Dim c As Integer = 0
+
+        Dim art = ""
+        If cboArt.SelectedIndex = 0 Then art = "Ankunft"
+        If cboArt.SelectedIndex = 1 Then art = "Freigabe"
+        If cboArt.SelectedIndex = 1 Then art = "Erfasst" 'asdasdasd
+
+        For i = 0 To 6
+            Dim cnt As Integer = 0
+            Dim gesLKWs As Integer = 0
+
+            Dim datTmp As Date = datVon
+            While datTmp <= datBis
+                If datTmp.DayOfWeek = cboTag.SelectedIndex Then
+                    gesLKWs += SQLstat.getAnzahlLkwAnkunft(art, datTmp, i, cboFirma2.Text)
+                    cnt += 1
+                End If
+                datTmp = datTmp.AddDays(1)
+            End While
+
+            s(c, 0) = i & ":00"
+            If gesLKWs > 0 And cnt > 0 Then
+                s(c, 1) = CStr(CInt(gesLKWs / cnt))
+            Else
+                s(c, 1) = CStr(0)
+            End If
+            c += 1
+        Next
+        StatAuswertungWoToag(s)
+        Button5.Text = t
+    End Sub
+  
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
+
+        Dim i As Image = cProgramFunctions.TakeScreenShot(Panel5)
+        If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\") Then
+            My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\")
+        End If
+
+        Dim s As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\Stat_" & cboTag.Text & "_" & txtdatVon.Value.ToShortDateString & "_" & txtdatBis.Value.ToShortDateString & " .png"
+        i.Save(s, Drawing.Imaging.ImageFormat.Png)
+
+    End Sub
+
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+        Dim i As Image = cProgramFunctions.TakeScreenShot(Panel1)
+        If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\") Then
+            My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\")
+        End If
+
+        Dim s As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\Stat_" & cboTag.Text & "_" & txtdatVon.Value.ToShortDateString & "_" & txtdatBis.Value.ToShortDateString & " .png"
+        i.Save(s, Drawing.Imaging.ImageFormat.Png)
+
+    End Sub
+End Class
--- a/Aviso/Auswertung/usrctlAuswertung.Designer.vb
+++ b/Aviso/Auswertung/usrctlAuswertung.Designer.vb
--- a/Aviso/Auswertung/usrctlAuswertung.resx
+++ b/Aviso/Auswertung/usrctlAuswertung.resx
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>
--- a/Aviso/Auswertung/usrctlAuswertung.vb
+++ b/Aviso/Auswertung/usrctlAuswertung.vb
@@ -0,0 +1,451 @@
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
+
+
+Public Class usrctlAuswertung
+    Dim SQL As New Statistik
+    Dim grid_Aktiv As Boolean = False
+    Dim Firmen As New cFirmenDAL
+    Dim Auswahl_Standort As String = ""
+
+    Private Sub usrctlStatistik_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtCntVon.Text = "5"
+        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
+        initFilter()
+        initStat()
+        grid_Aktiv = True
+        showFirmen()
+    End Sub
+
+    Sub initStat()
+        datStatVon.Format = DateTimePickerFormat.Short
+        datStatBis.Format = DateTimePickerFormat.Short
+        cboSrchAuftrFraecht.SelectedIndex = 0
+    End Sub
+    Sub initFilter()
+        'AuswahlCombos mit Daten befüllen
+        cboFirma.DataSource = Firmen.Anzeigen_cboFirmen("")
+        cboFirma.DisplayMember = "Firma"
+        cboFirma.ValueMember = "FirmaID"
+
+        'Vorschlagswerte setzen
+        optKunde.Checked = True
+        optAlle.Checked = True
+        ' optAnkunft.Checked = frmMain.optAnkunft.Checked
+        ' optErfasst.Checked = frmMain.optErfasst.Checked
+        ' optFreigegeben.Checked = frmMain.optFreigegeben.Checked
+        ' optNichtEingetroffen.Checked = frmMain.optNichtEingetroffen.Checked
+
+        dtpAvisoVon.Value = frmHauptfenster.dtpVon.Value
+        dtpAvisoBis.Value = frmHauptfenster.dtpBis.Value
+        dtpAnkunftVon.Value = frmHauptfenster.dtpVon.Value
+        dtpAnkunftBis.Value = frmHauptfenster.dtpBis.Value
+        dtpFreigabeVon.Value = frmHauptfenster.dtpVon.Value
+        dtpFreigabeBis.Value = frmHauptfenster.dtpBis.Value
+        txtMonat.Text = Now.Month.ToString
+        txtJahr.Text = Now.Year.ToString
+        optDatumAviso.Checked = True
+
+        Select Case frmHauptfenster.lblGrenzstelle.Text
+            Case "SUB" : optSUB.Checked = True
+            Case "SBG" : optSBG.Checked = True
+            Case "NKD" : optNKD.Checked = True
+            Case "WAI" : optWAI.Checked = True
+            Case Else : optStandortAlle.Checked = True
+        End Select
+
+        cboFirma.Text = ""
+        optFirmaBeides.Checked = True
+
+        txtStdVon.Text = "0"
+        txtStdBis.Text = "10"
+
+        ' If cGlobal.AktiverMitarbeiter.Sicherheitsstufe > 0 Then
+        'optIntern.Visible = False
+        ' End If
+
+    End Sub
+    Sub showFirmen()
+        If grid_Aktiv Then
+
+            Dim srch As String = cboSrchAuftrFraecht.Text.Replace("Avisierer", "Auftraggeber")
+            Dim sqlstr As String = "select COUNT(" & srch & ")as cnt, " & srch & ", AVG(Dauer)as av, MIN(Dauer)as minimum,max(Dauer)as maximum from Aviso   "
+
+            'WHERE
+            Dim where As String = ""
+            Dim where_and As String = ""
+            If txtSearch.Text.Trim <> "" Then where = " " & srch & " LIKE '%" & txtSearch.Text & "%' " : where_and = " AND "
+            If cbxStatVon.Checked Then where &= where_and & " Datum >= '" & datStatVon.Value.ToShortDateString & "' " : where_and = " AND "
+            If cbxStatBis.Checked Then where &= where_and & " Datum <= '" & datStatBis.Value.ToShortDateString & "' " : where_and = " AND "
+
+            If IsNumeric(txtDauerVon.Text) And txtDauerVon.Text.Trim <> "" Then where &= where_and & " Dauer >= '" & txtDauerVon.Text & "' " : where_and = " AND "
+            If IsNumeric(txtDauerBis.Text) And txtDauerBis.Text.Trim <> "" Then where &= where_and & " Dauer <= '" & txtDauerBis.Text & "' " : where_and = " AND "
+
+
+            If where <> "" Then sqlstr &= "WHERE  Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND  ( " & where & " ) "
+            sqlstr &= " GROUP BY " & srch & " "
+            Dim having As String = ""
+            Dim having_and As String = ""
+            If txtCntVon.Text <> "" Then having = " COUNT(" & srch & ") >= " & txtCntVon.Text & " " : having_and = " AND "
+            If txtCntBis.Text <> "" Then having &= having_and & " COUNT(" & srch & ") <= " & txtCntBis.Text & " "
+            If having <> "" Then sqlstr &= " HAVING " & having
+            sqlstr &= " ORDER BY AV DESC "
+
+            DataGridView1.DataSource = SQL.getKunden(sqlstr)
+            setColumnsFirmen()
+        End If
+    End Sub
+
+    Sub setColumnsFirmen()
+        With DataGridView1
+            .RowTemplate.Height = 20
+            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+            .AllowUserToAddRows = False
+            .AllowUserToDeleteRows = False
+            .AllowUserToOrderColumns = False
+            .AllowUserToResizeColumns = True
+            .AllowUserToResizeRows = False
+            '.RowTemplate.ReadOnly = True
+            .RowHeadersVisible = False
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .MultiSelect = False
+            .ReadOnly = True
+
+            .Columns(0).Width = 70
+            .Columns(0).HeaderText = "Frequenz"
+
+            .Columns(1).Width = 300
+
+            .Columns(2).Width = 150
+            .Columns(2).HeaderText = "Durchschnittliche Wartezeit (min)"
+
+            .Columns(3).Width = 150
+            .Columns(3).HeaderText = "Schnellste Abfertigung (min)"
+
+            .Columns(4).Width = 150
+            .Columns(4).HeaderText = "Langsamste Abfertigung (min)"
+
+        End With
+    End Sub
+
+    Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged, txtCntVon.TextChanged, txtCntBis.TextChanged, txtDauerVon.TextChanged, txtDauerBis.TextChanged
+        showFirmen()
+    End Sub
+
+
+
+
+
+
+
+
+    Private Sub frmAuswahl_Aviso_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)
+        'Escape händisch abfangen und auf Abbruch-Taste legen
+        If e.KeyCode = Keys.Escape Then
+            btnAbbruch.PerformClick()
+        End If
+    End Sub
+
+
+    Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
+        'Fenster schließen
+        'Me.Close()
+    End Sub
+
+    Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtMitarbeiter.GotFocus, txtLKW_Nr.GotFocus, txtFrächter.GotFocus, txtAuftraggeber.GotFocus, txtMonat.GotFocus, txtJahr.GotFocus
+        CType(sender, TextBox).SelectAll()
+    End Sub
+
+    Private Sub txtZahl_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtStdVon.KeyPress, txtStdBis.KeyPress, txtMonat.KeyPress, txtJahr.KeyPress
+        'Es sind nur Zahleneingaben erlaubt
+        Dim asc As Integer = Convert.ToInt32(e.KeyChar)
+        Select Case asc
+            'Folgende Tasten sind erlaubt
+            '8 = Rücktaste (Back)
+            '13 = Enter
+            '27 = Esc
+            '48 To 57 = 0 bis 9
+            Case 8, 13, 27, 48 To 57
+            Case Else
+                e.Handled = True
+        End Select
+    End Sub
+
+    Private Sub btnDruck_Click(sender As System.Object, e As System.EventArgs) Handles btnDruck.Click
+
+        'Logische Prüfungen vor dem Drucken
+        If optDatumAnkunft.Checked Then
+            If dtpAnkunftBis.Value.Date < dtpAnkunftVon.Value.Date Then
+                MsgBox("Ankunft-Bis-Datum darf nicht kleiner sein als Von-Datum.", vbInformation)
+                dtpAnkunftVon.Focus()
+                Exit Sub
+            End If
+        End If
+
+        If optDatumAviso.Checked Then
+            If dtpAvisoBis.Value.Date < dtpAvisoVon.Value.Date Then
+                MsgBox("Aviso-Eingang-Bis-Datum darf nicht kleiner sein als Von-Datum.", vbInformation)
+                dtpAvisoVon.Focus()
+                Exit Sub
+            End If
+        End If
+
+        If optDatumFreigabe.Checked Then
+            If dtpFreigabeBis.Value.Date < dtpFreigabeVon.Value.Date Then
+                MsgBox("Freigabe-Bis-Datum darf nicht kleiner sein als Von-Datum.", vbInformation)
+                dtpFreigabeVon.Focus()
+                Exit Sub
+            End If
+        End If
+
+        If optMonatJahr.Checked Then
+            Dim Monat As Integer = VarToInt(txtMonat.Text.Trim)
+            If Monat < 1 Or Monat > 12 Then
+                MsgBox("Monat muss zwischen 1 und 12 liegen.", vbInformation)
+                txtMonat.Focus()
+                Exit Sub
+            End If
+            Dim Jahr As Integer = VarToInt(txtJahr.Text.Trim)
+            If Jahr < 2014 Or Jahr > Now.Year Then
+                MsgBox("Jahr muss zwischen 2014 und " & Now.Year.ToString & " liegen.", vbInformation)
+                txtJahr.Focus()
+                Exit Sub
+            End If
+        End If
+
+        If optFreigegeben.Checked Then
+            If VarToInt(txtStdVon.Text) > VarToInt(txtStdBis.Text) Then
+                MsgBox("Dauer-Bis darf nicht kleiner sein als Dauer-Von.", vbInformation)
+                txtStdVon.Focus()
+                Exit Sub
+            End If
+        End If
+
+        'alles OK --> Report starten
+        ActiveReportAnzeigen()
+
+    End Sub
+
+
+    Private Sub ActiveReportAnzeigen()
+
+        'Zusammenbau der SQL-Abfrage und der Auswahlinfo für den Druck
+        Dim hSQL As String = "SELECT * FROM Aviso WHERE  Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND "
+        Dim hAuswahl As String = "Auswahl: "
+
+
+        If optDatumAnkunft.Checked Then
+            hSQL += "Ankunft >= " & SQLDatum(dtpAnkunftVon.Value.Date) & " AND Ankunft <= " & SQLDatum(dtpAnkunftBis.Value.Date.AddDays(1))
+            hAuswahl += "Ankunftsdatum von " & Format(dtpAnkunftVon.Value, "dd.MM.yyyy") & " bis " & Format(dtpAnkunftBis.Value, "dd.MM.yyyy") & "; "
+        ElseIf optDatumFreigabe.Checked Then
+            hSQL += "Freigabe >= " & SQLDatum(dtpFreigabeVon.Value.Date) & " AND Freigabe <= " & SQLDatum(dtpFreigabeBis.Value.Date.AddDays(1))
+            hAuswahl += "Freigabedatum von " & Format(dtpFreigabeVon.Value, "dd.MM.yyyy") & " bis " & Format(dtpFreigabeBis.Value, "dd.MM.yyyy") & "; "
+        ElseIf optDatumAviso.Checked Then
+            hSQL += "Datum >= " & SQLDatum(dtpAvisoVon.Value.Date) & " AND Datum <= " & SQLDatum(dtpAvisoBis.Value.Date.AddDays(1))
+            hAuswahl += "Aviso-Eingang von " & Format(dtpAvisoVon.Value, "dd.MM.yyyy") & " bis " & Format(dtpAvisoBis.Value, "dd.MM.yyyy") & "; "
+        Else
+            hAuswahl += "Monat: " & txtMonat.Text & "/" & txtJahr.Text
+            Dim hVon As Date = DateSerial(VarToInt(txtJahr.Text), VarToInt(txtMonat.Text), 1)
+            Dim hBis As Date = hVon.AddMonths(1)
+
+            hSQL += "((Datum >= " & SQLDatum(hVon) & " AND Datum <= " & SQLDatum(hBis) & ") OR " &
+                    "(Ankunft >= " & SQLDatum(hVon) & " AND Ankunft <= " & SQLDatum(hBis) & ") OR " &
+                    "(Freigabe >= " & SQLDatum(hVon) & " AND Freigabe <= " & SQLDatum(hBis) & ")) "
+        End If
+
+        If optAlle.Checked Then
+            hAuswahl += "Status=alle; "
+        ElseIf optErfasst.Checked Then
+            hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst.ToString
+            hAuswahl += "Status=erfasst; "
+        ElseIf optNichtEingetroffen.Checked Then
+            hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen.ToString
+            hAuswahl += "Status=LKW n.e.; "
+        ElseIf optAnkunft.Checked Then
+            hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft.ToString
+            hAuswahl += "Status=Ankunft; "
+        ElseIf optFreigegeben.Checked Then
+            hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben.ToString
+            hAuswahl += "Status=freigegeben; "
+        End If
+
+        If optSUB.Checked Then
+            hAuswahl += "Standort=Suben; "
+            Auswahl_Standort = "SUB"
+        ElseIf optSBG.Checked Then
+            hAuswahl += "Standort=Salzburg; "
+            Auswahl_Standort = "SBG"
+        ElseIf optNKD.Checked Then
+            hAuswahl += "Standort=Nickelsdorf; "
+            Auswahl_Standort = "NKD"
+        ElseIf optWAI.Checked Then
+            hAuswahl += "Standort=Waidhaus; "
+            Auswahl_Standort = "WAI"
+        Else
+            hAuswahl += "Standort=Alle; "
+            Auswahl_Standort = ""
+        End If
+
+        If Auswahl_Standort <> "" Then hSQL += " AND Grenzstelle = '" & Auswahl_Standort & "' "
+
+        If cboFirma.Text <> "" Then
+            hAuswahl = "Firma " & cboFirma.Text
+            If optFirmaBeides.Checked Then
+                hAuswahl = " (Frächter+Auftraggeber); "
+                hSQL += " AND (Frächter = '" & cboFirma.Text & "' OR Auftraggeber = '" & cboFirma.Text & "')"
+            ElseIf optFrächter.Checked Then
+                hAuswahl = " (Frächter); "
+                hSQL += " AND Frächter = '" & cboFirma.Text & "'"
+            ElseIf optAuftraggeber.Checked Then
+                hAuswahl = " (Auftraggeber); "
+                hSQL += " AND Auftraggeber = '" & cboFirma.Text & "'"
+            End If
+        End If
+
+        Dim hStern As String = ""
+        If txtLKW_Nr.Text.Trim <> "" Then
+            hStern += "LKW_Nr LIKE '%" & txtLKW_Nr.Text.Trim & "%'"
+            hAuswahl += "LKW-Nr=*" & txtLKW_Nr.Text.Trim & "*; "
+        End If
+        If txtFrächter.Text.Trim <> "" Then
+            If hStern <> "" Then hStern += " OR "
+            hStern += "Frächter LIKE '%" & txtFrächter.Text.Trim & "%'"
+            hAuswahl += "Frächter=*" & txtFrächter.Text.Trim & "*; "
+        End If
+        If txtAuftraggeber.Text.Trim <> "" Then
+            If hStern <> "" Then hStern += " OR "
+            hStern += "Auftraggeber LIKE '%" & txtAuftraggeber.Text.Trim & "%'"
+            hAuswahl += "Auftraggeber=*" & txtAuftraggeber.Text.Trim & "*; "
+        End If
+        If txtMitarbeiter.Text.Trim <> "" Then
+            If hStern <> "" Then hStern += " OR "
+            hStern += "LetzterMitarbeiter LIKE '%" & txtMitarbeiter.Text.Trim & "%'"
+            hAuswahl += "Mitarbeiter=*" & txtMitarbeiter.Text.Trim & "*; "
+        End If
+        If hStern <> "" Then
+            hStern = "(" & hStern & ")"
+            hSQL += " AND " & hStern
+        End If
+
+        If optFreigegeben.Checked Then
+            'bei Freigabe auch die Dauer mitprüfen
+            hSQL += " AND Dauer >= " & (VarToInt(txtStdVon.Text) * 60).ToString & " AND Dauer <= " & (VarToInt(txtStdBis.Text) * 60)
+            hAuswahl += "Dauer: " & txtStdVon.Text.Trim & " - " & txtStdBis.Text.Trim & " Std."
+        End If
+
+        'jetzt die Sortierung festlegen
+        If optAnkunft.Checked Then
+            hSQL += " ORDER BY Ankunft"
+        ElseIf optFreigegeben.Checked Then
+            hSQL += " ORDER BY Freigabe"
+        Else
+            hSQL += " ORDER BY Datum"
+        End If
+
+        ''nachsehen, ob Frächter speziell ausgewählt wurde
+        'Dim hFrächter As String = ""
+        'If txtFrächter.Text.Trim <> "" Then
+        '  If txtFrächter.Text.Contains("*") Then
+        '    hFrächter = ""
+        '  Else
+        '    hFrächter = txtFrächter.Text.Trim
+        '  End If
+        'End If
+        'If hFrächter = "" Then
+        '  If txtAuftraggeber.Text.Trim <> "" Then
+        '    If txtAuftraggeber.Text.Contains("*") Then
+        '      hFrächter = ""
+        '    Else
+        '      hFrächter = txtAuftraggeber.Text.Trim
+        '    End If
+        '  End If
+        'End If
+        Dim f As New cStatFunctions
+        f.showReport(hAuswahl, hSQL, optIntern.Checked, cboFirma.Text, Auswahl_Standort)
+
+    End Sub
+
+
+
+    Private Sub btnDatum_Click(sender As System.Object, e As System.EventArgs) Handles btnLfdMonat.Click, btnLfdJahr.Click, btnVormonat.Click
+
+        Dim Monatsanfang As Date = DateSerial(Now.Year, Now.Month, 1)
+
+        If sender Is btnLfdMonat Then
+            'laufenden Monat überall vorschlagen
+            dtpAvisoVon.Value = Monatsanfang
+            dtpAvisoBis.Value = Now.Date
+            dtpAnkunftVon.Value = Monatsanfang
+            dtpAnkunftBis.Value = Now.Date
+            dtpFreigabeVon.Value = Monatsanfang
+            dtpFreigabeBis.Value = Now.Date
+            txtMonat.Text = Now.Month.ToString
+            txtJahr.Text = Now.Year.ToString
+        End If
+
+        If sender Is btnVormonat Then
+            'Vormonat überall vorschlagen
+            dtpAvisoVon.Value = Monatsanfang.AddMonths(-1)
+            dtpAvisoBis.Value = Monatsanfang.AddDays(-1)
+            dtpAnkunftVon.Value = Monatsanfang.AddMonths(-1)
+            dtpAnkunftBis.Value = Monatsanfang.AddDays(-1)
+            dtpFreigabeVon.Value = Monatsanfang.AddMonths(-1)
+            dtpFreigabeBis.Value = Monatsanfang.AddDays(-1)
+            txtMonat.Text = dtpAvisoVon.Value.Month.ToString
+            txtJahr.Text = dtpAvisoVon.Value.Year.ToString
+        End If
+
+        If sender Is btnLfdJahr Then
+            'Vormonat überall vorschlagen
+            dtpAvisoVon.Value = DateSerial(Now.Year, 1, 1)
+            dtpAvisoBis.Value = Now.Date
+            dtpAnkunftVon.Value = DateSerial(Now.Year, 1, 1)
+            dtpAnkunftBis.Value = Now.Date
+            dtpFreigabeVon.Value = DateSerial(Now.Year, 1, 1)
+            dtpFreigabeBis.Value = Now.Date
+            txtMonat.Text = dtpAvisoVon.Value.Month.ToString
+            txtJahr.Text = dtpAvisoVon.Value.Year.ToString
+        End If
+
+    End Sub
+
+    Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
+        If e.RowIndex >= 0 Then
+            frmStatFrima.auftrFraecht = CStr(DataGridView1.CurrentRow.Cells(1).Value)
+            frmStatFrima.srch = cboSrchAuftrFraecht.Text.Replace("Avisierer", "Auftraggeber")
+            If cbxStatVon.Checked Then frmStatFrima.StatVon = datStatVon.Value.ToShortDateString
+            If cbxStatBis.Checked Then frmStatFrima.StatBis = datStatBis.Value.ToShortDateString
+            If IsNumeric(txtDauerVon.Text) Then frmStatFrima.DauerVon = txtDauerVon.Text
+            If IsNumeric(txtDauerBis.Text) Then frmStatFrima.DauerBis = txtDauerBis.Text
+            frmStatFrima.firma = CStr(DataGridView1.CurrentRow.Cells(1).Value)
+            frmStatFrima.lblAnzLKWs.Text = CStr(DataGridView1.CurrentRow.Cells(0).Value)
+            frmStatFrima.lblDurchschnSZ.Text = CStr(DataGridView1.CurrentRow.Cells(2).Value) & " min"
+            frmStatFrima.lblMinWZ.Text = CStr(DataGridView1.CurrentRow.Cells(3).Value) & " min"
+            frmStatFrima.lblMaxWZ.Text = CStr(DataGridView1.CurrentRow.Cells(4).Value) & " min"
+            frmStatFrima.Show()
+        End If
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        showFirmen()
+    End Sub
+
+    Private Sub cbxStatVon_CheckedChanged(sender As Object, e As EventArgs) Handles cbxStatVon.CheckedChanged
+        datStatVon.Enabled = cbxStatVon.Checked
+        showFirmen()
+    End Sub
+    Private Sub cbxStatBis_CheckedChanged(sender As Object, e As EventArgs) Handles cbxStatBis.CheckedChanged#
+        datStatBis.Enabled = cbxStatBis.Checked
+        showFirmen()
+    End Sub
+
+    Private Sub datStatVon_ValueChanged(sender As Object, e As EventArgs) Handles datStatVon.ValueChanged, datStatBis.ValueChanged
+        showFirmen()
+    End Sub
+
+    Private Sub cboSrchAuftrFraecht_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSrchAuftrFraecht.SelectedIndexChanged
+        showFirmen()
+    End Sub
+
+
+End Class
--- a/Aviso/Auswertung/usrctlMAUebersicht.Designer.vb
+++ b/Aviso/Auswertung/usrctlMAUebersicht.Designer.vb
@@ -0,0 +1,192 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrctlMAUebersicht
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.datStatBis = New System.Windows.Forms.DateTimePicker()
+        Me.datStatVon = New System.Windows.Forms.DateTimePicker()
+        Me.txtMin = New System.Windows.Forms.TextBox()
+        Me.txtMax = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.clmnId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnAvg = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnCount = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Location = New System.Drawing.Point(593, 80)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(200, 266)
+        Me.Panel1.TabIndex = 0
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(24, 58)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(116, 13)
+        Me.Label11.TabIndex = 27
+        Me.Label11.Text = "Berücksichtigte Zeiten:"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(202, 58)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(10, 13)
+        Me.Label12.TabIndex = 25
+        Me.Label12.Text = "-"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(202, 34)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(10, 13)
+        Me.Label10.TabIndex = 26
+        Me.Label10.Text = "-"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(24, 35)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(51, 13)
+        Me.Label6.TabIndex = 22
+        Me.Label6.Text = "Zeitraum:"
+        '
+        'datStatBis
+        '
+        Me.datStatBis.Location = New System.Drawing.Point(218, 28)
+        Me.datStatBis.Name = "datStatBis"
+        Me.datStatBis.Size = New System.Drawing.Size(105, 20)
+        Me.datStatBis.TabIndex = 23
+        '
+        'datStatVon
+        '
+        Me.datStatVon.Location = New System.Drawing.Point(91, 29)
+        Me.datStatVon.Name = "datStatVon"
+        Me.datStatVon.Size = New System.Drawing.Size(105, 20)
+        Me.datStatVon.TabIndex = 24
+        '
+        'txtMin
+        '
+        Me.txtMin.Location = New System.Drawing.Point(146, 55)
+        Me.txtMin.Name = "txtMin"
+        Me.txtMin.Size = New System.Drawing.Size(50, 20)
+        Me.txtMin.TabIndex = 20
+        Me.txtMin.Text = "0"
+        '
+        'txtMax
+        '
+        Me.txtMax.Location = New System.Drawing.Point(218, 55)
+        Me.txtMax.Name = "txtMax"
+        Me.txtMax.Size = New System.Drawing.Size(50, 20)
+        Me.txtMax.TabIndex = 21
+        Me.txtMax.Text = "9999"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(247, 55)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 28
+        Me.Button1.Text = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnId, Me.clmnName, Me.clmnAvg, Me.clmnCount})
+        Me.DataGridView1.Location = New System.Drawing.Point(27, 106)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.Size = New System.Drawing.Size(502, 404)
+        Me.DataGridView1.TabIndex = 29
+        '
+        'clmnId
+        '
+        Me.clmnId.HeaderText = "id"
+        Me.clmnId.Name = "clmnId"
+        '
+        'clmnName
+        '
+        Me.clmnName.HeaderText = "Name"
+        Me.clmnName.Name = "clmnName"
+        '
+        'clmnAvg
+        '
+        Me.clmnAvg.HeaderText = "Durchschnittliche Wartezeit"
+        Me.clmnAvg.Name = "clmnAvg"
+        '
+        'clmnCount
+        '
+        Me.clmnCount.HeaderText = "Anzahl"
+        Me.clmnCount.Name = "clmnCount"
+        '
+        'usrctlMAUebersicht
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.datStatBis)
+        Me.Controls.Add(Me.datStatVon)
+        Me.Controls.Add(Me.txtMin)
+        Me.Controls.Add(Me.txtMax)
+        Me.Controls.Add(Me.Panel1)
+        Me.Name = "usrctlMAUebersicht"
+        Me.Size = New System.Drawing.Size(844, 510)
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents datStatBis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents datStatVon As System.Windows.Forms.DateTimePicker
+    Friend WithEvents txtMin As System.Windows.Forms.TextBox
+    Friend WithEvents txtMax As System.Windows.Forms.TextBox
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
+    Friend WithEvents clmnId As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents clmnName As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents clmnAvg As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents clmnCount As System.Windows.Forms.DataGridViewTextBoxColumn
+
+End Class
--- a/Aviso/Auswertung/usrctlMAUebersicht.resx
+++ b/Aviso/Auswertung/usrctlMAUebersicht.resx
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="clmnId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnAvg.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnCount.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>
--- a/Aviso/Auswertung/usrctlMAUebersicht.vb
+++ b/Aviso/Auswertung/usrctlMAUebersicht.vb
@@ -0,0 +1,99 @@
+Imports Gemeinsames
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrctlMAUebersicht
+
+
+    Dim SQL As New Statistik
+
+    Sub init()
+        DataGridView1.Rows.Clear()
+        DataGridView1.Columns(0).Visible = False
+        Dim listMaAVG As List(Of listMaAVG) = SQL.getAVGMa(CDate(datStatVon.Value.ToShortDateString), CDate(datStatBis.Value.ToShortDateString), txtMin.Text, txtMax.Text)
+        If Not listMaAVG Is Nothing Then
+            For Each l In listMaAVG
+                DataGridView1.Rows.Add(l.mit_id, l.mit_name, l.mit_avg, l.mit_count)
+            Next
+        End If
+    End Sub
+
+    Private Sub Panel1_Paint() 'sender As Object, e As PaintEventArgs) Handles Panel1.Paint
+        Panel1.Controls.Clear()
+      
+
+        Dim t As New TableLayoutPanel
+        Panel1.Controls.Add(t)
+        Panel1.Width = 800
+        Panel1.Height = 500
+        Panel1.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
+
+
+        t.Width = 800
+        t.CellBorderStyle = TableLayoutPanelCellBorderStyle.Single
+
+        t.AutoScroll = True
+        t.AutoSize = True
+        t.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
+
+
+        t.Dock = DockStyle.Fill
+
+        t.Controls.Clear()
+        t.ColumnStyles.Clear()
+        t.RowStyles.Clear()
+
+        t.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 30))
+        t.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 70))
+        t.ColumnCount = 2
+
+        Dim l1 As New Label
+        l1.Text = "Mitarbeiter"
+        Dim l2 As New Label
+        l2.Text = "In Bearbeitung"
+        t.Controls.Add(l1, 0, 0)
+        t.Controls.Add(l2, 1, 0)
+        t.Controls.Add(l2, 1, 0)
+
+        Dim listMaAVG As List(Of listMaAVG) = SQL.getAVGMa(CDate(datStatVon.Value.ToShortDateString), CDate(datStatBis.Value.ToShortDateString), txtMin.Text, txtMax.Text)
+
+
+        Dim i As Integer = 0
+        If Not listMaAVG Is Nothing Then
+            For Each l In listMaAVG
+                t.RowStyles.Add(New RowStyle(SizeType.AutoSize, 70))
+
+                'MsgBox("Test" & l.mit_name)
+                Dim p_left As New Panel
+                Dim p_right As New Panel
+                p_left.Dock = DockStyle.Fill
+                p_right.Dock = DockStyle.Fill
+                p_left.AutoSize = True '.Height = 20
+                p_right.AutoSize = True '#.Height = 20
+
+                't.RowCount = 2
+
+                Dim l3 As New Label
+                l3.Text = l.mit_name
+                Dim l4 As New Label
+                l4.Text = CStr(l.mit_avg) & " min"
+                p_left.Controls.Add(l3)
+                p_right.Controls.Add(l4)
+
+
+
+                t.Controls.Add(p_left, 0, i + 1)
+                t.Controls.Add(p_right, 1, i + 1)
+                i += 1
+            Next
+        End If
+    End Sub
+
+
+    Private Sub usrctlMAUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        init()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        init()
+    End Sub
+End Class