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("\\", "\")
+            ' ERMITTELN, WELCHE DATEIEN TATSÄCHLICH
-                    If fileStartsWith(f.pud_fileName, ignoreFilesBeginWith) And IO.File.Exists(d_path) Then
+            ' KOPIERT WERDEN MÜSSEN
-                        '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)
+
+            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

@@ -56,9 +56,11 @@ Partial Class frmATEZ_EZA
         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
@@ -83,6 +85,7 @@ Partial Class frmATEZ_EZA
         '
         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)
@@ -447,6 +450,16 @@ Partial Class frmATEZ_EZA
         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!)
@@ -470,6 +483,7 @@ Partial Class frmATEZ_EZA
         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
@@ -505,4 +519,5 @@ Partial Class frmATEZ_EZA
     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
@@ -154,9 +132,14 @@ Public Class frmATEZ_EZA
             '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)
@@ -170,27 +153,27 @@ Public Class frmATEZ_EZA
                         New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
                                 .objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
                                     .objectName = lblBezugsnummer.Text,'& "_TEST"
-                                               .objectAlias = ioReference,
+                                    .objectAlias = ioReference,
-                                               .declarationType = "EZA-D",
+                                    .declarationType = "EZA-D",
-                                               .shipmentId = "123",
+                                    .shipmentId = SENDUNG.tblSnd_SendungID,
-                                               .avisoId = "456"
+                            .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 = "Zolldeklarant/in",
-                                        .contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
                                     },
-                                    .declarantIsConsignee = True,
+                                .headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
-                                    .representationRelationshipCode = "",'-1, '??????????????????????????????????????????????????????????????
+                                    .agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
-                                    .inputTaxDeduction = True,'"",'"true",
+                                    .contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
-                                    .procedureCodeRequested = procedureCodeRequested.ToString,'                                    .goodsStatus = "",'"EU",
+                                    .contactPersonPhoneNumber = getTelefon(),
-                                     .transportMeansArrivalIdentity = txtLKWId.Text,
+                                .contactPersonPosition = "Zolldeklarant/in",
-                                    .transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
+                                .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,
@@ -813,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

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_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 fromIdx As Integer = Math.min(i1, i2)
-                                                     Dim toIdx As Integer = Math.Max(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
+                    'NOT WORKING
-                        'PdfViewer.LoadFromFile(loc) NOT WORKING
+                    'PdfViewer.LoadFromFile(loc) NOT WORKING
-                    End If
+                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

@@ -6,8 +6,7 @@
     </sectionGroup>
   </configSections>
   <connectionStrings>
-    <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;"
+    <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" />
-      providerName="System.Data.SqlClient" />
   </connectionStrings>
   <appSettings>
     <add key="CustomerPortalApiBaseUrl" value="https://login.server.verag.ag" />

Aviso/Aviso.vbproj

@@ -644,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>
@@ -1242,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>
@@ -1337,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">
@@ -1421,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>
@@ -1708,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>
@@ -1754,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">
@@ -1959,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>
@@ -2034,6 +2071,9 @@
     <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/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb

@@ -23,7 +23,7 @@ Partial Class usrCntlBenachrichtigungen
     <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
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure
-        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        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

@@ -23,8 +23,8 @@ Partial Class usrCntlBenachrichtigungenNEW
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 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()
@@ -35,16 +35,17 @@ Partial Class usrCntlBenachrichtigungenNEW
         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.CheckBox1 = New System.Windows.Forms.CheckBox()
-        Me.txtDatumAb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         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()
@@ -69,18 +70,18 @@ Partial Class usrCntlBenachrichtigungenNEW
         Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
         Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
         Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
         Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAvisoBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle8
+        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"
@@ -93,6 +94,7 @@ Partial Class usrCntlBenachrichtigungenNEW
         '
         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)
@@ -115,7 +117,7 @@ Partial Class usrCntlBenachrichtigungenNEW
         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(185, -2)
+        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
@@ -137,7 +139,7 @@ Partial Class usrCntlBenachrichtigungenNEW
         '
         Me.cbxTaskForce.AutoSize = True
         Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
-        Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
+        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
@@ -198,6 +200,92 @@ Partial Class usrCntlBenachrichtigungenNEW
         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
@@ -247,95 +335,22 @@ Partial Class usrCntlBenachrichtigungenNEW
         Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button10.UseVisualStyleBackColor = True
         '
-        '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
-        '
-        '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.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
-        '
-        '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
-        '
-        '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
-        '
-        '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
-        '
         '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!)
@@ -373,4 +388,5 @@ Partial Class usrCntlBenachrichtigungenNEW
     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.vb

@@ -34,6 +34,11 @@ Public Class usrCntlBenachrichtigungenNEW
                 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
@@ -130,6 +135,7 @@ Public Class usrCntlBenachrichtigungenNEW
                         "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)
@@ -527,4 +533,8 @@ Public Class usrCntlBenachrichtigungenNEW
             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/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_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

@@ -624,7 +624,7 @@ Public Class usrCntlHauptfenster_Suche_SND
             Dim hSQLFirma = ""
 
 
-            hSQLFirma = " AND Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' "
+            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  " &
@@ -958,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
@@ -1421,7 +1421,40 @@ Public Class usrCntlHauptfenster_Suche_SND
     End Sub
 
 
-    Private Sub btnNeu_Click_1(sender As Object, e As EventArgs) Handles btnNeu.Click
+    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.9.7")>
+<Assembly: AssemblyVersion("4.3.4.0")>
-<Assembly: AssemblyFileVersion("4.2.9.7")>
+<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>
@@ -1638,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>
@@ -1658,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>
@@ -2258,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

@@ -892,4 +892,16 @@
   <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="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="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="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/frmGesamtsicherheitenMenu.vb

@@ -20,7 +20,7 @@ Public Class frmGesamtsicherheitenMenu
         frmHauptfenster.EnableDoubleBuffered(dgvListe)
         GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
         'GesSichRef.LOAD("standort", Standort)
-        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N")
 
         txtVon._ShortDateOnly = True
         txtbis._ShortDateOnly = True
@@ -102,7 +102,7 @@ Public Class frmGesamtsicherheitenMenu
         'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
         lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.getReferenzbetrag(Now()).ToString()
         lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%"
-        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N")
     End Sub
 
 
@@ -122,7 +122,7 @@ Public Class frmGesamtsicherheitenMenu
         End With
 
         AddHandler frm.FormClosing, Function()
-                                        GesSichRef.CalcSaldo()
+                                        GesSichRef.CalcSaldo_new()
                                         ShowStandort()
                                         LoadDGV()
                                         Me.BringToFront()
@@ -142,7 +142,7 @@ Public Class frmGesamtsicherheitenMenu
             .Neu = True
         End With
         AddHandler frm.FormClosing, Function()
-                                        GesSichRef.CalcSaldo()
+                                        GesSichRef.CalcSaldo_new()
                                         ShowStandort()
                                         LoadDGV()
                                         Me.BringToFront()
@@ -151,7 +151,7 @@ Public Class frmGesamtsicherheitenMenu
     End Sub
 
     Private Sub lblSaldo_Click(sender As Object, e As EventArgs) Handles lblSaldo.Click
-        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N")
         LoadDGV()
     End Sub
 

Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb

@@ -37,14 +37,13 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.SicherheitsbetragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MehrfacheATBNrToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cbxAUTO = New System.Windows.Forms.CheckBox()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label26 = New System.Windows.Forms.Label()
         Me.btnBisTag = New System.Windows.Forms.Button()
         Me.btnVonTag = New System.Windows.Forms.Button()
         Me.btnTag = New System.Windows.Forms.Button()
-        Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label24 = New System.Windows.Forms.Label()
         Me.btnJahr = New System.Windows.Forms.Button()
         Me.btnBisJahr = New System.Windows.Forms.Button()
@@ -70,7 +69,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblReferenzwert = New System.Windows.Forms.Label()
         Me.btnExcel = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cbxAUTO = New System.Windows.Forms.CheckBox()
+        Me.GestellungenInDerZukunftToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -81,7 +82,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem, Me.SaldenNeuBerechnenToolStripMenuItem, Me.SaldoZumStichtagToolStripMenuItem, Me.PrüfungAusPlausibilitätToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(202, 92)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(202, 114)
         '
         'ExportCSVToolStripMenuItem
         '
@@ -113,6 +114,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.RLZollamtBereinigtToolStripMenuItem.Name = "RLZollamtBereinigtToolStripMenuItem"
         Me.RLZollamtBereinigtToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
         Me.RLZollamtBereinigtToolStripMenuItem.Text = "RL-Zollamt bereinigt"
+        Me.RLZollamtBereinigtToolStripMenuItem.Visible = False
         '
         'SaldenNeuBerechnenToolStripMenuItem
         '
@@ -128,7 +130,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         '
         'PrüfungAusPlausibilitätToolStripMenuItem
         '
-        Me.PrüfungAusPlausibilitätToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AusgangEingangToolStripMenuItem, Me.SicherheitsbetragToolStripMenuItem, Me.MehrfacheATBNrToolStripMenuItem})
+        Me.PrüfungAusPlausibilitätToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AusgangEingangToolStripMenuItem, Me.SicherheitsbetragToolStripMenuItem, Me.MehrfacheATBNrToolStripMenuItem, Me.GestellungenInDerZukunftToolStripMenuItem})
         Me.PrüfungAusPlausibilitätToolStripMenuItem.Name = "PrüfungAusPlausibilitätToolStripMenuItem"
         Me.PrüfungAusPlausibilitätToolStripMenuItem.Size = New System.Drawing.Size(201, 22)
         Me.PrüfungAusPlausibilitätToolStripMenuItem.Text = "Prüfung auf Plausibilität"
@@ -136,19 +138,19 @@ Partial Class frmGesamtsicherheitenMenuNEU
         'AusgangEingangToolStripMenuItem
         '
         Me.AusgangEingangToolStripMenuItem.Name = "AusgangEingangToolStripMenuItem"
-        Me.AusgangEingangToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
+        Me.AusgangEingangToolStripMenuItem.Size = New System.Drawing.Size(221, 22)
         Me.AusgangEingangToolStripMenuItem.Text = "Ausgang < Eingang"
         '
         'SicherheitsbetragToolStripMenuItem
         '
         Me.SicherheitsbetragToolStripMenuItem.Name = "SicherheitsbetragToolStripMenuItem"
-        Me.SicherheitsbetragToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
+        Me.SicherheitsbetragToolStripMenuItem.Size = New System.Drawing.Size(221, 22)
         Me.SicherheitsbetragToolStripMenuItem.Text = "Sicherheitsbetrag"
         '
         'MehrfacheATBNrToolStripMenuItem
         '
         Me.MehrfacheATBNrToolStripMenuItem.Name = "MehrfacheATBNrToolStripMenuItem"
-        Me.MehrfacheATBNrToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
+        Me.MehrfacheATBNrToolStripMenuItem.Size = New System.Drawing.Size(221, 22)
         Me.MehrfacheATBNrToolStripMenuItem.Text = "mehrfache ATB-Nr"
         '
         'Panel1
@@ -192,6 +194,19 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.Panel1.Size = New System.Drawing.Size(706, 288)
         Me.Panel1.TabIndex = 0
         '
+        'cbxAUTO
+        '
+        Me.cbxAUTO.AutoSize = True
+        Me.cbxAUTO.Checked = True
+        Me.cbxAUTO.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxAUTO.ForeColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.cbxAUTO.Location = New System.Drawing.Point(36, 233)
+        Me.cbxAUTO.Name = "cbxAUTO"
+        Me.cbxAUTO.Size = New System.Drawing.Size(56, 17)
+        Me.cbxAUTO.TabIndex = 133
+        Me.cbxAUTO.Text = "AUTO"
+        Me.cbxAUTO.UseVisualStyleBackColor = True
+        '
         'PictureBox5
         '
         Me.PictureBox5.BackColor = System.Drawing.Color.White
@@ -218,31 +233,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.btnOpenOver85Days.UseVisualStyleBackColor = False
         Me.btnOpenOver85Days.Visible = False
         '
-        'txtDatBis
-        '
-        Me.txtDatBis._DateTimeOnly = False
-        Me.txtDatBis._numbersOnly = False
-        Me.txtDatBis._numbersOnlyKommastellen = ""
-        Me.txtDatBis._numbersOnlyTrennzeichen = True
-        Me.txtDatBis._Prozent = False
-        Me.txtDatBis._ShortDateNew = False
-        Me.txtDatBis._ShortDateOnly = True
-        Me.txtDatBis._TimeOnly = False
-        Me.txtDatBis._TimeOnly_Seconds = False
-        Me.txtDatBis._value = ""
-        Me.txtDatBis._Waehrung = False
-        Me.txtDatBis._WaehrungZeichen = True
-        Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtDatBis.ForeColor = System.Drawing.Color.Black
-        Me.txtDatBis.Location = New System.Drawing.Point(62, 170)
-        Me.txtDatBis.MaxLength = 10
-        Me.txtDatBis.MaxLineLength = -1
-        Me.txtDatBis.MaxLines_Warning = ""
-        Me.txtDatBis.MaxLines_Warning_Label = Nothing
-        Me.txtDatBis.Name = "txtDatBis"
-        Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
-        Me.txtDatBis.TabIndex = 25
-        '
         'Label26
         '
         Me.Label26.AutoSize = True
@@ -301,31 +291,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.btnTag.Text = "Heute"
         Me.btnTag.UseVisualStyleBackColor = False
         '
-        'txtDatVon
-        '
-        Me.txtDatVon._DateTimeOnly = False
-        Me.txtDatVon._numbersOnly = False
-        Me.txtDatVon._numbersOnlyKommastellen = ""
-        Me.txtDatVon._numbersOnlyTrennzeichen = True
-        Me.txtDatVon._Prozent = False
-        Me.txtDatVon._ShortDateNew = False
-        Me.txtDatVon._ShortDateOnly = True
-        Me.txtDatVon._TimeOnly = False
-        Me.txtDatVon._TimeOnly_Seconds = False
-        Me.txtDatVon._value = ""
-        Me.txtDatVon._Waehrung = False
-        Me.txtDatVon._WaehrungZeichen = True
-        Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtDatVon.ForeColor = System.Drawing.Color.Black
-        Me.txtDatVon.Location = New System.Drawing.Point(62, 146)
-        Me.txtDatVon.MaxLength = 10
-        Me.txtDatVon.MaxLineLength = -1
-        Me.txtDatVon.MaxLines_Warning = ""
-        Me.txtDatVon.MaxLines_Warning_Label = Nothing
-        Me.txtDatVon.Name = "txtDatVon"
-        Me.txtDatVon.Size = New System.Drawing.Size(63, 20)
-        Me.txtDatVon.TabIndex = 18
-        '
         'Label24
         '
         Me.Label24.AutoSize = True
@@ -648,18 +613,61 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.dgvListe.Size = New System.Drawing.Size(706, 394)
         Me.dgvListe.TabIndex = 1
         '
-        'cbxAUTO
+        'GestellungenInDerZukunftToolStripMenuItem
         '
-        Me.cbxAUTO.AutoSize = True
+        Me.GestellungenInDerZukunftToolStripMenuItem.Name = "GestellungenInDerZukunftToolStripMenuItem"
-        Me.cbxAUTO.Checked = True
+        Me.GestellungenInDerZukunftToolStripMenuItem.Size = New System.Drawing.Size(221, 22)
-        Me.cbxAUTO.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.GestellungenInDerZukunftToolStripMenuItem.Text = "Gestellungen in der Zukunft"
-        Me.cbxAUTO.ForeColor = System.Drawing.SystemColors.ButtonHighlight
+        '
-        Me.cbxAUTO.Location = New System.Drawing.Point(36, 233)
+        'txtDatBis
-        Me.cbxAUTO.Name = "cbxAUTO"
+        '
-        Me.cbxAUTO.Size = New System.Drawing.Size(56, 17)
+        Me.txtDatBis._DateTimeOnly = False
-        Me.cbxAUTO.TabIndex = 133
+        Me.txtDatBis._numbersOnly = False
-        Me.cbxAUTO.Text = "AUTO"
+        Me.txtDatBis._numbersOnlyKommastellen = ""
-        Me.cbxAUTO.UseVisualStyleBackColor = True
+        Me.txtDatBis._numbersOnlyTrennzeichen = True
+        Me.txtDatBis._Prozent = False
+        Me.txtDatBis._ShortDateNew = False
+        Me.txtDatBis._ShortDateOnly = True
+        Me.txtDatBis._TimeOnly = False
+        Me.txtDatBis._TimeOnly_Seconds = False
+        Me.txtDatBis._value = ""
+        Me.txtDatBis._Waehrung = False
+        Me.txtDatBis._WaehrungZeichen = True
+        Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtDatBis.ForeColor = System.Drawing.Color.Black
+        Me.txtDatBis.Location = New System.Drawing.Point(62, 170)
+        Me.txtDatBis.MaxLength = 10
+        Me.txtDatBis.MaxLineLength = -1
+        Me.txtDatBis.MaxLines_Warning = ""
+        Me.txtDatBis.MaxLines_Warning_Label = Nothing
+        Me.txtDatBis.Name = "txtDatBis"
+        Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
+        Me.txtDatBis.TabIndex = 25
+        '
+        'txtDatVon
+        '
+        Me.txtDatVon._DateTimeOnly = False
+        Me.txtDatVon._numbersOnly = False
+        Me.txtDatVon._numbersOnlyKommastellen = ""
+        Me.txtDatVon._numbersOnlyTrennzeichen = True
+        Me.txtDatVon._Prozent = False
+        Me.txtDatVon._ShortDateNew = False
+        Me.txtDatVon._ShortDateOnly = True
+        Me.txtDatVon._TimeOnly = False
+        Me.txtDatVon._TimeOnly_Seconds = False
+        Me.txtDatVon._value = ""
+        Me.txtDatVon._Waehrung = False
+        Me.txtDatVon._WaehrungZeichen = True
+        Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtDatVon.ForeColor = System.Drawing.Color.Black
+        Me.txtDatVon.Location = New System.Drawing.Point(62, 146)
+        Me.txtDatVon.MaxLength = 10
+        Me.txtDatVon.MaxLineLength = -1
+        Me.txtDatVon.MaxLines_Warning = ""
+        Me.txtDatVon.MaxLines_Warning_Label = Nothing
+        Me.txtDatVon.Name = "txtDatVon"
+        Me.txtDatVon.Size = New System.Drawing.Size(63, 20)
+        Me.txtDatVon.TabIndex = 18
         '
         'frmGesamtsicherheitenMenuNEU
         '
@@ -731,4 +739,5 @@ Partial Class frmGesamtsicherheitenMenuNEU
     Friend WithEvents RLZollamtBereinigtToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents MehrfacheATBNrToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents cbxAUTO As CheckBox
+    Friend WithEvents GestellungenInDerZukunftToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -81,6 +81,10 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
         If txtSuchbegriff.Text <> "" Then
+            Dim sqlWhereZusatz As String = ""
+            If IsNumeric(txtSuchbegriff.Text) Then
+                sqlWhereZusatz = " OR gs.gs_gsNr = " & txtSuchbegriff.Text
+            End If
 
             sqlWhere = " AND ( gs.gs_freitext LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
                                         gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
@@ -89,42 +93,14 @@ Public Class frmGesamtsicherheitenMenuNEU
                                         gs.gs_VeralteteWeitereRegistriernummer LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
                                         gs.gs_MRNNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
                                         gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
-                                        gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%'
+                                        gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%'" & sqlWhereZusatz &
-                                    )"
+                                    ")"
 
 
 
 
         End If
 
-        'Dim sqlstring As String =
-        '    " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId,
-        '             max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(
-        '               (Select SUM( Case 
-        'when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
-        'when gs_art = 'Close' then gs_sicherheitsbetrag
-        '       End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr
-        '       )
-        '       +
-        '       (Select SUM( Case 
-        'when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
-        'when gsp_art = 'Close' then gsp_sicherheitsbetrag
-        '       End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr
-        '        ) , 'C', 'de-DE') as gs_SicherheitsSaldo
-
-        '         From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where 
-        '             gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_avisoId like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_warenort like '%" & txtSuchbegriff.Text & "%'
-        '         ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2
-        '         Where gs_standort = '" & Standort & "' " & sqladdon & "
-        '         AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "'
-        '         AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "' ORDER BY gs_gsnr"
-
-
 
         Dim sqlstring As String = "WITH SicherheitsSaldo AS (
                                     SELECT
@@ -581,7 +557,14 @@ Public Class frmGesamtsicherheitenMenuNEU
             Exit Sub
         End If
 
-        If Not zollliste_bereinigt Then SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)
+        If Not zollliste_bereinigt Then
+            If detailINfo Then
+                SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten, {"N1:N" & (frm.dtSicherheiten.Rows.Count + 1)})
+            Else
+                SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten, {"K1:K" & (frm.dtSicherheiten.Rows.Count + 1)})
+            End If
+
+        End If
 
     End Sub
 
@@ -629,7 +612,7 @@ Public Class frmGesamtsicherheitenMenuNEU
         Dim f As New frmDatumsabfrage("Saldo zum Stichtag", False)
         f.ShowDialog()
         If f.DialogResult = DialogResult.OK Then
-            GesSichRef.CalcSaldo(, f.Datum, True)
+            GesSichRef.CalcSaldo_new(, f.Datum, True)
         End If
 
 
@@ -639,9 +622,16 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
 
-        Dim SQLPlausPruefung = "select gs_gsnr as Nr,gs_ATBNr as ATBNr, gs_Sicherheitsbetrag as Sicherheitsbetrag ,gsp_ATCNr as ATCNr , cast(gs_datum as Date) as Ausgangsdatum, cast(gsp_datum as Date) as Eingangsdatum,  [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer from tblGesamtsicherheit
+        Dim SQLPlausPruefung = "SELECT
-											inner join tblGesamtsicherheitsPositionen on gs_gsId = gsp_gsId
+                    gs.gs_gsId,
-											where cast(gsp_datum as Date) < cast(gs_datum as Date) and not ( [gs_sicherheitsbetrag] = 0.00 and [gsp_sicherheitsbetrag] = 0.00) and gs_standort = '" & Standort & "'"
+                    gs.gs_datum AS GestellungDatum,
+                    gsp.gsp_datum AS PositionDatum,
+                    gsp.gsp_sicherheitsbetrag
+                FROM dbo.tblGesamtsicherheit AS gs
+                INNER JOIN dbo.tblGesamtsicherheitsPositionen AS gsp
+                    ON gsp.gsp_gsId = gs.gs_gsId
+                WHERE gs.gs_standort = '" & Standort & "'
+                  AND gsp.gsp_datum < gs.gs_datum;"
 
 
         Dim dt As New DataTable
