neu

Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.Designer.vb

@@ -0,0 +1,181 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmAvisoBenachrichtigungReminderBestaetigen
+    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()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.lblDatUhrzeit = New System.Windows.Forms.Label()
+        Me.lblArt = New System.Windows.Forms.Label()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.rtbVermerk = New System.Windows.Forms.RichTextBox()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.pnl.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Button2)
+        Me.pnl.Controls.Add(Me.Label2)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.lblDatUhrzeit)
+        Me.pnl.Controls.Add(Me.lblArt)
+        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Controls.Add(Me.rtbVermerk)
+        Me.pnl.Controls.Add(Me.btn)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(460, 159)
+        Me.pnl.TabIndex = 0
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(193, 10)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(79, 13)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "Datum/Uhrzeit:"
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.SteelBlue
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.Location = New System.Drawing.Point(11, 92)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(236, 56)
+        Me.Button1.TabIndex = 9
+        Me.Button1.Text = "OK & Vermerk bestätigen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vorauskasse / Angeforderte Doks erhalten)"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'lblDatUhrzeit
+        '
+        Me.lblDatUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblDatUhrzeit.Location = New System.Drawing.Point(213, 10)
+        Me.lblDatUhrzeit.Name = "lblDatUhrzeit"
+        Me.lblDatUhrzeit.Size = New System.Drawing.Size(177, 13)
+        Me.lblDatUhrzeit.TabIndex = 8
+        Me.lblDatUhrzeit.Text = "01.01.2020 10:00"
+        Me.lblDatUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblArt
+        '
+        Me.lblArt.AutoSize = True
+        Me.lblArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.lblArt.Location = New System.Drawing.Point(11, 8)
+        Me.lblArt.Name = "lblArt"
+        Me.lblArt.Size = New System.Drawing.Size(167, 17)
+        Me.lblArt.TabIndex = 5
+        Me.lblArt.Text = "VERMERK REMINDER"
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(8, 34)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(49, 13)
+        Me.lbl.TabIndex = 2
+        Me.lbl.Text = "Vermerk:"
+        '
+        'rtbVermerk
+        '
+        Me.rtbVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtbVermerk.Location = New System.Drawing.Point(11, 50)
+        Me.rtbVermerk.Name = "rtbVermerk"
+        Me.rtbVermerk.ReadOnly = True
+        Me.rtbVermerk.Size = New System.Drawing.Size(436, 36)
+        Me.rtbVermerk.TabIndex = 1
+        Me.rtbVermerk.Text = ""
+        '
+        'btn
+        '
+        Me.btn.BackColor = System.Drawing.Color.SteelBlue
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(253, 92)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(194, 56)
+        Me.btn.TabIndex = 0
+        Me.btn.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Benachrichtigung akzeptieren)"
+        Me.btn.UseVisualStyleBackColor = False
+        '
+        'DataGridViewTextBoxColumn1
+        '
+        Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        Me.DataGridViewTextBoxColumn1.Visible = False
+        '
+        'DataGridViewTextBoxColumn2
+        '
+        Me.DataGridViewTextBoxColumn2.HeaderText = "Datei"
+        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.Red
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button2.ForeColor = System.Drawing.Color.White
+        Me.Button2.Location = New System.Drawing.Point(420, -1)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(39, 31)
+        Me.Button2.TabIndex = 10
+        Me.Button2.Text = "X"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'frmAvisoBenachrichtigungReminderBestaetigen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(460, 159)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "frmAvisoBenachrichtigungReminderBestaetigen"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Bestätigen"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents lblArt As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents lbl As Label
+    Friend WithEvents rtbVermerk As RichTextBox
+    Friend WithEvents btn As Button
+    Friend WithEvents lblDatUhrzeit As Label
+    Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+End Class

Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.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>

Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.vb

