Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

AVISOUPDATER/AVISOUPDATER_Version.txt

@@ -1 +1 @@
-7.4
+7.5

AVISOUPDATER/UPDATERfrm.vb

@@ -114,14 +114,25 @@ Public Class UPDATERfrm
 
                     '     If Not cut_file(File).Contains("AVISOUPDATER") And Not cut_file(File).Contains("NOT_DEL_") Then
 
+                    '----------------------------------------
+                    'If CopyIncremental Then
+                    '    cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_", "Standort.txt"})
+                    'Else
+                    '    delFiles()
+                    '    FileCopier()
+                    'End If
+                    '----------------------------------------
 
                     If CopyIncremental Then
-                        cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_", "Standort.txt"})
+
+                        cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_", "Standort.txt"}, AddressOf UpdateProgress)
+
                     Else
+
                         delFiles()
                         FileCopier()
-                    End If
 
+                    End If
 
 
                     If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe") Then
@@ -146,6 +157,37 @@ Public Class UPDATERfrm
         Environment.Exit(0)
     End Sub
 
+    Private Sub UpdateProgress(percent As Integer, status As String)
+
+        If Me.InvokeRequired Then
+
+            Me.Invoke(
+            New Action(Of Integer, String)(AddressOf UpdateProgress),
+            percent,
+            status
+        )
+
+            Return
+
+        End If
+
+
+        percent = Math.Max(0, Math.Min(100, percent))
+
+        ProgressBar.Minimum = 0
+        ProgressBar.Maximum = 100
+        ProgressBar.Value = percent
+
+        m_Label.Text = percent.ToString() & "%"
+
+        If status <> "" Then
+            RichTextBox.AppendText(status & Environment.NewLine)
+            RichTextBox.SelectionStart = RichTextBox.TextLength
+            RichTextBox.ScrollToCaret()
+        End If
+
+    End Sub
+
     Function getFByIP() As String
         Dim default_F = ""
         getFByIP = ""
@@ -490,6 +532,33 @@ Public Class UPDATERfrm
         Return bAns
     End Function
 
+    Private Sub SetProgress(value As Integer, Optional status As String = "")
+        If Me.InvokeRequired Then
+            Me.Invoke(New Action(Of Integer, String)(AddressOf SetProgress), value, status)
+            Return
+        End If
 
+        value = Math.Max(0, Math.Min(100, value))
+
+        ProgressBar.Minimum = 0
+        ProgressBar.Maximum = 100
+        ProgressBar.Value = value
+
+        m_Label.Text = value.ToString() & "%"
+
+        If status <> "" Then
+            writeLine(RichTextBox, "[" & value.ToString() & "%] " & status)
+        End If
+    End Sub
+
+
+    Private Sub SetStatus(text As String)
+        If Me.InvokeRequired Then
+            Me.Invoke(New Action(Of String)(AddressOf SetStatus), text)
+            Return
+        End If
+
+        writeLine(RichTextBox, text)
+    End Sub
 
 End Class

AVISOUPDATER/cProgrammeUpdate.vb

@@ -51,76 +51,251 @@ Public Class cProgrammeUpdate
     End Function
 
 
-    Public Shared Function copyProgramLIST(ByRef sourcePfad As String, ByVal destPfad As String, ignoreFilesBeginWith As String()) As Boolean
+    Public Shared Function copyProgramLIST(ByRef sourcePfad As String, ByVal destPfad As String, ignoreFilesBeginWith As String(), Optional progressCallback As Action(Of Integer, String) = Nothing) As Boolean
+
         Try
 
             If destPfad.Trim = "" Then Return False
             If sourcePfad.Trim = "" Then Return False
 
             If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then
-                MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
+                MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.",
+                   MsgBoxStyle.Critical, "ERROR")
+                Return False
             End If
+
             If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then
-                MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
+                MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.",
+                   MsgBoxStyle.Critical, "ERROR")
+                Return False
             End If
 
+
+            '--------------------------------------------------
+            ' DATEILISTEN ERMITTELN
+            '--------------------------------------------------
+
+            progressCallback?.Invoke(0, "Dateien werden geprüft...")
+
             Dim LIST_SOURCE As New List(Of cProgrammeUpdate)
             Dim dirNameReplace_SOURCE = ""
+
             Dim DI_SOURCE As New IO.DirectoryInfo(sourcePfad)
-            RekursivGetFiles(DI_SOURCE, dirNameReplace_SOURCE, LIST_SOURCE, {})
+
+            RekursivGetFiles(
+            DI_SOURCE,
+            dirNameReplace_SOURCE,
+            LIST_SOURCE,
+            {}
+        )
+
 
             Dim LIST_DEST As New List(Of cProgrammeUpdate)
             Dim dirNameReplace_DEST = ""
+
             Dim DI_DEST As New IO.DirectoryInfo(destPfad)
-            RekursivGetFiles(DI_DEST, dirNameReplace_DEST, LIST_DEST, ignoreFilesBeginWith)
+
+            RekursivGetFiles(
+            DI_DEST,
+            dirNameReplace_DEST,
+            LIST_DEST,
+            ignoreFilesBeginWith
+        )
+
 
             If LIST_SOURCE.Count = 0 Then
-                MsgBox("ERROR_COPY_01: Quell-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
+                MsgBox("ERROR_COPY_01: Quell-Daten existiert nicht.",
+                   MsgBoxStyle.Critical, "ERROR")
+                Return False
             End If
+
             If LIST_DEST.Count = 0 Then
-                MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
+                MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.",
+                   MsgBoxStyle.Critical, "ERROR")
+                Return False
             End If
 
-            'ORDNER erstellen:
+
+            '--------------------------------------------------
+            ' ORDNER ERSTELLEN
+            '--------------------------------------------------
+
             For Each f In LIST_SOURCE
+
                 If If(f.pud_filePathFolder, "") <> "" Then
-                    If Not IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\")) Then
-                        IO.Directory.CreateDirectory(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\"))
+
+                    Dim folder =
+                    dirNameReplace_DEST & "\" &
+                    f.pud_filePathFolder.Replace("\\", "\")
+
+                    If Not IO.Directory.Exists(folder) Then
+                        IO.Directory.CreateDirectory(folder)
                     End If
+
                 End If
+
             Next
 
-            'Löschen der unbenötigten Files:
+
+            '--------------------------------------------------
+            ' NICHT MEHR BENÖTIGTE DATEIEN LÖSCHEN
+            '--------------------------------------------------
+
             For Each f In LIST_DEST
+
                 If isOldFile(f, LIST_SOURCE) Then
-                    IO.File.Delete(dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\"))
+
+                    Dim d_path =
+                    dirNameReplace_DEST & "\" &
+                    If(f.pud_filePathFolder, "") & "\" &
+                    f.pud_fileName.Replace("\\", "\")
+
+                    IO.File.Delete(d_path)
+
                 End If
+
             Next
 
-            'Kopieren/Überschreiben der neuen Files:
-            For Each f In LIST_SOURCE
-                If isNewFile(f, LIST_DEST) Then
-                    'Dim FI = New IO.FileInfo()
 
-                    Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
-                        Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
-                    If fileStartsWith(f.pud_fileName, ignoreFilesBeginWith) And IO.File.Exists(d_path) Then
-                        'Wenn Ziel-Date in der ignore-List und die Datei existiert auch, soll diese nicht kopiert werden.
-                        'Wenn Sie nicht exisistiert wir die Datei schon kopiert (zB Standort.txt)
+            '--------------------------------------------------
+            ' ERMITTELN, WELCHE DATEIEN TATSÄCHLICH
+            ' KOPIERT WERDEN MÜSSEN
+            '--------------------------------------------------
+
+            Dim filesToCopy As New List(Of cProgrammeUpdate)
+
+            For Each f In LIST_SOURCE
+
+                'Bestehende Logik bleibt unverändert!
+                If isNewFile(f, LIST_DEST) Then
+
+                    Dim d_path =
+                    dirNameReplace_DEST & "\" &
+                    If(f.pud_filePathFolder, "") & "\" &
+                    f.pud_fileName.Replace("\\", "\")
+
+                    'Bestehende Ignore-Logik bleibt ebenfalls erhalten
+                    If fileStartsWith(f.pud_fileName, ignoreFilesBeginWith) AndAlso
+                   IO.File.Exists(d_path) Then
+
+                        'Nicht kopieren
+
                     Else
 
-                        IO.File.Copy(s_path, d_path, True)
+                        filesToCopy.Add(f)
+
                     End If
+
                 End If
 
             Next
 
+
+            '--------------------------------------------------
+            ' NICHTS ZU KOPIEREN
+            '--------------------------------------------------
+
+            If filesToCopy.Count = 0 Then
+
+                progressCallback?.Invoke(
+                100,
+                "Alle Dateien sind aktuell."
+            )
+
+                Return True
+
+            End If
+
+
+            '--------------------------------------------------
+            ' DATEIEN KOPIEREN
+            '--------------------------------------------------
+
+            Dim current As Integer = 0
+            Dim total As Integer = filesToCopy.Count
+
+            For Each f In filesToCopy
+
+                current += 1
+
+                Dim s_path =
+                dirNameReplace_SOURCE & "\" &
+                If(f.pud_filePathFolder, "") & "\" &
+                f.pud_fileName.Replace("\\", "\")
+
+                Dim d_path =
+                dirNameReplace_DEST & "\" &
+                If(f.pud_filePathFolder, "") & "\" &
+                f.pud_fileName.Replace("\\", "\")
+
+
+                'Relativen Dateinamen für Anzeige erstellen
+                Dim displayFile As String = ""
+
+                If If(f.pud_filePathFolder, "") <> "" Then
+                    displayFile =
+                    f.pud_filePathFolder.TrimStart("\"c) &
+                    "\" &
+                    f.pud_fileName
+                Else
+                    displayFile = f.pud_fileName
+                End If
+
+
+                'Fortschritt berechnen
+                Dim percent As Integer =
+                CInt(((current - 1) / CDbl(total)) * 100)
+
+
+                'Vor dem Kopieren melden
+                progressCallback?.Invoke(
+                percent,
+                "Kopiere: " & displayFile
+            )
+
+
+                '==================================================
+                ' EIGENTLICHER KOPIERVORGANG
+                '==================================================
+
+                IO.File.Copy(
+                s_path,
+                d_path,
+                True
+            )
+
+
+                'Fortschritt nach dem Kopieren
+                percent =
+                CInt((current / CDbl(total)) * 100)
+
+                progressCallback?.Invoke(
+                percent,
+                "Kopiert: " & displayFile
+            )
+
+            Next
+
+
+            progressCallback?.Invoke(
+            100,
+            "Update abgeschlossen. " &
+            filesToCopy.Count.ToString() &
+            " Datei(en) aktualisiert."
+        )
+
+
         Catch ex As Exception
+
             MsgBox(ex.Message & ex.StackTrace)
+
             Return False
+
         End Try
-        '  If isNewFile(destPfad) Then Return FileCopier(sourcePfad, destPfad)
+
+
         Return True
+
     End Function
 
     Public Shared Function fileStartsWith(fileName As String, ignoreFilesBeginWith As String())

Aviso/ATEZ/frmATEZ_EZA.Designer.vb

@@ -26,6 +26,10 @@ Partial Class frmATEZ_EZA
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATEZ_EZA))
         Me.btnSend = New System.Windows.Forms.Button()
         Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
         Me.lblInfo = New System.Windows.Forms.Label()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -34,13 +38,11 @@ Partial Class frmATEZ_EZA
         Me.Label9 = New System.Windows.Forms.Label()
         Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.txtDyMandant = New System.Windows.Forms.Label()
-        Me.Label1 = New System.Windows.Forms.Label()
         Me.txtDyNiederlassung = New System.Windows.Forms.Label()
         Me.lblBezugsnummer = New System.Windows.Forms.Label()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.lblAnh = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
         Me.btnAgg_Tnr = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.btnAgg_Origin = New System.Windows.Forms.Button()
@@ -48,10 +50,17 @@ Partial Class frmATEZ_EZA
         Me.btnAgg_desc = New System.Windows.Forms.Button()
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnPrio_CommInv = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.btnPrio_eFatura = New System.Windows.Forms.Button()
+        Me.btnPrio_Export = New System.Windows.Forms.Button()
+        Me.btnPrio_ftz = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.pnlHead.SuspendLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'btnSend
@@ -59,23 +68,27 @@ Partial Class frmATEZ_EZA
         Me.btnSend.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSend.BackColor = System.Drawing.Color.White
         Me.btnSend.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
-        Me.btnSend.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnSend.Image = Global.AVISO.My.Resources.Resources.Declarant
-        Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnSend.Location = New System.Drawing.Point(486, 348)
+        Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnSend.Image = Global.AVISO.My.Resources.Resources.ico_atez_declarantAI
+        Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSend.Location = New System.Drawing.Point(473, 343)
         Me.btnSend.Margin = New System.Windows.Forms.Padding(2)
         Me.btnSend.Name = "btnSend"
-        Me.btnSend.Size = New System.Drawing.Size(192, 58)
+        Me.btnSend.Padding = New System.Windows.Forms.Padding(5, 0, 5, 0)
+        Me.btnSend.Size = New System.Drawing.Size(205, 58)
         Me.btnSend.TabIndex = 26
         Me.btnSend.Text = "An ATEZ senden >>"
-        Me.btnSend.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnSend.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnSend.UseVisualStyleBackColor = False
         '
         'pnlHead
         '
         Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.PictureBox1)
+        Me.pnlHead.Controls.Add(Me.Button1)
+        Me.pnlHead.Controls.Add(Me.Button2)
+        Me.pnlHead.Controls.Add(Me.Label1)
         Me.pnlHead.Controls.Add(Me.Label4)
         Me.pnlHead.Controls.Add(Me.lblInfo)
         Me.pnlHead.Controls.Add(Me.Label8)
@@ -85,7 +98,6 @@ Partial Class frmATEZ_EZA
         Me.pnlHead.Controls.Add(Me.Label9)
         Me.pnlHead.Controls.Add(Me.sbAdressierteZollstelle)
         Me.pnlHead.Controls.Add(Me.txtDyMandant)
-        Me.pnlHead.Controls.Add(Me.Label1)
         Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
         Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
         Me.pnlHead.Location = New System.Drawing.Point(3, 2)
@@ -93,6 +105,44 @@ Partial Class frmATEZ_EZA
         Me.pnlHead.Size = New System.Drawing.Size(675, 151)
         Me.pnlHead.TabIndex = 112
         '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(553, 117)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(122, 23)
+        Me.Button1.TabIndex = 153
+        Me.Button1.Text = "Clear Token Cache"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(610, 96)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(65, 23)
+        Me.Button2.TabIndex = 158
+        Me.Button2.Text = "json"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(387, 13)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(89, 13)
+        Me.Label1.TabIndex = 106
+        Me.Label1.Text = "Bezugsnummer:"
+        '
+        'Label4
+        '
+        Me.Label4.BackColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(108, 13)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(45, 12)
+        Me.Label4.TabIndex = 149
+        Me.Label4.Text = "SUB"
+        '
         'lblInfo
         '
         Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -106,9 +156,9 @@ Partial Class frmATEZ_EZA
         '
         Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(10, 61)
+        Me.Label8.Location = New System.Drawing.Point(6, 61)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(80, 13)
+        Me.Label8.Size = New System.Drawing.Size(86, 13)
         Me.Label8.TabIndex = 146
         Me.Label8.Text = "Stammreferenz:"
         Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -154,17 +204,19 @@ Partial Class frmATEZ_EZA
         '
         'Label3
         '
-        Me.Label3.Location = New System.Drawing.Point(10, 91)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(6, 91)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(103, 17)
+        Me.Label3.Size = New System.Drawing.Size(48, 13)
         Me.Label3.TabIndex = 113
         Me.Label3.Text = "LKW-KZ:"
         '
         'Label9
         '
-        Me.Label9.Location = New System.Drawing.Point(10, 117)
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(6, 117)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(103, 17)
+        Me.Label9.Size = New System.Drawing.Size(117, 13)
         Me.Label9.TabIndex = 110
         Me.Label9.Text = "Adressierte-Zollstelle:"
         '
@@ -196,29 +248,19 @@ Partial Class frmATEZ_EZA
         '
         'txtDyMandant
         '
+        Me.txtDyMandant.AutoSize = True
         Me.txtDyMandant.BackColor = System.Drawing.Color.White
-        Me.txtDyMandant.Location = New System.Drawing.Point(2, 7)
+        Me.txtDyMandant.Location = New System.Drawing.Point(6, 13)
         Me.txtDyMandant.Name = "txtDyMandant"
-        Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
+        Me.txtDyMandant.Size = New System.Drawing.Size(35, 13)
         Me.txtDyMandant.TabIndex = 109
         Me.txtDyMandant.Text = "VERG"
         Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
-        'Label1
-        '
-        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label1.AutoSize = True
-        Me.Label1.BackColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(387, 20)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(82, 13)
-        Me.Label1.TabIndex = 106
-        Me.Label1.Text = "Bezugsnummer:"
-        '
         'txtDyNiederlassung
         '
         Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
-        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 7)
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(55, 13)
         Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
         Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
         Me.txtDyNiederlassung.TabIndex = 108
@@ -229,7 +271,7 @@ Partial Class frmATEZ_EZA
         Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
         Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBezugsnummer.Location = New System.Drawing.Point(475, 14)
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(475, 8)
         Me.lblBezugsnummer.Name = "lblBezugsnummer"
         Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
         Me.lblBezugsnummer.TabIndex = 107
@@ -238,10 +280,9 @@ Partial Class frmATEZ_EZA
         '
         'Button3
         '
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Location = New System.Drawing.Point(473, 159)
+        Me.Button3.Location = New System.Drawing.Point(473, 157)
         Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(205, 23)
+        Me.Button3.Size = New System.Drawing.Size(205, 25)
         Me.Button3.TabIndex = 152
         Me.Button3.Text = "alle Anhänge auswählen"
         Me.Button3.UseVisualStyleBackColor = True
@@ -262,21 +303,10 @@ Partial Class frmATEZ_EZA
         Me.lblAnh.TabIndex = 151
         Me.lblAnh.Visible = False
         '
-        'Button1
-        '
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(3, 383)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(178, 23)
-        Me.Button1.TabIndex = 153
-        Me.Button1.Text = "Clear Token Cache"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
         'btnAgg_Tnr
         '
         Me.btnAgg_Tnr.BackColor = System.Drawing.Color.DeepSkyBlue
-        Me.btnAgg_Tnr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAgg_Tnr.Location = New System.Drawing.Point(71, 344)
+        Me.btnAgg_Tnr.Location = New System.Drawing.Point(76, 3)
         Me.btnAgg_Tnr.Name = "btnAgg_Tnr"
         Me.btnAgg_Tnr.Size = New System.Drawing.Size(83, 23)
         Me.btnAgg_Tnr.TabIndex = 154
@@ -286,7 +316,8 @@ Partial Class frmATEZ_EZA
         '
         'Label2
         '
-        Me.Label2.Location = New System.Drawing.Point(6, 350)
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.Label2.Location = New System.Drawing.Point(3, 8)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(103, 17)
         Me.Label2.TabIndex = 149
@@ -295,10 +326,9 @@ Partial Class frmATEZ_EZA
         'btnAgg_Origin
         '
         Me.btnAgg_Origin.BackColor = System.Drawing.Color.DeepSkyBlue
-        Me.btnAgg_Origin.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAgg_Origin.Location = New System.Drawing.Point(160, 344)
+        Me.btnAgg_Origin.Location = New System.Drawing.Point(162, 3)
         Me.btnAgg_Origin.Name = "btnAgg_Origin"
-        Me.btnAgg_Origin.Size = New System.Drawing.Size(90, 23)
+        Me.btnAgg_Origin.Size = New System.Drawing.Size(92, 23)
         Me.btnAgg_Origin.TabIndex = 155
         Me.btnAgg_Origin.Tag = "1"
         Me.btnAgg_Origin.Text = "Ursprungsland"
@@ -306,8 +336,7 @@ Partial Class frmATEZ_EZA
         '
         'btnAgg_Unit
         '
-        Me.btnAgg_Unit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAgg_Unit.Location = New System.Drawing.Point(255, 344)
+        Me.btnAgg_Unit.Location = New System.Drawing.Point(257, 3)
         Me.btnAgg_Unit.Name = "btnAgg_Unit"
         Me.btnAgg_Unit.Size = New System.Drawing.Size(79, 23)
         Me.btnAgg_Unit.TabIndex = 156
@@ -317,8 +346,7 @@ Partial Class frmATEZ_EZA
         '
         'btnAgg_desc
         '
-        Me.btnAgg_desc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAgg_desc.Location = New System.Drawing.Point(340, 344)
+        Me.btnAgg_desc.Location = New System.Drawing.Point(339, 3)
         Me.btnAgg_desc.Name = "btnAgg_desc"
         Me.btnAgg_desc.Size = New System.Drawing.Size(126, 23)
         Me.btnAgg_desc.TabIndex = 157
@@ -351,44 +379,102 @@ Partial Class frmATEZ_EZA
         Me.columnName.Name = "columnName"
         Me.columnName.ReadOnly = True
         '
-        'Label4
+        'btnPrio_CommInv
         '
-        Me.Label4.BackColor = System.Drawing.Color.White
-        Me.Label4.Location = New System.Drawing.Point(106, 8)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(45, 12)
-        Me.Label4.TabIndex = 149
-        Me.Label4.Text = "SUB"
+        Me.btnPrio_CommInv.BackColor = System.Drawing.Color.White
+        Me.btnPrio_CommInv.Location = New System.Drawing.Point(76, 28)
+        Me.btnPrio_CommInv.Name = "btnPrio_CommInv"
+        Me.btnPrio_CommInv.Size = New System.Drawing.Size(116, 23)
+        Me.btnPrio_CommInv.TabIndex = 159
+        Me.btnPrio_CommInv.Tag = "0"
+        Me.btnPrio_CommInv.Text = "Handelsrechnung"
+        Me.btnPrio_CommInv.UseVisualStyleBackColor = False
         '
-        'Button2
+        'Label5
         '
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Location = New System.Drawing.Point(416, 383)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(65, 23)
-        Me.Button2.TabIndex = 158
-        Me.Button2.Text = "json"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.Label5.Location = New System.Drawing.Point(3, 33)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(103, 17)
+        Me.Label5.TabIndex = 160
+        Me.Label5.Text = "Priorität:"
+        '
+        'btnPrio_eFatura
+        '
+        Me.btnPrio_eFatura.BackColor = System.Drawing.Color.White
+        Me.btnPrio_eFatura.Location = New System.Drawing.Point(195, 28)
+        Me.btnPrio_eFatura.Name = "btnPrio_eFatura"
+        Me.btnPrio_eFatura.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_eFatura.TabIndex = 161
+        Me.btnPrio_eFatura.Tag = "0"
+        Me.btnPrio_eFatura.Text = "eFatura"
+        Me.btnPrio_eFatura.UseVisualStyleBackColor = False
+        '
+        'btnPrio_Export
+        '
+        Me.btnPrio_Export.BackColor = System.Drawing.Color.White
+        Me.btnPrio_Export.Location = New System.Drawing.Point(267, 28)
+        Me.btnPrio_Export.Name = "btnPrio_Export"
+        Me.btnPrio_Export.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_Export.TabIndex = 162
+        Me.btnPrio_Export.Tag = "0"
+        Me.btnPrio_Export.Text = "Ausfuhr"
+        Me.btnPrio_Export.UseVisualStyleBackColor = False
+        '
+        'btnPrio_ftz
+        '
+        Me.btnPrio_ftz.BackColor = System.Drawing.Color.White
+        Me.btnPrio_ftz.Location = New System.Drawing.Point(339, 28)
+        Me.btnPrio_ftz.Name = "btnPrio_ftz"
+        Me.btnPrio_ftz.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_ftz.TabIndex = 163
+        Me.btnPrio_ftz.Tag = "0"
+        Me.btnPrio_ftz.Text = "FTZ"
+        Me.btnPrio_ftz.UseVisualStyleBackColor = False
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.Panel1.Controls.Add(Me.btnPrio_CommInv)
+        Me.Panel1.Controls.Add(Me.btnAgg_Tnr)
+        Me.Panel1.Controls.Add(Me.btnPrio_ftz)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.btnPrio_Export)
+        Me.Panel1.Controls.Add(Me.btnAgg_Origin)
+        Me.Panel1.Controls.Add(Me.btnPrio_eFatura)
+        Me.Panel1.Controls.Add(Me.btnAgg_Unit)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.btnAgg_desc)
+        Me.Panel1.Location = New System.Drawing.Point(0, 343)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(470, 54)
+        Me.Panel1.TabIndex = 164
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.dakosy_de
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(572, 34)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 50)
+        Me.PictureBox1.TabIndex = 164
+        Me.PictureBox1.TabStop = False
         '
         'frmATEZ_EZA
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.ClientSize = New System.Drawing.Size(680, 413)
-        Me.Controls.Add(Me.Button2)
-        Me.Controls.Add(Me.btnAgg_desc)
-        Me.Controls.Add(Me.btnAgg_Tnr)
-        Me.Controls.Add(Me.btnAgg_Unit)
-        Me.Controls.Add(Me.btnAgg_Origin)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.Button1)
+        Me.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.ClientSize = New System.Drawing.Size(680, 409)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.lblAnh)
         Me.Controls.Add(Me.pnlHead)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.btnSend)
         Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmATEZ_EZA"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
@@ -396,6 +482,8 @@ Partial Class frmATEZ_EZA
         Me.pnlHead.ResumeLayout(False)
         Me.pnlHead.PerformLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -425,4 +513,11 @@ Partial Class frmATEZ_EZA
     Friend WithEvents btnAgg_desc As Button
     Friend WithEvents Label4 As Label
     Friend WithEvents Button2 As Button
+    Friend WithEvents btnPrio_CommInv As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents btnPrio_eFatura As Button
+    Friend WithEvents btnPrio_Export As Button
+    Friend WithEvents btnPrio_ftz As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents PictureBox1 As PictureBox
 End Class

Aviso/ATEZ/frmATEZ_EZA.vb

@@ -27,7 +27,6 @@ Public Class frmATEZ_EZA
     Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
     Dim openExisting As Boolean = False
     Dim id As Integer = -1
-    Dim dgv As DataGridView = Nothing
     Dim atez_data As cATEZ_NCTS_DATA
     ' Dim atez = New cATEZ_NCTS_IN("ATEZ")
     Dim allSelected As Boolean = False
@@ -35,12 +34,11 @@ Public Class frmATEZ_EZA
     Property BezugsNr As String = ""
     Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
 
-    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
-        If _dgv IsNot Nothing Then Me.dgv = _dgv
         Me.AVISO = AVISO
         Me.SENDUNG = SENDUNG
         Me.JAHR = JAHR
@@ -80,26 +78,6 @@ Public Class frmATEZ_EZA
         Try
 
 
-            'If Button1.Text = "JSON" Then
-            '    If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
-            '    atez.setJsonPDF(atez_data, dgvAnhaenge)
-
-            '    Dim data As New DataObject()
-            '    data.SetData(DataFormats.Text, atez_data.json)
-            '    Clipboard.SetDataObject(data)
-            '    Me.Cursor = Cursors.Default
-            '    MsgBox("JSON-Daten in Zwischenablage gespeichert")
-            '    Exit Sub
-            'End If
-
-            'If atez_data.status = "Sent" Then
-            '    Exit Sub
-            'End If
-
-            ''auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan
-            ''If Not checkAttachment() Then
-            ''    Exit Sub
-            ''End If
 
 
             If Not checkMandatoryField() Then
@@ -146,9 +124,22 @@ Public Class frmATEZ_EZA
             If btnAgg_Unit.Tag = 1 Then AdditionalSettings.Add("unit_type")
 
 
+            Dim combineItemsPriorityDocumentType As String = ""
+            If btnPrio_CommInv.Tag = 1 Then combineItemsPriorityDocumentType = "commercial_invoice"
+            If btnPrio_eFatura.Tag = 1 Then combineItemsPriorityDocumentType = "invoice"
+            If btnPrio_Export.Tag = 1 Then combineItemsPriorityDocumentType = "tr_export_declaration"
+            If btnPrio_ftz.Tag = 1 Then combineItemsPriorityDocumentType = "ftz"
+            'If btnPrio_CommInv.Tag = 1 Then combineItemsPriorityDocumentType = "packing_list"
+
+
+            Dim environment = cRelayHubEnvironment.PROD
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then environment = cRelayHubEnvironment.TEST
+
+
             Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
+                .environment = environment,
                 .referenceNo = ioReference,
-                .outputApplication = "dakosy/sftp/verg",'.outputApplication = "dakosy/sftp/vera",
+                .outputApplication = cRelayHubOutputApplication.Dakosy, '"dakosy/sftp/verg",'.outputApplication = "dakosy/sftp/vera",
                 .regimeType = "IMPORT",'                .customer = "AVISO",
                .dispatchCountry = "TR",'"TR",
                .destinationCountry = "DE", 'Default, wird später überschrieben!! (Pflichtfeld)
@@ -160,30 +151,33 @@ Public Class frmATEZ_EZA
                     },
                     .declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From {
                         New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
-                            .objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
-                                .objectName = lblBezugsnummer.Text,'& "_TEST"
+                                .objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
+                                    .objectName = lblBezugsnummer.Text,'& "_TEST"
                                     .objectAlias = ioReference,
-                                    .declarationType = "EZA-D"
-                                },
+                                    .declarationType = "EZA-D",
+                                    .shipmentId = SENDUNG.tblSnd_SendungID,
+                            .avisoId = SENDUNG.tblSnd_AvisoID
+                                    },
                                 .headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
                                     .agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
-                                        .contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
-                                        .contactPersonPhoneNumber = "0049 8503 7973999 " & If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl), "200", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl),'If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr, "+43 7711/2777 0"),
-                                        .contactPersonPosition = "Zolldeklarant/in",
-                                        .contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), "quickstop@verag.ag", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
-                                    },
-                                    .declarantIsConsignee = True,
-                                    .representationRelationshipCode = "",'-1, '??????????????????????????????????????????????????????????????
-                                    .inputTaxDeduction = True,'"",'"true",
-                                    .procedureCodeRequested = procedureCodeRequested.ToString,'                                    .goodsStatus = "",'"EU",
-                                     .transportMeansArrivalIdentity = txtLKWId.Text,
-                                    .transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
-                                   }
-                                }
+                                    .contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
+                                    .contactPersonPhoneNumber = getTelefon(),
+                                .contactPersonPosition = "Zolldeklarant/in",
+                                .contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
+                            },
+                            .declarantIsConsignee = True,
+                            .representationRelationshipCode = "",'-1, '??????????????????????????????????????????????????????????????
+                            .inputTaxDeduction = True,'"",'"true",
+                            .procedureCodeRequested = procedureCodeRequested.ToString,'                                    .goodsStatus = "",'"EU",
+                                .transportMeansArrivalIdentity = txtLKWId.Text,
+                            .transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
                             }
+                        }
+                    }
                     },
-                 .AdditionalSettings = New cRelayHubAdditionalSettings With {
-                        .combineOptions = AdditionalSettings
+                 .additionalSettings = New cRelayHubAdditionalSettings With {
+                        .combineOptions = AdditionalSettings,
+                        .combineItemsPriorityDocumentType = combineItemsPriorityDocumentType
                     }
             }
 
@@ -335,6 +329,29 @@ Public Class frmATEZ_EZA
 
     End Sub
 
+    Private Function getTelefon() As String
+        Dim defaultDW = "200"
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "ATILLA" : Return "0043 7711 28450"
+            Case "AMBAR" : Return "0049 8651 9962492"
+            Case "UNISPED" : defaultDW = "800"
+            Case "IMEX" : defaultDW = "602"
+            Case "VERAG" : defaultDW = "200"
+        End Select
+
+        Dim dw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
+        Return "0049 8503 7973999 " &
+               If(String.IsNullOrEmpty(dw) OrElse dw.Length >= 5, defaultDW, dw)
+    End Function
+    Private Function getDefaultMail_FIRMA() As String
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "VERAG" : Return "quickstop@verag.ag"
+            Case "IMEX" : Return "steuerbescheide@imex-group.at"
+            Case "UNISPED" : Return "office@unisped.at"
+            Case "AMBAR" : Return "office@ambarlog.com"
+        End Select
+        Return "quickstop@verag.ag"
+    End Function
     'Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
 
     '    Dim failreDesc As String
@@ -474,7 +491,7 @@ Public Class frmATEZ_EZA
         '    Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
         '    Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
         'End Select 
-        FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)
+        FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me, "EZA")
         txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
         txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
 
@@ -566,7 +583,7 @@ Public Class frmATEZ_EZA
 
                                                 case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
                                                    [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
-                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ NOT IN ('MSG', 'SONSTIGES')
                                            ORDER BY  anh_SendungsId desc,
 										  case	  
                                                 when [anh_Art] = 'ATR-EUR1' then 0
@@ -779,7 +796,7 @@ Public Class frmATEZ_EZA
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        cRelayHubToken.DeleteStore()
+        cRelayHubToken.DeleteAllStores()
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAgg_Tnr.Click, btnAgg_desc.Click, btnAgg_Origin.Click, btnAgg_Unit.Click
@@ -791,4 +808,20 @@ Public Class frmATEZ_EZA
             sender.BackColor = SystemColors.Control
         End If
     End Sub
-End Class
+    Private Sub Buttonprio_Click(sender As Object, e As EventArgs) Handles btnPrio_CommInv.Click, btnPrio_ftz.Click, btnPrio_eFatura.Click, btnPrio_Export.Click
+
+        If sender IsNot btnPrio_CommInv Then btnPrio_CommInv.Tag = 0 : btnPrio_CommInv.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_eFatura Then btnPrio_eFatura.Tag = 0 : btnPrio_eFatura.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_Export Then btnPrio_Export.Tag = 0 : btnPrio_Export.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_ftz Then btnPrio_ftz.Tag = 0 : btnPrio_ftz.BackColor = SystemColors.Control
+
+
+        If sender.Tag = 0 Then
+            sender.Tag = 1
+            sender.BackColor = Color.DeepSkyBlue
+        Else
+            sender.Tag = 0
+            sender.BackColor = SystemColors.Control
+        End If
+        End Sub
+        End Class

Aviso/ATEZ/frmATEZ_MIC.Designer.vb

@@ -0,0 +1,487 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmATEZ_MIC
+    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(frmATEZ_MIC))
+        Me.btnSend = New System.Windows.Forms.Button()
+        Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblInfo = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.lblBezugsnummer = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.lblAnh = New System.Windows.Forms.Label()
+        Me.btnAgg_Tnr = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnAgg_Origin = New System.Windows.Forms.Button()
+        Me.btnAgg_Unit = New System.Windows.Forms.Button()
+        Me.btnAgg_desc = New System.Windows.Forms.Button()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.btnPrio_CommInv = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.btnPrio_eFatura = New System.Windows.Forms.Button()
+        Me.btnPrio_Export = New System.Windows.Forms.Button()
+        Me.btnPrio_ftz = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.pnlHead.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'btnSend
+        '
+        Me.btnSend.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSend.BackColor = System.Drawing.Color.White
+        Me.btnSend.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnSend.Image = Global.AVISO.My.Resources.Resources.ico_atez_declarantAI
+        Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSend.Location = New System.Drawing.Point(473, 343)
+        Me.btnSend.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnSend.Name = "btnSend"
+        Me.btnSend.Padding = New System.Windows.Forms.Padding(5, 0, 5, 0)
+        Me.btnSend.Size = New System.Drawing.Size(205, 58)
+        Me.btnSend.TabIndex = 26
+        Me.btnSend.Text = "An ATEZ senden >>"
+        Me.btnSend.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSend.UseVisualStyleBackColor = False
+        '
+        'pnlHead
+        '
+        Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.PictureBox1)
+        Me.pnlHead.Controls.Add(Me.Button1)
+        Me.pnlHead.Controls.Add(Me.Button2)
+        Me.pnlHead.Controls.Add(Me.Label1)
+        Me.pnlHead.Controls.Add(Me.lblInfo)
+        Me.pnlHead.Controls.Add(Me.Label8)
+        Me.pnlHead.Controls.Add(Me.cboStammreferenz)
+        Me.pnlHead.Controls.Add(Me.txtLKWId)
+        Me.pnlHead.Controls.Add(Me.Label3)
+        Me.pnlHead.Controls.Add(Me.Label9)
+        Me.pnlHead.Controls.Add(Me.sbAdressierteZollstelle)
+        Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
+        Me.pnlHead.Location = New System.Drawing.Point(3, 2)
+        Me.pnlHead.Name = "pnlHead"
+        Me.pnlHead.Size = New System.Drawing.Size(675, 151)
+        Me.pnlHead.TabIndex = 112
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.mic_nl
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(572, 34)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 50)
+        Me.PictureBox1.TabIndex = 159
+        Me.PictureBox1.TabStop = False
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(553, 117)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(122, 23)
+        Me.Button1.TabIndex = 153
+        Me.Button1.Text = "Clear Token Cache"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(610, 96)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(65, 23)
+        Me.Button2.TabIndex = 158
+        Me.Button2.Text = "json"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(387, 13)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(89, 13)
+        Me.Label1.TabIndex = 106
+        Me.Label1.Text = "Bezugsnummer:"
+        '
+        'lblInfo
+        '
+        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.lblInfo.Location = New System.Drawing.Point(3, 32)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Size = New System.Drawing.Size(460, 21)
+        Me.lblInfo.TabIndex = 148
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(6, 61)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(86, 13)
+        Me.Label8.TabIndex = 146
+        Me.Label8.Text = "Stammreferenz:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.Label8.Visible = False
+        '
+        'cboStammreferenz
+        '
+        Me.cboStammreferenz._allowedValuesFreiText = Nothing
+        Me.cboStammreferenz._allowFreiText = False
+        Me.cboStammreferenz._value = ""
+        Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboStammreferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.cboStammreferenz.FormattingEnabled = True
+        Me.cboStammreferenz.Location = New System.Drawing.Point(151, 56)
+        Me.cboStammreferenz.Name = "cboStammreferenz"
+        Me.cboStammreferenz.Size = New System.Drawing.Size(255, 24)
+        Me.cboStammreferenz.TabIndex = 145
+        Me.cboStammreferenz.Visible = False
+        '
+        'txtLKWId
+        '
+        Me.txtLKWId._DateTimeOnly = False
+        Me.txtLKWId._numbersOnly = False
+        Me.txtLKWId._numbersOnlyKommastellen = ""
+        Me.txtLKWId._numbersOnlyTrennzeichen = True
+        Me.txtLKWId._Prozent = False
+        Me.txtLKWId._ShortDateNew = False
+        Me.txtLKWId._ShortDateOnly = False
+        Me.txtLKWId._TimeOnly = False
+        Me.txtLKWId._TimeOnly_Seconds = False
+        Me.txtLKWId._value = ""
+        Me.txtLKWId._Waehrung = False
+        Me.txtLKWId._WaehrungZeichen = True
+        Me.txtLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtLKWId.ForeColor = System.Drawing.Color.Black
+        Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
+        Me.txtLKWId.MaxLineLength = -1
+        Me.txtLKWId.MaxLines_Warning = ""
+        Me.txtLKWId.MaxLines_Warning_Label = Nothing
+        Me.txtLKWId.Name = "txtLKWId"
+        Me.txtLKWId.Size = New System.Drawing.Size(255, 23)
+        Me.txtLKWId.TabIndex = 144
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(6, 91)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(48, 13)
+        Me.Label3.TabIndex = 113
+        Me.Label3.Text = "LKW-KZ:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(6, 117)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(117, 13)
+        Me.Label9.TabIndex = 110
+        Me.Label9.Text = "Adressierte-Zollstelle:"
+        '
+        'sbAdressierteZollstelle
+        '
+        Me.sbAdressierteZollstelle._allowFreitext = False
+        Me.sbAdressierteZollstelle._AllowSetValue = False
+        Me.sbAdressierteZollstelle._allowSpaceAsSplitter = False
+        Me.sbAdressierteZollstelle._autoSizeGross = False
+        Me.sbAdressierteZollstelle._hideIfListEmpty = True
+        Me.sbAdressierteZollstelle._value = ""
+        Me.sbAdressierteZollstelle.conn_art = "FMZOLL"
+        Me.sbAdressierteZollstelle.dgvpos = "LEFT"
+        Me.sbAdressierteZollstelle.DISPLAY_PARAM = Nothing
+        Me.sbAdressierteZollstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.sbAdressierteZollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.sbAdressierteZollstelle.key_visible = False
+        Me.sbAdressierteZollstelle.KEYPARAM = Nothing
+        Me.sbAdressierteZollstelle.Location = New System.Drawing.Point(151, 112)
+        Me.sbAdressierteZollstelle.Name = "sbAdressierteZollstelle"
+        Me.sbAdressierteZollstelle.searchActive = True
+        Me.sbAdressierteZollstelle.Size = New System.Drawing.Size(255, 23)
+        Me.sbAdressierteZollstelle.SQL_ORDER_BY = Nothing
+        Me.sbAdressierteZollstelle.SQL_SELECT = Nothing
+        Me.sbAdressierteZollstelle.SQL_WHERE = Nothing
+        Me.sbAdressierteZollstelle.SQL_WhereParamList = Nothing
+        Me.sbAdressierteZollstelle.TabIndex = 111
+        Me.sbAdressierteZollstelle.usrcntl = Nothing
+        '
+        'lblBezugsnummer
+        '
+        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
+        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(475, 8)
+        Me.lblBezugsnummer.Name = "lblBezugsnummer"
+        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
+        Me.lblBezugsnummer.TabIndex = 107
+        Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
+        Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(473, 157)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(205, 25)
+        Me.Button3.TabIndex = 152
+        Me.Button3.Text = "alle Anhänge auswählen"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(9, 168)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(135, 13)
+        Me.Label6.TabIndex = 147
+        Me.Label6.Text = "Dokumente:"
+        '
+        'lblAnh
+        '
+        Me.lblAnh.Location = New System.Drawing.Point(332, 168)
+        Me.lblAnh.Name = "lblAnh"
+        Me.lblAnh.Size = New System.Drawing.Size(135, 13)
+        Me.lblAnh.TabIndex = 151
+        Me.lblAnh.Visible = False
+        '
+        'btnAgg_Tnr
+        '
+        Me.btnAgg_Tnr.BackColor = System.Drawing.Color.DeepSkyBlue
+        Me.btnAgg_Tnr.Location = New System.Drawing.Point(76, 3)
+        Me.btnAgg_Tnr.Name = "btnAgg_Tnr"
+        Me.btnAgg_Tnr.Size = New System.Drawing.Size(83, 23)
+        Me.btnAgg_Tnr.TabIndex = 154
+        Me.btnAgg_Tnr.Tag = "1"
+        Me.btnAgg_Tnr.Text = "Tarifnummer"
+        Me.btnAgg_Tnr.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.Label2.Location = New System.Drawing.Point(3, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(103, 17)
+        Me.Label2.TabIndex = 149
+        Me.Label2.Text = "Aggregieren:"
+        '
+        'btnAgg_Origin
+        '
+        Me.btnAgg_Origin.BackColor = System.Drawing.Color.DeepSkyBlue
+        Me.btnAgg_Origin.Location = New System.Drawing.Point(162, 3)
+        Me.btnAgg_Origin.Name = "btnAgg_Origin"
+        Me.btnAgg_Origin.Size = New System.Drawing.Size(92, 23)
+        Me.btnAgg_Origin.TabIndex = 155
+        Me.btnAgg_Origin.Tag = "1"
+        Me.btnAgg_Origin.Text = "Ursprungsland"
+        Me.btnAgg_Origin.UseVisualStyleBackColor = False
+        '
+        'btnAgg_Unit
+        '
+        Me.btnAgg_Unit.Location = New System.Drawing.Point(257, 3)
+        Me.btnAgg_Unit.Name = "btnAgg_Unit"
+        Me.btnAgg_Unit.Size = New System.Drawing.Size(79, 23)
+        Me.btnAgg_Unit.TabIndex = 156
+        Me.btnAgg_Unit.Tag = "0"
+        Me.btnAgg_Unit.Text = "Maßeinheit"
+        Me.btnAgg_Unit.UseVisualStyleBackColor = True
+        '
+        'btnAgg_desc
+        '
+        Me.btnAgg_desc.Location = New System.Drawing.Point(339, 3)
+        Me.btnAgg_desc.Name = "btnAgg_desc"
+        Me.btnAgg_desc.Size = New System.Drawing.Size(126, 23)
+        Me.btnAgg_desc.TabIndex = 157
+        Me.btnAgg_desc.Tag = "0"
+        Me.btnAgg_desc.Text = "Warenbeschreibung"
+        Me.btnAgg_desc.UseVisualStyleBackColor = True
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(3, 184)
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(675, 158)
+        Me.dgvAnhaenge.TabIndex = 112
+        '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'btnPrio_CommInv
+        '
+        Me.btnPrio_CommInv.BackColor = System.Drawing.Color.White
+        Me.btnPrio_CommInv.Location = New System.Drawing.Point(76, 28)
+        Me.btnPrio_CommInv.Name = "btnPrio_CommInv"
+        Me.btnPrio_CommInv.Size = New System.Drawing.Size(116, 23)
+        Me.btnPrio_CommInv.TabIndex = 159
+        Me.btnPrio_CommInv.Tag = "0"
+        Me.btnPrio_CommInv.Text = "Handelsrechnung"
+        Me.btnPrio_CommInv.UseVisualStyleBackColor = False
+        '
+        'Label5
+        '
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.Label5.Location = New System.Drawing.Point(3, 33)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(103, 17)
+        Me.Label5.TabIndex = 160
+        Me.Label5.Text = "Priorität:"
+        '
+        'btnPrio_eFatura
+        '
+        Me.btnPrio_eFatura.BackColor = System.Drawing.Color.White
+        Me.btnPrio_eFatura.Location = New System.Drawing.Point(195, 28)
+        Me.btnPrio_eFatura.Name = "btnPrio_eFatura"
+        Me.btnPrio_eFatura.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_eFatura.TabIndex = 161
+        Me.btnPrio_eFatura.Tag = "0"
+        Me.btnPrio_eFatura.Text = "eFatura"
+        Me.btnPrio_eFatura.UseVisualStyleBackColor = False
+        '
+        'btnPrio_Export
+        '
+        Me.btnPrio_Export.BackColor = System.Drawing.Color.White
+        Me.btnPrio_Export.Location = New System.Drawing.Point(267, 28)
+        Me.btnPrio_Export.Name = "btnPrio_Export"
+        Me.btnPrio_Export.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_Export.TabIndex = 162
+        Me.btnPrio_Export.Tag = "0"
+        Me.btnPrio_Export.Text = "Ausfuhr"
+        Me.btnPrio_Export.UseVisualStyleBackColor = False
+        '
+        'btnPrio_ftz
+        '
+        Me.btnPrio_ftz.BackColor = System.Drawing.Color.White
+        Me.btnPrio_ftz.Location = New System.Drawing.Point(339, 28)
+        Me.btnPrio_ftz.Name = "btnPrio_ftz"
+        Me.btnPrio_ftz.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_ftz.TabIndex = 163
+        Me.btnPrio_ftz.Tag = "0"
+        Me.btnPrio_ftz.Text = "FTZ"
+        Me.btnPrio_ftz.UseVisualStyleBackColor = False
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.Panel1.Controls.Add(Me.btnPrio_CommInv)
+        Me.Panel1.Controls.Add(Me.btnAgg_Tnr)
+        Me.Panel1.Controls.Add(Me.btnPrio_ftz)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.btnPrio_Export)
+        Me.Panel1.Controls.Add(Me.btnAgg_Origin)
+        Me.Panel1.Controls.Add(Me.btnPrio_eFatura)
+        Me.Panel1.Controls.Add(Me.btnAgg_Unit)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.btnAgg_desc)
+        Me.Panel1.Location = New System.Drawing.Point(0, 343)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(470, 54)
+        Me.Panel1.TabIndex = 164
+        '
+        'frmATEZ_MIC
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.ClientSize = New System.Drawing.Size(680, 409)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.lblAnh)
+        Me.Controls.Add(Me.pnlHead)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.btnSend)
+        Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmATEZ_MIC"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "ATEZ UK"
+        Me.pnlHead.ResumeLayout(False)
+        Me.pnlHead.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btnSend As Button
+    Friend WithEvents pnlHead As Panel
+    Friend WithEvents lblInfo As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents columnName As DataGridViewTextBoxColumn
+    Friend WithEvents Label9 As Label
+    Friend WithEvents sbAdressierteZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents lblBezugsnummer As Label
+    Friend WithEvents lblAnh As Label
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents btnAgg_Tnr As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents btnAgg_Origin As Button
+    Friend WithEvents btnAgg_Unit As Button
+    Friend WithEvents btnAgg_desc As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents btnPrio_CommInv As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents btnPrio_eFatura As Button
+    Friend WithEvents btnPrio_Export As Button
+    Friend WithEvents btnPrio_ftz As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents PictureBox1 As PictureBox
+End Class

Aviso/ATEZ/frmATEZ_MIC.vb

@@ -0,0 +1,727 @@
+
+Imports com.esendex.sdk.optouts.models
+Imports DAKOSY_Worker
+Imports DAKOSY_Worker.eZollTypes
+Imports SDL
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cRelayHub
+
+
+Public Class frmATEZ_MIC
+
+    Dim ART As String = ""
+    Dim FilialenNr As Integer
+    Dim AbfertigungsNr As Integer
+    Dim JAHR As Integer = Now.ToString("yy")
+    Public isSTAMMREF As Boolean = False
+    Public STAMMREF As String = ""
+    Public CopyFromZA_Id As Integer = -1
+    Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+    Dim ZOLL_SYSTEM = "MODALTRANS"
+    Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
+    Public ATT As List(Of String)
+    Dim AVISO As New cAviso
+    Dim zusatz As String
+    Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
+    Dim VermerkeDAL As New cVermerkeDAL
+    Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    Dim openExisting As Boolean = False
+    Dim id As Integer = -1
+    Dim dgv As DataGridView = Nothing
+    Dim atez_data As cATEZ_NCTS_DATA
+    ' Dim atez = New cATEZ_NCTS_IN("ATEZ")
+    Dim allSelected As Boolean = False
+
+    Property BezugsNr As String = ""
+    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
+
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        If _dgv IsNot Nothing Then Me.dgv = _dgv
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        openExisting = True
+        id = _id
+
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSend.Click, Button2.Click
+        Try
+            If Not checkMandatoryField() Then Exit Sub
+
+            Me.Cursor = Cursors.WaitCursor
+            lblInfo.Text = ""
+
+            '----------------------------------------------------------------------
+            ' Referenz
+            '----------------------------------------------------------------------
+            Dim ioReferenceLRN As String = lblBezugsnummer.Text
+            Dim ioReference As String = lblBezugsnummer.Text & Now.ToString("ddMMyyyy_HHmmss")
+
+            '----------------------------------------------------------------------
+            ' RelayHub Request - MIC NL Import
+            '----------------------------------------------------------------------
+            'Dim environment = If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, cRelayHubEnvironment.TEST, cRelayHubEnvironment.PROD)
+
+            '----------------------------------------------------------------------
+            ' RelayHub Request - MIC NL Import
+            '----------------------------------------------------------------------
+            Dim environment = cRelayHubEnvironment.TEST
+
+            Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
+                        .environment = environment,
+                        .referenceNo = ioReference,
+                        .regimeType = "IM",
+                        .outputApplication = cRelayHubOutputApplication.MIC_NL_IMPORT,
+                        .dispatchCountry = "TR",
+                        .destinationCountry = "NL",
+                        .additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With {
+                            .micImportShipment = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubMicImportShipment With {
+                                .company = "NL",
+                                .plant = "IN",
+                                .connectionId = "MICWebService",
+                                .partnerId = ioReferenceLRN,
+                                .partyId = "party-id-003",
+                                .shipmentId = ioReferenceLRN,
+                                .actionCode = "DIF",
+                                .shipmentType = "E"
+                            },
+                            .declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From {
+                                New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
+                                    .addresses = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress)
+                                }
+                            }
+                        },
+                        .additionalSettings = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalSettings With {
+                            .disableOutbound = True,
+                            .disableValidation = False
+                        }
+                    }
+
+            '----------------------------------------------------------------------
+            ' Dokumente
+            '----------------------------------------------------------------------
+            ATEZ_RH_EZA.documents = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument)
+
+            For Each r As DataGridViewRow In dgvAnhaenge.Rows
+                Dim isSelected As Boolean = If(DBNull.Value Is r.Cells("anh_selekt").Value, False, r.Cells("anh_selekt").Value)
+
+                If isSelected Then
+                    Dim DOC As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument
+                    DOC.fileType = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getRelayHub_AnhDesc(r.Cells("anh_Art").Value)
+                    DOC.type = "base64"
+                    DOC.filename = r.Cells("anh_Name").Value
+
+                    Try
+                        Dim dateiBytes As Byte() = IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
+                        DOC.base64String = Convert.ToBase64String(dateiBytes)
+                        ATEZ_RH_EZA.documents.Add(DOC)
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+                End If
+            Next
+
+            '----------------------------------------------------------------------
+            ' Empfänger / Consignee - CN
+            '----------------------------------------------------------------------
+            If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
+                Dim AD As New cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
+                Dim KD As New cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
+                Dim CN As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
+
+                CN.addressType = "CN"
+                CN.participantEORI = If(KD.EORITIN, "")
+                CN.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
+                CN.companyName = AD.Name_1
+                CN.streetAndNumber = AD.Straße
+                CN.postalCode = AD.PLZ
+                CN.city = AD.Ort
+                CN.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
+
+                ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CN)
+                If Not String.IsNullOrWhiteSpace(CN.countryCode) Then ATEZ_RH_EZA.destinationCountry = CN.countryCode
+            End If
+
+            '----------------------------------------------------------------------
+            ' Absender / Consignor - CZ
+            '----------------------------------------------------------------------
+            If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+                Dim AD As New cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
+                Dim KD As New cKunde(SENDUNG.tblSnd_AbsenderKdNr)
+                Dim CZ As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
+
+                CZ.addressType = "CZ"
+                CZ.participantEORI = If(KD.EORITIN, "")
+                CZ.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
+                CZ.companyName = AD.Name_1
+                CZ.streetAndNumber = AD.Straße
+                CZ.postalCode = AD.PLZ
+                CZ.city = AD.Ort
+                CZ.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
+
+                ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CZ)
+                If Not String.IsNullOrWhiteSpace(CZ.countryCode) Then ATEZ_RH_EZA.dispatchCountry = CZ.countryCode
+            End If
+
+            '----------------------------------------------------------------------
+            ' Pflichtfelder
+            '----------------------------------------------------------------------
+            ATEZ_RH_EZA.dispatchCountry = If(ATEZ_RH_EZA.dispatchCountry, "").Trim().ToUpperInvariant()
+            ATEZ_RH_EZA.destinationCountry = If(ATEZ_RH_EZA.destinationCountry, "").Trim().ToUpperInvariant()
+
+            '----------------------------------------------------------------------
+            ' JSON anzeigen
+            '----------------------------------------------------------------------
+            If sender Is Button2 Then
+                MsgBox(VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getJSON(ATEZ_RH_EZA))
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+
+            '----------------------------------------------------------------------
+            ' Senden
+            '----------------------------------------------------------------------
+            Dim RESP = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
+
+            If RESP.Success Then
+                MsgBox("Erfolgreich an RelayHub / MIC gesendet!" & vbNewLine & "Job Order: " & If(RESP.Data?.jobOrderNo, "") & vbNewLine & "Processing ID: " & If(RESP.Data?.jobOrderProcessingId, ""))
+                Me.Close()
+            Else
+                MsgBox("ERROR" & vbNewLine & RESP.Details, MsgBoxStyle.OkOnly, RESP.Message)
+            End If
+
+            Me.Cursor = Cursors.Default
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+    End Sub
+    Private Function getTelefon() As String
+        Dim defaultDW = "200"
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "ATILLA" : Return "0043 7711 28450"
+            Case "AMBAR" : Return "0049 8651 9962492"
+            Case "UNISPED" : defaultDW = "800"
+            Case "IMEX" : defaultDW = "602"
+            Case "VERAG" : defaultDW = "200"
+        End Select
+
+        Dim dw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
+        Return "0049 8503 7973999 " &
+               If(String.IsNullOrEmpty(dw) OrElse dw.Length >= 5, defaultDW, dw)
+    End Function
+    Private Function getDefaultMail_FIRMA() As String
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "VERAG" : Return "quickstop@verag.ag"
+            Case "IMEX" : Return "steuerbescheide@imex-group.at"
+            Case "UNISPED" : Return "office@unisped.at"
+            Case "AMBAR" : Return "office@ambarlog.com"
+        End Select
+        Return "quickstop@verag.ag"
+    End Function
+    'Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
+
+    '    Dim failreDesc As String
+
+    '    Dim authResp = atez.authenticate("NCTS")
+    '    If authResp <> "200" Then
+
+    '        failreDesc = "Authentifizierung fehlgeschlagen"
+    '        lblInfo.Text = failreDesc & " - " & authResp & vbNewLine & "Vorgang abgebrochen" & vbNewLine & " Bitte wiederholen!"
+    '        Dim resultAuthentifizierung As MsgBoxResult = MsgBox("Fehler beim Authentifizieren" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+
+    '        If resultAuthentifizierung = vbYes Then
+    '            atezData.status = "Draft"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        Else
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        End If
+
+    '        Return False
+    '    End If
+
+    '    atezData.sessionId = atez.sessionID
+
+
+    '    If Not atez.setJsonNCTS(atezData) Then
+    '        MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+    '        atezData.status = "Failure"
+    '        atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
+    '        Return atezData.SAVE
+    '    End If
+
+    '    If checkAttachment() Then
+    '        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
+    '            MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
+    '            Return atezData.SAVE
+    '        End If
+    '    End If
+
+
+    '    Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST")
+
+    '    If failreDesc <> "" Then
+    '        If atezData.status = "Draft" Then
+    '            MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+
+    '        End If
+    '        Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+    '        If result = vbYes Then
+    '            atezData.status = "Draft"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        Else
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        End If
+
+    '        lblInfo.Text = "Fehler in der API "
+
+    '    Else
+
+    '        If azetId = "-1" Then
+    '            atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
+    '        Else
+    '            atezData.fehlerbeschreibung = ""
+    '        End If
+    '        atezData.status = "Sent"
+    '        atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
+    '        Return atezData.SAVE()
+
+    '    End If
+
+    'End Function
+
+    Function getBezugsnr(ByRef BezugsNr)
+        Dim BezugsNrTmp = ""
+        BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+        BezugsNr = BezugsNrTmp
+        zusatz = "A"
+
+        If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+            For Each r As DataGridViewRow In dgv.Rows
+                If r.Cells("BezugsNr").Value = BezugsNr Then
+
+                    If zusatz.Length = 1 Then
+                        zusatz = Chr(Asc(zusatz.ToString) + 1)
+                    Else
+                        zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+                    End If
+
+                    If zusatz = "Z" Then zusatz = "AA"
+                End If
+                BezugsNr = BezugsNrTmp & "/" & zusatz
+            Next
+
+        End If
+
+        While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+
+            If zusatz.Length = 1 Then
+                zusatz = Chr(Asc(zusatz.ToString) + 1)
+            Else
+                zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+            End If
+
+            If zusatz = "Z" Then zusatz = "AA"
+        End While
+
+        lblBezugsnummer.Text = BezugsNr
+        Return BezugsNr
+    End Function
+
+
+    Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        'Select Case FIRMA_DY
+        '    Case "VERAG" : txtDyMandant.Text = "VERG"
+        '        txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+
+        '        Select Case FilialenNr
+        '            Case "5103" : txtDyNiederlassung.Text = "WAI"
+
+        '        End Select
+
+
+        '    Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+        '    Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+        '    Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+        '    Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        'End Select 
+        FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me, "EZA")
+        'txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
+        'txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
+
+        'Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString
+
+        initSeachboxes()
+        lblAnh.Visible = True
+
+
+        If openExisting Then
+
+            If id > 0 Then
+                '  atez_data = New cATEZ_NCTS_DATA(id)
+                initAttachment()
+                If atez_data.atezId <> "" Then
+                    lblInfo.Text = "Atez-ID " & atez_data.atezId
+                Else
+                    lblInfo.Text = "Status: " & IIf(atez_data.fehlerbeschreibung <> "", atez_data.status & "- " & atez_data.fehlerbeschreibung, atez_data.status)
+                End If
+
+
+                lblBezugsnummer.Text = atez_data.VERAG_LRN
+
+                'cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ")  and dySr_visible=1", False, "FMZOLL", True)
+                'cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
+                'cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
+
+                txtLKWId.Text = atez_data.LicensePlateContainerNo
+
+                'sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
+                sbAdressierteZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
+
+
+
+
+                If atez_data.status = "Draft" Then
+                    btnSend.Text = "An ATEZ senden -->"
+                    pnlHead.Enabled = True
+                    btnSend.Enabled = True
+                    'initAttachment()
+
+                Else
+                    btnSend.Text = "JSON"
+                    pnlHead.Enabled = False
+                    dgvAnhaenge.ReadOnly = True
+                    btnSend.Enabled = True
+
+
+                End If
+
+
+            Else
+                btnSend.Enabled = False
+            End If
+
+        Else
+            ' atez_data = New cATEZ_NCTS_DATA()
+            initAttachment()
+            'Button1.Text = "An ATEZ senden -->"
+            pnlHead.Enabled = True
+
+            'cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ")  and dySr_visible=1", False, "FMZOLL", True)
+            'cboStammreferenz.changeItem("")
+
+            getBezugsnr(BezugsNr)
+            txtLKWId.Text = AVISO.LKW_Nr
+
+            '       sbBestimmungsZollstelle.SET_VALUE(SENDUNG.NCTS_Bestimmungszollstelle)
+
+            If AVISO.Grenzstelle.Replace("???", "") = "" Then
+                sbAdressierteZollstelle.SET_VALUE(AVISO.Zollstelle)
+            Else
+
+                Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
+                If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+                    If GRZ.grz_ZollamtDST IsNot Nothing Then
+                        sbAdressierteZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
+                    End If
+                End If
+            End If
+
+
+        End If
+        'initAttachment()
+    End Sub
+
+    Sub initAttachment()
+        Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
+
+                                                case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
+                                                   [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ NOT IN ('MSG', 'SONSTIGES')
+                                           ORDER BY  anh_SendungsId desc,
+										  case	  
+                                                when [anh_Art] = 'ATR-EUR1' then 0
+                                                when [anh_Art] = 'Rechnung' then 1
+                                                when [anh_Art] = 'eFatura' then 1.1
+                                                when [anh_Art] = 'CMR' then 2
+                                                when [anh_Art] = 'Ausfuhr' then 3
+                                                when [anh_Art] = 'Vorpapier' then 4
+                                                when [anh_Art] = 'Packliste' then 5
+                                                when [anh_Art] = 'Auftrag' then 6
+                                                when [anh_Art] = 'Auftrag' then 7
+                                                when [anh_Art] = 'Dispoliste' then 8
+                                                when [anh_Art] = 'Vorkasse' then 9
+                                                when [anh_Art] = 'Überweisungsbeleg' then 10
+                                                when [anh_Art] = 'Vollmacht' then 11
+                                                when [anh_Art] = 'ATB' then 12
+                                                when [anh_Art] = 'ATA' then 13
+                                                when [anh_Art] = 'Sonstiges' then 99
+                                                when [anh_Art] ='' then 15
+
+										END, [anh_Reihenfolge],[anh_id]"
+
+        Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+        Dim col As DataColumn
+        col = dt.Columns.Add("anh_selekt", GetType(Boolean))
+        col.SetOrdinal(0)
+        dgvAnhaenge.Columns.Clear()
+        dgvAnhaenge.DataSource = dt
+        If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
+
+        With dgvAnhaenge
+
+            .Enabled = True
+            .ReadOnly = False
+
+            .RowTemplate.MinimumHeight = 30
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
+            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+            '  .Columns("anh_Art").Visible = False     'AvisoID nicht anzeigen
+
+            .Columns("anh_selekt").Width = 25
+            .Columns("anh_selekt").HeaderText = ""
+            .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Datum").MinimumWidth = 50
+            .Columns("anh_Datum").HeaderText = "Datum"
+            .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Datum").ReadOnly = True
+
+
+            .Columns("anh_Name").MinimumWidth = 150
+            .Columns("anh_Name").HeaderText = "Name"
+            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("anh_Name").ReadOnly = True
+
+            .Columns("anh_Art").MinimumWidth = 50
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Art").ReadOnly = True
+
+            .Columns("anh_Typ").Width = 50
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Typ").ReadOnly = True
+
+            .Columns("anh_size").Width = 50
+            .Columns("anh_size").HeaderText = "Größe in MB"
+            .Columns("anh_size").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_size").ReadOnly = True
+
+        End With
+
+        For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+
+            If Not IsDBNull(doc.Cells("anh_size").Value) AndAlso doc.Cells("anh_size").Value > 0 Then
+                Dim size = (doc.Cells("anh_size").Value)
+                If size < 1 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightGreen
+                ElseIf size > 1 AndAlso size < 5 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightYellow
+                Else
+                    doc.DefaultCellStyle.BackColor = Color.IndianRed
+                End If
+            End If
+
+        Next
+
+        If atez_data IsNot Nothing AndAlso atez_data.selectedDocuments <> "" Then
+
+            For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                If atez_data.selectedDocuments.Contains(doc.Cells("anh_docId").Value) Then doc.Cells("anh_selekt").Value = True
+
+            Next
+        End If
+
+
+    End Sub
+
+
+    Sub initSeachboxes()
+
+        sbAdressierteZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        'sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+
+    End Sub
+
+
+
+    Public Function checkAttachment() As Boolean
+
+        Dim selectedDocuments As Boolean = False
+
+        For Each Row In dgvAnhaenge.Rows
+
+            selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
+            If selectedDocuments Then Exit For
+        Next
+
+
+        'If Not selectedDocuments Then
+        '    lblInfo.Text = "kein Anhang selektiert"
+        '    Cursor = Cursors.Default
+        '    Return selectedDocuments
+        'End If
+
+        Return selectedDocuments
+
+    End Function
+
+    Public Function checkMandatoryField() As Boolean
+
+
+        'TODO
+        Return True
+
+
+    End Function
+
+
+
+    Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick
+        Try
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("anh_docId").Value)
+                If Not IO.File.Exists(docPath) Then
+                    MsgBox("Die Datei existiert nicht!")
+                Else
+                    If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler  (bereits von Benutzer soUndSo geöffnet)
+                        Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
+                        System.IO.File.Copy(docPath, docPathTMP)
+                        Process.Start(docPathTMP)
+                    Else
+                        Process.Start(docPath)
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Private Sub dgvAnhaenge_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick
+
+        Dim countAnh As Double = 0
+        If dgvAnhaenge.RowCount > 0 Then
+
+            If dgvAnhaenge.Columns(e.ColumnIndex).Name = "anh_selekt" Then
+
+                If Not IsDBNull(dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value) AndAlso dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value = True Then
+                    countAnh += IIf(dgvAnhaenge.CurrentRow.Cells("anh_size").Value IsNot DBNull.Value, dgvAnhaenge.CurrentRow.Cells("anh_size").Value, 0)
+                End If
+
+                For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                    If Row.Cells("anh_selekt").Value IsNot DBNull.Value AndAlso Row.Cells("anh_selekt").Value = True AndAlso Row.Cells("anh_size").Value IsNot DBNull.Value Then
+                        countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                    End If
+                Next
+
+                lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+
+            End If
+
+        End If
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvAnhaenge.RowCount > 0 Then
+            Dim countAnh As Double = 0
+            For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                If allSelected Then
+                    Row.Cells("anh_selekt").Value = True
+                    countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                Else
+                    Row.Cells("anh_selekt").Value = False
+                    countAnh = 0
+                End If
+            Next
+            allSelected = Not allSelected
+            lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+        End If
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        cRelayHubToken.DeleteAllStores()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAgg_Tnr.Click, btnAgg_desc.Click, btnAgg_Origin.Click, btnAgg_Unit.Click
+        If sender.Tag = 0 Then
+            sender.Tag = 1
+            sender.BackColor = Color.DeepSkyBlue
+        Else
+            sender.Tag = 0
+            sender.BackColor = SystemColors.Control
+        End If
+    End Sub
+    Private Sub Buttonprio_Click(sender As Object, e As EventArgs) Handles btnPrio_CommInv.Click, btnPrio_ftz.Click, btnPrio_eFatura.Click, btnPrio_Export.Click
+
+        If sender IsNot btnPrio_CommInv Then btnPrio_CommInv.Tag = 0 : btnPrio_CommInv.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_eFatura Then btnPrio_eFatura.Tag = 0 : btnPrio_eFatura.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_Export Then btnPrio_Export.Tag = 0 : btnPrio_Export.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_ftz Then btnPrio_ftz.Tag = 0 : btnPrio_ftz.BackColor = SystemColors.Control
+
+
+        If sender.Tag = 0 Then
+            sender.Tag = 1
+            sender.BackColor = Color.DeepSkyBlue
+        Else
+            sender.Tag = 0
+            sender.BackColor = SystemColors.Control
+        End If
+    End Sub
+End Class

Aviso/ATEZ/frmATEZ_NCTS.Designer.vb

@@ -39,11 +39,9 @@ Partial Class frmATEZ_NCTS
         Me.lblC = New System.Windows.Forms.Label()
         Me.txtTransporttemp = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxTemperatur = New System.Windows.Forms.CheckBox()
-        Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle9 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle8 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
-        Me.sbDurchgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
@@ -69,11 +67,14 @@ Partial Class frmATEZ_NCTS
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtDyNiederlassung = New System.Windows.Forms.Label()
         Me.lblBezugsnummer = New System.Windows.Forms.Label()
+        Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.lblAnh = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.pnlHead.SuspendLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -83,17 +84,17 @@ Partial Class frmATEZ_NCTS
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.BackColor = System.Drawing.Color.White
         Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button1.Image = Global.AVISO.My.Resources.Resources.Transcode
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.Button1.Location = New System.Drawing.Point(395, 773)
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button1.Image = Global.AVISO.My.Resources.Resources.ico_atez_transitAI
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(379, 773)
         Me.Button1.Margin = New System.Windows.Forms.Padding(2)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(192, 58)
+        Me.Button1.Padding = New System.Windows.Forms.Padding(5, 0, 5, 0)
+        Me.Button1.Size = New System.Drawing.Size(208, 58)
         Me.Button1.TabIndex = 26
         Me.Button1.Text = "An ATEZ senden >>"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button1.UseVisualStyleBackColor = False
         '
         'pnlHead
@@ -154,7 +155,7 @@ Partial Class frmATEZ_NCTS
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(10, 59)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(52, 13)
+        Me.Label2.Size = New System.Drawing.Size(56, 13)
         Me.Label2.TabIndex = 150
         Me.Label2.Text = "Prozedur:"
         Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -168,7 +169,7 @@ Partial Class frmATEZ_NCTS
         Me.cboProzedur.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboProzedur.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.cboProzedur.FormattingEnabled = True
-        Me.cboProzedur.Location = New System.Drawing.Point(151, 56)
+        Me.cboProzedur.Location = New System.Drawing.Point(157, 56)
         Me.cboProzedur.Name = "cboProzedur"
         Me.cboProzedur.Size = New System.Drawing.Size(100, 21)
         Me.cboProzedur.TabIndex = 149
@@ -186,9 +187,9 @@ Partial Class frmATEZ_NCTS
         '
         Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(389, 88)
+        Me.Label8.Location = New System.Drawing.Point(378, 88)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(57, 13)
+        Me.Label8.Size = New System.Drawing.Size(61, 13)
         Me.Label8.TabIndex = 146
         Me.Label8.Text = "Stammref.:"
         Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -222,12 +223,12 @@ Partial Class frmATEZ_NCTS
         Me.txtLKWId._Waehrung = False
         Me.txtLKWId._WaehrungZeichen = True
         Me.txtLKWId.ForeColor = System.Drawing.Color.Black
-        Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
+        Me.txtLKWId.Location = New System.Drawing.Point(157, 86)
         Me.txtLKWId.MaxLineLength = -1
         Me.txtLKWId.MaxLines_Warning = ""
         Me.txtLKWId.MaxLines_Warning_Label = Nothing
         Me.txtLKWId.Name = "txtLKWId"
-        Me.txtLKWId.Size = New System.Drawing.Size(196, 20)
+        Me.txtLKWId.Size = New System.Drawing.Size(196, 22)
         Me.txtLKWId.TabIndex = 144
         '
         'usrCntl_Carrier
@@ -255,7 +256,7 @@ Partial Class frmATEZ_NCTS
         Me.txtDat._WaehrungZeichen = True
         Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
         Me.txtDat.ForeColor = System.Drawing.Color.Black
-        Me.txtDat.Location = New System.Drawing.Point(151, 160)
+        Me.txtDat.Location = New System.Drawing.Point(157, 160)
         Me.txtDat.MaxLength = 10
         Me.txtDat.MaxLineLength = -1
         Me.txtDat.MaxLines_Warning = ""
@@ -270,7 +271,7 @@ Partial Class frmATEZ_NCTS
         Me.dtpDat.CustomFormat = "''"
         Me.dtpDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.dtpDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.dtpDat.Location = New System.Drawing.Point(151, 160)
+        Me.dtpDat.Location = New System.Drawing.Point(157, 160)
         Me.dtpDat.Margin = New System.Windows.Forms.Padding(0)
         Me.dtpDat.Name = "dtpDat"
         Me.dtpDat.Size = New System.Drawing.Size(110, 24)
@@ -278,16 +279,17 @@ Partial Class frmATEZ_NCTS
         '
         'Label7
         '
-        Me.Label7.Location = New System.Drawing.Point(10, 160)
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(10, 165)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(134, 17)
+        Me.Label7.Size = New System.Drawing.Size(145, 13)
         Me.Label7.TabIndex = 140
         Me.Label7.Text = "Wiedergestellungs-Datum:"
         '
         'lblC
         '
         Me.lblC.AutoSize = True
-        Me.lblC.Location = New System.Drawing.Point(251, 191)
+        Me.lblC.Location = New System.Drawing.Point(257, 191)
         Me.lblC.Name = "lblC"
         Me.lblC.Size = New System.Drawing.Size(18, 13)
         Me.lblC.TabIndex = 139
@@ -308,51 +310,26 @@ Partial Class frmATEZ_NCTS
         Me.txtTransporttemp._Waehrung = False
         Me.txtTransporttemp._WaehrungZeichen = True
         Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black
-        Me.txtTransporttemp.Location = New System.Drawing.Point(151, 187)
+        Me.txtTransporttemp.Location = New System.Drawing.Point(157, 187)
         Me.txtTransporttemp.MaxLineLength = -1
         Me.txtTransporttemp.MaxLines_Warning = ""
         Me.txtTransporttemp.MaxLines_Warning_Label = Nothing
         Me.txtTransporttemp.Name = "txtTransporttemp"
-        Me.txtTransporttemp.Size = New System.Drawing.Size(100, 20)
+        Me.txtTransporttemp.Size = New System.Drawing.Size(100, 22)
         Me.txtTransporttemp.TabIndex = 138
         '
         'cbxTemperatur
         '
         Me.cbxTemperatur.AutoSize = True
-        Me.cbxTemperatur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxTemperatur.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cbxTemperatur.Location = New System.Drawing.Point(13, 187)
         Me.cbxTemperatur.Name = "cbxTemperatur"
-        Me.cbxTemperatur.Size = New System.Drawing.Size(131, 17)
+        Me.cbxTemperatur.Size = New System.Drawing.Size(138, 17)
         Me.cbxTemperatur.TabIndex = 137
         Me.cbxTemperatur.TabStop = False
         Me.cbxTemperatur.Text = "Transport-Temperatur:"
         Me.cbxTemperatur.UseVisualStyleBackColor = True
         '
-        'sbDurchgangszollstelle5
-        '
-        Me.sbDurchgangszollstelle5._allowFreitext = False
-        Me.sbDurchgangszollstelle5._AllowSetValue = False
-        Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False
-        Me.sbDurchgangszollstelle5._autoSizeGross = False
-        Me.sbDurchgangszollstelle5._hideIfListEmpty = True
-        Me.sbDurchgangszollstelle5._value = ""
-        Me.sbDurchgangszollstelle5.conn_art = "FMZOLL"
-        Me.sbDurchgangszollstelle5.dgvpos = "LEFT"
-        Me.sbDurchgangszollstelle5.DISPLAY_PARAM = Nothing
-        Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
-        Me.sbDurchgangszollstelle5.key_visible = False
-        Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(206, 415)
-        Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
-        Me.sbDurchgangszollstelle5.searchActive = True
-        Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(171, 20)
-        Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing
-        Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing
-        Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing
-        Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing
-        Me.sbDurchgangszollstelle5.TabIndex = 132
-        Me.sbDurchgangszollstelle5.usrcntl = Nothing
-        '
         'sbDurchgangszollstelle9
         '
         Me.sbDurchgangszollstelle9._allowFreitext = False
@@ -370,7 +347,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(376, 434)
         Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
         Me.sbDurchgangszollstelle9.searchActive = True
-        Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(198, 20)
+        Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(198, 22)
         Me.sbDurchgangszollstelle9.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing
@@ -395,7 +372,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(207, 434)
         Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
         Me.sbDurchgangszollstelle8.searchActive = True
-        Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(171, 20)
+        Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(171, 22)
         Me.sbDurchgangszollstelle8.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing
@@ -420,7 +397,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 434)
         Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
         Me.sbDurchgangszollstelle7.searchActive = True
-        Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(197, 20)
+        Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(197, 22)
         Me.sbDurchgangszollstelle7.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing
@@ -428,31 +405,6 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle7.TabIndex = 134
         Me.sbDurchgangszollstelle7.usrcntl = Nothing
         '
-        'sbDurchgangszollstelle6
-        '
-        Me.sbDurchgangszollstelle6._allowFreitext = False
-        Me.sbDurchgangszollstelle6._AllowSetValue = False
-        Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False
-        Me.sbDurchgangszollstelle6._autoSizeGross = False
-        Me.sbDurchgangszollstelle6._hideIfListEmpty = True
-        Me.sbDurchgangszollstelle6._value = ""
-        Me.sbDurchgangszollstelle6.conn_art = "FMZOLL"
-        Me.sbDurchgangszollstelle6.dgvpos = "LEFT"
-        Me.sbDurchgangszollstelle6.DISPLAY_PARAM = Nothing
-        Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
-        Me.sbDurchgangszollstelle6.key_visible = False
-        Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(375, 415)
-        Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
-        Me.sbDurchgangszollstelle6.searchActive = True
-        Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(199, 20)
-        Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
-        Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
-        Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
-        Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing
-        Me.sbDurchgangszollstelle6.TabIndex = 133
-        Me.sbDurchgangszollstelle6.usrcntl = Nothing
-        '
         'sbDurchgangszollstelle4
         '
         Me.sbDurchgangszollstelle4._allowFreitext = False
@@ -470,7 +422,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 415)
         Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
         Me.sbDurchgangszollstelle4.searchActive = True
-        Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(195, 20)
+        Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(195, 22)
         Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
@@ -495,7 +447,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(376, 396)
         Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
         Me.sbDurchgangszollstelle3.searchActive = True
-        Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(198, 20)
+        Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(198, 22)
         Me.sbDurchgangszollstelle3.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing
@@ -520,7 +472,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(207, 396)
         Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
         Me.sbDurchgangszollstelle2.searchActive = True
-        Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(171, 20)
+        Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(171, 22)
         Me.sbDurchgangszollstelle2.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing
@@ -545,7 +497,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 396)
         Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
         Me.sbDurchgangszollstelle1.searchActive = True
-        Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(197, 20)
+        Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(197, 22)
         Me.sbDurchgangszollstelle1.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing
@@ -567,7 +519,7 @@ Partial Class frmATEZ_NCTS
         Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.lklRoutenauswahl.Location = New System.Drawing.Point(493, 475)
         Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
-        Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
+        Me.lklRoutenauswahl.Size = New System.Drawing.Size(88, 13)
         Me.lklRoutenauswahl.TabIndex = 117
         Me.lklRoutenauswahl.TabStop = True
         Me.lklRoutenauswahl.Text = "Routenauswahl"
@@ -589,7 +541,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute5.Location = New System.Drawing.Point(205, 510)
         Me.sbRoute5.Name = "sbRoute5"
         Me.sbRoute5.searchActive = True
-        Me.sbRoute5.Size = New System.Drawing.Size(183, 20)
+        Me.sbRoute5.Size = New System.Drawing.Size(183, 22)
         Me.sbRoute5.SQL_ORDER_BY = Nothing
         Me.sbRoute5.SQL_SELECT = Nothing
         Me.sbRoute5.SQL_WHERE = Nothing
@@ -614,7 +566,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute9.Location = New System.Drawing.Point(387, 529)
         Me.sbRoute9.Name = "sbRoute9"
         Me.sbRoute9.searchActive = True
-        Me.sbRoute9.Size = New System.Drawing.Size(187, 20)
+        Me.sbRoute9.Size = New System.Drawing.Size(187, 22)
         Me.sbRoute9.SQL_ORDER_BY = Nothing
         Me.sbRoute9.SQL_SELECT = Nothing
         Me.sbRoute9.SQL_WHERE = Nothing
@@ -639,7 +591,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute8.Location = New System.Drawing.Point(205, 529)
         Me.sbRoute8.Name = "sbRoute8"
         Me.sbRoute8.searchActive = True
-        Me.sbRoute8.Size = New System.Drawing.Size(183, 20)
+        Me.sbRoute8.Size = New System.Drawing.Size(183, 22)
         Me.sbRoute8.SQL_ORDER_BY = Nothing
         Me.sbRoute8.SQL_SELECT = Nothing
         Me.sbRoute8.SQL_WHERE = Nothing
@@ -664,7 +616,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute7.Location = New System.Drawing.Point(13, 529)
         Me.sbRoute7.Name = "sbRoute7"
         Me.sbRoute7.searchActive = True
-        Me.sbRoute7.Size = New System.Drawing.Size(195, 20)
+        Me.sbRoute7.Size = New System.Drawing.Size(195, 22)
         Me.sbRoute7.SQL_ORDER_BY = Nothing
         Me.sbRoute7.SQL_SELECT = Nothing
         Me.sbRoute7.SQL_WHERE = Nothing
@@ -689,7 +641,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute6.Location = New System.Drawing.Point(387, 510)
         Me.sbRoute6.Name = "sbRoute6"
         Me.sbRoute6.searchActive = True
-        Me.sbRoute6.Size = New System.Drawing.Size(187, 20)
+        Me.sbRoute6.Size = New System.Drawing.Size(187, 22)
         Me.sbRoute6.SQL_ORDER_BY = Nothing
         Me.sbRoute6.SQL_SELECT = Nothing
         Me.sbRoute6.SQL_WHERE = Nothing
@@ -714,7 +666,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute4.Location = New System.Drawing.Point(13, 510)
         Me.sbRoute4.Name = "sbRoute4"
         Me.sbRoute4.searchActive = True
-        Me.sbRoute4.Size = New System.Drawing.Size(195, 20)
+        Me.sbRoute4.Size = New System.Drawing.Size(195, 22)
         Me.sbRoute4.SQL_ORDER_BY = Nothing
         Me.sbRoute4.SQL_SELECT = Nothing
         Me.sbRoute4.SQL_WHERE = Nothing
@@ -739,7 +691,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute3.Location = New System.Drawing.Point(387, 491)
         Me.sbRoute3.Name = "sbRoute3"
         Me.sbRoute3.searchActive = True
-        Me.sbRoute3.Size = New System.Drawing.Size(187, 20)
+        Me.sbRoute3.Size = New System.Drawing.Size(187, 22)
         Me.sbRoute3.SQL_ORDER_BY = Nothing
         Me.sbRoute3.SQL_SELECT = Nothing
         Me.sbRoute3.SQL_WHERE = Nothing
@@ -764,7 +716,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute2.Location = New System.Drawing.Point(205, 491)
         Me.sbRoute2.Name = "sbRoute2"
         Me.sbRoute2.searchActive = True
-        Me.sbRoute2.Size = New System.Drawing.Size(183, 20)
+        Me.sbRoute2.Size = New System.Drawing.Size(183, 22)
         Me.sbRoute2.SQL_ORDER_BY = Nothing
         Me.sbRoute2.SQL_SELECT = Nothing
         Me.sbRoute2.SQL_WHERE = Nothing
@@ -789,7 +741,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute1.Location = New System.Drawing.Point(13, 491)
         Me.sbRoute1.Name = "sbRoute1"
         Me.sbRoute1.searchActive = True
-        Me.sbRoute1.Size = New System.Drawing.Size(195, 20)
+        Me.sbRoute1.Size = New System.Drawing.Size(195, 22)
         Me.sbRoute1.SQL_ORDER_BY = Nothing
         Me.sbRoute1.SQL_SELECT = Nothing
         Me.sbRoute1.SQL_WHERE = Nothing
@@ -807,9 +759,9 @@ Partial Class frmATEZ_NCTS
         '
         'Label4
         '
-        Me.Label4.Location = New System.Drawing.Point(10, 138)
+        Me.Label4.Location = New System.Drawing.Point(10, 141)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(121, 17)
+        Me.Label4.Size = New System.Drawing.Size(135, 17)
         Me.Label4.TabIndex = 114
         Me.Label4.Text = "Bestimmungs-Zollstelle:"
         '
@@ -827,10 +779,10 @@ Partial Class frmATEZ_NCTS
         Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
         Me.sbBestimmungsZollstelle.key_visible = False
         Me.sbBestimmungsZollstelle.KEYPARAM = Nothing
-        Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 138)
+        Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(157, 138)
         Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
         Me.sbBestimmungsZollstelle.searchActive = True
-        Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
+        Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 22)
         Me.sbBestimmungsZollstelle.SQL_ORDER_BY = Nothing
         Me.sbBestimmungsZollstelle.SQL_SELECT = Nothing
         Me.sbBestimmungsZollstelle.SQL_WHERE = Nothing
@@ -868,10 +820,10 @@ Partial Class frmATEZ_NCTS
         Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
         Me.sbAbgangZollstelle.key_visible = False
         Me.sbAbgangZollstelle.KEYPARAM = Nothing
-        Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 112)
+        Me.sbAbgangZollstelle.Location = New System.Drawing.Point(157, 112)
         Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
         Me.sbAbgangZollstelle.searchActive = True
-        Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
+        Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 22)
         Me.sbAbgangZollstelle.SQL_ORDER_BY = Nothing
         Me.sbAbgangZollstelle.SQL_SELECT = Nothing
         Me.sbAbgangZollstelle.SQL_WHERE = Nothing
@@ -896,14 +848,14 @@ Partial Class frmATEZ_NCTS
         Me.Label1.BackColor = System.Drawing.Color.White
         Me.Label1.Location = New System.Drawing.Point(296, 19)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.Size = New System.Drawing.Size(89, 13)
         Me.Label1.TabIndex = 106
         Me.Label1.Text = "Bezugsnummer:"
         '
         'txtDyNiederlassung
         '
         Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
-        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 15)
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 14)
         Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
         Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
         Me.txtDyNiederlassung.TabIndex = 108
@@ -921,9 +873,58 @@ Partial Class frmATEZ_NCTS
         Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
         Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         '
+        'sbDurchgangszollstelle5
+        '
+        Me.sbDurchgangszollstelle5._allowFreitext = False
+        Me.sbDurchgangszollstelle5._AllowSetValue = False
+        Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle5._autoSizeGross = False
+        Me.sbDurchgangszollstelle5._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle5._value = ""
+        Me.sbDurchgangszollstelle5.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle5.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle5.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle5.key_visible = False
+        Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(206, 415)
+        Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
+        Me.sbDurchgangszollstelle5.searchActive = True
+        Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(171, 22)
+        Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle5.TabIndex = 132
+        Me.sbDurchgangszollstelle5.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle6
+        '
+        Me.sbDurchgangszollstelle6._allowFreitext = False
+        Me.sbDurchgangszollstelle6._AllowSetValue = False
+        Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle6._autoSizeGross = False
+        Me.sbDurchgangszollstelle6._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle6._value = ""
+        Me.sbDurchgangszollstelle6.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle6.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle6.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle6.key_visible = False
+        Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(375, 415)
+        Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
+        Me.sbDurchgangszollstelle6.searchActive = True
+        Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(199, 22)
+        Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle6.TabIndex = 133
+        Me.sbDurchgangszollstelle6.usrcntl = Nothing
+        '
         'Button3
         '
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.Location = New System.Drawing.Point(409, 584)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(178, 23)
@@ -970,18 +971,30 @@ Partial Class frmATEZ_NCTS
         Me.lblAnh.TabIndex = 151
         Me.lblAnh.Visible = False
         '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(3, 807)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(178, 23)
+        Me.Button2.TabIndex = 155
+        Me.Button2.Text = "JSON"
+        Me.Button2.UseVisualStyleBackColor = True
+        Me.Button2.Visible = False
+        '
         'frmATEZ_NCTS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.ClientSize = New System.Drawing.Size(589, 842)
+        Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.lblAnh)
         Me.Controls.Add(Me.pnlHead)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmATEZ_NCTS"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
@@ -1042,4 +1055,5 @@ Partial Class frmATEZ_NCTS
     Friend WithEvents cboProzedur As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents lblAnh As Label
     Friend WithEvents Button3 As Button
+    Friend WithEvents Button2 As Button
 End Class

Aviso/ATEZ/frmATEZ_NCTS.vb

@@ -72,7 +72,7 @@ Public Class frmATEZ_NCTS
 
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
         Try
 
 
@@ -148,6 +148,11 @@ Public Class frmATEZ_NCTS
             saveRoute(atez_data)
             setDurchgangszolstellen()
             setRoute()
+
+            If sender Is Button2 Then
+                MsgBox(getJSONAtezData(atez_data, atez))
+                Exit Sub
+            End If
             If sendAtezData(atez_data, atez) Then
                 AvisoStatusFunctions.insertSendungsVermerk(SENDUNG.tblSnd_SendungID, SENDUNG.tblSnd_AvisoID, "An ATEZ gesendet", 109)
                 Me.Close()
@@ -165,6 +170,10 @@ Public Class frmATEZ_NCTS
 
     End Sub
 
+    Private Function getJSONAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As String
+        Dim jsonData = atez.setJsonPDF(atezData, dgvAnhaenge)
+        Return (jsonData.Emit())
+    End Function
     Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
 
         Dim failreDesc As String
@@ -446,7 +455,7 @@ Public Class frmATEZ_NCTS
                                                 when [anh_Art] = 'Sonstiges' then 'OTHER'
                                                 when [anh_Art] ='' then 'OTHER' End
                                                 [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
-                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ NOT IN ('MSG', 'SONSTIGES')
                                            ORDER BY  anh_SendungsId desc,
 										  case	  
                                                 when [anh_Art] = 'ATR-EUR1' then 0

Aviso/ATEZ/frmATEZ_TELOTEC.Designer.vb

@@ -0,0 +1,487 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmATEZ_TELOTEC
+    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(frmATEZ_TELOTEC))
+        Me.btnSend = New System.Windows.Forms.Button()
+        Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblInfo = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.lblBezugsnummer = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.lblAnh = New System.Windows.Forms.Label()
+        Me.btnAgg_Tnr = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnAgg_Origin = New System.Windows.Forms.Button()
+        Me.btnAgg_Unit = New System.Windows.Forms.Button()
+        Me.btnAgg_desc = New System.Windows.Forms.Button()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.btnPrio_CommInv = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.btnPrio_eFatura = New System.Windows.Forms.Button()
+        Me.btnPrio_Export = New System.Windows.Forms.Button()
+        Me.btnPrio_ftz = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.pnlHead.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'btnSend
+        '
+        Me.btnSend.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSend.BackColor = System.Drawing.Color.White
+        Me.btnSend.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnSend.Image = Global.AVISO.My.Resources.Resources.ico_atez_declarantAI
+        Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSend.Location = New System.Drawing.Point(473, 343)
+        Me.btnSend.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnSend.Name = "btnSend"
+        Me.btnSend.Padding = New System.Windows.Forms.Padding(5, 0, 5, 0)
+        Me.btnSend.Size = New System.Drawing.Size(205, 58)
+        Me.btnSend.TabIndex = 26
+        Me.btnSend.Text = "An ATEZ senden >>"
+        Me.btnSend.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSend.UseVisualStyleBackColor = False
+        '
+        'pnlHead
+        '
+        Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.PictureBox1)
+        Me.pnlHead.Controls.Add(Me.Button1)
+        Me.pnlHead.Controls.Add(Me.Button2)
+        Me.pnlHead.Controls.Add(Me.Label1)
+        Me.pnlHead.Controls.Add(Me.lblInfo)
+        Me.pnlHead.Controls.Add(Me.Label8)
+        Me.pnlHead.Controls.Add(Me.cboStammreferenz)
+        Me.pnlHead.Controls.Add(Me.txtLKWId)
+        Me.pnlHead.Controls.Add(Me.Label3)
+        Me.pnlHead.Controls.Add(Me.Label9)
+        Me.pnlHead.Controls.Add(Me.sbAdressierteZollstelle)
+        Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
+        Me.pnlHead.Location = New System.Drawing.Point(3, 2)
+        Me.pnlHead.Name = "pnlHead"
+        Me.pnlHead.Size = New System.Drawing.Size(675, 151)
+        Me.pnlHead.TabIndex = 112
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.teleotc_at
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(572, 34)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 50)
+        Me.PictureBox1.TabIndex = 159
+        Me.PictureBox1.TabStop = False
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(553, 117)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(122, 23)
+        Me.Button1.TabIndex = 153
+        Me.Button1.Text = "Clear Token Cache"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(610, 96)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(65, 23)
+        Me.Button2.TabIndex = 158
+        Me.Button2.Text = "json"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(387, 13)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(89, 13)
+        Me.Label1.TabIndex = 106
+        Me.Label1.Text = "Bezugsnummer:"
+        '
+        'lblInfo
+        '
+        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.lblInfo.Location = New System.Drawing.Point(3, 32)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Size = New System.Drawing.Size(460, 21)
+        Me.lblInfo.TabIndex = 148
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(6, 61)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(86, 13)
+        Me.Label8.TabIndex = 146
+        Me.Label8.Text = "Stammreferenz:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.Label8.Visible = False
+        '
+        'cboStammreferenz
+        '
+        Me.cboStammreferenz._allowedValuesFreiText = Nothing
+        Me.cboStammreferenz._allowFreiText = False
+        Me.cboStammreferenz._value = ""
+        Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboStammreferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.cboStammreferenz.FormattingEnabled = True
+        Me.cboStammreferenz.Location = New System.Drawing.Point(151, 56)
+        Me.cboStammreferenz.Name = "cboStammreferenz"
+        Me.cboStammreferenz.Size = New System.Drawing.Size(255, 24)
+        Me.cboStammreferenz.TabIndex = 145
+        Me.cboStammreferenz.Visible = False
+        '
+        'txtLKWId
+        '
+        Me.txtLKWId._DateTimeOnly = False
+        Me.txtLKWId._numbersOnly = False
+        Me.txtLKWId._numbersOnlyKommastellen = ""
+        Me.txtLKWId._numbersOnlyTrennzeichen = True
+        Me.txtLKWId._Prozent = False
+        Me.txtLKWId._ShortDateNew = False
+        Me.txtLKWId._ShortDateOnly = False
+        Me.txtLKWId._TimeOnly = False
+        Me.txtLKWId._TimeOnly_Seconds = False
+        Me.txtLKWId._value = ""
+        Me.txtLKWId._Waehrung = False
+        Me.txtLKWId._WaehrungZeichen = True
+        Me.txtLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtLKWId.ForeColor = System.Drawing.Color.Black
+        Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
+        Me.txtLKWId.MaxLineLength = -1
+        Me.txtLKWId.MaxLines_Warning = ""
+        Me.txtLKWId.MaxLines_Warning_Label = Nothing
+        Me.txtLKWId.Name = "txtLKWId"
+        Me.txtLKWId.Size = New System.Drawing.Size(255, 23)
+        Me.txtLKWId.TabIndex = 144
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(6, 91)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(48, 13)
+        Me.Label3.TabIndex = 113
+        Me.Label3.Text = "LKW-KZ:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(6, 117)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(117, 13)
+        Me.Label9.TabIndex = 110
+        Me.Label9.Text = "Adressierte-Zollstelle:"
+        '
+        'sbAdressierteZollstelle
+        '
+        Me.sbAdressierteZollstelle._allowFreitext = False
+        Me.sbAdressierteZollstelle._AllowSetValue = False
+        Me.sbAdressierteZollstelle._allowSpaceAsSplitter = False
+        Me.sbAdressierteZollstelle._autoSizeGross = False
+        Me.sbAdressierteZollstelle._hideIfListEmpty = True
+        Me.sbAdressierteZollstelle._value = ""
+        Me.sbAdressierteZollstelle.conn_art = "FMZOLL"
+        Me.sbAdressierteZollstelle.dgvpos = "LEFT"
+        Me.sbAdressierteZollstelle.DISPLAY_PARAM = Nothing
+        Me.sbAdressierteZollstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.sbAdressierteZollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.sbAdressierteZollstelle.key_visible = False
+        Me.sbAdressierteZollstelle.KEYPARAM = Nothing
+        Me.sbAdressierteZollstelle.Location = New System.Drawing.Point(151, 112)
+        Me.sbAdressierteZollstelle.Name = "sbAdressierteZollstelle"
+        Me.sbAdressierteZollstelle.searchActive = True
+        Me.sbAdressierteZollstelle.Size = New System.Drawing.Size(255, 23)
+        Me.sbAdressierteZollstelle.SQL_ORDER_BY = Nothing
+        Me.sbAdressierteZollstelle.SQL_SELECT = Nothing
+        Me.sbAdressierteZollstelle.SQL_WHERE = Nothing
+        Me.sbAdressierteZollstelle.SQL_WhereParamList = Nothing
+        Me.sbAdressierteZollstelle.TabIndex = 111
+        Me.sbAdressierteZollstelle.usrcntl = Nothing
+        '
+        'lblBezugsnummer
+        '
+        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
+        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(475, 8)
+        Me.lblBezugsnummer.Name = "lblBezugsnummer"
+        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
+        Me.lblBezugsnummer.TabIndex = 107
+        Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
+        Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(473, 157)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(205, 25)
+        Me.Button3.TabIndex = 152
+        Me.Button3.Text = "alle Anhänge auswählen"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(9, 168)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(135, 13)
+        Me.Label6.TabIndex = 147
+        Me.Label6.Text = "Dokumente:"
+        '
+        'lblAnh
+        '
+        Me.lblAnh.Location = New System.Drawing.Point(332, 168)
+        Me.lblAnh.Name = "lblAnh"
+        Me.lblAnh.Size = New System.Drawing.Size(135, 13)
+        Me.lblAnh.TabIndex = 151
+        Me.lblAnh.Visible = False
+        '
+        'btnAgg_Tnr
+        '
+        Me.btnAgg_Tnr.BackColor = System.Drawing.Color.DeepSkyBlue
+        Me.btnAgg_Tnr.Location = New System.Drawing.Point(76, 3)
+        Me.btnAgg_Tnr.Name = "btnAgg_Tnr"
+        Me.btnAgg_Tnr.Size = New System.Drawing.Size(83, 23)
+        Me.btnAgg_Tnr.TabIndex = 154
+        Me.btnAgg_Tnr.Tag = "1"
+        Me.btnAgg_Tnr.Text = "Tarifnummer"
+        Me.btnAgg_Tnr.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.Label2.Location = New System.Drawing.Point(3, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(103, 17)
+        Me.Label2.TabIndex = 149
+        Me.Label2.Text = "Aggregieren:"
+        '
+        'btnAgg_Origin
+        '
+        Me.btnAgg_Origin.BackColor = System.Drawing.Color.DeepSkyBlue
+        Me.btnAgg_Origin.Location = New System.Drawing.Point(162, 3)
+        Me.btnAgg_Origin.Name = "btnAgg_Origin"
+        Me.btnAgg_Origin.Size = New System.Drawing.Size(92, 23)
+        Me.btnAgg_Origin.TabIndex = 155
+        Me.btnAgg_Origin.Tag = "1"
+        Me.btnAgg_Origin.Text = "Ursprungsland"
+        Me.btnAgg_Origin.UseVisualStyleBackColor = False
+        '
+        'btnAgg_Unit
+        '
+        Me.btnAgg_Unit.Location = New System.Drawing.Point(257, 3)
+        Me.btnAgg_Unit.Name = "btnAgg_Unit"
+        Me.btnAgg_Unit.Size = New System.Drawing.Size(79, 23)
+        Me.btnAgg_Unit.TabIndex = 156
+        Me.btnAgg_Unit.Tag = "0"
+        Me.btnAgg_Unit.Text = "Maßeinheit"
+        Me.btnAgg_Unit.UseVisualStyleBackColor = True
+        '
+        'btnAgg_desc
+        '
+        Me.btnAgg_desc.Location = New System.Drawing.Point(339, 3)
+        Me.btnAgg_desc.Name = "btnAgg_desc"
+        Me.btnAgg_desc.Size = New System.Drawing.Size(126, 23)
+        Me.btnAgg_desc.TabIndex = 157
+        Me.btnAgg_desc.Tag = "0"
+        Me.btnAgg_desc.Text = "Warenbeschreibung"
+        Me.btnAgg_desc.UseVisualStyleBackColor = True
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(3, 184)
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(675, 158)
+        Me.dgvAnhaenge.TabIndex = 112
+        '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'btnPrio_CommInv
+        '
+        Me.btnPrio_CommInv.BackColor = System.Drawing.Color.White
+        Me.btnPrio_CommInv.Location = New System.Drawing.Point(76, 28)
+        Me.btnPrio_CommInv.Name = "btnPrio_CommInv"
+        Me.btnPrio_CommInv.Size = New System.Drawing.Size(116, 23)
+        Me.btnPrio_CommInv.TabIndex = 159
+        Me.btnPrio_CommInv.Tag = "0"
+        Me.btnPrio_CommInv.Text = "Handelsrechnung"
+        Me.btnPrio_CommInv.UseVisualStyleBackColor = False
+        '
+        'Label5
+        '
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.Label5.Location = New System.Drawing.Point(3, 33)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(103, 17)
+        Me.Label5.TabIndex = 160
+        Me.Label5.Text = "Priorität:"
+        '
+        'btnPrio_eFatura
+        '
+        Me.btnPrio_eFatura.BackColor = System.Drawing.Color.White
+        Me.btnPrio_eFatura.Location = New System.Drawing.Point(195, 28)
+        Me.btnPrio_eFatura.Name = "btnPrio_eFatura"
+        Me.btnPrio_eFatura.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_eFatura.TabIndex = 161
+        Me.btnPrio_eFatura.Tag = "0"
+        Me.btnPrio_eFatura.Text = "eFatura"
+        Me.btnPrio_eFatura.UseVisualStyleBackColor = False
+        '
+        'btnPrio_Export
+        '
+        Me.btnPrio_Export.BackColor = System.Drawing.Color.White
+        Me.btnPrio_Export.Location = New System.Drawing.Point(267, 28)
+        Me.btnPrio_Export.Name = "btnPrio_Export"
+        Me.btnPrio_Export.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_Export.TabIndex = 162
+        Me.btnPrio_Export.Tag = "0"
+        Me.btnPrio_Export.Text = "Ausfuhr"
+        Me.btnPrio_Export.UseVisualStyleBackColor = False
+        '
+        'btnPrio_ftz
+        '
+        Me.btnPrio_ftz.BackColor = System.Drawing.Color.White
+        Me.btnPrio_ftz.Location = New System.Drawing.Point(339, 28)
+        Me.btnPrio_ftz.Name = "btnPrio_ftz"
+        Me.btnPrio_ftz.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_ftz.TabIndex = 163
+        Me.btnPrio_ftz.Tag = "0"
+        Me.btnPrio_ftz.Text = "FTZ"
+        Me.btnPrio_ftz.UseVisualStyleBackColor = False
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.Panel1.Controls.Add(Me.btnPrio_CommInv)
+        Me.Panel1.Controls.Add(Me.btnAgg_Tnr)
+        Me.Panel1.Controls.Add(Me.btnPrio_ftz)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.btnPrio_Export)
+        Me.Panel1.Controls.Add(Me.btnAgg_Origin)
+        Me.Panel1.Controls.Add(Me.btnPrio_eFatura)
+        Me.Panel1.Controls.Add(Me.btnAgg_Unit)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.btnAgg_desc)
+        Me.Panel1.Location = New System.Drawing.Point(0, 343)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(470, 54)
+        Me.Panel1.TabIndex = 164
+        '
+        'frmATEZ_TELOTEC
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.ClientSize = New System.Drawing.Size(680, 409)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.lblAnh)
+        Me.Controls.Add(Me.pnlHead)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.btnSend)
+        Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmATEZ_TELOTEC"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "ATEZ UK"
+        Me.pnlHead.ResumeLayout(False)
+        Me.pnlHead.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btnSend As Button
+    Friend WithEvents pnlHead As Panel
+    Friend WithEvents lblInfo As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents columnName As DataGridViewTextBoxColumn
+    Friend WithEvents Label9 As Label
+    Friend WithEvents sbAdressierteZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents lblBezugsnummer As Label
+    Friend WithEvents lblAnh As Label
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents btnAgg_Tnr As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents btnAgg_Origin As Button
+    Friend WithEvents btnAgg_Unit As Button
+    Friend WithEvents btnAgg_desc As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents btnPrio_CommInv As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents btnPrio_eFatura As Button
+    Friend WithEvents btnPrio_Export As Button
+    Friend WithEvents btnPrio_ftz As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents PictureBox1 As PictureBox
+End Class

Aviso/ATEZ/frmATEZ_TELOTEC.vb

@@ -0,0 +1,760 @@
+
+Imports com.esendex.sdk.optouts.models
+Imports DAKOSY_Worker
+Imports DAKOSY_Worker.eZollTypes
+Imports SDL
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cRelayHub
+
+
+Public Class frmATEZ_TELOTEC
+
+    Dim ART As String = ""
+    Dim FilialenNr As Integer
+    Dim AbfertigungsNr As Integer
+    Dim JAHR As Integer = Now.ToString("yy")
+    Public isSTAMMREF As Boolean = False
+    Public STAMMREF As String = ""
+    Public CopyFromZA_Id As Integer = -1
+    Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+    Dim ZOLL_SYSTEM = "MODALTRANS"
+    Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
+    Public ATT As List(Of String)
+    Dim AVISO As New cAviso
+    Dim zusatz As String
+    Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
+    Dim VermerkeDAL As New cVermerkeDAL
+    Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    Dim openExisting As Boolean = False
+    Dim id As Integer = -1
+    Dim dgv As DataGridView = Nothing
+    Dim atez_data As cATEZ_NCTS_DATA
+    ' Dim atez = New cATEZ_NCTS_IN("ATEZ")
+    Dim allSelected As Boolean = False
+
+    Property BezugsNr As String = ""
+    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
+
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer
+            )
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        openExisting = True
+        id = _id
+
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSend.Click, Button2.Click
+        Try
+            If Not checkMandatoryField() Then Exit Sub
+
+            Me.Cursor = Cursors.WaitCursor
+            lblInfo.Text = ""
+
+            '----------------------------------------------------------------------
+            ' Referenz
+            '----------------------------------------------------------------------
+            Dim ioReference As String = lblBezugsnummer.Text & Now.ToString("ddMMyyyy_HHmmss")
+
+            '----------------------------------------------------------------------
+            ' Aggregierung
+            '----------------------------------------------------------------------
+            Dim AdditionalSettings As New List(Of String)
+            If btnAgg_desc.Tag = 1 Then AdditionalSettings.Add("description")
+            If btnAgg_Tnr.Tag = 1 Then AdditionalSettings.Add("commodity_code")
+            If btnAgg_Origin.Tag = 1 Then AdditionalSettings.Add("country_of_origin")
+            If btnAgg_Unit.Tag = 1 Then AdditionalSettings.Add("unit_type")
+
+            '----------------------------------------------------------------------
+            ' RelayHub Request - Modaltrans UK
+            '----------------------------------------------------------------------
+            Dim environment = cRelayHubEnvironment.TEST
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then environment = cRelayHubEnvironment.TEST
+
+            Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
+           .environment = environment,
+           .referenceNo = ioReference,
+            .outputApplication = cRelayHubOutputApplication.Modaltrans,
+            .regimeType = "IMPORT",
+            .dispatchCountry = "TR",
+            .destinationCountry = "GB",
+            .additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With {
+                .transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With {
+                    .ioReference = ioReference
+                },
+                .declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From {
+                    New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
+                        .objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
+                            .objectName = lblBezugsnummer.Text,
+                            .objectAlias = ioReference,
+                               .shipmentId = SENDUNG.tblSnd_SendungID,
+                                    .avisoId = SENDUNG.tblSnd_AvisoID
+                        },
+                        .headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
+                            .agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
+                                .contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
+                                .contactPersonPhoneNumber = getTelefon(),
+                                .contactPersonPosition = "Customs Declarant",
+                                .contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
+                            },
+                            .serviceCode = "cds",
+                            .docType = "import",
+                            .declarationType = "IMD",
+                            .declarantEori = "GB************",
+                            .procedureCodeRequested = "4000",
+                            .transportMeansArrivalIdentity = txtLKWId.Text,
+                            .transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
+                        }
+                    }
+                }
+            },
+            .additionalSettings = New cRelayHubAdditionalSettings With {
+                .combineOptions = AdditionalSettings,
+                .disableOutbound = False,
+                .disableDocumentConverter = False,
+                .disableAiToCommon = False,
+                .disableValidation = False,
+                .targetLang = "en"
+            }
+        }
+
+            '----------------------------------------------------------------------
+            ' Vorpapier / T1
+            '----------------------------------------------------------------------
+            If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceType = "T1"
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceNumber = SENDUNG.tblSnd_Vorpapier
+            End If
+
+            '----------------------------------------------------------------------
+            ' Dokumente
+            '----------------------------------------------------------------------
+            ATEZ_RH_EZA.documents = New List(Of cRelayHub.cRelayHubDocument)
+
+            For Each r As DataGridViewRow In dgvAnhaenge.Rows
+                Dim isSelected As Boolean = If(DBNull.Value Is r.Cells("anh_selekt").Value, False, r.Cells("anh_selekt").Value)
+
+                If isSelected Then
+                    Dim DOC As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument
+                    DOC.fileType = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getRelayHub_AnhDesc(r.Cells("anh_Art").Value)
+                    DOC.type = "base64"
+                    DOC.filename = r.Cells("anh_Name").Value
+
+                    Try
+                        Dim dateiBytes As Byte() = IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
+                        DOC.base64String = Convert.ToBase64String(dateiBytes)
+                        ATEZ_RH_EZA.documents.Add(DOC)
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+                End If
+            Next
+
+            '----------------------------------------------------------------------
+            ' Adressen
+            '----------------------------------------------------------------------
+            ATEZ_RH_EZA.additionalData.declaration(0).addresses = New List(Of cRelayHub.cRelayHubAddress)
+
+            ' Empfänger / Consignee
+            If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
+                Dim AD As New cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
+                Dim KD As New cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
+                Dim CN As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
+
+                CN.addressType = "CN"
+                CN.participantEORI = If(KD.EORITIN, "")
+                CN.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
+                CN.companyName = AD.Name_1
+                CN.streetAndNumber = AD.Straße
+                CN.postalCode = AD.PLZ
+                CN.city = AD.Ort
+                CN.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
+
+                ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CN)
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.destinationCountry = CN.countryCode
+                ATEZ_RH_EZA.destinationCountry = CN.countryCode
+            End If
+
+            ' Absender / Consignor
+            If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+                Dim AD As New cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
+                Dim KD As New cKunde(SENDUNG.tblSnd_AbsenderKdNr)
+                Dim CZ As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
+
+                CZ.addressType = "CZ"
+                CZ.participantEORI = If(KD.EORITIN, "")
+                CZ.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
+                CZ.companyName = AD.Name_1
+                CZ.streetAndNumber = AD.Straße
+                CZ.postalCode = AD.PLZ
+                CZ.city = AD.Ort
+                CZ.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
+
+                ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CZ)
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.departureCountry = CZ.countryCode
+                ATEZ_RH_EZA.dispatchCountry = CZ.countryCode
+            End If
+
+            '----------------------------------------------------------------------
+            ' Pflichtfelder absichern
+            '----------------------------------------------------------------------
+            ATEZ_RH_EZA.dispatchCountry = If(ATEZ_RH_EZA.dispatchCountry, "")
+            ATEZ_RH_EZA.destinationCountry = If(ATEZ_RH_EZA.destinationCountry, "")
+
+            '----------------------------------------------------------------------
+            ' JSON anzeigen
+            '----------------------------------------------------------------------
+            If sender Is Button2 Then
+                MsgBox(VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getJSON(ATEZ_RH_EZA))
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+
+            '----------------------------------------------------------------------
+            ' Senden
+            '----------------------------------------------------------------------
+            Dim RESP = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
+
+            If RESP.Success Then
+                MsgBox("Erfolgreich an Modaltrans gesendet!")
+                Me.Close()
+            Else
+                MsgBox("ERROR" & vbNewLine & RESP.Details, MsgBoxStyle.OkOnly, RESP.Message)
+            End If
+
+            Me.Cursor = Cursors.Default
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+    End Sub
+
+
+    Private Function getTelefon() As String
+        Dim defaultDW = "200"
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "ATILLA" : Return "0043 7711 28450"
+            Case "AMBAR" : Return "0049 8651 9962492"
+            Case "UNISPED" : defaultDW = "800"
+            Case "IMEX" : defaultDW = "602"
+            Case "VERAG" : defaultDW = "200"
+        End Select
+
+        Dim dw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
+        Return "0049 8503 7973999 " &
+               If(String.IsNullOrEmpty(dw) OrElse dw.Length >= 5, defaultDW, dw)
+    End Function
+    Private Function getDefaultMail_FIRMA() As String
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "VERAG" : Return "quickstop@verag.ag"
+            Case "IMEX" : Return "steuerbescheide@imex-group.at"
+            Case "UNISPED" : Return "office@unisped.at"
+            Case "AMBAR" : Return "office@ambarlog.com"
+        End Select
+        Return "quickstop@verag.ag"
+    End Function
+    'Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
+
+    '    Dim failreDesc As String
+
+    '    Dim authResp = atez.authenticate("NCTS")
+    '    If authResp <> "200" Then
+
+    '        failreDesc = "Authentifizierung fehlgeschlagen"
+    '        lblInfo.Text = failreDesc & " - " & authResp & vbNewLine & "Vorgang abgebrochen" & vbNewLine & " Bitte wiederholen!"
+    '        Dim resultAuthentifizierung As MsgBoxResult = MsgBox("Fehler beim Authentifizieren" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+
+    '        If resultAuthentifizierung = vbYes Then
+    '            atezData.status = "Draft"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        Else
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        End If
+
+    '        Return False
+    '    End If
+
+    '    atezData.sessionId = atez.sessionID
+
+
+    '    If Not atez.setJsonNCTS(atezData) Then
+    '        MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+    '        atezData.status = "Failure"
+    '        atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
+    '        Return atezData.SAVE
+    '    End If
+
+    '    If checkAttachment() Then
+    '        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
+    '            MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
+    '            Return atezData.SAVE
+    '        End If
+    '    End If
+
+
+    '    Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST")
+
+    '    If failreDesc <> "" Then
+    '        If atezData.status = "Draft" Then
+    '            MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+
+    '        End If
+    '        Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+    '        If result = vbYes Then
+    '            atezData.status = "Draft"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        Else
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        End If
+
+    '        lblInfo.Text = "Fehler in der API "
+
+    '    Else
+
+    '        If azetId = "-1" Then
+    '            atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
+    '        Else
+    '            atezData.fehlerbeschreibung = ""
+    '        End If
+    '        atezData.status = "Sent"
+    '        atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
+    '        Return atezData.SAVE()
+
+    '    End If
+
+    'End Function
+
+    Function getBezugsnr(ByRef BezugsNr)
+        Dim BezugsNrTmp = ""
+        BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+        BezugsNr = BezugsNrTmp
+        zusatz = "A"
+
+        If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+            For Each r As DataGridViewRow In dgv.Rows
+                If r.Cells("BezugsNr").Value = BezugsNr Then
+
+                    If zusatz.Length = 1 Then
+                        zusatz = Chr(Asc(zusatz.ToString) + 1)
+                    Else
+                        zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+                    End If
+
+                    If zusatz = "Z" Then zusatz = "AA"
+                End If
+                BezugsNr = BezugsNrTmp & "/" & zusatz
+            Next
+
+        End If
+
+        While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+
+            If zusatz.Length = 1 Then
+                zusatz = Chr(Asc(zusatz.ToString) + 1)
+            Else
+                zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+            End If
+
+            If zusatz = "Z" Then zusatz = "AA"
+        End While
+
+        lblBezugsnummer.Text = BezugsNr
+        Return BezugsNr
+    End Function
+
+
+    Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        'Select Case FIRMA_DY
+        '    Case "VERAG" : txtDyMandant.Text = "VERG"
+        '        txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+
+        '        Select Case FilialenNr
+        '            Case "5103" : txtDyNiederlassung.Text = "WAI"
+
+        '        End Select
+
+
+        '    Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+        '    Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+        '    Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+        '    Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        'End Select 
+        FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me, "EZA")
+        'txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
+        'txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
+
+        'Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString
+
+        initSeachboxes()
+        lblAnh.Visible = True
+
+
+        If openExisting Then
+
+            If id > 0 Then
+                '  atez_data = New cATEZ_NCTS_DATA(id)
+                initAttachment()
+                If atez_data.atezId <> "" Then
+                    lblInfo.Text = "Atez-ID " & atez_data.atezId
+                Else
+                    lblInfo.Text = "Status: " & IIf(atez_data.fehlerbeschreibung <> "", atez_data.status & "- " & atez_data.fehlerbeschreibung, atez_data.status)
+                End If
+
+
+                lblBezugsnummer.Text = atez_data.VERAG_LRN
+
+                'cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ")  and dySr_visible=1", False, "FMZOLL", True)
+                'cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
+                'cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
+
+                txtLKWId.Text = atez_data.LicensePlateContainerNo
+
+                'sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
+                sbAdressierteZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
+
+
+
+
+                If atez_data.status = "Draft" Then
+                    btnSend.Text = "An ATEZ senden -->"
+                    pnlHead.Enabled = True
+                    btnSend.Enabled = True
+                    'initAttachment()
+
+                Else
+                    btnSend.Text = "JSON"
+                    pnlHead.Enabled = False
+                    dgvAnhaenge.ReadOnly = True
+                    btnSend.Enabled = True
+
+
+                End If
+
+
+            Else
+                btnSend.Enabled = False
+            End If
+
+        Else
+            ' atez_data = New cATEZ_NCTS_DATA()
+            initAttachment()
+            'Button1.Text = "An ATEZ senden -->"
+            pnlHead.Enabled = True
+
+            'cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ")  and dySr_visible=1", False, "FMZOLL", True)
+            'cboStammreferenz.changeItem("")
+
+            getBezugsnr(BezugsNr)
+            txtLKWId.Text = AVISO.LKW_Nr
+
+            '       sbBestimmungsZollstelle.SET_VALUE(SENDUNG.NCTS_Bestimmungszollstelle)
+
+            If AVISO.Grenzstelle.Replace("???", "") = "" Then
+                sbAdressierteZollstelle.SET_VALUE(AVISO.Zollstelle)
+            Else
+
+                Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
+                If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+                    If GRZ.grz_ZollamtDST IsNot Nothing Then
+                        sbAdressierteZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
+                    End If
+                End If
+            End If
+
+
+        End If
+        'initAttachment()
+    End Sub
+
+    Sub initAttachment()
+        Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
+
+                                                case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
+                                                   [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ NOT IN ('MSG', 'SONSTIGES')
+                                           ORDER BY  anh_SendungsId desc,
+										  case	  
+                                                when [anh_Art] = 'ATR-EUR1' then 0
+                                                when [anh_Art] = 'Rechnung' then 1
+                                                when [anh_Art] = 'eFatura' then 1.1
+                                                when [anh_Art] = 'CMR' then 2
+                                                when [anh_Art] = 'Ausfuhr' then 3
+                                                when [anh_Art] = 'Vorpapier' then 4
+                                                when [anh_Art] = 'Packliste' then 5
+                                                when [anh_Art] = 'Auftrag' then 6
+                                                when [anh_Art] = 'Auftrag' then 7
+                                                when [anh_Art] = 'Dispoliste' then 8
+                                                when [anh_Art] = 'Vorkasse' then 9
+                                                when [anh_Art] = 'Überweisungsbeleg' then 10
+                                                when [anh_Art] = 'Vollmacht' then 11
+                                                when [anh_Art] = 'ATB' then 12
+                                                when [anh_Art] = 'ATA' then 13
+                                                when [anh_Art] = 'Sonstiges' then 99
+                                                when [anh_Art] ='' then 15
+
+										END, [anh_Reihenfolge],[anh_id]"
+
+        Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+        Dim col As DataColumn
+        col = dt.Columns.Add("anh_selekt", GetType(Boolean))
+        col.SetOrdinal(0)
+        dgvAnhaenge.Columns.Clear()
+        dgvAnhaenge.DataSource = dt
+        If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
+
+        With dgvAnhaenge
+
+            .Enabled = True
+            .ReadOnly = False
+
+            .RowTemplate.MinimumHeight = 30
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
+            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+            '  .Columns("anh_Art").Visible = False     'AvisoID nicht anzeigen
+
+            .Columns("anh_selekt").Width = 25
+            .Columns("anh_selekt").HeaderText = ""
+            .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Datum").MinimumWidth = 50
+            .Columns("anh_Datum").HeaderText = "Datum"
+            .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Datum").ReadOnly = True
+
+
+            .Columns("anh_Name").MinimumWidth = 150
+            .Columns("anh_Name").HeaderText = "Name"
+            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("anh_Name").ReadOnly = True
+
+            .Columns("anh_Art").MinimumWidth = 50
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Art").ReadOnly = True
+
+            .Columns("anh_Typ").Width = 50
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Typ").ReadOnly = True
+
+            .Columns("anh_size").Width = 50
+            .Columns("anh_size").HeaderText = "Größe in MB"
+            .Columns("anh_size").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_size").ReadOnly = True
+
+        End With
+
+        For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+
+            If Not IsDBNull(doc.Cells("anh_size").Value) AndAlso doc.Cells("anh_size").Value > 0 Then
+                Dim size = (doc.Cells("anh_size").Value)
+                If size < 1 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightGreen
+                ElseIf size > 1 AndAlso size < 5 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightYellow
+                Else
+                    doc.DefaultCellStyle.BackColor = Color.IndianRed
+                End If
+            End If
+
+        Next
+
+        If atez_data IsNot Nothing AndAlso atez_data.selectedDocuments <> "" Then
+
+            For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                If atez_data.selectedDocuments.Contains(doc.Cells("anh_docId").Value) Then doc.Cells("anh_selekt").Value = True
+
+            Next
+        End If
+
+
+    End Sub
+
+
+    Sub initSeachboxes()
+
+        sbAdressierteZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        'sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+
+    End Sub
+
+
+
+    Public Function checkAttachment() As Boolean
+
+        Dim selectedDocuments As Boolean = False
+
+        For Each Row In dgvAnhaenge.Rows
+
+            selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
+            If selectedDocuments Then Exit For
+        Next
+
+
+        'If Not selectedDocuments Then
+        '    lblInfo.Text = "kein Anhang selektiert"
+        '    Cursor = Cursors.Default
+        '    Return selectedDocuments
+        'End If
+
+        Return selectedDocuments
+
+    End Function
+
+    Public Function checkMandatoryField() As Boolean
+
+
+        'TODO
+        Return True
+
+
+    End Function
+
+
+
+    Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick
+        Try
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("anh_docId").Value)
+                If Not IO.File.Exists(docPath) Then
+                    MsgBox("Die Datei existiert nicht!")
+                Else
+                    If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler  (bereits von Benutzer soUndSo geöffnet)
+                        Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
+                        System.IO.File.Copy(docPath, docPathTMP)
+                        Process.Start(docPathTMP)
+                    Else
+                        Process.Start(docPath)
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Private Sub dgvAnhaenge_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick
+
+        Dim countAnh As Double = 0
+        If dgvAnhaenge.RowCount > 0 Then
+
+            If dgvAnhaenge.Columns(e.ColumnIndex).Name = "anh_selekt" Then
+
+                If Not IsDBNull(dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value) AndAlso dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value = True Then
+                    countAnh += IIf(dgvAnhaenge.CurrentRow.Cells("anh_size").Value IsNot DBNull.Value, dgvAnhaenge.CurrentRow.Cells("anh_size").Value, 0)
+                End If
+
+                For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                    If Row.Cells("anh_selekt").Value IsNot DBNull.Value AndAlso Row.Cells("anh_selekt").Value = True AndAlso Row.Cells("anh_size").Value IsNot DBNull.Value Then
+                        countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                    End If
+                Next
+
+                lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+
+            End If
+
+        End If
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvAnhaenge.RowCount > 0 Then
+            Dim countAnh As Double = 0
+            For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                If allSelected Then
+                    Row.Cells("anh_selekt").Value = True
+                    countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                Else
+                    Row.Cells("anh_selekt").Value = False
+                    countAnh = 0
+                End If
+            Next
+            allSelected = Not allSelected
+            lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+        End If
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        cRelayHubToken.DeleteAllStores()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAgg_Tnr.Click, btnAgg_desc.Click, btnAgg_Origin.Click, btnAgg_Unit.Click
+        If sender.Tag = 0 Then
+            sender.Tag = 1
+            sender.BackColor = Color.DeepSkyBlue
+        Else
+            sender.Tag = 0
+            sender.BackColor = SystemColors.Control
+        End If
+    End Sub
+    Private Sub Buttonprio_Click(sender As Object, e As EventArgs) Handles btnPrio_CommInv.Click, btnPrio_ftz.Click, btnPrio_eFatura.Click, btnPrio_Export.Click
+
+        If sender IsNot btnPrio_CommInv Then btnPrio_CommInv.Tag = 0 : btnPrio_CommInv.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_eFatura Then btnPrio_eFatura.Tag = 0 : btnPrio_eFatura.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_Export Then btnPrio_Export.Tag = 0 : btnPrio_Export.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_ftz Then btnPrio_ftz.Tag = 0 : btnPrio_ftz.BackColor = SystemColors.Control
+
+
+        If sender.Tag = 0 Then
+            sender.Tag = 1
+            sender.BackColor = Color.DeepSkyBlue
+        Else
+            sender.Tag = 0
+            sender.BackColor = SystemColors.Control
+        End If
+    End Sub
+End Class

Aviso/ATEZ/frmATEZ_UK_MODAL.Designer.vb

@@ -0,0 +1,487 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmATEZ_UK_MODAL
+    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(frmATEZ_UK_MODAL))
+        Me.btnSend = New System.Windows.Forms.Button()
+        Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblInfo = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.lblBezugsnummer = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.lblAnh = New System.Windows.Forms.Label()
+        Me.btnAgg_Tnr = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnAgg_Origin = New System.Windows.Forms.Button()
+        Me.btnAgg_Unit = New System.Windows.Forms.Button()
+        Me.btnAgg_desc = New System.Windows.Forms.Button()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.btnPrio_CommInv = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.btnPrio_eFatura = New System.Windows.Forms.Button()
+        Me.btnPrio_Export = New System.Windows.Forms.Button()
+        Me.btnPrio_ftz = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.pnlHead.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'btnSend
+        '
+        Me.btnSend.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSend.BackColor = System.Drawing.Color.White
+        Me.btnSend.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnSend.Image = Global.AVISO.My.Resources.Resources.ico_atez_declarantAI
+        Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSend.Location = New System.Drawing.Point(473, 343)
+        Me.btnSend.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnSend.Name = "btnSend"
+        Me.btnSend.Padding = New System.Windows.Forms.Padding(5, 0, 5, 0)
+        Me.btnSend.Size = New System.Drawing.Size(205, 58)
+        Me.btnSend.TabIndex = 26
+        Me.btnSend.Text = "An ATEZ senden >>"
+        Me.btnSend.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSend.UseVisualStyleBackColor = False
+        '
+        'pnlHead
+        '
+        Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.PictureBox1)
+        Me.pnlHead.Controls.Add(Me.Button1)
+        Me.pnlHead.Controls.Add(Me.Button2)
+        Me.pnlHead.Controls.Add(Me.Label1)
+        Me.pnlHead.Controls.Add(Me.lblInfo)
+        Me.pnlHead.Controls.Add(Me.Label8)
+        Me.pnlHead.Controls.Add(Me.cboStammreferenz)
+        Me.pnlHead.Controls.Add(Me.txtLKWId)
+        Me.pnlHead.Controls.Add(Me.Label3)
+        Me.pnlHead.Controls.Add(Me.Label9)
+        Me.pnlHead.Controls.Add(Me.sbAdressierteZollstelle)
+        Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
+        Me.pnlHead.Location = New System.Drawing.Point(3, 2)
+        Me.pnlHead.Name = "pnlHead"
+        Me.pnlHead.Size = New System.Drawing.Size(675, 151)
+        Me.pnlHead.TabIndex = 112
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.modaltrans_uk
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(572, 34)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 50)
+        Me.PictureBox1.TabIndex = 159
+        Me.PictureBox1.TabStop = False
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(553, 117)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(122, 23)
+        Me.Button1.TabIndex = 153
+        Me.Button1.Text = "Clear Token Cache"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(610, 96)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(65, 23)
+        Me.Button2.TabIndex = 158
+        Me.Button2.Text = "json"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(387, 13)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(89, 13)
+        Me.Label1.TabIndex = 106
+        Me.Label1.Text = "Bezugsnummer:"
+        '
+        'lblInfo
+        '
+        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.lblInfo.Location = New System.Drawing.Point(3, 32)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Size = New System.Drawing.Size(460, 21)
+        Me.lblInfo.TabIndex = 148
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(6, 61)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(86, 13)
+        Me.Label8.TabIndex = 146
+        Me.Label8.Text = "Stammreferenz:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.Label8.Visible = False
+        '
+        'cboStammreferenz
+        '
+        Me.cboStammreferenz._allowedValuesFreiText = Nothing
+        Me.cboStammreferenz._allowFreiText = False
+        Me.cboStammreferenz._value = ""
+        Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboStammreferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.cboStammreferenz.FormattingEnabled = True
+        Me.cboStammreferenz.Location = New System.Drawing.Point(151, 56)
+        Me.cboStammreferenz.Name = "cboStammreferenz"
+        Me.cboStammreferenz.Size = New System.Drawing.Size(255, 24)
+        Me.cboStammreferenz.TabIndex = 145
+        Me.cboStammreferenz.Visible = False
+        '
+        'txtLKWId
+        '
+        Me.txtLKWId._DateTimeOnly = False
+        Me.txtLKWId._numbersOnly = False
+        Me.txtLKWId._numbersOnlyKommastellen = ""
+        Me.txtLKWId._numbersOnlyTrennzeichen = True
+        Me.txtLKWId._Prozent = False
+        Me.txtLKWId._ShortDateNew = False
+        Me.txtLKWId._ShortDateOnly = False
+        Me.txtLKWId._TimeOnly = False
+        Me.txtLKWId._TimeOnly_Seconds = False
+        Me.txtLKWId._value = ""
+        Me.txtLKWId._Waehrung = False
+        Me.txtLKWId._WaehrungZeichen = True
+        Me.txtLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtLKWId.ForeColor = System.Drawing.Color.Black
+        Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
+        Me.txtLKWId.MaxLineLength = -1
+        Me.txtLKWId.MaxLines_Warning = ""
+        Me.txtLKWId.MaxLines_Warning_Label = Nothing
+        Me.txtLKWId.Name = "txtLKWId"
+        Me.txtLKWId.Size = New System.Drawing.Size(255, 23)
+        Me.txtLKWId.TabIndex = 144
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(6, 91)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(48, 13)
+        Me.Label3.TabIndex = 113
+        Me.Label3.Text = "LKW-KZ:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(6, 117)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(117, 13)
+        Me.Label9.TabIndex = 110
+        Me.Label9.Text = "Adressierte-Zollstelle:"
+        '
+        'sbAdressierteZollstelle
+        '
+        Me.sbAdressierteZollstelle._allowFreitext = False
+        Me.sbAdressierteZollstelle._AllowSetValue = False
+        Me.sbAdressierteZollstelle._allowSpaceAsSplitter = False
+        Me.sbAdressierteZollstelle._autoSizeGross = False
+        Me.sbAdressierteZollstelle._hideIfListEmpty = True
+        Me.sbAdressierteZollstelle._value = ""
+        Me.sbAdressierteZollstelle.conn_art = "FMZOLL"
+        Me.sbAdressierteZollstelle.dgvpos = "LEFT"
+        Me.sbAdressierteZollstelle.DISPLAY_PARAM = Nothing
+        Me.sbAdressierteZollstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.sbAdressierteZollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.sbAdressierteZollstelle.key_visible = False
+        Me.sbAdressierteZollstelle.KEYPARAM = Nothing
+        Me.sbAdressierteZollstelle.Location = New System.Drawing.Point(151, 112)
+        Me.sbAdressierteZollstelle.Name = "sbAdressierteZollstelle"
+        Me.sbAdressierteZollstelle.searchActive = True
+        Me.sbAdressierteZollstelle.Size = New System.Drawing.Size(255, 23)
+        Me.sbAdressierteZollstelle.SQL_ORDER_BY = Nothing
+        Me.sbAdressierteZollstelle.SQL_SELECT = Nothing
+        Me.sbAdressierteZollstelle.SQL_WHERE = Nothing
+        Me.sbAdressierteZollstelle.SQL_WhereParamList = Nothing
+        Me.sbAdressierteZollstelle.TabIndex = 111
+        Me.sbAdressierteZollstelle.usrcntl = Nothing
+        '
+        'lblBezugsnummer
+        '
+        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
+        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(475, 8)
+        Me.lblBezugsnummer.Name = "lblBezugsnummer"
+        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
+        Me.lblBezugsnummer.TabIndex = 107
+        Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
+        Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(473, 157)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(205, 25)
+        Me.Button3.TabIndex = 152
+        Me.Button3.Text = "alle Anhänge auswählen"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(9, 168)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(135, 13)
+        Me.Label6.TabIndex = 147
+        Me.Label6.Text = "Dokumente:"
+        '
+        'lblAnh
+        '
+        Me.lblAnh.Location = New System.Drawing.Point(332, 168)
+        Me.lblAnh.Name = "lblAnh"
+        Me.lblAnh.Size = New System.Drawing.Size(135, 13)
+        Me.lblAnh.TabIndex = 151
+        Me.lblAnh.Visible = False
+        '
+        'btnAgg_Tnr
+        '
+        Me.btnAgg_Tnr.BackColor = System.Drawing.Color.DeepSkyBlue
+        Me.btnAgg_Tnr.Location = New System.Drawing.Point(76, 3)
+        Me.btnAgg_Tnr.Name = "btnAgg_Tnr"
+        Me.btnAgg_Tnr.Size = New System.Drawing.Size(83, 23)
+        Me.btnAgg_Tnr.TabIndex = 154
+        Me.btnAgg_Tnr.Tag = "1"
+        Me.btnAgg_Tnr.Text = "Tarifnummer"
+        Me.btnAgg_Tnr.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.Label2.Location = New System.Drawing.Point(3, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(103, 17)
+        Me.Label2.TabIndex = 149
+        Me.Label2.Text = "Aggregieren:"
+        '
+        'btnAgg_Origin
+        '
+        Me.btnAgg_Origin.BackColor = System.Drawing.Color.DeepSkyBlue
+        Me.btnAgg_Origin.Location = New System.Drawing.Point(162, 3)
+        Me.btnAgg_Origin.Name = "btnAgg_Origin"
+        Me.btnAgg_Origin.Size = New System.Drawing.Size(92, 23)
+        Me.btnAgg_Origin.TabIndex = 155
+        Me.btnAgg_Origin.Tag = "1"
+        Me.btnAgg_Origin.Text = "Ursprungsland"
+        Me.btnAgg_Origin.UseVisualStyleBackColor = False
+        '
+        'btnAgg_Unit
+        '
+        Me.btnAgg_Unit.Location = New System.Drawing.Point(257, 3)
+        Me.btnAgg_Unit.Name = "btnAgg_Unit"
+        Me.btnAgg_Unit.Size = New System.Drawing.Size(79, 23)
+        Me.btnAgg_Unit.TabIndex = 156
+        Me.btnAgg_Unit.Tag = "0"
+        Me.btnAgg_Unit.Text = "Maßeinheit"
+        Me.btnAgg_Unit.UseVisualStyleBackColor = True
+        '
+        'btnAgg_desc
+        '
+        Me.btnAgg_desc.Location = New System.Drawing.Point(339, 3)
+        Me.btnAgg_desc.Name = "btnAgg_desc"
+        Me.btnAgg_desc.Size = New System.Drawing.Size(126, 23)
+        Me.btnAgg_desc.TabIndex = 157
+        Me.btnAgg_desc.Tag = "0"
+        Me.btnAgg_desc.Text = "Warenbeschreibung"
+        Me.btnAgg_desc.UseVisualStyleBackColor = True
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(3, 184)
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(675, 158)
+        Me.dgvAnhaenge.TabIndex = 112
+        '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'btnPrio_CommInv
+        '
+        Me.btnPrio_CommInv.BackColor = System.Drawing.Color.White
+        Me.btnPrio_CommInv.Location = New System.Drawing.Point(76, 28)
+        Me.btnPrio_CommInv.Name = "btnPrio_CommInv"
+        Me.btnPrio_CommInv.Size = New System.Drawing.Size(116, 23)
+        Me.btnPrio_CommInv.TabIndex = 159
+        Me.btnPrio_CommInv.Tag = "0"
+        Me.btnPrio_CommInv.Text = "Handelsrechnung"
+        Me.btnPrio_CommInv.UseVisualStyleBackColor = False
+        '
+        'Label5
+        '
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.Label5.Location = New System.Drawing.Point(3, 33)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(103, 17)
+        Me.Label5.TabIndex = 160
+        Me.Label5.Text = "Priorität:"
+        '
+        'btnPrio_eFatura
+        '
+        Me.btnPrio_eFatura.BackColor = System.Drawing.Color.White
+        Me.btnPrio_eFatura.Location = New System.Drawing.Point(195, 28)
+        Me.btnPrio_eFatura.Name = "btnPrio_eFatura"
+        Me.btnPrio_eFatura.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_eFatura.TabIndex = 161
+        Me.btnPrio_eFatura.Tag = "0"
+        Me.btnPrio_eFatura.Text = "eFatura"
+        Me.btnPrio_eFatura.UseVisualStyleBackColor = False
+        '
+        'btnPrio_Export
+        '
+        Me.btnPrio_Export.BackColor = System.Drawing.Color.White
+        Me.btnPrio_Export.Location = New System.Drawing.Point(267, 28)
+        Me.btnPrio_Export.Name = "btnPrio_Export"
+        Me.btnPrio_Export.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_Export.TabIndex = 162
+        Me.btnPrio_Export.Tag = "0"
+        Me.btnPrio_Export.Text = "Ausfuhr"
+        Me.btnPrio_Export.UseVisualStyleBackColor = False
+        '
+        'btnPrio_ftz
+        '
+        Me.btnPrio_ftz.BackColor = System.Drawing.Color.White
+        Me.btnPrio_ftz.Location = New System.Drawing.Point(339, 28)
+        Me.btnPrio_ftz.Name = "btnPrio_ftz"
+        Me.btnPrio_ftz.Size = New System.Drawing.Size(69, 23)
+        Me.btnPrio_ftz.TabIndex = 163
+        Me.btnPrio_ftz.Tag = "0"
+        Me.btnPrio_ftz.Text = "FTZ"
+        Me.btnPrio_ftz.UseVisualStyleBackColor = False
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.Panel1.Controls.Add(Me.btnPrio_CommInv)
+        Me.Panel1.Controls.Add(Me.btnAgg_Tnr)
+        Me.Panel1.Controls.Add(Me.btnPrio_ftz)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.btnPrio_Export)
+        Me.Panel1.Controls.Add(Me.btnAgg_Origin)
+        Me.Panel1.Controls.Add(Me.btnPrio_eFatura)
+        Me.Panel1.Controls.Add(Me.btnAgg_Unit)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.btnAgg_desc)
+        Me.Panel1.Location = New System.Drawing.Point(0, 343)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(470, 54)
+        Me.Panel1.TabIndex = 164
+        '
+        'frmATEZ_UK_MODAL
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.ClientSize = New System.Drawing.Size(680, 409)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.lblAnh)
+        Me.Controls.Add(Me.pnlHead)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.btnSend)
+        Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmATEZ_UK_MODAL"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "ATEZ UK"
+        Me.pnlHead.ResumeLayout(False)
+        Me.pnlHead.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btnSend As Button
+    Friend WithEvents pnlHead As Panel
+    Friend WithEvents lblInfo As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents columnName As DataGridViewTextBoxColumn
+    Friend WithEvents Label9 As Label
+    Friend WithEvents sbAdressierteZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents lblBezugsnummer As Label
+    Friend WithEvents lblAnh As Label
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents btnAgg_Tnr As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents btnAgg_Origin As Button
+    Friend WithEvents btnAgg_Unit As Button
+    Friend WithEvents btnAgg_desc As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents btnPrio_CommInv As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents btnPrio_eFatura As Button
+    Friend WithEvents btnPrio_Export As Button
+    Friend WithEvents btnPrio_ftz As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents PictureBox1 As PictureBox
+End Class

Aviso/ATEZ/frmATEZ_UK_MODAL.vb

@@ -0,0 +1,762 @@
+
+Imports com.esendex.sdk.optouts.models
+Imports DAKOSY_Worker
+Imports DAKOSY_Worker.eZollTypes
+Imports SDL
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cRelayHub
+
+
+Public Class frmATEZ_UK_MODAL
+
+    Dim ART As String = ""
+    Dim FilialenNr As Integer
+    Dim AbfertigungsNr As Integer
+    Dim JAHR As Integer = Now.ToString("yy")
+    Public isSTAMMREF As Boolean = False
+    Public STAMMREF As String = ""
+    Public CopyFromZA_Id As Integer = -1
+    Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+    Dim ZOLL_SYSTEM = "MODALTRANS"
+    Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
+    Public ATT As List(Of String)
+    Dim AVISO As New cAviso
+    Dim zusatz As String
+    Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
+    Dim VermerkeDAL As New cVermerkeDAL
+    Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    Dim openExisting As Boolean = False
+    Dim id As Integer = -1
+    Dim dgv As DataGridView = Nothing
+    Dim atez_data As cATEZ_NCTS_DATA
+    ' Dim atez = New cATEZ_NCTS_IN("ATEZ")
+    Dim allSelected As Boolean = False
+
+    Property BezugsNr As String = ""
+    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
+
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        If _dgv IsNot Nothing Then Me.dgv = _dgv
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        openExisting = True
+        id = _id
+
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSend.Click, Button2.Click
+        Try
+            If Not checkMandatoryField() Then Exit Sub
+
+            Me.Cursor = Cursors.WaitCursor
+            lblInfo.Text = ""
+
+            '----------------------------------------------------------------------
+            ' Referenz
+            '----------------------------------------------------------------------
+            Dim ioReference As String = lblBezugsnummer.Text & Now.ToString("ddMMyyyy_HHmmss")
+
+            '----------------------------------------------------------------------
+            ' Aggregierung
+            '----------------------------------------------------------------------
+            Dim AdditionalSettings As New List(Of String)
+            If btnAgg_desc.Tag = 1 Then AdditionalSettings.Add("description")
+            If btnAgg_Tnr.Tag = 1 Then AdditionalSettings.Add("commodity_code")
+            If btnAgg_Origin.Tag = 1 Then AdditionalSettings.Add("country_of_origin")
+            If btnAgg_Unit.Tag = 1 Then AdditionalSettings.Add("unit_type")
+
+            '----------------------------------------------------------------------
+            ' RelayHub Request - Modaltrans UK
+            '----------------------------------------------------------------------
+
+            Dim environment = cRelayHubEnvironment.PROD
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then environment = cRelayHubEnvironment.TEST
+
+            Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
+            .environment = environment,
+            .referenceNo = ioReference,
+            .outputApplication = cRelayHubOutputApplication.Modaltrans,
+            .regimeType = "IMPORT",
+            .dispatchCountry = "TR",
+            .destinationCountry = "GB",
+            .additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With {
+                .transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With {
+                    .ioReference = ioReference
+                },
+                .declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From {
+                    New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
+                        .objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
+                            .objectName = lblBezugsnummer.Text,
+                            .objectAlias = ioReference,
+                            .shipmentId = SENDUNG.tblSnd_SendungID,
+                            .avisoId = SENDUNG.tblSnd_AvisoID
+                        },
+                        .headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
+                            .agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
+                                .contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
+                                .contactPersonPhoneNumber = getTelefon(),
+                                .contactPersonPosition = "Customs Declarant",
+                                .contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
+                            },
+                            .serviceCode = "cds",
+                            .docType = "import",
+                            .declarationType = "IMD",
+                            .declarantEori = "GB078068385000",
+                            .procedureCodeRequested = "4000",
+                            .transportMeansArrivalIdentity = txtLKWId.Text,
+                            .transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
+                        }
+                    }
+                }
+            },
+            .additionalSettings = New cRelayHubAdditionalSettings With {
+                .combineOptions = AdditionalSettings,
+                .disableOutbound = False,
+                .disableDocumentConverter = False,
+                .disableAiToCommon = False,
+                .disableValidation = False,
+                .targetLang = "en"
+            }
+        }
+
+            '----------------------------------------------------------------------
+            ' Vorpapier / T1
+            '----------------------------------------------------------------------
+            If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceType = "T1"
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceNumber = SENDUNG.tblSnd_Vorpapier
+            End If
+
+            '----------------------------------------------------------------------
+            ' Dokumente
+            '----------------------------------------------------------------------
+            ATEZ_RH_EZA.documents = New List(Of cRelayHub.cRelayHubDocument)
+
+            For Each r As DataGridViewRow In dgvAnhaenge.Rows
+                Dim isSelected As Boolean = If(DBNull.Value Is r.Cells("anh_selekt").Value, False, r.Cells("anh_selekt").Value)
+
+                If isSelected Then
+                    Dim DOC As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument
+                    DOC.fileType = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getRelayHub_AnhDesc(r.Cells("anh_Art").Value)
+                    DOC.type = "base64"
+                    DOC.filename = r.Cells("anh_Name").Value
+
+                    Try
+                        Dim dateiBytes As Byte() = IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
+                        DOC.base64String = Convert.ToBase64String(dateiBytes)
+                        ATEZ_RH_EZA.documents.Add(DOC)
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+                End If
+            Next
+
+            '----------------------------------------------------------------------
+            ' Adressen
+            '----------------------------------------------------------------------
+            ATEZ_RH_EZA.additionalData.declaration(0).addresses = New List(Of cRelayHub.cRelayHubAddress)
+
+            ' Empfänger / Consignee
+            If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
+                Dim AD As New cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
+                Dim KD As New cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
+                Dim CN As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
+
+                CN.addressType = "CN"
+                CN.participantEORI = If(KD.EORITIN, "")
+                CN.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
+                CN.companyName = AD.Name_1
+                CN.streetAndNumber = AD.Straße
+                CN.postalCode = AD.PLZ
+                CN.city = AD.Ort
+                CN.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
+
+                ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CN)
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.destinationCountry = CN.countryCode
+                ATEZ_RH_EZA.destinationCountry = CN.countryCode
+            End If
+
+            ' Absender / Consignor
+            If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+                Dim AD As New cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
+                Dim KD As New cKunde(SENDUNG.tblSnd_AbsenderKdNr)
+                Dim CZ As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
+
+                CZ.addressType = "CZ"
+                CZ.participantEORI = If(KD.EORITIN, "")
+                CZ.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
+                CZ.companyName = AD.Name_1
+                CZ.streetAndNumber = AD.Straße
+                CZ.postalCode = AD.PLZ
+                CZ.city = AD.Ort
+                CZ.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
+
+                ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CZ)
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.departureCountry = CZ.countryCode
+                ATEZ_RH_EZA.dispatchCountry = CZ.countryCode
+            End If
+
+            '----------------------------------------------------------------------
+            ' Pflichtfelder absichern
+            '----------------------------------------------------------------------
+            ATEZ_RH_EZA.dispatchCountry = If(ATEZ_RH_EZA.dispatchCountry, "")
+            ATEZ_RH_EZA.destinationCountry = If(ATEZ_RH_EZA.destinationCountry, "")
+
+            '----------------------------------------------------------------------
+            ' JSON anzeigen
+            '----------------------------------------------------------------------
+            If sender Is Button2 Then
+                MsgBox(VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getJSON(ATEZ_RH_EZA))
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+
+            '----------------------------------------------------------------------
+            ' Senden
+            '----------------------------------------------------------------------
+            Dim RESP = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
+
+            If RESP.Success Then
+                MsgBox("Erfolgreich an Modaltrans gesendet!")
+                Me.Close()
+            Else
+                MsgBox("ERROR" & vbNewLine & RESP.Details, MsgBoxStyle.OkOnly, RESP.Message)
+            End If
+
+            Me.Cursor = Cursors.Default
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+    End Sub
+
+
+    Private Function getTelefon() As String
+        Dim defaultDW = "200"
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "ATILLA" : Return "0043 7711 28450"
+            Case "AMBAR" : Return "0049 8651 9962492"
+            Case "UNISPED" : defaultDW = "800"
+            Case "IMEX" : defaultDW = "602"
+            Case "VERAG" : defaultDW = "200"
+        End Select
+
+        Dim dw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
+        Return "0049 8503 7973999 " &
+               If(String.IsNullOrEmpty(dw) OrElse dw.Length >= 5, defaultDW, dw)
+    End Function
+    Private Function getDefaultMail_FIRMA() As String
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "VERAG" : Return "quickstop@verag.ag"
+            Case "IMEX" : Return "steuerbescheide@imex-group.at"
+            Case "UNISPED" : Return "office@unisped.at"
+            Case "AMBAR" : Return "office@ambarlog.com"
+        End Select
+        Return "quickstop@verag.ag"
+    End Function
+    'Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
+
+    '    Dim failreDesc As String
+
+    '    Dim authResp = atez.authenticate("NCTS")
+    '    If authResp <> "200" Then
+
+    '        failreDesc = "Authentifizierung fehlgeschlagen"
+    '        lblInfo.Text = failreDesc & " - " & authResp & vbNewLine & "Vorgang abgebrochen" & vbNewLine & " Bitte wiederholen!"
+    '        Dim resultAuthentifizierung As MsgBoxResult = MsgBox("Fehler beim Authentifizieren" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+
+    '        If resultAuthentifizierung = vbYes Then
+    '            atezData.status = "Draft"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        Else
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        End If
+
+    '        Return False
+    '    End If
+
+    '    atezData.sessionId = atez.sessionID
+
+
+    '    If Not atez.setJsonNCTS(atezData) Then
+    '        MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+    '        atezData.status = "Failure"
+    '        atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
+    '        Return atezData.SAVE
+    '    End If
+
+    '    If checkAttachment() Then
+    '        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
+    '            MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
+    '            Return atezData.SAVE
+    '        End If
+    '    End If
+
+
+    '    Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST")
+
+    '    If failreDesc <> "" Then
+    '        If atezData.status = "Draft" Then
+    '            MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+
+    '        End If
+    '        Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+    '        If result = vbYes Then
+    '            atezData.status = "Draft"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        Else
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        End If
+
+    '        lblInfo.Text = "Fehler in der API "
+
+    '    Else
+
+    '        If azetId = "-1" Then
+    '            atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
+    '        Else
+    '            atezData.fehlerbeschreibung = ""
+    '        End If
+    '        atezData.status = "Sent"
+    '        atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
+    '        Return atezData.SAVE()
+
+    '    End If
+
+    'End Function
+
+    Function getBezugsnr(ByRef BezugsNr)
+        Dim BezugsNrTmp = ""
+        BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+        BezugsNr = BezugsNrTmp
+        zusatz = "A"
+
+        If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+            For Each r As DataGridViewRow In dgv.Rows
+                If r.Cells("BezugsNr").Value = BezugsNr Then
+
+                    If zusatz.Length = 1 Then
+                        zusatz = Chr(Asc(zusatz.ToString) + 1)
+                    Else
+                        zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+                    End If
+
+                    If zusatz = "Z" Then zusatz = "AA"
+                End If
+                BezugsNr = BezugsNrTmp & "/" & zusatz
+            Next
+
+        End If
+
+        While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+
+            If zusatz.Length = 1 Then
+                zusatz = Chr(Asc(zusatz.ToString) + 1)
+            Else
+                zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+            End If
+
+            If zusatz = "Z" Then zusatz = "AA"
+        End While
+
+        lblBezugsnummer.Text = BezugsNr
+        Return BezugsNr
+    End Function
+
+
+    Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        'Select Case FIRMA_DY
+        '    Case "VERAG" : txtDyMandant.Text = "VERG"
+        '        txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+
+        '        Select Case FilialenNr
+        '            Case "5103" : txtDyNiederlassung.Text = "WAI"
+
+        '        End Select
+
+
+        '    Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+        '    Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+        '    Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+        '    Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        'End Select 
+        FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me, "EZA")
+        'txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
+        'txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
+
+        'Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString
+
+        initSeachboxes()
+        lblAnh.Visible = True
+
+
+        If openExisting Then
+
+            If id > 0 Then
+                '  atez_data = New cATEZ_NCTS_DATA(id)
+                initAttachment()
+                If atez_data.atezId <> "" Then
+                    lblInfo.Text = "Atez-ID " & atez_data.atezId
+                Else
+                    lblInfo.Text = "Status: " & IIf(atez_data.fehlerbeschreibung <> "", atez_data.status & "- " & atez_data.fehlerbeschreibung, atez_data.status)
+                End If
+
+
+                lblBezugsnummer.Text = atez_data.VERAG_LRN
+
+                'cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ")  and dySr_visible=1", False, "FMZOLL", True)
+                'cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
+                'cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
+
+                txtLKWId.Text = atez_data.LicensePlateContainerNo
+
+                'sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
+                sbAdressierteZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
+
+
+
+
+                If atez_data.status = "Draft" Then
+                    btnSend.Text = "An ATEZ senden -->"
+                    pnlHead.Enabled = True
+                    btnSend.Enabled = True
+                    'initAttachment()
+
+                Else
+                    btnSend.Text = "JSON"
+                    pnlHead.Enabled = False
+                    dgvAnhaenge.ReadOnly = True
+                    btnSend.Enabled = True
+
+
+                End If
+
+
+            Else
+                btnSend.Enabled = False
+            End If
+
+        Else
+            ' atez_data = New cATEZ_NCTS_DATA()
+            initAttachment()
+            'Button1.Text = "An ATEZ senden -->"
+            pnlHead.Enabled = True
+
+            'cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ")  and dySr_visible=1", False, "FMZOLL", True)
+            'cboStammreferenz.changeItem("")
+
+            getBezugsnr(BezugsNr)
+            txtLKWId.Text = AVISO.LKW_Nr
+
+            '       sbBestimmungsZollstelle.SET_VALUE(SENDUNG.NCTS_Bestimmungszollstelle)
+
+            If AVISO.Grenzstelle.Replace("???", "") = "" Then
+                sbAdressierteZollstelle.SET_VALUE(AVISO.Zollstelle)
+            Else
+
+                Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
+                If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+                    If GRZ.grz_ZollamtDST IsNot Nothing Then
+                        sbAdressierteZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
+                    End If
+                End If
+            End If
+
+
+        End If
+        'initAttachment()
+    End Sub
+
+    Sub initAttachment()
+        Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
+
+                                                case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
+                                                   [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ NOT IN ('MSG', 'SONSTIGES')
+                                           ORDER BY  anh_SendungsId desc,
+										  case	  
+                                                when [anh_Art] = 'ATR-EUR1' then 0
+                                                when [anh_Art] = 'Rechnung' then 1
+                                                when [anh_Art] = 'eFatura' then 1.1
+                                                when [anh_Art] = 'CMR' then 2
+                                                when [anh_Art] = 'Ausfuhr' then 3
+                                                when [anh_Art] = 'Vorpapier' then 4
+                                                when [anh_Art] = 'Packliste' then 5
+                                                when [anh_Art] = 'Auftrag' then 6
+                                                when [anh_Art] = 'Auftrag' then 7
+                                                when [anh_Art] = 'Dispoliste' then 8
+                                                when [anh_Art] = 'Vorkasse' then 9
+                                                when [anh_Art] = 'Überweisungsbeleg' then 10
+                                                when [anh_Art] = 'Vollmacht' then 11
+                                                when [anh_Art] = 'ATB' then 12
+                                                when [anh_Art] = 'ATA' then 13
+                                                when [anh_Art] = 'Sonstiges' then 99
+                                                when [anh_Art] ='' then 15
+
+										END, [anh_Reihenfolge],[anh_id]"
+
+        Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+        Dim col As DataColumn
+        col = dt.Columns.Add("anh_selekt", GetType(Boolean))
+        col.SetOrdinal(0)
+        dgvAnhaenge.Columns.Clear()
+        dgvAnhaenge.DataSource = dt
+        If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
+
+        With dgvAnhaenge
+
+            .Enabled = True
+            .ReadOnly = False
+
+            .RowTemplate.MinimumHeight = 30
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
+            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+            '  .Columns("anh_Art").Visible = False     'AvisoID nicht anzeigen
+
+            .Columns("anh_selekt").Width = 25
+            .Columns("anh_selekt").HeaderText = ""
+            .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Datum").MinimumWidth = 50
+            .Columns("anh_Datum").HeaderText = "Datum"
+            .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Datum").ReadOnly = True
+
+
+            .Columns("anh_Name").MinimumWidth = 150
+            .Columns("anh_Name").HeaderText = "Name"
+            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("anh_Name").ReadOnly = True
+
+            .Columns("anh_Art").MinimumWidth = 50
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Art").ReadOnly = True
+
+            .Columns("anh_Typ").Width = 50
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Typ").ReadOnly = True
+
+            .Columns("anh_size").Width = 50
+            .Columns("anh_size").HeaderText = "Größe in MB"
+            .Columns("anh_size").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_size").ReadOnly = True
+
+        End With
+
+        For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+
+            If Not IsDBNull(doc.Cells("anh_size").Value) AndAlso doc.Cells("anh_size").Value > 0 Then
+                Dim size = (doc.Cells("anh_size").Value)
+                If size < 1 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightGreen
+                ElseIf size > 1 AndAlso size < 5 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightYellow
+                Else
+                    doc.DefaultCellStyle.BackColor = Color.IndianRed
+                End If
+            End If
+
+        Next
+
+        If atez_data IsNot Nothing AndAlso atez_data.selectedDocuments <> "" Then
+
+            For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                If atez_data.selectedDocuments.Contains(doc.Cells("anh_docId").Value) Then doc.Cells("anh_selekt").Value = True
+
+            Next
+        End If
+
+
+    End Sub
+
+
+    Sub initSeachboxes()
+
+        sbAdressierteZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        'sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+
+    End Sub
+
+
+
+    Public Function checkAttachment() As Boolean
+
+        Dim selectedDocuments As Boolean = False
+
+        For Each Row In dgvAnhaenge.Rows
+
+            selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
+            If selectedDocuments Then Exit For
+        Next
+
+
+        'If Not selectedDocuments Then
+        '    lblInfo.Text = "kein Anhang selektiert"
+        '    Cursor = Cursors.Default
+        '    Return selectedDocuments
+        'End If
+
+        Return selectedDocuments
+
+    End Function
+
+    Public Function checkMandatoryField() As Boolean
+
+
+        'TODO
+        Return True
+
+
+    End Function
+
+
+
+    Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick
+        Try
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("anh_docId").Value)
+                If Not IO.File.Exists(docPath) Then
+                    MsgBox("Die Datei existiert nicht!")
+                Else
+                    If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler  (bereits von Benutzer soUndSo geöffnet)
+                        Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
+                        System.IO.File.Copy(docPath, docPathTMP)
+                        Process.Start(docPathTMP)
+                    Else
+                        Process.Start(docPath)
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Private Sub dgvAnhaenge_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick
+
+        Dim countAnh As Double = 0
+        If dgvAnhaenge.RowCount > 0 Then
+
+            If dgvAnhaenge.Columns(e.ColumnIndex).Name = "anh_selekt" Then
+
+                If Not IsDBNull(dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value) AndAlso dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value = True Then
+                    countAnh += IIf(dgvAnhaenge.CurrentRow.Cells("anh_size").Value IsNot DBNull.Value, dgvAnhaenge.CurrentRow.Cells("anh_size").Value, 0)
+                End If
+
+                For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                    If Row.Cells("anh_selekt").Value IsNot DBNull.Value AndAlso Row.Cells("anh_selekt").Value = True AndAlso Row.Cells("anh_size").Value IsNot DBNull.Value Then
+                        countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                    End If
+                Next
+
+                lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+
+            End If
+
+        End If
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvAnhaenge.RowCount > 0 Then
+            Dim countAnh As Double = 0
+            For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                If allSelected Then
+                    Row.Cells("anh_selekt").Value = True
+                    countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                Else
+                    Row.Cells("anh_selekt").Value = False
+                    countAnh = 0
+                End If
+            Next
+            allSelected = Not allSelected
+            lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+        End If
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        cRelayHubToken.DeleteAllStores()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAgg_Tnr.Click, btnAgg_desc.Click, btnAgg_Origin.Click, btnAgg_Unit.Click
+        If sender.Tag = 0 Then
+            sender.Tag = 1
+            sender.BackColor = Color.DeepSkyBlue
+        Else
+            sender.Tag = 0
+            sender.BackColor = SystemColors.Control
+        End If
+    End Sub
+    Private Sub Buttonprio_Click(sender As Object, e As EventArgs) Handles btnPrio_CommInv.Click, btnPrio_ftz.Click, btnPrio_eFatura.Click, btnPrio_Export.Click
+
+        If sender IsNot btnPrio_CommInv Then btnPrio_CommInv.Tag = 0 : btnPrio_CommInv.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_eFatura Then btnPrio_eFatura.Tag = 0 : btnPrio_eFatura.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_Export Then btnPrio_Export.Tag = 0 : btnPrio_Export.BackColor = SystemColors.Control
+        If sender IsNot btnPrio_ftz Then btnPrio_ftz.Tag = 0 : btnPrio_ftz.BackColor = SystemColors.Control
+
+
+        If sender.Tag = 0 Then
+            sender.Tag = 1
+            sender.BackColor = Color.DeepSkyBlue
+        Else
+            sender.Tag = 0
+            sender.BackColor = SystemColors.Control
+        End If
+    End Sub
+End Class

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -108,8 +108,8 @@ Public Class frmSendungAnhangImport
                                                  If pAnchor IsNot Nothing AndAlso pAnchor Is pClick Then
                                                      Dim i1 As Integer = pAnchor.Controls.IndexOf(anchor)
                                                      Dim i2 As Integer = pAnchor.Controls.IndexOf(USRCNTL)
-                                                     Dim fromIdx As Integer = Math.Min(i1, i2)
-                                                     Dim toIdx As Integer = Math.Max(i1, i2)
+                                                     Dim fromIdx As Integer = Math.min(i1, i2)
+                                                     Dim toIdx As Integer = Math.max(i1, i2)
 
                                                      ' Vorher alles deselektieren (beide Panels)
                                                      For Each c As Control In flpnlAviso.Controls
@@ -183,7 +183,7 @@ Public Class frmSendungAnhangImport
                                     End Sub
     End Sub
 
-    Sub initLocationViewer(loc, typ)
+    Sub initLocationViewer(loc As String, typ As String)
 
         Try
 
@@ -206,7 +206,7 @@ Public Class frmSendungAnhangImport
                     If loc <> "" Then
                         Dim data = File.ReadAllBytes(loc)
 
-                        Dim header As String = System.Text.Encoding.ASCII.GetString(data, 0, Math.Min(4, data.Length))
+                        Dim header As String = System.Text.Encoding.ASCII.GetString(data, 0, Math.min(4, data.Length))
 
                         If header = "%PDF" Then
 
@@ -219,9 +219,9 @@ Public Class frmSendungAnhangImport
                     End If
 
 
-                        'NOT WORKING
-                        'PdfViewer.LoadFromFile(loc) NOT WORKING
-                    End If
+                    'NOT WORKING
+                    'PdfViewer.LoadFromFile(loc) NOT WORKING
+                End If
             ElseIf typ = "BILD" Or typ = ".jpg" Then
                 PdfViewer.Visible = False
                 WebBrowser.Visible = (loc <> "")
@@ -236,7 +236,7 @@ Public Class frmSendungAnhangImport
             Button5.Visible = PdfViewer.Visible
 
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Path: " & loc, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 

Aviso/App.config

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
   <configSections>
     <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@@ -6,7 +6,7 @@
     </sectionGroup>
   </configSections>
   <connectionStrings>
-    <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" />
+    <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" />
   </connectionStrings>
   <appSettings>
     <add key="CustomerPortalApiBaseUrl" value="https://login.server.verag.ag" />
@@ -90,12 +90,16 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-4.2.0.0" newVersion="4.2.0.0" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-10.7.21.0" newVersion="10.7.21.0" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Bcl.AsyncInterfaces" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
   <system.web>

Aviso/Auswertung/usrctlStatVERIMEX.Designer.vb

@@ -50,6 +50,8 @@ Partial Class usrctlStatVERIMEX
         Me.datAbfStatVon = New System.Windows.Forms.DateTimePicker()
         Me.btnAbfBericht = New System.Windows.Forms.Button()
         Me.btnAbfExcel = New System.Windows.Forms.Button()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.cboAbfArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Panel3.SuspendLayout()
         Me.Panel4.SuspendLayout()
         CType(Me.dgvAbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -67,12 +69,11 @@ Partial Class usrctlStatVERIMEX
         Me.Panel3.Controls.Add(Me.Button1)
         Me.Panel3.Location = New System.Drawing.Point(15, 17)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(701, 423)
+        Me.Panel3.Size = New System.Drawing.Size(790, 423)
         Me.Panel3.TabIndex = 0
         '
         'Button4
         '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button4.Location = New System.Drawing.Point(310, 389)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(135, 23)
@@ -103,13 +104,12 @@ Partial Class usrctlStatVERIMEX
         Me.Panel4.Controls.Add(Me.datStatVon)
         Me.Panel4.Location = New System.Drawing.Point(3, 24)
         Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(670, 359)
+        Me.Panel4.Size = New System.Drawing.Size(784, 359)
         Me.Panel4.TabIndex = 1
         '
         'Button3
         '
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Location = New System.Drawing.Point(532, 8)
+        Me.Button3.Location = New System.Drawing.Point(646, 9)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(135, 23)
         Me.Button3.TabIndex = 6
@@ -139,11 +139,14 @@ Partial Class usrctlStatVERIMEX
         '
         'dgvAbklaerungTR
         '
+        Me.dgvAbklaerungTR.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvAbklaerungTR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAbklaerungTR.Location = New System.Drawing.Point(6, 38)
         Me.dgvAbklaerungTR.Name = "dgvAbklaerungTR"
         Me.dgvAbklaerungTR.RowHeadersWidth = 62
-        Me.dgvAbklaerungTR.Size = New System.Drawing.Size(661, 318)
+        Me.dgvAbklaerungTR.Size = New System.Drawing.Size(775, 318)
         Me.dgvAbklaerungTR.TabIndex = 7
         '
         'Label10
@@ -182,8 +185,7 @@ Partial Class usrctlStatVERIMEX
         '
         'Button2
         '
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Location = New System.Drawing.Point(598, 389)
+        Me.Button2.Location = New System.Drawing.Point(712, 389)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(75, 23)
         Me.Button2.TabIndex = 3
@@ -192,8 +194,7 @@ Partial Class usrctlStatVERIMEX
         '
         'Button1
         '
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(517, 389)
+        Me.Button1.Location = New System.Drawing.Point(631, 389)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(75, 23)
         Me.Button1.TabIndex = 2
@@ -209,12 +210,11 @@ Partial Class usrctlStatVERIMEX
         Me.Panel1.Controls.Add(Me.btnAbfExcel)
         Me.Panel1.Location = New System.Drawing.Point(15, 467)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(701, 423)
+        Me.Panel1.Size = New System.Drawing.Size(790, 423)
         Me.Panel1.TabIndex = 5
         '
         'btnAbfDetailbereicht
         '
-        Me.btnAbfDetailbereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnAbfDetailbereicht.Location = New System.Drawing.Point(310, 389)
         Me.btnAbfDetailbereicht.Name = "btnAbfDetailbereicht"
         Me.btnAbfDetailbereicht.Size = New System.Drawing.Size(135, 23)
@@ -234,6 +234,8 @@ Partial Class usrctlStatVERIMEX
         'Panel2
         '
         Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.Controls.Add(Me.cboAbfArt)
+        Me.Panel2.Controls.Add(Me.Label7)
         Me.Panel2.Controls.Add(Me.btnAbfAuswerten)
         Me.Panel2.Controls.Add(Me.Label3)
         Me.Panel2.Controls.Add(Me.cboAbfFirma)
@@ -244,13 +246,12 @@ Partial Class usrctlStatVERIMEX
         Me.Panel2.Controls.Add(Me.datAbfStatVon)
         Me.Panel2.Location = New System.Drawing.Point(3, 24)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(670, 359)
+        Me.Panel2.Size = New System.Drawing.Size(784, 359)
         Me.Panel2.TabIndex = 1
         '
         'btnAbfAuswerten
         '
-        Me.btnAbfAuswerten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAbfAuswerten.Location = New System.Drawing.Point(532, 8)
+        Me.btnAbfAuswerten.Location = New System.Drawing.Point(646, 9)
         Me.btnAbfAuswerten.Name = "btnAbfAuswerten"
         Me.btnAbfAuswerten.Size = New System.Drawing.Size(135, 23)
         Me.btnAbfAuswerten.TabIndex = 6
@@ -260,7 +261,7 @@ Partial Class usrctlStatVERIMEX
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(346, 13)
+        Me.Label3.Location = New System.Drawing.Point(305, 13)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(35, 13)
         Me.Label3.TabIndex = 0
@@ -272,19 +273,22 @@ Partial Class usrctlStatVERIMEX
         Me.cboAbfFirma._allowFreiText = False
         Me.cboAbfFirma._value = ""
         Me.cboAbfFirma.FormattingEnabled = True
-        Me.cboAbfFirma.Location = New System.Drawing.Point(386, 11)
+        Me.cboAbfFirma.Location = New System.Drawing.Point(345, 11)
         Me.cboAbfFirma.Margin = New System.Windows.Forms.Padding(2)
         Me.cboAbfFirma.Name = "cboAbfFirma"
-        Me.cboAbfFirma.Size = New System.Drawing.Size(111, 21)
+        Me.cboAbfFirma.Size = New System.Drawing.Size(84, 21)
         Me.cboAbfFirma.TabIndex = 5
         '
         'dgvAbfertigungTR
         '
+        Me.dgvAbfertigungTR.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvAbfertigungTR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAbfertigungTR.Location = New System.Drawing.Point(6, 38)
         Me.dgvAbfertigungTR.Name = "dgvAbfertigungTR"
         Me.dgvAbfertigungTR.RowHeadersWidth = 62
-        Me.dgvAbfertigungTR.Size = New System.Drawing.Size(661, 318)
+        Me.dgvAbfertigungTR.Size = New System.Drawing.Size(775, 318)
         Me.dgvAbfertigungTR.TabIndex = 7
         '
         'Label4
@@ -323,8 +327,7 @@ Partial Class usrctlStatVERIMEX
         '
         'btnAbfBericht
         '
-        Me.btnAbfBericht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAbfBericht.Location = New System.Drawing.Point(598, 389)
+        Me.btnAbfBericht.Location = New System.Drawing.Point(712, 389)
         Me.btnAbfBericht.Name = "btnAbfBericht"
         Me.btnAbfBericht.Size = New System.Drawing.Size(75, 23)
         Me.btnAbfBericht.TabIndex = 3
@@ -333,14 +336,34 @@ Partial Class usrctlStatVERIMEX
         '
         'btnAbfExcel
         '
-        Me.btnAbfExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAbfExcel.Location = New System.Drawing.Point(517, 389)
+        Me.btnAbfExcel.Location = New System.Drawing.Point(631, 389)
         Me.btnAbfExcel.Name = "btnAbfExcel"
         Me.btnAbfExcel.Size = New System.Drawing.Size(75, 23)
         Me.btnAbfExcel.TabIndex = 2
         Me.btnAbfExcel.Text = "Excel"
         Me.btnAbfExcel.UseVisualStyleBackColor = True
         '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(434, 15)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(85, 13)
+        Me.Label7.TabIndex = 8
+        Me.Label7.Text = "Abfertigungs-Art:"
+        '
+        'cboAbfArt
+        '
+        Me.cboAbfArt._allowedValuesFreiText = Nothing
+        Me.cboAbfArt._allowFreiText = False
+        Me.cboAbfArt._value = ""
+        Me.cboAbfArt.FormattingEnabled = True
+        Me.cboAbfArt.Location = New System.Drawing.Point(524, 11)
+        Me.cboAbfArt.Margin = New System.Windows.Forms.Padding(2)
+        Me.cboAbfArt.Name = "cboAbfArt"
+        Me.cboAbfArt.Size = New System.Drawing.Size(117, 21)
+        Me.cboAbfArt.TabIndex = 9
+        '
         'usrctlStatVERIMEX
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -392,4 +415,6 @@ Partial Class usrctlStatVERIMEX
     Friend WithEvents datAbfStatVon As DateTimePicker
     Friend WithEvents btnAbfBericht As Button
     Friend WithEvents btnAbfExcel As Button
+    Friend WithEvents cboAbfArt As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label7 As Label
 End Class

Aviso/Auswertung/usrctlStatVERIMEX.vb

@@ -45,12 +45,15 @@ Public Class usrctlStatVERIMEX
                 innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
         End Select
 
+
+
         With dgvAbfertigungTR
             Dim sqlstr = "SELECT  mit_vname + ' ' + mit_nname as Mitarbeiter ,sum(tblSnd_AbfertigungTRAnzahl) as Versandscheine ,sum(tblSnd_AbfertigungTRAnzahlPos) as Positionen ,count(distinct(avisoid)) as LKW
                   FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
                   " & innerJoinFiliale & "
                   where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datAbfStatVon.Value & "' and '" & datAbfStatBis.Value & "'  and tblSnd_AbfertigungTR_MA is not null 
                   " & whereFiliale & "
+                  " & If(cboAbfArt._value <> "", " AND tblSnd_Abfertigungsart_ID IN(" & cboAbfArt._value & ")", "") & "
                   group by mit_vname,mit_nname"
             'früher: Datum statt tblSnd_AbfertigungTR
             '           MsgBox(sqlstr)
@@ -138,6 +141,12 @@ Public Class usrctlStatVERIMEX
         cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*Nicht zugeordnet", "0"))
         cboFirma.changeItem("")
 
+        cboAbfArt.Items.Clear()
+        cboAbfArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
+        cboAbfArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "'5','18','32'"))
+        cboAbfArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2", "'6','33','34','37','40','42'"))
+
+
         cboAbfFirma.Items.Clear()
         cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
         cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))

Aviso/Aviso.vbproj

@@ -148,8 +148,8 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
     </Reference>
-    <Reference Include="BouncyCastle.Cryptography">
-      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\BouncyCastle.Cryptography.dll</HintPath>
+    <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
+      <HintPath>..\packages\BouncyCastle.Cryptography.2.6.2\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
     </Reference>
     <Reference Include="ChilkatDotNet47, Version=9.5.0.88, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
       <SpecificVersion>False</SpecificVersion>
@@ -195,35 +195,50 @@
     <Reference Include="EAGetMail, Version=5.3.5.0, Culture=neutral, PublicKeyToken=e10a0812eb29cf94, processorArchitecture=MSIL">
       <HintPath>..\packages\EAGetMail.5.3.5\lib\net461\EAGetMail.dll</HintPath>
     </Reference>
+    <Reference Include="fiskaltrust.interface, Version=1.3.45.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\fiskaltrust.interface.1.3.45\lib\net461\fiskaltrust.interface.dll</HintPath>
+    </Reference>
     <Reference Include="Gemeinsames">
       <HintPath>..\Gemeinsames\bin\Debug\Gemeinsames.dll</HintPath>
     </Reference>
-    <Reference Include="itext.barcodes, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.barcodes.dll</HintPath>
+    <Reference Include="itext.barcodes, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.barcodes.dll</HintPath>
     </Reference>
-    <Reference Include="itext.forms, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.forms.dll</HintPath>
+    <Reference Include="itext.bouncy-castle-adapter, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.bouncy-castle-adapter.9.6.0\lib\net461\itext.bouncy-castle-adapter.dll</HintPath>
     </Reference>
-    <Reference Include="itext.io, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.io.dll</HintPath>
+    <Reference Include="itext.bouncy-castle-connector, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.bouncy-castle-connector.dll</HintPath>
     </Reference>
-    <Reference Include="itext.kernel, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.kernel.dll</HintPath>
+    <Reference Include="itext.commons, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.commons.9.6.0\lib\net461\itext.commons.dll</HintPath>
     </Reference>
-    <Reference Include="itext.layout, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.layout.dll</HintPath>
+    <Reference Include="itext.forms, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.forms.dll</HintPath>
     </Reference>
-    <Reference Include="itext.pdfa, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.pdfa.dll</HintPath>
+    <Reference Include="itext.io, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.io.dll</HintPath>
     </Reference>
-    <Reference Include="itext.sign, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.sign.dll</HintPath>
+    <Reference Include="itext.kernel, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.kernel.dll</HintPath>
     </Reference>
-    <Reference Include="itext.styledxmlparser, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.styledxmlparser.dll</HintPath>
+    <Reference Include="itext.layout, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.layout.dll</HintPath>
     </Reference>
-    <Reference Include="itext.svg, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.svg.dll</HintPath>
+    <Reference Include="itext.pdfa, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.pdfa.dll</HintPath>
+    </Reference>
+    <Reference Include="itext.pdfua, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.pdfua.dll</HintPath>
+    </Reference>
+    <Reference Include="itext.sign, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.sign.dll</HintPath>
+    </Reference>
+    <Reference Include="itext.styledxmlparser, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.styledxmlparser.dll</HintPath>
+    </Reference>
+    <Reference Include="itext.svg, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.svg.dll</HintPath>
     </Reference>
     <Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
@@ -394,8 +409,8 @@
     <Reference Include="Microsoft.AspNetCore.Http.Abstractions">
       <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Http.Abstractions.dll</HintPath>
     </Reference>
-    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=1.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.1.0.0\lib\net461\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
+    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=5.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.5.0.0\lib\net461\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="Microsoft.Extensions.Configuration">
@@ -404,15 +419,27 @@
     <Reference Include="Microsoft.Extensions.Configuration.Abstractions">
       <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.Configuration.Abstractions.dll</HintPath>
     </Reference>
-    <Reference Include="Microsoft.Extensions.DependencyInjection">
-      <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.DependencyInjection.dll</HintPath>
+    <Reference Include="Microsoft.Extensions.DependencyInjection, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.DependencyInjection.5.0.0\lib\net461\Microsoft.Extensions.DependencyInjection.dll</HintPath>
     </Reference>
-    <Reference Include="Microsoft.Extensions.DependencyInjection.Abstractions">
-      <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.DependencyInjection.Abstractions.dll</HintPath>
+    <Reference Include="Microsoft.Extensions.DependencyInjection.Abstractions, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.DependencyInjection.Abstractions.5.0.0\lib\net461\Microsoft.Extensions.DependencyInjection.Abstractions.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.Extensions.Hosting">
       <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.Hosting.dll</HintPath>
     </Reference>
+    <Reference Include="Microsoft.Extensions.Logging, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Logging.5.0.0\lib\net461\Microsoft.Extensions.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Extensions.Logging.Abstractions, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Logging.Abstractions.5.0.0\lib\net461\Microsoft.Extensions.Logging.Abstractions.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Extensions.Options, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Options.5.0.0\lib\net461\Microsoft.Extensions.Options.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Extensions.Primitives, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Primitives.5.0.0\lib\net461\Microsoft.Extensions.Primitives.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
@@ -452,9 +479,15 @@
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Design" />
+    <Reference Include="System.Diagnostics.DiagnosticSource, Version=5.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Diagnostics.DiagnosticSource.5.0.0\lib\net46\System.Diagnostics.DiagnosticSource.dll</HintPath>
+    </Reference>
     <Reference Include="System.DirectoryServices" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.Drawing.Design" />
+    <Reference Include="System.Interactive.Async, Version=4.0.0.0, Culture=neutral, PublicKeyToken=94bc3704cddfc263, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Interactive.Async.4.0.0\lib\net461\System.Interactive.Async.dll</HintPath>
+    </Reference>
     <Reference Include="System.IO, Version=4.1.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
       <HintPath>..\packages\System.IO.4.3.0\lib\net462\System.IO.dll</HintPath>
       <Private>True</Private>
@@ -468,6 +501,9 @@
     <Reference Include="System.IO.Packaging, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
       <HintPath>..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll</HintPath>
     </Reference>
+    <Reference Include="System.Linq.Async, Version=4.0.0.0, Culture=neutral, PublicKeyToken=94bc3704cddfc263, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Linq.Async.4.0.0\lib\net461\System.Linq.Async.dll</HintPath>
+    </Reference>
     <Reference Include="System.Management" />
     <Reference Include="System.Memory, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
       <HintPath>..\packages\System.Memory.4.6.3\lib\net462\System.Memory.dll</HintPath>
@@ -489,8 +525,12 @@
     <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
       <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.1.2\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
     </Reference>
+    <Reference Include="System.Runtime.Serialization" />
     <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
     <Reference Include="System.Security" />
+    <Reference Include="System.Security.AccessControl, Version=6.0.0.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.AccessControl.6.0.1\lib\net461\System.Security.AccessControl.dll</HintPath>
+    </Reference>
     <Reference Include="System.Security.Cryptography.Algorithms, Version=4.2.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
       <HintPath>..\packages\System.Security.Cryptography.Algorithms.4.3.0\lib\net463\System.Security.Cryptography.Algorithms.dll</HintPath>
       <Private>True</Private>
@@ -514,11 +554,19 @@
       <Private>True</Private>
       <Private>True</Private>
     </Reference>
+    <Reference Include="System.Security.Cryptography.Xml, Version=6.0.0.2, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Xml.6.0.2\lib\net461\System.Security.Cryptography.Xml.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Security.Principal.Windows, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Principal.Windows.5.0.0\lib\net461\System.Security.Principal.Windows.dll</HintPath>
+    </Reference>
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.ServiceModel.Web" />
     <Reference Include="System.Text.Encoding.CodePages, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
       <HintPath>..\packages\System.Text.Encoding.CodePages.8.0.0\lib\net462\System.Text.Encoding.CodePages.dll</HintPath>
     </Reference>
-    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.2\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath>
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
     </Reference>
     <Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
       <HintPath>..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll</HintPath>
@@ -596,6 +644,24 @@
       <SubType>UserControl</SubType>
     </Compile>
     <Compile Include="ApplicationEvents.vb" />
+    <Compile Include="ATEZ\frmATEZ_TELOTEC.Designer.vb">
+      <DependentUpon>frmATEZ_TELOTEC.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ATEZ\frmATEZ_TELOTEC.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ATEZ\frmATEZ_MIC.Designer.vb">
+      <DependentUpon>frmATEZ_MIC.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ATEZ\frmATEZ_MIC.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ATEZ\frmATEZ_UK_MODAL.Designer.vb">
+      <DependentUpon>frmATEZ_UK_MODAL.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ATEZ\frmATEZ_UK_MODAL.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="ATEZ\frmATEZ_EZA.Designer.vb">
       <DependentUpon>frmATEZ_EZA.vb</DependentUpon>
     </Compile>
@@ -667,6 +733,12 @@
     <Compile Include="Barcode.vb" />
     <Compile Include="Barcode\Code128Content.vb" />
     <Compile Include="Barcode\Code128Rendering.vb" />
+    <Compile Include="Benachrichtigung\usrCntlBenachrichtigungenNEW.Designer.vb">
+      <DependentUpon>usrCntlBenachrichtigungenNEW.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Benachrichtigung\usrCntlBenachrichtigungenNEW.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="Benutzerdefinierte Elemente\cMyListItem.vb" />
     <Compile Include="Benutzerdefinierte Elemente\frmPopUp.Designer.vb">
       <DependentUpon>frmPopUp.vb</DependentUpon>
@@ -845,6 +917,12 @@
     <Compile Include="frmHauptfensterNew.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmInfoMeldung.Designer.vb">
+      <DependentUpon>frmInfoMeldung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmInfoMeldung.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmNCTSRouten.Designer.vb">
       <DependentUpon>frmNCTSRouten.vb</DependentUpon>
     </Compile>
@@ -1140,6 +1218,12 @@
     <Compile Include="frmWarenbezeichnungBegriffeEdit.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmReferenzenSicherheiten.Designer.vb">
+      <DependentUpon>frmReferenzenSicherheiten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmReferenzenSicherheiten.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmWarenorte.Designer.vb">
       <DependentUpon>frmWarenorte.vb</DependentUpon>
     </Compile>
@@ -1176,6 +1260,12 @@
     <Compile Include="GVMS\frmGVMSNew.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_Zollvorgaenge.Designer.vb">
+      <DependentUpon>usrCntlHauptfenster_Suche_Zollvorgaenge.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_Zollvorgaenge.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -1271,16 +1361,16 @@
     <Compile Include="usrcntlFrachtkostenberechnung.vb">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="usrCntlHauptfenster_Suche_SND.Designer.vb">
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_SND.Designer.vb">
       <DependentUpon>usrCntlHauptfenster_Suche_SND.vb</DependentUpon>
     </Compile>
-    <Compile Include="usrCntlHauptfenster_Suche_SND.vb">
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_SND.vb">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="usrCntlHauptfenster_Suche_AVISO.Designer.vb">
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_AVISO.Designer.vb">
       <DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
     </Compile>
-    <Compile Include="usrCntlHauptfenster_Suche_AVISO.vb">
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_AVISO.vb">
       <SubType>UserControl</SubType>
     </Compile>
     <Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
@@ -1355,6 +1445,15 @@
     <EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
       <DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="ATEZ\frmATEZ_TELOTEC.resx">
+      <DependentUpon>frmATEZ_TELOTEC.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ATEZ\frmATEZ_MIC.resx">
+      <DependentUpon>frmATEZ_MIC.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ATEZ\frmATEZ_UK_MODAL.resx">
+      <DependentUpon>frmATEZ_UK_MODAL.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="ATEZ\frmATEZ_EZA.resx">
       <DependentUpon>frmATEZ_EZA.vb</DependentUpon>
     </EmbeddedResource>
@@ -1388,6 +1487,9 @@
     <EmbeddedResource Include="AvisoReports\rptQRAviso.resx">
       <DependentUpon>rptQRAviso.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Benachrichtigung\usrCntlBenachrichtigungenNEW.resx">
+      <DependentUpon>usrCntlBenachrichtigungenNEW.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Benutzerdefinierte Elemente\frmPopUp.resx">
       <DependentUpon>frmPopUp.vb</DependentUpon>
     </EmbeddedResource>
@@ -1464,6 +1566,9 @@
     <EmbeddedResource Include="frmHauptfensterNew.resx">
       <DependentUpon>frmHauptfensterNew.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmInfoMeldung.resx">
+      <DependentUpon>frmInfoMeldung.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmNCTSRouten.resx">
       <DependentUpon>frmNCTSRouten.vb</DependentUpon>
     </EmbeddedResource>
@@ -1615,6 +1720,9 @@
     <EmbeddedResource Include="frmWarenbezeichnungBegriffeEdit.resx">
       <DependentUpon>frmWarenbezeichnungBegriffeEdit.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmReferenzenSicherheiten.resx">
+      <DependentUpon>frmReferenzenSicherheiten.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmWarenorte.resx">
       <DependentUpon>frmWarenorte.vb</DependentUpon>
     </EmbeddedResource>
@@ -1633,6 +1741,9 @@
     <EmbeddedResource Include="GVMS\frmGVMSNew.resx">
       <DependentUpon>frmGVMSNew.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Hauptfenster\usrCntlHauptfenster_Suche_Zollvorgaenge.resx">
+      <DependentUpon>usrCntlHauptfenster_Suche_Zollvorgaenge.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator>
@@ -1679,10 +1790,10 @@
     <EmbeddedResource Include="usrcntlFrachtkostenberechnung.resx">
       <DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="usrCntlHauptfenster_Suche_SND.resx">
+    <EmbeddedResource Include="Hauptfenster\usrCntlHauptfenster_Suche_SND.resx">
       <DependentUpon>usrCntlHauptfenster_Suche_SND.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="usrCntlHauptfenster_Suche_AVISO.resx">
+    <EmbeddedResource Include="Hauptfenster\usrCntlHauptfenster_Suche_AVISO.resx">
       <DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">
@@ -1884,6 +1995,7 @@
     </None>
     <None Include="Resources\AVISO_DCS.png" />
     <None Include="Resources\aktualisieren-40.png" />
+    <None Include="Resources\dakosy_de.png" />
     <Content Include="Resources\FO.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -1905,6 +2017,63 @@
     <None Include="Resources\qr.png" />
     <None Include="Resources\qr_s.png" />
     <None Include="Resources\Transcode.png" />
+    <None Include="Resources\SND_verbinden.png" />
+    <None Include="Resources\SND_loesen.png" />
+    <None Include="Resources\ico_settings.png" />
+    <None Include="Resources\ico_kunden.png" />
+    <None Include="Resources\ico_fakturierung.png" />
+    <None Include="Resources\ico_rechnungen.png" />
+    <None Include="Resources\ico_mitarbeiter.png" />
+    <None Include="Resources\ico_kassenbuch.png" />
+    <None Include="Resources\ico_dienstplan.png" />
+    <None Include="Resources\ico_zeiterfassung.png" />
+    <None Include="Resources\ico_parkzeit.png" />
+    <None Include="Resources\ico_truck.png" />
+    <None Include="Resources\ico_docSearch.png" />
+    <None Include="Resources\ico_checklist.png" />
+    <None Include="Resources\ico_persDocument.png" />
+    <None Include="Resources\ico_security.png" />
+    <None Include="Resources\ico_handshake.png" />
+    <None Include="Resources\ico_docSave.png" />
+    <None Include="Resources\ico_DocEdit.png" />
+    <None Include="Resources\ico_docFin.png" />
+    <None Include="Resources\ico_mail.png" />
+    <None Include="Resources\ico_add.png" />
+    <None Include="Resources\ico_weel.png" />
+    <None Include="Resources\ico_loupe.png" />
+    <None Include="Resources\ico_inventor.png" />
+    <None Include="Resources\ico_verzeichnis.png" />
+    <None Include="Resources\ico_webWww.png" />
+    <None Include="Resources\ico_www.png" />
+    <None Include="Resources\ico_verknuepfung.png" />
+    <None Include="Resources\ico_webSearch.png" />
+    <None Include="Resources\ico_webSecurity.png" />
+    <None Include="Resources\ico_organigram.png" />
+    <None Include="Resources\ico_support.png" />
+    <None Include="Resources\ico_speditionsbuch.png" />
+    <None Include="Resources\ico_statistic.png" />
+    <None Include="Resources\ico_zertifikate.png" />
+    <None Include="Resources\ico_Options.png" />
+    <None Include="Resources\ico_ATR.png" />
+    <None Include="Resources\ico_CMR.png" />
+    <None Include="Resources\ico_ImportAssistant.png" />
+    <None Include="Resources\ico_kasse.png" />
+    <None Include="Resources\ico_importaviso.png" />
+    <None Include="Resources\ico_vorkasse.png" />
+    <None Include="Resources\ico_weitereForm.png" />
+    <None Include="Resources\ico_atez_transitAI.png" />
+    <None Include="Resources\ico_atez_declarantAI.png" />
+    <None Include="Resources\ico_atez_tariffAI.png" />
+    <None Include="Resources\ico_atez_logicust.png" />
+    <None Include="Resources\s_KI_Assist_Herbert.png" />
+    <None Include="Resources\KI_Assist_Herbert.png" />
+    <None Include="Resources\herbert.jpg" />
+    <None Include="Resources\herbert_afraid.jpg" />
+    <None Include="Resources\herbert_destroyed.jpg" />
+    <None Include="Resources\herbert_happy.jpg" />
+    <None Include="Resources\mic_nl.png" />
+    <None Include="Resources\modaltrans_uk.png" />
+    <None Include="Resources\teleotc-at.png" />
     <Content Include="Resources\WLAN\RunNHide.exe">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

Aviso/AvisoStatusFunctions.vb

@@ -1,4 +1,5 @@
-Imports SDL
+Imports Confluent.Kafka
+Imports SDL
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.cGlobal
 Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
@@ -1181,7 +1182,7 @@ Public Class AvisoStatusFunctions
     End Function
 
 
-    Public Function setNichtEingeftroffen(AvisoID, Optional geloescht = False) As Boolean
+    Public Function setNichtEingeftroffen(AvisoID, Optional geloescht = False, Optional auto = False) As Boolean
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
             MsgBox("Keine Berechtigung!")
             Return False
@@ -1219,18 +1220,19 @@ Public Class AvisoStatusFunctions
             Return False
         End If
         Dim tmpid = -1
+        Dim mitarbeiter = If(auto, "AUTO", VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter)
         ' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst Then
         Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen
-        Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+        Aviso.letzterMitarbeiter =
         Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
         tmpid = AvisoDAL.SpeichernAviso(Aviso)
 
         If geloescht Then
-            Aviso.Änderungen = "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
-            AvisoDAL.addAenderung(tmpid, "auf 'Gelöscht' gesetzt", "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            Aviso.Änderungen = "auf 'Gelöscht' gesetzt von " & mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
+            AvisoDAL.addAenderung(tmpid, "auf 'Gelöscht' gesetzt", "auf 'Gelöscht' gesetzt von " & mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         Else
-            Aviso.Änderungen = "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
-            AvisoDAL.addAenderung(tmpid, "auf LKW nicht eingetroffen gesetzt", "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            Aviso.Änderungen = "auf LKW nicht eingetroffen gesetzt von " & mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
+            AvisoDAL.addAenderung(tmpid, "auf LKW nicht eingetroffen gesetzt", "auf LKW nicht eingetroffen gesetzt von " & mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
 
         '  End If
@@ -1813,8 +1815,8 @@ ELSE_ATILLA:
 
         If SendungsId Is Nothing Then Return False
         If Not IsNumeric(SendungsId) Then Return False
-        If AvisoID Is Nothing Then Return False
-        If Not IsNumeric(AvisoID) Then Return False
+        'If AvisoID Is Nothing Then Return False
+        'If Not IsNumeric(AvisoID) Then Return False
 
         Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
 
@@ -1837,10 +1839,10 @@ ELSE_ATILLA:
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
             End If
             SENDUNG_TMP.tblSnd_Vorbereitet = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         Else
             SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
         Return SENDUNG_TMP.SAVE()
 
@@ -1850,8 +1852,8 @@ ELSE_ATILLA:
 
         If SendungsId Is Nothing Then Return False
         If Not IsNumeric(SendungsId) Then Return False
-        If AvisoID Is Nothing Then Return False
-        If Not IsNumeric(AvisoID) Then Return False
+        'If AvisoID Is Nothing Then Return False
+        'If Not IsNumeric(AvisoID) Then Return False
 
         Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
 
@@ -1876,21 +1878,39 @@ ELSE_ATILLA:
             'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
 
             SENDUNG_TMP.tblSnd_AbklaerungTR = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         Else
             SENDUNG_TMP.tblSnd_AbklaerungTR = Nothing
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
         Return SENDUNG_TMP.SAVE()
 
     End Function
 
+    Public Function setSendungSpeditionsbuchEintrag(SendungsId, AvisoID) As Boolean
+
+        Dim FUNC As New AvisoStatusFunctions
+
+        Dim posnr As posNr = FUNC.SpeditionsbuchEintrag(AvisoID, SendungsId)
+        If posnr IsNot Nothing Then
+            Dim sndEntry As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
+            sndEntry.FilialenNr = posnr.Filiale
+            sndEntry.AbfertigungsNr = posnr.Abfertigungsnummer
+            sndEntry.UnterNr = posnr.UnterNr
+            'sndEntry.tblSnd_SpeditionsbuchEingetragen = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
+            Dim vorhanden = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & sndEntry.FilialenNr & "' AND AbfertigungsNr='" & sndEntry.AbfertigungsNr & "' AND UnterNr='" & sndEntry.UnterNr & "'", "FMZOLL")
+            sndEntry.tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
+            sndEntry.SAVE()
+        End If
+        'Vermerke_anzeigen()
+
+    End Function
     Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1, Optional anzahlPos = 1) As Boolean
 
         If SendungsId Is Nothing Then Return False
         If Not IsNumeric(SendungsId) Then Return False
-        If AvisoID Is Nothing Then Return False
-        If Not IsNumeric(AvisoID) Then Return False
+        'If AvisoID Is Nothing Then Return False
+        'If Not IsNumeric(AvisoID) Then Return False
 
         Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
 
@@ -1917,10 +1937,10 @@ ELSE_ATILLA:
             ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
 
             SENDUNG_TMP.tblSnd_AbfertigungTR = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")")
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")")
         Else
             SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
         Return SENDUNG_TMP.SAVE()
 
@@ -1930,8 +1950,8 @@ ELSE_ATILLA:
 
         If SendungsId Is Nothing Then Return False
         If Not IsNumeric(SendungsId) Then Return False
-        If AvisoID Is Nothing Then Return False
-        If Not IsNumeric(AvisoID) Then Return False
+        'If AvisoID Is Nothing Then Return False
+        'If Not IsNumeric(AvisoID) Then Return False
 
         Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
 
@@ -1940,10 +1960,10 @@ ELSE_ATILLA:
         If SENDUNG_TMP.tblSnd_Fakturiert Is Nothing Then
 
             SENDUNG_TMP.tblSnd_Fakturiert = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         Else
             SENDUNG_TMP.tblSnd_Fakturiert = Nothing
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
         Return SENDUNG_TMP.SAVE()
 
@@ -1955,9 +1975,9 @@ ELSE_ATILLA:
 
 
             If sendId Is Nothing Then Return Nothing
-            If AvisoID Is Nothing Then Return Nothing
+            ' If AvisoID Is Nothing Then Return Nothing
             If sendId <= 0 Then Return Nothing
-            If AvisoID <= 0 Then Return Nothing
+            ' If AvisoID <= 0 Then Return Nothing
 
             For Each openForm In Application.OpenForms()
                 If TypeOf (openForm) Is frmSendungsdetailsNEU Then
@@ -2154,7 +2174,7 @@ ELSE_ATILLA:
                                 Dim DsId = ""
                                 Dim DsId2 = ""
                                 Dim frist = ""
-                                Dim gestellungsadresse = "<td><td/>"
+                                Dim gestellungsadresse = "<td></td>"
                                 Dim found = False
                                 Select Case s.tblSnd_Abfertigungsart_ID
                                     Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand 
@@ -2245,7 +2265,7 @@ ELSE_ATILLA:
                                                                 Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
                                                                 If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
                                                             End If
-                                                            If IsNumeric(DsId) Then
+                                                            If IsNumeric(DsId2) Then
                                                                 Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
                                                                 If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
                                                             End If
@@ -2274,7 +2294,7 @@ ELSE_ATILLA:
                         If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge
                             SendungslistTXT = ""
                         End If
-                        If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
+                        If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
                     End If
                 End If
         End Select
@@ -2355,7 +2375,7 @@ ELSE_ATILLA:
         If AbfertigungsNr <= 0 Then Return False
 
         If FilialenNr <> 4805 And FilialenNr <> 4811 Then ' Kein Ü-T 
-            Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_Wiedergestellungsdatum ,'') as WG FROM   tblDakosy_Zollanmeldungen   inner join tblDakosy_nctsout on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
+            Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_LimitDate ,'') as WG FROM   tblDakosy_Zollanmeldungen   inner join tblDakosy_NCTSOut004 on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 AtcMrn = dt.Rows(0)("MRN")
                 dsId = dt.Rows(0)("DsId")

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -277,6 +277,9 @@ Public Class frmAvisoWeiterleiten
             'addBtn(flpFirma, "A", "FISK", "VERAG Fiskal")
             addBtn(flpFirma, "A", "VRR", "VERRECHNUNG")
 
+
+            addBtn(flpFirma, "N", "KLIPP", "VERAG KLIPPHAUSEN")
+
             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
@@ -302,7 +305,10 @@ Public Class frmAvisoWeiterleiten
                 Next
             End If
         ElseIf sender Is btnFrontoffice Then
-            addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
+            addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE SUBEN", True)
+            'addBtn(flpFirma, "F", "FRONTOFFICE_KLIPP", "FRONT-OFFICE KLIPPHAUSEN", True) -> Wenn Firma gegründet
+
+
         ElseIf sender Is btnATILLA Then
             addBtn(flpFirma, "F", "ATILLA", "ATILLA", True)
             Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='ATILLA' order by team_id", "ADMIN")
@@ -330,8 +336,15 @@ Public Class frmAvisoWeiterleiten
                 Next
             End If
         ElseIf sender Is Button2 Then
-            addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG")
-            addBtn(flpFirma, "W", "WO_MERIS", "MERIS", True, "VERAG")
+
+
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT grz_Grenzstelle, grz_Bezeichnung, grz_Firma  FROM tblGrenzstelle WHERE grz_FreigabeWeb = 1 and grz_Firma is not null order by grz_Grenzstelle", "AVISO")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpFirma, "W", t("grz_Grenzstelle"), t("grz_Bezeichnung"), True, t("grz_Firma"))
+                Next
+            End If
+
 
         End If
 

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<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()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,10 +20,10 @@ Partial Class usrCntlBenachrichtigungen
     '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -38,6 +38,7 @@ Partial Class usrCntlBenachrichtigungen
         Me.cbxTeams = New System.Windows.Forms.CheckBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Label25 = New System.Windows.Forms.Label()
+        Me.cbxFotoVerwahrung = New System.Windows.Forms.CheckBox()
         Me.Panel2.SuspendLayout()
         CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel4.SuspendLayout()
@@ -80,8 +81,8 @@ Partial Class usrCntlBenachrichtigungen
         Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
         Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
         Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure
+        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
         Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
@@ -96,6 +97,7 @@ Partial Class usrCntlBenachrichtigungen
         '
         Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.Panel4.Controls.Add(Me.cbxTaskForce)
+        Me.Panel4.Controls.Add(Me.cbxFotoVerwahrung)
         Me.Panel4.Controls.Add(Me.cbxVerwarung)
         Me.Panel4.Controls.Add(Me.cbxNeukunden)
         Me.Panel4.Controls.Add(Me.Button10)
@@ -109,8 +111,9 @@ Partial Class usrCntlBenachrichtigungen
         'cbxTaskForce
         '
         Me.cbxTaskForce.AutoSize = True
+        Me.cbxTaskForce.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
-        Me.cbxTaskForce.Location = New System.Drawing.Point(174, 30)
+        Me.cbxTaskForce.Location = New System.Drawing.Point(265, 30)
         Me.cbxTaskForce.Name = "cbxTaskForce"
         Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
         Me.cbxTaskForce.TabIndex = 33
@@ -121,8 +124,9 @@ Partial Class usrCntlBenachrichtigungen
         'cbxVerwarung
         '
         Me.cbxVerwarung.AutoSize = True
+        Me.cbxVerwarung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black
-        Me.cbxVerwarung.Location = New System.Drawing.Point(85, 30)
+        Me.cbxVerwarung.Location = New System.Drawing.Point(84, 30)
         Me.cbxVerwarung.Name = "cbxVerwarung"
         Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17)
         Me.cbxVerwarung.TabIndex = 32
@@ -133,8 +137,9 @@ Partial Class usrCntlBenachrichtigungen
         'cbxNeukunden
         '
         Me.cbxNeukunden.AutoSize = True
+        Me.cbxNeukunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
-        Me.cbxNeukunden.Location = New System.Drawing.Point(7, 30)
+        Me.cbxNeukunden.Location = New System.Drawing.Point(0, 30)
         Me.cbxNeukunden.Name = "cbxNeukunden"
         Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
         Me.cbxNeukunden.TabIndex = 30
@@ -226,6 +231,18 @@ Partial Class usrCntlBenachrichtigungen
         Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
         Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        'cbxFotoVerwahrung
+        '
+        Me.cbxFotoVerwahrung.AutoSize = True
+        Me.cbxFotoVerwahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.cbxFotoVerwahrung.ForeColor = System.Drawing.Color.Black
+        Me.cbxFotoVerwahrung.Location = New System.Drawing.Point(164, 30)
+        Me.cbxFotoVerwahrung.Name = "cbxFotoVerwahrung"
+        Me.cbxFotoVerwahrung.Size = New System.Drawing.Size(104, 17)
+        Me.cbxFotoVerwahrung.TabIndex = 34
+        Me.cbxFotoVerwahrung.Text = "FotoVerwahrung"
+        Me.cbxFotoVerwahrung.UseVisualStyleBackColor = True
+        '
         'usrCntlBenachrichtigungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -257,4 +274,5 @@ Partial Class usrCntlBenachrichtigungen
     Friend WithEvents txtVermerk As TextBox
     Friend WithEvents cbxVerwarung As CheckBox
     Friend WithEvents cbxTaskForce As CheckBox
+    Friend WithEvents cbxFotoVerwahrung As CheckBox
 End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -33,6 +33,12 @@ Public Class usrCntlBenachrichtigungen
                 'End If
 
                 Dim whereMA = " AND  ( 1<>1 "
+                Dim whereVerwahrungsFotos = ""
+
+                If Not cbxFotoVerwahrung.Checked Then
+                    whereVerwahrungsFotos = " AND ab_BenachrichtigungCode <> 20 "
+                End If
+
 
                 'WARENORT
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
@@ -93,7 +99,7 @@ Public Class usrCntlBenachrichtigungen
 
                 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 sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status, Grenzstelle  FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & whereVerwahrungsFotos & "  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))
@@ -121,6 +127,7 @@ Public Class usrCntlBenachrichtigungen
                 .Columns("ab_ReminderVermerkID").Visible = False
                 .Columns("ab_VermerkID").Visible = False
                 .Columns("ab_ReminderVermerkCode").Visible = False
+                .Columns("Grenzstelle").Visible = False
 
                 .Columns("ab_TO_Art").Visible = False
                 .Columns("ab_TO_Code").Visible = False
@@ -194,6 +201,10 @@ Public Class usrCntlBenachrichtigungen
                         'r.DefaultCellStyle.SelectionForeColor = Color.Red
                     End If
 
+                    If Not IsDBNull(r.Cells("Grenzstelle").Value) AndAlso r.Cells("Grenzstelle").Value = "WAI" Then
+                        r.DefaultCellStyle.BackColor = Color.Orange
+                    End If
+
                     If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
                         r.Cells("ab_Art").Value = "VK"
                     End If
@@ -243,7 +254,6 @@ Public Class usrCntlBenachrichtigungen
         '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"))
@@ -280,6 +290,10 @@ Public Class usrCntlBenachrichtigungen
         End If
 
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
+            cbxTeams.Checked = True
+        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
@@ -422,4 +436,7 @@ Public Class usrCntlBenachrichtigungen
 
     End Sub
 
+    Private Sub cbxFotoVerwahrung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFotoVerwahrung.CheckedChanged
+        initDgvAvisoBenachrichtigungen(True, Me.Font)
+    End Sub
 End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungenNEW.Designer.vb

@@ -0,0 +1,392 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlBenachrichtigungenNEW
+    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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 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.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxCluster = New System.Windows.Forms.CheckBox()
+        Me.cbxTaskForce = New System.Windows.Forms.CheckBox()
+        Me.cbxTeams = New System.Windows.Forms.CheckBox()
+        Me.cbxVerwarung = New System.Windows.Forms.CheckBox()
+        Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtDatumAb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.Label25 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New System.Windows.Forms.TextBox()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.cbxFotoVerwahrung = 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.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(319, 278)
+        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
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
+        Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAvisoBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle2
+        Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridAvisoBenachrichtigungen.Location = New System.Drawing.Point(0, 76)
+        Me.gridAvisoBenachrichtigungen.Name = "gridAvisoBenachrichtigungen"
+        Me.gridAvisoBenachrichtigungen.ReadOnly = True
+        Me.gridAvisoBenachrichtigungen.RowHeadersVisible = False
+        Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(319, 160)
+        Me.gridAvisoBenachrichtigungen.TabIndex = 2
+        '
+        'Panel4
+        '
+        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel4.Controls.Add(Me.MyComboBox2)
+        Me.Panel4.Controls.Add(Me.cbxFotoVerwahrung)
+        Me.Panel4.Controls.Add(Me.cbxCluster)
+        Me.Panel4.Controls.Add(Me.cbxTaskForce)
+        Me.Panel4.Controls.Add(Me.cbxTeams)
+        Me.Panel4.Controls.Add(Me.cbxVerwarung)
+        Me.Panel4.Controls.Add(Me.cbxNeukunden)
+        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel4.Location = New System.Drawing.Point(0, 236)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(319, 42)
+        Me.Panel4.TabIndex = 5
+        '
+        '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(247, 0)
+        Me.MyComboBox2.Name = "MyComboBox2"
+        Me.MyComboBox2.Size = New System.Drawing.Size(71, 21)
+        Me.MyComboBox2.TabIndex = 27
+        Me.MyComboBox2.Visible = False
+        '
+        'cbxCluster
+        '
+        Me.cbxCluster.AutoSize = True
+        Me.cbxCluster.ForeColor = System.Drawing.Color.Black
+        Me.cbxCluster.Location = New System.Drawing.Point(85, 2)
+        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
+        '
+        'cbxTaskForce
+        '
+        Me.cbxTaskForce.AutoSize = True
+        Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
+        Me.cbxTaskForce.Location = New System.Drawing.Point(169, 2)
+        Me.cbxTaskForce.Name = "cbxTaskForce"
+        Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
+        Me.cbxTaskForce.TabIndex = 33
+        Me.cbxTaskForce.Text = "TaskForce"
+        Me.cbxTaskForce.UseVisualStyleBackColor = True
+        Me.cbxTaskForce.Visible = False
+        '
+        'cbxTeams
+        '
+        Me.cbxTeams.AutoSize = True
+        Me.cbxTeams.ForeColor = System.Drawing.Color.Black
+        Me.cbxTeams.Location = New System.Drawing.Point(7, 2)
+        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
+        '
+        'cbxVerwarung
+        '
+        Me.cbxVerwarung.AutoSize = True
+        Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black
+        Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19)
+        Me.cbxVerwarung.Name = "cbxVerwarung"
+        Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17)
+        Me.cbxVerwarung.TabIndex = 32
+        Me.cbxVerwarung.Text = "Verwahrung"
+        Me.cbxVerwarung.UseVisualStyleBackColor = True
+        Me.cbxVerwarung.Visible = False
+        '
+        'cbxNeukunden
+        '
+        Me.cbxNeukunden.AutoSize = True
+        Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
+        Me.cbxNeukunden.Location = New System.Drawing.Point(7, 19)
+        Me.cbxNeukunden.Name = "cbxNeukunden"
+        Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
+        Me.cbxNeukunden.TabIndex = 30
+        Me.cbxNeukunden.Text = "Neukunden"
+        Me.cbxNeukunden.UseVisualStyleBackColor = True
+        Me.cbxNeukunden.Visible = False
+        '
+        '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.txtSearch)
+        Me.Panel3.Controls.Add(Me.Label2)
+        Me.Panel3.Controls.Add(Me.Label1)
+        Me.Panel3.Controls.Add(Me.txtDatumAb)
+        Me.Panel3.Controls.Add(Me.CheckBox1)
+        Me.Panel3.Controls.Add(Me.Label22)
+        Me.Panel3.Controls.Add(Me.Label25)
+        Me.Panel3.Controls.Add(Me.txtVermerk)
+        Me.Panel3.Controls.Add(Me.Button10)
+        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(319, 76)
+        Me.Panel3.TabIndex = 3
+        '
+        'txtSearch
+        '
+        Me.txtSearch._DateTimeOnly = False
+        Me.txtSearch._numbersOnly = False
+        Me.txtSearch._numbersOnlyKommastellen = ""
+        Me.txtSearch._numbersOnlyTrennzeichen = True
+        Me.txtSearch._Prozent = False
+        Me.txtSearch._ShortDateNew = False
+        Me.txtSearch._ShortDateOnly = False
+        Me.txtSearch._TimeOnly = False
+        Me.txtSearch._TimeOnly_Seconds = False
+        Me.txtSearch._value = ""
+        Me.txtSearch._Waehrung = False
+        Me.txtSearch._WaehrungZeichen = True
+        Me.txtSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtSearch.ForeColor = System.Drawing.Color.Black
+        Me.txtSearch.Location = New System.Drawing.Point(50, 50)
+        Me.txtSearch.MaxLineLength = -1
+        Me.txtSearch.MaxLines_Warning = ""
+        Me.txtSearch.MaxLines_Warning_Label = Nothing
+        Me.txtSearch.Name = "txtSearch"
+        Me.txtSearch.Size = New System.Drawing.Size(128, 20)
+        Me.txtSearch.TabIndex = 35
+        Me.txtSearch.Visible = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(5, 53)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(41, 13)
+        Me.Label2.TabIndex = 36
+        Me.Label2.Text = "Suche:"
+        Me.Label2.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(185, 53)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(22, 13)
+        Me.Label1.TabIndex = 34
+        Me.Label1.Text = "ab:"
+        Me.Label1.Visible = False
+        '
+        'txtDatumAb
+        '
+        Me.txtDatumAb._DateTimeOnly = False
+        Me.txtDatumAb._numbersOnly = False
+        Me.txtDatumAb._numbersOnlyKommastellen = ""
+        Me.txtDatumAb._numbersOnlyTrennzeichen = True
+        Me.txtDatumAb._Prozent = False
+        Me.txtDatumAb._ShortDateNew = True
+        Me.txtDatumAb._ShortDateOnly = False
+        Me.txtDatumAb._TimeOnly = False
+        Me.txtDatumAb._TimeOnly_Seconds = False
+        Me.txtDatumAb._value = ""
+        Me.txtDatumAb._Waehrung = False
+        Me.txtDatumAb._WaehrungZeichen = True
+        Me.txtDatumAb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtDatumAb.ForeColor = System.Drawing.Color.Black
+        Me.txtDatumAb.Location = New System.Drawing.Point(213, 50)
+        Me.txtDatumAb.MaxLength = 10
+        Me.txtDatumAb.MaxLineLength = -1
+        Me.txtDatumAb.MaxLines_Warning = ""
+        Me.txtDatumAb.MaxLines_Warning_Label = Nothing
+        Me.txtDatumAb.Name = "txtDatumAb"
+        Me.txtDatumAb.Size = New System.Drawing.Size(100, 20)
+        Me.txtDatumAb.TabIndex = 33
+        Me.txtDatumAb.Visible = False
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.ForeColor = System.Drawing.Color.White
+        Me.CheckBox1.Location = New System.Drawing.Point(3, 25)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(86, 17)
+        Me.CheckBox1.TabIndex = 32
+        Me.CheckBox1.Text = "Alte Einträge"
+        Me.CheckBox1.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(0, 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(604, 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
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtVermerk.Location = New System.Drawing.Point(3, 50)
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.ReadOnly = True
+        Me.txtVermerk.Size = New System.Drawing.Size(312, 20)
+        Me.txtVermerk.TabIndex = 31
+        '
+        '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.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(207, 7)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
+        Me.Button10.Size = New System.Drawing.Size(109, 37)
+        Me.Button10.TabIndex = 3
+        Me.Button10.TabStop = False
+        Me.Button10.Text = "Bestätigen"
+        Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 5000
+        '
+        'cbxFotoVerwahrung
+        '
+        Me.cbxFotoVerwahrung.AutoSize = True
+        Me.cbxFotoVerwahrung.ForeColor = System.Drawing.Color.Black
+        Me.cbxFotoVerwahrung.Location = New System.Drawing.Point(169, 19)
+        Me.cbxFotoVerwahrung.Name = "cbxFotoVerwahrung"
+        Me.cbxFotoVerwahrung.Size = New System.Drawing.Size(107, 17)
+        Me.cbxFotoVerwahrung.TabIndex = 34
+        Me.cbxFotoVerwahrung.Text = "Foto Verwahrung"
+        Me.cbxFotoVerwahrung.UseVisualStyleBackColor = True
+        Me.cbxFotoVerwahrung.Visible = False
+        '
+        'usrCntlBenachrichtigungenNEW
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Panel2)
+        Me.Name = "usrCntlBenachrichtigungenNEW"
+        Me.Size = New System.Drawing.Size(319, 278)
+        Me.Panel2.ResumeLayout(False)
+        CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel4.ResumeLayout(False)
+        Me.Panel4.PerformLayout()
+        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
+    Friend WithEvents cbxNeukunden As CheckBox
+    Friend WithEvents txtVermerk As TextBox
+    Friend WithEvents cbxVerwarung As CheckBox
+    Friend WithEvents cbxTaskForce As CheckBox
+    Friend WithEvents txtDatumAb As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents txtSearch As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents cbxFotoVerwahrung As CheckBox
+End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungenNEW.resx

@@ -0,0 +1,123 @@
+<?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="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Aviso/Benachrichtigung/usrCntlBenachrichtigungenNEW.vb

@@ -0,0 +1,540 @@
+Imports System.Web.UI.WebControls
+Imports DAKOSY_Worker.SumAErledigungsinformationVorpapier
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlBenachrichtigungenNEW
+    Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim ASF As New AvisoStatusFunctions
+    Dim See_Cbam As Boolean = False
+
+    Public Event SelectionChanged()
+
+
+    Public Sub initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
+        Try
+           
+            ' Wenn Grid nicht aktiv, nichts tun
+            If Not Grid_aktiv Then Exit Sub
+
+            ' Merke zuvor ausgewählte ab_id (wenn genau eine Zeile selektiert)
+            Dim prevSelectedAbId As Integer = -1
+            Try
+                If gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
+                    Dim v = gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_id").Value
+                    If v IsNot Nothing AndAlso v IsNot DBNull.Value AndAlso IsNumeric(v) Then
+                        prevSelectedAbId = CInt(v)
+                    End If
+                End If
+            Catch
+                prevSelectedAbId = -1
+            End Try
+
+            With gridAvisoBenachrichtigungen
+                .DefaultCellStyle.Font = gridFont
+                If .Columns IsNot Nothing AndAlso .Columns.Count > 0 Then .Columns.Clear()
+
+                Dim whereMA = " AND  ( 1<>1 "
+                Dim whereVerwahrungsFotos = ""
+
+                If Not cbxFotoVerwahrung.Checked Then
+                    whereVerwahrungsFotos = " AND ab_BenachrichtigungCode <> 20 "
+                End If
+
+                'WARENORT
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
+                    whereMA &= " OR (ab_TO_Art='W' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "') "
+
+                    'NEUKUNDEN
+                ElseIf cbxNeukunden.Checked Then
+                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                        Case "VERAG"
+                            whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='13') " 'TEAM_NEUKUNDEN --> VERAG
+                    End Select
+
+                    'SONST
+                Else
+
+                    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 cbxVerwarung.Checked Then
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                            Case "VERAG"
+                                whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='26') " 'TEAM_VERWARUNG --> VERAG
+                        End Select
+                    End If
+
+                    If cbxTaskForce.Checked Then
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                            Case "VERAG"
+                                whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='7') " 'TEAM_TASKFORCE --> VERAG
+                        End Select
+                    End If
+
+                    If See_Cbam Then
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                            Case "VERIMEX", "AMBAR"
+                            Case Else
+                                whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='33') " 'TEAM_CBAM --> VERAG
+                        End Select
+                    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
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then
+                            whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId & "') "
+                        End If
+                    End If
+
+                End If
+
+                whereMA &= " ) "
+
+                Dim whereStatus As String
+                Dim selectBestaetigung As String = ""
+                Dim joinBestaetigung As String = ""
+
+                If CheckBox1.Checked Then
+                    Dim datumAb As Date
+
+                    If Date.TryParse(txtDatumAb.Text, datumAb) Then
+                        whereStatus = " AND ab_status <> 0 AND ab_Bestaetigt_Datum >= '" & datumAb.ToString("yyyyMMdd") & "' "
+                    Else
+                        whereStatus = " AND ab_status <> 0 "
+                    End If
+
+                    If txtSearch.Text.Trim <> "" Then
+                        Dim s As String = Replace(txtSearch.Text.Trim, "'", "''")
+
+                        whereStatus &= " AND (" &
+                       "ab_Vermerk LIKE '%" & s & "%' " &
+                       "OR LKW_Nr LIKE '%" & s & "%'" &
+                       ") "
+                    End If
+
+                    selectBestaetigung = ",ab_Bestaetigt_Datum,MA.mit_username AS BestaetigtVon "
+                    joinBestaetigung = " LEFT JOIN ADMIN.dbo.tblMitarbeiter MA ON MA.mit_id = ab_Bestaetigt_MaId "
+                Else
+                    whereStatus = " AND ab_status = 0 "
+                End If
+
+                Dim sqlStr As String =
+                     "SELECT ab_id,ab_AvisoID,ab_SendungID,ab_Art,ab_Beschreibung,LKW_Nr" &
+                        selectBestaetigung &
+                        ",ab_TO_Art,ab_TO_Code,ab_Bestaetigt_MaId,ab_Datum,ab_Status,ab_BenachrichtigungCode,ab_Prioritaet,ab_MitarbeiterId,ab_Firma,ab_Cluster,ab_collAnhId,ab_Vermerk,ab_ReminderVermerkID,ab_ReminderVermerkCode,ab_VermerkID,Status " &
+                        "FROM tblAvisoBenachrichtigungen " &
+                        "INNER JOIN AVISO ON AvisoId=ab_AvisoID " &
+                        joinBestaetigung &
+                        "WHERE 1=1 " &
+                        whereStatus &
+                        whereMA &
+                        whereVerwahrungsFotos &
+                        " ORDER BY CASE WHEN ANKUNFT<'20010101' THEN '29990101' ELSE ANKUNFT END ASC,ab_Datum ASC"
+
+                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+                .DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list,,, 3)
+                If .DataSource Is Nothing Then Exit Sub
+
+                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
+                .Columns("ab_AvisoID").Visible = False
+                .Columns("ab_SendungID").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_VermerkID").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("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 = 140
+                .Columns("ab_Beschreibung").HeaderText = "Beschreibung"
+                .Columns("ab_Beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+                .Columns("ab_Bestaetigt_MaId").Visible = False
+                .Columns("ab_MitarbeiterId").Visible = False
+
+                If CheckBox1.Checked Then
+                    .Columns("ab_Bestaetigt_Datum").Visible = True
+                    .Columns("BestaetigtVon").Visible = True
+
+                    .Columns("ab_Bestaetigt_Datum").HeaderText = "Bestätigt"
+                    .Columns("ab_Bestaetigt_Datum").Width = 95
+                    .Columns("ab_Bestaetigt_Datum").DefaultCellStyle.Format = "dd.MM. HH:mm"
+
+                    .Columns("BestaetigtVon").HeaderText = "Bestätigt von"
+                    .Columns("BestaetigtVon").Width = 100
+                End If
+
+
+                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.Visible = False
+                .Columns.Insert(0, t)
+
+                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+
+                For Each r As DataGridViewRow In .Rows
+                    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)
+                    End If
+
+                    If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
+                        r.Cells("ab_Art").Value = "VK"
+                    End If
+                Next
+
+                .ClearSelection()
+
+                '  Grid_aktiv = False
+                ' Falls zuvor eine Zeile markiert war, wieder auswählen und in Sicht bringen
+                If prevSelectedAbId > -1 Then
+                    Try
+                        For Each rr As DataGridViewRow In .Rows
+                            Dim vid = rr.Cells("ab_id").Value
+                            If vid IsNot Nothing AndAlso vid IsNot DBNull.Value AndAlso IsNumeric(vid) Then
+                                If CInt(vid) = prevSelectedAbId Then
+                                    .ClearSelection()
+
+                                    Dim colIndex As Integer = .Columns("LKW_Nr").Index
+                                    If Not .Rows(rr.Index).Cells(colIndex).Visible Then
+                                        colIndex = .FirstDisplayedCell.ColumnIndex
+                                    End If
+
+                                    .CurrentCell = .Rows(rr.Index).Cells(colIndex)
+                                    .Rows(rr.Index).Selected = True
+
+                                    .FirstDisplayedScrollingRowIndex = Math.Max(0, rr.Index - 2)
+
+                                    Exit For
+                                End If
+                            End If
+                        Next
+                    Catch
+                        ' ignore
+                    End Try
+                End If
+
+            End With
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
+    Private Sub gridAvisoBenachrichtigungen_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting
+        If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
+            If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Beschreibung").Value.ToString.Contains("AAS:") Then
+                If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
+                    e.Graphics.DrawImage(My.Resources.reminder, e.CellBounds)
+                    'e.CellStyle.BackColor = Color.White
+                    gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Value = ""
+                    gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Style.BackColor = Color.Gray
+                End If
+
+
+                If Not e.Handled Then
+                    e.Handled = True
+                    e.PaintContent(e.CellBounds)
+                End If
+            End If
+        End If
+
+    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 
+        Timer1.Enabled = True
+
+        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
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeNeukunden", "AVISO") Then
+            cbxNeukunden.Visible = True
+            'cbxNeukunden.Checked = True
+        End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeCBAM", "AVISO") Then
+            See_Cbam = True
+
+        End If
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeVerwahrung", "AVISO") Then
+            cbxVerwarung.Visible = True
+            cbxVerwarung.Checked = True
+        End If
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeTaskForce", "AVISO") Then
+            cbxTaskForce.Visible = True
+            cbxTaskForce.Checked = True
+        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 CheckBox1.Checked Then
+            initDgvAvisoBenachrichtigungen(True, Me.Font)
+        Else
+
+            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)#
+                                frmHauptfensterNew.REFRESH_AVISO_MAIN(AB.ab_AvisoID)
+                                initDgvAvisoBenachrichtigungen(True, Me.Font)
+                            Case DialogResult.Cancel
+                            'NIX 
+                            Case DialogResult.Yes
+                                AB.BESTAETIGEN_BENACHRICHTIGUNG()
+                                initDgvAvisoBenachrichtigungen(True, Me.Font)
+                            Case Else
+                                'NIX soll eig nicht vorkommen
+                        End Select
+
+
+                    Case Else 'Weiterleitung Akt/Snd
+
+                        If AB.BESTAETIGEN_BENACHRICHTIGUNG Then
+                            Select Case AB.ab_BenachrichtigungCode
+                                Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.Vorauskasse_OK
+                                    AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'Vorauskasse OK' bestätigt.", 46)
+                                'Akt nicht übernehmen
+                                Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
+                                    AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'ZOLL:Dokumentenbeschau' bestätigt.", 46)
+                                    'Akt nicht übernehmen
+                                Case Else
+                                    'Weiterleitung --> Ü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
+
+                            End Select
+                            '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)
+                            frmHauptfensterNew.REFRESH_AVISO_MAIN(AB.ab_AvisoID)
+                            initDgvAvisoBenachrichtigungen(True, Me.Font)
+                        End If
+                End Select
+
+            End If
+        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 > 0) Or (CheckBox1.Checked = True))
+        txtVermerk.Text = ""
+        If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then
+            txtVermerk.Text = If(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_vermerk").Value, "")
+        End If
+    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
+
+    Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged, cbxVerwarung.CheckedChanged, cbxTaskForce.CheckedChanged
+        initDgvAvisoBenachrichtigungen(True, Me.Font)
+    End Sub
+
+    Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting
+        'If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
+        '    If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then
+
+        '        If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
+        '            'e.Graphics.Clear(Color.White)
+        '            e.Graphics.DrawImage(My.Resources.vorauszahlung_bg, e.CellBounds.X + 5, e.CellBounds.Y + 1, 18, e.CellBounds.Height - 2)
+        '            ' e.CellStyle.ForeColor = Color.White
+        '            gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = ""
+        '            '  e.PaintContent(e.CellBounds)
+        '        End If
+
+
+        '        If Not e.Handled Then
+        '            e.Handled = True
+        '            e.PaintContent(e.CellBounds)
+        '        End If
+        '    End If
+        'End If
+
+
+    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+        If CheckBox1.Checked Then
+            txtDatumAb.Visible = True
+            Label1.Visible = True
+            Label2.Visible = True
+            txtSearch.Visible = True
+            txtVermerk.Visible = False
+            txtDatumAb._value = Now.AddDays(0).ToShortDateString
+            Button10.Image = My.Resources.search
+            Button10.Text = "Suchen"
+
+        Else
+            txtDatumAb.Visible = False
+            Label1.Visible = False
+            Label2.Visible = False
+            txtSearch.Visible = False
+            txtSearch.Text = ""
+            txtVermerk.Visible = True
+            Button10.Image = My.Resources.ok
+            Button10.Text = "Bestätigen"
+        End If
+        initDgvAvisoBenachrichtigungen(True, Me.Font)
+    End Sub
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+
+        Try
+            If Not CheckBox1.Checked Then
+                initDgvAvisoBenachrichtigungen(True, Me.Font)
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
+
+
+    Private Sub txtSearch_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown
+        If CheckBox1.Checked Then
+            If e.KeyCode = Keys.Enter Then
+                initDgvAvisoBenachrichtigungen(True, Me.Font)
+            End If
+        End If
+    End Sub
+
+    Private Sub txtDatumAb_ValueChanged() Handles txtDatumAb.ValueChanged
+        If CheckBox1.Checked Then
+            initDgvAvisoBenachrichtigungen(True, Me.Font)
+        End If
+    End Sub
+
+    Private Sub cbxFotoVerwahrung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFotoVerwahrung.CheckedChanged
+        initDgvAvisoBenachrichtigungen(True, Me.Font)
+    End Sub
+End Class

Aviso/Benutzerdefinierte Elemente/SendTAB.Designer.vb

@@ -25,6 +25,7 @@ Partial Class sendTAB
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(sendTAB))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.lblColliWeight = New System.Windows.Forms.Label()
         Me.pic = New System.Windows.Forms.PictureBox()
         Me.lblAuftr = New System.Windows.Forms.Label()
         Me.lblAbfBez = New System.Windows.Forms.Label()
@@ -39,6 +40,7 @@ Partial Class sendTAB
         'pnl
         '
         Me.pnl.BackColor = System.Drawing.Color.LightGray
+        Me.pnl.Controls.Add(Me.lblColliWeight)
         Me.pnl.Controls.Add(Me.pic)
         Me.pnl.Controls.Add(Me.lblAuftr)
         Me.pnl.Controls.Add(Me.lblAbfBez)
@@ -47,14 +49,31 @@ Partial Class sendTAB
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Margin = New System.Windows.Forms.Padding(0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(90, 50)
+        Me.pnl.Size = New System.Drawing.Size(100, 60)
         Me.pnl.TabIndex = 0
         '
+        'lblColliWeight
+        '
+        Me.lblColliWeight.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblColliWeight.BackColor = System.Drawing.Color.DarkGray
+        Me.lblColliWeight.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.lblColliWeight.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.5!)
+        Me.lblColliWeight.Location = New System.Drawing.Point(1, 47)
+        Me.lblColliWeight.Margin = New System.Windows.Forms.Padding(0)
+        Me.lblColliWeight.Name = "lblColliWeight"
+        Me.lblColliWeight.Size = New System.Drawing.Size(100, 13)
+        Me.lblColliWeight.TabIndex = 4
+        Me.lblColliWeight.Text = "-"
+        Me.lblColliWeight.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblColliWeight.UseCompatibleTextRendering = True
+        '
         'pic
         '
+        Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
         Me.pic.Image = CType(resources.GetObject("pic.Image"), System.Drawing.Image)
-        Me.pic.Location = New System.Drawing.Point(78, 2)
+        Me.pic.Location = New System.Drawing.Point(88, 2)
         Me.pic.Name = "pic"
         Me.pic.Size = New System.Drawing.Size(10, 10)
         Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -63,10 +82,13 @@ Partial Class sendTAB
         '
         'lblAuftr
         '
+        Me.lblAuftr.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblAuftr.Cursor = System.Windows.Forms.Cursors.Hand
         Me.lblAuftr.Location = New System.Drawing.Point(3, 19)
         Me.lblAuftr.Name = "lblAuftr"
-        Me.lblAuftr.Size = New System.Drawing.Size(86, 31)
+        Me.lblAuftr.Size = New System.Drawing.Size(96, 27)
         Me.lblAuftr.TabIndex = 2
         Me.lblAuftr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
@@ -94,7 +116,7 @@ Partial Class sendTAB
         '
         Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SendungDuplizierenToolStripMenuItem})
         Me.cntxt.Name = "cntxt"
-        Me.cntxt.Size = New System.Drawing.Size(184, 48)
+        Me.cntxt.Size = New System.Drawing.Size(184, 26)
         '
         'SendungDuplizierenToolStripMenuItem
         '
@@ -110,7 +132,7 @@ Partial Class sendTAB
         Me.Controls.Add(Me.pnl)
         Me.Margin = New System.Windows.Forms.Padding(2, 2, 0, 0)
         Me.Name = "sendTAB"
-        Me.Size = New System.Drawing.Size(90, 50)
+        Me.Size = New System.Drawing.Size(100, 60)
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
@@ -125,5 +147,5 @@ Partial Class sendTAB
     Friend WithEvents pic As System.Windows.Forms.PictureBox
     Friend WithEvents cntxt As System.Windows.Forms.ContextMenuStrip
     Friend WithEvents SendungDuplizierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-
+    Public WithEvents lblColliWeight As Label
 End Class

Aviso/Benutzerdefinierte Elemente/SendTAB.resx

@@ -165,16 +165,15 @@
         XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
         fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
         tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAAdtJREFUSEu91b8vX1Ec
-        xnG/F8IiUWksTSr+Af+AoQYGtYrFJoLBn/BFLDaJRBNiYrAZDZams6QpdpWIVjo1EcL1PnKOfM65z/3e
-        izC8kt7PeT7nSVSOhizL3pUcOrVarUnNX0sOHQq70KPOXkMOKRrAJn5VLSXX6Pe21HmQG7DwGYfIvEql
-        ZJqw4Xe2VcaJPgi2Yx03frFSKWe9WMYfhB1ZGn0QOjULKVnK7CN2fCaVK40+CIQfSZFcKd+L+O/PlX2b
-        f/pHQGAlWUg9lsL9guziDirn3OOvvT8qCwhVKV1LZsoVxu3dUZFFsKzUXabmwRlm0WnvjUpShMtKi5xg
-        WN2ZG6RYfEnpDBrVfbmBwvKeuayeA4yg8B2WwxQXLPgLy8yrfUsOAy7oxzf88xeW+Y26z6AcOiy2wZWp
-        i+uRL1Ighyx0Ywn2bXyOwtLcgGAf3AuiLrKOxMySpdGHQ2gV136pnilUeZE+2PujMidZUH5iEh0+X1Z6
-        bu+PyhwCE8mCdYkxsVNU6v6u/rDZaDEg9NUsBReYQ/Q2mh1VeoxBm4uWLIK21P1ffFE5i0wovYV7dYbQ
-        YjPRQopwKJ1W5wpZV/odn9R5bpBicQyt6qwI+VE0q7Pc4K3J4dvJGh4AKs9H2nJin04AAAAASUVORK5C
-        YII=
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEQAACxEBf2RfkQAAAa1JREFUSEu91U2rTlEY
+        xvHj4EyIieIkE0W+gC9gwIABpicTMwkDH+GHTMyUosiIgZmhgYmMlbzMUfKSkRLxaNfatbvXvZ+1T+dl
+        8J9ca133v/Z+9v0szGazhc2kCnqwGLP1oAp6sBt7Y75WqqADR3Afb6ZKsaX0HsSzIVWAQ3iOWWGStHsF
+        uFs6D+N5TyztwB38HgibUizjBr4OOqk0Ft8HUVOK/XiU3E+lsdw/kjEqKa7hZ3K35+mosAy4mZQqafmB
+        PMbf5E7PP3ybK1yF9HaSR77jbFM4UdoNi9mQD7iEXZOEE6VjvMOJOK8pXIP0YrcI4qxJwiJ9kgzNeIaT
+        8/ZwFWTgajI840rsRqogiA7jHn4kwzM+xu80UgUD2VKRxaEtquXQFGIProfduBpGpVWAA2WDxCGRV0nW
+        lGbCW/iVDIicn/DJdNJ9LWEsRV7jHHaW+y3pp5ZwJSn1fMHppDMm7f5XX84VlgFnkvJnXI67sSF9i6NN
+        YSLt3sXxeCcykP4pW+cYtg3vVKUwoJdeiGdjFOkLHIxnHVUQ6d4Ztsd8HjiFrTHvqIKNpgo2mv8qz0fa
+        BPXDKgAAAABJRU5ErkJggg==
 </value>
   </data>
   <metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

Aviso/Benutzerdefinierte Elemente/SendTAB.vb

@@ -7,12 +7,12 @@
 
     Dim list As List(Of MyListItem)
 
-    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lblAuftr.Click, lblAbfBez.Click, pnl.Click, Me.Click, lblNr.Click
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lblAuftr.Click, lblAbfBez.Click, pnl.Click, Me.Click, lblNr.Click, lblColliWeight.Click
 
         RaiseEvent MECLICK(Me)
     End Sub
 
-    Private Sub Label2_Click(sender As Object, e As MouseEventArgs) Handles lblAuftr.MouseClick, lblAbfBez.MouseClick, pnl.MouseClick, Me.MouseClick, lblNr.MouseClick, pnl.Click, MyBase.Click, lblNr.Click, lblAuftr.Click, lblAbfBez.Click
+    Private Sub Label2_Click(sender As Object, e As MouseEventArgs) Handles lblAuftr.MouseClick, lblAbfBez.MouseClick, pnl.MouseClick, Me.MouseClick, lblNr.MouseClick, pnl.Click, MyBase.Click, lblNr.Click, lblAuftr.Click, lblAbfBez.Click, lblColliWeight.Click
         If e.Button = MouseButtons.Right Then
             Me.ContextMenuStrip = cntxt
             cntxt.Show(MousePosition)

Aviso/Classes/cSendungsoptions.vb

@@ -156,12 +156,19 @@ Public Class SendungOptions
         End If
         'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
 
+
+
         Dim abfertArt = ""
         If SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then abfertArt = "" & SENDUNG.tblSnd_Abfertigungsart_ID & " - " & ADMIN.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE  [Abfertigungsart]=" & SENDUNG.tblSnd_Abfertigungsart_ID, "FMZOLL")
 
         Dim VALUES As New Gemeinsames.rptSendungenValues
         If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
         If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
+        If AVISO IsNot Nothing AndAlso AVISO.AvisoID >= 0 Then
+            VALUES.LKW_ID = AVISO.AvisoID
+        End If
+
+
 
         Dim imgQR As Image = Nothing
         If SENDUNG.tblSnd_Abfertigungsart_ID.ToString = "44" Then
@@ -425,6 +432,10 @@ Public Class SendungOptions
                 imgpath = resPath & "AMB.png"
             ElseIf SENDUNG.FilialenNr = "5801" Then
                 imgpath = resPath & "FO.png"
+            ElseIf SENDUNG.FilialenNr = "6101" Then
+                imgpath = resPath & "VENLO.png"
+            ElseIf SENDUNG.FilialenNr = "6001" Then
+                imgpath = resPath & "VERIMEX.png"
             Else
                 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
                     Case "SUB"

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_AVISO.resx

@@ -117,15 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnNeu.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
-        BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
-        zULyAAAAAElFTkSuQmCC
-</value>
-  </data>
   <metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_AVISO.vb

@@ -160,7 +160,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
         pnlSearch.Visible = False
         'initPnlSearch()
-        '  Grid_aktiv = True
+        Grid_aktiv = True
+        Aviso_anzeigen("")
     End Sub
 
 
@@ -901,6 +902,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
         lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")
 
         initEAviso()
+        avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID,  , False)
+
 
         'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
     End Sub
@@ -1246,6 +1249,23 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
     End Sub
 
+    Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridAviso.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
+                Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
+                'Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
+                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+                'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
+                frmHauptfensterNew.REFRESH_AVISO_MAIN(,, Me.GetType().Name)
+            End If
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
 
     Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick
         ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
@@ -1420,7 +1440,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
 
 
-    Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
+    Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True, Optional refreshPnlRight As Boolean = True)
 
         PARENT_FRMHAUPTFENSTER.pic.Visible = False
         Try
@@ -1434,54 +1454,47 @@ Public Class usrCntlHauptfenster_Suche_AVISO
             '  If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False)
 
 
-            If AVISO_TYP = "LKW" Then
-                gridAviso.ClearSelection()
-                For Each r As DataGridViewRow In gridAviso.Rows
+            gridAviso.ClearSelection()
+            For Each r As DataGridViewRow In gridAviso.Rows
                     If CInt(r.Cells("AvisoId").Value) = tmpid Then
                         ' gridMyAviso.ClearSelection()
                         gridAviso.CurrentCell = r.Cells("Status")
                         r.Selected = True : Exit For
                     End If
                 Next
-            Else
-                gridAviso.ClearSelection()
-                If gridAviso.Rows.Count > 0 Then
-                    For Each r As DataGridViewRow In gridAviso.Rows
-                        If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
-                            gridAviso.CurrentCell = r.Cells("Status")
-                            r.Selected = True : Exit For
-                        End If
-                    Next
-                End If
-            End If
 
 
             VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
             Details_aktiv = True
 
-            If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
 
-                Dim usrcntlAvisoID = -1
-                Dim usrcntlAktiv As DateTime
-                If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
-                    If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
-                        usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
-                        usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
-                    Else
-                        usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
-                        usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
-                    End If
+            'If refreshPnlRight Then
 
-                    If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
-                        PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                    Else
-                        If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
-                            PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                        End If
-                    End If
-                End If
+            '    If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
+
+            '        Dim usrcntlAvisoID = -1
+            '        Dim usrcntlAktiv As DateTime
+            '        If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
+            '            If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
+            '                usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
+            '                usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
+            '            Else
+            '                usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
+            '                usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
+            '            End If
+
+            '            If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
+            '                PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            '            Else
+            '                If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
+            '                    PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            '                End If
+            '            End If
+            '        End If
+
+            '    End If
+            'End If
 
-            End If
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
         End Try
@@ -1489,6 +1502,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
 
 
+
     Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseClick
 
         If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
@@ -1519,7 +1533,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
                 '    End If
                 'Else
                 setAkive_AuswahlID()
-                avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+                '    avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+                frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
                 Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
                 If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
                     'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
@@ -1538,8 +1553,9 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
             End If
         ElseIf e.Button = MouseButtons.Left Then
-            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
-            avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+            frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
+            'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+            'avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
         End If
     End Sub
 

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.Designer.vb

@@ -0,0 +1,936 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlHauptfenster_Suche_SND
+    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 DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.pnlHeader = New System.Windows.Forms.Panel()
+        Me.lblTitel = New System.Windows.Forms.Label()
+        Me.lblEintraege = New System.Windows.Forms.Label()
+        Me.lblDauer = New System.Windows.Forms.Label()
+        Me.lblZeit_aktuell = New System.Windows.Forms.Label()
+        Me.grpReferenzen = New System.Windows.Forms.Panel()
+        Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label()
+        Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lblErwFilialePos = New System.Windows.Forms.Label()
+        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox()
+        Me.lblErwKdAtrNr = New System.Windows.Forms.Label()
+        Me.txtKdAuftragsnr = New System.Windows.Forms.TextBox()
+        Me.lblErwLKWID = New System.Windows.Forms.Label()
+        Me.txtlkwId = New System.Windows.Forms.TextBox()
+        Me.grpBeteiligte = New System.Windows.Forms.Panel()
+        Me.lblErwAuftraggeber = New System.Windows.Forms.Label()
+        Me.txtAuftraggeber = New System.Windows.Forms.TextBox()
+        Me.lblAbsender = New System.Windows.Forms.Label()
+        Me.txtAbsender = New System.Windows.Forms.TextBox()
+        Me.lblErwEmpfänger = New System.Windows.Forms.Label()
+        Me.txtEmpfänger = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtAvisierer = New System.Windows.Forms.TextBox()
+        Me.grpZustaendigkeit = New System.Windows.Forms.Panel()
+        Me.btnColor = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblMySND_Anzeige = New System.Windows.Forms.Label()
+        Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboMy_QS = New System.Windows.Forms.CheckBox()
+        Me.cbxLoseSnd = New System.Windows.Forms.CheckBox()
+        Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.cbx_My_CBAM = New System.Windows.Forms.CheckBox()
+        Me.lblVB = New System.Windows.Forms.Label()
+        Me.cboMy_VB = New System.Windows.Forms.CheckBox()
+        Me.lblQS = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.pnlAktionen = New System.Windows.Forms.Panel()
+        Me.lblAnsicht = New System.Windows.Forms.Label()
+        Me.optSndAlle = New System.Windows.Forms.RadioButton()
+        Me.optSndOffen = New System.Windows.Forms.RadioButton()
+        Me.optSndFreigegeben = New System.Windows.Forms.RadioButton()
+        Me.optSndNichtEingetroffen = New System.Windows.Forms.RadioButton()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl()
+        Me.tbSndAlle = New System.Windows.Forms.TabPage()
+        Me.tbSndOffen = New System.Windows.Forms.TabPage()
+        Me.tbSndFreigegeben = New System.Windows.Forms.TabPage()
+        Me.tbNichtEingetroffen = New System.Windows.Forms.TabPage()
+        Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.TimerAkte = New System.Windows.Forms.Timer(Me.components)
+        Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ALLEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Panel1.SuspendLayout()
+        Me.pnlHeader.SuspendLayout()
+        Me.grpReferenzen.SuspendLayout()
+        Me.grpBeteiligte.SuspendLayout()
+        Me.grpZustaendigkeit.SuspendLayout()
+        Me.pnlAktionen.SuspendLayout()
+        Me.tbcntrAvisoSND.SuspendLayout()
+        CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ctxtFarben.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.pnlHeader)
+        Me.Panel1.Controls.Add(Me.grpReferenzen)
+        Me.Panel1.Controls.Add(Me.grpBeteiligte)
+        Me.Panel1.Controls.Add(Me.grpZustaendigkeit)
+        Me.Panel1.Controls.Add(Me.pnlAktionen)
+        Me.Panel1.Controls.Add(Me.tbcntrAvisoSND)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1243, 218)
+        Me.Panel1.TabIndex = 3
+        '
+        'pnlHeader
+        '
+        Me.pnlHeader.BackColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        Me.pnlHeader.Controls.Add(Me.lblTitel)
+        Me.pnlHeader.Controls.Add(Me.lblEintraege)
+        Me.pnlHeader.Controls.Add(Me.lblDauer)
+        Me.pnlHeader.Controls.Add(Me.lblZeit_aktuell)
+        Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
+        Me.pnlHeader.Name = "pnlHeader"
+        Me.pnlHeader.Size = New System.Drawing.Size(1243, 34)
+        Me.pnlHeader.TabIndex = 0
+        '
+        'lblTitel
+        '
+        Me.lblTitel.AutoSize = True
+        Me.lblTitel.Font = New System.Drawing.Font("Segoe UI", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.lblTitel.ForeColor = System.Drawing.Color.White
+        Me.lblTitel.Location = New System.Drawing.Point(12, 8)
+        Me.lblTitel.Name = "lblTitel"
+        Me.lblTitel.Size = New System.Drawing.Size(110, 19)
+        Me.lblTitel.TabIndex = 0
+        Me.lblTitel.Text = "Sendungssuche"
+        '
+        'lblEintraege
+        '
+        Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblEintraege.BackColor = System.Drawing.Color.Transparent
+        Me.lblEintraege.ForeColor = System.Drawing.Color.White
+        Me.lblEintraege.Location = New System.Drawing.Point(1077, 1)
+        Me.lblEintraege.Name = "lblEintraege"
+        Me.lblEintraege.Size = New System.Drawing.Size(140, 18)
+        Me.lblEintraege.TabIndex = 14
+        Me.lblEintraege.Text = "0 Einträge"
+        Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblDauer
+        '
+        Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblDauer.BackColor = System.Drawing.Color.Transparent
+        Me.lblDauer.ForeColor = System.Drawing.Color.White
+        Me.lblDauer.Location = New System.Drawing.Point(1122, 17)
+        Me.lblDauer.Name = "lblDauer"
+        Me.lblDauer.Size = New System.Drawing.Size(95, 18)
+        Me.lblDauer.TabIndex = 27
+        Me.lblDauer.Text = "1111123 ms"
+        Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'lblZeit_aktuell
+        '
+        Me.lblZeit_aktuell.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblZeit_aktuell.AutoSize = True
+        Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.White
+        Me.lblZeit_aktuell.Location = New System.Drawing.Point(1010, 17)
+        Me.lblZeit_aktuell.Name = "lblZeit_aktuell"
+        Me.lblZeit_aktuell.Size = New System.Drawing.Size(101, 15)
+        Me.lblZeit_aktuell.TabIndex = 40
+        Me.lblZeit_aktuell.Text = "Refresh: 11:22 Uhr"
+        Me.lblZeit_aktuell.Visible = False
+        '
+        'grpReferenzen
+        '
+        Me.grpReferenzen.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer))
+        Me.grpReferenzen.Controls.Add(Me.lblMySnd_Grenzstelle)
+        Me.grpReferenzen.Controls.Add(Me.cboMy_Grenzstelle)
+        Me.grpReferenzen.Controls.Add(Me.lblErwFilialePos)
+        Me.grpReferenzen.Controls.Add(Me.cboFiliale)
+        Me.grpReferenzen.Controls.Add(Me.txtAbfertigungsnummer)
+        Me.grpReferenzen.Controls.Add(Me.lblErwKdAtrNr)
+        Me.grpReferenzen.Controls.Add(Me.txtKdAuftragsnr)
+        Me.grpReferenzen.Controls.Add(Me.lblErwLKWID)
+        Me.grpReferenzen.Controls.Add(Me.txtlkwId)
+        Me.grpReferenzen.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.grpReferenzen.ForeColor = System.Drawing.Color.White
+        Me.grpReferenzen.Location = New System.Drawing.Point(8, 40)
+        Me.grpReferenzen.Name = "grpReferenzen"
+        Me.grpReferenzen.Size = New System.Drawing.Size(596, 92)
+        Me.grpReferenzen.TabIndex = 1
+        '
+        'lblMySnd_Grenzstelle
+        '
+        Me.lblMySnd_Grenzstelle.AutoSize = True
+        Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White
+        Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(14, 3)
+        Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle"
+        Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(67, 15)
+        Me.lblMySnd_Grenzstelle.TabIndex = 25
+        Me.lblMySnd_Grenzstelle.Text = "Grenzstelle:"
+        '
+        'cboMy_Grenzstelle
+        '
+        Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing
+        Me.cboMy_Grenzstelle._allowFreiText = False
+        Me.cboMy_Grenzstelle._value = ""
+        Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboMy_Grenzstelle.DropDownWidth = 120
+        Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboMy_Grenzstelle.FormattingEnabled = True
+        Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(14, 20)
+        Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
+        Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(120, 23)
+        Me.cboMy_Grenzstelle.TabIndex = 26
+        '
+        'lblErwFilialePos
+        '
+        Me.lblErwFilialePos.AutoSize = True
+        Me.lblErwFilialePos.ForeColor = System.Drawing.Color.White
+        Me.lblErwFilialePos.Location = New System.Drawing.Point(145, 3)
+        Me.lblErwFilialePos.Name = "lblErwFilialePos"
+        Me.lblErwFilialePos.Size = New System.Drawing.Size(70, 15)
+        Me.lblErwFilialePos.TabIndex = 2
+        Me.lblErwFilialePos.Text = "Filiale / Pos."
+        '
+        'cboFiliale
+        '
+        Me.cboFiliale._allowedValuesFreiText = Nothing
+        Me.cboFiliale._allowFreiText = False
+        Me.cboFiliale._value = ""
+        Me.cboFiliale.DropDownWidth = 300
+        Me.cboFiliale.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboFiliale.FormattingEnabled = True
+        Me.cboFiliale.Location = New System.Drawing.Point(148, 20)
+        Me.cboFiliale.MaxLength = 4
+        Me.cboFiliale.Name = "cboFiliale"
+        Me.cboFiliale.Size = New System.Drawing.Size(98, 23)
+        Me.cboFiliale.TabIndex = 3
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(249, 20)
+        Me.txtAbfertigungsnummer.MaxLength = 8
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(156, 23)
+        Me.txtAbfertigungsnummer.TabIndex = 5
+        '
+        'lblErwKdAtrNr
+        '
+        Me.lblErwKdAtrNr.AutoSize = True
+        Me.lblErwKdAtrNr.ForeColor = System.Drawing.Color.White
+        Me.lblErwKdAtrNr.Location = New System.Drawing.Point(145, 46)
+        Me.lblErwKdAtrNr.Name = "lblErwKdAtrNr"
+        Me.lblErwKdAtrNr.Size = New System.Drawing.Size(75, 15)
+        Me.lblErwKdAtrNr.TabIndex = 0
+        Me.lblErwKdAtrNr.Text = "Kd-Auftr.Nr.:"
+        '
+        'txtKdAuftragsnr
+        '
+        Me.txtKdAuftragsnr.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtKdAuftragsnr.Location = New System.Drawing.Point(148, 61)
+        Me.txtKdAuftragsnr.MaxLength = 100
+        Me.txtKdAuftragsnr.Name = "txtKdAuftragsnr"
+        Me.txtKdAuftragsnr.Size = New System.Drawing.Size(257, 23)
+        Me.txtKdAuftragsnr.TabIndex = 9
+        '
+        'lblErwLKWID
+        '
+        Me.lblErwLKWID.AutoSize = True
+        Me.lblErwLKWID.ForeColor = System.Drawing.Color.White
+        Me.lblErwLKWID.Location = New System.Drawing.Point(417, 5)
+        Me.lblErwLKWID.Name = "lblErwLKWID"
+        Me.lblErwLKWID.Size = New System.Drawing.Size(50, 15)
+        Me.lblErwLKWID.TabIndex = 19
+        Me.lblErwLKWID.Text = "LKW-ID:"
+        '
+        'txtlkwId
+        '
+        Me.txtlkwId.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtlkwId.Location = New System.Drawing.Point(420, 20)
+        Me.txtlkwId.MaxLength = 100
+        Me.txtlkwId.Name = "txtlkwId"
+        Me.txtlkwId.Size = New System.Drawing.Size(164, 23)
+        Me.txtlkwId.TabIndex = 10
+        '
+        'grpBeteiligte
+        '
+        Me.grpBeteiligte.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer))
+        Me.grpBeteiligte.Controls.Add(Me.lblErwAuftraggeber)
+        Me.grpBeteiligte.Controls.Add(Me.txtAuftraggeber)
+        Me.grpBeteiligte.Controls.Add(Me.lblAbsender)
+        Me.grpBeteiligte.Controls.Add(Me.txtAbsender)
+        Me.grpBeteiligte.Controls.Add(Me.lblErwEmpfänger)
+        Me.grpBeteiligte.Controls.Add(Me.txtEmpfänger)
+        Me.grpBeteiligte.Controls.Add(Me.Label2)
+        Me.grpBeteiligte.Controls.Add(Me.txtAvisierer)
+        Me.grpBeteiligte.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.grpBeteiligte.ForeColor = System.Drawing.Color.White
+        Me.grpBeteiligte.Location = New System.Drawing.Point(610, 40)
+        Me.grpBeteiligte.Name = "grpBeteiligte"
+        Me.grpBeteiligte.Size = New System.Drawing.Size(625, 92)
+        Me.grpBeteiligte.TabIndex = 2
+        '
+        'lblErwAuftraggeber
+        '
+        Me.lblErwAuftraggeber.AutoSize = True
+        Me.lblErwAuftraggeber.ForeColor = System.Drawing.Color.White
+        Me.lblErwAuftraggeber.Location = New System.Drawing.Point(14, 3)
+        Me.lblErwAuftraggeber.Name = "lblErwAuftraggeber"
+        Me.lblErwAuftraggeber.Size = New System.Drawing.Size(80, 15)
+        Me.lblErwAuftraggeber.TabIndex = 7
+        Me.lblErwAuftraggeber.Text = "Auftraggeber:"
+        '
+        'txtAuftraggeber
+        '
+        Me.txtAuftraggeber.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtAuftraggeber.Location = New System.Drawing.Point(14, 20)
+        Me.txtAuftraggeber.MaxLength = 100
+        Me.txtAuftraggeber.Name = "txtAuftraggeber"
+        Me.txtAuftraggeber.Size = New System.Drawing.Size(280, 23)
+        Me.txtAuftraggeber.TabIndex = 1
+        '
+        'lblAbsender
+        '
+        Me.lblAbsender.AutoSize = True
+        Me.lblAbsender.ForeColor = System.Drawing.Color.White
+        Me.lblAbsender.Location = New System.Drawing.Point(310, 3)
+        Me.lblAbsender.Name = "lblAbsender"
+        Me.lblAbsender.Size = New System.Drawing.Size(60, 15)
+        Me.lblAbsender.TabIndex = 23
+        Me.lblAbsender.Text = "Absender:"
+        '
+        'txtAbsender
+        '
+        Me.txtAbsender.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtAbsender.Location = New System.Drawing.Point(310, 20)
+        Me.txtAbsender.MaxLength = 100
+        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.Size = New System.Drawing.Size(286, 23)
+        Me.txtAbsender.TabIndex = 2
+        '
+        'lblErwEmpfänger
+        '
+        Me.lblErwEmpfänger.AutoSize = True
+        Me.lblErwEmpfänger.ForeColor = System.Drawing.Color.White
+        Me.lblErwEmpfänger.Location = New System.Drawing.Point(14, 46)
+        Me.lblErwEmpfänger.Name = "lblErwEmpfänger"
+        Me.lblErwEmpfänger.Size = New System.Drawing.Size(68, 15)
+        Me.lblErwEmpfänger.TabIndex = 6
+        Me.lblErwEmpfänger.Text = "Empfänger:"
+        '
+        'txtEmpfänger
+        '
+        Me.txtEmpfänger.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtEmpfänger.Location = New System.Drawing.Point(14, 61)
+        Me.txtEmpfänger.MaxLength = 100
+        Me.txtEmpfänger.Name = "txtEmpfänger"
+        Me.txtEmpfänger.Size = New System.Drawing.Size(280, 23)
+        Me.txtEmpfänger.TabIndex = 3
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(310, 46)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 15)
+        Me.Label2.TabIndex = 45
+        Me.Label2.Text = "Avisierer:"
+        '
+        'txtAvisierer
+        '
+        Me.txtAvisierer.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtAvisierer.Location = New System.Drawing.Point(310, 61)
+        Me.txtAvisierer.MaxLength = 100
+        Me.txtAvisierer.Name = "txtAvisierer"
+        Me.txtAvisierer.Size = New System.Drawing.Size(286, 23)
+        Me.txtAvisierer.TabIndex = 44
+        '
+        'grpZustaendigkeit
+        '
+        Me.grpZustaendigkeit.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer))
+        Me.grpZustaendigkeit.Controls.Add(Me.btnColor)
+        Me.grpZustaendigkeit.Controls.Add(Me.Label1)
+        Me.grpZustaendigkeit.Controls.Add(Me.lblMySND_Anzeige)
+        Me.grpZustaendigkeit.Controls.Add(Me.cboMyAvisoAnzeige)
+        Me.grpZustaendigkeit.Controls.Add(Me.cboMy_QS)
+        Me.grpZustaendigkeit.Controls.Add(Me.cbxLoseSnd)
+        Me.grpZustaendigkeit.Controls.Add(Me.cbx_My_Brexit)
+        Me.grpZustaendigkeit.Controls.Add(Me.Button2)
+        Me.grpZustaendigkeit.Controls.Add(Me.cbx_My_CBAM)
+        Me.grpZustaendigkeit.Controls.Add(Me.lblVB)
+        Me.grpZustaendigkeit.Controls.Add(Me.cboMy_VB)
+        Me.grpZustaendigkeit.Controls.Add(Me.lblQS)
+        Me.grpZustaendigkeit.Controls.Add(Me.Button1)
+        Me.grpZustaendigkeit.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.grpZustaendigkeit.ForeColor = System.Drawing.Color.White
+        Me.grpZustaendigkeit.Location = New System.Drawing.Point(8, 130)
+        Me.grpZustaendigkeit.Name = "grpZustaendigkeit"
+        Me.grpZustaendigkeit.Size = New System.Drawing.Size(1227, 46)
+        Me.grpZustaendigkeit.TabIndex = 3
+        '
+        'btnColor
+        '
+        Me.btnColor.BackColor = System.Drawing.Color.White
+        Me.btnColor.Location = New System.Drawing.Point(860, 11)
+        Me.btnColor.Name = "btnColor"
+        Me.btnColor.Size = New System.Drawing.Size(36, 26)
+        Me.btnColor.TabIndex = 37
+        Me.btnColor.UseVisualStyleBackColor = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(802, 17)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(52, 15)
+        Me.Label1.TabIndex = 43
+        Me.Label1.Text = "Priorität:"
+        '
+        'lblMySND_Anzeige
+        '
+        Me.lblMySND_Anzeige.AutoSize = True
+        Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White
+        Me.lblMySND_Anzeige.Location = New System.Drawing.Point(12, 3)
+        Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige"
+        Me.lblMySND_Anzeige.Size = New System.Drawing.Size(52, 15)
+        Me.lblMySND_Anzeige.TabIndex = 20
+        Me.lblMySND_Anzeige.Text = "Anzeige:"
+        '
+        'cboMyAvisoAnzeige
+        '
+        Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
+        Me.cboMyAvisoAnzeige._allowFreiText = False
+        Me.cboMyAvisoAnzeige._value = ""
+        Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.cboMyAvisoAnzeige.FormattingEnabled = True
+        Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(12, 18)
+        Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
+        Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(225, 21)
+        Me.cboMyAvisoAnzeige.TabIndex = 21
+        '
+        'cboMy_QS
+        '
+        Me.cboMy_QS.AutoSize = True
+        Me.cboMy_QS.Checked = True
+        Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cboMy_QS.FlatAppearance.CheckedBackColor = System.Drawing.Color.Yellow
+        Me.cboMy_QS.ForeColor = System.Drawing.Color.White
+        Me.cboMy_QS.Location = New System.Drawing.Point(1170, 25)
+        Me.cboMy_QS.Name = "cboMy_QS"
+        Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
+        Me.cboMy_QS.TabIndex = 33
+        Me.cboMy_QS.ThreeState = True
+        Me.cboMy_QS.UseVisualStyleBackColor = True
+        '
+        'cbxLoseSnd
+        '
+        Me.cbxLoseSnd.AutoSize = True
+        Me.cbxLoseSnd.ForeColor = System.Drawing.Color.White
+        Me.cbxLoseSnd.Location = New System.Drawing.Point(249, 19)
+        Me.cbxLoseSnd.Name = "cbxLoseSnd"
+        Me.cbxLoseSnd.Size = New System.Drawing.Size(181, 19)
+        Me.cbxLoseSnd.TabIndex = 46
+        Me.cbxLoseSnd.Text = "nur lose Sendungen anzeigen"
+        Me.cbxLoseSnd.UseVisualStyleBackColor = True
+        Me.cbxLoseSnd.Visible = False
+        '
+        'cbx_My_Brexit
+        '
+        Me.cbx_My_Brexit.AutoSize = True
+        Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
+        Me.cbx_My_Brexit.Location = New System.Drawing.Point(453, 19)
+        Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
+        Me.cbx_My_Brexit.Size = New System.Drawing.Size(55, 19)
+        Me.cbx_My_Brexit.TabIndex = 47
+        Me.cbx_My_Brexit.Text = "Brexit"
+        Me.cbx_My_Brexit.UseVisualStyleBackColor = True
+        Me.cbx_My_Brexit.Visible = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(185, Byte), Integer), CType(CType(76, Byte), Integer), CType(CType(30, Byte), Integer))
+        Me.Button2.FlatAppearance.BorderSize = 0
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.Button2.ForeColor = System.Drawing.Color.White
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.Location = New System.Drawing.Point(912, 8)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(109, 30)
+        Me.Button2.TabIndex = 42
+        Me.Button2.Text = "Abklärung"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'cbx_My_CBAM
+        '
+        Me.cbx_My_CBAM.AutoSize = True
+        Me.cbx_My_CBAM.ForeColor = System.Drawing.Color.White
+        Me.cbx_My_CBAM.Location = New System.Drawing.Point(530, 19)
+        Me.cbx_My_CBAM.Name = "cbx_My_CBAM"
+        Me.cbx_My_CBAM.Size = New System.Drawing.Size(60, 19)
+        Me.cbx_My_CBAM.TabIndex = 48
+        Me.cbx_My_CBAM.Text = "CBAM"
+        Me.cbx_My_CBAM.UseVisualStyleBackColor = True
+        Me.cbx_My_CBAM.Visible = False
+        '
+        'lblVB
+        '
+        Me.lblVB.AutoSize = True
+        Me.lblVB.Font = New System.Drawing.Font("Segoe UI", 8.0!, System.Drawing.FontStyle.Bold)
+        Me.lblVB.ForeColor = System.Drawing.Color.White
+        Me.lblVB.Location = New System.Drawing.Point(1196, 4)
+        Me.lblVB.Name = "lblVB"
+        Me.lblVB.Size = New System.Drawing.Size(21, 13)
+        Me.lblVB.TabIndex = 35
+        Me.lblVB.Text = "VB"
+        '
+        'cboMy_VB
+        '
+        Me.cboMy_VB.AutoSize = True
+        Me.cboMy_VB.Checked = True
+        Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cboMy_VB.FlatAppearance.CheckedBackColor = System.Drawing.Color.Yellow
+        Me.cboMy_VB.ForeColor = System.Drawing.Color.White
+        Me.cboMy_VB.Location = New System.Drawing.Point(1198, 25)
+        Me.cboMy_VB.Name = "cboMy_VB"
+        Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
+        Me.cboMy_VB.TabIndex = 32
+        Me.cboMy_VB.ThreeState = True
+        Me.cboMy_VB.UseVisualStyleBackColor = True
+        '
+        'lblQS
+        '
+        Me.lblQS.AutoSize = True
+        Me.lblQS.Font = New System.Drawing.Font("Segoe UI", 8.0!, System.Drawing.FontStyle.Bold)
+        Me.lblQS.ForeColor = System.Drawing.Color.White
+        Me.lblQS.Location = New System.Drawing.Point(1168, 4)
+        Me.lblQS.Name = "lblQS"
+        Me.lblQS.Size = New System.Drawing.Size(21, 13)
+        Me.lblQS.TabIndex = 34
+        Me.lblQS.Text = "QS"
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(114, Byte), Integer), CType(CType(38, Byte), Integer), CType(CType(126, Byte), Integer))
+        Me.Button1.FlatAppearance.BorderSize = 0
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button1.Location = New System.Drawing.Point(1027, 9)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(109, 30)
+        Me.Button1.TabIndex = 41
+        Me.Button1.Text = "Vorschreiben"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'pnlAktionen
+        '
+        Me.pnlAktionen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pnlAktionen.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer))
+        Me.pnlAktionen.Controls.Add(Me.lblAnsicht)
+        Me.pnlAktionen.Controls.Add(Me.optSndAlle)
+        Me.pnlAktionen.Controls.Add(Me.optSndOffen)
+        Me.pnlAktionen.Controls.Add(Me.optSndFreigegeben)
+        Me.pnlAktionen.Controls.Add(Me.optSndNichtEingetroffen)
+        Me.pnlAktionen.Controls.Add(Me.Button4)
+        Me.pnlAktionen.Controls.Add(Me.btnNeu)
+        Me.pnlAktionen.Location = New System.Drawing.Point(8, 182)
+        Me.pnlAktionen.Name = "pnlAktionen"
+        Me.pnlAktionen.Size = New System.Drawing.Size(1227, 31)
+        Me.pnlAktionen.TabIndex = 5
+        '
+        'lblAnsicht
+        '
+        Me.lblAnsicht.AutoSize = True
+        Me.lblAnsicht.Font = New System.Drawing.Font("Segoe UI", 8.0!, System.Drawing.FontStyle.Bold)
+        Me.lblAnsicht.ForeColor = System.Drawing.Color.White
+        Me.lblAnsicht.Location = New System.Drawing.Point(4, 9)
+        Me.lblAnsicht.Name = "lblAnsicht"
+        Me.lblAnsicht.Size = New System.Drawing.Size(45, 13)
+        Me.lblAnsicht.TabIndex = 0
+        Me.lblAnsicht.Text = "STATUS"
+        '
+        'optSndAlle
+        '
+        Me.optSndAlle.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optSndAlle.BackColor = System.Drawing.Color.FromArgb(CType(CType(39, Byte), Integer), CType(CType(89, Byte), Integer), CType(CType(158, Byte), Integer))
+        Me.optSndAlle.Checked = True
+        Me.optSndAlle.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer))
+        Me.optSndAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optSndAlle.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.optSndAlle.ForeColor = System.Drawing.Color.White
+        Me.optSndAlle.Location = New System.Drawing.Point(60, 2)
+        Me.optSndAlle.Name = "optSndAlle"
+        Me.optSndAlle.Size = New System.Drawing.Size(125, 27)
+        Me.optSndAlle.TabIndex = 1
+        Me.optSndAlle.TabStop = True
+        Me.optSndAlle.Text = "Alle Sendungen"
+        Me.optSndAlle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optSndAlle.UseVisualStyleBackColor = False
+        '
+        'optSndOffen
+        '
+        Me.optSndOffen.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optSndOffen.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer))
+        Me.optSndOffen.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer))
+        Me.optSndOffen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optSndOffen.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.optSndOffen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(104, Byte), Integer))
+        Me.optSndOffen.Location = New System.Drawing.Point(188, 2)
+        Me.optSndOffen.Name = "optSndOffen"
+        Me.optSndOffen.Size = New System.Drawing.Size(130, 27)
+        Me.optSndOffen.TabIndex = 2
+        Me.optSndOffen.Text = "In Bearbeitung"
+        Me.optSndOffen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optSndOffen.UseVisualStyleBackColor = False
+        '
+        'optSndFreigegeben
+        '
+        Me.optSndFreigegeben.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optSndFreigegeben.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer))
+        Me.optSndFreigegeben.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer))
+        Me.optSndFreigegeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optSndFreigegeben.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.optSndFreigegeben.ForeColor = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(104, Byte), Integer))
+        Me.optSndFreigegeben.Location = New System.Drawing.Point(321, 2)
+        Me.optSndFreigegeben.Name = "optSndFreigegeben"
+        Me.optSndFreigegeben.Size = New System.Drawing.Size(110, 27)
+        Me.optSndFreigegeben.TabIndex = 3
+        Me.optSndFreigegeben.Text = "Überlassen"
+        Me.optSndFreigegeben.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optSndFreigegeben.UseVisualStyleBackColor = False
+        '
+        'optSndNichtEingetroffen
+        '
+        Me.optSndNichtEingetroffen.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optSndNichtEingetroffen.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer))
+        Me.optSndNichtEingetroffen.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer))
+        Me.optSndNichtEingetroffen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optSndNichtEingetroffen.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.optSndNichtEingetroffen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(104, Byte), Integer))
+        Me.optSndNichtEingetroffen.Location = New System.Drawing.Point(434, 2)
+        Me.optSndNichtEingetroffen.Name = "optSndNichtEingetroffen"
+        Me.optSndNichtEingetroffen.Size = New System.Drawing.Size(150, 27)
+        Me.optSndNichtEingetroffen.TabIndex = 4
+        Me.optSndNichtEingetroffen.Text = "Nicht eingetroffen"
+        Me.optSndNichtEingetroffen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optSndNichtEingetroffen.UseVisualStyleBackColor = False
+        '
+        'Button4
+        '
+        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(155, Byte), Integer))
+        Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button4.FlatAppearance.BorderSize = 0
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.White
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.Location = New System.Drawing.Point(934, -1)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(123, 30)
+        Me.Button4.TabIndex = 17
+        Me.Button4.TabStop = False
+        Me.Button4.Text = "Suchen"
+        Me.Button4.UseVisualStyleBackColor = False
+        '
+        'btnNeu
+        '
+        Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnNeu.BackColor = System.Drawing.Color.White
+        Me.btnNeu.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.btnNeu.FlatAppearance.BorderSize = 0
+        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.btnNeu.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnNeu.Image = Global.AVISO.My.Resources.Resources.plus
+        Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnNeu.Location = New System.Drawing.Point(1063, -2)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(154, 30)
+        Me.btnNeu.TabIndex = 32
+        Me.btnNeu.Text = "Neue Sendung"
+        Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnNeu.UseVisualStyleBackColor = False
+        '
+        'tbcntrAvisoSND
+        '
+        Me.tbcntrAvisoSND.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.tbcntrAvisoSND.Controls.Add(Me.tbSndAlle)
+        Me.tbcntrAvisoSND.Controls.Add(Me.tbSndOffen)
+        Me.tbcntrAvisoSND.Controls.Add(Me.tbSndFreigegeben)
+        Me.tbcntrAvisoSND.Controls.Add(Me.tbNichtEingetroffen)
+        Me.tbcntrAvisoSND.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.tbcntrAvisoSND.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.tbcntrAvisoSND.ItemSize = New System.Drawing.Size(60, 30)
+        Me.tbcntrAvisoSND.Location = New System.Drawing.Point(2, -86)
+        Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND"
+        Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3)
+        Me.tbcntrAvisoSND.SelectedIndex = 0
+        Me.tbcntrAvisoSND.Size = New System.Drawing.Size(486, 31)
+        Me.tbcntrAvisoSND.TabIndex = 27
+        Me.tbcntrAvisoSND.Visible = False
+        '
+        'tbSndAlle
+        '
+        Me.tbSndAlle.BackColor = System.Drawing.SystemColors.ActiveBorder
+        Me.tbSndAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.tbSndAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.tbSndAlle.Location = New System.Drawing.Point(4, 34)
+        Me.tbSndAlle.Name = "tbSndAlle"
+        Me.tbSndAlle.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbSndAlle.Size = New System.Drawing.Size(478, 0)
+        Me.tbSndAlle.TabIndex = 0
+        Me.tbSndAlle.Text = "Alle Sendungen"
+        '
+        'tbSndOffen
+        '
+        Me.tbSndOffen.BackColor = System.Drawing.SystemColors.ActiveBorder
+        Me.tbSndOffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.tbSndOffen.Location = New System.Drawing.Point(4, 34)
+        Me.tbSndOffen.Name = "tbSndOffen"
+        Me.tbSndOffen.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbSndOffen.Size = New System.Drawing.Size(478, 0)
+        Me.tbSndOffen.TabIndex = 1
+        Me.tbSndOffen.Text = "In Bearbeitung"
+        '
+        'tbSndFreigegeben
+        '
+        Me.tbSndFreigegeben.Location = New System.Drawing.Point(4, 34)
+        Me.tbSndFreigegeben.Name = "tbSndFreigegeben"
+        Me.tbSndFreigegeben.Size = New System.Drawing.Size(478, 0)
+        Me.tbSndFreigegeben.TabIndex = 2
+        Me.tbSndFreigegeben.Text = "Überlassen"
+        Me.tbSndFreigegeben.UseVisualStyleBackColor = True
+        '
+        'tbNichtEingetroffen
+        '
+        Me.tbNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
+        Me.tbNichtEingetroffen.Name = "tbNichtEingetroffen"
+        Me.tbNichtEingetroffen.Size = New System.Drawing.Size(478, 0)
+        Me.tbNichtEingetroffen.TabIndex = 3
+        Me.tbNichtEingetroffen.Text = "Nicht Eingetroffen"
+        Me.tbNichtEingetroffen.UseVisualStyleBackColor = True
+        '
+        'gridAviso
+        '
+        Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
+        Me.gridAviso.AllowUserToAddRows = False
+        Me.gridAviso.AllowUserToDeleteRows = False
+        Me.gridAviso.AllowUserToResizeRows = False
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(253, Byte), Integer))
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        Me.gridAviso.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(249, Byte), Integer), CType(CType(252, Byte), Integer))
+        Me.gridAviso.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.gridAviso.CausesValidation = False
+        Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(243, Byte), Integer))
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
+        Me.gridAviso.ColumnHeadersHeight = 25
+        Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle18
+        Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridAviso.Location = New System.Drawing.Point(0, 218)
+        Me.gridAviso.MultiSelect = False
+        Me.gridAviso.Name = "gridAviso"
+        Me.gridAviso.ReadOnly = True
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
+        Me.gridAviso.RowHeadersVisible = False
+        Me.gridAviso.RowHeadersWidth = 62
+        Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.gridAviso.RowTemplate.ReadOnly = True
+        Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.gridAviso.Size = New System.Drawing.Size(1243, 414)
+        Me.gridAviso.TabIndex = 4
+        Me.gridAviso.TabStop = False
+        '
+        'TimerAkte
+        '
+        Me.TimerAkte.Interval = 5000
+        '
+        'ctxtFarben
+        '
+        Me.ctxtFarben.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ctxtFarben.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ALLEToolStripMenuItem, Me.ToolStripMenuItem19, Me.ToolStripMenuItem20, Me.ToolStripMenuItem21})
+        Me.ctxtFarben.Name = "cntxt"
+        Me.ctxtFarben.Size = New System.Drawing.Size(122, 92)
+        '
+        'ALLEToolStripMenuItem
+        '
+        Me.ALLEToolStripMenuItem.Name = "ALLEToolStripMenuItem"
+        Me.ALLEToolStripMenuItem.Size = New System.Drawing.Size(121, 22)
+        Me.ALLEToolStripMenuItem.Text = "ALLE"
+        '
+        'ToolStripMenuItem19
+        '
+        Me.ToolStripMenuItem19.BackColor = System.Drawing.Color.Red
+        Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
+        Me.ToolStripMenuItem19.Size = New System.Drawing.Size(121, 22)
+        Me.ToolStripMenuItem19.Text = "ROT"
+        '
+        'ToolStripMenuItem20
+        '
+        Me.ToolStripMenuItem20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
+        Me.ToolStripMenuItem20.Size = New System.Drawing.Size(121, 22)
+        Me.ToolStripMenuItem20.Text = "ORANGE"
+        '
+        'ToolStripMenuItem21
+        '
+        Me.ToolStripMenuItem21.BackColor = System.Drawing.Color.Yellow
+        Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
+        Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
+        Me.ToolStripMenuItem21.Text = "GELB"
+        '
+        'usrCntlHauptfenster_Suche_SND
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.gridAviso)
+        Me.Controls.Add(Me.Panel1)
+        Me.Name = "usrCntlHauptfenster_Suche_SND"
+        Me.Size = New System.Drawing.Size(1243, 632)
+        Me.Panel1.ResumeLayout(False)
+        Me.pnlHeader.ResumeLayout(False)
+        Me.pnlHeader.PerformLayout()
+        Me.grpReferenzen.ResumeLayout(False)
+        Me.grpReferenzen.PerformLayout()
+        Me.grpBeteiligte.ResumeLayout(False)
+        Me.grpBeteiligte.PerformLayout()
+        Me.grpZustaendigkeit.ResumeLayout(False)
+        Me.grpZustaendigkeit.PerformLayout()
+        Me.pnlAktionen.ResumeLayout(False)
+        Me.pnlAktionen.PerformLayout()
+        Me.tbcntrAvisoSND.ResumeLayout(False)
+        CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ctxtFarben.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents btnColor As Button
+    Friend WithEvents lblMySND_Anzeige As Label
+    Friend WithEvents cboMyAvisoAnzeige As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboMy_Grenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboMy_QS As CheckBox
+    Friend WithEvents cboMy_VB As CheckBox
+    Friend WithEvents lblMySnd_Grenzstelle As Label
+    Friend WithEvents tbcntrAvisoSND As TabControl
+    Friend WithEvents tbSndAlle As TabPage
+    Friend WithEvents tbSndOffen As TabPage
+    Friend WithEvents tbSndFreigegeben As TabPage
+    Friend WithEvents lblEintraege As Label
+    Friend WithEvents gridAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents TimerAkte As Timer
+    Friend WithEvents ctxtFarben As ContextMenuStrip
+    Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
+    Friend WithEvents lblDauer As Label
+    Friend WithEvents btnNeu As Button
+    Friend WithEvents lblZeit_aktuell As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents lblAbsender As Label
+    Friend WithEvents txtAbsender As TextBox
+    Friend WithEvents txtKdAuftragsnr As TextBox
+    Friend WithEvents lblErwKdAtrNr As Label
+    Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtEmpfänger As TextBox
+    Friend WithEvents txtAbfertigungsnummer As TextBox
+    Friend WithEvents lblErwFilialePos As Label
+    Friend WithEvents lblErwEmpfänger As Label
+    Friend WithEvents txtAuftraggeber As TextBox
+    Friend WithEvents lblErwAuftraggeber As Label
+    Friend WithEvents lblErwLKWID As Label
+    Friend WithEvents txtlkwId As TextBox
+    Friend WithEvents Button4 As Button
+    Friend WithEvents txtAvisierer As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents cbxLoseSnd As CheckBox
+    Friend WithEvents tbNichtEingetroffen As TabPage
+    Friend WithEvents cbx_My_CBAM As CheckBox
+    Friend WithEvents cbx_My_Brexit As CheckBox
+    Friend WithEvents pnlHeader As System.Windows.Forms.Panel
+    Friend WithEvents lblTitel As System.Windows.Forms.Label
+    Friend WithEvents grpReferenzen As System.Windows.Forms.Panel
+    Friend WithEvents grpBeteiligte As System.Windows.Forms.Panel
+    Friend WithEvents grpZustaendigkeit As System.Windows.Forms.Panel
+    Friend WithEvents pnlAktionen As System.Windows.Forms.Panel
+    Friend WithEvents lblAnsicht As System.Windows.Forms.Label
+    Friend WithEvents lblQS As System.Windows.Forms.Label
+    Friend WithEvents lblVB As System.Windows.Forms.Label
+    Friend WithEvents optSndAlle As System.Windows.Forms.RadioButton
+    Friend WithEvents optSndOffen As System.Windows.Forms.RadioButton
+    Friend WithEvents optSndFreigegeben As System.Windows.Forms.RadioButton
+    Friend WithEvents optSndNichtEingetroffen As System.Windows.Forms.RadioButton
+End Class

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.resx

@@ -117,15 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnNeu.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
-        BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
-        zULyAAAAAElFTkSuQmCC
-</value>
-  </data>
   <metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.vb

@@ -16,6 +16,7 @@ Public Class usrCntlHauptfenster_Suche_SND
     Private FUNC As New AvisoStatusFunctions
     Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
 
+
     Dim sd = 0
     Dim closeOK = False
     Dim Fullscreen = False
@@ -45,6 +46,12 @@ Public Class usrCntlHauptfenster_Suche_SND
         'pnlSearch.Height = 145
         PARENT_FRMHAUPTFENSTER = PARENT_FRMHAUPTFENSTER
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
+            btnColor.Visible = True 'Not cbx_My_LKW.Checked
+        Else
+            btnColor.Visible = False
+        End If
+
 
         '  txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
 
@@ -80,11 +87,20 @@ Public Class usrCntlHauptfenster_Suche_SND
 
 
         cboMyAvisoAnzeige.Items.Clear()
-        cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
+        cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & ")", "ALLE"))
         cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
         cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
         cboMyAvisoAnzeige.changeItem("Benutzer")
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
+            '   BREXITToolStripMenuItem.Visible = True
+            cbx_My_Brexit.Checked = True
+        End If
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CBAM", "AVISO") Then
+            cbx_My_CBAM.Checked = True
+        End If
+
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
             cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1"))
@@ -131,9 +147,9 @@ Public Class usrCntlHauptfenster_Suche_SND
         SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
 
 
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
-            cbx_My_Brexit.Checked = True
-        End If
+        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
+        '    cbx_My_Brexit.Checked = True
+        'End If
 
 
 
@@ -141,9 +157,44 @@ Public Class usrCntlHauptfenster_Suche_SND
 
         TimerAkte.Enabled = True
 
+        'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen
+        If sender Is cboMyAvisoAnzeige Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
+                Grid_aktiv = False
+                If cboMyAvisoAnzeige._value = "T1" Then
+                    cboMy_QS.CheckState = CheckState.Checked
+                    cboMy_VB.CheckState = CheckState.Unchecked
+                Else
+                    cboMy_QS.CheckState = CheckState.Indeterminate
+                    cboMy_VB.CheckState = CheckState.Indeterminate
+                End If
+                Grid_aktiv = True
+            End If
+        End If
+
         ' pnlSearch.Visible = False
         initPnlSearch()
         Grid_aktiv = True
+
+        Aviso_anzeigen("")
+
+    End Sub
+
+    Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridAviso.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
+                Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
+                Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
+                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
+                frmHauptfensterNew.REFRESH_AVISO_MAIN(,, Me.GetType().Name)
+            End If
+
+        Catch ex As Exception
+
+        End Try
     End Sub
 
 
@@ -270,28 +321,36 @@ Public Class usrCntlHauptfenster_Suche_SND
 
 
 
-                .Columns("tblSnd_Status").Visible = False
+                    .Columns("tblSnd_Status").Visible = False
 
-                .Columns("tblSnd_Abfertigungsart_ID").Visible = False
-                .Columns("tblSnd_Zollsystem_Land").Visible = False
-                .Columns("tblSnd_Vorgeschrieben").Visible = False
-                .Columns("tblSnd_Vorbereitet").Visible = False
-                .Columns("tblSnd_SendungID").Visible = False
-                .Columns("tblSnd_Fremdspedition").Visible = False
-                .Columns("tblSnd_FremdspeditionText").Visible = False
+                    .Columns("tblSnd_Abfertigungsart_ID").Visible = False
+                    .Columns("tblSnd_Zollsystem_Land").Visible = False
+                    .Columns("tblSnd_Vorgeschrieben").Visible = False
+                    .Columns("tblSnd_Vorbereitet").Visible = False
+                    .Columns("tblSnd_SendungID").Visible = False
+                    .Columns("tblSnd_Fremdspedition").Visible = False
+                    .Columns("tblSnd_FremdspeditionText").Visible = False
 
-                .Columns("tblSnd_Empfaenger").MinimumWidth = 80
-                .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
-                .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                    .Columns("tblSnd_Absender").MinimumWidth = 80
+                    .Columns("tblSnd_Absender").HeaderText = "Absender"
+                    .Columns("tblSnd_Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-                .Columns("VoraussichtlichesEintreffen").Width = 55
-                .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
-                .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."
+                    .Columns("tblSnd_Empfaenger").MinimumWidth = 80
+                    .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
+                    .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-                '    .Columns("Vermerke_Anzahl").Width = 60
-                '   .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
-                '   .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-                .Columns("AbfertigungsNr").Width = 110
+                    .Columns("tblSnd_Avisierer").MinimumWidth = 80
+                    .Columns("tblSnd_Avisierer").HeaderText = "Avisierer"
+                    .Columns("tblSnd_Avisierer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+                    .Columns("VoraussichtlichesEintreffen").Width = 55
+                    .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
+                    .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."
+
+                    '    .Columns("Vermerke_Anzahl").Width = 60
+                    '   .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
+                    '   .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+                    .Columns("AbfertigungsNr").Width = 110
                 .Columns("AbfertigungsNr").HeaderText = "Pos-Nr."
                 .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
                 .Columns("AbfertigungsNr").Visible = False
@@ -533,6 +592,9 @@ Public Class usrCntlHauptfenster_Suche_SND
         If AVISO_TYP = "SND" Then
 
 
+            Dim AMBAR_AnzeigenSQL As String = " (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) "
+
+
             '----------------------------------------------------------------------------------------------------------------------------------
             '--- Sendung ---
             '----------------------------------------------------------------------------------------------------------------------------------
@@ -548,22 +610,28 @@ Public Class usrCntlHauptfenster_Suche_SND
                 ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
                     If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG
                         inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & "  AND tblSendungen.[tblSnd_TeamId] is null)  OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId 
-                                                    OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr  IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) )  "
+                                                    OR Grenzstelle IN('SBG') OR (" & AMBAR_AnzeigenSQL & ") )  "
                     Else
                         inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & "  AND tblSendungen.[tblSnd_TeamId] is null)  OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
 
                     End If
                 End If
+            Else
+                inBearbeitungSQL = " 1=1 " 'ALLE ANZEIGEN
             End If
 
 
-
             Dim hSQLFirma = ""
+
+
+            hSQLFirma = " AND (Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )  "
+
+
             hSQL = " SELECT " & top & "  AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis  " &
-                                     " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText ,tblSnd_Zollsystem_Land " &
+                                     " ,tblSnd_Absender ,tblSnd_Empfaenger,tblSnd_Avisierer,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText ,tblSnd_Zollsystem_Land " &
                                      " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
                                      " WHERE   (  Status IN (0, 3, 4, 5)  OR ( Status = 1 AND [Abgeschlossen] = 0 ))  " &
-                                            hSQLFirma & " AND  ( " & inBearbeitungSQL & ") "
+                                            hSQLFirma & " AND  ( (" & inBearbeitungSQL & ") OR (" & AMBAR_AnzeigenSQL & ")) "
 
             Select Case cboMy_VB.CheckState
                 Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null	 "
@@ -579,13 +647,38 @@ Public Class usrCntlHauptfenster_Suche_SND
                 hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
 
             Else
-
                 If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
                 If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
-
             End If
 
             If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
+            If cbx_My_CBAM.Visible AndAlso Not cbx_My_CBAM.Checked Then hSQL &= " AND tblSnd_Abfertigungsart_ID NOT IN (65) "
+
+
+            If txtEmpfänger.Text <> "" Then hSQL &= "  AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' "
+            If txtAbsender.Text <> "" Then hSQL &= "  AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' "
+            If txtAuftraggeber.Text <> "" Then hSQL &= "  AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' "
+            If txtKdAuftragsnr.Text <> "" Then hSQL &= "  AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') "
+            If cboFiliale._value <> "" Then hSQL &= "  AND FilialenNr ='" & cboFiliale._value & "'"
+            If txtAbfertigungsnummer.Text <> "" Then hSQL &= "  AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' "
+            If txtlkwId.Text <> "" Then hSQL &= "  AND tblSnd_AvisoID LIKE '" & txtlkwId.Text & "' "
+
+            Select Case cbxLoseSnd.CheckState
+                Case CheckState.Unchecked : hSQL &= "  AND tblSnd_AvisoID > 0 "
+                Case CheckState.Checked : hSQL &= "  AND tblSnd_AvisoID <=0 "
+                Case CheckState.Indeterminate
+            End Select
+
+            Select Case tbcntrAvisoSND.SelectedTab.Name
+                Case "tbSndOffen" : hSQL &= "  AND tblSnd_Status  IN( '" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Erfasst & "','" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_InBearbeitung & "','" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Eingereicht & "','" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Ankunft & "') "
+                Case "tbSndFreigegeben" : hSQL &= "  AND tblSnd_Status  IN( '" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Ueberlassen & "') "
+                Case "tbSndNichtEingetroffen" : hSQL &= "  AND tblSnd_Status  IN( '" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_NichtEingetroffen & "') "
+                Case Else 'tbSndAlle
+            End Select
+
+
+
+            ' If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " And FilialenNr Not In ('7001','7002','7003') "
 
             'Farbe
             If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
@@ -621,7 +714,7 @@ Public Class usrCntlHauptfenster_Suche_SND
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
 
-        'MsgBox(hSQL)
+        ' MsgBox(hSQL)
         'If hSort = "" Then
         'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
         ' Else
@@ -684,27 +777,27 @@ Public Class usrCntlHauptfenster_Suche_SND
         '   btnÜbernehmen.Visible = True
         Grid_aktiv = True
         'Aviso_anzeigen("")
-        If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then
-            If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True
-        End If
+        'If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then
+        '    If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True
+        'End If
 
         gridAviso.SetOrder()
         Details_aktiv = True
 
-        If showDetails Then
-            If gridAviso.SelectedRows.Count > 0 Then
-                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
-            End If
-            PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-        End If
+        'If showDetails Then
+        '    If gridAviso.SelectedRows.Count > 0 Then
+        '        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
+        '    End If
+        '    PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        'End If
         ' If chkFarben Then GridZeichnenAviso()
 
         lblDauer.Text = "" & hDifferenz.ToString & " ms"
 
         lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")
 
-
-
+        avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID,  , False)
+        '  MsgBox(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
         'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
     End Sub
 
@@ -791,18 +884,18 @@ Public Class usrCntlHauptfenster_Suche_SND
 
         If gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub
 
-            Dim SendungsId = gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value
-            Dim AvisoID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
+        Dim SendungsId = gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value
+        Dim AvisoID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
 
-            Dim f = FUNC.openSnd(SendungsId, AvisoID)
-            If f IsNot Nothing Then
-                AddHandler f.FormClosed, Sub()
-                                             PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick()
-                                         End Sub
-            End If
+        Dim f = FUNC.openSnd(SendungsId, AvisoID)
+        If f IsNot Nothing Then
+            AddHandler f.FormClosed, Sub()
+                                         PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick()
+                                     End Sub
+        End If
 
 
-            If gridAviso.SelectedRows.Count = 0 Then Exit Sub
+        If gridAviso.SelectedRows.Count = 0 Then Exit Sub
 
 
     End Sub
@@ -813,70 +906,16 @@ Public Class usrCntlHauptfenster_Suche_SND
 
         ' lblAkte.Visible = False
     End Sub
-    Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If Grid_aktiv Then
-            ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
-            Aviso_anzeigen("")
-        End If
+
+
+
+    Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
+        Aviso_anzeigen("")
     End Sub
 
 
-
-    Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
-        If Grid_aktiv Then
-            'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen
-            If sender Is cboMyAvisoAnzeige Then
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
-                    Grid_aktiv = False
-                    If cboMyAvisoAnzeige._value = "T1" Then
-                        cboMy_QS.CheckState = CheckState.Checked
-                        cboMy_VB.CheckState = CheckState.Unchecked
-                    Else
-                        cboMy_QS.CheckState = CheckState.Indeterminate
-                        cboMy_VB.CheckState = CheckState.Indeterminate
-                    End If
-                    Grid_aktiv = True
-                End If
-            End If
-
-            'DGV anzeigen: 
-            Aviso_anzeigen("")
-        End If
-        'cboMy_QS.Visible = True 'Not cbx_My_LKW.Checked
-        'cboMy_VB.Visible = True 'Not cbx_My_LKW.Checked
-        'cboMyAvisoAnzeige.Visible = True 'Not cbx_My_LKW.Checked
-        'lblMySND_Anzeige.Visible = True 'Not cbx_My_LKW.Checked
-        'cbx_My_Brexit.Visible = True
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
-            btnColor.Visible = True 'Not cbx_My_LKW.Checked
-        Else
-            btnColor.Visible = False
-        End If
-        'If cbx_My_LKW.Checked Then
-        '    '  lblMeineAviso.Text = "Meine Aviso:"
-        '    cbx_My_Brexit.Visible = False
-        'Else
-        '    ' lblMeineAviso.Text = "Meine Sendungen:"
-        '    cbx_My_Brexit.Visible = True
-        'End If
-    End Sub
-
-
-    Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If Grid_aktiv Then
-            Aviso_anzeigen("")
-        End If
-    End Sub
-
-    Private Sub txtBestimmungszollstelle_VALUE_CHANGED()
-        If Grid_aktiv Then
-            Aviso_anzeigen("")
-        End If
-    End Sub
-
     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click
         ctxtFarben.Show(Cursor.Position)
-
     End Sub
 
     Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
@@ -919,7 +958,7 @@ Public Class usrCntlHauptfenster_Suche_SND
         Return addDays
     End Function
 
-    Private Sub btnNeu_Click(sender As Object, e As EventArgs)
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
         Try
 
             Me.Cursor = Cursors.WaitCursor
@@ -965,8 +1004,10 @@ Public Class usrCntlHauptfenster_Suche_SND
     Function setAkive_AuswahlID() As Integer
         If gridAviso.SelectedRows.Count > 0 Then
             VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value)
         Else
             VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
         End If
 
         'If gridMyAviso.SelectedRows.Count > 0 Then
@@ -981,7 +1022,7 @@ Public Class usrCntlHauptfenster_Suche_SND
         '    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
         'End If
 
-        Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
+        Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID
     End Function
 
     Public Sub GridZeichnenAviso()
@@ -1032,31 +1073,17 @@ Public Class usrCntlHauptfenster_Suche_SND
 
 
 
-    Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
+    Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True, Optional refreshPnlRight As Boolean = True)
 
         PARENT_FRMHAUPTFENSTER.pic.Visible = False
         Try
 
-
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpid
+            '  MsgBox(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
             If Not Grid_aktiv Then Exit Sub
             Details_aktiv = False
 
-
-
-            '  If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False)
-
-
-            If AVISO_TYP = "LKW" Then
-                gridAviso.ClearSelection()
-                For Each r As DataGridViewRow In gridAviso.Rows
-                    If CInt(r.Cells("AvisoId").Value) = tmpid Then
-                        ' gridMyAviso.ClearSelection()
-                        gridAviso.CurrentCell = r.Cells("Status")
-                        r.Selected = True : Exit For
-                    End If
-                Next
-            Else
-                gridAviso.ClearSelection()
+            gridAviso.ClearSelection()
                 If gridAviso.Rows.Count > 0 Then
                     For Each r As DataGridViewRow In gridAviso.Rows
                         If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
@@ -1065,35 +1092,36 @@ Public Class usrCntlHauptfenster_Suche_SND
                         End If
                     Next
                 End If
-            End If
 
 
-            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpid
             Details_aktiv = True
 
-            If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
+            'If refreshPnlRight Then
+            '    If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
 
-                Dim usrcntlAvisoID = -1
-                Dim usrcntlAktiv As DateTime
-                If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
-                    If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
-                        usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
-                        usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
-                    Else
-                        usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
-                        usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
-                    End If
+            '        Dim usrcntlAvisoID = -1
+            '        Dim usrcntlAktiv As DateTime
+            '        If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
+            '            If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
+            '                usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
+            '                usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
+            '            Else
+            '                usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
+            '                usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
+            '            End If
 
-                    If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
-                        PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                    Else
-                        If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
-                            PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                        End If
-                    End If
-                End If
+            '            If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
+            '                PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            '            Else
+            '                If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
+            '                    PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            '                End If
+            '            End If
+            '        End If
+            '    End If
 
-            End If
+            'End If
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
         End Try
@@ -1151,7 +1179,8 @@ Public Class usrCntlHauptfenster_Suche_SND
             End If
         ElseIf e.Button = MouseButtons.Left Then
             VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
-            avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+            frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
+
         End If
     End Sub
 
@@ -1171,13 +1200,14 @@ Public Class usrCntlHauptfenster_Suche_SND
                                 Case "StatusVorgeschrieben"
                                     Me.Cursor = Cursors.WaitCursor
                                     If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
-                                        avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
+                                        frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId, SendungsId, Me.GetType().Name)
                                     End If
                                     Me.Cursor = Cursors.Default
                                 Case "StatusVorbereitetQS"
                                     Me.Cursor = Cursors.WaitCursor
                                     If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
-                                        avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
+                                        frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId, SendungsId, Me.GetType().Name)
+
                                     End If
 
                                     Me.Cursor = Cursors.Default
@@ -1347,7 +1377,7 @@ Public Class usrCntlHauptfenster_Suche_SND
 
     End Sub
 
-    Private Sub btnDetailsuche_Click(sender As Object, e As EventArgs) Handles btnDetailsuche.Click
+    Private Sub btnDetailsuche_Click(sender As Object, e As EventArgs)
         'pnlSearch.Visible = Not pnlSearch.Visible
         initPnlSearch()
     End Sub
@@ -1360,15 +1390,71 @@ Public Class usrCntlHauptfenster_Suche_SND
         Grid_aktiv = False
         cboMy_QS.CheckState = CheckState.Unchecked
         cboMy_VB.CheckState = CheckState.Indeterminate
-        Aviso_anzeigen("")
         Grid_aktiv = True
+        Aviso_anzeigen("")
+
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Grid_aktiv = False
         cboMy_QS.CheckState = CheckState.Checked
         cboMy_VB.CheckState = CheckState.Unchecked
-        Aviso_anzeigen("")
         Grid_aktiv = True
+        Aviso_anzeigen("")
+    End Sub
+
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Grid_aktiv = True
+        Aviso_anzeigen("")
+    End Sub
+
+
+    Private Sub txtAbfertigungsnummer_TextChanged(sender As Object, e As EventArgs) Handles cbxLoseSnd.CheckStateChanged, txtAbfertigungsnummer.Leave, txtKdAuftragsnr.Leave, txtlkwId.Leave,
+            txtAuftraggeber.Leave, txtAbsender.Leave, txtEmpfänger.Leave, txtAvisierer.Leave, cboFiliale.SelectedIndexChanged,
+            cbx_My_Brexit.CheckedChanged, cbx_My_CBAM.CheckedChanged
+        Aviso_anzeigen("")
+    End Sub
+
+    Private Sub tbcntrAvisoSND_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAvisoSND.SelectedIndexChanged
+        Aviso_anzeigen("")
+    End Sub
+
+
+    Private Sub btnNeu_Click_1(sender As Object, e As EventArgs)
+
+    End Sub
+
+    ' Die neuen Ansichtsbuttons verwenden das bestehende TabControl nur als Statusspeicher.
+    ' Die SQL-Suchlogik mit tbcntrAvisoSND.SelectedTab bleibt unverändert.
+    Private Sub optSndAnsicht_CheckedChanged(sender As Object, e As EventArgs) Handles optSndAlle.CheckedChanged, optSndOffen.CheckedChanged, optSndFreigegeben.CheckedChanged, optSndNichtEingetroffen.CheckedChanged
+        Dim opt = TryCast(sender, RadioButton)
+        If opt Is Nothing OrElse Not opt.Checked OrElse tbcntrAvisoSND Is Nothing Then Return
+        Dim index As Integer = If(opt Is optSndOffen, 1, If(opt Is optSndFreigegeben, 2, If(opt Is optSndNichtEingetroffen, 3, 0)))
+        If tbcntrAvisoSND.SelectedIndex <> index Then tbcntrAvisoSND.SelectedIndex = index
+        optSndAnsicht_Farben()
+    End Sub
+
+    Private Sub tbcntrAvisoSND_AnsichtAktualisieren(sender As Object, e As EventArgs) Handles tbcntrAvisoSND.SelectedIndexChanged
+        If optSndAlle Is Nothing Then Return
+        Select Case tbcntrAvisoSND.SelectedIndex
+            Case 0 : optSndAlle.Checked = True
+            Case 1 : optSndOffen.Checked = True
+            Case 2 : optSndFreigegeben.Checked = True
+            Case 3 : optSndNichtEingetroffen.Checked = True
+        End Select
+        optSndAnsicht_Farben()
+    End Sub
+
+    Private Sub optSndAnsicht_Farben()
+        If optSndAlle Is Nothing Then Return
+        optSndAlle.BackColor = If(optSndAlle.Checked, Color.FromArgb(28, 77, 150), Color.FromArgb(236, 241, 249))
+        optSndOffen.BackColor = If(optSndOffen.Checked, Color.FromArgb(28, 77, 150), Color.FromArgb(236, 241, 249))
+        optSndFreigegeben.BackColor = If(optSndFreigegeben.Checked, Color.FromArgb(28, 77, 150), Color.FromArgb(236, 241, 249))
+        optSndNichtEingetroffen.BackColor = If(optSndNichtEingetroffen.Checked, Color.FromArgb(28, 77, 150), Color.FromArgb(236, 241, 249))
+        optSndAlle.ForeColor = If(optSndAlle.Checked, Color.White, Color.FromArgb(45, 64, 96))
+        optSndOffen.ForeColor = If(optSndOffen.Checked, Color.White, Color.FromArgb(45, 64, 96))
+        optSndFreigegeben.ForeColor = If(optSndFreigegeben.Checked, Color.White, Color.FromArgb(45, 64, 96))
+        optSndNichtEingetroffen.ForeColor = If(optSndNichtEingetroffen.Checked, Color.White, Color.FromArgb(45, 64, 96))
     End Sub
 End Class

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.Designer.vb

@@ -0,0 +1,694 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlHauptfenster_Suche_Zollvorgaenge
+    Inherits System.Windows.Forms.UserControl
+
+    Private components As System.ComponentModel.IContainer
+
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then components.Dispose()
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.pnlFilter = New System.Windows.Forms.Panel()
+        Me.pnlHeader = New System.Windows.Forms.Panel()
+        Me.lblTitel = New System.Windows.Forms.Label()
+        Me.lblUntertitel = New System.Windows.Forms.Label()
+        Me.grpSuche = New System.Windows.Forms.Panel()
+        Me.lbl_txtSuche = New System.Windows.Forms.Label()
+        Me.txtSuche = New System.Windows.Forms.TextBox()
+        Me.lbl_txtMRN = New System.Windows.Forms.Label()
+        Me.txtMRN = New System.Windows.Forms.TextBox()
+        Me.lbl_txtGeschaeftszeichen = New System.Windows.Forms.Label()
+        Me.txtGeschaeftszeichen = New System.Windows.Forms.TextBox()
+        Me.lbl_txtZollamt = New System.Windows.Forms.Label()
+        Me.txtZollamt = New System.Windows.Forms.TextBox()
+        Me.grpVerfahren = New System.Windows.Forms.Panel()
+        Me.lbl_cboTyp = New System.Windows.Forms.Label()
+        Me.cboTyp = New System.Windows.Forms.ComboBox()
+        Me.lbl_cboStatus = New System.Windows.Forms.Label()
+        Me.cboStatus = New System.Windows.Forms.ComboBox()
+        Me.lbl_cboLand = New System.Windows.Forms.Label()
+        Me.cboLand = New System.Windows.Forms.ComboBox()
+        Me.grpOrganisation = New System.Windows.Forms.Panel()
+        Me.lbl_txtKunde = New System.Windows.Forms.Label()
+        Me.txtKunde = New System.Windows.Forms.TextBox()
+        Me.lbl_cboTeam = New System.Windows.Forms.Label()
+        Me.cboTeam = New System.Windows.Forms.ComboBox()
+        Me.lbl_txtSendungID = New System.Windows.Forms.Label()
+        Me.txtSendungID = New System.Windows.Forms.TextBox()
+        Me.grpFristen = New System.Windows.Forms.Panel()
+        Me.lbl_dtFristVon = New System.Windows.Forms.Label()
+        Me.dtFristVon = New System.Windows.Forms.DateTimePicker()
+        Me.lbl_dtFristBis = New System.Windows.Forms.Label()
+        Me.dtFristBis = New System.Windows.Forms.DateTimePicker()
+        Me.pnlAktionen = New System.Windows.Forms.Panel()
+        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.btnSuchen = New System.Windows.Forms.Button()
+        Me.lblAnsicht = New System.Windows.Forms.Label()
+        Me.optOffen = New System.Windows.Forms.RadioButton()
+        Me.optAlle = New System.Windows.Forms.RadioButton()
+        Me.optFristen = New System.Windows.Forms.RadioButton()
+        Me.chkMeine = New System.Windows.Forms.CheckBox()
+        Me.optAbgeschlossen = New System.Windows.Forms.RadioButton()
+        Me.lblInfo = New System.Windows.Forms.Label()
+        Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.pnlFilter.SuspendLayout()
+        Me.pnlHeader.SuspendLayout()
+        Me.grpSuche.SuspendLayout()
+        Me.grpVerfahren.SuspendLayout()
+        Me.grpOrganisation.SuspendLayout()
+        Me.grpFristen.SuspendLayout()
+        Me.pnlAktionen.SuspendLayout()
+        CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnlFilter
+        '
+        Me.pnlFilter.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer))
+        Me.pnlFilter.Controls.Add(Me.pnlHeader)
+        Me.pnlFilter.Controls.Add(Me.grpSuche)
+        Me.pnlFilter.Controls.Add(Me.grpVerfahren)
+        Me.pnlFilter.Controls.Add(Me.grpOrganisation)
+        Me.pnlFilter.Controls.Add(Me.grpFristen)
+        Me.pnlFilter.Controls.Add(Me.pnlAktionen)
+        Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlFilter.Location = New System.Drawing.Point(0, 0)
+        Me.pnlFilter.Name = "pnlFilter"
+        Me.pnlFilter.Size = New System.Drawing.Size(1243, 272)
+        Me.pnlFilter.TabIndex = 2
+        '
+        'pnlHeader
+        '
+        Me.pnlHeader.BackColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        Me.pnlHeader.Controls.Add(Me.lblTitel)
+        Me.pnlHeader.Controls.Add(Me.lblUntertitel)
+        Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
+        Me.pnlHeader.Name = "pnlHeader"
+        Me.pnlHeader.Size = New System.Drawing.Size(1243, 34)
+        Me.pnlHeader.TabIndex = 0
+        '
+        'lblTitel
+        '
+        Me.lblTitel.AutoSize = True
+        Me.lblTitel.Font = New System.Drawing.Font("Segoe UI", 10.0!, System.Drawing.FontStyle.Bold)
+        Me.lblTitel.ForeColor = System.Drawing.Color.White
+        Me.lblTitel.Location = New System.Drawing.Point(12, 8)
+        Me.lblTitel.Name = "lblTitel"
+        Me.lblTitel.Size = New System.Drawing.Size(100, 19)
+        Me.lblTitel.TabIndex = 0
+        Me.lblTitel.Text = "Zollverfahren"
+        '
+        'lblUntertitel
+        '
+        Me.lblUntertitel.AutoSize = True
+        Me.lblUntertitel.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.lblUntertitel.ForeColor = System.Drawing.Color.FromArgb(CType(CType(205, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(241, Byte), Integer))
+        Me.lblUntertitel.Location = New System.Drawing.Point(220, 9)
+        Me.lblUntertitel.Name = "lblUntertitel"
+        Me.lblUntertitel.Size = New System.Drawing.Size(334, 15)
+        Me.lblUntertitel.TabIndex = 1
+        Me.lblUntertitel.Text = "Einsprüche · Berichtigungen · Änderungen · Nachforschungen"
+        '
+        'grpSuche
+        '
+        Me.grpSuche.BackColor = System.Drawing.Color.FromArgb(CType(CType(59, Byte), Integer), CType(CType(96, Byte), Integer), CType(CType(149, Byte), Integer))
+        Me.grpSuche.Controls.Add(Me.lbl_txtSuche)
+        Me.grpSuche.Controls.Add(Me.txtSuche)
+        Me.grpSuche.Controls.Add(Me.lbl_txtMRN)
+        Me.grpSuche.Controls.Add(Me.txtMRN)
+        Me.grpSuche.Controls.Add(Me.lbl_txtGeschaeftszeichen)
+        Me.grpSuche.Controls.Add(Me.txtGeschaeftszeichen)
+        Me.grpSuche.Controls.Add(Me.lbl_txtZollamt)
+        Me.grpSuche.Controls.Add(Me.txtZollamt)
+        Me.grpSuche.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.grpSuche.ForeColor = System.Drawing.Color.White
+        Me.grpSuche.Location = New System.Drawing.Point(8, 40)
+        Me.grpSuche.Name = "grpSuche"
+        Me.grpSuche.Size = New System.Drawing.Size(596, 92)
+        Me.grpSuche.TabIndex = 1
+        '
+        'lbl_txtSuche
+        '
+        Me.lbl_txtSuche.AutoSize = True
+        Me.lbl_txtSuche.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtSuche.ForeColor = System.Drawing.Color.White
+        Me.lbl_txtSuche.Location = New System.Drawing.Point(14, 3)
+        Me.lbl_txtSuche.Name = "lbl_txtSuche"
+        Me.lbl_txtSuche.Size = New System.Drawing.Size(83, 13)
+        Me.lbl_txtSuche.TabIndex = 0
+        Me.lbl_txtSuche.Text = "Suche / Betreff"
+        '
+        'txtSuche
+        '
+        Me.txtSuche.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtSuche.Location = New System.Drawing.Point(14, 20)
+        Me.txtSuche.MaxLength = 250
+        Me.txtSuche.Name = "txtSuche"
+        Me.txtSuche.Size = New System.Drawing.Size(275, 23)
+        Me.txtSuche.TabIndex = 0
+        '
+        'lbl_txtMRN
+        '
+        Me.lbl_txtMRN.AutoSize = True
+        Me.lbl_txtMRN.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtMRN.ForeColor = System.Drawing.Color.White
+        Me.lbl_txtMRN.Location = New System.Drawing.Point(305, 3)
+        Me.lbl_txtMRN.Name = "lbl_txtMRN"
+        Me.lbl_txtMRN.Size = New System.Drawing.Size(32, 13)
+        Me.lbl_txtMRN.TabIndex = 1
+        Me.lbl_txtMRN.Text = "MRN"
+        '
+        'txtMRN
+        '
+        Me.txtMRN.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtMRN.Location = New System.Drawing.Point(305, 20)
+        Me.txtMRN.MaxLength = 35
+        Me.txtMRN.Name = "txtMRN"
+        Me.txtMRN.Size = New System.Drawing.Size(273, 23)
+        Me.txtMRN.TabIndex = 1
+        '
+        'lbl_txtGeschaeftszeichen
+        '
+        Me.lbl_txtGeschaeftszeichen.AutoSize = True
+        Me.lbl_txtGeschaeftszeichen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtGeschaeftszeichen.ForeColor = System.Drawing.Color.White
+        Me.lbl_txtGeschaeftszeichen.Location = New System.Drawing.Point(14, 46)
+        Me.lbl_txtGeschaeftszeichen.Name = "lbl_txtGeschaeftszeichen"
+        Me.lbl_txtGeschaeftszeichen.Size = New System.Drawing.Size(96, 13)
+        Me.lbl_txtGeschaeftszeichen.TabIndex = 2
+        Me.lbl_txtGeschaeftszeichen.Text = "Geschäftszeichen"
+        '
+        'txtGeschaeftszeichen
+        '
+        Me.txtGeschaeftszeichen.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtGeschaeftszeichen.Location = New System.Drawing.Point(14, 61)
+        Me.txtGeschaeftszeichen.MaxLength = 100
+        Me.txtGeschaeftszeichen.Name = "txtGeschaeftszeichen"
+        Me.txtGeschaeftszeichen.Size = New System.Drawing.Size(275, 23)
+        Me.txtGeschaeftszeichen.TabIndex = 2
+        '
+        'lbl_txtZollamt
+        '
+        Me.lbl_txtZollamt.AutoSize = True
+        Me.lbl_txtZollamt.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtZollamt.ForeColor = System.Drawing.Color.White
+        Me.lbl_txtZollamt.Location = New System.Drawing.Point(305, 46)
+        Me.lbl_txtZollamt.Name = "lbl_txtZollamt"
+        Me.lbl_txtZollamt.Size = New System.Drawing.Size(45, 13)
+        Me.lbl_txtZollamt.TabIndex = 3
+        Me.lbl_txtZollamt.Text = "Zollamt"
+        '
+        'txtZollamt
+        '
+        Me.txtZollamt.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtZollamt.Location = New System.Drawing.Point(305, 61)
+        Me.txtZollamt.MaxLength = 150
+        Me.txtZollamt.Name = "txtZollamt"
+        Me.txtZollamt.Size = New System.Drawing.Size(273, 23)
+        Me.txtZollamt.TabIndex = 3
+        '
+        'grpVerfahren
+        '
+        Me.grpVerfahren.BackColor = System.Drawing.Color.FromArgb(CType(CType(59, Byte), Integer), CType(CType(96, Byte), Integer), CType(CType(149, Byte), Integer))
+        Me.grpVerfahren.Controls.Add(Me.lbl_cboTyp)
+        Me.grpVerfahren.Controls.Add(Me.cboTyp)
+        Me.grpVerfahren.Controls.Add(Me.lbl_cboStatus)
+        Me.grpVerfahren.Controls.Add(Me.cboStatus)
+        Me.grpVerfahren.Controls.Add(Me.lbl_cboLand)
+        Me.grpVerfahren.Controls.Add(Me.cboLand)
+        Me.grpVerfahren.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.grpVerfahren.ForeColor = System.Drawing.Color.White
+        Me.grpVerfahren.Location = New System.Drawing.Point(610, 40)
+        Me.grpVerfahren.Name = "grpVerfahren"
+        Me.grpVerfahren.Size = New System.Drawing.Size(625, 92)
+        Me.grpVerfahren.TabIndex = 2
+        '
+        'lbl_cboTyp
+        '
+        Me.lbl_cboTyp.AutoSize = True
+        Me.lbl_cboTyp.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_cboTyp.ForeColor = System.Drawing.Color.White
+        Me.lbl_cboTyp.Location = New System.Drawing.Point(14, 3)
+        Me.lbl_cboTyp.Name = "lbl_cboTyp"
+        Me.lbl_cboTyp.Size = New System.Drawing.Size(76, 13)
+        Me.lbl_cboTyp.TabIndex = 0
+        Me.lbl_cboTyp.Text = "Verfahrensart"
+        '
+        'cboTyp
+        '
+        Me.cboTyp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTyp.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboTyp.IntegralHeight = False
+        Me.cboTyp.Location = New System.Drawing.Point(14, 20)
+        Me.cboTyp.Name = "cboTyp"
+        Me.cboTyp.Size = New System.Drawing.Size(282, 23)
+        Me.cboTyp.TabIndex = 4
+        '
+        'lbl_cboStatus
+        '
+        Me.lbl_cboStatus.AutoSize = True
+        Me.lbl_cboStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_cboStatus.ForeColor = System.Drawing.Color.White
+        Me.lbl_cboStatus.Location = New System.Drawing.Point(310, 3)
+        Me.lbl_cboStatus.Name = "lbl_cboStatus"
+        Me.lbl_cboStatus.Size = New System.Drawing.Size(62, 13)
+        Me.lbl_cboStatus.TabIndex = 5
+        Me.lbl_cboStatus.Text = "Fachstatus"
+        '
+        'cboStatus
+        '
+        Me.cboStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboStatus.IntegralHeight = False
+        Me.cboStatus.Location = New System.Drawing.Point(310, 20)
+        Me.cboStatus.Name = "cboStatus"
+        Me.cboStatus.Size = New System.Drawing.Size(286, 23)
+        Me.cboStatus.TabIndex = 5
+        '
+        'lbl_cboLand
+        '
+        Me.lbl_cboLand.AutoSize = True
+        Me.lbl_cboLand.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_cboLand.ForeColor = System.Drawing.Color.White
+        Me.lbl_cboLand.Location = New System.Drawing.Point(14, 46)
+        Me.lbl_cboLand.Name = "lbl_cboLand"
+        Me.lbl_cboLand.Size = New System.Drawing.Size(85, 13)
+        Me.lbl_cboLand.TabIndex = 6
+        Me.lbl_cboLand.Text = "Verfahrensland"
+        '
+        'cboLand
+        '
+        Me.cboLand.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboLand.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboLand.IntegralHeight = False
+        Me.cboLand.Location = New System.Drawing.Point(14, 61)
+        Me.cboLand.Name = "cboLand"
+        Me.cboLand.Size = New System.Drawing.Size(282, 23)
+        Me.cboLand.TabIndex = 6
+        '
+        'grpOrganisation
+        '
+        Me.grpOrganisation.BackColor = System.Drawing.Color.FromArgb(CType(CType(59, Byte), Integer), CType(CType(96, Byte), Integer), CType(CType(149, Byte), Integer))
+        Me.grpOrganisation.Controls.Add(Me.lbl_txtKunde)
+        Me.grpOrganisation.Controls.Add(Me.txtKunde)
+        Me.grpOrganisation.Controls.Add(Me.lbl_cboTeam)
+        Me.grpOrganisation.Controls.Add(Me.cboTeam)
+        Me.grpOrganisation.Controls.Add(Me.lbl_txtSendungID)
+        Me.grpOrganisation.Controls.Add(Me.txtSendungID)
+        Me.grpOrganisation.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.grpOrganisation.ForeColor = System.Drawing.Color.White
+        Me.grpOrganisation.Location = New System.Drawing.Point(8, 138)
+        Me.grpOrganisation.Name = "grpOrganisation"
+        Me.grpOrganisation.Size = New System.Drawing.Size(596, 92)
+        Me.grpOrganisation.TabIndex = 3
+        '
+        'lbl_txtKunde
+        '
+        Me.lbl_txtKunde.AutoSize = True
+        Me.lbl_txtKunde.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtKunde.ForeColor = System.Drawing.Color.White
+        Me.lbl_txtKunde.Location = New System.Drawing.Point(14, 3)
+        Me.lbl_txtKunde.Name = "lbl_txtKunde"
+        Me.lbl_txtKunde.Size = New System.Drawing.Size(76, 13)
+        Me.lbl_txtKunde.TabIndex = 0
+        Me.lbl_txtKunde.Text = "Auftraggeber"
+        '
+        'txtKunde
+        '
+        Me.txtKunde.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtKunde.Location = New System.Drawing.Point(14, 20)
+        Me.txtKunde.MaxLength = 250
+        Me.txtKunde.Name = "txtKunde"
+        Me.txtKunde.Size = New System.Drawing.Size(370, 23)
+        Me.txtKunde.TabIndex = 7
+        '
+        'lbl_cboTeam
+        '
+        Me.lbl_cboTeam.AutoSize = True
+        Me.lbl_cboTeam.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_cboTeam.ForeColor = System.Drawing.Color.White
+        Me.lbl_cboTeam.Location = New System.Drawing.Point(398, 3)
+        Me.lbl_cboTeam.Name = "lbl_cboTeam"
+        Me.lbl_cboTeam.Size = New System.Drawing.Size(32, 13)
+        Me.lbl_cboTeam.TabIndex = 8
+        Me.lbl_cboTeam.Text = "Team"
+        '
+        'cboTeam
+        '
+        Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTeam.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboTeam.IntegralHeight = False
+        Me.cboTeam.Location = New System.Drawing.Point(398, 20)
+        Me.cboTeam.Name = "cboTeam"
+        Me.cboTeam.Size = New System.Drawing.Size(180, 23)
+        Me.cboTeam.TabIndex = 8
+        '
+        'lbl_txtSendungID
+        '
+        Me.lbl_txtSendungID.AutoSize = True
+        Me.lbl_txtSendungID.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtSendungID.ForeColor = System.Drawing.Color.White
+        Me.lbl_txtSendungID.Location = New System.Drawing.Point(14, 46)
+        Me.lbl_txtSendungID.Name = "lbl_txtSendungID"
+        Me.lbl_txtSendungID.Size = New System.Drawing.Size(69, 13)
+        Me.lbl_txtSendungID.TabIndex = 9
+        Me.lbl_txtSendungID.Text = "Sendung-ID"
+        '
+        'txtSendungID
+        '
+        Me.txtSendungID.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtSendungID.Location = New System.Drawing.Point(14, 61)
+        Me.txtSendungID.MaxLength = 15
+        Me.txtSendungID.Name = "txtSendungID"
+        Me.txtSendungID.Size = New System.Drawing.Size(185, 23)
+        Me.txtSendungID.TabIndex = 9
+        '
+        'grpFristen
+        '
+        Me.grpFristen.BackColor = System.Drawing.Color.FromArgb(CType(CType(59, Byte), Integer), CType(CType(96, Byte), Integer), CType(CType(149, Byte), Integer))
+        Me.grpFristen.Controls.Add(Me.lbl_dtFristVon)
+        Me.grpFristen.Controls.Add(Me.dtFristVon)
+        Me.grpFristen.Controls.Add(Me.lbl_dtFristBis)
+        Me.grpFristen.Controls.Add(Me.dtFristBis)
+        Me.grpFristen.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.grpFristen.ForeColor = System.Drawing.Color.White
+        Me.grpFristen.Location = New System.Drawing.Point(610, 138)
+        Me.grpFristen.Name = "grpFristen"
+        Me.grpFristen.Size = New System.Drawing.Size(625, 92)
+        Me.grpFristen.TabIndex = 4
+        '
+        'lbl_dtFristVon
+        '
+        Me.lbl_dtFristVon.AutoSize = True
+        Me.lbl_dtFristVon.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_dtFristVon.ForeColor = System.Drawing.Color.White
+        Me.lbl_dtFristVon.Location = New System.Drawing.Point(14, 3)
+        Me.lbl_dtFristVon.Name = "lbl_dtFristVon"
+        Me.lbl_dtFristVon.Size = New System.Drawing.Size(51, 13)
+        Me.lbl_dtFristVon.TabIndex = 0
+        Me.lbl_dtFristVon.Text = "Frist von"
+        '
+        'dtFristVon
+        '
+        Me.dtFristVon.Checked = False
+        Me.dtFristVon.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.dtFristVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtFristVon.Location = New System.Drawing.Point(14, 20)
+        Me.dtFristVon.Name = "dtFristVon"
+        Me.dtFristVon.ShowCheckBox = True
+        Me.dtFristVon.Size = New System.Drawing.Size(282, 23)
+        Me.dtFristVon.TabIndex = 10
+        '
+        'lbl_dtFristBis
+        '
+        Me.lbl_dtFristBis.AutoSize = True
+        Me.lbl_dtFristBis.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_dtFristBis.ForeColor = System.Drawing.Color.White
+        Me.lbl_dtFristBis.Location = New System.Drawing.Point(14, 44)
+        Me.lbl_dtFristBis.Name = "lbl_dtFristBis"
+        Me.lbl_dtFristBis.Size = New System.Drawing.Size(47, 13)
+        Me.lbl_dtFristBis.TabIndex = 11
+        Me.lbl_dtFristBis.Text = "Frist bis"
+        '
+        'dtFristBis
+        '
+        Me.dtFristBis.Checked = False
+        Me.dtFristBis.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.dtFristBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtFristBis.Location = New System.Drawing.Point(14, 61)
+        Me.dtFristBis.Name = "dtFristBis"
+        Me.dtFristBis.ShowCheckBox = True
+        Me.dtFristBis.Size = New System.Drawing.Size(286, 23)
+        Me.dtFristBis.TabIndex = 11
+        '
+        'pnlAktionen
+        '
+        Me.pnlAktionen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pnlAktionen.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer))
+        Me.pnlAktionen.Controls.Add(Me.btnNeu)
+        Me.pnlAktionen.Controls.Add(Me.btnSuchen)
+        Me.pnlAktionen.Controls.Add(Me.lblAnsicht)
+        Me.pnlAktionen.Controls.Add(Me.optOffen)
+        Me.pnlAktionen.Controls.Add(Me.optAlle)
+        Me.pnlAktionen.Controls.Add(Me.optFristen)
+        Me.pnlAktionen.Controls.Add(Me.chkMeine)
+        Me.pnlAktionen.Controls.Add(Me.optAbgeschlossen)
+        Me.pnlAktionen.Location = New System.Drawing.Point(8, 236)
+        Me.pnlAktionen.Name = "pnlAktionen"
+        Me.pnlAktionen.Size = New System.Drawing.Size(1227, 31)
+        Me.pnlAktionen.TabIndex = 5
+        '
+        'btnNeu
+        '
+        Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnNeu.BackColor = System.Drawing.Color.White
+        Me.btnNeu.FlatAppearance.BorderSize = 0
+        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.btnNeu.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnNeu.Location = New System.Drawing.Point(944, 0)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(154, 30)
+        Me.btnNeu.TabIndex = 8
+        Me.btnNeu.Text = "Neuer Antrag"
+        Me.btnNeu.UseVisualStyleBackColor = False
+        '
+        'btnSuchen
+        '
+        Me.btnSuchen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSuchen.BackColor = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(155, Byte), Integer))
+        Me.btnSuchen.FlatAppearance.BorderSize = 0
+        Me.btnSuchen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSuchen.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.btnSuchen.ForeColor = System.Drawing.Color.White
+        Me.btnSuchen.Location = New System.Drawing.Point(1104, 0)
+        Me.btnSuchen.Name = "btnSuchen"
+        Me.btnSuchen.Size = New System.Drawing.Size(123, 30)
+        Me.btnSuchen.TabIndex = 7
+        Me.btnSuchen.Text = "Suchen"
+        Me.btnSuchen.UseVisualStyleBackColor = False
+        '
+        'lblAnsicht
+        '
+        Me.lblAnsicht.AutoSize = True
+        Me.lblAnsicht.Font = New System.Drawing.Font("Segoe UI", 8.0!, System.Drawing.FontStyle.Bold)
+        Me.lblAnsicht.ForeColor = System.Drawing.Color.White
+        Me.lblAnsicht.Location = New System.Drawing.Point(4, 9)
+        Me.lblAnsicht.Name = "lblAnsicht"
+        Me.lblAnsicht.Size = New System.Drawing.Size(54, 13)
+        Me.lblAnsicht.TabIndex = 0
+        Me.lblAnsicht.Text = "ANSICHT"
+        '
+        'optOffen
+        '
+        Me.optOffen.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optOffen.BackColor = System.Drawing.Color.FromArgb(CType(CType(39, Byte), Integer), CType(CType(89, Byte), Integer), CType(CType(158, Byte), Integer))
+        Me.optOffen.Checked = True
+        Me.optOffen.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer))
+        Me.optOffen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optOffen.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.optOffen.ForeColor = System.Drawing.Color.White
+        Me.optOffen.Location = New System.Drawing.Point(60, 2)
+        Me.optOffen.Name = "optOffen"
+        Me.optOffen.Size = New System.Drawing.Size(90, 27)
+        Me.optOffen.TabIndex = 1
+        Me.optOffen.TabStop = True
+        Me.optOffen.Text = "Offen"
+        Me.optOffen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optOffen.UseVisualStyleBackColor = False
+        '
+        'optAlle
+        '
+        Me.optAlle.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optAlle.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer))
+        Me.optAlle.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer))
+        Me.optAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optAlle.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.optAlle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.optAlle.Location = New System.Drawing.Point(153, 2)
+        Me.optAlle.Name = "optAlle"
+        Me.optAlle.Size = New System.Drawing.Size(76, 27)
+        Me.optAlle.TabIndex = 2
+        Me.optAlle.Text = "Alle"
+        Me.optAlle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optAlle.UseVisualStyleBackColor = False
+        '
+        'optFristen
+        '
+        Me.optFristen.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optFristen.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer))
+        Me.optFristen.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer))
+        Me.optFristen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optFristen.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.optFristen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.optFristen.Location = New System.Drawing.Point(232, 2)
+        Me.optFristen.Name = "optFristen"
+        Me.optFristen.Size = New System.Drawing.Size(90, 27)
+        Me.optFristen.TabIndex = 3
+        Me.optFristen.Text = "Fristen"
+        Me.optFristen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optFristen.UseVisualStyleBackColor = False
+        '
+        'chkMeine
+        '
+        Me.chkMeine.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.chkMeine.AutoSize = True
+        Me.chkMeine.Checked = True
+        Me.chkMeine.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.chkMeine.ForeColor = System.Drawing.Color.White
+        Me.chkMeine.Location = New System.Drawing.Point(820, 7)
+        Me.chkMeine.Name = "chkMeine"
+        Me.chkMeine.Size = New System.Drawing.Size(93, 19)
+        Me.chkMeine.TabIndex = 6
+        Me.chkMeine.Text = "Meine Akten"
+        '
+        'optAbgeschlossen
+        '
+        Me.optAbgeschlossen.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optAbgeschlossen.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer))
+        Me.optAbgeschlossen.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer))
+        Me.optAbgeschlossen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optAbgeschlossen.Font = New System.Drawing.Font("Segoe UI", 8.0!)
+        Me.optAbgeschlossen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.optAbgeschlossen.Location = New System.Drawing.Point(325, 2)
+        Me.optAbgeschlossen.Name = "optAbgeschlossen"
+        Me.optAbgeschlossen.Size = New System.Drawing.Size(151, 27)
+        Me.optAbgeschlossen.TabIndex = 4
+        Me.optAbgeschlossen.Text = "Abgeschlossen"
+        Me.optAbgeschlossen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optAbgeschlossen.UseVisualStyleBackColor = False
+        '
+        'lblInfo
+        '
+        Me.lblInfo.BackColor = System.Drawing.Color.FromArgb(CType(CType(231, Byte), Integer), CType(CType(237, Byte), Integer), CType(CType(246, Byte), Integer))
+        Me.lblInfo.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.lblInfo.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lblInfo.Location = New System.Drawing.Point(0, 653)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.lblInfo.Size = New System.Drawing.Size(1243, 27)
+        Me.lblInfo.TabIndex = 1
+        Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'gridAviso
+        '
+        Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
+        Me.gridAviso.AllowUserToAddRows = False
+        Me.gridAviso.AllowUserToDeleteRows = False
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(253, Byte), Integer))
+        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.gridAviso.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(249, Byte), Integer), CType(CType(252, Byte), Integer))
+        Me.gridAviso.BorderStyle = System.Windows.Forms.BorderStyle.None
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(243, Byte), Integer))
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        DataGridViewCellStyle2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.gridAviso.ColumnHeadersHeight = 30
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(207, Byte), Integer), CType(CType(225, Byte), Integer), CType(CType(249, Byte), Integer))
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle3
+        Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridAviso.EnableHeadersVisualStyles = False
+        Me.gridAviso.Location = New System.Drawing.Point(0, 272)
+        Me.gridAviso.MultiSelect = False
+        Me.gridAviso.Name = "gridAviso"
+        Me.gridAviso.ReadOnly = True
+        Me.gridAviso.RowHeadersVisible = False
+        Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.gridAviso.Size = New System.Drawing.Size(1243, 381)
+        Me.gridAviso.TabIndex = 0
+        '
+        'usrCntlHauptfenster_Suche_Zollvorgaenge
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer))
+        Me.Controls.Add(Me.gridAviso)
+        Me.Controls.Add(Me.lblInfo)
+        Me.Controls.Add(Me.pnlFilter)
+        Me.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.Name = "usrCntlHauptfenster_Suche_Zollvorgaenge"
+        Me.Size = New System.Drawing.Size(1243, 680)
+        Me.pnlFilter.ResumeLayout(False)
+        Me.pnlHeader.ResumeLayout(False)
+        Me.pnlHeader.PerformLayout()
+        Me.grpSuche.ResumeLayout(False)
+        Me.grpSuche.PerformLayout()
+        Me.grpVerfahren.ResumeLayout(False)
+        Me.grpVerfahren.PerformLayout()
+        Me.grpOrganisation.ResumeLayout(False)
+        Me.grpOrganisation.PerformLayout()
+        Me.grpFristen.ResumeLayout(False)
+        Me.grpFristen.PerformLayout()
+        Me.pnlAktionen.ResumeLayout(False)
+        Me.pnlAktionen.PerformLayout()
+        CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnlFilter As System.Windows.Forms.Panel
+    Friend WithEvents pnlHeader As System.Windows.Forms.Panel
+    Friend WithEvents pnlAktionen As System.Windows.Forms.Panel
+    Friend WithEvents grpSuche As System.Windows.Forms.Panel
+    Friend WithEvents grpVerfahren As System.Windows.Forms.Panel
+    Friend WithEvents grpOrganisation As System.Windows.Forms.Panel
+    Friend WithEvents grpFristen As System.Windows.Forms.Panel
+    Friend WithEvents lblTitel As System.Windows.Forms.Label
+    Friend WithEvents lblUntertitel As System.Windows.Forms.Label
+    Friend WithEvents lblAnsicht As System.Windows.Forms.Label
+    Friend WithEvents lblInfo As System.Windows.Forms.Label
+    Friend WithEvents optOffen As System.Windows.Forms.RadioButton
+    Friend WithEvents optAlle As System.Windows.Forms.RadioButton
+    Friend WithEvents optFristen As System.Windows.Forms.RadioButton
+    Friend WithEvents optAbgeschlossen As System.Windows.Forms.RadioButton
+    Friend WithEvents chkMeine As System.Windows.Forms.CheckBox
+    Friend WithEvents btnSuchen As System.Windows.Forms.Button
+    Friend WithEvents btnNeu As System.Windows.Forms.Button
+    Friend WithEvents gridAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents txtSuche As System.Windows.Forms.TextBox
+    Friend WithEvents txtMRN As System.Windows.Forms.TextBox
+    Friend WithEvents txtGeschaeftszeichen As System.Windows.Forms.TextBox
+    Friend WithEvents txtZollamt As System.Windows.Forms.TextBox
+    Friend WithEvents txtKunde As System.Windows.Forms.TextBox
+    Friend WithEvents txtSendungID As System.Windows.Forms.TextBox
+    Friend WithEvents cboTyp As System.Windows.Forms.ComboBox
+    Friend WithEvents cboStatus As System.Windows.Forms.ComboBox
+    Friend WithEvents cboLand As System.Windows.Forms.ComboBox
+    Friend WithEvents cboTeam As System.Windows.Forms.ComboBox
+    Friend WithEvents dtFristVon As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtFristBis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents lbl_txtSuche As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtMRN As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtGeschaeftszeichen As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtZollamt As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtKunde As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtSendungID As System.Windows.Forms.Label
+    Friend WithEvents lbl_cboTyp As System.Windows.Forms.Label
+    Friend WithEvents lbl_cboStatus As System.Windows.Forms.Label
+    Friend WithEvents lbl_cboLand As System.Windows.Forms.Label
+    Friend WithEvents lbl_cboTeam As System.Windows.Forms.Label
+    Friend WithEvents lbl_dtFristVon As System.Windows.Forms.Label
+    Friend WithEvents lbl_dtFristBis As System.Windows.Forms.Label
+End Class

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.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/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.vb

@@ -0,0 +1,291 @@
+Imports System.Data
+Imports System.Windows.Forms
+Imports VERAG_PROG_ALLGEMEIN
+
+'Zollverfahren & Anträge – Suche auf Sendungsebene, unabhängig von AvisoID.
+Public Class usrCntlHauptfenster_Suche_Zollvorgaenge
+    Public Event CaseOpenRequested(sendungId As Integer, avisoId As Integer)
+    Public Event CaseNewRequested()
+    Public aktiv As Boolean = False
+    Public PARENT_FRMHAUPTFENSTER As frmHauptfensterNew
+    Private ReadOnly VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Private _loading As Boolean = False
+    Private _initialized As Boolean = False
+
+    Private Class ComboItem
+        Public Property Text As String
+        Public Property Value As String
+        Public Sub New(t As String, v As String)
+            Text = t : Value = v
+        End Sub
+        Public Overrides Function ToString() As String
+            Return Text
+        End Function
+    End Class
+
+    Private Sub AddItem(cbo As ComboBox, label As String, value As String)
+        cbo.Items.Add(New ComboItem(label, value))
+    End Sub
+    Private Function Selected(cbo As ComboBox) As String
+        Dim item = TryCast(cbo.SelectedItem, ComboItem)
+        Return If(item Is Nothing, "", item.Value)
+    End Function
+
+    Private Sub usrCntlHauptfenster_Suche_Zollvorgaenge_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If _initialized Then Exit Sub
+        _initialized = True
+        _loading = True
+        Try
+            cboTyp.Items.Clear()
+            AddItem(cboTyp, "Alle Verfahren", "")
+            AddItem(cboTyp, "Einspruch / Beschwerde", "1")
+            AddItem(cboTyp, "NCTS-Nachforschung", "2")
+            AddItem(cboTyp, "NCTS-Unstimmigkeit", "3")
+            AddItem(cboTyp, "Zollamtliche Anfrage", "4")
+            AddItem(cboTyp, "Berichtigung / Nachbesserung", "5")
+            AddItem(cboTyp, "Änderungsantrag", "6")
+            AddItem(cboTyp, "Erstattung / Erlass", "7")
+            AddItem(cboTyp, "Abgabenbescheid", "8")
+            AddItem(cboTyp, "Mahn-/Vollstreckungsverfahren", "9")
+            AddItem(cboTyp, "Sonstiges", "10")
+            cboTyp.SelectedIndex = 0
+
+            cboStatus.Items.Clear()
+            AddItem(cboStatus, "Alle Status", "")
+            AddItem(cboStatus, "Neu", "0")
+            AddItem(cboStatus, "In Bearbeitung", "1")
+            AddItem(cboStatus, "Unterlagen ausständig", "2")
+            AddItem(cboStatus, "Rückmeldung Zoll ausständig", "3")
+            AddItem(cboStatus, "Entscheidung eingegangen", "4")
+            AddItem(cboStatus, "Erledigt", "5")
+            AddItem(cboStatus, "Geschlossen", "6")
+            cboStatus.SelectedIndex = 0
+
+            cboLand.Items.Clear()
+            AddItem(cboLand, "Alle Länder", "")
+            For Each land In {"AT", "DE", "NL", "IT", "FR", "UK", "TR"}
+                AddItem(cboLand, land, land)
+            Next
+            cboLand.SelectedIndex = 0
+
+            cboTeam.Items.Clear()
+            AddItem(cboTeam, "Alle Teams", "")
+            Dim dt = VERAGSQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cAllgemein.FIRMA.Replace("'", "''") & "' ORDER BY team_bezeichnung", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each r As DataRow In dt.Rows
+                    AddItem(cboTeam, Convert.ToString(r("team_bezeichnung")), Convert.ToString(r("team_id")))
+                Next
+            End If
+            cboTeam.SelectedIndex = 0
+            dtFristVon.Checked = False
+            dtFristBis.Checked = False
+        Catch ex As Exception
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        Finally
+            _loading = False
+        End Try
+        RESET()
+    End Sub
+
+    Public Sub RESET()
+        If Not _initialized Then Exit Sub
+        _loading = True
+        Try
+            txtSuche.Clear() : txtMRN.Clear() : txtGeschaeftszeichen.Clear()
+            txtZollamt.Clear() : txtKunde.Clear() : txtSendungID.Clear()
+            cboTyp.SelectedIndex = 0 : cboStatus.SelectedIndex = 0
+            cboLand.SelectedIndex = 0 : cboTeam.SelectedIndex = 0
+            dtFristVon.Checked = False : dtFristBis.Checked = False
+            optOffen.Checked = True
+            chkMeine.Checked = True
+        Finally
+            _loading = False
+        End Try
+        Aviso_anzeigen("")
+    End Sub
+
+    Private Function Wildcard(value As String) As String
+        Return value.Trim().Replace("*", "%") & "%"
+    End Function
+
+    Public Sub Aviso_anzeigen(Optional hSort As String = "", Optional showDetails As Boolean = True)
+        If Not _initialized OrElse _loading Then Exit Sub
+        Try
+            Dim hSQL As String =
+                "SELECT TOP (1000) s.tblSnd_SendungID, s.tblSnd_AvisoID AS AvisoID, " &
+                "scc.scc_Type AS VerfahrenNr, " &
+                "CASE scc.scc_Type WHEN 1 THEN N'Einspruch/Beschwerde' WHEN 2 THEN N'NCTS-Nachforschung' " &
+                "WHEN 3 THEN N'NCTS-Unstimmigkeit' WHEN 4 THEN N'Zollamtliche Anfrage' " &
+                "WHEN 5 THEN N'Berichtigung' WHEN 6 THEN N'Änderungsantrag' " &
+                "WHEN 7 THEN N'Erstattung/Erlass' WHEN 8 THEN N'Abgabenbescheid' " &
+                "WHEN 9 THEN N'Mahnverfahren' ELSE N'Sonstiges' END AS Verfahren, " &
+                "scc.scc_Subject AS Betreff, scc.scc_CustomsOffice AS Zollamt, " &
+                "scc.scc_CustomsReference AS Geschaeftszeichen, scc.scc_ReferenceMRN AS MRN, " &
+                "scc.scc_ReceivedDate AS Eingang, scc.scc_Deadline AS Frist, " &
+                "scc.scc_ReminderDate AS Wiedervorlage, scc.scc_Status AS StatusNr, " &
+                "CASE scc.scc_Status WHEN 0 THEN N'Neu' WHEN 1 THEN N'In Bearbeitung' " &
+                "WHEN 2 THEN N'Unterlagen ausständig' WHEN 3 THEN N'Zoll ausständig' " &
+                "WHEN 4 THEN N'Entscheidung' WHEN 5 THEN N'Erledigt' " &
+                "WHEN 6 THEN N'Geschlossen' ELSE N'Unbekannt' END AS Fachstatus, " &
+                "s.tblSnd_Zollsystem_Land AS Land, s.tblSnd_Auftraggeber AS Auftraggeber, " &
+                "s.tblSnd_TeamId AS TeamId, s.tblSnd_SachbearbeiterId AS SachbearbeiterId, " &
+                "s.LetzterMitarbeiter AS LetzterMitarbeiter, scc.scc_Amount AS Betrag, scc.scc_Currency AS Waehrung " &
+                "FROM dbo.tblSendungCustomsCases scc " &
+                "INNER JOIN dbo.tblSendungen s ON s.tblSnd_SendungID=scc.scc_SendungID " &
+                "LEFT JOIN dbo.Aviso a ON a.AvisoID=s.tblSnd_AvisoID " &
+                "WHERE (s.tblSnd_Firma=@firma OR s.tblSnd_Cluster=@cluster OR s.LetzterMitarbeiterId=@maId) "
+
+            Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) From {
+                New VERAG_PROG_ALLGEMEIN.SQLVariable("firma", cAllgemein.FIRMA),
+                New VERAG_PROG_ALLGEMEIN.SQLVariable("cluster", cAllgemein.CLUSTER),
+                New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", cAllgemein.USRID)
+            }
+            If chkMeine.Checked Then
+                hSQL &= " AND (s.tblSnd_SachbearbeiterId=@maId OR s.LetzterMitarbeiterId=@maId) "
+            End If
+            If Selected(cboTyp) <> "" Then
+                hSQL &= " AND scc.scc_Type=@type "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("type", CShort(Selected(cboTyp))))
+            End If
+            If Selected(cboStatus) <> "" Then
+                hSQL &= " AND scc.scc_Status=@status "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", CShort(Selected(cboStatus))))
+            End If
+            If Selected(cboLand) <> "" Then
+                hSQL &= " AND s.tblSnd_Zollsystem_Land=@land "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("land", Selected(cboLand)))
+            End If
+            If Selected(cboTeam) <> "" Then
+                hSQL &= " AND s.tblSnd_TeamId=@team "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("team", CInt(Selected(cboTeam))))
+            End If
+            If txtSuche.Text.Trim() <> "" Then
+                hSQL &= " AND (scc.scc_Subject LIKE @search OR s.tblSnd_Anmerkung LIKE @search) "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("search", Wildcard(txtSuche.Text)))
+            End If
+            If txtMRN.Text.Trim() <> "" Then
+                hSQL &= " AND scc.scc_ReferenceMRN LIKE @mrn "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mrn", Wildcard(txtMRN.Text)))
+            End If
+            If txtGeschaeftszeichen.Text.Trim() <> "" Then
+                hSQL &= " AND scc.scc_CustomsReference LIKE @reference "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reference", Wildcard(txtGeschaeftszeichen.Text)))
+            End If
+            If txtZollamt.Text.Trim() <> "" Then
+                hSQL &= " AND scc.scc_CustomsOffice LIKE @office "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("office", Wildcard(txtZollamt.Text)))
+            End If
+            If txtKunde.Text.Trim() <> "" Then
+                hSQL &= " AND s.tblSnd_Auftraggeber LIKE @kunde "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kunde", Wildcard(txtKunde.Text)))
+            End If
+            If txtSendungID.Text.Trim() <> "" Then
+                Dim id As Integer
+                If Not Integer.TryParse(txtSendungID.Text.Trim(), id) Then
+                    lblInfo.Text = "Ungültige Sendung-ID"
+                    Exit Sub
+                End If
+                hSQL &= " AND s.tblSnd_SendungID=@sendungId "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sendungId", id))
+            End If
+            If dtFristVon.Checked Then
+                hSQL &= " AND scc.scc_Deadline>=@fristVon "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fristVon", dtFristVon.Value.Date))
+            End If
+            If dtFristBis.Checked Then
+                hSQL &= " AND scc.scc_Deadline<=@fristBis "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fristBis", dtFristBis.Value.Date))
+            End If
+            If optOffen.Checked Then
+                hSQL &= " AND scc.scc_Status NOT IN (5,6) "
+            ElseIf optAbgeschlossen.Checked Then
+                hSQL &= " AND scc.scc_Status IN (5,6) "
+            ElseIf optFristen.Checked Then
+                hSQL &= " AND scc.scc_Status NOT IN (5,6) AND (scc.scc_Deadline<=DATEADD(DAY,14,CAST(GETDATE() AS date)) OR scc.scc_ReminderDate<=CAST(GETDATE() AS date)) "
+            End If
+            hSQL &= " ORDER BY CASE WHEN scc.scc_Deadline<CAST(GETDATE() AS date) AND scc.scc_Status NOT IN (5,6) THEN 0 ELSE 1 END, scc.scc_Deadline, scc.scc_SendungID DESC "
+
+            Dim errOcc As Boolean = False
+            Dim dt As DataTable = VERAGSQL.loadDgvBySql_Param(hSQL, "AVISO", 1500, list, False, errOcc)
+            If errOcc Then
+                lblInfo.Text = "Fehler bei der Suche."
+                Exit Sub
+            End If
+            gridAviso.DataSource = dt
+            gridAviso_SpaltenFestlegen()
+            lblInfo.Text = gridAviso.Rows.Count.ToString() & " Vorgänge" & If(gridAviso.Rows.Count >= 1000, " (max. 1000)", "") & " – " & Date.Now.ToString("HH:mm")
+        Catch ex As Exception
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            lblInfo.Text = "Suche fehlgeschlagen: " & ex.Message
+        End Try
+    End Sub
+
+    Public Sub gridAviso_SpaltenFestlegen()
+        If gridAviso.Columns.Count = 0 Then Exit Sub
+        For Each key In {"tblSnd_SendungID", "AvisoID", "VerfahrenNr", "StatusNr", "TeamId", "SachbearbeiterId"}
+            If gridAviso.Columns.Contains(key) Then gridAviso.Columns(key).Visible = False
+        Next
+        For Each key In {"Eingang", "Frist", "Wiedervorlage"}
+            If gridAviso.Columns.Contains(key) Then
+                gridAviso.Columns(key).Width = 90
+                gridAviso.Columns(key).DefaultCellStyle.Format = "dd.MM.yyyy"
+            End If
+        Next
+        If gridAviso.Columns.Contains("Betreff") Then
+            gridAviso.Columns("Betreff").Width = 250
+        End If
+        If gridAviso.Columns.Contains("Verfahren") Then gridAviso.Columns("Verfahren").Width = 155
+        If gridAviso.Columns.Contains("Auftraggeber") Then gridAviso.Columns("Auftraggeber").Width = 180
+        If gridAviso.Columns.Contains("Geschaeftszeichen") Then gridAviso.Columns("Geschaeftszeichen").HeaderText = "Geschäftszeichen"
+        If gridAviso.Columns.Contains("Fachstatus") Then gridAviso.Columns("Fachstatus").Width = 135
+        If gridAviso.Columns.Contains("Betrag") Then gridAviso.Columns("Betrag").DefaultCellStyle.Format = "N2"
+    End Sub
+
+    Private Sub btnSuchen_Click(sender As Object, e As EventArgs) Handles btnSuchen.Click
+        Aviso_anzeigen("")
+    End Sub
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+        RaiseEvent CaseNewRequested()
+    End Sub
+    Private Sub Ansicht_CheckedChanged(sender As Object, e As EventArgs) Handles optOffen.CheckedChanged, optAlle.CheckedChanged, optFristen.CheckedChanged, optAbgeschlossen.CheckedChanged
+        Dim opt = DirectCast(sender, RadioButton)
+        If Not opt.Checked Then Exit Sub
+        For Each rb As RadioButton In New RadioButton() {optOffen, optAlle, optFristen, optAbgeschlossen}
+            rb.BackColor = If(rb.Checked, Color.FromArgb(28, 77, 150), Color.White)
+            rb.ForeColor = If(rb.Checked, Color.White, Color.FromArgb(44, 66, 103))
+        Next
+        Aviso_anzeigen("")
+    End Sub
+    Private Sub filter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTyp.SelectedIndexChanged, cboStatus.SelectedIndexChanged, cboLand.SelectedIndexChanged, cboTeam.SelectedIndexChanged, chkMeine.CheckedChanged
+        Aviso_anzeigen("")
+    End Sub
+    Private Sub filter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown, txtMRN.KeyDown, txtGeschaeftszeichen.KeyDown, txtZollamt.KeyDown, txtKunde.KeyDown, txtSendungID.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            e.SuppressKeyPress = True
+            Aviso_anzeigen("")
+        End If
+    End Sub
+    Private Sub gridAviso_DoubleClick(sender As Object, e As EventArgs) Handles gridAviso.DoubleClick
+        OpenSelectedCase()
+    End Sub
+    Private Sub gridAviso_KeyDown(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            e.Handled = True : e.SuppressKeyPress = True
+            OpenSelectedCase()
+        End If
+    End Sub
+    Private Sub OpenSelectedCase()
+        If gridAviso.CurrentRow Is Nothing Then Exit Sub
+        Dim row = gridAviso.CurrentRow
+        If row.Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub
+        Dim sendungId As Integer = Convert.ToInt32(row.Cells("tblSnd_SendungID").Value)
+        Dim avisoId As Integer = 0
+        If row.Cells("AvisoID").Value IsNot DBNull.Value AndAlso row.Cells("AvisoID").Value IsNot Nothing Then
+            avisoId = Convert.ToInt32(row.Cells("AvisoID").Value)
+        End If
+        If avisoId < 0 Then avisoId = 0
+        cGlobal.Aktive_SendungsID = sendungId
+        cGlobal.Aktive_ID = avisoId
+        RaiseEvent CaseOpenRequested(sendungId, avisoId)
+    End Sub
+End Class

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.2.5.2")>
-<Assembly: AssemblyFileVersion("4.2.5.2")>
+<Assembly: AssemblyVersion("4.3.4.0")>
+<Assembly: AssemblyFileVersion("4.3.4.0")>

Aviso/My Project/Resources.Designer.vb

@@ -528,6 +528,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property dakosy_de() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("dakosy_de", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -868,6 +878,46 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property herbert() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("herbert", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property herbert_afraid() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("herbert_afraid", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property herbert_destroyed() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("herbert_destroyed", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property herbert_happy() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("herbert_happy", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -878,6 +928,466 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_add() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_add", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_atez_declarantAI() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_atez_declarantAI", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_atez_logicust() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_atez_logicust", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_atez_tariffAI() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_atez_tariffAI", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_atez_transitAI() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_atez_transitAI", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_ATR() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_ATR", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_checklist() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_checklist", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_CMR() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_CMR", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_dienstplan() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_dienstplan", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_DocEdit() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_DocEdit", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_docFin() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_docFin", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_docSave() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_docSave", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_docSearch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_docSearch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_fakturierung() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_fakturierung", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_handshake() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_handshake", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_ImportAssistant() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_ImportAssistant", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_importaviso() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_importaviso", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_inventor() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_inventor", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_kasse() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_kasse", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_kassenbuch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_kassenbuch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_kunden() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_kunden", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_loupe() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_loupe", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_mail() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_mail", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_mitarbeiter() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_mitarbeiter", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_Options() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_Options", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_organigram() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_organigram", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_parkzeit() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_parkzeit", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_persDocument() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_persDocument", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_rechnungen() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_rechnungen", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_security() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_security", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_settings() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_settings", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_speditionsbuch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_speditionsbuch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_statistic() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_statistic", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_support() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_support", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_truck() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_truck", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_verknuepfung() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_verknuepfung", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_verzeichnis() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_verzeichnis", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_vorkasse() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_vorkasse", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_webSearch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_webSearch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_webSecurity() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_webSecurity", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_webWww() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_webWww", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_weel() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_weel", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_weitereForm() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_weitereForm", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_www() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_www", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_zeiterfassung() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_zeiterfassung", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_zertifikate() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_zertifikate", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -998,6 +1508,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property KI_Assist_Herbert() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("KI_Assist_Herbert", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1128,6 +1648,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property mic_nl() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("mic_nl", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1148,6 +1678,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property modaltrans_uk() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("modaltrans_uk", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
         '''</summary>
@@ -1458,6 +1998,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property s_KI_Assist_Herbert() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("s_KI_Assist_Herbert", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1518,6 +2068,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property SND_loesen() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("SND_loesen", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property SND_verbinden() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("SND_verbinden", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1718,6 +2288,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property teleotc_at() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("teleotc_at", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Aviso/My Project/Resources.resx

@@ -118,14 +118,23 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_parkzeit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_parkzeit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_inventor" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_inventor.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="personInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="beleg1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\beleg1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_rechnungen" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_rechnungen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -136,15 +145,27 @@
   <data name="Telefonliste" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Telefonliste.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_dienstplan" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_dienstplan.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="zollico" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\zollico.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="AVISO_DCS" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\AVISO_DCS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="els" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\els.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -163,12 +184,18 @@
   <data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="LEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\LEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Koerfez61" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\VK1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="disconnect" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\disconnect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -184,23 +211,38 @@
   <data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="fgas_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\fgas_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_kassenbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_kassenbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="plus1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\plus1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_webWww" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_webWww.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\nellenquack.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="SND_verbinden" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SND_verbinden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_kunden" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_kunden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -217,6 +259,12 @@
   <data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_security" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_security.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="personCheck_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\personCheck_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="person_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person_add.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -238,12 +286,21 @@
   <data name="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Atilla.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_vorkasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_vorkasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_docSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_docSearch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pdf11" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pdf11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ADMIN_pwd" xml:space="preserve">
     <value>aviso2015</value>
   </data>
@@ -265,6 +322,12 @@
   <data name="wiki" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\wiki.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Atilla.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="urgent" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\urgent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -289,12 +352,27 @@
   <data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_speditionsbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_speditionsbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="auftrag3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\auftrag3.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_ImportAssistant" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_ImportAssistant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_loupe" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_loupe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="NKD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\NKD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -313,18 +391,24 @@
   <data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_atez_logicust" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_atez_logicust.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Telefonliste_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Telefonliste_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="personCheck_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="eudr" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\eudr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="tts" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="istLog" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\istLog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -334,14 +418,17 @@
   <data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\uid.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -352,6 +439,12 @@
   <data name="warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\warning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_ATR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_ATR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_docFin" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_docFin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="avisoNewMsg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -364,27 +457,45 @@
   <data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="beleg1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\beleg1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_docSave" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_docSave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="compliance_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\compliance_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_organigram" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_organigram.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="pdfprint1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pdfprint1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="stift2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\stift.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="personCheck_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\personCheck_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_zeiterfassung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_zeiterfassung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_fakturierung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_fakturierung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="QS" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\QS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_mail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="vorauszahlung3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -394,6 +505,9 @@
   <data name="arrow_right_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow-right-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_truck" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_truck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -418,24 +532,39 @@
   <data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_verzeichnis" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_verzeichnis.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_statistic" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_statistic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ambar_boarder_new" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ambar_boarder_new.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
   <data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_webSecurity" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_webSecurity.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="atr" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\atr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="s_KI_Assist_Herbert" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\s_KI_Assist_Herbert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_weel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_weel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="fragezeichen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\fragezeichen1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -445,8 +574,8 @@
   <data name="spedbuch_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -469,6 +598,9 @@
   <data name="android_note" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-note.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_support" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_support.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="verimex" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -481,14 +613,17 @@
   <data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="kasse_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\1600.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_importaviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_importaviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="LateAviso_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\LateAviso_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="tan" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\tan.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -505,8 +640,8 @@
   <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="kasse_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\1600.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -514,18 +649,27 @@
   <data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="personCheck_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="memories1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\memories1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="zollberatung_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\zollberatung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_persDocument" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_persDocument.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -544,6 +688,9 @@
   <data name="abgeklaertAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -562,8 +709,8 @@
   <data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_atez_transitAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_atez_transitAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -583,6 +730,9 @@
   <data name="Declarant" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -595,14 +745,11 @@
   <data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
   <data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="LateAviso_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\LateAviso_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_Options" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_Options.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="search1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -616,11 +763,11 @@
   <data name="meris" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\meris.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_atez_declarantAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_atez_declarantAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="SND_loesen" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SND_loesen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -631,8 +778,11 @@
   <data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_handshake" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_handshake.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -643,14 +793,26 @@
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_verknuepfung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_verknuepfung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_CMR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_CMR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_atez_tariffAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_atez_tariffAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_www" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_www.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_DocEdit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_DocEdit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="word" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -676,12 +838,18 @@
   <data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_webSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_webSearch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="word1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ico_zertifikate" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_zertifikate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="evolog" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -694,40 +862,46 @@
   <data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ico_weitereForm" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_weitereForm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ATANAK_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\atanak_instructions_export_t1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="aktualisieren_40" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\aktualisieren-40.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="soenmez" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\soenmez.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="KI_Assist_Herbert" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\KI_Assist_Herbert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="compliance_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\compliance_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="herbert" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\herbert.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="eudr" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\eudr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="herbert_afraid" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\herbert_afraid.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="fgas_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\fgas_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="herbert_destroyed" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\herbert_destroyed.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="zollberatung_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\zollberatung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="herbert_happy" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\herbert_happy.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ambar_boarder_new" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ambar_boarder_new.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="dakosy_de" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\dakosy_de.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="aktualisieren_40" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\aktualisieren-40.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="mic_nl" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\mic_nl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="AVISO_DCS" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AVISO_DCS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="modaltrans_uk" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\modaltrans_uk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="teleotc_at" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\teleotc-at.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Aviso/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -93,8 +93,8 @@ Namespace My
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal"& _ 
-            "se;User ID=sa;Password=BmWr501956;")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO;Integrated Security=false;U"& _ 
+            "ser ID=sa;Password=BmWr501956;")>  _
         Public ReadOnly Property AVISO_ConnectionString_TEST() As String
             Get
                 Return CType(Me("AVISO_ConnectionString_TEST"),String)

Aviso/My Project/Settings.settings

@@ -14,10 +14,10 @@
     <Setting Name="AVISO_ConnectionString_TEST" Type="(Connection string)" Scope="Application">
       <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
 &lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
-  &lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
+  &lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
   &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
+      <Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
     </Setting>
   </Settings>
 </SettingsFile>