@@ -666,29 +656,45 @@ Public Class frmGesamtsicherheitenMenuNEU
     Private Sub SicherheitsbetragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SicherheitsbetragToolStripMenuItem.Click
 
 
-        Dim SQLPlausPruefung = "SELECT 
+        Dim SQLPlausPruefung = "DECLARE @Standort varchar(100) = '" & Standort & "';
-    gs.gs_gsnr,
+
-    gs.Sicherheitbetrag_Ausgang,
+            SELECT
-    gsp.Sicherheitbetrag_Eingang,
+                gs.gs_gsnr,
-	gs.gs_standort
+                gs.Sicherheitsbetrag_Eingang,
-FROM
+                gsp.Sicherheitsbetrag_Ausgang,
-(
+                gs.gs_standort,
-    SELECT 
+                gsp.Sicherheitsbetrag_Ausgang
-        gs_gsnr,
+                    - gs.Sicherheitsbetrag_Eingang AS Differenz
-		gs_standort,
+            FROM
-        SUM(gs_sicherheitsbetrag) AS Sicherheitbetrag_Ausgang
+            (
-    FROM tblGesamtsicherheit
+                SELECT
-    GROUP BY gs_standort, gs_gsnr
+                    gs_gsnr,
-) gs
+                    gs_standort,
-JOIN
+                    SUM(ISNULL(gs_sicherheitsbetrag, 0))
-(
+                        AS Sicherheitsbetrag_Eingang
-    SELECT 
+                FROM dbo.tblGesamtsicherheit
-        gsp_gsnr,
+                WHERE gs_standort = @Standort
-        SUM(gsp_sicherheitsbetrag) AS Sicherheitbetrag_Eingang
+                  AND gs_gsnr <> 2030
-    FROM tblGesamtsicherheitsPositionen
+                GROUP BY
-    GROUP BY gsp_gsnr
+                    gs_gsnr,
-) gsp
+                    gs_standort
-    ON gs.gs_gsnr = gsp.gsp_gsnr WHERE gs.Sicherheitbetrag_Ausgang < gsp.Sicherheitbetrag_Eingang and gs_standort = '" & Standort & "' and gs_gsnr <> 2030  order by gs.gs_gsnr"
+            ) AS gs
+            INNER JOIN
+            (
+                SELECT
+                    gsp_gsnr,
+                    SUM(ISNULL(gsp_sicherheitsbetrag, 0))
+                        AS Sicherheitsbetrag_Ausgang
+                FROM dbo.tblGesamtsicherheitsPositionen
+                GROUP BY
+                    gsp_gsnr
+            ) AS gsp
+                ON gsp.gsp_gsnr = gs.gs_gsnr
+            WHERE
+                gs.Sicherheitsbetrag_Eingang
+                    < gsp.Sicherheitsbetrag_Ausgang
+            ORDER BY
+                gs.gs_gsnr;"
 
 
         Dim dt As New DataTable
@@ -697,7 +703,7 @@ JOIN
 
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
 
-            MsgBox(dt.Rows.Count & " Datensätze müssen korrigiert werden (S-Betrag des Gestellungseinganges darf nicht größer als der des dem Gestellungsausganges)! " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.")
+            MsgBox(dt.Rows.Count & " Datensätze müssen korrigiert werden (S-Betrag des Gestellungseinganges darf nicht größer als der des Gestellungsausganges)! " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.")
             SDL.cProgramFunctions.genExcelFromDT_NEW(dt)
 
         Else
@@ -737,4 +743,60 @@ JOIN
         End If
 
     End Sub
+
+    Private Sub GestellungenInDerZukunftToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GestellungenInDerZukunftToolStripMenuItem.Click
+
+
+        Dim SQLPlausPruefung = "DECLARE @Heute date = CAST(GETDATE() AS date) DECLARE @Standort varchar(100) = '" & Standort & "';
+
+            -- Zukünftige Gestellungen
+            SELECT
+                gs.gs_gsnr AS Nummer,
+                'Gestellung' AS Typ,
+                gs.gs_datum AS Datum,
+                gs.gs_standort AS Standort,
+                gs.gs_ATBNr AS Registriernummer,
+                gs.gs_MRNNr AS MRN,
+                gs.gs_sicherheitsbetrag AS Sicherheitsbetrag
+            FROM tblGesamtsicherheit AS gs
+            WHERE gs.gs_datum >= DATEADD(day, 1, @Heute) AND gs.gs_standort = @Standort
+            
+            UNION ALL
+            
+            -- Zukünftige Gestellungspositionen
+            SELECT
+                gsp.gsp_gsnr AS Nummer,
+                'Gestellungsposition' AS Typ,
+                gsp.gsp_datum AS Datum,
+                gs.gs_standort AS Standort,
+                gsp.gsp_ATCNr AS Registriernummer,
+                gsp.gsp_MRNNr AS MRN,
+                gsp.gsp_sicherheitsbetrag AS Sicherheitsbetrag
+            FROM tblGesamtsicherheitsPositionen AS gsp
+            INNER JOIN tblGesamtsicherheit AS gs
+                ON gs.gs_gsnr = gsp.gsp_gsnr
+            WHERE gsp.gsp_datum >= DATEADD(day, 1, @Heute) AND gs.gs_standort = @Standort
+            
+            ORDER BY
+                Datum,
+                Nummer,
+                Typ;"
+
+
+        Dim dt As New DataTable
+        dt = SQL.loadDgvBySql(SQLPlausPruefung, "AVISO", 100, True)
+
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+            MsgBox(dt.Rows.Count & " Datensätze befinden sich in der Zukunft, bitte korrektes Datum eintragen. " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.")
+            SDL.cProgramFunctions.genExcelFromDT_NEW(dt)
+
+        Else
+
+            MsgBox("keine fehlerhaften Eingaben vorhanden!")
+
+        End If
+
+    End Sub
 End Class

Aviso/frmGesamtsicherheitenNEU.vb

@@ -80,7 +80,7 @@ Public Class frmGesamtsicherheitenNEU
         End Select
 
         currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
-        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new())
         lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
 
         Me.Text = "Gesamtsicherheit " & Standort
@@ -253,6 +253,7 @@ Public Class frmGesamtsicherheitenNEU
             Case Sicherheiten_Standort.IMEX : firmaId = 20
             Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
             Case Sicherheiten_Standort.UNISPED : firmaId = 21
+            Case Sicherheiten_Standort.ZOLLERN : firmaId = 90
             Case Else
 
         End Select
@@ -295,7 +296,7 @@ Public Class frmGesamtsicherheitenNEU
                                                 and isnull(gs_sicherheitsbetrag,0) <> 0 
                                                 and gs_datum is not null
 											UNION
-                                                Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],'',[gsp_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] 
+                                                Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] 
                                            Where gsp_gsnr In ( 
 											
 												SELECT [gs_gsnr] FROM tblGesamtsicherheit WHERE gs_standort = '" & standort & "' AND cast(gs_datum as Date) >  '" & datumVon.ToShortDateString & "'  AND cast(gs_datum as Date) <=  '" & datumBis.ToShortDateString & "' 
@@ -305,41 +306,159 @@ Public Class frmGesamtsicherheitenNEU
                                             ) as Temp  order by Temp.Datum, Temp.Uhrzeit  "
 
 
-        Dim SQLStringSicherheit_new_new As String = " select * from (select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "', gs_MRNNr as MRN,'Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt' " & IIf(detailinfo, ", [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer ", "") & "
+        Dim SQLStringSicherheit_new_new As String = " select * from (select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "', gs_MRNNr as MRN,'Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc " & IIf(detailinfo, ", [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer ", "") & "
                                             From [tblGesamtsicherheit]
                                             Where  gs_standort = '" & standort & "' AND cast(gs_datum as Date) >  '" & datumVon.ToShortDateString & "'  AND cast(gs_datum as Date) <=  '" & datumBis.ToShortDateString & "' and gs_datum is not null
 											UNION
-                                                Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],'',[gsp_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] 
+                                                Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] 
                                            Where gsp_gsnr In ( SELECT [gs_gsnr] FROM tblGesamtsicherheit WHERE gs_standort = '" & standort & "'  ) 
                                             and gsp_datum is not null AND cast(gsp_datum as Date) >=  '" & datumVon.ToShortDateString & "'
                                             ) as Temp  order by Temp.Datum, Temp.Uhrzeit  "
 
-        dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit_new_new, "AVISO", 100, True)
+
+        Dim SQLStringSicherheit_refactored As String = " DECLARE @DatumVon date = '" & datumVon.ToShortDateString & "';
+                                                         DECLARE @DatumBis date = '" & datumBis.ToShortDateString & "';
+                                                         DECLARE @Standort varchar(100) = '" & standort & "';
 
 
-        dtSicherheiten.Columns.Add("Saldo")
+;WITH ReferenzHistorie AS
+(
+    SELECT
+        k.brgakto_gs_standort AS Standort,
+        r.brgarefb_id,
+        r.brgarefb_refbetrag,
+        r.brgarefb_gueltig_ab,
+        LAG(r.brgarefb_refbetrag, 1, 0) OVER
+        (
+            PARTITION BY k.brgakto_gs_standort
+            ORDER BY
+                r.brgarefb_gueltig_ab,
+                r.brgarefb_id
+        ) AS VorherigerReferenzbetrag
+    FROM [ADMIN].[dbo].[tblBrgAufschubKonten] AS k
+    INNER JOIN [ADMIN].[dbo].[tblBrgAufschubReferenzberaege] AS r
+        ON r.brgarefb_gsid = k.brgakto_id
+    WHERE k.brgakto_gs_standort = @Standort
+      AND ISNULL(r.brgarefb_gs_aktiv, 1) = 1
+),
+Saldenliste AS
+(
+    /* Referenzbetragsänderungen nach dem Anfangssaldo */
+SELECT
+    0 AS Nr,
+    CAST(NULL AS varchar(100)) AS RegNr,
+    CAST(NULL AS varchar(100)) AS MRN,
+    'Änderung Referenzbetrag' AS Typ,
+    CAST(rh.brgarefb_gueltig_ab AS date) AS Datum,
+    CAST('00:00:00' AS time) AS Uhrzeit,
+    CAST(NULL AS decimal(18,2)) AS Warenwert,
+    rh.brgarefb_refbetrag AS Sicherheitbetrag,
+    rh.brgarefb_refbetrag
+        - rh.VorherigerReferenzbetrag AS Sicherheitbetrag_Calc,
+    rh.Standort,
+    0 AS Sortierung  " & IIf(detailinfo, ", CAST(NULL AS datetime) AS Erstellungsdatum, CAST(NULL AS datetime) AS GeändertAm, CAST(NULL AS varchar(100)) AS Benutzer ", "") & "
+FROM ReferenzHistorie AS rh
+WHERE rh.brgarefb_gueltig_ab > @DatumVon
+  AND rh.brgarefb_gueltig_ab < DATEADD(day, 1, @DatumBis)
+  AND rh.brgarefb_refbetrag <> rh.VorherigerReferenzbetrag
+
+    UNION ALL
+
+    /* Eingang Verwahrlager */
+    SELECT
+        gs.gs_gsnr AS Nr,
+        gs.gs_ATBNr AS RegNr,
+        gs.gs_MRNNr AS MRN,
+        'Eingang Verwahrlager' AS Typ,
+        CAST(gs.gs_datum AS date) AS Datum,
+        CAST(gs.gs_datum AS time) AS Uhrzeit,
+        gs.gs_warenwert AS Warenwert,
+        gs.gs_sicherheitsbetrag AS Sicherheitbetrag,
+        gs.gs_sicherheitsbetrag * -1 AS Sicherheitbetrag_Calc,
+        gs.gs_standort AS Standort,
+        1 AS Sortierung " & IIf(detailinfo, ",[gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeändertAm, [gs_systemuser] as Benutzer ", "") & "
+    FROM dbo.tblGesamtsicherheit AS gs
+    WHERE gs.gs_standort = @Standort
+      AND gs.gs_datum >= @DatumVon
+      AND gs.gs_datum < DATEADD(day, 1, @DatumBis)
+      AND gs.gs_datum IS NOT NULL
+      AND ISNULL(gs.gs_ReferenzAenderung, 0) = 0
+
+    UNION ALL
+
+    /* Ausgang Verwahrlager */
+SELECT
+    gsp.gsp_gsnr AS Nr,
+    gsp.gsp_ATCNr AS RegNr,
+    gsp.gsp_MRNNr AS MRN,
+    'Ausgang Verwahrlager' AS Typ,
+    CAST(gsp.gsp_datum AS date) AS Datum,
+    CAST(gsp.gsp_datum AS time) AS Uhrzeit,
+    gsp.gsp_warenwert AS Warenwert,
+    gsp.gsp_sicherheitsbetrag AS Sicherheitbetrag,
+    gsp.gsp_sicherheitsbetrag AS Sicherheitbetrag_Calc,
+    @Standort AS Standort,
+    1 AS Sortierung " & IIf(detailinfo, ",[gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeändertAm, [gsp_systemuser] as Benutzer", "") & "
+FROM dbo.tblGesamtsicherheitsPositionen AS gsp
+WHERE gsp.gsp_datum >= @DatumVon
+  AND gsp.gsp_datum < DATEADD(day, 1, @DatumBis)
+  AND gsp.gsp_datum IS NOT NULL
+  AND EXISTS
+  (
+      SELECT 1
+      FROM dbo.tblGesamtsicherheit AS gs
+      WHERE gs.gs_gsId = gsp.gsp_gsId
+        AND gs.gs_standort = @Standort
+        AND gs.gs_datum IS NOT NULL
+        AND gs.gs_datum < DATEADD(day, 1, @DatumBis)
+        AND ISNULL(gs.gs_ReferenzAenderung, 0) = 0
+  )
+)
+SELECT
+    Nr,
+    RegNr,
+    MRN,
+    Typ,
+    Datum,
+    Uhrzeit,
+    Warenwert,
+    Sicherheitbetrag,
+    Sicherheitbetrag_Calc,
+    Standort " & IIf(detailinfo, ",Erstellungsdatum,GeändertAm,  Benutzer", "") & "
+FROM Saldenliste
+ORDER BY
+    Datum ASC,
+    Sortierung ASC,
+    Uhrzeit ASC,
+    Nr ASC;"
+
+
+        dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit_refactored, "AVISO", 100, True)
+
+
+        dtSicherheiten.Columns.Add("Saldo", GetType(Decimal))
 
         Dim drFirst = dtSicherheiten.NewRow
         drFirst.Item("Nr") = 0
         drFirst.Item("Typ") = "Uebertrag vom"
         drFirst.Item("Datum") = CDate(datumVon).ToShortDateString
         Dim DefaultSaldo As Double = currentGesSichRef.getReferenzbetrag(CDate(datumVon).ToShortDateString)
-        drFirst.Item("Saldo") = currentGesSichRef.CalcSaldo(, datumVon) 'SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum desc", "AVISO",,, DefaultSaldo) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
+        drFirst.Item("Saldo") = currentGesSichRef.CalcSaldo_new(, datumVon) 'SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum desc", "AVISO",,, DefaultSaldo) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
 
         dtSicherheiten.Rows.InsertAt(drFirst, 0)
 
 
-        Dim sicherheitsbetrag As Double
+        Dim sicherheitsbetrag As Decimal
-        Dim saldo As Double
+        Dim saldo As Decimal
-        Dim c1 As Double
+        Dim c1 As Decimal
-        Dim saldoStart As Double
+        Dim saldoStart As Decimal
 
         For i As Integer = 1 To dtSicherheiten.Rows.Count - 1
 
-            saldoStart = CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
+            saldoStart = CDec(dtSicherheiten.Rows(0).Item("Saldo"))
-            saldo = CDbl(dtSicherheiten.Rows(i - 1).Item("Saldo"))
+            saldo = CDec(dtSicherheiten.Rows(i - 1).Item("Saldo"))
 
-            sicherheitsbetrag = IIf(dtSicherheiten.Rows(i).Item("Sicherheitbetrag_Calc") IsNot Nothing, CDbl(dtSicherheiten.Rows(i).Item("Sicherheitbetrag_Calc")), 0)
+            sicherheitsbetrag = If(IsDBNull(dtSicherheiten.Rows(i)("Sicherheitbetrag_Calc")), 0, CDec(dtSicherheiten.Rows(i)("Sicherheitbetrag_Calc")))
 
             c1 = saldo + sicherheitsbetrag
 
@@ -351,7 +470,7 @@ Public Class frmGesamtsicherheitenNEU
         drLast.Item("Nr") = 0
         drLast.Item("Typ") = "Saldo zum"
         drLast.Item("Datum") = CDate(datumBis).ToShortDateString
-        drLast.Item("Saldo") = CDbl(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("Saldo"))
+        drLast.Item("Saldo") = CDec(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("Saldo"))
 
         dtSicherheiten.Rows.InsertAt(drLast, dtSicherheiten.Rows.Count)
 
@@ -410,7 +529,7 @@ Public Class frmGesamtsicherheitenNEU
             drFirst_new.Item("Nr") = 0
             drFirst_new.Item("Typ") = "Uebertrag vom"
             drFirst_new.Item("Datum") = CDate(datumVon).ToShortDateString
-            drFirst_new.Item("Saldo") = CDbl(startSaldo)
+            drFirst_new.Item("Saldo") = CDec(startSaldo)
 
             sicherheiten_cleared.Rows.InsertAt(drFirst_new, 0)
 
@@ -419,11 +538,19 @@ Public Class frmGesamtsicherheitenNEU
             drLast_new.Item("Nr") = 0
             drLast_new.Item("Typ") = "Saldo zum"
             drLast_new.Item("Datum") = CDate(datumBis).ToShortDateString
-            drLast_new.Item("Saldo") = CDbl(endSaldo)
+            drLast_new.Item("Saldo") = CDec(endSaldo)
 
             sicherheiten_cleared.Rows.InsertAt(drLast_new, sicherheiten_cleared.Rows.Count)
 
-            If sicherheiten_cleared.Rows.Count > 2 Then SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared)
+            If sicherheiten_cleared.Rows.Count > 2 Then
+                If detailinfo Then
+                    SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared, {"N1:N" & (sicherheiten_cleared.Rows.Count + 1)})
+                Else
+                    SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared, {"K1:K" & (sicherheiten_cleared.Rows.Count + 1)})
+                End If
+
+
+            End If
 
 
         End If
@@ -466,7 +593,7 @@ Public Class frmGesamtsicherheitenNEU
 
         Next
 
-        Dim SQLStringSicherheit As String = "select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt', gs_art,  
+        Dim SQLStringSicherheit As String = "select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, gs_art,  
                                             [gsp_MRNNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext, gsp_art" &
                                             IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am',  gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") &
                                             "from [tblGesamtsicherheit]
@@ -477,7 +604,7 @@ Public Class frmGesamtsicherheitenNEU
 
 
 
-        Dim SQLStringSicherheit_new As String = "	select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',  
+        Dim SQLStringSicherheit_new As String = "	select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo,  
                                             [gsp_MRNNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext" &
                                             IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am',  gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") &
                                             "From tblGesamtsicherheit
@@ -500,7 +627,7 @@ Public Class frmGesamtsicherheitenNEU
 
         Dim drFirst = dtSicherheiten.NewRow
         drFirst.Item("Reg-Nr. Verwahrlager") = "Uebertrag vom " & datumVon
-        drFirst.Item("SSaldo") = currentGesSichRef.CalcSaldo(, datumVon)  'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
+        drFirst.Item("SSaldo") = currentGesSichRef.CalcSaldo_new(, datumVon)  'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
 
         dtSicherheiten.Rows.InsertAt(drFirst, 0)
 
@@ -805,7 +932,7 @@ Public Class frmGesamtsicherheitenNEU
     Private Sub btnAddSicherheit_Click(sender As Object, e As EventArgs) Handles btnAddSicherheit.Click
         Try
 
-            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new())
             lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
 
             If (txtSicherheitATBNr.Text = "") Then
@@ -940,7 +1067,7 @@ Public Class frmGesamtsicherheitenNEU
 
     Private Sub btnAddPos_Click(sender As Object, e As EventArgs) Handles btnAddPos.Click
 
-        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new())
         lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
 
         If dgvGesamtsicherheit.SelectedRows.Count = 0 Then
@@ -1023,7 +1150,7 @@ Public Class frmGesamtsicherheitenNEU
     End Function
     Sub AfterButton()
         'currentGesSichRef.CalcSaldo()
-        lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N")
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo_new()).ToString("N")
         LoadDGVSicherheiten(True)
         EmptyTXT()
     End Sub
@@ -2136,7 +2263,7 @@ Public Class frmGesamtsicherheitenNEU
     Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click
 
         Try
-            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new())
             lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
 
             If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then

Aviso/frmHauptfenster.Designer.vb

@@ -82,6 +82,7 @@ Partial Class frmHauptfenster
         Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PrüfeBilderAufBase64ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BerechtigungenNeuLadenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -134,6 +135,7 @@ Partial Class frmHauptfenster
         Me.ATUnispedGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DEAmbarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ATAtillaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DEZollernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ReferenzwerteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
         Me.TICKETWaidhausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -312,13 +314,13 @@ Partial Class frmHauptfenster
         Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
         Me.pic = New System.Windows.Forms.PictureBox()
         Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
-        Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.Button10 = New System.Windows.Forms.Button()
         Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel6 = New System.Windows.Forms.Panel()
         Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox()
         Me.cbx_My_CBAM = New System.Windows.Forms.CheckBox()
+        Me.cbx_My_VW = New System.Windows.Forms.CheckBox()
         Me.btnColor = New System.Windows.Forms.Button()
         Me.lblMeineAviso = New System.Windows.Forms.Label()
         Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -425,10 +427,10 @@ Partial Class frmHauptfenster
         Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlLeft = New System.Windows.Forms.Panel()
-        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
         Me.Panel5 = New System.Windows.Forms.Panel()
         Me.Panel7 = New System.Windows.Forms.Panel()
-        Me.DEZollernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
+        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.pnlDetailsRechts.SuspendLayout()
@@ -662,7 +664,7 @@ Partial Class frmHauptfenster
         '
         'AdministrationToolStripMenuItem
         '
-        Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem, Me.RoutenverwaltungToolStripMenuItem, Me.AnhangsartenToolStripMenuItem, Me.SpireLizenzPrüfenToolStripMenuItem, Me.UNBescheinigungAusTFEinlesenToolStripMenuItem, Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem, Me.PrüfeBilderAufBase64ToolStripMenuItem})
+        Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem, Me.RoutenverwaltungToolStripMenuItem, Me.AnhangsartenToolStripMenuItem, Me.SpireLizenzPrüfenToolStripMenuItem, Me.UNBescheinigungAusTFEinlesenToolStripMenuItem, Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem, Me.PrüfeBilderAufBase64ToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem1})
         Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
         Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
         Me.AdministrationToolStripMenuItem.Text = "Administration"