@@ -0,0 +1,75 @@
+Public Class frmAvisoBenachrichtigungReminderBestaetigen
+
+    Dim AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen = Nothing
+
+    Sub New(AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AB = AB
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(ABId)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AB = New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(ABId)
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Private Sub frmAvisoWeiterleitenBestaetigen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If AB IsNot Nothing Then
+
+            rtbVermerk.Text = AB.ab_Beschreibung
+            '    lblName.Text = AB.ab_Mitarbeiter
+            lblDatUhrzeit.Text = AB.ab_Datum.ToShortDateString & "  " & AB.ab_Datum.ToShortTimeString
+
+            If AB.ab_Art = "A" Then lblArt.Text = "LKW"
+
+
+
+        End If
+
+    End Sub
+
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Me.DialogResult = DialogResult.None
+        Me.Close()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
+        Dim myVermerk As VERAG_PROG_ALLGEMEIN.cVermerk = cVermerkeDAL.LesenVermerk(AB.ab_ReminderVermerkID, "")
+
+        myVermerk.VermerkID = 0 'zurücksetzen
+        myVermerk.Datum = Now
+        myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+        myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
+
+        Select Case AB.ab_ReminderVermerkCode
+            Case 13
+                myVermerk.VermerkCodeId = 14
+                myVermerk.Hinweis_Vermerk = SQL.getValueTxtBySql("SELECT [Bezeichnung] FROM [VermerkeCodes] where VermerkCodeId='" & myVermerk.VermerkCodeId & "'", "AVISO")
+            Case Else
+                MsgBox("Vermerk konnte nicht quittiert werden - bitte manuell durchführen!")
+        End Select
+
+        Dim IdTmp = cVermerkeDAL.SpeichernVermerk(myVermerk)
+        cVermerkeDAL.SpeichernVermerkIDAufgehoben(AB.ab_ReminderVermerkID, IdTmp)
+
+        Me.DialogResult = DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.DialogResult = DialogResult.Cancel
+        Me.Close()
+    End Sub
+End Class

Aviso/Benachrichtigung/frmAvisoWeiterleiten.Designer.vb

@@ -0,0 +1,857 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmAvisoWeiterleiten
+    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()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoWeiterleiten))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.btnTeam = New System.Windows.Forms.Button()
+        Me.btnBenutzer = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.dgvMitarbeiter = New System.Windows.Forms.DataGridView()
+        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.flpFirma = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.MyFlowLayoutPanel3 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.MyFlowLayoutPanel4 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.Button13 = New System.Windows.Forms.Button()
+        Me.MyFlowLayoutPanel2 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.flpTeams = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Panel8 = New System.Windows.Forms.Panel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.MyFlowLayoutPanel14 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.MyFlowLayoutPanel15 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button30 = New System.Windows.Forms.Button()
+        Me.Button31 = New System.Windows.Forms.Button()
+        Me.Button32 = New System.Windows.Forms.Button()
+        Me.Button33 = New System.Windows.Forms.Button()
+        Me.MyFlowLayoutPanel16 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button34 = New System.Windows.Forms.Button()
+        Me.Button35 = New System.Windows.Forms.Button()
+        Me.Button36 = New System.Windows.Forms.Button()
+        Me.Button37 = New System.Windows.Forms.Button()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.btnVERAG = New System.Windows.Forms.Button()
+        Me.btnUNIPED = New System.Windows.Forms.Button()
+        Me.btnIMEX = New System.Windows.Forms.Button()
+        Me.btnFrontoffice = New System.Windows.Forms.Button()
+        Me.btnVERIMEX = New System.Windows.Forms.Button()
+        Me.btnAMBAR = New System.Windows.Forms.Button()
+        Me.btnATILLA = New System.Windows.Forms.Button()
+        Me.Panel5 = New System.Windows.Forms.Panel()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.dgvAnmhaenge = New System.Windows.Forms.DataGridView()
+        Me.clmnAnhFilePath = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnAnhFileName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.rtbVermerk = New System.Windows.Forms.RichTextBox()
+        Me.pnl.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel4.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.MyFlowLayoutPanel4.SuspendLayout()
+        Me.MyFlowLayoutPanel2.SuspendLayout()
+        Me.Panel7.SuspendLayout()
+        Me.Panel8.SuspendLayout()
+        Me.MyFlowLayoutPanel15.SuspendLayout()
+        Me.MyFlowLayoutPanel16.SuspendLayout()
+        Me.MyFlowLayoutPanel1.SuspendLayout()
+        Me.Panel5.SuspendLayout()
+        CType(Me.dgvAnmhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.pnl.Controls.Add(Me.Label3)
+        Me.pnl.Controls.Add(Me.pic)
+        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Controls.Add(Me.Button3)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(979, 37)
+        Me.pnl.TabIndex = 0
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+        Me.Label3.Location = New System.Drawing.Point(823, 7)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(109, 24)
+        Me.Label3.TabIndex = 8
+        Me.Label3.Text = "Weiterleiten"
+        '
+        'pic
+        '
+        Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pic.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
+        Me.pic.Location = New System.Drawing.Point(935, 3)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(44, 32)
+        Me.pic.TabIndex = 7
+        Me.pic.TabStop = False
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(12, 9)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(207, 13)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "Bitte geben Sie das Weiterleitungs-Ziel an:"
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button3.Location = New System.Drawing.Point(397, 106)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(191, 42)
+        Me.Button3.TabIndex = 6
+        Me.Button3.Text = "UNISPED"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.btnTeam)
+        Me.Panel2.Controls.Add(Me.btnBenutzer)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Controls.Add(Me.dgvMitarbeiter)
+        Me.Panel2.Controls.Add(Me.MyTextBox1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel2.Location = New System.Drawing.Point(0, 37)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(320, 702)
+        Me.Panel2.TabIndex = 17
+        '
+        'btnTeam
+        '
+        Me.btnTeam.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnTeam.BackColor = System.Drawing.Color.SteelBlue
+        Me.btnTeam.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnTeam.ForeColor = System.Drawing.Color.White
+        Me.btnTeam.Location = New System.Drawing.Point(161, 643)
+        Me.btnTeam.Name = "btnTeam"
+        Me.btnTeam.Size = New System.Drawing.Size(140, 42)
+        Me.btnTeam.TabIndex = 14
+        Me.btnTeam.Text = "senden an" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "TEAM"
+        Me.btnTeam.UseVisualStyleBackColor = False
+        '
+        'btnBenutzer
+        '
+        Me.btnBenutzer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnBenutzer.BackColor = System.Drawing.Color.SteelBlue
+        Me.btnBenutzer.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnBenutzer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnBenutzer.ForeColor = System.Drawing.Color.White
+        Me.btnBenutzer.Location = New System.Drawing.Point(15, 643)
+        Me.btnBenutzer.Name = "btnBenutzer"
+        Me.btnBenutzer.Size = New System.Drawing.Size(140, 42)
+        Me.btnBenutzer.TabIndex = 13
+        Me.btnBenutzer.Text = "senden an" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BENUTZER"
+        Me.btnBenutzer.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(41, 13)
+        Me.Label2.TabIndex = 11
+        Me.Label2.Text = "Suche:"
+        '
+        'dgvMitarbeiter
+        '
+        Me.dgvMitarbeiter.AllowUserToAddRows = False
+        Me.dgvMitarbeiter.AllowUserToDeleteRows = False
+        Me.dgvMitarbeiter.AllowUserToResizeColumns = False
+        Me.dgvMitarbeiter.AllowUserToResizeRows = False
+        Me.dgvMitarbeiter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.dgvMitarbeiter.BackgroundColor = System.Drawing.Color.White
+        Me.dgvMitarbeiter.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvMitarbeiter.Location = New System.Drawing.Point(15, 48)
+        Me.dgvMitarbeiter.MultiSelect = False
+        Me.dgvMitarbeiter.Name = "dgvMitarbeiter"
+        Me.dgvMitarbeiter.RowHeadersVisible = False
+        Me.dgvMitarbeiter.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvMitarbeiter.Size = New System.Drawing.Size(286, 589)
+        Me.dgvMitarbeiter.TabIndex = 10
+        '
+        'MyTextBox1
+        '
+        Me.MyTextBox1._DateTimeOnly = False
+        Me.MyTextBox1._numbersOnly = False
+        Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._Prozent = False
+        Me.MyTextBox1._ShortDateNew = False
+        Me.MyTextBox1._ShortDateOnly = False
+        Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._value = ""
+        Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
+        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox1.Location = New System.Drawing.Point(15, 25)
+        Me.MyTextBox1.MaxLineLength = -1
+        Me.MyTextBox1.MaxLines_Warning = ""
+        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(286, 20)
+        Me.MyTextBox1.TabIndex = 9
+        '
+        'Panel4
+        '
+        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel4.Controls.Add(Me.Panel1)
+        Me.Panel4.Controls.Add(Me.Panel7)
+        Me.Panel4.Controls.Add(Me.MyFlowLayoutPanel1)
+        Me.Panel4.Controls.Add(Me.Panel5)
+        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel4.Location = New System.Drawing.Point(320, 37)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(659, 702)
+        Me.Panel4.TabIndex = 20
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.flpFirma)
+        Me.Panel1.Controls.Add(Me.Panel3)
+        Me.Panel1.Controls.Add(Me.MyFlowLayoutPanel2)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel1.Location = New System.Drawing.Point(200, 57)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(449, 468)
+        Me.Panel1.TabIndex = 20
+        '
+        'flpFirma
+        '
+        Me.flpFirma.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.flpFirma.Location = New System.Drawing.Point(0, 28)
+        Me.flpFirma.Name = "flpFirma"
+        Me.flpFirma.Size = New System.Drawing.Size(447, 438)
+        Me.flpFirma.TabIndex = 1
+        '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.Label1)
+        Me.Panel3.Controls.Add(Me.MyFlowLayoutPanel3)
+        Me.Panel3.Controls.Add(Me.MyFlowLayoutPanel4)
+        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(447, 28)
+        Me.Panel3.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.Label1.Location = New System.Drawing.Point(3, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(53, 17)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "Firma:"
+        '
+        'MyFlowLayoutPanel3
+        '
+        Me.MyFlowLayoutPanel3.Location = New System.Drawing.Point(170, 93)
+        Me.MyFlowLayoutPanel3.Name = "MyFlowLayoutPanel3"
+        Me.MyFlowLayoutPanel3.Size = New System.Drawing.Size(593, 431)
+        Me.MyFlowLayoutPanel3.TabIndex = 1
+        '
+        'MyFlowLayoutPanel4
+        '
+        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button10)
+        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button11)
+        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button12)
+        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button13)
+        Me.MyFlowLayoutPanel4.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel4.Name = "MyFlowLayoutPanel4"
+        Me.MyFlowLayoutPanel4.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel4.TabIndex = 1
+        '
+        'Button10
+        '
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button10.Location = New System.Drawing.Point(3, 3)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(191, 42)
+        Me.Button10.TabIndex = 3
+        Me.Button10.Text = "TEAM"
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button11.Location = New System.Drawing.Point(3, 51)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(191, 42)
+        Me.Button11.TabIndex = 1
+        Me.Button11.Text = "NIEDERLASSUNG"
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'Button12
+        '
+        Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button12.Location = New System.Drawing.Point(3, 99)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(191, 42)
+        Me.Button12.TabIndex = 2
+        Me.Button12.Text = "ABTEILUNG"
+        Me.Button12.UseVisualStyleBackColor = True
+        Me.Button12.Visible = False
+        '
+        'Button13
+        '
+        Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button13.Location = New System.Drawing.Point(3, 147)
+        Me.Button13.Name = "Button13"
+        Me.Button13.Size = New System.Drawing.Size(191, 42)
+        Me.Button13.TabIndex = 4
+        Me.Button13.Text = "FIRMA"
+        Me.Button13.UseVisualStyleBackColor = True
+        '
+        'MyFlowLayoutPanel2
+        '
+        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button6)
+        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button4)
+        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button5)
+        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button7)
+        Me.MyFlowLayoutPanel2.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel2.Name = "MyFlowLayoutPanel2"
+        Me.MyFlowLayoutPanel2.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel2.TabIndex = 1
+        '
+        'Button6
+        '
+        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button6.Location = New System.Drawing.Point(3, 3)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(191, 42)
+        Me.Button6.TabIndex = 3
+        Me.Button6.Text = "TEAM"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button4.Location = New System.Drawing.Point(3, 51)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(191, 42)
+        Me.Button4.TabIndex = 1
+        Me.Button4.Text = "NIEDERLASSUNG"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button5.Location = New System.Drawing.Point(3, 99)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(191, 42)
+        Me.Button5.TabIndex = 2
+        Me.Button5.Text = "ABTEILUNG"
+        Me.Button5.UseVisualStyleBackColor = True
+        Me.Button5.Visible = False
+        '
+        'Button7
+        '
+        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button7.Location = New System.Drawing.Point(3, 147)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(191, 42)
+        Me.Button7.TabIndex = 4
+        Me.Button7.Text = "FIRMA"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'Panel7
+        '
+        Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel7.Controls.Add(Me.flpTeams)
+        Me.Panel7.Controls.Add(Me.Panel8)
+        Me.Panel7.Controls.Add(Me.MyFlowLayoutPanel16)
+        Me.Panel7.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel7.Location = New System.Drawing.Point(0, 57)
+        Me.Panel7.Name = "Panel7"
+        Me.Panel7.Size = New System.Drawing.Size(200, 468)
+        Me.Panel7.TabIndex = 19
+        '
+        'flpTeams
+        '
+        Me.flpTeams.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.flpTeams.Location = New System.Drawing.Point(0, 28)
+        Me.flpTeams.Name = "flpTeams"
+        Me.flpTeams.Size = New System.Drawing.Size(198, 438)
+        Me.flpTeams.TabIndex = 1
+        '
+        'Panel8
+        '
+        Me.Panel8.Controls.Add(Me.Label4)
+        Me.Panel8.Controls.Add(Me.MyFlowLayoutPanel14)
+        Me.Panel8.Controls.Add(Me.MyFlowLayoutPanel15)
+        Me.Panel8.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel8.Location = New System.Drawing.Point(0, 0)
+        Me.Panel8.Name = "Panel8"
+        Me.Panel8.Size = New System.Drawing.Size(198, 28)
+        Me.Panel8.TabIndex = 2
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.Label4.Location = New System.Drawing.Point(3, 6)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(53, 17)
+        Me.Label4.TabIndex = 2
+        Me.Label4.Text = "Team:"
+        '
+        'MyFlowLayoutPanel14
+        '
+        Me.MyFlowLayoutPanel14.Location = New System.Drawing.Point(170, 93)
+        Me.MyFlowLayoutPanel14.Name = "MyFlowLayoutPanel14"
+        Me.MyFlowLayoutPanel14.Size = New System.Drawing.Size(593, 431)
+        Me.MyFlowLayoutPanel14.TabIndex = 1
+        '
+        'MyFlowLayoutPanel15
+        '
+        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button30)
+        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button31)
+        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button32)
+        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button33)
+        Me.MyFlowLayoutPanel15.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel15.Name = "MyFlowLayoutPanel15"
+        Me.MyFlowLayoutPanel15.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel15.TabIndex = 1
+        '
+        'Button30
+        '
+        Me.Button30.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button30.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button30.Location = New System.Drawing.Point(3, 3)
+        Me.Button30.Name = "Button30"
+        Me.Button30.Size = New System.Drawing.Size(191, 42)
+        Me.Button30.TabIndex = 3
+        Me.Button30.Text = "TEAM"
+        Me.Button30.UseVisualStyleBackColor = True
+        '
+        'Button31
+        '
+        Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button31.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button31.Location = New System.Drawing.Point(3, 51)
+        Me.Button31.Name = "Button31"
+        Me.Button31.Size = New System.Drawing.Size(191, 42)
+        Me.Button31.TabIndex = 1
+        Me.Button31.Text = "NIEDERLASSUNG"
+        Me.Button31.UseVisualStyleBackColor = True
+        '
+        'Button32
+        '
+        Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button32.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button32.Location = New System.Drawing.Point(3, 99)
+        Me.Button32.Name = "Button32"
+        Me.Button32.Size = New System.Drawing.Size(191, 42)
+        Me.Button32.TabIndex = 2
+        Me.Button32.Text = "ABTEILUNG"
+        Me.Button32.UseVisualStyleBackColor = True
+        Me.Button32.Visible = False
+        '
+        'Button33
+        '
+        Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button33.Location = New System.Drawing.Point(3, 147)
+        Me.Button33.Name = "Button33"
+        Me.Button33.Size = New System.Drawing.Size(191, 42)
+        Me.Button33.TabIndex = 4
+        Me.Button33.Text = "FIRMA"
+        Me.Button33.UseVisualStyleBackColor = True
+        '
+        'MyFlowLayoutPanel16
+        '
+        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button34)
+        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button35)
+        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button36)
+        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button37)
+        Me.MyFlowLayoutPanel16.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel16.Name = "MyFlowLayoutPanel16"
+        Me.MyFlowLayoutPanel16.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel16.TabIndex = 1
+        '
+        'Button34
+        '
+        Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button34.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button34.Location = New System.Drawing.Point(3, 3)
+        Me.Button34.Name = "Button34"
+        Me.Button34.Size = New System.Drawing.Size(191, 42)
+        Me.Button34.TabIndex = 3
+        Me.Button34.Text = "TEAM"
+        Me.Button34.UseVisualStyleBackColor = True
+        '
+        'Button35
+        '
+        Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button35.Location = New System.Drawing.Point(3, 51)
+        Me.Button35.Name = "Button35"
+        Me.Button35.Size = New System.Drawing.Size(191, 42)
+        Me.Button35.TabIndex = 1
+        Me.Button35.Text = "NIEDERLASSUNG"
+        Me.Button35.UseVisualStyleBackColor = True
+        '
+        'Button36
+        '
+        Me.Button36.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button36.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button36.Location = New System.Drawing.Point(3, 99)
+        Me.Button36.Name = "Button36"
+        Me.Button36.Size = New System.Drawing.Size(191, 42)
+        Me.Button36.TabIndex = 2
+        Me.Button36.Text = "ABTEILUNG"
+        Me.Button36.UseVisualStyleBackColor = True
+        Me.Button36.Visible = False
+        '
+        'Button37
+        '
+        Me.Button37.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button37.Location = New System.Drawing.Point(3, 147)
+        Me.Button37.Name = "Button37"
+        Me.Button37.Size = New System.Drawing.Size(191, 42)
+        Me.Button37.TabIndex = 4
+        Me.Button37.Text = "FIRMA"
+        Me.Button37.UseVisualStyleBackColor = True
+        '
+        'MyFlowLayoutPanel1
+        '
+        Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVERAG)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnUNIPED)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnIMEX)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFrontoffice)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVERIMEX)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAMBAR)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnATILLA)
+        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
+        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(657, 57)
+        Me.MyFlowLayoutPanel1.TabIndex = 21
+        '
+        'btnVERAG
+        '
+        Me.btnVERAG.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnVERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnVERAG.Location = New System.Drawing.Point(3, 3)
+        Me.btnVERAG.Name = "btnVERAG"
+        Me.btnVERAG.Size = New System.Drawing.Size(86, 43)
+        Me.btnVERAG.TabIndex = 4
+        Me.btnVERAG.Text = "VERAG"
+        Me.btnVERAG.UseVisualStyleBackColor = True
+        '
+        'btnUNIPED
+        '
+        Me.btnUNIPED.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnUNIPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnUNIPED.Location = New System.Drawing.Point(95, 3)
+        Me.btnUNIPED.Name = "btnUNIPED"
+        Me.btnUNIPED.Size = New System.Drawing.Size(86, 43)
+        Me.btnUNIPED.TabIndex = 7
+        Me.btnUNIPED.Text = "UNISPED"
+        Me.btnUNIPED.UseVisualStyleBackColor = True
+        '
+        'btnIMEX
+        '
+        Me.btnIMEX.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnIMEX.Location = New System.Drawing.Point(187, 3)
+        Me.btnIMEX.Name = "btnIMEX"
+        Me.btnIMEX.Size = New System.Drawing.Size(86, 43)
+        Me.btnIMEX.TabIndex = 5
+        Me.btnIMEX.Text = "IMEX"
+        Me.btnIMEX.UseVisualStyleBackColor = True
+        '
+        'btnFrontoffice
+        '
+        Me.btnFrontoffice.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnFrontoffice.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnFrontoffice.Location = New System.Drawing.Point(279, 3)
+        Me.btnFrontoffice.Name = "btnFrontoffice"
+        Me.btnFrontoffice.Size = New System.Drawing.Size(120, 43)
+        Me.btnFrontoffice.TabIndex = 8
+        Me.btnFrontoffice.Text = "FRONTOFFICE"
+        Me.btnFrontoffice.UseVisualStyleBackColor = True
+        '
+        'btnVERIMEX
+        '
+        Me.btnVERIMEX.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnVERIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnVERIMEX.Location = New System.Drawing.Point(405, 3)
+        Me.btnVERIMEX.Name = "btnVERIMEX"
+        Me.btnVERIMEX.Size = New System.Drawing.Size(120, 43)
+        Me.btnVERIMEX.TabIndex = 9
+        Me.btnVERIMEX.Text = "VERIMEX" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Istanbul)"
+        Me.btnVERIMEX.UseVisualStyleBackColor = True
+        '
+        'btnAMBAR
+        '
+        Me.btnAMBAR.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnAMBAR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnAMBAR.Location = New System.Drawing.Point(531, 3)
+        Me.btnAMBAR.Name = "btnAMBAR"
+        Me.btnAMBAR.Size = New System.Drawing.Size(120, 43)
+        Me.btnAMBAR.TabIndex = 10
+        Me.btnAMBAR.Text = "AMBAR"
+        Me.btnAMBAR.UseVisualStyleBackColor = True
+        '
+        'btnATILLA
+        '
+        Me.btnATILLA.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnATILLA.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnATILLA.Location = New System.Drawing.Point(3, 52)
+        Me.btnATILLA.Name = "btnATILLA"
+        Me.btnATILLA.Size = New System.Drawing.Size(120, 43)
+        Me.btnATILLA.TabIndex = 11
+        Me.btnATILLA.Text = "ATILLA"
+        Me.btnATILLA.UseVisualStyleBackColor = True
+        '
+        'Panel5
+        '
+        Me.Panel5.BackColor = System.Drawing.Color.SeaShell
+        Me.Panel5.Controls.Add(Me.Label6)
+        Me.Panel5.Controls.Add(Me.dgvAnmhaenge)
+        Me.Panel5.Controls.Add(Me.Button1)
+        Me.Panel5.Controls.Add(Me.Label5)
+        Me.Panel5.Controls.Add(Me.rtbVermerk)
+        Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel5.Location = New System.Drawing.Point(0, 525)
+        Me.Panel5.Name = "Panel5"
+        Me.Panel5.Size = New System.Drawing.Size(657, 175)
+        Me.Panel5.TabIndex = 22
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(2, 90)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(53, 13)
+        Me.Label6.TabIndex = 18
+        Me.Label6.Text = "Anhänge:"
+        '
+        'dgvAnmhaenge
+        '
+        Me.dgvAnmhaenge.AllowUserToAddRows = False
+        Me.dgvAnmhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnmhaenge.AllowUserToResizeRows = False
+        Me.dgvAnmhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnmhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnmhaenge.ColumnHeadersVisible = False
+        Me.dgvAnmhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAnhFilePath, Me.clmnAnhFileName})
+        Me.dgvAnmhaenge.Location = New System.Drawing.Point(61, 90)
+        Me.dgvAnmhaenge.MultiSelect = False
+        Me.dgvAnmhaenge.Name = "dgvAnmhaenge"
+        Me.dgvAnmhaenge.ReadOnly = True
+        Me.dgvAnmhaenge.RowHeadersVisible = False
+        Me.dgvAnmhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnmhaenge.Size = New System.Drawing.Size(375, 70)
+        Me.dgvAnmhaenge.TabIndex = 17
+        '
+        'clmnAnhFilePath
+        '
+        Me.clmnAnhFilePath.HeaderText = "Column1"
+        Me.clmnAnhFilePath.Name = "clmnAnhFilePath"
+        Me.clmnAnhFilePath.ReadOnly = True
+        Me.clmnAnhFilePath.Visible = False
+        '
+        'clmnAnhFileName
+        '
+        Me.clmnAnhFileName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnAnhFileName.HeaderText = "Datei"
+        Me.clmnAnhFileName.Name = "clmnAnhFileName"
+        Me.clmnAnhFileName.ReadOnly = True
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.SteelBlue
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.Location = New System.Drawing.Point(442, 118)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(82, 42)
+        Me.Button1.TabIndex = 15
+        Me.Button1.Text = "+ Anhang"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(2, 16)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(49, 13)
+        Me.Label5.TabIndex = 1
+        Me.Label5.Text = "Vermerk:"
+        '
+        'rtbVermerk
+        '
+        Me.rtbVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.rtbVermerk.Location = New System.Drawing.Point(60, 16)
+        Me.rtbVermerk.MaxLength = 500
+        Me.rtbVermerk.Name = "rtbVermerk"
+        Me.rtbVermerk.Size = New System.Drawing.Size(465, 71)
+        Me.rtbVermerk.TabIndex = 0
+        Me.rtbVermerk.Text = ""
+        '
+        'frmAvisoWeiterleiten
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(979, 739)
+        Me.Controls.Add(Me.Panel4)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.pnl)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmAvisoWeiterleiten"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Weiterleiten"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel4.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.MyFlowLayoutPanel4.ResumeLayout(False)
+        Me.MyFlowLayoutPanel2.ResumeLayout(False)
+        Me.Panel7.ResumeLayout(False)
+        Me.Panel8.ResumeLayout(False)
+        Me.Panel8.PerformLayout()
+        Me.MyFlowLayoutPanel15.ResumeLayout(False)
+        Me.MyFlowLayoutPanel16.ResumeLayout(False)
+        Me.MyFlowLayoutPanel1.ResumeLayout(False)
+        Me.Panel5.ResumeLayout(False)
+        Me.Panel5.PerformLayout()
+        CType(Me.dgvAnmhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents lbl As Label
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Panel4 As Panel
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents flpFirma As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents Label1 As Label
+    Friend WithEvents MyFlowLayoutPanel3 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents MyFlowLayoutPanel4 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Button12 As Button
+    Friend WithEvents Button13 As Button
+    Friend WithEvents MyFlowLayoutPanel2 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button7 As Button
+    Friend WithEvents Panel7 As Panel
+    Friend WithEvents flpTeams As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Panel8 As Panel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents MyFlowLayoutPanel14 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents MyFlowLayoutPanel15 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button30 As Button
+    Friend WithEvents Button31 As Button
+    Friend WithEvents Button32 As Button
+    Friend WithEvents Button33 As Button
+    Friend WithEvents MyFlowLayoutPanel16 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button34 As Button
+    Friend WithEvents Button35 As Button
+    Friend WithEvents Button36 As Button
+    Friend WithEvents Button37 As Button
+    Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents btnVERAG As Button
+    Friend WithEvents btnUNIPED As Button
+    Friend WithEvents btnIMEX As Button
+    Friend WithEvents btnFrontoffice As Button
+    Friend WithEvents btnTeam As Button
+    Friend WithEvents btnBenutzer As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents dgvMitarbeiter As DataGridView
+    Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents pic As PictureBox
+    Friend WithEvents Panel5 As Panel
+    Friend WithEvents Label5 As Label
+    Friend WithEvents rtbVermerk As RichTextBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label6 As Label
+    Friend WithEvents dgvAnmhaenge As DataGridView
+    Friend WithEvents clmnAnhFilePath As DataGridViewTextBoxColumn
+    Friend WithEvents clmnAnhFileName As DataGridViewTextBoxColumn
+    Friend WithEvents btnVERIMEX As Button
+    Friend WithEvents btnAMBAR As Button
+    Friend WithEvents btnATILLA As Button
+End Class

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -0,0 +1,377 @@
+
+
+Public Class frmAvisoWeiterleiten
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim Art = "" ' A..viso oder S..endung
+    Dim AvisoId As Integer
+    Dim SendungsId As Integer
+
+    Dim loaded = False
+
+
+    Dim ASF = New AVISO.AvisoStatusFunctions
+
+    Sub New(Art As String, AvisoId As Integer, Optional SendungsId As Integer = -1)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.Art = Art
+        Me.AvisoId = AvisoId
+        Me.SendungsId = SendungsId
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub frmAvisoWeiterleiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
+            Me.Close()
+            Exit Sub
+        End If
+
+        Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
+
+        If AVISO.FIRMA = "ATILLA" Then
+
+            For Each p As Control In MyFlowLayoutPanel1.Controls.OfType(Of Button).Where(Function(ctrl) ctrl.Name <> "btnATILLA" And ctrl.Name <> "btnVERIMEX").ToList
+                MyFlowLayoutPanel1.Controls.Remove(p)
+            Next
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then btnVERIMEX.PerformClick()
+            Panel2.Enabled = False
+        Else
+            btnATILLA.Visible = False
+        End If
+        'tbcntr.Appearance = TabAppearance.FlatButtons
+        'tbcntr.ItemSize = New Size(0, 1)
+        'tbcntr.SizeMode = TabSizeMode.Fixed
+        'tbcntr.pa
+        Button6.PerformClick()
+        loaded = True
+    End Sub
+
+
+
+    'Private Sub Button6_Click(sender As Object, e As EventArgs)
+    '    Dim flp As FlowLayoutPanel = flpFi
+    '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
+
+    '    flp.Controls.Clear()
+
+    '    If dt Is Nothing Then Exit Sub
+
+    '    For Each t In dt.Rows
+    '        Dim btn As New Button
+    '        btn.FlatStyle = FlatStyle.Flat
+    '        btn.Size = New Size(250, 50)
+    '        btn.Font = New Font(Me.Font.FontFamily, 10, FontStyle.Regular)
+    '        btn.Text = t("team_bezeichnung")
+    '        btn.Tag = t("team_id")
+
+    '        AddHandler btn.Click, Sub()
+    '                                  btnWeiterleitung_Clicked("T", (btn.Tag), btn.Text)
+    '                                  initButtons(flp, sender)
+    '                              End Sub
+
+    '        flpFirma.Controls.Add(btn)
+
+    '    Next
+
+    'End Sub
+
+    Sub initButtons(flp As FlowLayoutPanel, b As Button)
+        For Each c In flp.Controls
+            DirectCast(c, Button).BackColor = Color.WhiteSmoke
+            DirectCast(c, Button).ForeColor = Color.Black
+        Next
+        b.BackColor = Color.SteelBlue
+        b.ForeColor = Color.White
+
+    End Sub
+
+    Sub initButtonsTop(b As Button)
+        For Each c In MyFlowLayoutPanel1.Controls
+            DirectCast(c, Button).BackColor = Color.WhiteSmoke
+            DirectCast(c, Button).ForeColor = Color.Black
+        Next
+        b.BackColor = Color.SteelBlue
+        b.ForeColor = Color.White
+
+    End Sub
+
+
+    Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "")
+        Dim text = ""
+        Dim WeiterleitungTextTV = ""
+        Dim code = 3
+        Select Case WLart
+            Case "T"
+                text = "Ins Team '" & bezeichnung & "' [" & bezeichnungFirma & "] gegeben."
+                WeiterleitungTextTV = bezeichnungFirma & "/" & bezeichnung
+            Case "A"
+                text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
+            Case "N"
+                text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
+            Case "F"
+                text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
+            Case "B"
+                text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
+        End Select
+
+        'Anhänge:
+        Dim collAnhIds = ""
+        Try
+            For Each r In dgvAnmhaenge.Rows
+                Dim fi As New IO.FileInfo(r.cells("clmnAnhFilePath").value)
+                Dim typ = ""
+                Dim anhId = -1
+                If AVISO.frmSendungAnhangImport.getFileTypeValid(fi.Extension, typ) Then
+                    AVISO.frmSendungAnhangImport.saveToDS(AvisoId, fi.Name, r.cells("clmnAnhFilePath").value, "BENACHRICHTIGUNG", typ, , anhId,, If(Art = "S", SendungsId, Nothing))
+                    collAnhIds &= anhId & ";"
+                End If
+            Next
+            If collAnhIds <> "" Then collAnhIds = collAnhIds.Substring(0, collAnhIds.Length - 1)
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+
+        '  insertVermerke 
+        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, 3, WLart, id, "von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0, collAnhIds, rtbVermerk.Text.Trim)
+        If Art = "S" Then
+            ASF.insertSendungsVermerk(SendungsId, AvisoId, text, 46)
+            If rtbVermerk.Text.Trim <> "" Then ASF.insertSendungsVermerk(SendungsId, AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
+            ASF.SendungUebernehmen_Zuruecksetzen(SendungsId, AvisoId)  ' , Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) 
+        Else
+            ASF.insertVermerkAllg(AvisoId, text, 46)
+            If rtbVermerk.Text.Trim <> "" Then ASF.insertVermerkAllg(AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
+            ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
+        End If
+
+        ' Me.Close()
+        '  End If
+
+        Me.Close()
+        Me.DialogResult = DialogResult.OK
+    End Sub
+
+    'Private Sub Button5_Click(sender As Object, e As EventArgs)
+    '    ' tbcntr.SelectedTab = tbAbteilung
+    '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
+
+    '    flpFirma.Controls.Clear()
+    '    addBtn("A", "FISKAL", "VERAG Fiskal")
+
+    '    initButtons(sender)
+    'End Sub
+
+    Sub addBtn(flpFirma As FlowLayoutPanel, WLart As String, id As String, bezeichnung As String, Optional enabled As Boolean = True, Optional bezeichnungFirma As String = "")
+        Dim btn As New Button
+        btn.FlatStyle = FlatStyle.Flat
+        btn.Size = New Size(180, 40)
+        btn.Font = New Font(Me.Font.FontFamily, 10, FontStyle.Regular)
+        btn.Text = bezeichnung
+        btn.Tag = id
+        btn.Enabled = enabled
+
+        AddHandler btn.Click, Sub()
+                                  btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
+                                  initButtons(flpFirma, btn)
+                              End Sub
+
+        flpFirma.Controls.Add(btn)
+    End Sub
+
+    'Private Sub Button4_Click(sender As Object, e As EventArgs)
+    '    ' tbcntr.SelectedTab = tbAbteilung
+    '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
+
+    '    flpFirma.Controls.Clear()
+    '    addBtn("N", "SBG", "VERAG Salzburg")
+    '    addBtn("N", "WAI", "VERAG Waidhaus")
+    '    addBtn("N", "NKD", "VERAG Nickelsdorf")
+
+    '    initButtons(sender)
+    'End Sub
+
+    'Private Sub Button7_Click(sender As Object, e As EventArgs)
+    '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
+
+    '    flpFirma.Controls.Clear()
+    '    addBtn("F", "FRONTOFFICE", "FRONTOFFICE")
+    '    addBtn("F", "UNISPED", "UNISPED")
+
+    '    initButtons(sender)
+    'End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, btnFrontoffice.Click, btnVERIMEX.Click, btnAMBAR.Click, btnATILLA.Click
+        'flpAbteilung.Controls.Clear()
+        flpTeams.Controls.Clear()
+        '  flpNiederlassung.Controls.Clear()
+        flpFirma.Controls.Clear()
+
+        If sender Is btnVERAG Then
+            addBtn(flpFirma, "F", "VERAG", "VERAG", False)
+
+            addBtn(flpFirma, "N", "SBG", "VERAG Salzburg")
+            addBtn(flpFirma, "N", "WAI", "VERAG Waidhaus")
+            addBtn(flpFirma, "N", "NKD", "VERAG Nickelsdorf")
+            addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus")
+
+            addBtn(flpFirma, "A", "FISK", "VERAG Fiskal")
+
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERAG' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "VERAG")
+                Next
+            End If
+        ElseIf sender Is btnIMEX Then
+            addBtn(flpFirma, "F", "IMEX", "IMEX", False)
+
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='IMEX' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "IMEX")
+                Next
+            End If
+        ElseIf sender Is btnUNIPED Then
+            addBtn(flpFirma, "F", "UNISPED", "UNISPED", True)
+
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='UNISPED' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "IMEX")
+                Next
+            End If
+        ElseIf sender Is btnFrontoffice Then
+            addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
+        ElseIf sender Is btnATILLA Then
+            addBtn(flpFirma, "F", "ATILLA", "ATILLA", True)
+        ElseIf sender Is btnVERIMEX Then
+            'addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)
+            Dim whereTeams = ""
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then whereTeams = " AND team_bezeichnung='TEAM EXPORT' "
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERIMEX' " & whereTeams & " order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "VERIMEX")
+                Next
+            End If
+        ElseIf sender Is btnAMBAR Then
+            addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
+
+        End If
+
+        initButtonsTop(sender)
+    End Sub
+
+    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
+        initDGV()
+    End Sub
+
+    Sub initDGV()
+        If Not loaded Then Exit Sub
+        With dgvMitarbeiter
+            Dim FirmaTMP = "" ' MyComboBox1._value
+            Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as mit_firma,[mit_teamId],team_bezeichnung as Team  "
+            sqlStr &= " FROM [tblMitarbeiter] left join tblteams on team_id=mit_teamid "
+            sqlStr &= " WHERE  mit_gekuendigt=0 AND /*mit_abteilung IN ('QS','ZOLL','DISPO') AND*/ [mit_TESTonly]=0 AND [mit_pseudoUser]=0 AND [mit_ChatBenutzer]=1 "
+            ' If MyComboBox1._value <> "" Then sqlStr &= " AND  mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')"
+            If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )"
+
+            sqlStr &= " order by mit_nname,mit_vname"
+
+            .DataSource = SQL.loadDgvBySql(sqlStr, "ADMIN")
+
+            If .Columns.Count = 0 Then Exit Sub
+
+            .Columns("mit_teamId").Visible = False
+            .Columns("mit_id").Visible = False
+            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
+        End With
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
+        initDGV()
+    End Sub
+
+
+
+    Private Sub dgvMitarbeiter_SelectionChanged(sender As Object, e As EventArgs) Handles dgvMitarbeiter.SelectionChanged
+        btnBenutzer.Enabled = False
+        btnTeam.Enabled = False
+
+        If dgvMitarbeiter.SelectedRows.Count > 0 Then
+            '  btnBenutzer.Enabled = True
+            If dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value IsNot DBNull.Value AndAlso dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value > 0 Then
+                btnBenutzer.Enabled = False
+                btnTeam.Enabled = True
+            End If
+        Else
+        End If
+    End Sub
+
+    Private Sub btnTeam_Click(sender As Object, e As EventArgs) Handles btnTeam.Click
+        If dgvMitarbeiter.SelectedRows.Count > 0 Then
+            If dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value IsNot DBNull.Value AndAlso dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value > 0 Then
+                btnWeiterleitung_Clicked("T", dgvMitarbeiter.SelectedRows(0).Cells("mit_teamId").Value, dgvMitarbeiter.SelectedRows(0).Cells("Team").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value)
+            End If
+        End If
+    End Sub
+
+    Private Sub btnBenutzer_Click(sender As Object, e As EventArgs) Handles btnBenutzer.Click
+        If dgvMitarbeiter.SelectedRows.Count > 0 Then
+            btnWeiterleitung_Clicked("B", dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value)
+        End If
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim fd As New OpenFileDialog
+        '  fd.Filter = "Excel Dateien|*.xls;*.xlsx"
+        fd.RestoreDirectory = True
+        fd.Title = "Datei auswählen"
+        fd.Multiselect = True
+        ' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
+
+        'fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
+        'fd.FilterIndex = 2
+
+        If fd.ShowDialog() = DialogResult.OK And fd.FileName <> "" Then
+            ' saveFileAtt(fd.FileName) 
+
+            For Each fileTMp In fd.FileNames
+                If Not fileTMp.EndsWith(".exe") Then
+                    dgvAnmhaenge.Rows.Add({fileTMp, New IO.FileInfo(fileTMp).Name})
+                End If
+            Next
+            'Dim docId = -1
+            'If saveToDS(fileName, fd.FileName, docId) Then
+
+            '    Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+            '    MSG.chatMg_type = "ATTACHMENT"
+            '    MSG.chatMg_text = fileName
+            '    MSG.chatMg_anhang_docId = docId
+            '    MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
+            '    MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+            '    If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
+            '        SEND_TOKEN_NEW_MESSAGE()
+            '        ' CHAT.CHAT_MESSAGES.Add(MSG)
+            '        SET_ALL_READ()
+            '        REFRESH_CHAT()
+            '        rtbChatMessage.Text = ""
+            '        rtbChatMessage.Focus()
+            '    End If
+            ' End If
+        End If
+        dgvAnmhaenge.ClearSelection()
+    End Sub
+
+End Class