@@ -782,6 +784,12 @@ Partial Class frmHauptfenster
         Me.PrüfeBilderAufBase64ToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
         Me.PrüfeBilderAufBase64ToolStripMenuItem.Text = "Prüfe Bilder auf Base64"
         '
+        'BerechtigungenNeuLadenToolStripMenuItem1
+        '
+        Me.BerechtigungenNeuLadenToolStripMenuItem1.Name = "BerechtigungenNeuLadenToolStripMenuItem1"
+        Me.BerechtigungenNeuLadenToolStripMenuItem1.Size = New System.Drawing.Size(257, 22)
+        Me.BerechtigungenNeuLadenToolStripMenuItem1.Text = "Berechtigungen neu laden"
+        '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -960,26 +968,26 @@ Partial Class frmHauptfenster
         'GenerelleGestellungenDurchsuchenToolStripMenuItem
         '
         Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem"
-        Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen"
         Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False
         '
         'KundenVonFremdenSpeditionenToolStripMenuItem
         '
         Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem"
-        Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen"
         '
         'KundenverwaltungToolStripMenuItem
         '
         Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem"
-        Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung"
         '
         'MDMParkplatzkartenToolStripMenuItem
         '
         Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem"
-        Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten"
         '
         'SMSSendenToolStripMenuItem
@@ -987,7 +995,7 @@ Partial Class frmHauptfenster
         Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem})
         Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2
         Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem"
-        Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.SMSSendenToolStripMenuItem.Text = "SMS"
         '
         'NeueSMSSendenToolStripMenuItem
@@ -1005,57 +1013,57 @@ Partial Class frmHauptfenster
         'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem
         '
         Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem"
-        Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen"
         '
         'MRNBarcodedruckToolStripMenuItem
         '
         Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem"
-        Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
         '
         'NewsletterToolStripMenuItem
         '
         Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem"
-        Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.NewsletterToolStripMenuItem.Text = "Newsletter"
         '
         'ToolStripSeparator12
         '
         Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
-        Me.ToolStripSeparator12.Size = New System.Drawing.Size(388, 6)
+        Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6)
         '
         'tool_BRGXLS
         '
         Me.tool_BRGXLS.Name = "tool_BRGXLS"
-        Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30)
+        Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22)
         Me.tool_BRGXLS.Text = "Bürgschaften Excel"
         '
         'ToolStripMenuItem4
         '
         Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
-        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30)
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22)
         Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel"
         Me.ToolStripMenuItem4.Visible = False
         '
         'ToolStripMenuItem5
         '
         Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(391, 30)
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22)
         Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel"
         Me.ToolStripMenuItem5.Visible = False
         '
         'BürgschaftenExcelToolStripMenuItem
         '
         Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem"
-        Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel"
         Me.BürgschaftenExcelToolStripMenuItem.Visible = False
         '
         'ToolStripMenuItem6
         '
         Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
-        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(391, 30)
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22)
         Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel"
         Me.ToolStripMenuItem6.Visible = False
         '
@@ -1063,81 +1071,87 @@ Partial Class frmHauptfenster
         '
         Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem, Me.ATAtillaToolStripMenuItem, Me.DEZollernToolStripMenuItem, Me.ReferenzwerteToolStripMenuItem})
         Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem"
-        Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten"
         Me.GesamtsicherheitenToolStripMenuItem.Visible = False
         '
         'ATVeragAGToolStripMenuItem
         '
         Me.ATVeragAGToolStripMenuItem.Name = "ATVeragAGToolStripMenuItem"
-        Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
         Me.ATVeragAGToolStripMenuItem.Text = "AT | Verag AG"
         '
         'ATImexCSToolStripMenuItem
         '
         Me.ATImexCSToolStripMenuItem.Name = "ATImexCSToolStripMenuItem"
-        Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
         Me.ATImexCSToolStripMenuItem.Text = "AT | IMEX CS GmbH"
         '
         'ATVeragCSToolStripMenuItem
         '
         Me.ATVeragCSToolStripMenuItem.Name = "ATVeragCSToolStripMenuItem"
-        Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
         Me.ATVeragCSToolStripMenuItem.Text = "AT | Verag CS"
         '
         'DEVeragGmbHToolStripMenuItem
         '
         Me.DEVeragGmbHToolStripMenuItem.Name = "DEVeragGmbHToolStripMenuItem"
-        Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
         Me.DEVeragGmbHToolStripMenuItem.Text = "DE | Verag GmbH"
         '
         'ATUnispedGmbHToolStripMenuItem
         '
         Me.ATUnispedGmbHToolStripMenuItem.Name = "ATUnispedGmbHToolStripMenuItem"
-        Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
         Me.ATUnispedGmbHToolStripMenuItem.Text = "AT | Unisped GmbH"
         '
         'DEAmbarToolStripMenuItem
         '
         Me.DEAmbarToolStripMenuItem.Name = "DEAmbarToolStripMenuItem"
-        Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
         Me.DEAmbarToolStripMenuItem.Text = "DE | Ambar GmbH"
         Me.DEAmbarToolStripMenuItem.Visible = False
         '
         'ATAtillaToolStripMenuItem
         '
         Me.ATAtillaToolStripMenuItem.Name = "ATAtillaToolStripMenuItem"
-        Me.ATAtillaToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ATAtillaToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
         Me.ATAtillaToolStripMenuItem.Text = "AT | Atilla GmbH"
         '
+        'DEZollernToolStripMenuItem
+        '
+        Me.DEZollernToolStripMenuItem.Name = "DEZollernToolStripMenuItem"
+        Me.DEZollernToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.DEZollernToolStripMenuItem.Text = "DE | Zollern"
+        '
         'ReferenzwerteToolStripMenuItem
         '
         Me.ReferenzwerteToolStripMenuItem.Name = "ReferenzwerteToolStripMenuItem"
-        Me.ReferenzwerteToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ReferenzwerteToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
         Me.ReferenzwerteToolStripMenuItem.Text = "Referenzwerte"
         '
         'ToolStripMenuItem10
         '
         Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
-        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30)
+        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22)
         Me.ToolStripMenuItem10.Text = "TICKET Parkplatz"
         '
         'TICKETWaidhausToolStripMenuItem
         '
         Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem"
-        Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz"
         '
         'ToolStripSeparator10
         '
         Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
-        Me.ToolStripSeparator10.Size = New System.Drawing.Size(388, 6)
+        Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6)
         '
         'DAKOSYToolStripMenuItem
         '
         Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem})
         Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem"
-        Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.DAKOSYToolStripMenuItem.Text = "DAKOSY"
         '
         'StammreferenzenVerwaltenToolStripMenuItem
@@ -1149,76 +1163,76 @@ Partial Class frmHauptfenster
         'ToolStripSeparator23
         '
         Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
-        Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6)
+        Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6)
         '
         'toolOriginalATR
         '
         Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr
         Me.toolOriginalATR.Name = "toolOriginalATR"
-        Me.toolOriginalATR.Size = New System.Drawing.Size(391, 30)
+        Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22)
         Me.toolOriginalATR.Text = "Original-ATR"
         '
         'SDLAbholaufträgeToolStripMenuItem
         '
         Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem"
-        Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge"
         '
         'ToolStripMenuItem13
         '
         Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
-        Me.ToolStripMenuItem13.Size = New System.Drawing.Size(391, 30)
+        Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22)
         Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)"
         '
         'VerträgeToolStripMenuItem
         '
         Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
         Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem"
-        Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.VerträgeToolStripMenuItem.Text = "Verträge"
         '
         'VorauskassenToolStripMenuItem
         '
         Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung
         Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem"
-        Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
         '
         'ToolStripSeparator11
         '
         Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
-        Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6)
+        Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6)
         '
         'EssensbestellungenToolStripMenuItem
         '
         Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
-        Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
         Me.EssensbestellungenToolStripMenuItem.Visible = False
         '
         'AdministrationEssensbestellungenToolStripMenuItem
         '
         Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem"
-        Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen"
         Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False
         '
         'ToolStripSeparator24
         '
         Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
-        Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6)
+        Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6)
         '
         'WarenorteToolStripMenuItem
         '
         Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem"
-        Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.WarenorteToolStripMenuItem.Text = "Warenorte"
         '
         'DatevBuchungsexportToolStripMenuItem
         '
         Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem})
         Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem"
-        Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev  Buchungsexport"
         Me.DatevBuchungsexportToolStripMenuItem.Visible = False
         '
@@ -1237,13 +1251,13 @@ Partial Class frmHauptfenster
         'APIToolStripMenuItem
         '
         Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem"
-        Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.APIToolStripMenuItem.Text = "API"
         '
         'FIBUSachkontenToolStripMenuItem
         '
         Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem"
-        Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten"
         Me.FIBUSachkontenToolStripMenuItem.Visible = False
         '
@@ -2702,15 +2716,6 @@ Partial Class frmHauptfenster
         Me.SplitContainer3.SplitterDistance = 99
         Me.SplitContainer3.TabIndex = 3
         '
-        'UsrCntlBenachrichtigungen1
-        '
-        Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
-        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(99, 300)
-        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
-        '
         'pnl
         '
         Me.pnl.Controls.Add(Me.Button10)
@@ -2764,7 +2769,7 @@ Partial Class frmHauptfenster
         DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
         Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
         Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
+        Me.gridMyAviso.Location = New System.Drawing.Point(0, 22)
         Me.gridMyAviso.Name = "gridMyAviso"
         Me.gridMyAviso.ReadOnly = True
         DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -2777,7 +2782,7 @@ Partial Class frmHauptfenster
         Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
         Me.gridMyAviso.RowHeadersVisible = False
         Me.gridMyAviso.RowHeadersWidth = 62
-        Me.gridMyAviso.Size = New System.Drawing.Size(328, 279)
+        Me.gridMyAviso.Size = New System.Drawing.Size(328, 278)
         Me.gridMyAviso.TabIndex = 0
         '
         'Panel6
@@ -2785,6 +2790,7 @@ Partial Class frmHauptfenster
         Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.Panel6.Controls.Add(Me.cbx_My_Brexit)
         Me.Panel6.Controls.Add(Me.cbx_My_CBAM)
+        Me.Panel6.Controls.Add(Me.cbx_My_VW)
         Me.Panel6.Controls.Add(Me.btnColor)
         Me.Panel6.Controls.Add(Me.lblMeineAviso)
         Me.Panel6.Controls.Add(Me.cboMy_Grenzstelle)
@@ -2798,7 +2804,7 @@ Partial Class frmHauptfenster
         Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel6.Location = New System.Drawing.Point(0, 0)
         Me.Panel6.Name = "Panel6"
-        Me.Panel6.Size = New System.Drawing.Size(328, 21)
+        Me.Panel6.Size = New System.Drawing.Size(328, 22)
         Me.Panel6.TabIndex = 1
         '
         'cbx_My_Brexit
@@ -2827,6 +2833,19 @@ Partial Class frmHauptfenster
         Me.cbx_My_CBAM.UseVisualStyleBackColor = True
         Me.cbx_My_CBAM.Visible = False
         '
+        'cbx_My_VW
+        '
+        Me.cbx_My_VW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cbx_My_VW.AutoSize = True
+        Me.cbx_My_VW.ForeColor = System.Drawing.Color.White
+        Me.cbx_My_VW.Location = New System.Drawing.Point(-370, 3)
+        Me.cbx_My_VW.Name = "cbx_My_VW"
+        Me.cbx_My_VW.Size = New System.Drawing.Size(44, 17)
+        Me.cbx_My_VW.TabIndex = 30
+        Me.cbx_My_VW.Text = "VW"
+        Me.cbx_My_VW.UseVisualStyleBackColor = True
+        Me.cbx_My_VW.Visible = False
+        '
         'btnColor
         '
         Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -4066,15 +4085,6 @@ Partial Class frmHauptfenster
         Me.pnlLeft.TabIndex = 88
         Me.pnlLeft.Visible = False
         '
-        'UsrCntlBenachrichtigungen2
-        '
-        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51)
-        Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
-        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243)
-        Me.UsrCntlBenachrichtigungen2.TabIndex = 1
-        '
         'Panel5
         '
         Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
@@ -4092,11 +4102,23 @@ Partial Class frmHauptfenster
         Me.Panel7.Size = New System.Drawing.Size(252, 51)
         Me.Panel7.TabIndex = 4
         '
-        'DEZollernToolStripMenuItem
+        'UsrCntlBenachrichtigungen1
         '
-        Me.DEZollernToolStripMenuItem.Name = "DEZollernToolStripMenuItem"
+        Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DEZollernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
-        Me.DEZollernToolStripMenuItem.Text = "DE | Zollern"
+        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
+        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(99, 300)
+        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
+        '
+        'UsrCntlBenachrichtigungen2
+        '
+        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51)
+        Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
+        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243)
+        Me.UsrCntlBenachrichtigungen2.TabIndex = 1
         '
         'frmHauptfenster
         '
@@ -4567,4 +4589,6 @@ Partial Class frmHauptfenster
     Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
     Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
     Friend WithEvents DEZollernToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BerechtigungenNeuLadenToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents cbx_My_VW As CheckBox
 End Class

Aviso/frmHauptfensterNew.Designer.vb

@@ -277,9 +277,16 @@ Partial Class frmHauptfensterNew
         Me.btnVIEW_CustControling = New System.Windows.Forms.Button()
         Me.btnDEFAULT_Selected = New System.Windows.Forms.Button()
         Me.btnDEFAULT_UnSelected = New System.Windows.Forms.Button()
+        Me.Button9 = New System.Windows.Forms.Button()
         Me.Panel6 = New System.Windows.Forms.Panel()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.btnKunden = New System.Windows.Forms.Button()
+        Me.btnSpedBuch = New System.Windows.Forms.Button()
+        Me.btnKassenbuch = New System.Windows.Forms.Button()
+        Me.btnFakturierung = New System.Windows.Forms.Button()
+        Me.btnRg = New System.Windows.Forms.Button()
         Me.pnlOptionen = New System.Windows.Forms.Panel()
         Me.btnKasse_User = New System.Windows.Forms.Button()
         Me.btnKasse_LG = New System.Windows.Forms.Button()
@@ -311,22 +318,16 @@ Partial Class frmHauptfensterNew
         Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlLeft = New System.Windows.Forms.Panel()
+        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungenNEW()
         Me.Panel5 = New System.Windows.Forms.Panel()
         Me.cbxChartNurGelesen = New System.Windows.Forms.CheckBox()
         Me.cbxInfoChat = New System.Windows.Forms.CheckBox()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.Panel7 = New System.Windows.Forms.Panel()
-        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
-        Me.btnKunden = New System.Windows.Forms.Button()
-        Me.btnSpedBuch = New System.Windows.Forms.Button()
-        Me.btnKassenbuch = New System.Windows.Forms.Button()
-        Me.btnFakturierung = New System.Windows.Forms.Button()
-        Me.btnRg = New System.Windows.Forms.Button()
-        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungenNEW()
         Me.UsrCntlMessenger_ListNewChats1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ListNewChats()
         Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
         Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
@@ -353,6 +354,7 @@ Partial Class frmHauptfensterNew
         Me.Panel6.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.FlowLayoutPanel2.SuspendLayout()
+        Me.MyFlowLayoutPanel1.SuspendLayout()
         Me.pnlOptionen.SuspendLayout()
         Me.Panel9.SuspendLayout()
         Me.cntxt.SuspendLayout()
@@ -363,7 +365,6 @@ Partial Class frmHauptfensterNew
         Me.Panel5.SuspendLayout()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
-        Me.MyFlowLayoutPanel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'mnuInfo
@@ -1642,7 +1643,7 @@ Partial Class frmHauptfensterNew
         Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0)
         Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0)
         Me.pnlDetailsRechts.Name = "pnlDetailsRechts"
-        Me.pnlDetailsRechts.Size = New System.Drawing.Size(297, 739)
+        Me.pnlDetailsRechts.Size = New System.Drawing.Size(299, 739)
         Me.pnlDetailsRechts.TabIndex = 0
         '
         'lblMitarbeiter
@@ -1684,7 +1685,7 @@ Partial Class frmHauptfensterNew
         Me.lblUsrname.BackColor = System.Drawing.Color.White
         Me.lblUsrname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.lblUsrname.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
-        Me.lblUsrname.Location = New System.Drawing.Point(283, 384)
+        Me.lblUsrname.Location = New System.Drawing.Point(275, 384)
         Me.lblUsrname.Name = "lblUsrname"
         Me.lblUsrname.Size = New System.Drawing.Size(75, 13)
         Me.lblUsrname.TabIndex = 86
@@ -1696,7 +1697,7 @@ Partial Class frmHauptfensterNew
         Me.lblFimaAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblFimaAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblFimaAviso.ForeColor = System.Drawing.Color.Black
-        Me.lblFimaAviso.Location = New System.Drawing.Point(339, 371)
+        Me.lblFimaAviso.Location = New System.Drawing.Point(331, 371)
         Me.lblFimaAviso.Name = "lblFimaAviso"
         Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13)
         Me.lblFimaAviso.TabIndex = 11
@@ -1794,7 +1795,7 @@ Partial Class frmHauptfensterNew
         Me.lblGrenzstelle.BackColor = System.Drawing.Color.White
         Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
-        Me.lblGrenzstelle.Location = New System.Drawing.Point(342, 384)
+        Me.lblGrenzstelle.Location = New System.Drawing.Point(334, 384)
         Me.lblGrenzstelle.Name = "lblGrenzstelle"
         Me.lblGrenzstelle.Size = New System.Drawing.Size(60, 13)
         Me.lblGrenzstelle.TabIndex = 0
@@ -1806,7 +1807,7 @@ Partial Class frmHauptfensterNew
         Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblVersion.ForeColor = System.Drawing.Color.Black
-        Me.lblVersion.Location = New System.Drawing.Point(334, 399)
+        Me.lblVersion.Location = New System.Drawing.Point(326, 399)
         Me.lblVersion.Name = "lblVersion"
         Me.lblVersion.Size = New System.Drawing.Size(68, 13)
         Me.lblVersion.TabIndex = 6
@@ -2042,7 +2043,7 @@ Partial Class frmHauptfensterNew
         Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.disconnect
         Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.pic.Location = New System.Drawing.Point(172, 362)
+        Me.pic.Location = New System.Drawing.Point(164, 362)
         Me.pic.Name = "pic"
         Me.pic.Size = New System.Drawing.Size(59, 50)
         Me.pic.TabIndex = 5
@@ -2071,7 +2072,7 @@ Partial Class frmHauptfensterNew
         Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnlAktOption.Location = New System.Drawing.Point(0, 0)
         Me.pnlAktOption.Name = "pnlAktOption"
-        Me.pnlAktOption.Size = New System.Drawing.Size(774, 5)
+        Me.pnlAktOption.Size = New System.Drawing.Size(780, 5)
         Me.pnlAktOption.TabIndex = 1
         '
         'Button8
@@ -2081,7 +2082,7 @@ Partial Class frmHauptfensterNew
         Me.Button8.ForeColor = System.Drawing.Color.Black
         Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image)
         Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button8.Location = New System.Drawing.Point(1061, 214)
+        Me.Button8.Location = New System.Drawing.Point(1067, 214)
         Me.Button8.Name = "Button8"
         Me.Button8.Size = New System.Drawing.Size(89, 34)
         Me.Button8.TabIndex = 3
@@ -2098,7 +2099,7 @@ Partial Class frmHauptfensterNew
         Me.btnFertig.ForeColor = System.Drawing.Color.Black
         Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image)
         Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnFertig.Location = New System.Drawing.Point(1165, 214)
+        Me.btnFertig.Location = New System.Drawing.Point(1171, 214)
         Me.btnFertig.Name = "btnFertig"
         Me.btnFertig.Size = New System.Drawing.Size(102, 34)
         Me.btnFertig.TabIndex = 0
@@ -2112,7 +2113,7 @@ Partial Class frmHauptfensterNew
         Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.SplitContainer1.IsSplitterFixed = True
-        Me.SplitContainer1.Location = New System.Drawing.Point(408, 30)
+        Me.SplitContainer1.Location = New System.Drawing.Point(400, 30)
         Me.SplitContainer1.Name = "SplitContainer1"
         '
         'SplitContainer1.Panel1
@@ -2125,8 +2126,8 @@ Partial Class frmHauptfensterNew
         Me.SplitContainer1.Panel2.Controls.Add(Me.btnSmall)
         Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts)
         Me.SplitContainer1.Panel2MinSize = 200
-        Me.SplitContainer1.Size = New System.Drawing.Size(1249, 741)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1257, 741)
-        Me.SplitContainer1.SplitterDistance = 949
+        Me.SplitContainer1.SplitterDistance = 955
         Me.SplitContainer1.SplitterWidth = 1
         Me.SplitContainer1.TabIndex = 7
         '
@@ -2139,7 +2140,7 @@ Partial Class frmHauptfensterNew
         Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0)
         Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564)
         Me.pnlDetailsLinks.Name = "pnlDetailsLinks"
-        Me.pnlDetailsLinks.Size = New System.Drawing.Size(947, 739)
+        Me.pnlDetailsLinks.Size = New System.Drawing.Size(953, 739)
         Me.pnlDetailsLinks.TabIndex = 0
         '
         'splitMain
@@ -2166,7 +2167,7 @@ Partial Class frmHauptfensterNew
         Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption)
         Me.splitMain.Panel2.Controls.Add(Me.pnlOptionen)
         Me.splitMain.Panel2.Controls.Add(Me.Panel9)
-        Me.splitMain.Size = New System.Drawing.Size(945, 737)
+        Me.splitMain.Size = New System.Drawing.Size(951, 737)
         Me.splitMain.SplitterDistance = 576
         Me.splitMain.TabIndex = 0
         '
@@ -2186,7 +2187,7 @@ Partial Class frmHauptfensterNew
         'splitMainWorkingView.Panel2
         '
         Me.splitMainWorkingView.Panel2.Controls.Add(Me.pnlMain_Bottom)
-        Me.splitMainWorkingView.Size = New System.Drawing.Size(945, 501)
+        Me.splitMainWorkingView.Size = New System.Drawing.Size(951, 501)
         Me.splitMainWorkingView.SplitterDistance = 350
         Me.splitMainWorkingView.SplitterWidth = 15
         Me.splitMainWorkingView.TabIndex = 9
@@ -2196,7 +2197,7 @@ Partial Class frmHauptfensterNew
         Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlMain.Location = New System.Drawing.Point(0, 0)
         Me.pnlMain.Name = "pnlMain"