Aviso/Benachrichtigung/frmAvisoWeiterleitenBestaetigen.Designer.vb

@@ -0,0 +1,228 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmAvisoWeiterleitenBestaetigen
+    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()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.dgvAnmhaenge = New System.Windows.Forms.DataGridView()
+        Me.clmnAnhFilePath = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnAnhFileName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.lblDatUhrzeit = New System.Windows.Forms.Label()
+        Me.lblArt = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.rtbVermerk = New System.Windows.Forms.RichTextBox()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.lblName = New System.Windows.Forms.Label()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.pnl.SuspendLayout()
+        CType(Me.dgvAnmhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Label7)
+        Me.pnl.Controls.Add(Me.dgvAnmhaenge)
+        Me.pnl.Controls.Add(Me.lblDatUhrzeit)
+        Me.pnl.Controls.Add(Me.lblArt)
+        Me.pnl.Controls.Add(Me.Label2)
+        Me.pnl.Controls.Add(Me.Label1)
+        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Controls.Add(Me.rtbVermerk)
+        Me.pnl.Controls.Add(Me.btn)
+        Me.pnl.Controls.Add(Me.lblName)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(460, 256)
+        Me.pnl.TabIndex = 0
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(11, 170)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(53, 13)
+        Me.Label7.TabIndex = 20
+        Me.Label7.Text = "Anhänge:"
+        '
+        'dgvAnmhaenge
+        '
+        Me.dgvAnmhaenge.AllowUserToAddRows = False
+        Me.dgvAnmhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnmhaenge.AllowUserToResizeRows = False
+        Me.dgvAnmhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnmhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnmhaenge.ColumnHeadersVisible = False
+        Me.dgvAnmhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAnhFilePath, Me.clmnAnhFileName})
+        Me.dgvAnmhaenge.Location = New System.Drawing.Point(11, 186)
+        Me.dgvAnmhaenge.MultiSelect = False
+        Me.dgvAnmhaenge.Name = "dgvAnmhaenge"
+        Me.dgvAnmhaenge.ReadOnly = True
+        Me.dgvAnmhaenge.RowHeadersVisible = False
+        Me.dgvAnmhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnmhaenge.Size = New System.Drawing.Size(301, 56)
+        Me.dgvAnmhaenge.TabIndex = 19
+        '
+        'clmnAnhFilePath
+        '
+        Me.clmnAnhFilePath.HeaderText = "Column1"
+        Me.clmnAnhFilePath.Name = "clmnAnhFilePath"
+        Me.clmnAnhFilePath.ReadOnly = True
+        Me.clmnAnhFilePath.Visible = False
+        '
+        'clmnAnhFileName
+        '
+        Me.clmnAnhFileName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnAnhFileName.HeaderText = "Datei"
+        Me.clmnAnhFileName.Name = "clmnAnhFileName"
+        Me.clmnAnhFileName.ReadOnly = True
+        '
+        'lblDatUhrzeit
+        '
+        Me.lblDatUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblDatUhrzeit.Location = New System.Drawing.Point(270, 10)
+        Me.lblDatUhrzeit.Name = "lblDatUhrzeit"
+        Me.lblDatUhrzeit.Size = New System.Drawing.Size(177, 13)
+        Me.lblDatUhrzeit.TabIndex = 8
+        Me.lblDatUhrzeit.Text = "01.01.2020 10:00"
+        Me.lblDatUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblArt
+        '
+        Me.lblArt.AutoSize = True
+        Me.lblArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.lblArt.Location = New System.Drawing.Point(11, 8)
+        Me.lblArt.Name = "lblArt"
+        Me.lblArt.Size = New System.Drawing.Size(84, 17)
+        Me.lblArt.TabIndex = 5
+        Me.lblArt.Text = "SENDUNG"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(151, 10)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(79, 13)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "Datum/Uhrzeit:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(151, 26)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(96, 13)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Weitergeleitet von:"
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(11, 57)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(49, 13)
+        Me.lbl.TabIndex = 2
+        Me.lbl.Text = "Vermerk:"
+        '
+        'rtbVermerk
+        '
+        Me.rtbVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtbVermerk.Location = New System.Drawing.Point(11, 73)
+        Me.rtbVermerk.Name = "rtbVermerk"
+        Me.rtbVermerk.ReadOnly = True
+        Me.rtbVermerk.Size = New System.Drawing.Size(436, 94)
+        Me.rtbVermerk.TabIndex = 1
+        Me.rtbVermerk.Text = ""
+        '
+        'btn
+        '
+        Me.btn.BackColor = System.Drawing.Color.SteelBlue
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(318, 186)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(129, 56)
+        Me.btn.TabIndex = 0
+        Me.btn.Text = "OK"
+        Me.btn.UseVisualStyleBackColor = False
+        '
+        'lblName
+        '
+        Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblName.Location = New System.Drawing.Point(253, 26)
+        Me.lblName.Name = "lblName"
+        Me.lblName.Size = New System.Drawing.Size(194, 29)
+        Me.lblName.TabIndex = 7
+        Me.lblName.Text = "Maximilian Mustermann (VERAG)"
+        Me.lblName.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'DataGridViewTextBoxColumn1
+        '
+        Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        Me.DataGridViewTextBoxColumn1.Visible = False
+        '
+        'DataGridViewTextBoxColumn2
+        '
+        Me.DataGridViewTextBoxColumn2.HeaderText = "Datei"
+        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+        '
+        'frmAvisoWeiterleitenBestaetigen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(460, 256)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "frmAvisoWeiterleitenBestaetigen"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Bestätigen"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.dgvAnmhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents lblArt As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents lbl As Label
+    Friend WithEvents rtbVermerk As RichTextBox
+    Friend WithEvents btn As Button
+    Friend WithEvents lblDatUhrzeit As Label
+    Friend WithEvents lblName As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents dgvAnmhaenge As DataGridView
+    Friend WithEvents clmnAnhFilePath As DataGridViewTextBoxColumn
+    Friend WithEvents clmnAnhFileName As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
+End Class