-        Me.pnlMain.Size = New System.Drawing.Size(945, 350)
+        Me.pnlMain.Size = New System.Drawing.Size(951, 350)
         Me.pnlMain.TabIndex = 8
         '
         'pnlMain_Bottom
@@ -2204,7 +2205,7 @@ Partial Class frmHauptfensterNew
         Me.pnlMain_Bottom.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlMain_Bottom.Location = New System.Drawing.Point(0, 0)
         Me.pnlMain_Bottom.Name = "pnlMain_Bottom"
-        Me.pnlMain_Bottom.Size = New System.Drawing.Size(945, 136)
+        Me.pnlMain_Bottom.Size = New System.Drawing.Size(951, 136)
         Me.pnlMain_Bottom.TabIndex = 9
         '
         'Panel1
@@ -2216,7 +2217,7 @@ Partial Class frmHauptfensterNew
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(945, 75)
+        Me.Panel1.Size = New System.Drawing.Size(951, 75)
         Me.Panel1.TabIndex = 2
         '
         'Panel8
@@ -2225,7 +2226,7 @@ Partial Class frmHauptfensterNew
         Me.Panel8.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel8.Location = New System.Drawing.Point(0, 65)
         Me.Panel8.Name = "Panel8"
-        Me.Panel8.Size = New System.Drawing.Size(717, 10)
+        Me.Panel8.Size = New System.Drawing.Size(723, 10)
         Me.Panel8.TabIndex = 10
         '
         'FlowLayoutPanel1
@@ -2239,11 +2240,12 @@ Partial Class frmHauptfensterNew
         Me.FlowLayoutPanel1.Controls.Add(Me.btnVIEW_CustControling)
         Me.FlowLayoutPanel1.Controls.Add(Me.btnDEFAULT_Selected)
         Me.FlowLayoutPanel1.Controls.Add(Me.btnDEFAULT_UnSelected)
+        Me.FlowLayoutPanel1.Controls.Add(Me.Button9)
         Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
         Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
         Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
-        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(717, 65)
+        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(723, 65)
         Me.FlowLayoutPanel1.TabIndex = 6
         '
         'btnVIEW_LKW
@@ -2370,11 +2372,29 @@ Partial Class frmHauptfensterNew
         Me.btnDEFAULT_UnSelected.UseVisualStyleBackColor = False
         Me.btnDEFAULT_UnSelected.Visible = False
         '
+        'Button9
+        '
+        Me.Button9.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
+        Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.Button9.FlatAppearance.BorderSize = 0
+        Me.Button9.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.Button9.ForeColor = System.Drawing.Color.White
+        Me.Button9.Location = New System.Drawing.Point(338, 79)
+        Me.Button9.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(158, 47)
+        Me.Button9.TabIndex = 11
+        Me.Button9.TabStop = False
+        Me.Button9.Text = "DISPO"
+        Me.ToolTip1.SetToolTip(Me.Button9, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
+        "d sortiert nach Dauer")
+        Me.Button9.UseVisualStyleBackColor = False
+        '
         'Panel6
         '
         Me.Panel6.Controls.Add(Me.PictureBox1)
         Me.Panel6.Dock = System.Windows.Forms.DockStyle.Right
-        Me.Panel6.Location = New System.Drawing.Point(717, 0)
+        Me.Panel6.Location = New System.Drawing.Point(723, 0)
         Me.Panel6.Name = "Panel6"
         Me.Panel6.Size = New System.Drawing.Size(228, 75)
         Me.Panel6.TabIndex = 9
@@ -2401,9 +2421,117 @@ Partial Class frmHauptfensterNew
         Me.FlowLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Top
         Me.FlowLayoutPanel2.Location = New System.Drawing.Point(181, 70)
         Me.FlowLayoutPanel2.Name = "FlowLayoutPanel2"
-        Me.FlowLayoutPanel2.Size = New System.Drawing.Size(593, 65)
+        Me.FlowLayoutPanel2.Size = New System.Drawing.Size(599, 65)
         Me.FlowLayoutPanel2.TabIndex = 86
         '
+        'MyFlowLayoutPanel1
+        '
+        Me.MyFlowLayoutPanel1.AutoScroll = True
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg)
+        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5)
+        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(599, 65)
+        Me.MyFlowLayoutPanel1.TabIndex = 85
+        '
+        'btnKunden
+        '
+        Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnKunden.ForeColor = System.Drawing.Color.Black
+        Me.btnKunden.Image = Global.AVISO.My.Resources.Resources.ico_kunden
+        Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnKunden.Location = New System.Drawing.Point(3, 3)
+        Me.btnKunden.Name = "btnKunden"
+        Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnKunden.Size = New System.Drawing.Size(150, 50)
+        Me.btnKunden.TabIndex = 2
+        Me.btnKunden.TabStop = False
+        Me.btnKunden.Text = "Kunden"
+        Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnKunden.UseVisualStyleBackColor = False
+        '
+        'btnSpedBuch
+        '
+        Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black
+        Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.ico_speditionsbuch
+        Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSpedBuch.Location = New System.Drawing.Point(159, 3)
+        Me.btnSpedBuch.Name = "btnSpedBuch"
+        Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50)
+        Me.btnSpedBuch.TabIndex = 3
+        Me.btnSpedBuch.TabStop = False
+        Me.btnSpedBuch.Text = "Sped.Buch"
+        Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSpedBuch.UseVisualStyleBackColor = False
+        '
+        'btnKassenbuch
+        '
+        Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black
+        Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.ico_kassenbuch
+        Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnKassenbuch.Location = New System.Drawing.Point(315, 3)
+        Me.btnKassenbuch.Name = "btnKassenbuch"
+        Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50)
+        Me.btnKassenbuch.TabIndex = 8
+        Me.btnKassenbuch.TabStop = False
+        Me.btnKassenbuch.Text = "Kassenbuch"
+        Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnKassenbuch.UseVisualStyleBackColor = False
+        Me.btnKassenbuch.Visible = False
+        '
+        'btnFakturierung
+        '
+        Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
+        Me.btnFakturierung.Image = Global.AVISO.My.Resources.Resources.ico_fakturierung
+        Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnFakturierung.Location = New System.Drawing.Point(3, 59)
+        Me.btnFakturierung.Name = "btnFakturierung"
+        Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnFakturierung.Size = New System.Drawing.Size(150, 50)
+        Me.btnFakturierung.TabIndex = 11
+        Me.btnFakturierung.TabStop = False
+        Me.btnFakturierung.Text = "Fakturierung"
+        Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnFakturierung.UseVisualStyleBackColor = False
+        Me.btnFakturierung.Visible = False
+        '
+        'btnRg
+        '
+        Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnRg.ForeColor = System.Drawing.Color.Black
+        Me.btnRg.Image = Global.AVISO.My.Resources.Resources.ico_rechnungen
+        Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRg.Location = New System.Drawing.Point(159, 59)
+        Me.btnRg.Name = "btnRg"
+        Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnRg.Size = New System.Drawing.Size(150, 50)
+        Me.btnRg.TabIndex = 9
+        Me.btnRg.TabStop = False
+        Me.btnRg.Text = "Rechnungen"
+        Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRg.UseVisualStyleBackColor = False
+        Me.btnRg.Visible = False
+        '
         'pnlOptionen
         '
         Me.pnlOptionen.BackColor = System.Drawing.Color.Black
@@ -2469,7 +2597,7 @@ Partial Class frmHauptfensterNew
         Me.Panel9.Controls.Add(Me.Button6)
         Me.Panel9.Controls.Add(Me.btnDrucken)
         Me.Panel9.Dock = System.Windows.Forms.DockStyle.Right
-        Me.Panel9.Location = New System.Drawing.Point(774, 0)
+        Me.Panel9.Location = New System.Drawing.Point(780, 0)
         Me.Panel9.Name = "Panel9"
         Me.Panel9.Size = New System.Drawing.Size(171, 157)
         Me.Panel9.TabIndex = 88
@@ -2677,9 +2805,17 @@ Partial Class frmHauptfensterNew
         Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left
         Me.pnlLeft.Location = New System.Drawing.Point(0, 30)
         Me.pnlLeft.Name = "pnlLeft"
-        Me.pnlLeft.Size = New System.Drawing.Size(408, 741)
+        Me.pnlLeft.Size = New System.Drawing.Size(400, 741)
         Me.pnlLeft.TabIndex = 88
         '
+        'UsrCntlBenachrichtigungen2
+        '
+        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
+        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
+        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(400, 315)
+        Me.UsrCntlBenachrichtigungen2.TabIndex = 5
+        '
         'Panel5
         '
         Me.Panel5.BackColor = System.Drawing.Color.White
@@ -2698,7 +2834,7 @@ Partial Class frmHauptfensterNew
         Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel5.Location = New System.Drawing.Point(0, 325)
         Me.Panel5.Name = "Panel5"
-        Me.Panel5.Size = New System.Drawing.Size(408, 416)
+        Me.Panel5.Size = New System.Drawing.Size(400, 416)
         Me.Panel5.TabIndex = 3
         '
         'cbxChartNurGelesen
@@ -2731,7 +2867,7 @@ Partial Class frmHauptfensterNew
         Me.TabControl1.Location = New System.Drawing.Point(0, 0)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(408, 301)
+        Me.TabControl1.Size = New System.Drawing.Size(400, 301)
         Me.TabControl1.TabIndex = 85
         '
         'TabPage1
@@ -2740,154 +2876,18 @@ Partial Class frmHauptfensterNew
         Me.TabPage1.Location = New System.Drawing.Point(4, 25)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(400, 272)
+        Me.TabPage1.Size = New System.Drawing.Size(392, 272)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Chat"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
-        'Panel7
-        '
-        Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Panel7.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel7.Location = New System.Drawing.Point(0, 0)
-        Me.Panel7.Name = "Panel7"
-        Me.Panel7.Size = New System.Drawing.Size(408, 10)
-        Me.Panel7.TabIndex = 4
-        '
-        'UsrCntlTestsystem1
-        '
-        Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
-        Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
-        Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
-        Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
-        Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
-        Me.UsrCntlTestsystem1.TabIndex = 8
-        '
-        'MyFlowLayoutPanel1
-        '
-        Me.MyFlowLayoutPanel1.AutoScroll = True
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden)
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch)
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch)
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung)
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg)
-        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5)
-        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
-        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(593, 65)
-        Me.MyFlowLayoutPanel1.TabIndex = 85
-        '
-        'btnKunden
-        '
-        Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnKunden.ForeColor = System.Drawing.Color.Black
-        Me.btnKunden.Image = Global.AVISO.My.Resources.Resources.ico_kunden
-        Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnKunden.Location = New System.Drawing.Point(3, 3)
-        Me.btnKunden.Name = "btnKunden"
-        Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnKunden.Size = New System.Drawing.Size(150, 50)
-        Me.btnKunden.TabIndex = 2
-        Me.btnKunden.TabStop = False
-        Me.btnKunden.Text = "Kunden"
-        Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnKunden.UseVisualStyleBackColor = False
-        '
-        'btnSpedBuch
-        '
-        Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black
-        Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.ico_speditionsbuch
-        Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnSpedBuch.Location = New System.Drawing.Point(159, 3)
-        Me.btnSpedBuch.Name = "btnSpedBuch"
-        Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50)
-        Me.btnSpedBuch.TabIndex = 3
-        Me.btnSpedBuch.TabStop = False
-        Me.btnSpedBuch.Text = "Sped.Buch"
-        Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSpedBuch.UseVisualStyleBackColor = False
-        '
-        'btnKassenbuch
-        '
-        Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black
-        Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.ico_kassenbuch
-        Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnKassenbuch.Location = New System.Drawing.Point(315, 3)
-        Me.btnKassenbuch.Name = "btnKassenbuch"
-        Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50)
-        Me.btnKassenbuch.TabIndex = 8
-        Me.btnKassenbuch.TabStop = False
-        Me.btnKassenbuch.Text = "Kassenbuch"
-        Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnKassenbuch.UseVisualStyleBackColor = False
-        Me.btnKassenbuch.Visible = False
-        '
-        'btnFakturierung
-        '
-        Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
-        Me.btnFakturierung.Image = Global.AVISO.My.Resources.Resources.ico_fakturierung
-        Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnFakturierung.Location = New System.Drawing.Point(3, 59)
-        Me.btnFakturierung.Name = "btnFakturierung"
-        Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnFakturierung.Size = New System.Drawing.Size(150, 50)
-        Me.btnFakturierung.TabIndex = 11
-        Me.btnFakturierung.TabStop = False
-        Me.btnFakturierung.Text = "Fakturierung"
-        Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnFakturierung.UseVisualStyleBackColor = False
-        Me.btnFakturierung.Visible = False
-        '
-        'btnRg
-        '
-        Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnRg.ForeColor = System.Drawing.Color.Black
-        Me.btnRg.Image = Global.AVISO.My.Resources.Resources.ico_rechnungen
-        Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnRg.Location = New System.Drawing.Point(159, 59)
-        Me.btnRg.Name = "btnRg"
-        Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnRg.Size = New System.Drawing.Size(150, 50)
-        Me.btnRg.TabIndex = 9
-        Me.btnRg.TabStop = False
-        Me.btnRg.Text = "Rechnungen"
-        Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnRg.UseVisualStyleBackColor = False
-        Me.btnRg.Visible = False
-        '
-        'UsrCntlBenachrichtigungen2
-        '
-        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
-        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
-        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(408, 315)
-        Me.UsrCntlBenachrichtigungen2.TabIndex = 5
-        '
         'UsrCntlMessenger_ListNewChats1
         '
         Me.UsrCntlMessenger_ListNewChats1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.UsrCntlMessenger_ListNewChats1.Location = New System.Drawing.Point(3, 3)
         Me.UsrCntlMessenger_ListNewChats1.Margin = New System.Windows.Forms.Padding(4)
         Me.UsrCntlMessenger_ListNewChats1.Name = "UsrCntlMessenger_ListNewChats1"
-        Me.UsrCntlMessenger_ListNewChats1.Size = New System.Drawing.Size(394, 266)
+        Me.UsrCntlMessenger_ListNewChats1.Size = New System.Drawing.Size(386, 266)
         Me.UsrCntlMessenger_ListNewChats1.TabIndex = 0
         '
         'btnMitarbeiterKonto
@@ -2900,7 +2900,7 @@ Partial Class frmHauptfensterNew
         Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
         Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
         Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(268, 307)
+        Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(260, 307)
         Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
         Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
         Me.btnMitarbeiterKonto.TabIndex = 86
@@ -2908,6 +2908,26 @@ Partial Class frmHauptfensterNew
         Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
         '
+        'Panel7
+        '
+        Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel7.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel7.Location = New System.Drawing.Point(0, 0)
+        Me.Panel7.Name = "Panel7"
+        Me.Panel7.Size = New System.Drawing.Size(400, 10)
+        Me.Panel7.TabIndex = 4
+        '
+        'UsrCntlTestsystem1
+        '
+        Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
+        Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
+        Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
+        Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
+        Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
+        Me.UsrCntlTestsystem1.TabIndex = 8
+        '
         'UidAbfrageService1
         '
         Me.UidAbfrageService1.Credentials = Nothing
@@ -2961,6 +2981,7 @@ Partial Class frmHauptfensterNew
         Me.Panel6.ResumeLayout(False)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.FlowLayoutPanel2.ResumeLayout(False)
+        Me.MyFlowLayoutPanel1.ResumeLayout(False)
         Me.pnlOptionen.ResumeLayout(False)
         Me.Panel9.ResumeLayout(False)
         Me.cntxt.ResumeLayout(False)
@@ -2973,7 +2994,6 @@ Partial Class frmHauptfensterNew
         Me.Panel5.PerformLayout()
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
-        Me.MyFlowLayoutPanel1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -3282,4 +3302,5 @@ Partial Class frmHauptfensterNew
     Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
     Friend WithEvents Button7 As Button
     Friend WithEvents cbxChartNurGelesen As CheckBox
+    Friend WithEvents Button9 As Button
 End Class

Aviso/frmHauptfensterNew.resx

@@ -192,9 +192,6 @@
         AAAAAElFTkSuQmCC
 </value>
   </data>
-  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>560, 17</value>
-  </metadata>
   <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>659, 17</value>
   </metadata>

Aviso/frmHauptfensterNew.vb

@@ -65,6 +65,7 @@ Public Class frmHauptfensterNew
 
 
     Dim SEARCH_AVISO As usrCntlHauptfenster_Suche_AVISO = Nothing
+    Dim SEARCH_CUSTOMS_CASES As usrCntlHauptfenster_Suche_Zollvorgaenge = Nothing
     Dim SEARCH_SND As usrCntlHauptfenster_Suche_SND = Nothing
     Dim SEARCH_AVISO_AKTIV As String = "AVISO"
 
@@ -87,6 +88,107 @@ Public Class frmHauptfensterNew
         End If
     End Sub
 
+    Private pnlLeftOriginalWidth As Integer
+
+
+    Private Class ButtonScaleInfo
+        Public OriginalWidth As Integer
+        Public OriginalHeight As Integer
+        Public OriginalFontSize As Single
+    End Class
+
+    Private ReadOnly _buttonScaleInfos As New Dictionary(Of Button, ButtonScaleInfo)
+    Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles MyBase.ResizeEnd
+
+        pnlLeftOriginalWidth = 400
+
+        Dim Panel6OriginalWidth As Integer = 228
+        Dim screenWidth As Integer = Me.Width
+
+        Dim schwelle1 As Integer = 1500
+        Dim schwelle2 As Integer = 1920
+
+        If screenWidth <= schwelle1 Then
+
+            pnlLeft.Width = CInt(pnlLeftOriginalWidth * 0.6)
+            Panel6.Width = CInt(Panel6OriginalWidth * 0.0)
+
+        ElseIf screenWidth <= schwelle2 Then
+
+            pnlLeft.Width = CInt(pnlLeftOriginalWidth * 0.75)
+            Panel6.Width = CInt(Panel6OriginalWidth * 0.5)
+
+        Else
+
+            pnlLeft.Width = pnlLeftOriginalWidth
+            Panel6.Width = Panel6OriginalWidth
+
+        End If
+
+
+        'Buttons skalieren
+        Dim buttonFaktor As Double
+
+        If screenWidth <= schwelle1 Then
+            buttonFaktor = 0.7
+
+        ElseIf screenWidth <= schwelle2 Then
+            buttonFaktor = 0.8
+
+        Else
+            buttonFaktor = 1.0
+        End If
+
+        ScaleButtons(FlowLayoutPanel1, buttonFaktor)
+        ScaleButtons(splitMain.Panel2, buttonFaktor)
+
+    End Sub
+    Private Sub ScaleButtons(parent As Control, buttonFaktor As Double)
+
+        For Each ctrl As Control In parent.Controls
+
+            If TypeOf ctrl Is Button Then
+
+                Dim btn As Button = DirectCast(ctrl, Button)
+
+                'Originalwerte nur einmal speichern
+                If Not _buttonScaleInfos.ContainsKey(btn) Then
+
+                    _buttonScaleInfos.Add(
+                    btn,
+                    New ButtonScaleInfo With {
+                        .OriginalWidth = btn.Width,
+                        .OriginalHeight = btn.Height,
+                        .OriginalFontSize = btn.Font.Size
+                    }
+                )
+
+                End If
+
+                Dim original As ButtonScaleInfo = _buttonScaleInfos(btn)
+
+                'Immer vom Original aus skalieren
+                btn.Width = CInt(original.OriginalWidth * buttonFaktor)
+                btn.Height = CInt(original.OriginalHeight * buttonFaktor)
+
+                btn.Font = New Font(
+                btn.Font.FontFamily,
+                original.OriginalFontSize * CSng(buttonFaktor),
+                btn.Font.Style
+            )
+
+            End If
+
+            'Untergeordnete Controls ebenfalls durchsuchen
+            If ctrl.HasChildren Then
+                ScaleButtons(ctrl, buttonFaktor)
+            End If
+
+        Next
+
+    End Sub
+
+
     Private Sub frmHauptfenster_GotFocus(sender As Object, e As EventArgs) Handles MyBase.GotFocus
         Timer1_Tick(Timer1, New EventArgs)
     End Sub
@@ -177,12 +279,12 @@ Public Class frmHauptfensterNew
             Case "CUSTOMS_CONTROLLING"
                 splitMainWorkingView.Panel2Collapsed = True
                 SetBtnSelectedolor(btnVIEW_CustControling)
-                'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
+                If SEARCH_CUSTOMS_CASES Is Nothing Then SEARCH_CUSTOMS_CASES = New usrCntlHauptfenster_Suche_Zollvorgaenge
-                'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
+                SEARCH_CUSTOMS_CASES.PARENT_FRMHAUPTFENSTER = Me
-                'pnlMain.Controls.Add(SEARCH_AVISO)
+                pnlMain.Controls.Add(SEARCH_CUSTOMS_CASES)
-                'SEARCH_AVISO.Dock = DockStyle.Fill
+                SEARCH_CUSTOMS_CASES.Dock = DockStyle.Fill
                 pnlMain.PerformLayout()
-                SEARCH_AVISO.PerformLayout()
+                SEARCH_CUSTOMS_CASES.PerformLayout()
                 Application.DoEvents()
 
         End Select
@@ -414,6 +516,8 @@ Public Class frmHauptfensterNew
             End If
         End If
 
+        pnlLeftOriginalWidth = pnlLeft.Width
+
         'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         Me.AutoScaleMode = AutoScaleMode.Dpi
         hideErr.Interval = 3000
@@ -2014,6 +2118,8 @@ ELSE_ATILLA:
         Me.Size = Screen.PrimaryScreen.WorkingArea.Size
         '    MsgBox(Me.Size.Height)
 
+
+
         Details_aktiv = True
         '        If gridMyAviso.RowCount > 0 Then
         'gridMyAviso.Rows(0).Selected = True
@@ -2099,6 +2205,8 @@ ELSE_ATILLA:
         'Evtl abhängign vom User machen:
         SWITCH_SEARCH("AVISO")
 
+
+
     End Sub
 
     Private Function getTbControlWidth(tbcntr) As Integer
@@ -2372,9 +2480,9 @@ ELSE_ATILLA:
         Try
 
 
-            Dim MIC = New VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment
+            'Dim MIC = New VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment
-            MIC.ImportShipmentMessage.ImportShipment.Shipment.company = "UK"
+            'MIC.ImportShipmentMessage.ImportShipment.Shipment.company = "UK"
-            MIC.SaveToFile("C:\VeragTMP\Test2.xml")
+            'MIC.SaveToFile("C:\VeragTMP\Test2.xml")
 
             'Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\Test.xml")
             ''Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\MicCustImportShipment_Sample.xml")
@@ -4218,6 +4326,7 @@ ELSE_ATILLA:
 
     Private Sub cbxChartNurGelesen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxChartNurGelesen.CheckedChanged
         VERAG_PROG_ALLGEMEIN.cGlobal.CHAT_NurGelesen = cbxChartNurGelesen.Checked