Aviso/Benachrichtigung/frmAvisoWeiterleitenBestaetigen.resx

@@ -0,0 +1,126 @@
+<?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="clmnAnhFilePath.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnAnhFileName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>

Aviso/Benachrichtigung/frmAvisoWeiterleitenBestaetigen.vb

@@ -0,0 +1,63 @@
+Public Class frmAvisoWeiterleitenBestaetigen
+
+    Dim AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen = Nothing
+
+    Sub New(AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AB = AB
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(ABId)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AB = New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(ABId)
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Private Sub frmAvisoWeiterleitenBestaetigen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If AB IsNot Nothing Then
+
+            rtbVermerk.Text = AB.ab_Vermerk
+            lblName.Text = AB.ab_Mitarbeiter
+            lblDatUhrzeit.Text = AB.ab_Datum.ToShortDateString & "  " & AB.ab_Datum.ToShortTimeString
+
+            If AB.ab_Art = "A" Then lblArt.Text = "LKW"
+
+            If AB.ab_collAnhId <> "" Then
+                Dim split = AB.ab_collAnhId.ToString.Split(";")
+                For Each s In split
+                    Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(s)
+                    If ANH IsNot Nothing Then
+                        dgvAnmhaenge.Rows.Add({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.anh_docId), ANH.anh_Name})
+                    End If
+
+                Next
+            End If
+        End If
+        dgvAnmhaenge.ClearSelection()
+
+    End Sub
+
+    Private Sub dgvAnmhaenge_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnmhaenge.CellContentDoubleClick, dgvAnmhaenge.CellDoubleClick
+        If dgvAnmhaenge.SelectedRows.Count > 0 Then
+            'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(ANH.anh_docId)
+            'DS.GET_TOP1_PATH()
+            Try
+                Process.Start(dgvAnmhaenge.SelectedRows(0).Cells(0).Value)
+            Catch ex As Exception
+                MsgBox(ex.Message & ex.StackTrace)
+            End Try
+        End If
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Me.Close()
+    End Sub
+End Class

Aviso/Benachrichtigung/frmAvisoWeiterleitenOLD.Designer.vb

@@ -0,0 +1,955 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmAvisoWeiterleitenOLD
+    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()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoWeiterleitenOLD))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.btnVERAG = New System.Windows.Forms.Button()
+        Me.btnIMEX = New System.Windows.Forms.Button()
+        Me.btnUNIPED = New System.Windows.Forms.Button()
+        Me.Button9 = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.flpFirma = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.MyFlowLayoutPanel3 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.MyFlowLayoutPanel4 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.Button13 = New System.Windows.Forms.Button()
+        Me.MyFlowLayoutPanel2 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.flpAbteilung = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.MyFlowLayoutPanel6 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.MyFlowLayoutPanel7 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button14 = New System.Windows.Forms.Button()
+        Me.Button15 = New System.Windows.Forms.Button()
+        Me.Button16 = New System.Windows.Forms.Button()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.MyFlowLayoutPanel8 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button18 = New System.Windows.Forms.Button()
+        Me.Button19 = New System.Windows.Forms.Button()
+        Me.Button20 = New System.Windows.Forms.Button()
+        Me.Button21 = New System.Windows.Forms.Button()
+        Me.Panel5 = New System.Windows.Forms.Panel()
+        Me.flpNiederlassung = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Panel6 = New System.Windows.Forms.Panel()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.MyFlowLayoutPanel10 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.MyFlowLayoutPanel11 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button22 = New System.Windows.Forms.Button()
+        Me.Button23 = New System.Windows.Forms.Button()
+        Me.Button24 = New System.Windows.Forms.Button()
+        Me.Button25 = New System.Windows.Forms.Button()
+        Me.MyFlowLayoutPanel12 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button26 = New System.Windows.Forms.Button()
+        Me.Button27 = New System.Windows.Forms.Button()
+        Me.Button28 = New System.Windows.Forms.Button()
+        Me.Button29 = New System.Windows.Forms.Button()
+        Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.flpTeams = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Panel8 = New System.Windows.Forms.Panel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.MyFlowLayoutPanel14 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.MyFlowLayoutPanel15 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button30 = New System.Windows.Forms.Button()
+        Me.Button31 = New System.Windows.Forms.Button()
+        Me.Button32 = New System.Windows.Forms.Button()
+        Me.Button33 = New System.Windows.Forms.Button()
+        Me.MyFlowLayoutPanel16 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.Button34 = New System.Windows.Forms.Button()
+        Me.Button35 = New System.Windows.Forms.Button()
+        Me.Button36 = New System.Windows.Forms.Button()
+        Me.Button37 = New System.Windows.Forms.Button()
+        Me.pnl.SuspendLayout()
+        Me.MyFlowLayoutPanel1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.MyFlowLayoutPanel4.SuspendLayout()
+        Me.MyFlowLayoutPanel2.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        Me.MyFlowLayoutPanel7.SuspendLayout()
+        Me.MyFlowLayoutPanel8.SuspendLayout()
+        Me.Panel5.SuspendLayout()
+        Me.Panel6.SuspendLayout()
+        Me.MyFlowLayoutPanel11.SuspendLayout()
+        Me.MyFlowLayoutPanel12.SuspendLayout()
+        Me.Panel7.SuspendLayout()
+        Me.Panel8.SuspendLayout()
+        Me.MyFlowLayoutPanel15.SuspendLayout()
+        Me.MyFlowLayoutPanel16.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Controls.Add(Me.Button3)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(802, 43)
+        Me.pnl.TabIndex = 0
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(12, 9)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(207, 13)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "Bitte geben Sie das Weiterleitungs-Ziel an:"
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button3.Location = New System.Drawing.Point(397, 106)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(191, 42)
+        Me.Button3.TabIndex = 6
+        Me.Button3.Text = "UNISPED"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'MyFlowLayoutPanel1
+        '
+        Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVERAG)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnUNIPED)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnIMEX)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.Button9)
+        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 43)
+        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(802, 57)
+        Me.MyFlowLayoutPanel1.TabIndex = 9
+        '
+        'btnVERAG
+        '
+        Me.btnVERAG.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnVERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnVERAG.Location = New System.Drawing.Point(3, 3)
+        Me.btnVERAG.Name = "btnVERAG"
+        Me.btnVERAG.Size = New System.Drawing.Size(191, 42)
+        Me.btnVERAG.TabIndex = 4
+        Me.btnVERAG.Text = "VERAG"
+        Me.btnVERAG.UseVisualStyleBackColor = True
+        '
+        'btnIMEX
+        '
+        Me.btnIMEX.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnIMEX.Location = New System.Drawing.Point(397, 3)
+        Me.btnIMEX.Name = "btnIMEX"
+        Me.btnIMEX.Size = New System.Drawing.Size(191, 42)
+        Me.btnIMEX.TabIndex = 5
+        Me.btnIMEX.Text = "IMEX"
+        Me.btnIMEX.UseVisualStyleBackColor = True
+        '
+        'btnUNIPED
+        '
+        Me.btnUNIPED.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnUNIPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnUNIPED.Location = New System.Drawing.Point(200, 3)
+        Me.btnUNIPED.Name = "btnUNIPED"
+        Me.btnUNIPED.Size = New System.Drawing.Size(191, 42)
+        Me.btnUNIPED.TabIndex = 7
+        Me.btnUNIPED.Text = "UNISPED"
+        Me.btnUNIPED.UseVisualStyleBackColor = True
+        '
+        'Button9
+        '
+        Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button9.Location = New System.Drawing.Point(594, 3)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(191, 42)
+        Me.Button9.TabIndex = 8
+        Me.Button9.Text = "FRONTOFFICE"
+        Me.Button9.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.flpFirma)
+        Me.Panel1.Controls.Add(Me.Panel3)
+        Me.Panel1.Controls.Add(Me.MyFlowLayoutPanel2)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel1.Location = New System.Drawing.Point(0, 100)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(200, 431)
+        Me.Panel1.TabIndex = 10
+        '
+        'flpFirma
+        '
+        Me.flpFirma.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.flpFirma.Location = New System.Drawing.Point(0, 28)
+        Me.flpFirma.Name = "flpFirma"
+        Me.flpFirma.Size = New System.Drawing.Size(198, 401)
+        Me.flpFirma.TabIndex = 1
+        '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.Label1)
+        Me.Panel3.Controls.Add(Me.MyFlowLayoutPanel3)
+        Me.Panel3.Controls.Add(Me.MyFlowLayoutPanel4)
+        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(198, 28)
+        Me.Panel3.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.Label1.Location = New System.Drawing.Point(3, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(53, 17)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "Firma:"
+        '
+        'MyFlowLayoutPanel3
+        '
+        Me.MyFlowLayoutPanel3.Location = New System.Drawing.Point(170, 93)
+        Me.MyFlowLayoutPanel3.Name = "MyFlowLayoutPanel3"
+        Me.MyFlowLayoutPanel3.Size = New System.Drawing.Size(593, 431)
+        Me.MyFlowLayoutPanel3.TabIndex = 1
+        '
+        'MyFlowLayoutPanel4
+        '
+        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button10)
+        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button11)
+        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button12)
+        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button13)
+        Me.MyFlowLayoutPanel4.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel4.Name = "MyFlowLayoutPanel4"
+        Me.MyFlowLayoutPanel4.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel4.TabIndex = 1
+        '
+        'Button10
+        '
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button10.Location = New System.Drawing.Point(3, 3)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(191, 42)
+        Me.Button10.TabIndex = 3
+        Me.Button10.Text = "TEAM"
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button11.Location = New System.Drawing.Point(3, 51)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(191, 42)
+        Me.Button11.TabIndex = 1
+        Me.Button11.Text = "NIEDERLASSUNG"
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'Button12
+        '
+        Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button12.Location = New System.Drawing.Point(3, 99)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(191, 42)
+        Me.Button12.TabIndex = 2
+        Me.Button12.Text = "ABTEILUNG"
+        Me.Button12.UseVisualStyleBackColor = True
+        Me.Button12.Visible = False
+        '
+        'Button13
+        '
+        Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button13.Location = New System.Drawing.Point(3, 147)
+        Me.Button13.Name = "Button13"
+        Me.Button13.Size = New System.Drawing.Size(191, 42)
+        Me.Button13.TabIndex = 4
+        Me.Button13.Text = "FIRMA"
+        Me.Button13.UseVisualStyleBackColor = True
+        '
+        'MyFlowLayoutPanel2
+        '
+        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button6)
+        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button4)
+        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button5)
+        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button7)
+        Me.MyFlowLayoutPanel2.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel2.Name = "MyFlowLayoutPanel2"
+        Me.MyFlowLayoutPanel2.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel2.TabIndex = 1
+        '
+        'Button6
+        '
+        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button6.Location = New System.Drawing.Point(3, 3)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(191, 42)
+        Me.Button6.TabIndex = 3
+        Me.Button6.Text = "TEAM"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button4.Location = New System.Drawing.Point(3, 51)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(191, 42)
+        Me.Button4.TabIndex = 1
+        Me.Button4.Text = "NIEDERLASSUNG"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button5.Location = New System.Drawing.Point(3, 99)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(191, 42)
+        Me.Button5.TabIndex = 2
+        Me.Button5.Text = "ABTEILUNG"
+        Me.Button5.UseVisualStyleBackColor = True
+        Me.Button5.Visible = False
+        '
+        'Button7
+        '
+        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button7.Location = New System.Drawing.Point(3, 147)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(191, 42)
+        Me.Button7.TabIndex = 4
+        Me.Button7.Text = "FIRMA"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.flpAbteilung)
+        Me.Panel2.Controls.Add(Me.Panel4)
+        Me.Panel2.Controls.Add(Me.MyFlowLayoutPanel8)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel2.Location = New System.Drawing.Point(200, 100)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(200, 431)
+        Me.Panel2.TabIndex = 11
+        '
+        'flpAbteilung
+        '
+        Me.flpAbteilung.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.flpAbteilung.Location = New System.Drawing.Point(0, 28)
+        Me.flpAbteilung.Name = "flpAbteilung"
+        Me.flpAbteilung.Size = New System.Drawing.Size(198, 401)
+        Me.flpAbteilung.TabIndex = 1
+        '
+        'Panel4
+        '
+        Me.Panel4.Controls.Add(Me.Label2)
+        Me.Panel4.Controls.Add(Me.MyFlowLayoutPanel6)
+        Me.Panel4.Controls.Add(Me.MyFlowLayoutPanel7)
+        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel4.Location = New System.Drawing.Point(0, 0)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(198, 28)
+        Me.Panel4.TabIndex = 2
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.Label2.Location = New System.Drawing.Point(3, 6)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(81, 17)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "Abteilung:"
+        '
+        'MyFlowLayoutPanel6
+        '
+        Me.MyFlowLayoutPanel6.Location = New System.Drawing.Point(170, 93)
+        Me.MyFlowLayoutPanel6.Name = "MyFlowLayoutPanel6"
+        Me.MyFlowLayoutPanel6.Size = New System.Drawing.Size(593, 431)
+        Me.MyFlowLayoutPanel6.TabIndex = 1
+        '
+        'MyFlowLayoutPanel7
+        '
+        Me.MyFlowLayoutPanel7.Controls.Add(Me.Button14)
+        Me.MyFlowLayoutPanel7.Controls.Add(Me.Button15)
+        Me.MyFlowLayoutPanel7.Controls.Add(Me.Button16)
+        Me.MyFlowLayoutPanel7.Controls.Add(Me.Button17)
+        Me.MyFlowLayoutPanel7.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel7.Name = "MyFlowLayoutPanel7"
+        Me.MyFlowLayoutPanel7.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel7.TabIndex = 1
+        '
+        'Button14
+        '
+        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button14.Location = New System.Drawing.Point(3, 3)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(191, 42)
+        Me.Button14.TabIndex = 3
+        Me.Button14.Text = "TEAM"
+        Me.Button14.UseVisualStyleBackColor = True
+        '
+        'Button15
+        '
+        Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button15.Location = New System.Drawing.Point(3, 51)
+        Me.Button15.Name = "Button15"
+        Me.Button15.Size = New System.Drawing.Size(191, 42)
+        Me.Button15.TabIndex = 1
+        Me.Button15.Text = "NIEDERLASSUNG"
+        Me.Button15.UseVisualStyleBackColor = True
+        '
+        'Button16
+        '
+        Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button16.Location = New System.Drawing.Point(3, 99)
+        Me.Button16.Name = "Button16"
+        Me.Button16.Size = New System.Drawing.Size(191, 42)
+        Me.Button16.TabIndex = 2
+        Me.Button16.Text = "ABTEILUNG"
+        Me.Button16.UseVisualStyleBackColor = True
+        Me.Button16.Visible = False
+        '
+        'Button17
+        '
+        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button17.Location = New System.Drawing.Point(3, 147)
+        Me.Button17.Name = "Button17"
+        Me.Button17.Size = New System.Drawing.Size(191, 42)
+        Me.Button17.TabIndex = 4
+        Me.Button17.Text = "FIRMA"
+        Me.Button17.UseVisualStyleBackColor = True
+        '
+        'MyFlowLayoutPanel8
+        '
+        Me.MyFlowLayoutPanel8.Controls.Add(Me.Button18)
+        Me.MyFlowLayoutPanel8.Controls.Add(Me.Button19)
+        Me.MyFlowLayoutPanel8.Controls.Add(Me.Button20)
+        Me.MyFlowLayoutPanel8.Controls.Add(Me.Button21)
+        Me.MyFlowLayoutPanel8.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel8.Name = "MyFlowLayoutPanel8"
+        Me.MyFlowLayoutPanel8.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel8.TabIndex = 1
+        '
+        'Button18
+        '
+        Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button18.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button18.Location = New System.Drawing.Point(3, 3)
+        Me.Button18.Name = "Button18"
+        Me.Button18.Size = New System.Drawing.Size(191, 42)
+        Me.Button18.TabIndex = 3
+        Me.Button18.Text = "TEAM"
+        Me.Button18.UseVisualStyleBackColor = True
+        '
+        'Button19
+        '
+        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button19.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button19.Location = New System.Drawing.Point(3, 51)
+        Me.Button19.Name = "Button19"
+        Me.Button19.Size = New System.Drawing.Size(191, 42)
+        Me.Button19.TabIndex = 1
+        Me.Button19.Text = "NIEDERLASSUNG"
+        Me.Button19.UseVisualStyleBackColor = True
+        '
+        'Button20
+        '
+        Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button20.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button20.Location = New System.Drawing.Point(3, 99)
+        Me.Button20.Name = "Button20"
+        Me.Button20.Size = New System.Drawing.Size(191, 42)
+        Me.Button20.TabIndex = 2
+        Me.Button20.Text = "ABTEILUNG"
+        Me.Button20.UseVisualStyleBackColor = True
+        Me.Button20.Visible = False
+        '
+        'Button21
+        '
+        Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button21.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button21.Location = New System.Drawing.Point(3, 147)
+        Me.Button21.Name = "Button21"
+        Me.Button21.Size = New System.Drawing.Size(191, 42)
+        Me.Button21.TabIndex = 4
+        Me.Button21.Text = "FIRMA"
+        Me.Button21.UseVisualStyleBackColor = True
+        '
+        'Panel5
+        '
+        Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel5.Controls.Add(Me.flpNiederlassung)
+        Me.Panel5.Controls.Add(Me.Panel6)
+        Me.Panel5.Controls.Add(Me.MyFlowLayoutPanel12)
+        Me.Panel5.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel5.Location = New System.Drawing.Point(400, 100)
+        Me.Panel5.Name = "Panel5"
+        Me.Panel5.Size = New System.Drawing.Size(200, 431)
+        Me.Panel5.TabIndex = 12
+        '
+        'flpNiederlassung
+        '
+        Me.flpNiederlassung.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.flpNiederlassung.Location = New System.Drawing.Point(0, 28)
+        Me.flpNiederlassung.Name = "flpNiederlassung"
+        Me.flpNiederlassung.Size = New System.Drawing.Size(198, 401)
+        Me.flpNiederlassung.TabIndex = 1
+        '
+        'Panel6
+        '
+        Me.Panel6.Controls.Add(Me.Label3)
+        Me.Panel6.Controls.Add(Me.MyFlowLayoutPanel10)
+        Me.Panel6.Controls.Add(Me.MyFlowLayoutPanel11)
+        Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel6.Location = New System.Drawing.Point(0, 0)
+        Me.Panel6.Name = "Panel6"
+        Me.Panel6.Size = New System.Drawing.Size(198, 28)
+        Me.Panel6.TabIndex = 2
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.Label3.Location = New System.Drawing.Point(3, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(112, 17)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Niederlassung"
+        '
+        'MyFlowLayoutPanel10
+        '
+        Me.MyFlowLayoutPanel10.Location = New System.Drawing.Point(170, 93)
+        Me.MyFlowLayoutPanel10.Name = "MyFlowLayoutPanel10"
+        Me.MyFlowLayoutPanel10.Size = New System.Drawing.Size(593, 431)
+        Me.MyFlowLayoutPanel10.TabIndex = 1
+        '
+        'MyFlowLayoutPanel11
+        '
+        Me.MyFlowLayoutPanel11.Controls.Add(Me.Button22)
+        Me.MyFlowLayoutPanel11.Controls.Add(Me.Button23)
+        Me.MyFlowLayoutPanel11.Controls.Add(Me.Button24)
+        Me.MyFlowLayoutPanel11.Controls.Add(Me.Button25)
+        Me.MyFlowLayoutPanel11.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel11.Name = "MyFlowLayoutPanel11"
+        Me.MyFlowLayoutPanel11.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel11.TabIndex = 1
+        '
+        'Button22
+        '
+        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button22.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button22.Location = New System.Drawing.Point(3, 3)
+        Me.Button22.Name = "Button22"
+        Me.Button22.Size = New System.Drawing.Size(191, 42)
+        Me.Button22.TabIndex = 3
+        Me.Button22.Text = "TEAM"
+        Me.Button22.UseVisualStyleBackColor = True
+        '
+        'Button23
+        '
+        Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button23.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button23.Location = New System.Drawing.Point(3, 51)
+        Me.Button23.Name = "Button23"
+        Me.Button23.Size = New System.Drawing.Size(191, 42)
+        Me.Button23.TabIndex = 1
+        Me.Button23.Text = "NIEDERLASSUNG"
+        Me.Button23.UseVisualStyleBackColor = True
+        '
+        'Button24
+        '
+        Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button24.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button24.Location = New System.Drawing.Point(3, 99)
+        Me.Button24.Name = "Button24"
+        Me.Button24.Size = New System.Drawing.Size(191, 42)
+        Me.Button24.TabIndex = 2
+        Me.Button24.Text = "ABTEILUNG"
+        Me.Button24.UseVisualStyleBackColor = True
+        Me.Button24.Visible = False
+        '
+        'Button25
+        '
+        Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button25.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button25.Location = New System.Drawing.Point(3, 147)
+        Me.Button25.Name = "Button25"
+        Me.Button25.Size = New System.Drawing.Size(191, 42)
+        Me.Button25.TabIndex = 4
+        Me.Button25.Text = "FIRMA"
+        Me.Button25.UseVisualStyleBackColor = True
+        '
+        'MyFlowLayoutPanel12
+        '
+        Me.MyFlowLayoutPanel12.Controls.Add(Me.Button26)
+        Me.MyFlowLayoutPanel12.Controls.Add(Me.Button27)
+        Me.MyFlowLayoutPanel12.Controls.Add(Me.Button28)
+        Me.MyFlowLayoutPanel12.Controls.Add(Me.Button29)
+        Me.MyFlowLayoutPanel12.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel12.Name = "MyFlowLayoutPanel12"
+        Me.MyFlowLayoutPanel12.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel12.TabIndex = 1
+        '
+        'Button26
+        '
+        Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button26.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button26.Location = New System.Drawing.Point(3, 3)
+        Me.Button26.Name = "Button26"
+        Me.Button26.Size = New System.Drawing.Size(191, 42)
+        Me.Button26.TabIndex = 3
+        Me.Button26.Text = "TEAM"
+        Me.Button26.UseVisualStyleBackColor = True
+        '
+        'Button27
+        '
+        Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button27.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button27.Location = New System.Drawing.Point(3, 51)
+        Me.Button27.Name = "Button27"
+        Me.Button27.Size = New System.Drawing.Size(191, 42)
+        Me.Button27.TabIndex = 1
+        Me.Button27.Text = "NIEDERLASSUNG"
+        Me.Button27.UseVisualStyleBackColor = True
+        '
+        'Button28
+        '
+        Me.Button28.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button28.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button28.Location = New System.Drawing.Point(3, 99)
+        Me.Button28.Name = "Button28"
+        Me.Button28.Size = New System.Drawing.Size(191, 42)
+        Me.Button28.TabIndex = 2
+        Me.Button28.Text = "ABTEILUNG"
+        Me.Button28.UseVisualStyleBackColor = True
+        Me.Button28.Visible = False
+        '
+        'Button29
+        '
+        Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button29.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button29.Location = New System.Drawing.Point(3, 147)
+        Me.Button29.Name = "Button29"
+        Me.Button29.Size = New System.Drawing.Size(191, 42)
+        Me.Button29.TabIndex = 4
+        Me.Button29.Text = "FIRMA"
+        Me.Button29.UseVisualStyleBackColor = True
+        '
+        'Panel7
+        '
+        Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel7.Controls.Add(Me.flpTeams)
+        Me.Panel7.Controls.Add(Me.Panel8)
+        Me.Panel7.Controls.Add(Me.MyFlowLayoutPanel16)
+        Me.Panel7.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel7.Location = New System.Drawing.Point(600, 100)
+        Me.Panel7.Name = "Panel7"
+        Me.Panel7.Size = New System.Drawing.Size(200, 431)
+        Me.Panel7.TabIndex = 13
+        '
+        'flpTeams
+        '
+        Me.flpTeams.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.flpTeams.Location = New System.Drawing.Point(0, 28)
+        Me.flpTeams.Name = "flpTeams"
+        Me.flpTeams.Size = New System.Drawing.Size(198, 401)
+        Me.flpTeams.TabIndex = 1
+        '
+        'Panel8
+        '
+        Me.Panel8.Controls.Add(Me.Label4)
+        Me.Panel8.Controls.Add(Me.MyFlowLayoutPanel14)
+        Me.Panel8.Controls.Add(Me.MyFlowLayoutPanel15)
+        Me.Panel8.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel8.Location = New System.Drawing.Point(0, 0)
+        Me.Panel8.Name = "Panel8"
+        Me.Panel8.Size = New System.Drawing.Size(198, 28)
+        Me.Panel8.TabIndex = 2
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.Label4.Location = New System.Drawing.Point(3, 6)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(53, 17)
+        Me.Label4.TabIndex = 2
+        Me.Label4.Text = "Team:"
+        '
+        'MyFlowLayoutPanel14
+        '
+        Me.MyFlowLayoutPanel14.Location = New System.Drawing.Point(170, 93)
+        Me.MyFlowLayoutPanel14.Name = "MyFlowLayoutPanel14"
+        Me.MyFlowLayoutPanel14.Size = New System.Drawing.Size(593, 431)
+        Me.MyFlowLayoutPanel14.TabIndex = 1
+        '
+        'MyFlowLayoutPanel15
+        '
+        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button30)
+        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button31)
+        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button32)
+        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button33)
+        Me.MyFlowLayoutPanel15.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel15.Name = "MyFlowLayoutPanel15"
+        Me.MyFlowLayoutPanel15.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel15.TabIndex = 1
+        '
+        'Button30
+        '
+        Me.Button30.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button30.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button30.Location = New System.Drawing.Point(3, 3)
+        Me.Button30.Name = "Button30"
+        Me.Button30.Size = New System.Drawing.Size(191, 42)
+        Me.Button30.TabIndex = 3
+        Me.Button30.Text = "TEAM"
+        Me.Button30.UseVisualStyleBackColor = True
+        '
+        'Button31
+        '
+        Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button31.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button31.Location = New System.Drawing.Point(3, 51)
+        Me.Button31.Name = "Button31"
+        Me.Button31.Size = New System.Drawing.Size(191, 42)
+        Me.Button31.TabIndex = 1
+        Me.Button31.Text = "NIEDERLASSUNG"
+        Me.Button31.UseVisualStyleBackColor = True
+        '
+        'Button32
+        '
+        Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button32.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button32.Location = New System.Drawing.Point(3, 99)
+        Me.Button32.Name = "Button32"
+        Me.Button32.Size = New System.Drawing.Size(191, 42)
+        Me.Button32.TabIndex = 2
+        Me.Button32.Text = "ABTEILUNG"
+        Me.Button32.UseVisualStyleBackColor = True
+        Me.Button32.Visible = False
+        '
+        'Button33
+        '
+        Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button33.Location = New System.Drawing.Point(3, 147)
+        Me.Button33.Name = "Button33"
+        Me.Button33.Size = New System.Drawing.Size(191, 42)
+        Me.Button33.TabIndex = 4
+        Me.Button33.Text = "FIRMA"
+        Me.Button33.UseVisualStyleBackColor = True
+        '
+        'MyFlowLayoutPanel16
+        '
+        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button34)
+        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button35)
+        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button36)
+        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button37)
+        Me.MyFlowLayoutPanel16.Location = New System.Drawing.Point(57, 265)
+        Me.MyFlowLayoutPanel16.Name = "MyFlowLayoutPanel16"
+        Me.MyFlowLayoutPanel16.Size = New System.Drawing.Size(200, 431)
+        Me.MyFlowLayoutPanel16.TabIndex = 1
+        '
+        'Button34
+        '
+        Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button34.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button34.Location = New System.Drawing.Point(3, 3)
+        Me.Button34.Name = "Button34"
+        Me.Button34.Size = New System.Drawing.Size(191, 42)
+        Me.Button34.TabIndex = 3
+        Me.Button34.Text = "TEAM"
+        Me.Button34.UseVisualStyleBackColor = True
+        '
+        'Button35
+        '
+        Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button35.Location = New System.Drawing.Point(3, 51)
+        Me.Button35.Name = "Button35"
+        Me.Button35.Size = New System.Drawing.Size(191, 42)
+        Me.Button35.TabIndex = 1
+        Me.Button35.Text = "NIEDERLASSUNG"
+        Me.Button35.UseVisualStyleBackColor = True
+        '
+        'Button36
+        '
+        Me.Button36.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button36.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button36.Location = New System.Drawing.Point(3, 99)
+        Me.Button36.Name = "Button36"
+        Me.Button36.Size = New System.Drawing.Size(191, 42)
+        Me.Button36.TabIndex = 2
+        Me.Button36.Text = "ABTEILUNG"
+        Me.Button36.UseVisualStyleBackColor = True
+        Me.Button36.Visible = False
+        '
+        'Button37
+        '
+        Me.Button37.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button37.Location = New System.Drawing.Point(3, 147)
+        Me.Button37.Name = "Button37"
+        Me.Button37.Size = New System.Drawing.Size(191, 42)
+        Me.Button37.TabIndex = 4
+        Me.Button37.Text = "FIRMA"
+        Me.Button37.UseVisualStyleBackColor = True
+        '
+        'frmAvisoWeiterleiten
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(802, 531)
+        Me.Controls.Add(Me.Panel7)
+        Me.Controls.Add(Me.Panel5)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.MyFlowLayoutPanel1)
+        Me.Controls.Add(Me.pnl)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmAvisoWeiterleiten"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Weiterleiten"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        Me.MyFlowLayoutPanel1.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.MyFlowLayoutPanel4.ResumeLayout(False)
+        Me.MyFlowLayoutPanel2.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel4.ResumeLayout(False)
+        Me.Panel4.PerformLayout()
+        Me.MyFlowLayoutPanel7.ResumeLayout(False)
+        Me.MyFlowLayoutPanel8.ResumeLayout(False)
+        Me.Panel5.ResumeLayout(False)
+        Me.Panel6.ResumeLayout(False)
+        Me.Panel6.PerformLayout()
+        Me.MyFlowLayoutPanel11.ResumeLayout(False)
+        Me.MyFlowLayoutPanel12.ResumeLayout(False)
+        Me.Panel7.ResumeLayout(False)
+        Me.Panel8.ResumeLayout(False)
+        Me.Panel8.PerformLayout()
+        Me.MyFlowLayoutPanel15.ResumeLayout(False)
+        Me.MyFlowLayoutPanel16.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents lbl As Label
+    Friend WithEvents Button3 As Button
+    Friend WithEvents btnVERAG As Button
+    Friend WithEvents btnIMEX As Button
+    Friend WithEvents btnUNIPED As Button
+    Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button9 As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents flpFirma As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents Label1 As Label
+    Friend WithEvents MyFlowLayoutPanel3 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents MyFlowLayoutPanel4 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Button12 As Button
+    Friend WithEvents Button13 As Button
+    Friend WithEvents MyFlowLayoutPanel2 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button7 As Button
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents flpAbteilung As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Panel4 As Panel
+    Friend WithEvents Label2 As Label
+    Friend WithEvents MyFlowLayoutPanel6 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents MyFlowLayoutPanel7 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button14 As Button
+    Friend WithEvents Button15 As Button
+    Friend WithEvents Button16 As Button
+    Friend WithEvents Button17 As Button
+    Friend WithEvents MyFlowLayoutPanel8 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button18 As Button
+    Friend WithEvents Button19 As Button
+    Friend WithEvents Button20 As Button
+    Friend WithEvents Button21 As Button
+    Friend WithEvents Panel5 As Panel
+    Friend WithEvents flpNiederlassung As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Panel6 As Panel
+    Friend WithEvents Label3 As Label
+    Friend WithEvents MyFlowLayoutPanel10 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents MyFlowLayoutPanel11 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button22 As Button
+    Friend WithEvents Button23 As Button
+    Friend WithEvents Button24 As Button
+    Friend WithEvents Button25 As Button
+    Friend WithEvents MyFlowLayoutPanel12 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button26 As Button
+    Friend WithEvents Button27 As Button
+    Friend WithEvents Button28 As Button
+    Friend WithEvents Button29 As Button
+    Friend WithEvents Panel7 As Panel
+    Friend WithEvents flpTeams As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Panel8 As Panel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents MyFlowLayoutPanel14 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents MyFlowLayoutPanel15 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button30 As Button
+    Friend WithEvents Button31 As Button
+    Friend WithEvents Button32 As Button
+    Friend WithEvents Button33 As Button
+    Friend WithEvents MyFlowLayoutPanel16 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents Button34 As Button
+    Friend WithEvents Button35 As Button
+    Friend WithEvents Button36 As Button
+    Friend WithEvents Button37 As Button
+End Class