+        UsrCntlMessenger_ListNewChats1.initFontSizeSmaller()
         UsrCntlMessenger_ListNewChats1.intiDGVChats()
     End Sub
 End Class

Aviso/frmSendungsdetailsNEU.vb

@@ -1,17 +1,17 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports System.Data.SqlClient
-
-Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
 Imports System.Drawing.Printing
+Imports System.Globalization
+Imports System.IO
 Imports System.Management
-Imports System.Data.SqlClient
+Imports DAKOSY_Worker
+Imports DocumentFormat.OpenXml.Presentation
+Imports EAGetMail
+Imports iText.Layout.Element
 Imports iTextSharp.text.pdf
 Imports Microsoft.Office.Interop
-Imports DocumentFormat.OpenXml.Presentation
 Imports SDL
-Imports System.IO
+Imports VERAG_PROG_ALLGEMEIN
-Imports EAGetMail
+Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
-Imports System.Globalization
-Imports iText.Layout.Element
 
 Public Class frmSendungsdetailsNEU
     Public AvisoId As Integer
@@ -148,6 +148,7 @@ Public Class frmSendungsdetailsNEU
         loadDataInLIST()
 
         doVeranlagungsValidation()
+
         If VALIDATE_ME() Then
 
             SAVE_ME = True
@@ -296,7 +297,6 @@ Public Class frmSendungsdetailsNEU
                 'End If
                 If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
 
-
                     If Not IsValid18AlphaNumericCode(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1) Then
                         Dim err = "T1/Vorpapier nicht korrekt (18-stellig)!"
                         rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
@@ -326,30 +326,50 @@ Public Class frmSendungsdetailsNEU
                         (cboVorpapier2.Text.Trim <> "" AndAlso txtVorpapier2Pos.Text.Trim = "" Or cboVorpapier2.Text.Trim = "" AndAlso txtVorpapier2Pos.Text.Trim <> "") OrElse
                         (cboVorpapier3.Text.Trim <> "" AndAlso txtVorpapier3Pos.Text.Trim = "" Or cboVorpapier3.Text.Trim = "" AndAlso txtVorpapier3Pos.Text.Trim <> "")
 
+
+            Dim missingWarenwert As Boolean = (txtWarenwert.Text.Trim = "" OrElse txtWarenwertWaehrung.Text.Trim = "") AndAlso (
+                                                                                                                                cboVorpapier.Text.Trim <> "" OrElse
+                                                                                                                                txtVorpapierPos.Text.Trim <> "" OrElse
+                                                                                                                                cboVorpapier2.Text.Trim <> "" OrElse
+                                                                                                                                txtVorpapier2Pos.Text.Trim <> "" OrElse
+                                                                                                                                cboVorpapier3.Text.Trim <> "" OrElse
+                                                                                                                                txtVorpapier3Pos.Text.Trim <> ""
+                                                                                                                            )
+
+
             Dim hasIssue As Boolean
 
-            If isVerimex Then
+            hasIssue = (invalidPrepaper OrElse missingPosition)
-                hasIssue = (invalidPrepaper OrElse missingPosition)
-            Else
-                hasIssue = (invalidPrepaper OrElse missingPosition)
-            End If
 
             Dim InfoMsg As String
 
             If isVerimex Then
-                InfoMsg = "Pre-Paper/PosNr data is invalid or incomplete. Continue?"
+                InfoMsg = "Pre-Paper/PosNr data is invalid or incomplete." & vbCrLf & vbCrLf & "Do you want to continue anyway?"
             Else
-                InfoMsg = "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig, fortfahren?"
+                InfoMsg = "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig." & vbCrLf & vbCrLf & "Möchten Sie trotzdem fortfahren?"
+            End If
+
+            If Not hasIssue Then
+                hasIssue = missingWarenwert
+                If isVerimex Then
+                    InfoMsg = "The value of the goods has not been entered." & vbCrLf & vbCrLf & "Do you want to continue anyway?"
+                Else
+                    InfoMsg = "Der Warenwert wurde nicht eingetragen." & vbCrLf & vbCrLf & "Möchten Sie trotzdem fortfahren?"
+                End If
             End If
 
             If hasIssue Then
-
                 If showErr Then
-                    If MsgBox(InfoMsg, vbYesNoCancel) <> vbYes Then
+                    If MsgBox(InfoMsg, vbYesNoCancel Or vbExclamation Or vbDefaultButton2, "Warning") <> vbYes Then
+                        If InfoMsg.Contains("Warenwert") Then
+                            txtWarenwert.Focus()
+                        Else
+                            txtVorpapierPos.Focus()
+                        End If
+
                         Return False
                     End If
                 End If
-
             End If
 
 
@@ -364,6 +384,28 @@ Public Class frmSendungsdetailsNEU
                 rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
 
             End If
+            Dim isATB = SENDUNG_LIST.Any(Function(r) r.tblSnd_Abfertigungsart_ID = 44)
+
+            If isATB Then
+
+                Dim invalidSendung = SENDUNG_LIST.FirstOrDefault(Function(r) r.tblSnd_Abfertigungsart_ID <> 44 AndAlso ((String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier) OrElse
+             String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier_Pos)) OrElse
+            ((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse
+              Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos)) AndAlso
+             (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse
+              String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos))) OrElse
+            ((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse
+              Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)) AndAlso
+             (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse
+              String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)))))
+
+                If invalidSendung IsNot Nothing Then
+                    Dim err = "Sendung " & invalidSendung.tblSnd_PosUnterNr & " Vorp-Nr/PosNr fehlt/ist falsch."
+                    rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
+                End If
+
+            End If
+
 
 
 
@@ -693,7 +735,7 @@ Public Class frmSendungsdetailsNEU
                     cboFiliale._allowFreiText = Nothing
                 Case Else
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                        Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839", "7001"}
+                        Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839", "6101", "7001"}
                         Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
                         Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"}
                         Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"}
@@ -1087,28 +1129,34 @@ Public Class frmSendungsdetailsNEU
         initZollTarife(c.KdNr)
     End Sub
     Private Sub frmSendungsdetailsShown(sender As Object, e As EventArgs) Handles Me.Shown
-        If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
+        Try
-            Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
-            u.Dock = DockStyle.Fill
-            tbZollabfertigung.Controls.Clear()
-            tbZollabfertigung.Controls.Add(u)
-        Else
-            'TabControl1.TabPages.Remove(tbZollabfertigung)
-        End If
 
-        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then
+
-            Me.Close()
+            If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
-        End If
+                Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
-        If TabControl1.SelectedTab Is tbKundenInfo Then
+                u.Dock = DockStyle.Fill
-            txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt 
+                tbZollabfertigung.Controls.Clear()
-        End If
+                tbZollabfertigung.Controls.Add(u)
-        '  Button13.Location = New Point(Button13.Left, 0)
+            Else
-        '   Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me)
+                'TabControl1.TabPages.Remove(tbZollabfertigung)
-        ' If ber >= 99 Then
+            End If
-        'Me.Dispose()
+
-        'Me.Close()
+            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then
-        ' Exit Sub
+                Me.Close()
-        'nd If
+            End If
+            If TabControl1.SelectedTab Is tbKundenInfo Then
+                txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt 
+            End If
+            '  Button13.Location = New Point(Button13.Left, 0)
+            '   Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me)
+            ' If ber >= 99 Then
+            'Me.Dispose()
+            'Me.Close()
+            ' Exit Sub
+            'nd If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
     End Sub
 
     Sub changeSelectedButton()
@@ -1500,11 +1548,11 @@ Public Class frmSendungsdetailsNEU
 
             Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
                 Case "FRONTOFFICE"
-                    whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801,5802,7001) "
+                    whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801,5802,6101,7001) "
                     If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
-                        whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5802,5701,7001) "
+                        whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5802,5701,6101,7001) "
                     ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
-                        whereFiliale = " AND FilialenNr IN (4801,4802,4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5802,5701,7001) "
+                        whereFiliale = " AND FilialenNr IN (4801,4802,4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5802,5701,6101,7001) "
                     End If
 
                 Case Else
@@ -2018,7 +2066,7 @@ Public Class frmSendungsdetailsNEU
 
         If SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen Then
             btnSpeditionsbuchEintragen.BackgroundImage = My.Resources.speditionsbuchAktiv
-            setTooltioBtn(btnSpeditionsbuchEintragen, "Speditionsbuch Eingetrag öffnen")
+            setTooltioBtn(btnSpeditionsbuchEintragen, "Speditionsbucheintrag öffnen")
         End If
 
 
@@ -2055,9 +2103,13 @@ Public Class frmSendungsdetailsNEU
         End Select
 
 
-        Dim vorhanden = False
+        Dim vorhanden As Integer = 0
         If SENDUNG_LIST(CURRENT_INDEX).FilialenNr > 0 AndAlso SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0 Then
-            vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "' AND AbfertigungsNr='" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
+            Dim result As String = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "' AND AbfertigungsNr='" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "'", "FMZOLL")
+            If result <> "" Then
+                vorhanden = CInt(result)
+            End If
+            ' AND UnterNr='" & txtUnterNr.Text & "'
         End If
         'cbxSpedBuch.Checked = (vorhanden > 0)
         SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
@@ -2654,8 +2706,12 @@ Public Class frmSendungsdetailsNEU
             txtAbfertigungsnummer.Text = posnr.Abfertigungsnummer
             txtUnterNr.Text = posnr.UnterNr
             'cbxSpedBuch.Checked = (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 = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
+            Dim vorhanden As Integer = 0 ' AND UnterNr='" & txtUnterNr.Text & "'
+            Dim result As String = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL")
             'cbxSpedBuch.Checked = (vorhanden > 0)
+            If result <> "" Then
+                vorhanden = CInt(result)
+            End If
             SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
 
         End If
@@ -2884,18 +2940,22 @@ Public Class frmSendungsdetailsNEU
             Case "44"
                 pnlT1.Controls.Add(usrcntl_ATB)
 
-                cboVorpapier._value = ""
+                cboVorpapier.changeItem("")
-                cboVorpapier2._value = ""
+                cboVorpapier2.changeItem("")
-                cboVorpapier3._value = ""
+                cboVorpapier3.changeItem("")
+
                 txtVorpapierPos.Text = ""
                 txtVorpapier2Pos.Text = ""
                 txtVorpapier3Pos.Text = ""
+
                 cboVorpapier.Enabled = False
                 cboVorpapier2.Enabled = False
                 cboVorpapier3.Enabled = False
+
                 txtVorpapierPos.Enabled = False
                 txtVorpapier2Pos.Enabled = False
                 txtVorpapier3Pos.Enabled = False
+
         End Select
 
 
@@ -4371,7 +4431,10 @@ Public Class frmSendungsdetailsNEU
                 Dim f As SDL.frmFormulare = Nothing
                 SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
                 AddHandler f.FormClosing, Sub()
-                                              If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1)
+                                              If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma <> "24" Then
+                                                  If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1)
+                                              End If
+
                                           End Sub
 
         End Select
@@ -7620,6 +7683,21 @@ Public Class frmSendungsdetailsNEU
                             TextHTML = TextHTML.Replace("%LKW%", AVISO.LKW_Nr)
                             TextHTML = TextHTML.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
 
+                            If AVISO.VORPAPIERE IsNot Nothing AndAlso AVISO.VORPAPIERE.Count > 0 Then
+                                Dim VorpapierNr As String = ""
+
+                                For Each VORP In AVISO.VORPAPIERE
+                                    VorpapierNr &= VORP.vp_Nr & ","
+                                Next
+
+                                If VorpapierNr <> "" AndAlso VorpapierNr.ToString.EndsWith(",") Then
+                                    VorpapierNr = VorpapierNr.Substring(0, VorpapierNr.Length - 1)
+                                End If
+
+                                TextHTML = TextHTML.Replace("%VorpapierNr%", VorpapierNr)
+
+                            End If
+
                             If AVISO.VoraussichtlichesEintreffen IsNot Nothing Then
                                 TextHTML = TextHTML.Replace("%voraus-Eintreffen%", CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString)
                                 Mail.Subject = Mail.Subject.Replace("%voraus-Eintreffen%", CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString)
@@ -7709,6 +7787,7 @@ Public Class frmSendungsdetailsNEU
                         TextHTML = TextHTML.Replace("%Gewicht%", "")
                         TextHTML = TextHTML.Replace("%ImEx%", "")
                         TextHTML = TextHTML.Replace("%Zollstelle%", "")
+                        TextHTML = TextHTML.Replace("T1.: %VorpapierNr%", "")
 
                         For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
                             Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
@@ -8161,18 +8240,61 @@ Public Class frmSendungsdetailsNEU
 
     Private Sub btnATEZNewEZA_Click(sender As Object, e As EventArgs) Handles btnATEZNewEZA.Click
         SAVE_ME()
-
         Try