Aviso/Benachrichtigung/frmAvisoWeiterleitenOLD.vb

@@ -0,0 +1,210 @@
+
+
+Public Class frmAvisoWeiterleitenOLD
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim Art = "" ' A..viso oder S..endung
+    Dim AvisoId As Integer
+    Dim SendungsId As Integer
+
+    Dim ASF = New AVISO.AvisoStatusFunctions
+
+    Sub New(Art As String, AvisoId As Integer, Optional SendungsId As Integer = -1)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.Art = Art
+        Me.AvisoId = AvisoId
+        Me.SendungsId = SendungsId
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub frmAvisoWeiterleiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'tbcntr.Appearance = TabAppearance.FlatButtons
+        'tbcntr.ItemSize = New Size(0, 1)
+        'tbcntr.SizeMode = TabSizeMode.Fixed
+        'tbcntr.pa
+        Button6.PerformClick()
+    End Sub
+
+    Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs)
+
+    End Sub
+
+    Private Sub MyFlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs)
+
+    End Sub
+
+    'Private Sub Button6_Click(sender As Object, e As EventArgs)
+    '    Dim flp As FlowLayoutPanel = flpFi
+    '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
+
+    '    flp.Controls.Clear()
+
+    '    If dt Is Nothing Then Exit Sub
+
+    '    For Each t In dt.Rows
+    '        Dim btn As New Button
+    '        btn.FlatStyle = FlatStyle.Flat
+    '        btn.Size = New Size(250, 50)
+    '        btn.Font = New Font(Me.Font.FontFamily, 10, FontStyle.Regular)
+    '        btn.Text = t("team_bezeichnung")
+    '        btn.Tag = t("team_id")
+
+    '        AddHandler btn.Click, Sub()
+    '                                  btnWeiterleitung_Clicked("T", (btn.Tag), btn.Text)
+    '                                  initButtons(flp, sender)
+    '                              End Sub
+
+    '        flpFirma.Controls.Add(btn)
+
+    '    Next
+
+    'End Sub
+
+    Sub initButtons(flp As FlowLayoutPanel, b As Button)
+        For Each c In flp.Controls
+            DirectCast(c, Button).BackColor = Color.WhiteSmoke
+            DirectCast(c, Button).ForeColor = Color.Black
+        Next
+        b.BackColor = Color.FromArgb(0, 54, 128)
+        b.ForeColor = Color.White
+
+    End Sub
+
+    Sub initButtonsTop(b As Button)
+        For Each c In MyFlowLayoutPanel1.Controls
+            DirectCast(c, Button).BackColor = Color.WhiteSmoke
+            DirectCast(c, Button).ForeColor = Color.Black
+        Next
+        b.BackColor = Color.FromArgb(0, 54, 128)
+        b.ForeColor = Color.White
+
+    End Sub
+
+
+    Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String)
+        Dim text = ""
+        Dim code = 3
+        Select Case WLart
+            Case "T"
+                text = "Ins Team '" & bezeichnung & "' gegeben."
+            Case "A"
+                text = "An '" & bezeichnung & "' gegeben."
+            Case "N"
+                text = "An '" & bezeichnung & "' gegeben."
+            Case "F"
+                text = "An '" & bezeichnung & "' gegeben."
+        End Select
+
+
+        'If insertVermerke() Then
+        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, 3, WLart, id, "WL von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0)
+        If Art = "S" Then
+            ASF.insertSendungsVermerk(SendungsId, AvisoId, text, 46)
+            ASF.SendungUebernehmen_Zuruecksetzen(SendungsId, AvisoId) ' , Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False)
+        Else
+            ASF.insertVermerkAllg(AvisoId, text, 46)
+            ASF.AktUebernehmen_Zuruecksetzen(AvisoId)
+        End If
+
+        ' Me.Close()
+        '  End If
+
+        Me.Close()
+        Me.DialogResult = DialogResult.OK
+    End Sub
+
+    'Private Sub Button5_Click(sender As Object, e As EventArgs)
+    '    ' tbcntr.SelectedTab = tbAbteilung
+    '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
+
+    '    flpFirma.Controls.Clear()
+    '    addBtn("A", "FISKAL", "VERAG Fiskal")
+
+    '    initButtons(sender)
+    'End Sub
+
+    Sub addBtn(flpFirma As FlowLayoutPanel, WLart As String, id As String, bezeichnung As String, Optional enabled As Boolean = True)
+        Dim btn As New Button
+        btn.FlatStyle = FlatStyle.Flat
+        btn.Size = New Size(180, 40)
+        btn.Font = New Font(Me.Font.FontFamily, 10, FontStyle.Regular)
+        btn.Text = bezeichnung
+        btn.Tag = id
+        btn.Enabled = enabled
+
+        AddHandler btn.Click, Sub()
+                                  btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung)
+                                  initButtons(flpFirma, btn)
+                              End Sub
+
+        flpFirma.Controls.Add(btn)
+    End Sub
+
+    'Private Sub Button4_Click(sender As Object, e As EventArgs)
+    '    ' tbcntr.SelectedTab = tbAbteilung
+    '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
+
+    '    flpFirma.Controls.Clear()
+    '    addBtn("N", "SBG", "VERAG Salzburg")
+    '    addBtn("N", "WAI", "VERAG Waidhaus")
+    '    addBtn("N", "NKD", "VERAG Nickelsdorf")
+
+    '    initButtons(sender)
+    'End Sub
+
+    'Private Sub Button7_Click(sender As Object, e As EventArgs)
+    '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' order by team_id", "ADMIN")
+
+    '    flpFirma.Controls.Clear()
+    '    addBtn("F", "FRONTOFFICE", "FRONTOFFICE")
+    '    addBtn("F", "UNISPED", "UNISPED")
+
+    '    initButtons(sender)
+    'End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, Button9.Click
+        flpAbteilung.Controls.Clear()
+        flpTeams.Controls.Clear()
+        flpNiederlassung.Controls.Clear()
+        flpFirma.Controls.Clear()
+
+        If sender Is btnVERAG Then
+            addBtn(flpFirma, "F", "VERAG", "VERAG", False)
+
+            addBtn(flpNiederlassung, "N", "SBG", "VERAG Salzburg")
+            addBtn(flpNiederlassung, "N", "WAI", "VERAG Waidhaus")
+            addBtn(flpNiederlassung, "N", "NKD", "VERAG Nickelsdorf")
+
+            addBtn(flpAbteilung, "A", "FISK", "VERAG Fiskal")
+
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERAG' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"))
+                Next
+            End If
+        ElseIf sender Is btnIMEX Then
+            addBtn(flpFirma, "F", "IMEX", "IMEX", False)
+
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='IMEX' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"))
+                Next
+            End If
+        ElseIf sender Is btnUNIPED Then
+            addBtn(flpFirma, "F", "UNISPED", "UNISPED", True)
+
+        ElseIf sender Is Button9 Then
+            addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
+
+        End If
+
+        initButtonsTop(sender)
+    End Sub
+
+End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb

@@ -0,0 +1,202 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlBenachrichtigungen
+    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.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxTeams = New System.Windows.Forms.CheckBox()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.Label25 = New System.Windows.Forms.Label()
+        Me.cbxCluster = New System.Windows.Forms.CheckBox()
+        Me.Panel2.SuspendLayout()
+        CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel4.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.MyComboBox2)
+        Me.Panel2.Controls.Add(Me.gridAvisoBenachrichtigungen)
+        Me.Panel2.Controls.Add(Me.Panel4)
+        Me.Panel2.Controls.Add(Me.Panel3)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(236, 203)
+        Me.Panel2.TabIndex = 2
+        '
+        'gridAvisoBenachrichtigungen
+        '
+        Me.gridAvisoBenachrichtigungen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.gridAvisoBenachrichtigungen.AllowUserToAddRows = False
+        Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
+        Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
+        Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.Azure
+        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
+        Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridAvisoBenachrichtigungen.Location = New System.Drawing.Point(0, 21)
+        Me.gridAvisoBenachrichtigungen.Name = "gridAvisoBenachrichtigungen"
+        Me.gridAvisoBenachrichtigungen.ReadOnly = True
+        Me.gridAvisoBenachrichtigungen.RowHeadersVisible = False
+        Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(236, 144)
+        Me.gridAvisoBenachrichtigungen.TabIndex = 2
+        '
+        'Panel4
+        '
+        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel4.Controls.Add(Me.Button10)
+        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel4.Location = New System.Drawing.Point(0, 165)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(236, 38)
+        Me.Panel4.TabIndex = 5
+        '
+        'Button10
+        '
+        Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button10.Enabled = False
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button10.ForeColor = System.Drawing.Color.Black
+        Me.Button10.Image = Global.AVISO.My.Resources.Resources.ok
+        Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button10.Location = New System.Drawing.Point(111, 3)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(121, 30)
+        Me.Button10.TabIndex = 3
+        Me.Button10.TabStop = False
+        Me.Button10.Text = "          Bestätigen"
+        Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Panel3
+        '
+        Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel3.Controls.Add(Me.cbxCluster)
+        Me.Panel3.Controls.Add(Me.cbxTeams)
+        Me.Panel3.Controls.Add(Me.Label22)
+        Me.Panel3.Controls.Add(Me.Label25)
+        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(236, 21)
+        Me.Panel3.TabIndex = 3
+        '
+        'MyComboBox2
+        '
+        Me.MyComboBox2._allowedValuesFreiText = Nothing
+        Me.MyComboBox2._allowFreiText = False
+        Me.MyComboBox2._value = ""
+        Me.MyComboBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyComboBox2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.MyComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.MyComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.MyComboBox2.FormattingEnabled = True
+        Me.MyComboBox2.Location = New System.Drawing.Point(112, 86)
+        Me.MyComboBox2.Name = "MyComboBox2"
+        Me.MyComboBox2.Size = New System.Drawing.Size(71, 21)
+        Me.MyComboBox2.TabIndex = 27
+        Me.MyComboBox2.Visible = False
+        '
+        'cbxTeams
+        '
+        Me.cbxTeams.AutoSize = True
+        Me.cbxTeams.ForeColor = System.Drawing.Color.White
+        Me.cbxTeams.Location = New System.Drawing.Point(135, 4)
+        Me.cbxTeams.Name = "cbxTeams"
+        Me.cbxTeams.Size = New System.Drawing.Size(78, 17)
+        Me.cbxTeams.TabIndex = 28
+        Me.cbxTeams.Text = "Alle Teams"
+        Me.cbxTeams.UseVisualStyleBackColor = True
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label22.ForeColor = System.Drawing.Color.White
+        Me.Label22.Location = New System.Drawing.Point(5, 4)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(124, 13)
+        Me.Label22.TabIndex = 0
+        Me.Label22.Text = "Benachrichtigungen:"
+        '
+        'Label25
+        '
+        Me.Label25.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label25.ForeColor = System.Drawing.Color.White
+        Me.Label25.Location = New System.Drawing.Point(579, 6)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(207, 19)
+        Me.Label25.TabIndex = 1
+        Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
+        Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cbxCluster
+        '
+        Me.cbxCluster.AutoSize = True
+        Me.cbxCluster.ForeColor = System.Drawing.Color.White
+        Me.cbxCluster.Location = New System.Drawing.Point(219, 4)
+        Me.cbxCluster.Name = "cbxCluster"
+        Me.cbxCluster.Size = New System.Drawing.Size(58, 17)
+        Me.cbxCluster.TabIndex = 29
+        Me.cbxCluster.Text = "Cluster"
+        Me.cbxCluster.UseVisualStyleBackColor = True
+        Me.cbxCluster.Visible = False
+        '
+        'usrCntlBenachrichtigungen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Panel2)
+        Me.Name = "usrCntlBenachrichtigungen"
+        Me.Size = New System.Drawing.Size(236, 203)
+        Me.Panel2.ResumeLayout(False)
+        CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel4.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Panel4 As Panel
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label22 As Label
+    Friend WithEvents Label25 As Label
+    Public WithEvents gridAvisoBenachrichtigungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents cbxTeams As CheckBox
+    Friend WithEvents cbxCluster As CheckBox
+End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.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>

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -0,0 +1,286 @@
+Public Class usrCntlBenachrichtigungen
+    Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim ASF As New AvisoStatusFunctions
+
+
+    Public Event SelectionChanged()
+
+
+    Public Sub initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
+        Try
+            ' SplitContainer3.Panel1Collapsed = True : Exit Sub
+            If Not Grid_aktiv Then Exit Sub
+
+            With gridAvisoBenachrichtigungen
+                .DefaultCellStyle.Font = gridFont
+                If .Columns IsNot Nothing AndAlso .Columns.Count > 0 Then .Columns.Clear()
+
+                '.RowTemplate.Height = rowHeight  'muss vor Bindung sein
+
+                'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId > 0 Then
+                '    whereMA = " AND (ab_TO_MaId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' OR ab_TO_TeamId='' )  "
+                'Else
+                '    whereMA = " AND (ab_TO_MaId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "') "
+                'End If
+
+                'If MyComboBox2._value = "Benutzer" Then
+                '    whereMA = " AND (ab_TO_MaId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "') "
+                'ElseIf MyComboBox2._value <> "" Then
+                '    whereMA = " AND ( ab_TO_TeamId='" & MyComboBox2._value & "' )  "
+                'End If
+
+                Dim whereMA = " AND  ( 1<>1 "
+
+                If cbxCluster.Checked Then
+                    whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') "
+                Else
+                    whereMA &= " OR (ab_TO_Art='B' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "') "
+                    whereMA &= " OR (ab_TO_Art='N' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "') "
+                    whereMA &= " OR (ab_TO_Art='A' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG & "') "
+                    whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') "
+                End If
+
+
+                If cbxTeams.Checked Then
+                    whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) "
+                Else
+                    whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId & "') "
+                End If
+
+                whereMA &= " ) "
+
+                Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & "  ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC"
+
+
+                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+                ' List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
+                'If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts...
+
+                .DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list)
+                If .DataSource Is Nothing Then Exit Sub
+                '   Dim bfont = New Font(.Font.FontFamily, .Font.Size, FontStyle.Bold)
+                Dim nfont = New Font(.Font.FontFamily, .Font.Size, FontStyle.Regular)
+                If .Columns.Count = 0 Then Exit Sub
+
+                .DefaultCellStyle.Font = nfont
+
+                .MultiSelect = False
+                .Columns("ab_id").Visible = False     'AvisoID nicht anzeigen
+                .Columns("ab_AvisoID").Visible = False     'AvisoID nicht anzeigen
+                .Columns("ab_SendungID").Visible = False     'AvisoID nicht anzeigen
+                .Columns("ab_MitarbeiterId").Visible = False     'maID nicht anzeigen
+                .Columns("ab_Mitarbeiter").Visible = False
+                .Columns("ab_BenachrichtigungCode").Visible = False
+                .Columns("ab_Prioritaet").Visible = False
+                .Columns("ab_Status").Visible = False
+                .Columns("ab_Vermerk").Visible = False
+                .Columns("ab_collAnhId").Visible = False
+                .Columns("ab_ReminderVermerkID").Visible = False
+                .Columns("ab_ReminderVermerkCode").Visible = False
+
+                .Columns("ab_TO_Art").Visible = False
+                .Columns("ab_TO_Code").Visible = False
+                .Columns("ab_Bestaetigt_MaId").Visible = False
+                .Columns("ab_Bestaetigt_Datum").Visible = False
+                .Columns("ab_Firma").Visible = False
+                .Columns("ab_Cluster").Visible = False
+                .Columns("Status").Visible = False
+
+                .Columns("ab_Art").Width = 30
+                .Columns("ab_Art").HeaderText = "Art"
+                .Columns("ab_Art").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+                '.Columns("ab_Status").Width = 110
+                '.Columns("ab_Status").HeaderText = "Status"
+
+                .Columns("LKW_Nr").MinimumWidth = 95
+                .Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen"
+                .Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+                .Columns("ab_Datum").Visible = False
+                .Columns("ab_Datum").Width = 80
+                .Columns("ab_Datum").HeaderText = "Datum"
+                .Columns("ab_Datum").DefaultCellStyle.Format = "dd.MM. HH:mm"
+                .Columns("ab_Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+                .Columns("ab_Beschreibung").MinimumWidth = 60
+                .Columns("ab_Beschreibung").HeaderText = "Beschreibung"
+                '.Columns("ab_Beschreibung").DefaultCellStyle.ForeColor = Color.White
+                .Columns("ab_Beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+                If .RowCount = 0 Then .Columns.Clear() : Exit Sub
+
+
+                Dim t = New DataGridViewTextBoxColumn
+                t.Name = "cmlnInfo"
+                t.HeaderText = ""
+                t.DefaultCellStyle.NullValue = "i"
+                t.Width = 20 : t.DefaultCellStyle.Padding = New Padding(2) : t.DefaultCellStyle.BackColor = Color.Gray
+                t.DefaultCellStyle.Font = New Font(.Font.FontFamily, .Font.Size, FontStyle.Bold)
+                t.DefaultCellStyle.ForeColor = Color.White
+                t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+                't.ToolTipText = ""
+                t.Visible = False
+                .Columns.Insert(0, t)
+
+
+                'Dim t2 = New DataGridViewTextBoxColumn
+                't2.Name = "cmlnOK"
+                't2.HeaderText = ""
+                't2.DefaultCellStyle.NullValue = "OK"
+                't2.Width = 40 : t2.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.DarkGreen ' Color.FromArgb(0, 54, 128)
+                't2.DefaultCellStyle.ForeColor = Color.White
+                't2.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+                ''t.ToolTipText = ""
+                '.Columns.Insert(.Columns.Count, t2)
+
+
+                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+
+                For Each r As DataGridViewRow In .Rows
+                    'r.DefaultCellStyle.Font = nfont
+                    If r.Cells("Status").Value = 3 Then
+                        r.DefaultCellStyle.ForeColor = Color.Red
+                        r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
+                        'r.DefaultCellStyle.SelectionForeColor = Color.Red
+                    End If
+                Next
+
+                '.Width = gridAviso.Width - gridVermerke.Width
+                '.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending)
+                .ClearSelection()
+            End With
+
+        Catch ex As Exception
+            MsgBox(ex.Message & vbNewLine & ex.StackTrace)
+        End Try
+        '   Grid_aktiv = True
+
+    End Sub
+
+    Private Sub usrCntlBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        'MyComboBox2.Items.Clear()
+        'MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
+        'MyComboBox2.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
+        'MyComboBox2.changeItem("Benutzer")
+        '  MyComboBox2.chang 
+
+
+        MyComboBox2.Items.Clear()
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeCluster", "AVISO") Then
+            cbxCluster.Visible = True
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then
+                cbxCluster.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
+            End If
+        End If
+
+
+
+        'NEIN; weils zB Waidhaus dann alles sieht und übernimmt
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
+        '    If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True
+        'End If
+
+        'Nur VERIMEX
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "VERIMEX"
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
+                    If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True
+                End If
+            Case "ATILLA"
+                cbxCluster.Visible = False
+                cbxTeams.Visible = False
+        End Select
+
+        '  MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
+    End Sub
+
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+        If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then
+            Dim AB As New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_id").Value)
+            'BEstätigen
+            Select Case AB.ab_BenachrichtigungCode
+                Case 5 ' REMINDER VERMERK
+                    Dim f As New frmAvisoBenachrichtigungReminderBestaetigen(AB)
+                    Select Case f.ShowDialog(Me)
+                        Case DialogResult.OK
+                            AB.BESTAETIGEN_BENACHRICHTIGUNG()
+                            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)
+                            initDgvAvisoBenachrichtigungen(True, Me.Font)
+                        Case DialogResult.Cancel
+                            'NIX
+                        Case Else
+                            AB.BESTAETIGEN_BENACHRICHTIGUNG()
+                            initDgvAvisoBenachrichtigungen(True, Me.Font)
+                    End Select
+
+
+                Case Else 'Weiterleitung Akt/Snd
+
+                    If AB.BESTAETIGEN_BENACHRICHTIGUNG Then
+                        'Übermehmen
+                        If AB.ab_Art = "A" Then
+                            If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub
+                            '  If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub
+                        Else
+                            If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub
+                        End If
+                        'VERMERK inserieren
+                        'insertSendungsVermerk(SendungID, myAviso.AvisoID, "In die Neukunden-Abteilung gegeben.", 46)
+                        Dim f As New frmAvisoWeiterleitenBestaetigen(AB)
+                        f.ShowDialog(Me)
+
+                        frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)
+                        initDgvAvisoBenachrichtigungen(True, Me.Font)
+                    End If
+            End Select
+
+        End If
+    End Sub
+
+    Private Sub gridAvisoBenachrichtigungen_CellClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAvisoBenachrichtigungen.CellMouseClick, gridAvisoBenachrichtigungen.CellMouseClick
+        RaiseEvent SelectionChanged()
+    End Sub
+
+
+    Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridAvisoBenachrichtigungen.KeyUp
+        Try
+            If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
+                If sender.selectedRows.count = 0 Then Exit Sub
+                RaiseEvent SelectionChanged()
+            End If
+
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Private Sub usrCntlBenachrichtigungen_SelectionChanged() Handles gridAvisoBenachrichtigungen.SelectionChanged
+        Button10.Enabled = (gridAvisoBenachrichtigungen.SelectedRows.Count = 1)
+    End Sub
+
+    Private Sub usrCntlBenachrichtigungen_SelectionChanged(sender As Object, e As EventArgs) Handles gridAvisoBenachrichtigungen.SelectionChanged
+
+    End Sub
+
+    Private Sub cbxTeams_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTeams.CheckedChanged
+        'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
+        'initDgvAvisoBenachrichtigungen(True, Me.Font)
+        initDgvAvisoBenachrichtigungen(True, Me.Font)
+    End Sub
+
+    Private Sub cbxCluster_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCluster.CheckedChanged
+        initDgvAvisoBenachrichtigungen(True, Me.Font)
+    End Sub
+End Class