-            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
-                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
-                Dim frmAttilaATEZNCTS = New frmATEZ_EZA(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
-                frmAttilaATEZNCTS.Show(Me)
 
-                AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+            Select Case cboAbfertigungsLand._value
-                                                              initdgvATEZ()
+
-                                                              Me.BringToFront()
+                Case "DE"
-                                                          End Function
+                    If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
-            End If
+                        Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                        Dim frmAttilaATEZNCTS = New frmATEZ_EZA(AVISO, SND, Now.ToString("yy"))
+                        frmAttilaATEZNCTS.Show(Me)
+
+                        AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+                                                                      initdgvATEZ()
+                                                                      Me.BringToFront()
+                                                                  End Function
+                    End If
+
+                Case "UK", "GB"
+
+                    If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                        Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                        Dim frmAttilaATEZNCTS = New frmATEZ_UK_MODAL(AVISO, SND, Now.ToString("yy"))
+                        frmAttilaATEZNCTS.Show(Me)
+
+                        AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+                                                                      initdgvATEZ()
+                                                                      Me.BringToFront()
+                                                                  End Function
+                    End If
+
+
+                Case "NL"
+                    If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                        Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                        Dim frmAttilaATEZNCTS = New frmATEZ_MIC(AVISO, SND, Now.ToString("yy"))
+                        frmAttilaATEZNCTS.Show(Me)
+
+                        AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+                                                                      initdgvATEZ()
+                                                                      Me.BringToFront()
+                                                                  End Function
+                    End If
+                Case "AT"
+                    If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                        Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                        Dim frmAttilaATEZNCTS = New frmATEZ_TELOTEC(AVISO, SND, Now.ToString("yy"))
+                        frmAttilaATEZNCTS.Show(Me)
+
+                        AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+                                                                      initdgvATEZ()
+                                                                      Me.BringToFront()
+                                                                  End Function
+                    End If
+            End Select
+
+
 
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
@@ -8203,7 +8325,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbklaerungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbklaerungTR.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungAbklaerungTR(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungAbklaerungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8212,7 +8334,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusVorbereitetQS_Click(sender As Object, e As EventArgs) Handles btnStatusVorbereitetQS.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungVorbereitetQS(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungVorbereitetQS(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8221,7 +8343,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnStatusVorgeschrieben.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungVorgeschrieben(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungVorgeschrieben(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8230,7 +8352,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbfertigungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbfertigungTR.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungAbfertigungTR(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungAbfertigungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8240,7 +8362,7 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
         If Not cbxFremdspedition.Checked Then
-            If AVISOFUNC.setSendungSpeditionsbuchEintrag(SendungID, AvisoId) Then
+            If AVISOFUNC.setSendungSpeditionsbuchEintrag(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
                 initDataBinding()
             End If
         End If
@@ -8250,7 +8372,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnSendungFakturiert_Click(sender As Object, e As EventArgs) Handles btnSendungFakturiert.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungFakturiert(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungFakturiert(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8286,4 +8408,60 @@ Public Class frmSendungsdetailsNEU
         Return value.All(Function(c) Char.IsLetterOrDigit(c))
     End Function
 
+    Private Sub Button20_Click_2(sender As Object, e As EventArgs) Handles Button20.Click
+        SAVE_ME()
+        Try
+
+
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                Dim frmAttilaATEZNCTS = New frmATEZ_MIC(AVISO, SND, Now.ToString("yy"))
+                frmAttilaATEZNCTS.Show(Me)
+
+                AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+                                                              initdgvATEZ()
+                                                              Me.BringToFront()
+                                                          End Function
+
+            End If
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+
+
+
+    Private Sub TestFillTetrapakToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestFillTetrapakToolStripMenuItem.Click
+        Try
+            If CURRENT_INDEX < 0 OrElse CURRENT_INDEX >= SENDUNG_LIST.Count Then Exit Sub
+
+            Dim SND = SENDUNG_LIST(CURRENT_INDEX)
+
+
+            Dim ZA = cVERAG_CustomsDeclarations.loadBySendungsID(SND.tblSnd_SendungID, True)
+
+            If ZA Is Nothing Then
+                MsgBox("Keine Zollanmeldung gefunden.")
+                Exit Sub
+            End If
+
+            Dim eza = cDakosyEZA.LOADByMRN(ZA.za_MRN, True)
+            If eza Is Nothing Then
+                MsgBox("Keine DAKOSY-EZA gefunden: " & ZA.za_MRN)
+                Exit Sub
+            End If
+
+            Dim importer As New cImporter_DakosyToVERAG
+            importer.UpdateBrokerManagementFileTETRAPAK(ZA)
+
+            MsgBox("BrokerManagementFile wurde aktualisiert.")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+            MsgBox("Fehler: " & ex.Message)
+        End Try
+    End Sub
 End Class

Aviso/usrCntlSND_ATBGestellung.Designer.vb

@@ -37,12 +37,14 @@ Partial Class usrCntlSND_ATBGestellung
         Me.Label3 = New System.Windows.Forms.Label()
         Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.Label33 = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.pnlT1.SuspendLayout()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnlT1
         '
+        Me.pnlT1.Controls.Add(Me.Button3)
         Me.pnlT1.Controls.Add(Me.Button2)
         Me.pnlT1.Controls.Add(Me.PictureBox5)
         Me.pnlT1.Controls.Add(Me.txtT1Datum)
@@ -59,14 +61,14 @@ Partial Class usrCntlSND_ATBGestellung
         Me.pnlT1.Controls.Add(Me.Label33)
         Me.pnlT1.Location = New System.Drawing.Point(0, 0)
         Me.pnlT1.Name = "pnlT1"
-        Me.pnlT1.Size = New System.Drawing.Size(549, 125)
+        Me.pnlT1.Size = New System.Drawing.Size(549, 129)
         Me.pnlT1.TabIndex = 0
         '
         'Button2
         '
         Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Location = New System.Drawing.Point(424, 94)
+        Me.Button2.Location = New System.Drawing.Point(296, 95)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(94, 28)
         Me.Button2.TabIndex = 133
@@ -100,7 +102,7 @@ Partial Class usrCntlSND_ATBGestellung
         Me.txtT1Datum._WaehrungZeichen = True
         Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtT1Datum.ForeColor = System.Drawing.Color.Black
-        Me.txtT1Datum.Location = New System.Drawing.Point(272, 33)
+        Me.txtT1Datum.Location = New System.Drawing.Point(272, 26)
         Me.txtT1Datum.MaxLength = 10
         Me.txtT1Datum.MaxLineLength = -1
         Me.txtT1Datum.MaxLines_Warning = ""
@@ -113,7 +115,7 @@ Partial Class usrCntlSND_ATBGestellung
         '
         Me.DateTimePicker1.CustomFormat = "''"
         Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.DateTimePicker1.Location = New System.Drawing.Point(272, 33)
+        Me.DateTimePicker1.Location = New System.Drawing.Point(272, 26)
         Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
         Me.DateTimePicker1.Name = "DateTimePicker1"
         Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
@@ -124,7 +126,7 @@ Partial Class usrCntlSND_ATBGestellung
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(158, 36)
+        Me.Label1.Location = New System.Drawing.Point(158, 29)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(101, 13)
         Me.Label1.TabIndex = 26
@@ -179,7 +181,7 @@ Partial Class usrCntlSND_ATBGestellung
         Me.txtATBNr._Waehrung = False
         Me.txtATBNr._WaehrungZeichen = True
         Me.txtATBNr.ForeColor = System.Drawing.Color.Black
-        Me.txtATBNr.Location = New System.Drawing.Point(121, 56)
+        Me.txtATBNr.Location = New System.Drawing.Point(121, 49)
         Me.txtATBNr.MaxLineLength = -1
         Me.txtATBNr.MaxLines_Warning = ""
         Me.txtATBNr.MaxLines_Warning_Label = Nothing
@@ -202,7 +204,7 @@ Partial Class usrCntlSND_ATBGestellung
         Me.txtATBT1._Waehrung = False
         Me.txtATBT1._WaehrungZeichen = True
         Me.txtATBT1.ForeColor = System.Drawing.Color.Black
-        Me.txtATBT1.Location = New System.Drawing.Point(121, 11)
+        Me.txtATBT1.Location = New System.Drawing.Point(121, 4)
         Me.txtATBT1.MaxLineLength = -1
         Me.txtATBT1.MaxLines_Warning = ""
         Me.txtATBT1.MaxLines_Warning_Label = Nothing
@@ -214,7 +216,7 @@ Partial Class usrCntlSND_ATBGestellung
         '
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(23, 59)
+        Me.Label4.Location = New System.Drawing.Point(23, 52)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(92, 13)
         Me.Label4.TabIndex = 20
@@ -223,7 +225,7 @@ Partial Class usrCntlSND_ATBGestellung
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(23, 81)
+        Me.Label3.Location = New System.Drawing.Point(23, 74)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(51, 13)
         Me.Label3.TabIndex = 15
@@ -243,7 +245,7 @@ Partial Class usrCntlSND_ATBGestellung
         Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
         Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False
         Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing
-        Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(121, 78)
+        Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(121, 71)
         Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8
         Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle"
         Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True
@@ -259,12 +261,23 @@ Partial Class usrCntlSND_ATBGestellung
         '
         Me.Label33.AutoSize = True
         Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label33.Location = New System.Drawing.Point(23, 14)
+        Me.Label33.Location = New System.Drawing.Point(23, 7)
         Me.Label33.Name = "Label33"
         Me.Label33.Size = New System.Drawing.Size(79, 13)
         Me.Label33.TabIndex = 3
         Me.Label33.Text = "Vorpapier / T1:"
         '
+        'Button3
+        '
+        Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Location = New System.Drawing.Point(397, 88)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(149, 35)
+        Me.Button3.TabIndex = 134
+        Me.Button3.Text = "SUMA (vorzeitig) senden >>"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
         'usrCntlSND_ATBGestellung
         '
         Me.Controls.Add(Me.pnlT1)
@@ -291,4 +304,5 @@ Partial Class usrCntlSND_ATBGestellung
     Friend WithEvents DateTimePicker1 As DateTimePicker
     Friend WithEvents PictureBox5 As PictureBox
     Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
 End Class

Aviso/usrCntlSND_ATBGestellung.vb

@@ -136,9 +136,9 @@ Public Class usrCntlSND_ATBGestellung
                 Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID)
                 If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
 
-                Dim saldo = CDbl(GesSichRef.CalcSaldo())
+            Dim saldo = CDbl(GesSichRef.CalcSaldo_new())
 
-                Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100)
+            Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100)
 
                 If sicherheitsbertrag > saldo Then
                     If MsgBox(Standort & vbNewLine & "Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
@@ -228,7 +228,7 @@ Public Class usrCntlSND_ATBGestellung
             End With
 
             AddHandler frm.FormClosing, Function()
-                                            GesSichRef.CalcSaldo()
+                                            GesSichRef.CalcSaldo_new()
                                             Me.BringToFront()
                                         End Function
             frm.Show()
@@ -305,7 +305,7 @@ Public Class usrCntlSND_ATBGestellung
                 .txtSicherheitATBNr.Text = txtATBT1.Text
             End With
             AddHandler frm.FormClosing, Function()
-                                            GesSichRef.CalcSaldo()
+                                            GesSichRef.CalcSaldo_new()
                                             Me.BringToFront()
                                         End Function
             frm.Show(Me)
@@ -447,4 +447,105 @@ Public Class usrCntlSND_ATBGestellung
         Return existingVorpapier
 
     End Function
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+        Me.Refresh()
+        Me.Cursor = Cursors.WaitCursor
+        ' Dim WarenwertEUR As Double = 0
+
+        Dim f As frmSendungsdetailsNEU = Me.FindForm
+        If f.SAVE_ME() Then
+
+            'Dim INfoVorpapier As String = ""
+
+            'If Not checkSendungenVorpapierte(f.SENDUNG_LIST, INfoVorpapier) Then MsgBox(INfoVorpapier) : Exit Sub
+
+            SND = f.SENDUNG_LIST(f.CURRENT_INDEX)
+
+
+            If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("T1/Vorpapier angeben!") : Exit Sub
+
+            If Not IsValid18AlphaNumericCode(If(SND.tblSnd_ATB_T1, "")) Then MsgBox("T1/Vorpapier nicht korrekt (18-stellig)!") : Exit Sub
+
+            If If(SND.tblSnd_Zollsystem_Land, "") = "" Then MsgBox("Abf-Land muss angegeben werden!") : Exit Sub
+            If If(SND.tblSnd_Zollsystem_Land, "") <> "DE" Then MsgBox("AbfNur in DE möglich!") : Exit Sub
+
+            If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then
+                If CDate(SND.tblSnd_T1_Frist) >= Today() Then
+                    '-> OK
+                Else
+                    MsgBox("T1 Frist ist abgelaufen!")
+                    Exit Sub
+                End If
+            Else
+                MsgBox("T1 Frist muss befüllt werden")
+                Exit Sub
+
+            End If
+
+
+
+            Dim Standort As String = ""
+            Dim firmaID As Integer = -1
+
+            Select Case SND.FilialenNr
+                Case 4803, 4809
+                    Standort = Sicherheiten_Standort.VERAG_AG : firmaID = 1
+                Case 5601
+                    Standort = Sicherheiten_Standort.UNISPED : firmaID = 21
+                Case 5701
+                    Standort = Sicherheiten_Standort.AMBAR : firmaID = 24
+                Case 4810, 5103, 5901
+                    Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
+                Case 5501
+                    Standort = Sicherheiten_Standort.IMEX : firmaID = 20
+            End Select
+
+            ''sonderfälle lt. Mestan
+            'If SND.tblSnd_Zollsystem_Land = "DE" Then
+
+            '    Select Case SND.FilialenNr
+            '        Case 5501, 4803, 4809, 5103
+            '            Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
+            '    End Select
+
+            'ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
+
+            '    If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
+            '        Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
+            '    ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
+            '        Select Case SND.FilialenNr
+            '            Case 4803, 5303, 4809, 5103
+            '                Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
+            '        End Select
+
+            '    End If
+
+            'End If
+
+            If isZollern(SND) Then
+
+                Standort = Sicherheiten_Standort.ZOLLERN : firmaID = 90
+
+            End If
+
+
+
+
+            Dim frMZA As New SDL.frmZollanmeldung("SUMA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, WarenwertEUR, gsnr_proLKW_global)
+
+            frMZA.Show()
+
+
+            AddHandler frMZA.FormClosed, Sub()
+                                             initGesamtsicherheiten()
+                                             '     initdgvZollAnmeldungen()
+                                         End Sub
+        Else
+            MsgBox("Fehler beim Speichern. Ankunftsanzeige abgebrochen.")
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
 End Class

Aviso/usrcntlAktDetails.vb

@@ -764,7 +764,7 @@ Public Class usrcntlAktDetails
             c.Name = "SenungUebernehmen"
             c.Image = My.Resources.personCheck_gray_small : c.ImageLayout = DataGridViewImageCellLayout.Zoom
             c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
-            c.ToolTipText = "Senung übernehmen"
+            c.ToolTipText = "Sendung übernehmen"
             .Columns.Add(c)
             '  End If
 
@@ -772,7 +772,7 @@ Public Class usrcntlAktDetails
             c.Name = "SenungWeiterleiten"
             c.Image = My.Resources.tranparent30Perc : c.ImageLayout = DataGridViewImageCellLayout.Zoom
             c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
-            c.ToolTipText = "Senung weiterleiten"
+            c.ToolTipText = "Sendung weiterleiten"
             .Columns.Add(c)
             '  End If
 

Gemeinsames/Gemeinsames.vbproj

@@ -432,9 +432,12 @@
   </ItemGroup>
   <ItemGroup>
     <Content Include="Resources\FO.png" />
-    <Content Include="Resources\VERIMEX.png">
+    <None Include="Resources\VENLO.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
+    </None>
+    <None Include="Resources\VERIMEX.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
   </ItemGroup>
   <ItemGroup>
     <ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">

Gemeinsames/My Project/Resources.Designer.vb

@@ -160,6 +160,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property VENLO() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("VENLO", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property VERIMEX() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("VERIMEX", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Gemeinsames/My Project/Resources.resx

@@ -145,6 +145,12 @@
   <data name="UNISPED" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\UNISPED.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="VENLO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\VENLO.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\VERIMEX.png;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>

Gemeinsames/rptSendungen.Designer.vb

@@ -102,7 +102,7 @@ Partial Public Class rptSendungen
         Me.txtDokZuSend_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtDokZuSend_Text = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtBARzuKassieren = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
-        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLKWID = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.barcodeSendung = New GrapeCity.ActiveReports.SectionReportModel.Picture()
         Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtNCTSVZAdr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
@@ -213,7 +213,7 @@ Partial Public Class rptSendungen
         CType(Me.txtDokZuSend_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtDokZuSend_Text, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtBARzuKassieren, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLKWID, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.barcodeSendung, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtNCTSVZAdr, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -242,7 +242,7 @@ Partial Public Class rptSendungen
         'Detail
         '
         Me.Detail.CanGrow = False
-        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture, Me.txtGrenze, Me.lblGrenze, Me.txtAnmerkungen, Me.txtAbfertigungsart, Me.txtTarifposanzahl, Me.txtFilialeNr, Me.txtAbfertigungsnummer, Me.txtAvisierer_Firma, Me.txtAvisierer_KdNr, Me.txtAuftraggeber_Firma, Me.txtAuftraggeber_KdNr, Me.txtEmpfaenger_Firma, Me.txtEmpfaenger_KdNr, Me.txtAbsender_Firma, Me.txtAbsender_KdNr, Me.txtFrachtfuehrer_Firma, Me.txtFrachtfuehrer_KdNr, Me.txtAvisierer_Zoll, Me.txtAvisierer_Eust, Me.txtAvisierer_Abf, Me.txtAvisierer_Clear, Me.txtAuftraggeber_Zoll, Me.txtAuftraggeber_Eust, Me.txtAuftraggeber_Abf, Me.txtAuftraggeber_Clear, Me.txtEmpfaenger_Zoll, Me.txtEmpfaenger_Eust, Me.txtEmpfaenger_Abf, Me.txtEmpfaenger_Clear, Me.txtAbsender_Zoll, Me.txtAbsender_Eust, Me.txtAbsender_Abf, Me.txtAbsender_Clear, Me.txtFrachtfuehrer_Zoll, Me.txtFrachtfuehrer_Eust, Me.txtFrachtfuehrer_Abf, Me.txtFrachtfuehrer_Clear, Me.txtAvisierer_Leistung1, Me.txtAvisierer_Betrag1, Me.txtAvisierer_Leistung2, Me.txtAvisierer_Betrag2, Me.txtAvisierer_Leistung3, Me.txtAvisierer_Betrag3, Me.txtAuftraggeber_Leistung1, Me.txtAuftraggeber_Betrag, Me.txtAuftraggeber_Leistung2, Me.txtAuftraggeber_Betrag2, Me.txtAuftraggeber_Leistung3, Me.txtAuftraggeber_Betrag3, Me.txtEmpfaenger_Leistung1, Me.txtEmpfaenger_Betrag1, Me.txtEmpfaenger_Leistung2, Me.txtEmpfaenger_Betrag2, Me.txtEmpfaenger_Leistung3, Me.txtEmpfaenger_Betrag3, Me.txtAbsender_Leistung1, Me.txtAbsender_Betrag1, Me.txtAbsender_Leistung2, Me.txtAbsender_Betrag2, Me.txtAbsender_Leistung3, Me.txtAbsender_Betrag3, Me.txtFrachtfuehrer_Leistung1, Me.txtFrachtfuehrer_Betrag1, Me.txtFrachtfuehrer_Leistung2, Me.txtFrachtfuehrer_Betrag2, Me.txtFrachtfuehrer_Leistung3, Me.txtFrachtfuehrer_Betrag3, Me.txtFrachtfuehrer_Bar_BelegNr, Me.txtFrachtfuehrer_Bar_Betrag, Me.txtAvisierer_eigBin, Me.txtAuftraggeber_eigBin, Me.txtEmpfaenger_eigBIN, Me.txtAbsender_eigBIN, Me.txtFrachtfuehrer_eigBIN, Me.txtLKWKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtWarenbezeichnung, Me.txtColli, Me.txtGewicht, Me.txtAufschub_VERAG, Me.txtDokZuSend_Ueberschrift, Me.txtDokZuSend_Text, Me.txtBARzuKassieren, Me.TextBox1, Me.barcodeSendung, Me.TextBox2, Me.txtNCTSVZAdr, Me.lblNCTSVZAdr, Me.SubReport, Me.txtFrachtfuehrer_Bar_BelegNr2, Me.txtFrachtfuehrer_Bar_Betrag2, Me.txtFrachtfuehrer_Bar_BelegNr3, Me.txtFrachtfuehrer_Bar_Betrag3, Me.txtAuftraggeber_EUSTKto, Me.txtEmpfaenger_EUSTKto, Me.txtAuftraggeber_ZOLLKto, Me.txtEmpfaenger_ZOLLKto, Me.txtKdAuftrNr, Me.cbxDyUebermittelt, Me.shGrenze, Me.barcodeLKW, Me.txtAvisierer_VK, Me.txtAuftraggeber_VK, Me.txtEmpfaenger_VK, Me.txtAbsender_VK, Me.txtFrachtfuehrer_VK, Me.txtSchnellAbfertigung, Me.TextBox3, Me.picQR})
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture, Me.txtGrenze, Me.lblGrenze, Me.txtAnmerkungen, Me.txtAbfertigungsart, Me.txtTarifposanzahl, Me.txtFilialeNr, Me.txtAbfertigungsnummer, Me.txtAvisierer_Firma, Me.txtAvisierer_KdNr, Me.txtAuftraggeber_Firma, Me.txtAuftraggeber_KdNr, Me.txtEmpfaenger_Firma, Me.txtEmpfaenger_KdNr, Me.txtAbsender_Firma, Me.txtAbsender_KdNr, Me.txtFrachtfuehrer_Firma, Me.txtFrachtfuehrer_KdNr, Me.txtAvisierer_Zoll, Me.txtAvisierer_Eust, Me.txtAvisierer_Abf, Me.txtAvisierer_Clear, Me.txtAuftraggeber_Zoll, Me.txtAuftraggeber_Eust, Me.txtAuftraggeber_Abf, Me.txtAuftraggeber_Clear, Me.txtEmpfaenger_Zoll, Me.txtEmpfaenger_Eust, Me.txtEmpfaenger_Abf, Me.txtEmpfaenger_Clear, Me.txtAbsender_Zoll, Me.txtAbsender_Eust, Me.txtAbsender_Abf, Me.txtAbsender_Clear, Me.txtFrachtfuehrer_Zoll, Me.txtFrachtfuehrer_Eust, Me.txtFrachtfuehrer_Abf, Me.txtFrachtfuehrer_Clear, Me.txtAvisierer_Leistung1, Me.txtAvisierer_Betrag1, Me.txtAvisierer_Leistung2, Me.txtAvisierer_Betrag2, Me.txtAvisierer_Leistung3, Me.txtAvisierer_Betrag3, Me.txtAuftraggeber_Leistung1, Me.txtAuftraggeber_Betrag, Me.txtAuftraggeber_Leistung2, Me.txtAuftraggeber_Betrag2, Me.txtAuftraggeber_Leistung3, Me.txtAuftraggeber_Betrag3, Me.txtEmpfaenger_Leistung1, Me.txtEmpfaenger_Betrag1, Me.txtEmpfaenger_Leistung2, Me.txtEmpfaenger_Betrag2, Me.txtEmpfaenger_Leistung3, Me.txtEmpfaenger_Betrag3, Me.txtAbsender_Leistung1, Me.txtAbsender_Betrag1, Me.txtAbsender_Leistung2, Me.txtAbsender_Betrag2, Me.txtAbsender_Leistung3, Me.txtAbsender_Betrag3, Me.txtFrachtfuehrer_Leistung1, Me.txtFrachtfuehrer_Betrag1, Me.txtFrachtfuehrer_Leistung2, Me.txtFrachtfuehrer_Betrag2, Me.txtFrachtfuehrer_Leistung3, Me.txtFrachtfuehrer_Betrag3, Me.txtFrachtfuehrer_Bar_BelegNr, Me.txtFrachtfuehrer_Bar_Betrag, Me.txtAvisierer_eigBin, Me.txtAuftraggeber_eigBin, Me.txtEmpfaenger_eigBIN, Me.txtAbsender_eigBIN, Me.txtFrachtfuehrer_eigBIN, Me.txtLKWKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtWarenbezeichnung, Me.txtColli, Me.txtGewicht, Me.txtAufschub_VERAG, Me.txtDokZuSend_Ueberschrift, Me.txtDokZuSend_Text, Me.txtBARzuKassieren, Me.txtLKWID, Me.barcodeSendung, Me.TextBox2, Me.txtNCTSVZAdr, Me.lblNCTSVZAdr, Me.SubReport, Me.txtFrachtfuehrer_Bar_BelegNr2, Me.txtFrachtfuehrer_Bar_Betrag2, Me.txtFrachtfuehrer_Bar_BelegNr3, Me.txtFrachtfuehrer_Bar_Betrag3, Me.txtAuftraggeber_EUSTKto, Me.txtEmpfaenger_EUSTKto, Me.txtAuftraggeber_ZOLLKto, Me.txtEmpfaenger_ZOLLKto, Me.txtKdAuftrNr, Me.cbxDyUebermittelt, Me.shGrenze, Me.barcodeLKW, Me.txtAvisierer_VK, Me.txtAuftraggeber_VK, Me.txtEmpfaenger_VK, Me.txtAbsender_VK, Me.txtFrachtfuehrer_VK, Me.txtSchnellAbfertigung, Me.TextBox3, Me.picQR})
         Me.Detail.Height = 11.68898!
         Me.Detail.Name = "Detail"
         '
@@ -264,6 +264,7 @@ Partial Public Class rptSendungen
         Me.txtGrenze.Height = 0.3240157!
         Me.txtGrenze.Left = 2.893307!
         Me.txtGrenze.Name = "txtGrenze"
+        Me.txtGrenze.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGrenze.Style = resources.GetString("txtGrenze.Style")
         Me.txtGrenze.SummaryGroup = ""
         Me.txtGrenze.Text = "SUB" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "hkjhj"
@@ -277,6 +278,7 @@ Partial Public Class rptSendungen
         Me.lblGrenze.Height = 0.1795275!
         Me.lblGrenze.Left = 2.90315!
         Me.lblGrenze.Name = "lblGrenze"
+        Me.lblGrenze.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.lblGrenze.Style = "font-size: 6pt; ddo-char-set: 1"
         Me.lblGrenze.Text = "Grenze:"
         Me.lblGrenze.Top = 0.8173229!
@@ -290,7 +292,7 @@ Partial Public Class rptSendungen
         Me.txtAnmerkungen.Height = 4.794095!
         Me.txtAnmerkungen.Left = 0.6704725!
         Me.txtAnmerkungen.Name = "txtAnmerkungen"
-        Me.txtAnmerkungen.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAnmerkungen.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAnmerkungen.Style = "color: Black; font-size: 16pt; font-weight: normal; text-decoration: none; text-j" &
     "ustify: auto; vertical-align: top; ddo-char-set: 1; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -305,6 +307,7 @@ Partial Public Class rptSendungen
         Me.txtAbfertigungsart.Height = 0.2937008!
         Me.txtAbfertigungsart.Left = 0.8629928!
         Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
+        Me.txtAbfertigungsart.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbfertigungsart.Style = "font-size: 14pt; font-weight: bold; text-justify: auto; vertical-align: middle; d" &
     "do-char-set: 1"
         Me.txtAbfertigungsart.Text = "38 - EV Verzollung"
@@ -317,6 +320,7 @@ Partial Public Class rptSendungen
         Me.txtTarifposanzahl.Height = 0.2937008!
         Me.txtTarifposanzahl.Left = 3.779528!
         Me.txtTarifposanzahl.Name = "txtTarifposanzahl"
+        Me.txtTarifposanzahl.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtTarifposanzahl.Style = "font-size: 14pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
     "cal-align: middle; ddo-char-set: 1"
         Me.txtTarifposanzahl.Text = "1"
@@ -329,6 +333,7 @@ Partial Public Class rptSendungen
         Me.txtFilialeNr.Height = 0.2937008!
         Me.txtFilialeNr.Left = 4.888978!
         Me.txtFilialeNr.Name = "txtFilialeNr"
+        Me.txtFilialeNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFilialeNr.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
     "cal-align: middle; ddo-char-set: 1"
         Me.txtFilialeNr.Text = "4803"
@@ -341,6 +346,7 @@ Partial Public Class rptSendungen
         Me.txtAbfertigungsnummer.Height = 0.2937008!
         Me.txtAbfertigungsnummer.Left = 5.659843!
         Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbfertigungsnummer.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
     "cal-align: middle; ddo-char-set: 1"
         Me.txtAbfertigungsnummer.Text = "17000000"
@@ -353,6 +359,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Firma.Height = 0.5641732!
         Me.txtAvisierer_Firma.Left = 1.162597!
         Me.txtAvisierer_Firma.Name = "txtAvisierer_Firma"
+        Me.txtAvisierer_Firma.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Firma.Style = "font-size: 12pt; ddo-char-set: 1"
         Me.txtAvisierer_Firma.Text = "TESTFIRMA"
         Me.txtAvisierer_Firma.Top = 1.444488!
@@ -364,6 +371,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_KdNr.Height = 0.1795275!
         Me.txtAvisierer_KdNr.Left = 3.914961!
         Me.txtAvisierer_KdNr.Name = "txtAvisierer_KdNr"
+        Me.txtAvisierer_KdNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_KdNr.Style = "font-size: 12pt; ddo-char-set: 1"
         Me.txtAvisierer_KdNr.Text = "123456"
         Me.txtAvisierer_KdNr.Top = 1.264961!
@@ -375,6 +383,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Firma.Height = 0.5641732!
         Me.txtAuftraggeber_Firma.Left = 1.162598!
         Me.txtAuftraggeber_Firma.Name = "txtAuftraggeber_Firma"
+        Me.txtAuftraggeber_Firma.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Firma.Style = "font-size: 12pt; ddo-char-set: 1"
         Me.txtAuftraggeber_Firma.Text = "TESTFIRMA"
         Me.txtAuftraggeber_Firma.Top = 2.235039!
@@ -386,6 +395,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_KdNr.Height = 0.1795275!
         Me.txtAuftraggeber_KdNr.Left = 3.914962!
         Me.txtAuftraggeber_KdNr.Name = "txtAuftraggeber_KdNr"
+        Me.txtAuftraggeber_KdNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_KdNr.Style = "font-size: 12pt; ddo-char-set: 1"
         Me.txtAuftraggeber_KdNr.Text = "123456"
         Me.txtAuftraggeber_KdNr.Top = 2.047638!
@@ -397,6 +407,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Firma.Height = 0.5641732!
         Me.txtEmpfaenger_Firma.Left = 1.162598!
         Me.txtEmpfaenger_Firma.Name = "txtEmpfaenger_Firma"
+        Me.txtEmpfaenger_Firma.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Firma.Style = "font-size: 12pt; font-weight: bold; ddo-char-set: 1"
         Me.txtEmpfaenger_Firma.Text = "TESTFIRMA"
         Me.txtEmpfaenger_Firma.Top = 3.026772!
@@ -408,6 +419,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_KdNr.Height = 0.1795275!
         Me.txtEmpfaenger_KdNr.Left = 3.914962!
         Me.txtEmpfaenger_KdNr.Name = "txtEmpfaenger_KdNr"
+        Me.txtEmpfaenger_KdNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_KdNr.Style = "font-size: 12pt; font-weight: bold; ddo-char-set: 1"
         Me.txtEmpfaenger_KdNr.Text = "123456"
         Me.txtEmpfaenger_KdNr.Top = 2.843308!
@@ -419,6 +431,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Firma.Height = 0.5641732!
         Me.txtAbsender_Firma.Left = 1.162599!
         Me.txtAbsender_Firma.Name = "txtAbsender_Firma"
+        Me.txtAbsender_Firma.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Firma.Style = "font-size: 12pt; ddo-char-set: 1"
         Me.txtAbsender_Firma.Text = "TESTFIRMA"
         Me.txtAbsender_Firma.Top = 3.816535!
@@ -430,6 +443,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_KdNr.Height = 0.1795275!
         Me.txtAbsender_KdNr.Left = 3.914962!
         Me.txtAbsender_KdNr.Name = "txtAbsender_KdNr"
+        Me.txtAbsender_KdNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_KdNr.Style = "font-size: 12pt; ddo-char-set: 1"
         Me.txtAbsender_KdNr.Text = "123456"
         Me.txtAbsender_KdNr.Top = 3.637008!
@@ -441,6 +455,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Firma.Height = 0.5641732!
         Me.txtFrachtfuehrer_Firma.Left = 1.162598!
         Me.txtFrachtfuehrer_Firma.Name = "txtFrachtfuehrer_Firma"
+        Me.txtFrachtfuehrer_Firma.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Firma.Style = "font-size: 12pt; ddo-char-set: 1"
         Me.txtFrachtfuehrer_Firma.Text = "TESTFIRMA"
         Me.txtFrachtfuehrer_Firma.Top = 4.599607!
@@ -452,6 +467,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_KdNr.Height = 0.1795275!
         Me.txtFrachtfuehrer_KdNr.Left = 3.914961!
         Me.txtFrachtfuehrer_KdNr.Name = "txtFrachtfuehrer_KdNr"
+        Me.txtFrachtfuehrer_KdNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_KdNr.Style = "font-size: 12pt; ddo-char-set: 1"
         Me.txtFrachtfuehrer_KdNr.Text = "123456"
         Me.txtFrachtfuehrer_KdNr.Top = 4.416142!
@@ -463,6 +479,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Zoll.Height = 0.1972442!
         Me.txtAvisierer_Zoll.Left = 4.921655!
         Me.txtAvisierer_Zoll.Name = "txtAvisierer_Zoll"
+        Me.txtAvisierer_Zoll.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Zoll.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAvisierer_Zoll.Text = "X"
@@ -475,6 +492,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Eust.Height = 0.1972442!
         Me.txtAvisierer_Eust.Left = 5.21063!
         Me.txtAvisierer_Eust.Name = "txtAvisierer_Eust"
+        Me.txtAvisierer_Eust.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Eust.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAvisierer_Eust.Text = "X"
@@ -487,6 +505,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Abf.Height = 0.1972442!
         Me.txtAvisierer_Abf.Left = 5.505119!
         Me.txtAvisierer_Abf.Name = "txtAvisierer_Abf"
+        Me.txtAvisierer_Abf.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Abf.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAvisierer_Abf.Text = "X"
@@ -499,6 +518,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Clear.Height = 0.1972442!
         Me.txtAvisierer_Clear.Left = 5.794096!
         Me.txtAvisierer_Clear.Name = "txtAvisierer_Clear"
+        Me.txtAvisierer_Clear.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Clear.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAvisierer_Clear.Text = "X"
@@ -511,6 +531,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Zoll.Height = 0.1972442!
         Me.txtAuftraggeber_Zoll.Left = 4.921655!
         Me.txtAuftraggeber_Zoll.Name = "txtAuftraggeber_Zoll"
+        Me.txtAuftraggeber_Zoll.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Zoll.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAuftraggeber_Zoll.Text = "X"
@@ -523,6 +544,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Eust.Height = 0.1972442!
         Me.txtAuftraggeber_Eust.Left = 5.21063!
         Me.txtAuftraggeber_Eust.Name = "txtAuftraggeber_Eust"
+        Me.txtAuftraggeber_Eust.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Eust.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAuftraggeber_Eust.Text = "X"
@@ -535,6 +557,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Abf.Height = 0.1972442!
         Me.txtAuftraggeber_Abf.Left = 5.505119!
         Me.txtAuftraggeber_Abf.Name = "txtAuftraggeber_Abf"
+        Me.txtAuftraggeber_Abf.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Abf.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAuftraggeber_Abf.Text = "X"
@@ -547,6 +570,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Clear.Height = 0.1972442!
         Me.txtAuftraggeber_Clear.Left = 5.794096!
         Me.txtAuftraggeber_Clear.Name = "txtAuftraggeber_Clear"
+        Me.txtAuftraggeber_Clear.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Clear.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAuftraggeber_Clear.Text = "X"
@@ -559,6 +583,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Zoll.Height = 0.1972442!
         Me.txtEmpfaenger_Zoll.Left = 4.921655!
         Me.txtEmpfaenger_Zoll.Name = "txtEmpfaenger_Zoll"
+        Me.txtEmpfaenger_Zoll.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Zoll.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtEmpfaenger_Zoll.Text = "X"
@@ -571,6 +596,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Eust.Height = 0.1972442!
         Me.txtEmpfaenger_Eust.Left = 5.21063!
         Me.txtEmpfaenger_Eust.Name = "txtEmpfaenger_Eust"
+        Me.txtEmpfaenger_Eust.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Eust.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtEmpfaenger_Eust.Text = "X"
@@ -583,6 +609,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Abf.Height = 0.1972442!
         Me.txtEmpfaenger_Abf.Left = 5.505119!
         Me.txtEmpfaenger_Abf.Name = "txtEmpfaenger_Abf"
+        Me.txtEmpfaenger_Abf.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Abf.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtEmpfaenger_Abf.Text = "X"
@@ -595,6 +622,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Clear.Height = 0.1972442!
         Me.txtEmpfaenger_Clear.Left = 5.794096!
         Me.txtEmpfaenger_Clear.Name = "txtEmpfaenger_Clear"
+        Me.txtEmpfaenger_Clear.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Clear.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtEmpfaenger_Clear.Text = "X"
@@ -607,6 +635,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Zoll.Height = 0.1972442!
         Me.txtAbsender_Zoll.Left = 4.921655!
         Me.txtAbsender_Zoll.Name = "txtAbsender_Zoll"
+        Me.txtAbsender_Zoll.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Zoll.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAbsender_Zoll.Text = "X"
@@ -619,6 +648,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Eust.Height = 0.1972442!
         Me.txtAbsender_Eust.Left = 5.21063!
         Me.txtAbsender_Eust.Name = "txtAbsender_Eust"
+        Me.txtAbsender_Eust.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Eust.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAbsender_Eust.Text = "X"
@@ -631,6 +661,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Abf.Height = 0.1972442!
         Me.txtAbsender_Abf.Left = 5.505119!
         Me.txtAbsender_Abf.Name = "txtAbsender_Abf"
+        Me.txtAbsender_Abf.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Abf.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAbsender_Abf.Text = "X"
@@ -643,6 +674,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Clear.Height = 0.1972442!
         Me.txtAbsender_Clear.Left = 5.794094!
         Me.txtAbsender_Clear.Name = "txtAbsender_Clear"
+        Me.txtAbsender_Clear.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Clear.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtAbsender_Clear.Text = "X"
@@ -655,6 +687,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Zoll.Height = 0.1972442!
         Me.txtFrachtfuehrer_Zoll.Left = 4.921655!
         Me.txtFrachtfuehrer_Zoll.Name = "txtFrachtfuehrer_Zoll"
+        Me.txtFrachtfuehrer_Zoll.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Zoll.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtFrachtfuehrer_Zoll.Text = "X"
@@ -667,6 +700,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Eust.Height = 0.1972442!
         Me.txtFrachtfuehrer_Eust.Left = 5.21063!
         Me.txtFrachtfuehrer_Eust.Name = "txtFrachtfuehrer_Eust"
+        Me.txtFrachtfuehrer_Eust.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Eust.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtFrachtfuehrer_Eust.Text = "X"
@@ -679,6 +713,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Abf.Height = 0.1972442!
         Me.txtFrachtfuehrer_Abf.Left = 5.505119!
         Me.txtFrachtfuehrer_Abf.Name = "txtFrachtfuehrer_Abf"
+        Me.txtFrachtfuehrer_Abf.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Abf.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtFrachtfuehrer_Abf.Text = "X"
@@ -691,6 +726,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Clear.Height = 0.1972442!
         Me.txtFrachtfuehrer_Clear.Left = 5.794094!
         Me.txtFrachtfuehrer_Clear.Name = "txtFrachtfuehrer_Clear"
+        Me.txtFrachtfuehrer_Clear.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Clear.Style = "font-family: Arial Black; font-size: 12pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtFrachtfuehrer_Clear.Text = "X"
@@ -704,7 +740,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Leistung1.Height = 0.242126!
         Me.txtAvisierer_Leistung1.Left = 6.046064!
         Me.txtAvisierer_Leistung1.Name = "txtAvisierer_Leistung1"
-        Me.txtAvisierer_Leistung1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAvisierer_Leistung1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Leistung1.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -720,6 +756,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Betrag1.Height = 0.242126!
         Me.txtAvisierer_Betrag1.Left = 7.359841!
         Me.txtAvisierer_Betrag1.Name = "txtAvisierer_Betrag1"
+        Me.txtAvisierer_Betrag1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Betrag1.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -735,7 +772,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Leistung2.Height = 0.242126!
         Me.txtAvisierer_Leistung2.Left = 6.046064!
         Me.txtAvisierer_Leistung2.Name = "txtAvisierer_Leistung2"
-        Me.txtAvisierer_Leistung2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAvisierer_Leistung2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Leistung2.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -751,6 +788,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Betrag2.Height = 0.242126!
         Me.txtAvisierer_Betrag2.Left = 7.359841!
         Me.txtAvisierer_Betrag2.Name = "txtAvisierer_Betrag2"
+        Me.txtAvisierer_Betrag2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Betrag2.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -766,7 +804,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Leistung3.Height = 0.242126!
         Me.txtAvisierer_Leistung3.Left = 6.046071!
         Me.txtAvisierer_Leistung3.Name = "txtAvisierer_Leistung3"
-        Me.txtAvisierer_Leistung3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAvisierer_Leistung3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Leistung3.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -782,6 +820,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_Betrag3.Height = 0.242126!
         Me.txtAvisierer_Betrag3.Left = 7.359841!
         Me.txtAvisierer_Betrag3.Name = "txtAvisierer_Betrag3"
+        Me.txtAvisierer_Betrag3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_Betrag3.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -797,7 +836,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Leistung1.Height = 0.242126!
         Me.txtAuftraggeber_Leistung1.Left = 6.046064!
         Me.txtAuftraggeber_Leistung1.Name = "txtAuftraggeber_Leistung1"
-        Me.txtAuftraggeber_Leistung1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAuftraggeber_Leistung1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Leistung1.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -813,6 +852,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Betrag.Height = 0.242126!
         Me.txtAuftraggeber_Betrag.Left = 7.359841!
         Me.txtAuftraggeber_Betrag.Name = "txtAuftraggeber_Betrag"
+        Me.txtAuftraggeber_Betrag.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Betrag.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -828,7 +868,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Leistung2.Height = 0.242126!
         Me.txtAuftraggeber_Leistung2.Left = 6.046064!
         Me.txtAuftraggeber_Leistung2.Name = "txtAuftraggeber_Leistung2"
-        Me.txtAuftraggeber_Leistung2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAuftraggeber_Leistung2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Leistung2.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -844,6 +884,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Betrag2.Height = 0.242126!
         Me.txtAuftraggeber_Betrag2.Left = 7.359841!
         Me.txtAuftraggeber_Betrag2.Name = "txtAuftraggeber_Betrag2"
+        Me.txtAuftraggeber_Betrag2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Betrag2.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -859,7 +900,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Leistung3.Height = 0.242126!
         Me.txtAuftraggeber_Leistung3.Left = 6.04607!
         Me.txtAuftraggeber_Leistung3.Name = "txtAuftraggeber_Leistung3"
-        Me.txtAuftraggeber_Leistung3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAuftraggeber_Leistung3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Leistung3.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -875,6 +916,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_Betrag3.Height = 0.242126!
         Me.txtAuftraggeber_Betrag3.Left = 7.359841!
         Me.txtAuftraggeber_Betrag3.Name = "txtAuftraggeber_Betrag3"
+        Me.txtAuftraggeber_Betrag3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_Betrag3.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -890,7 +932,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Leistung1.Height = 0.242126!
         Me.txtEmpfaenger_Leistung1.Left = 6.046064!
         Me.txtEmpfaenger_Leistung1.Name = "txtEmpfaenger_Leistung1"
-        Me.txtEmpfaenger_Leistung1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtEmpfaenger_Leistung1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Leistung1.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -906,6 +948,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Betrag1.Height = 0.242126!
         Me.txtEmpfaenger_Betrag1.Left = 7.359841!
         Me.txtEmpfaenger_Betrag1.Name = "txtEmpfaenger_Betrag1"
+        Me.txtEmpfaenger_Betrag1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Betrag1.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -921,7 +964,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Leistung2.Height = 0.242126!
         Me.txtEmpfaenger_Leistung2.Left = 6.046064!
         Me.txtEmpfaenger_Leistung2.Name = "txtEmpfaenger_Leistung2"
-        Me.txtEmpfaenger_Leistung2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtEmpfaenger_Leistung2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Leistung2.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -937,6 +980,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Betrag2.Height = 0.242126!
         Me.txtEmpfaenger_Betrag2.Left = 7.359841!
         Me.txtEmpfaenger_Betrag2.Name = "txtEmpfaenger_Betrag2"
+        Me.txtEmpfaenger_Betrag2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Betrag2.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -952,7 +996,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Leistung3.Height = 0.242126!
         Me.txtEmpfaenger_Leistung3.Left = 6.04607!
         Me.txtEmpfaenger_Leistung3.Name = "txtEmpfaenger_Leistung3"
-        Me.txtEmpfaenger_Leistung3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtEmpfaenger_Leistung3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Leistung3.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -968,6 +1012,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_Betrag3.Height = 0.242126!
         Me.txtEmpfaenger_Betrag3.Left = 7.359841!
         Me.txtEmpfaenger_Betrag3.Name = "txtEmpfaenger_Betrag3"
+        Me.txtEmpfaenger_Betrag3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_Betrag3.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -983,7 +1028,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Leistung1.Height = 0.242126!
         Me.txtAbsender_Leistung1.Left = 6.046064!
         Me.txtAbsender_Leistung1.Name = "txtAbsender_Leistung1"
-        Me.txtAbsender_Leistung1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAbsender_Leistung1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Leistung1.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -999,6 +1044,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Betrag1.Height = 0.242126!
         Me.txtAbsender_Betrag1.Left = 7.359841!
         Me.txtAbsender_Betrag1.Name = "txtAbsender_Betrag1"
+        Me.txtAbsender_Betrag1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Betrag1.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -1014,7 +1060,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Leistung2.Height = 0.242126!
         Me.txtAbsender_Leistung2.Left = 6.046064!
         Me.txtAbsender_Leistung2.Name = "txtAbsender_Leistung2"
-        Me.txtAbsender_Leistung2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAbsender_Leistung2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Leistung2.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -1030,6 +1076,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Betrag2.Height = 0.242126!
         Me.txtAbsender_Betrag2.Left = 7.359841!
         Me.txtAbsender_Betrag2.Name = "txtAbsender_Betrag2"
+        Me.txtAbsender_Betrag2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Betrag2.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -1045,7 +1092,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Leistung3.Height = 0.242126!
         Me.txtAbsender_Leistung3.Left = 6.04607!
         Me.txtAbsender_Leistung3.Name = "txtAbsender_Leistung3"
-        Me.txtAbsender_Leistung3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAbsender_Leistung3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Leistung3.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -1061,6 +1108,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_Betrag3.Height = 0.242126!
         Me.txtAbsender_Betrag3.Left = 7.359841!
         Me.txtAbsender_Betrag3.Name = "txtAbsender_Betrag3"
+        Me.txtAbsender_Betrag3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_Betrag3.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -1076,7 +1124,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Leistung1.Height = 0.242126!
         Me.txtFrachtfuehrer_Leistung1.Left = 6.046064!
         Me.txtFrachtfuehrer_Leistung1.Name = "txtFrachtfuehrer_Leistung1"
-        Me.txtFrachtfuehrer_Leistung1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtFrachtfuehrer_Leistung1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Leistung1.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -1092,6 +1140,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Betrag1.Height = 0.242126!
         Me.txtFrachtfuehrer_Betrag1.Left = 7.359841!
         Me.txtFrachtfuehrer_Betrag1.Name = "txtFrachtfuehrer_Betrag1"
+        Me.txtFrachtfuehrer_Betrag1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Betrag1.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -1107,7 +1156,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Leistung2.Height = 0.242126!
         Me.txtFrachtfuehrer_Leistung2.Left = 6.046064!
         Me.txtFrachtfuehrer_Leistung2.Name = "txtFrachtfuehrer_Leistung2"
-        Me.txtFrachtfuehrer_Leistung2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtFrachtfuehrer_Leistung2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Leistung2.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -1123,6 +1172,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Betrag2.Height = 0.242126!
         Me.txtFrachtfuehrer_Betrag2.Left = 7.359841!
         Me.txtFrachtfuehrer_Betrag2.Name = "txtFrachtfuehrer_Betrag2"
+        Me.txtFrachtfuehrer_Betrag2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Betrag2.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -1138,7 +1188,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Leistung3.Height = 0.242126!
         Me.txtFrachtfuehrer_Leistung3.Left = 6.04607!
         Me.txtFrachtfuehrer_Leistung3.Name = "txtFrachtfuehrer_Leistung3"
-        Me.txtFrachtfuehrer_Leistung3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtFrachtfuehrer_Leistung3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Leistung3.Style = "color: Black; font-size: 9pt; text-decoration: none; text-justify: auto; vertical" &
     "-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo-shrink-to-fit: non" &
     "e"
@@ -1154,6 +1204,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Betrag3.Height = 0.242126!
         Me.txtFrachtfuehrer_Betrag3.Left = 7.359841!
         Me.txtFrachtfuehrer_Betrag3.Name = "txtFrachtfuehrer_Betrag3"
+        Me.txtFrachtfuehrer_Betrag3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Betrag3.Style = "color: Black; font-size: 9pt; text-align: right; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -1169,7 +1220,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Bar_BelegNr.Height = 0.242126!
         Me.txtFrachtfuehrer_Bar_BelegNr.Left = 5.744095!
         Me.txtFrachtfuehrer_Bar_BelegNr.Name = "txtFrachtfuehrer_Bar_BelegNr"
-        Me.txtFrachtfuehrer_Bar_BelegNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtFrachtfuehrer_Bar_BelegNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Bar_BelegNr.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr.Style")
         Me.txtFrachtfuehrer_Bar_BelegNr.SummaryGroup = ""
         Me.txtFrachtfuehrer_Bar_BelegNr.Text = "TEST"
@@ -1183,6 +1234,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Bar_Betrag.Height = 0.242126!
         Me.txtFrachtfuehrer_Bar_Betrag.Left = 7.172441!
         Me.txtFrachtfuehrer_Bar_Betrag.Name = "txtFrachtfuehrer_Bar_Betrag"
+        Me.txtFrachtfuehrer_Bar_Betrag.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Bar_Betrag.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag.Style")
         Me.txtFrachtfuehrer_Bar_Betrag.SummaryGroup = ""
         Me.txtFrachtfuehrer_Bar_Betrag.Text = "0"
@@ -1196,7 +1248,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_eigBin.Height = 0.3051181!
         Me.txtAvisierer_eigBin.Left = 4.921655!
         Me.txtAvisierer_eigBin.Name = "txtAvisierer_eigBin"
-        Me.txtAvisierer_eigBin.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAvisierer_eigBin.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_eigBin.Style = "color: Black; font-size: 11pt; font-weight: bold; text-decoration: none; text-jus" &
     "tify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; dd" &
     "o-shrink-to-fit: none"
@@ -1212,7 +1264,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_eigBin.Height = 0.3051181!
         Me.txtAuftraggeber_eigBin.Left = 4.921655!
         Me.txtAuftraggeber_eigBin.Name = "txtAuftraggeber_eigBin"
-        Me.txtAuftraggeber_eigBin.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAuftraggeber_eigBin.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_eigBin.Style = "color: Black; font-size: 11pt; font-weight: bold; text-decoration: none; text-jus" &
     "tify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; dd" &
     "o-shrink-to-fit: none"
@@ -1228,7 +1280,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_eigBIN.Height = 0.3051181!
         Me.txtEmpfaenger_eigBIN.Left = 4.921655!
         Me.txtEmpfaenger_eigBIN.Name = "txtEmpfaenger_eigBIN"
-        Me.txtEmpfaenger_eigBIN.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtEmpfaenger_eigBIN.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_eigBIN.Style = "color: Black; font-size: 11pt; font-weight: bold; text-decoration: none; text-jus" &
     "tify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; dd" &
     "o-shrink-to-fit: none"
@@ -1244,7 +1296,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_eigBIN.Height = 0.3051181!
         Me.txtAbsender_eigBIN.Left = 4.921655!
         Me.txtAbsender_eigBIN.Name = "txtAbsender_eigBIN"
-        Me.txtAbsender_eigBIN.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAbsender_eigBIN.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_eigBIN.Style = "color: Black; font-size: 11pt; font-weight: bold; text-decoration: none; text-jus" &
     "tify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; dd" &
     "o-shrink-to-fit: none"
@@ -1260,7 +1312,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_eigBIN.Height = 0.3051181!
         Me.txtFrachtfuehrer_eigBIN.Left = 4.921655!
         Me.txtFrachtfuehrer_eigBIN.Name = "txtFrachtfuehrer_eigBIN"
-        Me.txtFrachtfuehrer_eigBIN.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtFrachtfuehrer_eigBIN.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_eigBIN.Style = "color: Black; font-size: 11pt; font-weight: bold; text-decoration: none; text-jus" &
     "tify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; dd" &
     "o-shrink-to-fit: none"
@@ -1276,7 +1328,7 @@ Partial Public Class rptSendungen
         Me.txtLKWKennzeichen.Height = 0.3779526!
         Me.txtLKWKennzeichen.Left = 4.885041!
         Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
-        Me.txtLKWKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtLKWKennzeichen.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtLKWKennzeichen.Style = resources.GetString("txtLKWKennzeichen.Style")
         Me.txtLKWKennzeichen.SummaryGroup = ""
         Me.txtLKWKennzeichen.Text = "34 TR 45454"
@@ -1290,7 +1342,7 @@ Partial Public Class rptSendungen
         Me.txtAnkunft.Height = 0.3779528!
         Me.txtAnkunft.Left = 4.885041!
         Me.txtAnkunft.Name = "txtAnkunft"
-        Me.txtAnkunft.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAnkunft.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAnkunft.Style = resources.GetString("txtAnkunft.Style")
         Me.txtAnkunft.SummaryGroup = ""
         Me.txtAnkunft.Text = "01.01.1900" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "00:00"
@@ -1304,7 +1356,7 @@ Partial Public Class rptSendungen
         Me.txtAbfahrt.Height = 0.3779528!
         Me.txtAbfahrt.Left = 6.440158!
         Me.txtAbfahrt.Name = "txtAbfahrt"
-        Me.txtAbfahrt.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAbfahrt.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbfahrt.Style = resources.GetString("txtAbfahrt.Style")
         Me.txtAbfahrt.SummaryGroup = ""
         Me.txtAbfahrt.Text = "01.01.1900" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "00:00"
@@ -1318,7 +1370,7 @@ Partial Public Class rptSendungen
         Me.txtWarenbezeichnung.Height = 0.4920006!
         Me.txtWarenbezeichnung.Left = 4.888978!
         Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
-        Me.txtWarenbezeichnung.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtWarenbezeichnung.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtWarenbezeichnung.Style = resources.GetString("txtWarenbezeichnung.Style")
         Me.txtWarenbezeichnung.SummaryGroup = ""
         Me.txtWarenbezeichnung.Text = "M<EFBFBD>BEL TEST"
@@ -1332,7 +1384,7 @@ Partial Public Class rptSendungen
         Me.txtColli.Height = 0.3779528!
         Me.txtColli.Left = 4.888978!
         Me.txtColli.Name = "txtColli"
-        Me.txtColli.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtColli.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtColli.Style = resources.GetString("txtColli.Style")
         Me.txtColli.SummaryGroup = ""
         Me.txtColli.Text = "0"
@@ -1346,7 +1398,7 @@ Partial Public Class rptSendungen
         Me.txtGewicht.Height = 0.3779528!
         Me.txtGewicht.Left = 6.444095!
         Me.txtGewicht.Name = "txtGewicht"
-        Me.txtGewicht.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtGewicht.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtGewicht.Style = resources.GetString("txtGewicht.Style")
         Me.txtGewicht.SummaryGroup = ""
         Me.txtGewicht.Text = "0kg"
@@ -1360,7 +1412,7 @@ Partial Public Class rptSendungen
         Me.txtAufschub_VERAG.Height = 0.242126!
         Me.txtAufschub_VERAG.Left = 4.88504!
         Me.txtAufschub_VERAG.Name = "txtAufschub_VERAG"
-        Me.txtAufschub_VERAG.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAufschub_VERAG.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAufschub_VERAG.Style = "color: Black; font-size: 9pt; font-weight: bold; text-decoration: none; text-just" &
     "ify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none; ddo" &
     "-shrink-to-fit: none"
@@ -1376,7 +1428,7 @@ Partial Public Class rptSendungen
         Me.txtDokZuSend_Ueberschrift.Height = 0.242126!
         Me.txtDokZuSend_Ueberschrift.Left = 4.921655!
         Me.txtDokZuSend_Ueberschrift.Name = "txtDokZuSend_Ueberschrift"
-        Me.txtDokZuSend_Ueberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtDokZuSend_Ueberschrift.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtDokZuSend_Ueberschrift.Style = "color: Black; font-size: 9pt; font-weight: bold; text-decoration: underline; text" &
     "-justify: auto; vertical-align: middle; ddo-char-set: 0; ddo-font-vertical: none" &
     "; ddo-shrink-to-fit: none"
@@ -1392,7 +1444,7 @@ Partial Public Class rptSendungen
         Me.txtDokZuSend_Text.Height = 0.9795234!
         Me.txtDokZuSend_Text.Left = 4.921655!
         Me.txtDokZuSend_Text.Name = "txtDokZuSend_Text"
-        Me.txtDokZuSend_Text.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtDokZuSend_Text.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtDokZuSend_Text.Style = "color: Black; font-size: 9pt; font-weight: normal; text-decoration: none; text-ju" &
     "stify: auto; vertical-align: top; ddo-char-set: 0; ddo-font-vertical: none; ddo-" &
     "shrink-to-fit: none"
@@ -1407,29 +1459,34 @@ Partial Public Class rptSendungen
         Me.txtBARzuKassieren.Height = 0.1972442!
         Me.txtBARzuKassieren.Left = 4.808268!
         Me.txtBARzuKassieren.Name = "txtBARzuKassieren"
+        Me.txtBARzuKassieren.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtBARzuKassieren.Style = "font-family: Arial Black; font-size: 10pt; font-weight: bold; text-align: center;" &
     " vertical-align: middle; ddo-char-set: 0"
         Me.txtBARzuKassieren.Text = "122,00 <20>"
         Me.txtBARzuKassieren.Top = 5.497638!
         Me.txtBARzuKassieren.Width = 0.9358268!
         '
-        'TextBox1
+        'txtLKWID
         '
-        Me.TextBox1.CanGrow = False
+        Me.txtLKWID.CanGrow = False
-        Me.TextBox1.Height = 0.1334647!
+        Me.txtLKWID.DataField = ""
-        Me.TextBox1.Left = 0.8059056!
+        Me.txtLKWID.DistinctField = ""
-        Me.TextBox1.Name = "TextBox1"
+        Me.txtLKWID.Height = 0.155118!
-        Me.TextBox1.Style = "font-size: 7pt; font-weight: normal; text-justify: auto; vertical-align: middle; " &
+        Me.txtLKWID.Left = 0.8059056!
-    "ddo-char-set: 1"
+        Me.txtLKWID.Name = "txtLKWID"
-        Me.TextBox1.Text = "Barcode-Scan: Akt <20>bernehmen"
+        Me.txtLKWID.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
-        Me.TextBox1.Top = 1.110236!
+        Me.txtLKWID.Style = "color: Black; font-size: 8pt; font-weight: bold; text-justify: auto; vertical-ali" &
-        Me.TextBox1.Width = 2.864567!
+    "gn: middle; ddo-char-set: 1"
+        Me.txtLKWID.SummaryGroup = ""
+        Me.txtLKWID.Text = "LKW-ID: "
+        Me.txtLKWID.Top = 1.088583!
+        Me.txtLKWID.Width = 2.864567!
         '
         'barcodeSendung
         '
         Me.barcodeSendung.Height = 4.96378!
         Me.barcodeSendung.HyperLink = Nothing
-        Me.barcodeSendung.ImageBase64String = ""
+        Me.barcodeSendung.ImageBase64String = resources.GetString("barcodeSendung.ImageBase64String")
         Me.barcodeSendung.Left = 0.2082682!
         Me.barcodeSendung.Name = "barcodeSendung"
         Me.barcodeSendung.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
@@ -1443,6 +1500,7 @@ Partial Public Class rptSendungen
         Me.TextBox2.Height = 0.1720467!
         Me.TextBox2.Left = 0.642126!
         Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.TextBox2.Style = "font-size: 7pt; font-weight: normal; text-justify: auto; vertical-align: middle; " &
     "ddo-char-set: 1"
         Me.TextBox2.Text = "Barcode-Scan links: Akt <20>bernehmen & Sendung <20>ffnen"
@@ -1455,6 +1513,7 @@ Partial Public Class rptSendungen
         Me.txtNCTSVZAdr.Height = 0.7342525!
         Me.txtNCTSVZAdr.Left = 1.450394!
         Me.txtNCTSVZAdr.Name = "txtNCTSVZAdr"
+        Me.txtNCTSVZAdr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtNCTSVZAdr.Style = "font-size: 10pt; ddo-char-set: 1"
         Me.txtNCTSVZAdr.Text = "TESTFIRMA"
         Me.txtNCTSVZAdr.Top = 5.272441!
@@ -1467,6 +1526,7 @@ Partial Public Class rptSendungen
         Me.lblNCTSVZAdr.Height = 0.5641732!
         Me.lblNCTSVZAdr.Left = 0.642126!
         Me.lblNCTSVZAdr.Name = "lblNCTSVZAdr"
+        Me.lblNCTSVZAdr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.lblNCTSVZAdr.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
         Me.lblNCTSVZAdr.Text = "NCTS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Gest.-Adr.:"
         Me.lblNCTSVZAdr.Top = 5.272441!
@@ -1492,7 +1552,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Bar_BelegNr2.Height = 0.242126!
         Me.txtFrachtfuehrer_Bar_BelegNr2.Left = 5.744095!
         Me.txtFrachtfuehrer_Bar_BelegNr2.Name = "txtFrachtfuehrer_Bar_BelegNr2"
-        Me.txtFrachtfuehrer_Bar_BelegNr2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtFrachtfuehrer_Bar_BelegNr2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Bar_BelegNr2.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr2.Style")
         Me.txtFrachtfuehrer_Bar_BelegNr2.SummaryGroup = ""
         Me.txtFrachtfuehrer_Bar_BelegNr2.Text = "TEST"
@@ -1506,6 +1566,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Bar_Betrag2.Height = 0.242126!
         Me.txtFrachtfuehrer_Bar_Betrag2.Left = 7.172445!
         Me.txtFrachtfuehrer_Bar_Betrag2.Name = "txtFrachtfuehrer_Bar_Betrag2"
+        Me.txtFrachtfuehrer_Bar_Betrag2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Bar_Betrag2.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag2.Style")
         Me.txtFrachtfuehrer_Bar_Betrag2.SummaryGroup = ""
         Me.txtFrachtfuehrer_Bar_Betrag2.Text = "0"
@@ -1519,7 +1580,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Bar_BelegNr3.Height = 0.242126!
         Me.txtFrachtfuehrer_Bar_BelegNr3.Left = 5.744095!
         Me.txtFrachtfuehrer_Bar_BelegNr3.Name = "txtFrachtfuehrer_Bar_BelegNr3"
-        Me.txtFrachtfuehrer_Bar_BelegNr3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtFrachtfuehrer_Bar_BelegNr3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Bar_BelegNr3.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr3.Style")
         Me.txtFrachtfuehrer_Bar_BelegNr3.SummaryGroup = ""
         Me.txtFrachtfuehrer_Bar_BelegNr3.Text = "TEST"
@@ -1533,6 +1594,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_Bar_Betrag3.Height = 0.242126!
         Me.txtFrachtfuehrer_Bar_Betrag3.Left = 7.172445!
         Me.txtFrachtfuehrer_Bar_Betrag3.Name = "txtFrachtfuehrer_Bar_Betrag3"
+        Me.txtFrachtfuehrer_Bar_Betrag3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_Bar_Betrag3.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag3.Style")
         Me.txtFrachtfuehrer_Bar_Betrag3.SummaryGroup = ""
         Me.txtFrachtfuehrer_Bar_Betrag3.Text = "0"
@@ -1545,6 +1607,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_EUSTKto.Height = 0.1795275!
         Me.txtAuftraggeber_EUSTKto.Left = 3.452756!
         Me.txtAuftraggeber_EUSTKto.Name = "txtAuftraggeber_EUSTKto"
+        Me.txtAuftraggeber_EUSTKto.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_EUSTKto.Style = "font-size: 9pt; ddo-char-set: 1"
         Me.txtAuftraggeber_EUSTKto.Text = "EUST: M 1234569"
         Me.txtAuftraggeber_EUSTKto.Top = 2.606299!
@@ -1556,6 +1619,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_EUSTKto.Height = 0.1795275!
         Me.txtEmpfaenger_EUSTKto.Left = 3.452756!
         Me.txtEmpfaenger_EUSTKto.Name = "txtEmpfaenger_EUSTKto"
+        Me.txtEmpfaenger_EUSTKto.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_EUSTKto.Style = "font-size: 9pt; ddo-char-set: 1"
         Me.txtEmpfaenger_EUSTKto.Text = "EUST: M 1234569"
         Me.txtEmpfaenger_EUSTKto.Top = 3.394095!
@@ -1567,6 +1631,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_ZOLLKto.Height = 0.1795275!
         Me.txtAuftraggeber_ZOLLKto.Left = 2.195669!
         Me.txtAuftraggeber_ZOLLKto.Name = "txtAuftraggeber_ZOLLKto"
+        Me.txtAuftraggeber_ZOLLKto.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_ZOLLKto.Style = "font-size: 9pt; ddo-char-set: 1"
         Me.txtAuftraggeber_ZOLLKto.Text = "ZOLL: M 1234569"
         Me.txtAuftraggeber_ZOLLKto.Top = 2.606299!
@@ -1578,6 +1643,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_ZOLLKto.Height = 0.1795275!
         Me.txtEmpfaenger_ZOLLKto.Left = 2.195669!
         Me.txtEmpfaenger_ZOLLKto.Name = "txtEmpfaenger_ZOLLKto"
+        Me.txtEmpfaenger_ZOLLKto.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_ZOLLKto.Style = "font-size: 9pt; ddo-char-set: 1"
         Me.txtEmpfaenger_ZOLLKto.Text = "ZOLL: M 1234569"
         Me.txtEmpfaenger_ZOLLKto.Top = 3.394095!
@@ -1589,6 +1655,7 @@ Partial Public Class rptSendungen
         Me.txtKdAuftrNr.Height = 0.1795275!
         Me.txtKdAuftrNr.Left = 1.162599!
         Me.txtKdAuftrNr.Name = "txtKdAuftrNr"
+        Me.txtKdAuftrNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtKdAuftrNr.Style = "font-size: 9pt; ddo-char-set: 1"
         Me.txtKdAuftrNr.Text = "4805/18000000"
         Me.txtKdAuftrNr.Top = 2.606299!
@@ -1599,6 +1666,7 @@ Partial Public Class rptSendungen
         Me.cbxDyUebermittelt.Height = 0.2!
         Me.cbxDyUebermittelt.Left = 5.408268!
         Me.cbxDyUebermittelt.Name = "cbxDyUebermittelt"
+        Me.cbxDyUebermittelt.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.cbxDyUebermittelt.Style = "font-size: 12pt; font-weight: bold; ddo-char-set: 1"
         Me.cbxDyUebermittelt.Text = "  An Dakosy <20>bermittelt"
         Me.cbxDyUebermittelt.Top = 10.01221!
@@ -1610,22 +1678,22 @@ Partial Public Class rptSendungen
         Me.shGrenze.Height = 0.3645669!
         Me.shGrenze.Left = 2.893307!
         Me.shGrenze.Name = "shGrenze"
-        Me.shGrenze.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.shGrenze.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
         Me.shGrenze.Top = 0.8212599!
         Me.shGrenze.Visible = False
         Me.shGrenze.Width = 1.914962!
         '
         'barcodeLKW
         '
-        Me.barcodeLKW.Height = 0.2889763!
+        Me.barcodeLKW.Height = 0.2362205!
         Me.barcodeLKW.HyperLink = Nothing
-        Me.barcodeLKW.ImageBase64String = ""
+        Me.barcodeLKW.ImageBase64String = resources.GetString("barcodeLKW.ImageBase64String")
         Me.barcodeLKW.Left = 0.6421265!
         Me.barcodeLKW.Name = "barcodeLKW"
         Me.barcodeLKW.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft
         Me.barcodeLKW.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
         Me.barcodeLKW.Top = 0.8212597!
-        Me.barcodeLKW.Width = 2.739763!
+        Me.barcodeLKW.Width = 2.739764!
         '
         'txtAvisierer_VK
         '
@@ -1634,7 +1702,7 @@ Partial Public Class rptSendungen
         Me.txtAvisierer_VK.Height = 0.3051181!
         Me.txtAvisierer_VK.Left = 5.659843!
         Me.txtAvisierer_VK.Name = "txtAvisierer_VK"
-        Me.txtAvisierer_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAvisierer_VK.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAvisierer_VK.Style = resources.GetString("txtAvisierer_VK.Style")
         Me.txtAvisierer_VK.SummaryGroup = ""
         Me.txtAvisierer_VK.Text = "<EFBFBD> VK"
@@ -1648,7 +1716,7 @@ Partial Public Class rptSendungen
         Me.txtAuftraggeber_VK.Height = 0.3051181!
         Me.txtAuftraggeber_VK.Left = 5.659843!
         Me.txtAuftraggeber_VK.Name = "txtAuftraggeber_VK"
-        Me.txtAuftraggeber_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAuftraggeber_VK.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAuftraggeber_VK.Style = resources.GetString("txtAuftraggeber_VK.Style")
         Me.txtAuftraggeber_VK.SummaryGroup = ""
         Me.txtAuftraggeber_VK.Text = "<EFBFBD> VK"
@@ -1662,7 +1730,7 @@ Partial Public Class rptSendungen
         Me.txtEmpfaenger_VK.Height = 0.3051181!
         Me.txtEmpfaenger_VK.Left = 5.659843!
         Me.txtEmpfaenger_VK.Name = "txtEmpfaenger_VK"
-        Me.txtEmpfaenger_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtEmpfaenger_VK.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtEmpfaenger_VK.Style = resources.GetString("txtEmpfaenger_VK.Style")
         Me.txtEmpfaenger_VK.SummaryGroup = ""
         Me.txtEmpfaenger_VK.Text = "<EFBFBD> VK"
@@ -1676,7 +1744,7 @@ Partial Public Class rptSendungen
         Me.txtAbsender_VK.Height = 0.3051181!
         Me.txtAbsender_VK.Left = 5.659843!
         Me.txtAbsender_VK.Name = "txtAbsender_VK"
-        Me.txtAbsender_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtAbsender_VK.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtAbsender_VK.Style = resources.GetString("txtAbsender_VK.Style")
         Me.txtAbsender_VK.SummaryGroup = ""
         Me.txtAbsender_VK.Text = "<EFBFBD> VK"
@@ -1690,7 +1758,7 @@ Partial Public Class rptSendungen
         Me.txtFrachtfuehrer_VK.Height = 0.3051181!
         Me.txtFrachtfuehrer_VK.Left = 5.659843!
         Me.txtFrachtfuehrer_VK.Name = "txtFrachtfuehrer_VK"
-        Me.txtFrachtfuehrer_VK.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.txtFrachtfuehrer_VK.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtFrachtfuehrer_VK.Style = resources.GetString("txtFrachtfuehrer_VK.Style")
         Me.txtFrachtfuehrer_VK.SummaryGroup = ""
         Me.txtFrachtfuehrer_VK.Text = "<EFBFBD> VK"
@@ -1703,6 +1771,7 @@ Partial Public Class rptSendungen
         Me.txtSchnellAbfertigung.Height = 0.5862205!
         Me.txtSchnellAbfertigung.Left = 7.34567!
         Me.txtSchnellAbfertigung.Name = "txtSchnellAbfertigung"
+        Me.txtSchnellAbfertigung.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.txtSchnellAbfertigung.Style = "background-color: SteelBlue; color: White; font-size: 36pt; font-weight: bold; te" &
     "xt-align: center; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
         Me.txtSchnellAbfertigung.Text = "S"
@@ -1717,7 +1786,7 @@ Partial Public Class rptSendungen
         Me.TextBox3.Height = 0.5547237!
         Me.TextBox3.Left = 5.119292!
         Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
+        Me.TextBox3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
         Me.TextBox3.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; text-decorati" &
     "on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" &
     "vertical: none; ddo-shrink-to-fit: none"
@@ -1731,7 +1800,7 @@ Partial Public Class rptSendungen
         Me.picQR.DataField = ""
         Me.picQR.Height = 1.221653!
         Me.picQR.HyperLink = Nothing
-        Me.picQR.ImageBase64String = ""
+        Me.picQR.ImageBase64String = resources.GetString("picQR.ImageBase64String")
         Me.picQR.Left = 6.440158!
         Me.picQR.Name = "picQR"
         Me.picQR.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft
@@ -1741,6 +1810,7 @@ Partial Public Class rptSendungen
         '
         'rptSendungen
         '
+        Me.MasterReport = False
         Me.PageSettings.DefaultPaperSize = False
         Me.PageSettings.Margins.Bottom = 0!
         Me.PageSettings.Margins.Left = 0!
@@ -1752,12 +1822,12 @@ Partial Public Class rptSendungen
         Me.PageSettings.PaperWidth = 8.267716!
         Me.PrintWidth = 8.132299!
         Me.Sections.Add(Me.Detail)
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
-            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
-            "lic", "Heading2", "Normal"))
+            "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
         CType(Me.Picture, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblGrenze, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1843,7 +1913,7 @@ Partial Public Class rptSendungen
         CType(Me.txtDokZuSend_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtDokZuSend_Text, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtBARzuKassieren, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLKWID, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.barcodeSendung, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtNCTSVZAdr, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1953,7 +2023,7 @@ Partial Public Class rptSendungen
     Private WithEvents txtAnmerkungen As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents txtBARzuKassieren As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents barcodeLKW As GrapeCity.ActiveReports.SectionReportModel.Picture
-    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtLKWID As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents barcodeSendung As GrapeCity.ActiveReports.SectionReportModel.Picture
     Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents Picture As GrapeCity.ActiveReports.SectionReportModel.Picture

Gemeinsames/rptSendungen.resx

@@ -147,6 +147,9 @@
   <data name="txtGewicht.Style" xml:space="preserve">
     <value>color: Black; font-size: 12pt; font-weight: normal; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
   </data>
+  <data name="barcodeSendung.ImageBase64String" xml:space="preserve">
+    <value />
+  </data>
   <data name="txtFrachtfuehrer_Bar_BelegNr2.Style" xml:space="preserve">
     <value>color: Black; font-size: 11pt; font-weight: bold; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
   </data>
@@ -159,6 +162,9 @@
   <data name="txtFrachtfuehrer_Bar_Betrag3.Style" xml:space="preserve">
     <value>color: Black; font-size: 11pt; font-weight: bold; text-align: right; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
   </data>
+  <data name="barcodeLKW.ImageBase64String" xml:space="preserve">
+    <value />
+  </data>
   <data name="txtAvisierer_VK.Style" xml:space="preserve">
     <value>color: Black; font-size: 9pt; font-weight: bold; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
   </data>
@@ -174,6 +180,9 @@
   <data name="txtFrachtfuehrer_VK.Style" xml:space="preserve">
     <value>color: Black; font-size: 9pt; font-weight: bold; text-align: center; text-decoration: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-vertical: none; ddo-shrink-to-fit: none</value>
   </data>
+  <data name="picQR.ImageBase64String" xml:space="preserve">
+    <value />
+  </data>
   <metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>0, 0</value>
   </metadata>

Gemeinsames/rptSendungen.vb

@@ -135,6 +135,8 @@ Public Class rptSendungen
 
         TextBox3.Text = "Abkl.: " & VALUES.QS_MA & vbNewLine & "Dekl.: " & VALUES.VG_MA
 
+        txtLKWID.Text &= VALUES.LKW_ID
+
         If VALUES.Grenze.Trim <> "" Then
             lblGrenze.Visible = True
             shGrenze.Visible = True
@@ -350,6 +352,8 @@ Public Class rptSendungenValues
 
     Property SchnellAbfertigung As Boolean = False
 
+    Property LKW_ID As String = ""
+
     Property VG_MA As String = ""
     Property QS_MA As String = ""