diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
index 2f9e246b..4939886d 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
@@ -23,13 +23,13 @@ Partial Class usrCntlSpeditionsBuchSuche
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche))
         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()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche))
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.cntxtCntxtSpeditionsbuch = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.SendungsdetailsÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -42,11 +42,15 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.lblAvisierer = New System.Windows.Forms.Label()
         Me.pnlRechts = New System.Windows.Forms.Panel()
         Me.btnNurAbf = New System.Windows.Forms.Button()
+        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
         Me.btnAlle = New System.Windows.Forms.Button()
         Me.btnKeine = New System.Windows.Forms.Button()
         Me.lblAbfertigungsarten = New System.Windows.Forms.Label()
         Me.Label17 = New System.Windows.Forms.Label()
         Me.pnlAnzeige = New System.Windows.Forms.Panel()
+        Me.txtFiskalEndempfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlOpt = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.Button2 = New System.Windows.Forms.Button()
@@ -55,6 +59,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Button8 = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox()
+        Me.cboDetailberichtKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label38 = New System.Windows.Forms.Label()
         Me.Label44 = New System.Windows.Forms.Label()
         Me.CheckBox3 = New System.Windows.Forms.CheckBox()
@@ -63,16 +68,19 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Button10 = New System.Windows.Forms.Button()
         Me.cbxSpedDetailBem = New System.Windows.Forms.CheckBox()
         Me.Label42 = New System.Windows.Forms.Label()
+        Me.txtUeberschr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button22 = New System.Windows.Forms.Button()
         Me.cbxFilterInBericht = New System.Windows.Forms.CheckBox()
         Me.Button21 = New System.Windows.Forms.Button()
         Me.btnSpedBuchEinnahmen = New System.Windows.Forms.Button()
         Me.pnlBerichte = New System.Windows.Forms.Panel()
+        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
         Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
         Me.btnHandling = New System.Windows.Forms.Button()
+        Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.btnHandling_AMBAR = New System.Windows.Forms.Button()
+        Me.cboHandlingssatz_AMBAR = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxHandlingAbrechnen = New System.Windows.Forms.CheckBox()
-        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
         Me.cbxDetailbericht = New System.Windows.Forms.CheckBox()
         Me.Button24 = New System.Windows.Forms.Button()
         Me.Button23 = New System.Windows.Forms.Button()
@@ -90,11 +98,14 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Button17 = New System.Windows.Forms.Button()
         Me.btnCSAufteilung = New System.Windows.Forms.Button()
         Me.Button14 = New System.Windows.Forms.Button()
+        Me.txtMax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboRolle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label35 = New System.Windows.Forms.Label()
         Me.Label34 = New System.Windows.Forms.Label()
         Me.Button9 = New System.Windows.Forms.Button()
         Me.btnQSAufteilung = New System.Windows.Forms.Button()
         Me.Label43 = New System.Windows.Forms.Label()
+        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.MenuStrip2 = New System.Windows.Forms.MenuStrip()
         Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
@@ -106,6 +117,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.btnExcel = New System.Windows.Forms.Button()
         Me.FlatButton7 = New System.Windows.Forms.Button()
         Me.Label37 = New System.Windows.Forms.Label()
+        Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblErgebnis = New System.Windows.Forms.Label()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.lblAbsender = New System.Windows.Forms.Label()
@@ -126,7 +138,16 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.btnSuche = New System.Windows.Forms.Button()
         Me.pnlSearch = New System.Windows.Forms.Panel()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.cboSB_TR = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label47 = New System.Windows.Forms.Label()
+        Me.cboSB_Qs = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAbfertigungsnummerBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label28 = New System.Windows.Forms.Label()
         Me.Label21 = New System.Windows.Forms.Label()
         Me.Label23 = New System.Windows.Forms.Label()
@@ -149,37 +170,15 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
         Me.cbxfehlZahlung_SENDUNG = New System.Windows.Forms.CheckBox()
         Me.cbxfehlZahlung_AVISOID = New System.Windows.Forms.CheckBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblVermerke = New System.Windows.Forms.Label()
+        Me.txtZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.cbxEIDR = New System.Windows.Forms.CheckBox()
         Me.cbxCMR = New System.Windows.Forms.CheckBox()
         Me.Label41 = New System.Windows.Forms.Label()
-        Me.lblKdAuftragsNr = New System.Windows.Forms.Label()
-        Me.lblAuftraggeber = New System.Windows.Forms.Label()
-        Me.lblFrachtf = New System.Windows.Forms.Label()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.cbxFakturiert = New System.Windows.Forms.CheckBox()
-        Me.lblLKW_KZ = New System.Windows.Forms.Label()
-        Me.cbxBar = New System.Windows.Forms.CheckBox()
-        Me.lblCRNNr = New System.Windows.Forms.Label()
-        Me.lblVersendungsland = New System.Windows.Forms.Label()
-        Me.lblErfassungsNr = New System.Windows.Forms.Label()
-        Me.cbxOderEmpfanger = New System.Windows.Forms.CheckBox()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.Label45 = New System.Windows.Forms.Label()
-        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
-        Me.cboSB_TR = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboSB_Qs = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbfertigungsnummerBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lstGrenze = New VERAG_PROG_ALLGEMEIN.MyListBox()
+        Me.lblKdAuftragsNr = New System.Windows.Forms.Label()
         Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.kdtxtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.txtAuftraggeberKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -190,35 +189,39 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.txtPackstücke = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.kdtxtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.txtAvisiererKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
+        Me.lblAuftraggeber = New System.Windows.Forms.Label()
+        Me.lblFrachtf = New System.Windows.Forms.Label()
         Me.kdtxtFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.MyTextBox14 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
         Me.kdtxtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.cbxFakturiert = New System.Windows.Forms.CheckBox()
+        Me.lblLKW_KZ = New System.Windows.Forms.Label()
         Me.txtAbsenderKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.kdtxtEndempfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.cbxBar = New System.Windows.Forms.CheckBox()
         Me.txtEmpfaengerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.kdtxtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.txtFrachtfuehrerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtEndempfaengerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblCRNNr = New System.Windows.Forms.Label()
         Me.txtErfassungsnNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblVersendungsland = New System.Windows.Forms.Label()
+        Me.lblErfassungsNr = New System.Windows.Forms.Label()
+        Me.cbxOderEmpfanger = New System.Windows.Forms.CheckBox()
+        Me.Panel2 = New System.Windows.Forms.Panel()
         Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lstFiliale = New VERAG_PROG_ALLGEMEIN.MyListBox()
         Me.lstFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyListBox()
+        Me.Label45 = New System.Windows.Forms.Label()
         Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtFiskalEndempfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cboDetailberichtKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtUeberschr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboHandlingssatz_AMBAR = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtMax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboRolle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
+        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
+        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
         Me.pnlRechts.SuspendLayout()
         Me.pnlAnzeige.SuspendLayout()
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlOpt.SuspendLayout()
         Me.Panel3.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -239,8 +242,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
         Me.SplitContainer.SuspendLayout()
-        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'TabPage1
@@ -357,6 +358,19 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.btnNurAbf.Text = "Nur Abfertigungs Leistungen"
         Me.btnNurAbf.UseVisualStyleBackColor = True
         '
+        'MyListBox1
+        '
+        Me.MyListBox1._value = ""
+        Me.MyListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyListBox1.FormattingEnabled = True
+        Me.MyListBox1.Location = New System.Drawing.Point(4, 19)
+        Me.MyListBox1.Name = "MyListBox1"
+        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
+        Me.MyListBox1.Size = New System.Drawing.Size(225, 147)
+        Me.MyListBox1.TabIndex = 1
+        '
         'btnAlle
         '
         Me.btnAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -413,6 +427,113 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.pnlAnzeige.Size = New System.Drawing.Size(1239, 452)
         Me.pnlAnzeige.TabIndex = 0
         '
+        'txtFiskalEndempfaenger
+        '
+        Me.txtFiskalEndempfaenger._DateTimeOnly = False
+        Me.txtFiskalEndempfaenger._numbersOnly = False
+        Me.txtFiskalEndempfaenger._numbersOnlyKommastellen = ""
+        Me.txtFiskalEndempfaenger._numbersOnlyTrennzeichen = True
+        Me.txtFiskalEndempfaenger._Prozent = False
+        Me.txtFiskalEndempfaenger._ShortDateNew = False
+        Me.txtFiskalEndempfaenger._ShortDateOnly = False
+        Me.txtFiskalEndempfaenger._TimeOnly = False
+        Me.txtFiskalEndempfaenger._TimeOnly_Seconds = False
+        Me.txtFiskalEndempfaenger._value = Nothing
+        Me.txtFiskalEndempfaenger._Waehrung = False
+        Me.txtFiskalEndempfaenger._WaehrungZeichen = True
+        Me.txtFiskalEndempfaenger.BackColor = System.Drawing.Color.White
+        Me.txtFiskalEndempfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtFiskalEndempfaenger.ForeColor = System.Drawing.Color.Black
+        Me.txtFiskalEndempfaenger.Location = New System.Drawing.Point(224, 72)
+        Me.txtFiskalEndempfaenger.MaxLineLength = -1
+        Me.txtFiskalEndempfaenger.MaxLines_Warning = ""
+        Me.txtFiskalEndempfaenger.MaxLines_Warning_Label = Nothing
+        Me.txtFiskalEndempfaenger.Name = "txtFiskalEndempfaenger"
+        Me.txtFiskalEndempfaenger.ReadOnly = True
+        Me.txtFiskalEndempfaenger.Size = New System.Drawing.Size(261, 20)
+        Me.txtFiskalEndempfaenger.TabIndex = 34
+        Me.txtFiskalEndempfaenger.Visible = False
+        '
+        'DataGridView
+        '
+        Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1
+        Me.DataGridView.AllowUserToAddRows = False
+        Me.DataGridView.AllowUserToDeleteRows = False
+        Me.DataGridView.AllowUserToOrderColumns = True
+        Me.DataGridView.AllowUserToResizeRows = False
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView.Location = New System.Drawing.Point(450, 0)
+        Me.DataGridView.Name = "DataGridView"
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
+        Me.DataGridView.Size = New System.Drawing.Size(789, 262)
+        Me.DataGridView.TabIndex = 0
+        '
+        'dgvLKW
+        '
+        Me.dgvLKW.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvLKW.AllowUserToAddRows = False
+        Me.dgvLKW.AllowUserToDeleteRows = False
+        Me.dgvLKW.AllowUserToOrderColumns = True
+        Me.dgvLKW.AllowUserToResizeRows = False
+        Me.dgvLKW.BackgroundColor = System.Drawing.Color.WhiteSmoke
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvLKW.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Left
+        Me.dgvLKW.Location = New System.Drawing.Point(0, 0)
+        Me.dgvLKW.Name = "dgvLKW"
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.dgvLKW.Size = New System.Drawing.Size(450, 262)
+        Me.dgvLKW.TabIndex = 35
+        Me.dgvLKW.Visible = False
+        '
         'pnlOpt
         '
         Me.pnlOpt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -528,6 +649,18 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails"
         Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False
         '
+        'cboDetailberichtKdAtrNr
+        '
+        Me.cboDetailberichtKdAtrNr._allowedValuesFreiText = Nothing
+        Me.cboDetailberichtKdAtrNr._allowFreiText = False
+        Me.cboDetailberichtKdAtrNr._value = ""
+        Me.cboDetailberichtKdAtrNr.DropDownWidth = 300
+        Me.cboDetailberichtKdAtrNr.FormattingEnabled = True
+        Me.cboDetailberichtKdAtrNr.Location = New System.Drawing.Point(140, 78)
+        Me.cboDetailberichtKdAtrNr.Name = "cboDetailberichtKdAtrNr"
+        Me.cboDetailberichtKdAtrNr.Size = New System.Drawing.Size(76, 21)
+        Me.cboDetailberichtKdAtrNr.TabIndex = 56
+        '
         'Label38
         '
         Me.Label38.AutoSize = True
@@ -619,6 +752,31 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label42.TabIndex = 50
         Me.Label42.Text = "Beschr.:"
         '
+        'txtUeberschr
+        '
+        Me.txtUeberschr._DateTimeOnly = False
+        Me.txtUeberschr._numbersOnly = False
+        Me.txtUeberschr._numbersOnlyKommastellen = ""
+        Me.txtUeberschr._numbersOnlyTrennzeichen = True
+        Me.txtUeberschr._Prozent = False
+        Me.txtUeberschr._ShortDateNew = False
+        Me.txtUeberschr._ShortDateOnly = False
+        Me.txtUeberschr._TimeOnly = False
+        Me.txtUeberschr._TimeOnly_Seconds = False
+        Me.txtUeberschr._value = ""
+        Me.txtUeberschr._Waehrung = False
+        Me.txtUeberschr._WaehrungZeichen = True
+        Me.txtUeberschr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtUeberschr.ForeColor = System.Drawing.Color.Black
+        Me.txtUeberschr.Location = New System.Drawing.Point(204, 107)
+        Me.txtUeberschr.MaxLineLength = -1
+        Me.txtUeberschr.MaxLines_Warning = ""
+        Me.txtUeberschr.MaxLines_Warning_Label = Nothing
+        Me.txtUeberschr.Multiline = True
+        Me.txtUeberschr.Name = "txtUeberschr"
+        Me.txtUeberschr.Size = New System.Drawing.Size(173, 20)
+        Me.txtUeberschr.TabIndex = 51
+        '
         'Button22
         '
         Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -704,6 +862,17 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.pnlBerichte.TabIndex = 6
         Me.pnlBerichte.Visible = False
         '
+        'CheckBox5
+        '
+        Me.CheckBox5.AutoSize = True
+        Me.CheckBox5.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.CheckBox5.Location = New System.Drawing.Point(413, 141)
+        Me.CheckBox5.Name = "CheckBox5"
+        Me.CheckBox5.Size = New System.Drawing.Size(92, 17)
+        Me.CheckBox5.TabIndex = 98
+        Me.CheckBox5.Text = "mit DL-Kosten"
+        Me.CheckBox5.UseVisualStyleBackColor = False
+        '
         'FlowLayoutPanel1
         '
         Me.FlowLayoutPanel1.Controls.Add(Me.btnHandling)
@@ -729,6 +898,18 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.btnHandling.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnHandling.UseVisualStyleBackColor = True
         '
+        'cboHandlingssatz
+        '
+        Me.cboHandlingssatz._allowedValuesFreiText = Nothing
+        Me.cboHandlingssatz._allowFreiText = False
+        Me.cboHandlingssatz._value = ""
+        Me.cboHandlingssatz.DropDownWidth = 300
+        Me.cboHandlingssatz.FormattingEnabled = True
+        Me.cboHandlingssatz.Location = New System.Drawing.Point(3, 31)
+        Me.cboHandlingssatz.Name = "cboHandlingssatz"
+        Me.cboHandlingssatz.Size = New System.Drawing.Size(159, 21)
+        Me.cboHandlingssatz.TabIndex = 60
+        '
         'btnHandling_AMBAR
         '
         Me.btnHandling_AMBAR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -743,6 +924,19 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.btnHandling_AMBAR.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnHandling_AMBAR.UseVisualStyleBackColor = True
         '
+        'cboHandlingssatz_AMBAR
+        '
+        Me.cboHandlingssatz_AMBAR._allowedValuesFreiText = Nothing
+        Me.cboHandlingssatz_AMBAR._allowFreiText = False
+        Me.cboHandlingssatz_AMBAR._value = ""
+        Me.cboHandlingssatz_AMBAR.DropDownWidth = 250
+        Me.cboHandlingssatz_AMBAR.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboHandlingssatz_AMBAR.FormattingEnabled = True
+        Me.cboHandlingssatz_AMBAR.Location = New System.Drawing.Point(3, 59)
+        Me.cboHandlingssatz_AMBAR.Name = "cboHandlingssatz_AMBAR"
+        Me.cboHandlingssatz_AMBAR.Size = New System.Drawing.Size(128, 22)
+        Me.cboHandlingssatz_AMBAR.TabIndex = 53
+        '
         'cbxHandlingAbrechnen
         '
         Me.cbxHandlingAbrechnen.AutoSize = True
@@ -755,17 +949,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.cbxHandlingAbrechnen.Text = "Handling abrechnen"
         Me.cbxHandlingAbrechnen.UseVisualStyleBackColor = False
         '
-        'CheckBox4
-        '
-        Me.CheckBox4.AutoSize = True
-        Me.CheckBox4.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.CheckBox4.Location = New System.Drawing.Point(328, 126)
-        Me.CheckBox4.Name = "CheckBox4"
-        Me.CheckBox4.Size = New System.Drawing.Size(78, 17)
-        Me.CheckBox4.TabIndex = 95
-        Me.CheckBox4.Text = "Detailb.Full"
-        Me.CheckBox4.UseVisualStyleBackColor = False
-        '
         'cbxDetailbericht
         '
         Me.cbxDetailbericht.AutoSize = True
@@ -818,14 +1001,14 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
         Me.MenuStrip1.Location = New System.Drawing.Point(322, 156)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(163, 27)
+        Me.MenuStrip1.Size = New System.Drawing.Size(283, 27)
         Me.MenuStrip1.TabIndex = 89
         Me.MenuStrip1.Text = "Kundenauswertungen"
         '
         'KundenauswertungenToolStripMenuItem1
         '
         Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFSteyrZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem})
+        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem2, Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFSteyrZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem})
         Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
         Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1"
@@ -957,6 +1140,42 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button14.UseVisualStyleBackColor = True
         '
+        'txtMax
+        '
+        Me.txtMax._DateTimeOnly = False
+        Me.txtMax._numbersOnly = True
+        Me.txtMax._numbersOnlyKommastellen = ""
+        Me.txtMax._numbersOnlyTrennzeichen = True
+        Me.txtMax._Prozent = False
+        Me.txtMax._ShortDateNew = False
+        Me.txtMax._ShortDateOnly = False
+        Me.txtMax._TimeOnly = False
+        Me.txtMax._TimeOnly_Seconds = False
+        Me.txtMax._value = ""
+        Me.txtMax._Waehrung = False
+        Me.txtMax._WaehrungZeichen = True
+        Me.txtMax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMax.ForeColor = System.Drawing.Color.Black
+        Me.txtMax.Location = New System.Drawing.Point(401, 13)
+        Me.txtMax.MaxLineLength = -1
+        Me.txtMax.MaxLines_Warning = ""
+        Me.txtMax.MaxLines_Warning_Label = Nothing
+        Me.txtMax.Name = "txtMax"
+        Me.txtMax.Size = New System.Drawing.Size(76, 20)
+        Me.txtMax.TabIndex = 33
+        '
+        'cboRolle
+        '
+        Me.cboRolle._allowedValuesFreiText = Nothing
+        Me.cboRolle._allowFreiText = False
+        Me.cboRolle._value = ""
+        Me.cboRolle.DropDownWidth = 300
+        Me.cboRolle.FormattingEnabled = True
+        Me.cboRolle.Location = New System.Drawing.Point(401, 32)
+        Me.cboRolle.Name = "cboRolle"
+        Me.cboRolle.Size = New System.Drawing.Size(76, 21)
+        Me.cboRolle.TabIndex = 39
+        '
         'Label35
         '
         Me.Label35.AutoSize = True
@@ -1015,6 +1234,17 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label43.TabIndex = 55
         Me.Label43.Text = "Bürgschaften:"
         '
+        'CheckBox4
+        '
+        Me.CheckBox4.AutoSize = True
+        Me.CheckBox4.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.CheckBox4.Location = New System.Drawing.Point(328, 126)
+        Me.CheckBox4.Name = "CheckBox4"
+        Me.CheckBox4.Size = New System.Drawing.Size(78, 17)
+        Me.CheckBox4.TabIndex = 95
+        Me.CheckBox4.Text = "Detailb.Full"
+        Me.CheckBox4.UseVisualStyleBackColor = False
+        '
         'pnl
         '
         Me.pnl.Controls.Add(Me.MenuStrip2)
@@ -1034,7 +1264,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14})
         Me.MenuStrip2.Location = New System.Drawing.Point(16, 71)
         Me.MenuStrip2.Name = "MenuStrip2"
-        Me.MenuStrip2.Size = New System.Drawing.Size(283, 27)
+        Me.MenuStrip2.Size = New System.Drawing.Size(163, 27)
         Me.MenuStrip2.TabIndex = 93
         Me.MenuStrip2.Text = "Kundenauswertungen"
         '
@@ -1052,14 +1282,14 @@ Partial Class usrCntlSpeditionsBuchSuche
         '
         Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(344, 30)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(336, 24)
         Me.ToolStripMenuItem1.Text = "Kundenbericht (Zeitraum auswählen)"
         '
         'ToolStripMenuItem19
         '
         Me.ToolStripMenuItem19.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
-        Me.ToolStripMenuItem19.Size = New System.Drawing.Size(344, 30)
+        Me.ToolStripMenuItem19.Size = New System.Drawing.Size(336, 24)
         Me.ToolStripMenuItem19.Text = "Detailkundenbericht (Zeitraum auswählen)"
         '
         'Button15
@@ -1137,6 +1367,32 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label37.TabIndex = 41
         Me.Label37.Text = "Max:"
         '
+        'txtMaxSrch
+        '
+        Me.txtMaxSrch._DateTimeOnly = False
+        Me.txtMaxSrch._numbersOnly = True
+        Me.txtMaxSrch._numbersOnlyKommastellen = ""
+        Me.txtMaxSrch._numbersOnlyTrennzeichen = True
+        Me.txtMaxSrch._Prozent = False
+        Me.txtMaxSrch._ShortDateNew = False
+        Me.txtMaxSrch._ShortDateOnly = False
+        Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._TimeOnly_Seconds = False
+        Me.txtMaxSrch._value = ""
+        Me.txtMaxSrch._Waehrung = False
+        Me.txtMaxSrch._WaehrungZeichen = True
+        Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
+        Me.txtMaxSrch.Location = New System.Drawing.Point(1136, 31)
+        Me.txtMaxSrch.MaxLineLength = -1
+        Me.txtMaxSrch.MaxLines_Warning = ""
+        Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
+        Me.txtMaxSrch.Name = "txtMaxSrch"
+        Me.txtMaxSrch.Size = New System.Drawing.Size(41, 20)
+        Me.txtMaxSrch.TabIndex = 42
+        Me.txtMaxSrch.Text = "1000"
+        Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'lblErgebnis
         '
         Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1462,6 +1718,20 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer1.SplitterDistance = 84
         Me.SplitContainer1.TabIndex = 0
         '
+        'cboSB_TR
+        '
+        Me.cboSB_TR._allowedValuesFreiText = Nothing
+        Me.cboSB_TR._allowFreiText = False
+        Me.cboSB_TR._value = ""
+        Me.cboSB_TR.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboSB_TR.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboSB_TR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboSB_TR.FormattingEnabled = True
+        Me.cboSB_TR.Location = New System.Drawing.Point(889, 57)
+        Me.cboSB_TR.Name = "cboSB_TR"
+        Me.cboSB_TR.Size = New System.Drawing.Size(117, 24)
+        Me.cboSB_TR.TabIndex = 33
+        '
         'Label47
         '
         Me.Label47.AutoSize = True
@@ -1471,6 +1741,171 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label47.TabIndex = 32
         Me.Label47.Text = "TR:"
         '
+        'cboSB_Qs
+        '
+        Me.cboSB_Qs._allowedValuesFreiText = Nothing
+        Me.cboSB_Qs._allowFreiText = False
+        Me.cboSB_Qs._value = ""
+        Me.cboSB_Qs.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboSB_Qs.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboSB_Qs.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboSB_Qs.FormattingEnabled = True
+        Me.cboSB_Qs.Location = New System.Drawing.Point(738, 58)
+        Me.cboSB_Qs.Name = "cboSB_Qs"
+        Me.cboSB_Qs.Size = New System.Drawing.Size(117, 24)
+        Me.cboSB_Qs.TabIndex = 27
+        '
+        'txtAbfertDat
+        '
+        Me.txtAbfertDat._DateTimeOnly = False
+        Me.txtAbfertDat._numbersOnly = False
+        Me.txtAbfertDat._numbersOnlyKommastellen = ""
+        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
+        Me.txtAbfertDat._Prozent = False
+        Me.txtAbfertDat._ShortDateNew = True
+        Me.txtAbfertDat._ShortDateOnly = False
+        Me.txtAbfertDat._TimeOnly = False
+        Me.txtAbfertDat._TimeOnly_Seconds = False
+        Me.txtAbfertDat._value = ""
+        Me.txtAbfertDat._Waehrung = False
+        Me.txtAbfertDat._WaehrungZeichen = True
+        Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertDat.Location = New System.Drawing.Point(43, 30)
+        Me.txtAbfertDat.MaxLength = 10
+        Me.txtAbfertDat.MaxLineLength = -1
+        Me.txtAbfertDat.MaxLines_Warning = ""
+        Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertDat.Name = "txtAbfertDat"
+        Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
+        Me.txtAbfertDat.TabIndex = 1
+        '
+        'txtAbfertDatBis
+        '
+        Me.txtAbfertDatBis._DateTimeOnly = False
+        Me.txtAbfertDatBis._numbersOnly = False
+        Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
+        Me.txtAbfertDatBis._Prozent = False
+        Me.txtAbfertDatBis._ShortDateNew = True
+        Me.txtAbfertDatBis._ShortDateOnly = False
+        Me.txtAbfertDatBis._TimeOnly = False
+        Me.txtAbfertDatBis._TimeOnly_Seconds = False
+        Me.txtAbfertDatBis._value = ""
+        Me.txtAbfertDatBis._Waehrung = False
+        Me.txtAbfertDatBis._WaehrungZeichen = True
+        Me.txtAbfertDatBis.Enabled = False
+        Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertDatBis.Location = New System.Drawing.Point(43, 59)
+        Me.txtAbfertDatBis.MaxLength = 10
+        Me.txtAbfertDatBis.MaxLineLength = -1
+        Me.txtAbfertDatBis.MaxLines_Warning = ""
+        Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
+        Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
+        Me.txtAbfertDatBis.TabIndex = 3
+        '
+        'cboSachbearbeiter
+        '
+        Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
+        Me.cboSachbearbeiter._allowFreiText = False
+        Me.cboSachbearbeiter._value = ""
+        Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboSachbearbeiter.FormattingEnabled = True
+        Me.cboSachbearbeiter.Location = New System.Drawing.Point(738, 31)
+        Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
+        Me.cboSachbearbeiter.Size = New System.Drawing.Size(268, 24)
+        Me.cboSachbearbeiter.TabIndex = 26
+        '
+        'cboFiliale
+        '
+        Me.cboFiliale._allowedValuesFreiText = Nothing
+        Me.cboFiliale._allowFreiText = False
+        Me.cboFiliale._value = ""
+        Me.cboFiliale.DropDownWidth = 250
+        Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFiliale.FormattingEnabled = True
+        Me.cboFiliale.Location = New System.Drawing.Point(333, 29)
+        Me.cboFiliale.Name = "cboFiliale"
+        Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
+        Me.cboFiliale.TabIndex = 20
+        '
+        'txtUnterNr
+        '
+        Me.txtUnterNr._DateTimeOnly = False
+        Me.txtUnterNr._numbersOnly = False
+        Me.txtUnterNr._numbersOnlyKommastellen = ""
+        Me.txtUnterNr._numbersOnlyTrennzeichen = True
+        Me.txtUnterNr._Prozent = False
+        Me.txtUnterNr._ShortDateNew = False
+        Me.txtUnterNr._ShortDateOnly = False
+        Me.txtUnterNr._TimeOnly = False
+        Me.txtUnterNr._TimeOnly_Seconds = False
+        Me.txtUnterNr._value = Nothing
+        Me.txtUnterNr._Waehrung = False
+        Me.txtUnterNr._WaehrungZeichen = True
+        Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtUnterNr.ForeColor = System.Drawing.Color.Black
+        Me.txtUnterNr.Location = New System.Drawing.Point(633, 31)
+        Me.txtUnterNr.MaxLineLength = -1
+        Me.txtUnterNr.MaxLines_Warning = ""
+        Me.txtUnterNr.MaxLines_Warning_Label = Nothing
+        Me.txtUnterNr.Name = "txtUnterNr"
+        Me.txtUnterNr.Size = New System.Drawing.Size(41, 20)
+        Me.txtUnterNr.TabIndex = 24
+        '
+        'txtAbfertigungsnummerBis
+        '
+        Me.txtAbfertigungsnummerBis._DateTimeOnly = False
+        Me.txtAbfertigungsnummerBis._numbersOnly = False
+        Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True
+        Me.txtAbfertigungsnummerBis._Prozent = False
+        Me.txtAbfertigungsnummerBis._ShortDateNew = False
+        Me.txtAbfertigungsnummerBis._ShortDateOnly = False
+        Me.txtAbfertigungsnummerBis._TimeOnly = False
+        Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False
+        Me.txtAbfertigungsnummerBis._value = Nothing
+        Me.txtAbfertigungsnummerBis._Waehrung = False
+        Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
+        Me.txtAbfertigungsnummerBis.Enabled = False
+        Me.txtAbfertigungsnummerBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertigungsnummerBis.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertigungsnummerBis.Location = New System.Drawing.Point(466, 58)
+        Me.txtAbfertigungsnummerBis.MaxLineLength = -1
+        Me.txtAbfertigungsnummerBis.MaxLines_Warning = ""
+        Me.txtAbfertigungsnummerBis.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertigungsnummerBis.Name = "txtAbfertigungsnummerBis"
+        Me.txtAbfertigungsnummerBis.Size = New System.Drawing.Size(161, 20)
+        Me.txtAbfertigungsnummerBis.TabIndex = 23
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer._DateTimeOnly = False
+        Me.txtAbfertigungsnummer._numbersOnly = False
+        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
+        Me.txtAbfertigungsnummer._Prozent = False
+        Me.txtAbfertigungsnummer._ShortDateNew = False
+        Me.txtAbfertigungsnummer._ShortDateOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
+        Me.txtAbfertigungsnummer._value = Nothing
+        Me.txtAbfertigungsnummer._Waehrung = False
+        Me.txtAbfertigungsnummer._WaehrungZeichen = True
+        Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(466, 32)
+        Me.txtAbfertigungsnummer.MaxLineLength = -1
+        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
+        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 20)
+        Me.txtAbfertigungsnummer.TabIndex = 22
+        '
         'Label28
         '
         Me.Label28.AutoSize = True
@@ -1732,6 +2167,30 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.cbxfehlZahlung_AVISOID.ThreeState = True
         Me.cbxfehlZahlung_AVISOID.UseVisualStyleBackColor = False
         '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = True
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVermerk.ForeColor = System.Drawing.Color.Black
+        Me.txtVermerk.Location = New System.Drawing.Point(563, 109)
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(64, 20)
+        Me.txtVermerk.TabIndex = 57
+        '
         'lblVermerke
         '
         Me.lblVermerke.AutoSize = True
@@ -1741,6 +2200,33 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.lblVermerke.TabIndex = 56
         Me.lblVermerke.Text = "Vermerk:"
         '
+        'txtZollstelle
+        '
+        Me.txtZollstelle._allowFreitext = False
+        Me.txtZollstelle._AllowSetValue = False
+        Me.txtZollstelle._allowSpaceAsSplitter = False
+        Me.txtZollstelle._autoSizeGross = False
+        Me.txtZollstelle._hideIfListEmpty = True
+        Me.txtZollstelle._value = Nothing
+        Me.txtZollstelle.conn_art = "FMZOLL"
+        Me.txtZollstelle.dgvpos = "LEFT"
+        Me.txtZollstelle.DISPLAY_PARAM = Nothing
+        Me.txtZollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.txtZollstelle.key_visible = False
+        Me.txtZollstelle.KEYPARAM = Nothing
+        Me.txtZollstelle.Location = New System.Drawing.Point(649, 192)
+        Me.txtZollstelle.MaxLength = 50
+        Me.txtZollstelle.Name = "txtZollstelle"
+        Me.txtZollstelle.searchActive = True
+        Me.txtZollstelle.Size = New System.Drawing.Size(106, 20)
+        Me.txtZollstelle.SQL_ORDER_BY = Nothing
+        Me.txtZollstelle.SQL_SELECT = Nothing
+        Me.txtZollstelle.SQL_WHERE = Nothing
+        Me.txtZollstelle.SQL_WhereParamList = Nothing
+        Me.txtZollstelle.TabIndex = 55
+        Me.txtZollstelle.usrcntl = Nothing
+        Me.txtZollstelle.Visible = False
+        '
         'cbxEIDR
         '
         Me.cbxEIDR.AutoSize = True
@@ -1778,392 +2264,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label41.TabIndex = 48
         Me.Label41.Text = "Grenze:"
         '
-        'lblKdAuftragsNr
-        '
-        Me.lblKdAuftragsNr.AutoSize = True
-        Me.lblKdAuftragsNr.Location = New System.Drawing.Point(490, 10)
-        Me.lblKdAuftragsNr.Name = "lblKdAuftragsNr"
-        Me.lblKdAuftragsNr.Size = New System.Drawing.Size(102, 13)
-        Me.lblKdAuftragsNr.TabIndex = 45
-        Me.lblKdAuftragsNr.Text = "Kd-Auftragsnummer:"
-        '
-        'lblAuftraggeber
-        '
-        Me.lblAuftraggeber.AutoSize = True
-        Me.lblAuftraggeber.Location = New System.Drawing.Point(14, 29)
-        Me.lblAuftraggeber.Name = "lblAuftraggeber"
-        Me.lblAuftraggeber.Size = New System.Drawing.Size(71, 13)
-        Me.lblAuftraggeber.TabIndex = 16
-        Me.lblAuftraggeber.Text = "Auftraggeber:"
-        '
-        'lblFrachtf
-        '
-        Me.lblFrachtf.AutoSize = True
-        Me.lblFrachtf.Location = New System.Drawing.Point(14, 130)
-        Me.lblFrachtf.Name = "lblFrachtf"
-        Me.lblFrachtf.Size = New System.Drawing.Size(67, 13)
-        Me.lblFrachtf.TabIndex = 21
-        Me.lblFrachtf.Text = "Frachtführer:"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(403, 10)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(82, 13)
-        Me.Label11.TabIndex = 2
-        Me.Label11.Text = "FM-ZOLL KdNr:"
-        '
-        'cbxFakturiert
-        '
-        Me.cbxFakturiert.AutoSize = True
-        Me.cbxFakturiert.BackColor = System.Drawing.Color.White
-        Me.cbxFakturiert.Checked = True
-        Me.cbxFakturiert.CheckState = System.Windows.Forms.CheckState.Indeterminate
-        Me.cbxFakturiert.Location = New System.Drawing.Point(532, 180)
-        Me.cbxFakturiert.Name = "cbxFakturiert"
-        Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17)
-        Me.cbxFakturiert.TabIndex = 32
-        Me.cbxFakturiert.Text = "Fakturiert"
-        Me.cbxFakturiert.ThreeState = True
-        Me.cbxFakturiert.UseVisualStyleBackColor = False
-        '
-        'lblLKW_KZ
-        '
-        Me.lblLKW_KZ.AutoSize = True
-        Me.lblLKW_KZ.Location = New System.Drawing.Point(12, 195)
-        Me.lblLKW_KZ.Name = "lblLKW_KZ"
-        Me.lblLKW_KZ.Size = New System.Drawing.Size(99, 13)
-        Me.lblLKW_KZ.TabIndex = 26
-        Me.lblLKW_KZ.Text = "LKW-Kennzeichen:"
-        '
-        'cbxBar
-        '
-        Me.cbxBar.AutoSize = True
-        Me.cbxBar.BackColor = System.Drawing.Color.White
-        Me.cbxBar.Checked = True
-        Me.cbxBar.CheckState = System.Windows.Forms.CheckState.Indeterminate
-        Me.cbxBar.Location = New System.Drawing.Point(490, 180)
-        Me.cbxBar.Name = "cbxBar"
-        Me.cbxBar.Size = New System.Drawing.Size(42, 17)
-        Me.cbxBar.TabIndex = 31
-        Me.cbxBar.Text = "Bar"
-        Me.cbxBar.ThreeState = True
-        Me.cbxBar.UseVisualStyleBackColor = False
-        '
-        'lblCRNNr
-        '
-        Me.lblCRNNr.AutoSize = True
-        Me.lblCRNNr.Location = New System.Drawing.Point(735, 10)
-        Me.lblCRNNr.Name = "lblCRNNr"
-        Me.lblCRNNr.Size = New System.Drawing.Size(47, 13)
-        Me.lblCRNNr.TabIndex = 13
-        Me.lblCRNNr.Text = "CRN-Nr:"
-        '
-        'lblVersendungsland
-        '
-        Me.lblVersendungsland.AutoSize = True
-        Me.lblVersendungsland.Location = New System.Drawing.Point(755, 55)
-        Me.lblVersendungsland.Name = "lblVersendungsland"
-        Me.lblVersendungsland.Size = New System.Drawing.Size(92, 13)
-        Me.lblVersendungsland.TabIndex = 19
-        Me.lblVersendungsland.Text = "Versendungsland:"
-        '
-        'lblErfassungsNr
-        '
-        Me.lblErfassungsNr.AutoSize = True
-        Me.lblErfassungsNr.Location = New System.Drawing.Point(490, 138)
-        Me.lblErfassungsNr.Name = "lblErfassungsNr"
-        Me.lblErfassungsNr.Size = New System.Drawing.Size(99, 13)
-        Me.lblErfassungsNr.TabIndex = 12
-        Me.lblErfassungsNr.Text = "Erfassungsnummer:"
-        '
-        'cbxOderEmpfanger
-        '
-        Me.cbxOderEmpfanger.AutoSize = True
-        Me.cbxOderEmpfanger.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.cbxOderEmpfanger.Location = New System.Drawing.Point(295, 9)
-        Me.cbxOderEmpfanger.Name = "cbxOderEmpfanger"
-        Me.cbxOderEmpfanger.Size = New System.Drawing.Size(101, 17)
-        Me.cbxOderEmpfanger.TabIndex = 44
-        Me.cbxOderEmpfanger.Text = "oder Empfänger"
-        Me.cbxOderEmpfanger.UseVisualStyleBackColor = True
-        '
-        'Panel2
-        '
-        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel2.Controls.Add(Me.MyComboBox1)
-        Me.Panel2.Controls.Add(Me.lstFiliale)
-        Me.Panel2.Controls.Add(Me.lstFilialeHandling)
-        Me.Panel2.Controls.Add(Me.Label45)
-        Me.Panel2.Controls.Add(Me.cboFilialeHandling)
-        Me.Panel2.Controls.Add(Me.Label15)
-        Me.Panel2.Location = New System.Drawing.Point(758, 93)
-        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(245, 122)
-        Me.Panel2.TabIndex = 53
-        '
-        'Label45
-        '
-        Me.Label45.AutoSize = True
-        Me.Label45.Location = New System.Drawing.Point(124, 1)
-        Me.Label45.Name = "Label45"
-        Me.Label45.Size = New System.Drawing.Size(81, 13)
-        Me.Label45.TabIndex = 50
-        Me.Label45.Text = "Filiale Handling:"
-        '
-        'SplitContainer
-        '
-        Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
-        Me.SplitContainer.IsSplitterFixed = True
-        Me.SplitContainer.Location = New System.Drawing.Point(0, 48)
-        Me.SplitContainer.Name = "SplitContainer"
-        Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
-        '
-        'SplitContainer.Panel1
-        '
-        Me.SplitContainer.Panel1.Controls.Add(Me.pnlSearch)
-        '
-        'SplitContainer.Panel2
-        '
-        Me.SplitContainer.Panel2.Controls.Add(Me.pnlAnzeige)
-        Me.SplitContainer.Size = New System.Drawing.Size(1239, 784)
-        Me.SplitContainer.SplitterDistance = 330
-        Me.SplitContainer.SplitterWidth = 2
-        Me.SplitContainer.TabIndex = 3
-        '
-        'cboSB_TR
-        '
-        Me.cboSB_TR._allowedValuesFreiText = Nothing
-        Me.cboSB_TR._allowFreiText = False
-        Me.cboSB_TR._value = ""
-        Me.cboSB_TR.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboSB_TR.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboSB_TR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboSB_TR.FormattingEnabled = True
-        Me.cboSB_TR.Location = New System.Drawing.Point(889, 57)
-        Me.cboSB_TR.Name = "cboSB_TR"
-        Me.cboSB_TR.Size = New System.Drawing.Size(117, 24)
-        Me.cboSB_TR.TabIndex = 33
-        '
-        'cboSB_Qs
-        '
-        Me.cboSB_Qs._allowedValuesFreiText = Nothing
-        Me.cboSB_Qs._allowFreiText = False
-        Me.cboSB_Qs._value = ""
-        Me.cboSB_Qs.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboSB_Qs.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboSB_Qs.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboSB_Qs.FormattingEnabled = True
-        Me.cboSB_Qs.Location = New System.Drawing.Point(738, 58)
-        Me.cboSB_Qs.Name = "cboSB_Qs"
-        Me.cboSB_Qs.Size = New System.Drawing.Size(117, 24)
-        Me.cboSB_Qs.TabIndex = 27
-        '
-        'txtAbfertDat
-        '
-        Me.txtAbfertDat._DateTimeOnly = False
-        Me.txtAbfertDat._numbersOnly = False
-        Me.txtAbfertDat._numbersOnlyKommastellen = ""
-        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
-        Me.txtAbfertDat._Prozent = False
-        Me.txtAbfertDat._ShortDateNew = True
-        Me.txtAbfertDat._ShortDateOnly = False
-        Me.txtAbfertDat._TimeOnly = False
-        Me.txtAbfertDat._TimeOnly_Seconds = False
-        Me.txtAbfertDat._value = ""
-        Me.txtAbfertDat._Waehrung = False
-        Me.txtAbfertDat._WaehrungZeichen = True
-        Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
-        Me.txtAbfertDat.Location = New System.Drawing.Point(43, 30)
-        Me.txtAbfertDat.MaxLength = 10
-        Me.txtAbfertDat.MaxLineLength = -1
-        Me.txtAbfertDat.MaxLines_Warning = ""
-        Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
-        Me.txtAbfertDat.Name = "txtAbfertDat"
-        Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
-        Me.txtAbfertDat.TabIndex = 1
-        '
-        'txtAbfertDatBis
-        '
-        Me.txtAbfertDatBis._DateTimeOnly = False
-        Me.txtAbfertDatBis._numbersOnly = False
-        Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
-        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
-        Me.txtAbfertDatBis._Prozent = False
-        Me.txtAbfertDatBis._ShortDateNew = True
-        Me.txtAbfertDatBis._ShortDateOnly = False
-        Me.txtAbfertDatBis._TimeOnly = False
-        Me.txtAbfertDatBis._TimeOnly_Seconds = False
-        Me.txtAbfertDatBis._value = ""
-        Me.txtAbfertDatBis._Waehrung = False
-        Me.txtAbfertDatBis._WaehrungZeichen = True
-        Me.txtAbfertDatBis.Enabled = False
-        Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
-        Me.txtAbfertDatBis.Location = New System.Drawing.Point(43, 59)
-        Me.txtAbfertDatBis.MaxLength = 10
-        Me.txtAbfertDatBis.MaxLineLength = -1
-        Me.txtAbfertDatBis.MaxLines_Warning = ""
-        Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
-        Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
-        Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
-        Me.txtAbfertDatBis.TabIndex = 3
-        '
-        'cboSachbearbeiter
-        '
-        Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
-        Me.cboSachbearbeiter._allowFreiText = False
-        Me.cboSachbearbeiter._value = ""
-        Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboSachbearbeiter.FormattingEnabled = True
-        Me.cboSachbearbeiter.Location = New System.Drawing.Point(738, 31)
-        Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
-        Me.cboSachbearbeiter.Size = New System.Drawing.Size(268, 24)
-        Me.cboSachbearbeiter.TabIndex = 26
-        '
-        'cboFiliale
-        '
-        Me.cboFiliale._allowedValuesFreiText = Nothing
-        Me.cboFiliale._allowFreiText = False
-        Me.cboFiliale._value = ""
-        Me.cboFiliale.DropDownWidth = 250
-        Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboFiliale.FormattingEnabled = True
-        Me.cboFiliale.Location = New System.Drawing.Point(333, 29)
-        Me.cboFiliale.Name = "cboFiliale"
-        Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
-        Me.cboFiliale.TabIndex = 20
-        '
-        'txtUnterNr
-        '
-        Me.txtUnterNr._DateTimeOnly = False
-        Me.txtUnterNr._numbersOnly = False
-        Me.txtUnterNr._numbersOnlyKommastellen = ""
-        Me.txtUnterNr._numbersOnlyTrennzeichen = True
-        Me.txtUnterNr._Prozent = False
-        Me.txtUnterNr._ShortDateNew = False
-        Me.txtUnterNr._ShortDateOnly = False
-        Me.txtUnterNr._TimeOnly = False
-        Me.txtUnterNr._TimeOnly_Seconds = False
-        Me.txtUnterNr._value = Nothing
-        Me.txtUnterNr._Waehrung = False
-        Me.txtUnterNr._WaehrungZeichen = True
-        Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtUnterNr.ForeColor = System.Drawing.Color.Black
-        Me.txtUnterNr.Location = New System.Drawing.Point(633, 31)
-        Me.txtUnterNr.MaxLineLength = -1
-        Me.txtUnterNr.MaxLines_Warning = ""
-        Me.txtUnterNr.MaxLines_Warning_Label = Nothing
-        Me.txtUnterNr.Name = "txtUnterNr"
-        Me.txtUnterNr.Size = New System.Drawing.Size(41, 20)
-        Me.txtUnterNr.TabIndex = 24
-        '
-        'txtAbfertigungsnummerBis
-        '
-        Me.txtAbfertigungsnummerBis._DateTimeOnly = False
-        Me.txtAbfertigungsnummerBis._numbersOnly = False
-        Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = ""
-        Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True
-        Me.txtAbfertigungsnummerBis._Prozent = False
-        Me.txtAbfertigungsnummerBis._ShortDateNew = False
-        Me.txtAbfertigungsnummerBis._ShortDateOnly = False
-        Me.txtAbfertigungsnummerBis._TimeOnly = False
-        Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False
-        Me.txtAbfertigungsnummerBis._value = Nothing
-        Me.txtAbfertigungsnummerBis._Waehrung = False
-        Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
-        Me.txtAbfertigungsnummerBis.Enabled = False
-        Me.txtAbfertigungsnummerBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertigungsnummerBis.ForeColor = System.Drawing.Color.Black
-        Me.txtAbfertigungsnummerBis.Location = New System.Drawing.Point(466, 58)
-        Me.txtAbfertigungsnummerBis.MaxLineLength = -1
-        Me.txtAbfertigungsnummerBis.MaxLines_Warning = ""
-        Me.txtAbfertigungsnummerBis.MaxLines_Warning_Label = Nothing
-        Me.txtAbfertigungsnummerBis.Name = "txtAbfertigungsnummerBis"
-        Me.txtAbfertigungsnummerBis.Size = New System.Drawing.Size(161, 20)
-        Me.txtAbfertigungsnummerBis.TabIndex = 23
-        '
-        'txtAbfertigungsnummer
-        '
-        Me.txtAbfertigungsnummer._DateTimeOnly = False
-        Me.txtAbfertigungsnummer._numbersOnly = False
-        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
-        Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
-        Me.txtAbfertigungsnummer._Prozent = False
-        Me.txtAbfertigungsnummer._ShortDateNew = False
-        Me.txtAbfertigungsnummer._ShortDateOnly = False
-        Me.txtAbfertigungsnummer._TimeOnly = False
-        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
-        Me.txtAbfertigungsnummer._value = Nothing
-        Me.txtAbfertigungsnummer._Waehrung = False
-        Me.txtAbfertigungsnummer._WaehrungZeichen = True
-        Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
-        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(466, 32)
-        Me.txtAbfertigungsnummer.MaxLineLength = -1
-        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
-        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
-        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
-        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 20)
-        Me.txtAbfertigungsnummer.TabIndex = 22
-        '
-        'txtVermerk
-        '
-        Me.txtVermerk._DateTimeOnly = False
-        Me.txtVermerk._numbersOnly = False
-        Me.txtVermerk._numbersOnlyKommastellen = ""
-        Me.txtVermerk._numbersOnlyTrennzeichen = True
-        Me.txtVermerk._Prozent = False
-        Me.txtVermerk._ShortDateNew = False
-        Me.txtVermerk._ShortDateOnly = False
-        Me.txtVermerk._TimeOnly = False
-        Me.txtVermerk._TimeOnly_Seconds = False
-        Me.txtVermerk._value = Nothing
-        Me.txtVermerk._Waehrung = False
-        Me.txtVermerk._WaehrungZeichen = True
-        Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtVermerk.ForeColor = System.Drawing.Color.Black
-        Me.txtVermerk.Location = New System.Drawing.Point(563, 109)
-        Me.txtVermerk.MaxLineLength = -1
-        Me.txtVermerk.MaxLines_Warning = ""
-        Me.txtVermerk.MaxLines_Warning_Label = Nothing
-        Me.txtVermerk.Name = "txtVermerk"
-        Me.txtVermerk.Size = New System.Drawing.Size(64, 20)
-        Me.txtVermerk.TabIndex = 57
-        '
-        'txtZollstelle
-        '
-        Me.txtZollstelle._allowFreitext = False
-        Me.txtZollstelle._AllowSetValue = False
-        Me.txtZollstelle._allowSpaceAsSplitter = False
-        Me.txtZollstelle._autoSizeGross = False
-        Me.txtZollstelle._hideIfListEmpty = True
-        Me.txtZollstelle._value = Nothing
-        Me.txtZollstelle.conn_art = "FMZOLL"
-        Me.txtZollstelle.dgvpos = "LEFT"
-        Me.txtZollstelle.DISPLAY_PARAM = Nothing
-        Me.txtZollstelle.INVISIBLE_COLUMNS = Nothing
-        Me.txtZollstelle.key_visible = False
-        Me.txtZollstelle.KEYPARAM = Nothing
-        Me.txtZollstelle.Location = New System.Drawing.Point(649, 192)
-        Me.txtZollstelle.MaxLength = 50
-        Me.txtZollstelle.Name = "txtZollstelle"
-        Me.txtZollstelle.searchActive = True
-        Me.txtZollstelle.Size = New System.Drawing.Size(106, 20)
-        Me.txtZollstelle.SQL_ORDER_BY = Nothing
-        Me.txtZollstelle.SQL_SELECT = Nothing
-        Me.txtZollstelle.SQL_WHERE = Nothing
-        Me.txtZollstelle.SQL_WhereParamList = Nothing
-        Me.txtZollstelle.TabIndex = 55
-        Me.txtZollstelle.usrcntl = Nothing
-        Me.txtZollstelle.Visible = False
-        '
         'txtKdAuftragsNr
         '
         Me.txtKdAuftragsNr._DateTimeOnly = False
@@ -2198,6 +2298,15 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.lstGrenze.Size = New System.Drawing.Size(105, 82)
         Me.lstGrenze.TabIndex = 47
         '
+        'lblKdAuftragsNr
+        '
+        Me.lblKdAuftragsNr.AutoSize = True
+        Me.lblKdAuftragsNr.Location = New System.Drawing.Point(490, 10)
+        Me.lblKdAuftragsNr.Name = "lblKdAuftragsNr"
+        Me.lblKdAuftragsNr.Size = New System.Drawing.Size(102, 13)
+        Me.lblKdAuftragsNr.TabIndex = 45
+        Me.lblKdAuftragsNr.Text = "Kd-Auftragsnummer:"
+        '
         'txtAvisoId
         '
         Me.txtAvisoId._DateTimeOnly = False
@@ -2427,18 +2536,23 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.txtAvisiererKdNr.Size = New System.Drawing.Size(79, 20)
         Me.txtAvisiererKdNr.TabIndex = 38
         '
-        'MyListBox1
+        'lblAuftraggeber
         '
-        Me.MyListBox1._value = ""
-        Me.MyListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.MyListBox1.FormattingEnabled = True
-        Me.MyListBox1.Location = New System.Drawing.Point(4, 19)
-        Me.MyListBox1.Name = "MyListBox1"
-        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
-        Me.MyListBox1.Size = New System.Drawing.Size(225, 147)
-        Me.MyListBox1.TabIndex = 1
+        Me.lblAuftraggeber.AutoSize = True
+        Me.lblAuftraggeber.Location = New System.Drawing.Point(14, 29)
+        Me.lblAuftraggeber.Name = "lblAuftraggeber"
+        Me.lblAuftraggeber.Size = New System.Drawing.Size(71, 13)
+        Me.lblAuftraggeber.TabIndex = 16
+        Me.lblAuftraggeber.Text = "Auftraggeber:"
+        '
+        'lblFrachtf
+        '
+        Me.lblFrachtf.AutoSize = True
+        Me.lblFrachtf.Location = New System.Drawing.Point(14, 130)
+        Me.lblFrachtf.Name = "lblFrachtf"
+        Me.lblFrachtf.Size = New System.Drawing.Size(67, 13)
+        Me.lblFrachtf.TabIndex = 21
+        Me.lblFrachtf.Text = "Frachtführer:"
         '
         'kdtxtFrachtfuehrer
         '
@@ -2492,6 +2606,15 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.MyTextBox14.Size = New System.Drawing.Size(160, 20)
         Me.MyTextBox14.TabIndex = 30
         '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(403, 10)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(82, 13)
+        Me.Label11.TabIndex = 2
+        Me.Label11.Text = "FM-ZOLL KdNr:"
+        '
         'kdtxtEmpfaenger
         '
         Me.kdtxtEmpfaenger._AlleFirmenCLUSTER = False
@@ -2520,6 +2643,29 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.kdtxtEmpfaenger.TIMER_SEARCH = True
         Me.kdtxtEmpfaenger.usrcntl = Nothing
         '
+        'cbxFakturiert
+        '
+        Me.cbxFakturiert.AutoSize = True
+        Me.cbxFakturiert.BackColor = System.Drawing.Color.White
+        Me.cbxFakturiert.Checked = True
+        Me.cbxFakturiert.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cbxFakturiert.Location = New System.Drawing.Point(532, 180)
+        Me.cbxFakturiert.Name = "cbxFakturiert"
+        Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17)
+        Me.cbxFakturiert.TabIndex = 32
+        Me.cbxFakturiert.Text = "Fakturiert"
+        Me.cbxFakturiert.ThreeState = True
+        Me.cbxFakturiert.UseVisualStyleBackColor = False
+        '
+        'lblLKW_KZ
+        '
+        Me.lblLKW_KZ.AutoSize = True
+        Me.lblLKW_KZ.Location = New System.Drawing.Point(12, 195)
+        Me.lblLKW_KZ.Name = "lblLKW_KZ"
+        Me.lblLKW_KZ.Size = New System.Drawing.Size(99, 13)
+        Me.lblLKW_KZ.TabIndex = 26
+        Me.lblLKW_KZ.Text = "LKW-Kennzeichen:"
+        '
         'txtAbsenderKdnr
         '
         Me.txtAbsenderKdnr._DateTimeOnly = False
@@ -2574,6 +2720,20 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.kdtxtEndempfaenger.TIMER_SEARCH = True
         Me.kdtxtEndempfaenger.usrcntl = Nothing
         '
+        'cbxBar
+        '
+        Me.cbxBar.AutoSize = True
+        Me.cbxBar.BackColor = System.Drawing.Color.White
+        Me.cbxBar.Checked = True
+        Me.cbxBar.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cbxBar.Location = New System.Drawing.Point(490, 180)
+        Me.cbxBar.Name = "cbxBar"
+        Me.cbxBar.Size = New System.Drawing.Size(42, 17)
+        Me.cbxBar.TabIndex = 31
+        Me.cbxBar.Text = "Bar"
+        Me.cbxBar.ThreeState = True
+        Me.cbxBar.UseVisualStyleBackColor = False
+        '
         'txtEmpfaengerKdnr
         '
         Me.txtEmpfaengerKdnr._DateTimeOnly = False
@@ -2680,6 +2840,15 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.txtEndempfaengerKdnr.Size = New System.Drawing.Size(79, 20)
         Me.txtEndempfaengerKdnr.TabIndex = 29
         '
+        'lblCRNNr
+        '
+        Me.lblCRNNr.AutoSize = True
+        Me.lblCRNNr.Location = New System.Drawing.Point(735, 10)
+        Me.lblCRNNr.Name = "lblCRNNr"
+        Me.lblCRNNr.Size = New System.Drawing.Size(47, 13)
+        Me.lblCRNNr.TabIndex = 13
+        Me.lblCRNNr.Text = "CRN-Nr:"
+        '
         'txtErfassungsnNr
         '
         Me.txtErfassungsnNr._DateTimeOnly = False
@@ -2704,6 +2873,50 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.txtErfassungsnNr.Size = New System.Drawing.Size(110, 20)
         Me.txtErfassungsnNr.TabIndex = 14
         '
+        'lblVersendungsland
+        '
+        Me.lblVersendungsland.AutoSize = True
+        Me.lblVersendungsland.Location = New System.Drawing.Point(755, 55)
+        Me.lblVersendungsland.Name = "lblVersendungsland"
+        Me.lblVersendungsland.Size = New System.Drawing.Size(92, 13)
+        Me.lblVersendungsland.TabIndex = 19
+        Me.lblVersendungsland.Text = "Versendungsland:"
+        '
+        'lblErfassungsNr
+        '
+        Me.lblErfassungsNr.AutoSize = True
+        Me.lblErfassungsNr.Location = New System.Drawing.Point(490, 138)
+        Me.lblErfassungsNr.Name = "lblErfassungsNr"
+        Me.lblErfassungsNr.Size = New System.Drawing.Size(99, 13)
+        Me.lblErfassungsNr.TabIndex = 12
+        Me.lblErfassungsNr.Text = "Erfassungsnummer:"
+        '
+        'cbxOderEmpfanger
+        '
+        Me.cbxOderEmpfanger.AutoSize = True
+        Me.cbxOderEmpfanger.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.cbxOderEmpfanger.Location = New System.Drawing.Point(295, 9)
+        Me.cbxOderEmpfanger.Name = "cbxOderEmpfanger"
+        Me.cbxOderEmpfanger.Size = New System.Drawing.Size(101, 17)
+        Me.cbxOderEmpfanger.TabIndex = 44
+        Me.cbxOderEmpfanger.Text = "oder Empfänger"
+        Me.cbxOderEmpfanger.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.MyComboBox1)
+        Me.Panel2.Controls.Add(Me.lstFiliale)
+        Me.Panel2.Controls.Add(Me.lstFilialeHandling)
+        Me.Panel2.Controls.Add(Me.Label45)
+        Me.Panel2.Controls.Add(Me.cboFilialeHandling)
+        Me.Panel2.Controls.Add(Me.Label15)
+        Me.Panel2.Location = New System.Drawing.Point(758, 93)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(245, 122)
+        Me.Panel2.TabIndex = 53
+        '
         'MyComboBox1
         '
         Me.MyComboBox1._allowedValuesFreiText = Nothing
@@ -2737,6 +2950,15 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.lstFilialeHandling.Size = New System.Drawing.Size(118, 82)
         Me.lstFilialeHandling.TabIndex = 51
         '
+        'Label45
+        '
+        Me.Label45.AutoSize = True
+        Me.Label45.Location = New System.Drawing.Point(124, 1)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(81, 13)
+        Me.Label45.TabIndex = 50
+        Me.Label45.Text = "Filiale Handling:"
+        '
         'cboFilialeHandling
         '
         Me.cboFilialeHandling._allowedValuesFreiText = Nothing
@@ -2750,247 +2972,33 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.cboFilialeHandling.Size = New System.Drawing.Size(118, 22)
         Me.cboFilialeHandling.TabIndex = 32
         '
-        'txtFiskalEndempfaenger
+        'SplitContainer
         '
-        Me.txtFiskalEndempfaenger._DateTimeOnly = False
-        Me.txtFiskalEndempfaenger._numbersOnly = False
-        Me.txtFiskalEndempfaenger._numbersOnlyKommastellen = ""
-        Me.txtFiskalEndempfaenger._numbersOnlyTrennzeichen = True
-        Me.txtFiskalEndempfaenger._Prozent = False
-        Me.txtFiskalEndempfaenger._ShortDateNew = False
-        Me.txtFiskalEndempfaenger._ShortDateOnly = False
-        Me.txtFiskalEndempfaenger._TimeOnly = False
-        Me.txtFiskalEndempfaenger._TimeOnly_Seconds = False
-        Me.txtFiskalEndempfaenger._value = Nothing
-        Me.txtFiskalEndempfaenger._Waehrung = False
-        Me.txtFiskalEndempfaenger._WaehrungZeichen = True
-        Me.txtFiskalEndempfaenger.BackColor = System.Drawing.Color.White
-        Me.txtFiskalEndempfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtFiskalEndempfaenger.ForeColor = System.Drawing.Color.Black
-        Me.txtFiskalEndempfaenger.Location = New System.Drawing.Point(224, 72)
-        Me.txtFiskalEndempfaenger.MaxLineLength = -1
-        Me.txtFiskalEndempfaenger.MaxLines_Warning = ""
-        Me.txtFiskalEndempfaenger.MaxLines_Warning_Label = Nothing
-        Me.txtFiskalEndempfaenger.Name = "txtFiskalEndempfaenger"
-        Me.txtFiskalEndempfaenger.ReadOnly = True
-        Me.txtFiskalEndempfaenger.Size = New System.Drawing.Size(261, 20)
-        Me.txtFiskalEndempfaenger.TabIndex = 34
-        Me.txtFiskalEndempfaenger.Visible = False
+        Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer.IsSplitterFixed = True
+        Me.SplitContainer.Location = New System.Drawing.Point(0, 48)
+        Me.SplitContainer.Name = "SplitContainer"
+        Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
         '
-        'DataGridView
+        'SplitContainer.Panel1
         '
-        Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1
-        Me.DataGridView.AllowUserToAddRows = False
-        Me.DataGridView.AllowUserToDeleteRows = False
-        Me.DataGridView.AllowUserToOrderColumns = True
-        Me.DataGridView.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DataGridView.Location = New System.Drawing.Point(450, 0)
-        Me.DataGridView.Name = "DataGridView"
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
-        Me.DataGridView.Size = New System.Drawing.Size(789, 262)
-        Me.DataGridView.TabIndex = 0
+        Me.SplitContainer.Panel1.Controls.Add(Me.pnlSearch)
         '
-        'dgvLKW
+        'SplitContainer.Panel2
         '
-        Me.dgvLKW.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvLKW.AllowUserToAddRows = False
-        Me.dgvLKW.AllowUserToDeleteRows = False
-        Me.dgvLKW.AllowUserToOrderColumns = True
-        Me.dgvLKW.AllowUserToResizeRows = False
-        Me.dgvLKW.BackgroundColor = System.Drawing.Color.WhiteSmoke
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
-        Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLKW.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle5
-        Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Left
-        Me.dgvLKW.Location = New System.Drawing.Point(0, 0)
-        Me.dgvLKW.Name = "dgvLKW"
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
-        Me.dgvLKW.Size = New System.Drawing.Size(450, 262)
-        Me.dgvLKW.TabIndex = 35
-        Me.dgvLKW.Visible = False
+        Me.SplitContainer.Panel2.Controls.Add(Me.pnlAnzeige)
+        Me.SplitContainer.Size = New System.Drawing.Size(1239, 784)
+        Me.SplitContainer.SplitterDistance = 330
+        Me.SplitContainer.SplitterWidth = 2
+        Me.SplitContainer.TabIndex = 3
         '
-        'cboDetailberichtKdAtrNr
+        'ToolStripMenuItem3
         '
-        Me.cboDetailberichtKdAtrNr._allowedValuesFreiText = Nothing
-        Me.cboDetailberichtKdAtrNr._allowFreiText = False
-        Me.cboDetailberichtKdAtrNr._value = ""
-        Me.cboDetailberichtKdAtrNr.DropDownWidth = 300
-        Me.cboDetailberichtKdAtrNr.FormattingEnabled = True
-        Me.cboDetailberichtKdAtrNr.Location = New System.Drawing.Point(140, 78)
-        Me.cboDetailberichtKdAtrNr.Name = "cboDetailberichtKdAtrNr"
-        Me.cboDetailberichtKdAtrNr.Size = New System.Drawing.Size(76, 21)
-        Me.cboDetailberichtKdAtrNr.TabIndex = 56
-        '
-        'txtUeberschr
-        '
-        Me.txtUeberschr._DateTimeOnly = False
-        Me.txtUeberschr._numbersOnly = False
-        Me.txtUeberschr._numbersOnlyKommastellen = ""
-        Me.txtUeberschr._numbersOnlyTrennzeichen = True
-        Me.txtUeberschr._Prozent = False
-        Me.txtUeberschr._ShortDateNew = False
-        Me.txtUeberschr._ShortDateOnly = False
-        Me.txtUeberschr._TimeOnly = False
-        Me.txtUeberschr._TimeOnly_Seconds = False
-        Me.txtUeberschr._value = ""
-        Me.txtUeberschr._Waehrung = False
-        Me.txtUeberschr._WaehrungZeichen = True
-        Me.txtUeberschr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtUeberschr.ForeColor = System.Drawing.Color.Black
-        Me.txtUeberschr.Location = New System.Drawing.Point(204, 107)
-        Me.txtUeberschr.MaxLineLength = -1
-        Me.txtUeberschr.MaxLines_Warning = ""
-        Me.txtUeberschr.MaxLines_Warning_Label = Nothing
-        Me.txtUeberschr.Multiline = True
-        Me.txtUeberschr.Name = "txtUeberschr"
-        Me.txtUeberschr.Size = New System.Drawing.Size(173, 20)
-        Me.txtUeberschr.TabIndex = 51
-        '
-        'cboHandlingssatz
-        '
-        Me.cboHandlingssatz._allowedValuesFreiText = Nothing
-        Me.cboHandlingssatz._allowFreiText = False
-        Me.cboHandlingssatz._value = ""
-        Me.cboHandlingssatz.DropDownWidth = 300
-        Me.cboHandlingssatz.FormattingEnabled = True
-        Me.cboHandlingssatz.Location = New System.Drawing.Point(3, 31)
-        Me.cboHandlingssatz.Name = "cboHandlingssatz"
-        Me.cboHandlingssatz.Size = New System.Drawing.Size(159, 21)
-        Me.cboHandlingssatz.TabIndex = 60
-        '
-        'cboHandlingssatz_AMBAR
-        '
-        Me.cboHandlingssatz_AMBAR._allowedValuesFreiText = Nothing
-        Me.cboHandlingssatz_AMBAR._allowFreiText = False
-        Me.cboHandlingssatz_AMBAR._value = ""
-        Me.cboHandlingssatz_AMBAR.DropDownWidth = 250
-        Me.cboHandlingssatz_AMBAR.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboHandlingssatz_AMBAR.FormattingEnabled = True
-        Me.cboHandlingssatz_AMBAR.Location = New System.Drawing.Point(3, 59)
-        Me.cboHandlingssatz_AMBAR.Name = "cboHandlingssatz_AMBAR"
-        Me.cboHandlingssatz_AMBAR.Size = New System.Drawing.Size(128, 22)
-        Me.cboHandlingssatz_AMBAR.TabIndex = 53
-        '
-        'txtMax
-        '
-        Me.txtMax._DateTimeOnly = False
-        Me.txtMax._numbersOnly = True
-        Me.txtMax._numbersOnlyKommastellen = ""
-        Me.txtMax._numbersOnlyTrennzeichen = True
-        Me.txtMax._Prozent = False
-        Me.txtMax._ShortDateNew = False
-        Me.txtMax._ShortDateOnly = False
-        Me.txtMax._TimeOnly = False
-        Me.txtMax._TimeOnly_Seconds = False
-        Me.txtMax._value = ""
-        Me.txtMax._Waehrung = False
-        Me.txtMax._WaehrungZeichen = True
-        Me.txtMax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtMax.ForeColor = System.Drawing.Color.Black
-        Me.txtMax.Location = New System.Drawing.Point(401, 13)
-        Me.txtMax.MaxLineLength = -1
-        Me.txtMax.MaxLines_Warning = ""
-        Me.txtMax.MaxLines_Warning_Label = Nothing
-        Me.txtMax.Name = "txtMax"
-        Me.txtMax.Size = New System.Drawing.Size(76, 20)
-        Me.txtMax.TabIndex = 33
-        '
-        'cboRolle
-        '
-        Me.cboRolle._allowedValuesFreiText = Nothing
-        Me.cboRolle._allowFreiText = False
-        Me.cboRolle._value = ""
-        Me.cboRolle.DropDownWidth = 300
-        Me.cboRolle.FormattingEnabled = True
-        Me.cboRolle.Location = New System.Drawing.Point(401, 32)
-        Me.cboRolle.Name = "cboRolle"
-        Me.cboRolle.Size = New System.Drawing.Size(76, 21)
-        Me.cboRolle.TabIndex = 39
-        '
-        'txtMaxSrch
-        '
-        Me.txtMaxSrch._DateTimeOnly = False
-        Me.txtMaxSrch._numbersOnly = True
-        Me.txtMaxSrch._numbersOnlyKommastellen = ""
-        Me.txtMaxSrch._numbersOnlyTrennzeichen = True
-        Me.txtMaxSrch._Prozent = False
-        Me.txtMaxSrch._ShortDateNew = False
-        Me.txtMaxSrch._ShortDateOnly = False
-        Me.txtMaxSrch._TimeOnly = False
-        Me.txtMaxSrch._TimeOnly_Seconds = False
-        Me.txtMaxSrch._value = ""
-        Me.txtMaxSrch._Waehrung = False
-        Me.txtMaxSrch._WaehrungZeichen = True
-        Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
-        Me.txtMaxSrch.Location = New System.Drawing.Point(1136, 31)
-        Me.txtMaxSrch.MaxLineLength = -1
-        Me.txtMaxSrch.MaxLines_Warning = ""
-        Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
-        Me.txtMaxSrch.Name = "txtMaxSrch"
-        Me.txtMaxSrch.Size = New System.Drawing.Size(41, 20)
-        Me.txtMaxSrch.TabIndex = 42
-        Me.txtMaxSrch.Text = "1000"
-        Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'CheckBox5
-        '
-        Me.CheckBox5.AutoSize = True
-        Me.CheckBox5.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.CheckBox5.Location = New System.Drawing.Point(413, 141)
-        Me.CheckBox5.Name = "CheckBox5"
-        Me.CheckBox5.Size = New System.Drawing.Size(92, 17)
-        Me.CheckBox5.TabIndex = 98
-        Me.CheckBox5.Text = "mit DL-Kosten"
-        Me.CheckBox5.UseVisualStyleBackColor = False
+        Me.ToolStripMenuItem3.Image = CType(resources.GetObject("ToolStripMenuItem3.Image"), System.Drawing.Image)
+        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(316, 30)
+        Me.ToolStripMenuItem3.Text = "Kundenreport (Zeitraum auswählen)"
         '
         'usrCntlSpeditionsBuchSuche
         '
@@ -3005,6 +3013,8 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.pnlRechts.PerformLayout()
         Me.pnlAnzeige.ResumeLayout(False)
         Me.pnlAnzeige.PerformLayout()
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlOpt.ResumeLayout(False)
         Me.pnlOpt.PerformLayout()
         Me.Panel3.ResumeLayout(False)
@@ -3036,8 +3046,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer.ResumeLayout(False)
-        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -3227,4 +3235,5 @@ Partial Class usrCntlSpeditionsBuchSuche
     Friend WithEvents cbxHandlingAbrechnen As CheckBox
     Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
     Friend WithEvents CheckBox5 As CheckBox
+    Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
 End Class
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
index 2e0c8c84..14450a07 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
@@ -127,6 +127,89 @@
     <value>431, 17</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripMenuItem3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+        DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+        bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+        sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+        AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+        JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+        3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+        li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+        ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+        wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+        hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+        4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+        VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+        5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+        qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+        j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+        1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+        rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+        fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+        B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+        yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+        YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+        yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+        vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+        vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+        Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+        bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+        llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+        ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+        xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+        eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+        YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+        XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+        WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+        xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+        dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+        V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+        Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+        Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+        PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+        0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+        /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+        XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+        fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+        tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB4JJREFUSEu9lntM1FcW
+        x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
+        bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
+        qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
+        JDLKSGiQ8vDKj6AZlkTa+WULEQOqmytJ3VRFS+q1ZDq8hdYc304FTRsosTZ/jKll89zcP1YslW/K3hi8
+        Oul4WMXvu98pThwQF0oxMScU49Ln0ERVKPnqY8jPpPh1YNaBctIdqqG85vWTFdtUipQ9ppKEWs3e8PWp
+        l2aUJj4IMsdhilYCL00ED7echZikCoN3XiQC9cp7PgVRNC53PnnkhVlDHUbueaH83V0dyuONjNnkV6Sg
+        Q5dOEUXUpJUvqFrRPfPD94dEZjkm66PgWRABz/xweOsk8NZGYaouBkK9FNN0sZhWGAuhNhpTNFEIMsRh
+        9pqkrgCzsj3IHN8eVBw//NcWgUVx7f5FivaCpg16EhiiWgWGKHgbYyA0yyEqkkNcJIfIJIfQKIOIhV7K
+        gUJdLISFMRBqY+CWtQBBxji8ev0a9mfw5Qs8Gxxw/Lc/T5734+DFVlDqjNPkZ1E2+JUoIWZRrITIrHAA
+        OYyFwRVozdA9OwTTjfG42deLu4/uo+deL4aGhjjgVl8vfnh4D7fv/4CH/T/ztbbr7RiVGdxAfpa4BnGJ
+        gsPExQqIRwINUgeQHakVGAORNha++RK8mT0fb+bMB8W7YdeZQzjW/gVIOR5js+eBkrwhqc7gwM+//Rpj
+        s+cyoLKBZ8cztAKn6KN5iE1yiI0yuOWGYPSqOfDVRkOkk3Igi6kF0ZiUH8GDlk7BR+eO4MSVs6D3J1vX
+        VgRAuUXFgZ+5Au1HKipWIKAkHp4F4fitKgRCoxReBRGYZXkPi7fmYXrxYvjkR/Ej9cheiLeMcbhy63tc
+        //ct/vvjk4d49OwJrtzqQlfvv9DRcw037/Vy4MnO8yxr65HagQJ9FAJLE/gH2q5fBq2cAV9dNB4/f8o/
+        5pETAoEmgmfHulRUKEVSnRYf7NAjvCIFn3a24WJ3B8LLk7G0XofI9SthOVLLgaevXrBnyGpoBU4zy0Er
+        p+PbOzf4Js/8CKTtLeXvuoM1oGUix5H66WQcyo6PlghAcwgbW/eh8eu/gGaTdS2UEGSOt9bwnxdtwBJn
+        DVmmo7KCEVGdxjcduHAC3/V24+lAP0alvwNBfiRvmmnaGK4ygQYlr8356+042dmGOz/dRd/PP6K14xzO
+        fv8NTl29gH/0dPFvseyH19ClSyk1CGe+u8Q3sievYS0oWQyxQeboUoEqAv56ObZ+2oDtXzRj7bEd6Lx9
+        HTfu9qDiaD3qPm9G1Yk9OPzNZ/wbp65+Za/h8HsYWBIPSp6K5buMfOPAy0G45S7EBNXCYdfCXyeHj2YR
+        SDYWJB0NCiBUHN+J/W3HQH5kXZtFXKmcRzqiaRiQqQ2lvsWPxP5omzaAkkUQG+QOoJc6HP56BbaecmbY
+        cfsabty9jbWuGf79lDXDTpYhr6ET6FcSB0p/G3Hb8vimui8/xs2+O3g68AxjMn7HxdsubZ65YQg02mp4
+        rR0nO847anjSUcOvcPmWs4ZjsmxNYwf6mmIxOisY9x8/4JtouRilf7a2tbFlM+iDac4uLfzlLm1iXRps
+        69IwQlDxyC61S1uJEhM0oYjcmIafnjxC899aQUu8MGv1Ei7QTJgn54VjkjqcA335PYy13sP6/3UPt3Eg
+        u4c8Q7FLDZnSsKbx0Uvgpl4IoUmGSZpwhJSnIGWHEbMsS+CtWcSBHjkjlKbHpjT9T3Clx0Vp+uxKw67F
+        iC5lv2w8TdZFWbW0SMkFfFz2PPwmfTYfxGKdzKalsVxL3dShcFeHgt7zwh/OHsYnl8+AFk/k65QshLQm
+        iwNZrW01dCrNyGkxfB7GOsYTu/jCAibeMfAplMBHJwGliLD//DH8teMcaNlUvk6p05G4TeMA/pe0jQSK
+        TFagkI8nV2A0JmQtwAxTAh4/e4oXr17i2Qvn4GXvL1+9xPMXg441Pg9XBTeQwCAZPvHNbOIr+GiyA39p
+        ALtlhfCJ3z/43AkaHOBXyPV5PTRknfisCVOnn6bwjczTLHfxNBI+nphws6PyLnR6GleLwT2NMQ7BZUld
+        AUVxVh8zwssM8zQmRbuWeZrMAx9SYUsNqZuruGtL3m0sSajN2/suc22WxAeB5niba4uEQBMJd+7a3uXd
+        GmiwubacBeThcGrW8FA7/7+REUz+dte2fG8RqZoqeTBfavzTZio7tp3yG9fT4lrNGGPLprk5+8uXyhy+
+        dEX3rGG+dC5NVIXZfKmchMyXGmQkMti9qYy88iPpbbsvZUDmunMa13LnrWpcR9qD1ZT+0WpSbMmlsqN1
+        tO74Tlq1r4w779WHa8frGqtnxm/KzZRUplnSd1vGpe8qoXnly0igXfTrQKZg/8/4D84DciO4yFz1AAAA
+        AElFTkSuQmCC
+</value>
+  </data>
   <data name="ToolStripMenuItem2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
index dc7c07c0..c12ebc65 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -3652,21 +3652,24 @@ Public Class usrCntlSpeditionsBuchSuche
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
+    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click, ToolStripMenuItem3.Click
         Try
-
+            Dim kdNr = -1
+            If sender Is ToolStripMenuItem2 Then
+                kdNr = 770931 'KANADEVIA
+            End If
             Me.Cursor = Cursors.WaitCursor
             Dim RPT As New cSpeditionsbuchReport
 
 
             If CheckBox4.Checked Then
-                RPT.RunReport_VERAG_ZA_DETAIL_FULL(770931, CDate(txtAbfertDat.Text), CDate(txtAbfertDatBis.Text), getSpedBuchWhere,, getSpedbuchList)
+                RPT.RunReport_VERAG_ZA_DETAIL_FULL(kdNr, CDate(txtAbfertDat.Text), CDate(txtAbfertDatBis.Text), getSpedBuchWhere,, getSpedbuchList)
 
             ElseIf cbxDetailbericht.Checked Then
-                RPT.RunReport_VERAG_ZA_DETAIL(770931, CDate(txtAbfertDat.Text), CDate(txtAbfertDatBis.Text), getSpedBuchWhere, , getSpedbuchList)
+                RPT.RunReport_VERAG_ZA_DETAIL(kdNr, CDate(txtAbfertDat.Text), CDate(txtAbfertDatBis.Text), getSpedBuchWhere, , getSpedbuchList)
 
             Else
-                RPT.RunReport_VERAG_ZA_GENERAL(770931, CDate(txtAbfertDat.Text), CDate(txtAbfertDatBis.Text), getSpedBuchWhere,, CheckBox5.Checked, getSpedbuchList)
+                RPT.RunReport_VERAG_ZA_GENERAL(kdNr, CDate(txtAbfertDat.Text), CDate(txtAbfertDatBis.Text), getSpedBuchWhere,, CheckBox5.Checked, getSpedbuchList)
 
             End If
 
@@ -3678,6 +3681,10 @@ Public Class usrCntlSpeditionsBuchSuche
 
         Me.Cursor = Cursors.Default
 
+
+        Exit Sub
+        Exit Sub
+        Exit Sub
         Exit Sub
 
 
@@ -3976,13 +3983,7 @@ Public Class usrCntlSpeditionsBuchSuche
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub DataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
 
-    End Sub
-
-    Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
-
-    End Sub
 End Class
 Class cSpeditionsbuchReport
 
@@ -4135,8 +4136,8 @@ Class cSpeditionsbuchReport
             "FROM Speditionsbuch " &
             "INNER JOIN [Abfertigungsarten] " &
             "   ON Speditionsbuch.Abfertigungsart = Abfertigungsarten.Abfertigungsart " &
-            "WHERE (EmpfängerKundenNr IN (" & KDNR & ") OR VermittlerKundenNr IN (" & KDNR & ")) " &
-            "  AND Abfertigungsdatum BETWEEN '" & AbfVon.ToShortDateString & "' AND '" & AbfBis.ToShortDateString & "' " &
+            "WHERE 1=1 AND" & If(KDNR > 0, " (EmpfängerKundenNr IN (" & KDNR & ") OR VermittlerKundenNr IN (" & KDNR & ")) AND ", "") &
+            "  Abfertigungsdatum BETWEEN '" & AbfVon.ToShortDateString & "' AND '" & AbfBis.ToShortDateString & "' " &
             "  AND isAbfertigung = 1 "
 
         Return SQL.loadDgvBySql_Param(sqlText & " " & whereStr, "FMZOLL",, list)
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
index 2c84daa9..811282ab 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
@@ -389,8 +389,9 @@ Public Class usrCntlATLAS_EZA
             '    cdy.EZA_AbgangsDienststellennummer = "DE004102"
             'frmZollanmeldung.setAbgangszollstelle(cdy.eza_Eingangszollstelle, AVISO)
             frmZollanmeldung.setZollstelle(cdy.eza_AdressierteZollstelle, AVISO)
-            If cdy.eza_AdressierteZollstelle IsNot Nothing AndAlso cdy.eza_AdressierteZollstelle.Length = 8 Then 'nur 4 stellen erlaubt!! 'DE00 fällt weg
-                EZA.eza_AdressierteZollstelle = cdy.eza_AdressierteZollstelle.Substring(4, 4)
+
+            If cdy.eza_AdressierteZollstelle IsNot Nothing AndAlso cdy.eza_AdressierteZollstelle.trim.Length = 8 Then 'nur 4 stellen erlaubt!! 'DE00 fällt weg
+                EZA.eza_AdressierteZollstelle = cdy.eza_AdressierteZollstelle.trim.Substring(4, 4)
             End If
 
             '  cdy.EZA_VersendungsLandCode = "DE"
diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb
index d2fca314..6d8b48ff 100644
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cGlobal.vb
@@ -44,6 +44,8 @@ Public Class cGlobal
 
     Public Const SND_Status_Ankunft = 3 '?
 
+    Public Shared CHAT_NurGelesen = False
+
     Shared Function getStatusText(i As Integer) As String
         Select Case i
             Case 0 : Return "Erfasst"
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
index cf4db2ed..1ba3d906 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
@@ -1070,7 +1070,7 @@ Public Class SQL
     End Function
 
 
-    Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing, Optional showErr As Boolean = True, Optional ByRef errOccured As Boolean = False) As DataTable
+    Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing, Optional showErr As Boolean = True, Optional ByRef errOccured As Boolean = False, Optional ByRef maxVersuche As Integer = 3) As DataTable
         Try
             Dim myTable = New DataTable()
             Dim conn As New SqlConnection
@@ -1088,20 +1088,46 @@ Public Class SQL
                 Case "WEB" : conn = GetNewOpenConnectionWEB()
             End Select
 
-            ' Using conn As SqlConnection = GetNewOpenConnection()
-            Using cmd As New SqlCommand(sql, conn)
-                If list IsNot Nothing Then
-                    For Each i In list
-                        'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))
-                        cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value))
-                    Next
-                End If
-                If timeout > 0 Then cmd.CommandTimeout = timeout
-                Dim dr As SqlDataReader = cmd.ExecuteReader()
+            Dim versuch As Integer = 0
+
+            Do
+                versuch += 1
+                Try
+                    Using cmd As New SqlCommand(sql, conn)
+                        If list IsNot Nothing Then
+                            For Each i In list
+                                cmd.Parameters.AddWithValue("@" & i.Scalarvariable.Trim, If(i.Value Is Nothing, DBNull.Value, i.Value))
+                            Next
+                        End If
+                        If timeout > 0 Then cmd.CommandTimeout = timeout
+
+                        Using dr As SqlDataReader = cmd.ExecuteReader()
+                            myTable.Load(dr)
+                        End Using
+                    End Using
+                    Exit Do     ' Erfolgreich
+
+                Catch ex As SqlException When ex.Number = 1205 AndAlso versuch < maxVersuche
+                    If versuch >= maxVersuche Then Throw
+                    Threading.Thread.Sleep(200 * versuch)
+                End Try
+            Loop
+
+            '' Using conn As SqlConnection = GetNewOpenConnection()
+            'Using cmd As New SqlCommand(sql, conn)
+            'If list IsNot Nothing Then
+            '    For Each i In list
+            '        'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))
+            '        cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value))
+            '    Next
+            'End If
+            'If timeout > 0 Then cmd.CommandTimeout = timeout
+            'Dim dr As SqlDataReader = cmd.ExecuteReader()
+
+            'myTable.Load(dr)
+            '    dr.Close()
+
 
-                myTable.Load(dr)
-                dr.Close()
-            End Using
             conn.Close()
             '  End Using
             Return myTable  'While Schleife wird hier verlassen
diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
index ec52704b..01e0a751 100644
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
@@ -24,6 +24,7 @@ Partial Class frmMessenger
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -38,12 +39,12 @@ Partial Class frmMessenger
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
         Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
-        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel6 = New System.Windows.Forms.Panel()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
         Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
-        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel5 = New System.Windows.Forms.Panel()
         Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -64,7 +65,7 @@ Partial Class frmMessenger
         Me.btnNeu = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
         Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -92,9 +93,9 @@ Partial Class frmMessenger
         Me.btnSendAtt = New System.Windows.Forms.Button()
         Me.btnSenden = New System.Windows.Forms.Button()
         Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
-        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
-        Me.Timer_REFRESH = New System.Windows.Forms.Timer()
-        Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
+        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
+        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
index 993cbcc8..b83659b4 100644
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
@@ -160,8 +160,11 @@ Public Class frmMessenger
         End If
     End Sub
 
-    Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False)
+    Public Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False, Optional Chat_ART = "")
 
+        If Chat_ART <> "" Then
+            initChat_ART(Chat_ART)
+        End If
 
         Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_ART(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, "CHAT")
         UsrCntlChat_Art_Btn_MACHAT.setCnt(newMsg)
@@ -1336,7 +1339,7 @@ Public Class frmMessenger
                     If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
                         For Each MB In CHAT.CHAT_MEMBERS
                             If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
-                                ol.Add(MB)
+                                ol.Remove(MB)
                             End If
                         Next
                     End If
diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ListNewChats.vb b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ListNewChats.vb
index 68c7ad9e..d3067978 100644
--- a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ListNewChats.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ListNewChats.vb
@@ -6,7 +6,7 @@ Public Class usrCntlMessenger_ListNewChats
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
-    Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False)
+    Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False, Optional GeleseneAnzeigen = True)
 
 
 
@@ -16,6 +16,19 @@ Public Class usrCntlMessenger_ListNewChats
             '    loaded = False
             'End If
 
+            ' Merke zuvor ausgewählte ab_id (wenn genau eine Zeile selektiert)
+            Dim prevSelectedId As Integer = -1
+            Try
+                If .SelectedRows.Count = 1 Then
+                    Dim v = .SelectedRows(0).Cells("chat_id").Value
+                    If v IsNot Nothing AndAlso v IsNot DBNull.Value AndAlso IsNumeric(v) Then
+                        prevSelectedId = CInt(v)
+                    End If
+                End If
+            Catch
+                prevSelectedId = -1
+            End Try
+
             Dim whereName = ""
             'If MyTextBox1.Text.Trim <> String.Empty Then
             '    whereName = " WHERE y.chat_name LIKE '%" & MyTextBox1.Text.Trim & "%' "
@@ -31,53 +44,72 @@ Public Class usrCntlMessenger_ListNewChats
             '        where = " AND chat_art IN ('" & toggle_CHAT_ART & "') "
             'End Select
 
-            Dim sqlQery_optimiced As String = " SELECT * FROM (SELECT TOP 200
-                                                c.chat_id,
-                                                c.chat_art,
-                                                CASE 
-                                                    WHEN ISNULL(c.chat_name, '') <> '' THEN c.chat_name
-                                                    ELSE names.chat_name
-                                                END AS chat_name,
-                                            
-                                                ISNULL(unread.ungelesen, 0) AS ungelesen,
-                                            
-                                                c.chat_lastMsg
-                                            
-                                            FROM tblMessenger_Chat c
-                                            
-                                            -- ensure current user is member
-                                            INNER JOIN tblMessenger_ChatMembers m
-                                                ON m.chatMb_chatId = c.chat_id
-                                                AND m.chatMb_maId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
-                                            
-                                            -- 🔹 get participant names (distinct!)
-                                            OUTER APPLY (
-                                                SELECT STRING_AGG(name, ', ') AS chat_name
-                                                FROM (
-                                                    SELECT DISTINCT 
-                                                        mit.mit_vname + ' ' + mit.mit_nname AS name
-                                                    FROM tblMessenger_ChatMembers m2
-                                                    INNER JOIN tblMitarbeiter mit
-                                                        ON mit.mit_id = m2.chatMb_maId
-                                                    WHERE m2.chatMb_chatId = c.chat_id
-                                                    AND m2.chatMb_maId <> " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
-                                                ) x
-                                            ) names
-                                            
-                                            -- 🔹 unread count separated (no duplication!)
-                                            OUTER APPLY (
-                                                SELECT COUNT(*) AS ungelesen
-                                                FROM tblMessenger_ChatMessages msg
-                                                INNER JOIN tblMessenger_ChatMessageStatus s
-                                                    ON s.chatMgSt_chatMsgId = msg.chatMg_id
-                                                WHERE msg.chatMg_chatId = c.chat_id
-                                                  AND s.chatMgSt_MaId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
-                                                  AND s.chatMgSt_gelesen = 0
-                                              ) unread   WHERE c.chat_aktiv = 1
-                                                    AND ISNULL(unread.ungelesen, 0) > 0
-                                                    " & where & " ORDER BY c.chat_lastMsg DESC) y " & whereName
+            Dim topCount As String = If(GeleseneAnzeigen, "20", "200")
 
+            Dim unreadFilter As String = ""
+            If VERAG_PROG_ALLGEMEIN.cGlobal.CHAT_NurGelesen Then
+                unreadFilter = " AND ISNULL(unread.ungelesen, 0) > 0 "
+            End If
 
+            Dim sqlQery_optimiced As String =
+                "SELECT *
+                FROM (
+                    SELECT TOP " & topCount & "
+                        c.chat_id,
+
+                        CASE 
+                            WHEN c.chat_art = 'CHAT' THEN ''
+                            WHEN c.chat_art = 'LKW_CHAT' THEN 'LKW'
+                            WHEN c.chat_art = 'SND_CHAT' THEN 'SND'
+                            ELSE c.chat_art
+                        END AS chat_art,
+
+                        CASE 
+                            WHEN ISNULL(c.chat_name, '') <> '' THEN c.chat_name
+                            ELSE names.chat_name
+                        END AS chat_name,
+
+                        ISNULL(unread.ungelesen, 0) AS ungelesen,
+
+                        c.chat_lastMsg
+
+                    FROM tblMessenger_Chat c
+
+                    INNER JOIN tblMessenger_ChatMembers m
+                        ON m.chatMb_chatId = c.chat_id
+                       AND m.chatMb_maId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
+
+                    OUTER APPLY (
+                        SELECT STRING_AGG(x.name, ', ') AS chat_name
+                        FROM (
+                            SELECT DISTINCT 
+                                mit.mit_vname + ' ' + mit.mit_nname AS name
+                            FROM tblMessenger_ChatMembers m2
+                            INNER JOIN tblMitarbeiter mit
+                                ON mit.mit_id = m2.chatMb_maId
+                            WHERE m2.chatMb_chatId = c.chat_id
+                              AND m2.chatMb_maId <> " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
+                        ) x
+                    ) names
+
+                    OUTER APPLY (
+                        SELECT COUNT(*) AS ungelesen
+                        FROM tblMessenger_ChatMessages msg
+                        INNER JOIN tblMessenger_ChatMessageStatus s
+                            ON s.chatMgSt_chatMsgId = msg.chatMg_id
+                        WHERE msg.chatMg_chatId = c.chat_id
+                          AND s.chatMgSt_MaId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
+                          AND s.chatMgSt_gelesen = 0
+                    ) unread
+
+                    WHERE c.chat_aktiv = 1
+                      " & unreadFilter & "
+                      " & where & "
+
+                    ORDER BY c.chat_lastMsg DESC
+                ) y
+                " & whereName & "
+                ORDER BY y.chat_lastMsg DESC"
 
             .DataSource = SQL.loadDgvBySql(sqlQery_optimiced, "ADMIN")
 
@@ -87,6 +119,7 @@ Public Class usrCntlMessenger_ListNewChats
             .Columns("chat_lastMsg").Visible = False
             .Columns("chat_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("chat_art").HeaderText = "ART"
+            .Columns("chat_art").Width = 50
             .Columns("ungelesen").Width = 30
             .Columns("ungelesen").HeaderText = "neu"
             .Columns("ungelesen").DefaultCellStyle.ForeColor = Color.White
@@ -137,7 +170,35 @@ Public Class usrCntlMessenger_ListNewChats
             '    Next
             'End If
 
+            .ClearSelection()
 
+            ' Falls zuvor eine Zeile markiert war, wieder auswählen und in Sicht bringen
+            If prevSelectedId > -1 Then
+                Try
+                    For Each rr As DataGridViewRow In .Rows
+                        Dim vid = rr.Cells("chat_id").Value
+                        If vid IsNot Nothing AndAlso vid IsNot DBNull.Value AndAlso IsNumeric(vid) Then
+                            If CInt(vid) = prevSelectedId Then
+                                .ClearSelection()
+
+                                Dim colIndex As Integer = .Columns("chat_name").Index
+                                If Not .Rows(rr.Index).Cells(colIndex).Visible Then
+                                    colIndex = .FirstDisplayedCell.ColumnIndex
+                                End If
+
+                                .CurrentCell = .Rows(rr.Index).Cells(colIndex)
+                                .Rows(rr.Index).Selected = True
+
+                                .FirstDisplayedScrollingRowIndex = Math.Max(0, rr.Index - 2)
+
+                                Exit For
+                            End If
+                        End If
+                    Next
+                Catch
+                    ' ignore
+                End Try
+            End If
         End With
         ' If Not selFirst Then rtbChatMessage.Focus()
 
@@ -150,12 +211,15 @@ Public Class usrCntlMessenger_ListNewChats
 
     Private Sub TimerNEW_MESSAGE_Tick(sender As Object, e As EventArgs) Handles TimerNEW_MESSAGE.Tick
         intiDGVChats()
+
     End Sub
     Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellDoubleClick '.CellContentClick
         For Each openForm In Application.OpenForms()
             If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
                 CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
+                'CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).setchatId
                 CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
+                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).intiDGVChats(dgvChats.SelectedRows(0).Cells("chat_id").Value, True, False, dgvChats.SelectedRows(0).Cells("chat_art").Value)
                 Exit Sub
             End If
         Next
@@ -163,5 +227,27 @@ Public Class usrCntlMessenger_ListNewChats
         Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger()
         f.Location = Cursor.Position
         f.Show()
+        Application.DoEvents()
+
+        f.intiDGVChats(dgvChats.SelectedRows(0).Cells("chat_id").Value, True, False, dgvChats.SelectedRows(0).Cells("chat_art").Value)
     End Sub
+
+    Private Sub dgvChats_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles dgvChats.CellPainting
+        Try
+
+            If dgvChats.Columns.Count > 0 Then
+
+                If e.ColumnIndex = dgvChats.Columns("ungelesen").Index Then
+                    If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> 0 Then ' If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> ""  Then
+                        dgvChats.Rows(e.RowIndex).Cells("ungelesen").Style.BackColor = Color.Red
+                    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
+
 End Class
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb
index e1f0365a..ae423b52 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb
@@ -21,6 +21,8 @@ Public Class cRelayHub
         Public Property declarationType As String
         Public Property referenceNumberOverlay As String ' <--- NEU
         Public Property username As String ' <--- NEU
+        Public Property avisoId As String ' <--- NEU
+        Public Property shipmentId As String ' <--- NEU
     End Class
 
     Public Class cRelayHubDv1CostAllocation
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb
index ea3f85f1..a2101f56 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb
@@ -1,7 +1,10 @@
 Imports System.Net.Http
 Imports System.Net.Http.Headers
 Imports System.Text
+Imports System.Text.Json
 Imports System.Threading.Tasks
+Imports System.Windows.Forms
+Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Linq
 
 Public Class cOpenAI
@@ -10,6 +13,8 @@ Public Class cOpenAI
     Shared apiKey As String = "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"
     Shared apiUrl As String = "https://api.openai.com/v1/responses"
 
+    Shared apiKey_VERAG_Herbert As String = "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpZCI6ImRmNjg2ZmY2LTJiMjYtNDIxYS1iMTQzLThmNzFmY2I3YjA1ZiIsImV4cCI6MTc4NTkxNzUxMCwianRpIjoiOTViM2MxZGQtMjcxMC00YWY0LTgxMGUtYzVjYWFhODdmNTM2IiwiaWF0IjoxNzgzNDk4MzEwfQ.OJ_GDpZs3Zxv7VvEpKHPjNn8jkJStkm_ruFtmqk_SiE"
+
     Shared Sub doFirstAI()
         'Dim frage As String = "Wie viele Tage braucht ein Versandschein von Istanbul nach München? Gib nur die Zahl zurück."
         Dim frage As String = "Schreibe ein HAIKO über AI."
@@ -67,7 +72,7 @@ Public Class cOpenAI
 
     ' Funktion zur Kommunikation mit OpenAI API (synchrones Verhalten)
     Public Shared Function AskOpenAI(question As String,
-                                     Optional maxOutputTokens As Integer = 1000) As String
+                                     Optional maxOutputTokens As Integer = 1000, Optional model As String = "gpt-4.1-mini") As String
 
         Try
             Using client As New HttpClient()
@@ -76,7 +81,7 @@ Public Class cOpenAI
                     New AuthenticationHeaderValue("Bearer", apiKey.Trim())
 
                 Dim requestJson As New JObject From {
-                    {"model", "gpt-4.1-mini"},
+                    {"model", model},
                     {"input", question},
                     {"max_output_tokens", maxOutputTokens}
                 }
@@ -143,6 +148,254 @@ Public Class cOpenAI
 
     End Function
 
+
+    ' Funktion zur Kommunikation mit OpenAI API (synchrones Verhalten)
+    Public Shared Function AskVERAG_HerbertAI(question As String,
+                                          Optional maxOutputTokens As Integer = 1000) As String
+
+        Using client As New HttpClient()
+
+            'client.BaseAddress = New Uri("http://192.168.0.215:11434/")
+            client.BaseAddress = New Uri("http://192.168.0.215:8000/v1/")
+
+            client.DefaultRequestHeaders.Authorization =
+            New AuthenticationHeaderValue("Bearer", apiKey_VERAG_Herbert)
+            'Qwen/Qwen2.5-14B-Instruct
+            Dim payload = New With {
+                    .model = "Herbert",
+                    .messages = New Object() {
+                        New With {.role = "system", .content = "Du bist ein hilfreicher Assistent."},
+                        New With {.role = "user", .content = question}
+                    },
+                    .temperature = 0.2,
+                    .max_tokens = maxOutputTokens,
+                    .stream = False
+                }
+
+            Dim json As String = JsonConvert.SerializeObject(payload)
+            Dim content As New StringContent(json, Encoding.UTF8, "application/json")
+
+            Dim response As HttpResponseMessage =
+                client.PostAsync("http://192.168.0.215:8000/v1/chat/completions", content).
+                GetAwaiter().
+                GetResult()
+
+            Dim resultJson As String =
+            response.Content.ReadAsStringAsync().GetAwaiter().GetResult()
+
+            If Not response.IsSuccessStatusCode Then
+                Throw New Exception("OpenWebUI Fehler: " & response.StatusCode.ToString() & vbCrLf & resultJson)
+            End If
+
+            Dim obj As JObject = JObject.Parse(resultJson)
+
+            Return obj("choices")(0)("message")("content").ToString()
+
+        End Using
+
+    End Function
+
+    Shared Function askAI_Kontakdaten_WebResearch(eingabe As String) As String
+
+        Dim prompt As String =
+        "Du bist ein B2B Contact Finder.
+
+            Such im Web nach den Kontaktdaten, vorwiegend Telefon + Mail
+           Accurancy ist die Wahrscheinlcihkeit, dass es sich um das gescuht UNternehmen handelt;
+
+            Ausgabeformat:
+
+                Treffer 1
+
+                Quelle:
+                Unternehmen:
+                Website:
+                Telefon:
+                E-Mail:
+                Adresse:
+                Accurancy:
+
+                Falls mehrere plausible Unternehmen gefunden werden, gib maximal 3 Treffer aus.
+                Jeder Treffer muss vollständig von einer Quelle sein sein.
+        
+
+                Kein eindeutiger Treffer möglich.
+                Grund: ...
+
+            EINGABE: [[" & eingabe & "]]
+       
+        "
+
+        Console.WriteLine(prompt)
+        Return AskOpenAI(prompt, 10000, "gpt-5.5")
+
+    End Function
+    Shared Function askAI_HERBERT_Allg(prompt As String) As String
+
+
+
+        Console.WriteLine(prompt)
+
+        Dim antwort As String = AskVERAG_HerbertAI(prompt, 2500)
+
+
+
+        Console.WriteLine(antwort)
+
+        Return antwort
+
+    End Function
+    Shared Function askAI_HERBERT_Kontakdaten_WebResearch(eingabe As String) As String
+
+        Dim prompt As String =
+        "Du bist ein B2B Contact Finder.
+
+            HARTE REGEL:
+            Jeder Treffer darf ausschließlich Daten aus einer einzigen Quelle enthalten.
+            Standardquelle ist die offizielle Unternehmenswebsite.
+            Das Mischen von Website, Telefonnummer, E-Mail-Adresse oder Adresse aus unterschiedlichen Quellen ist verboten.
+
+            Ziel:
+            Finde möglichst schnell die Telefonnummer und E-Mail-Adresse eines Unternehmens.
+
+            Eingabe:
+            Die Eingabe ist unstrukturiert und kann Firmenname, Ort, PLZ, Land, Website, Telefonnummer, E-Mail oder Freitext enthalten.
+
+            Arbeitsweise:
+
+            Identifiziere das wahrscheinlich richtige Unternehmen.
+            Ermittle die offizielle Website.
+            Verwende danach ausschließlich diese Website als Quelle.
+            Suche dort zuerst auf der Kontaktseite, danach im Impressum.
+            Telefon, E-Mail und Adresse dürfen nur ausgegeben werden, wenn sie auf derselben offiziellen Website gefunden wurden.
+            Sobald Telefonnummer oder E-Mail gefunden wurden, beende die Recherche.
+            Nur wenn keine offizielle Website eindeutig gefunden wird, verwende Google Maps als einzige alternative Quelle.
+            Wenn Google Maps verwendet wird, dürfen alle ausgegebenen Daten nur aus Google Maps stammen.
+            Nutze keine weiteren Quellen.
+            Recherchiere keine Ansprechpartner.
+
+            Regeln:
+
+            Ein Treffer = eine Quelle.
+            Keine Daten aus mehreren Quellen kombinieren.
+            Verwende nur Informationen, die eindeutig demselben Unternehmen zugeordnet sind.
+            Erfinde keine Daten.
+            Rate keine Telefonnummern, E-Mail-Adressen, Domains oder Adressen.
+            Korrigiere keine Domains durch Vermutung.
+            Bei Unsicherheit Information weglassen.
+            Wenn nur Telefon gefunden wird, gib nur Telefon aus.
+            Wenn nur E-Mail gefunden wird, gib nur E-Mail aus.
+            Keine Platzhalter wie N/A, unbekannt oder nicht gefunden.
+            Keine Faxnummern, Handelsregisterdaten, Rechtsform, Branche, Umsatz oder UID.
+            Ausgabe kurz und ohne Fließtext.
+
+            Ausgabeformat:
+
+            Treffer 1
+
+            Quelle:
+            Unternehmen:
+            Website:
+            Telefon:
+            E-Mail:
+            Adresse:
+
+            Falls mehrere plausible Unternehmen gefunden werden, gib maximal 3 Treffer aus.
+            Jeder Treffer muss vollständig quellenrein sein.
+
+            Falls kein eindeutiger Treffer möglich ist:
+
+            Kein eindeutiger Treffer möglich.
+            Grund: ...
+
+        EINGABE: [[" & eingabe & "]]
+       
+        "
+
+
+        Console.WriteLine(prompt)
+
+        Dim antwort As String = AskVERAG_HerbertAI(prompt, 2500)
+
+
+
+        Console.WriteLine(antwort)
+
+        Return antwort
+
+    End Function
+    Shared Function askAI_Kontakdaten_WebResearcADVh(eingabe As String) As String
+
+        Dim prompt As String =
+        "Du bist ein B2B Contact Finder.
+
+            HARTE REGEL:
+            Jeder Treffer darf ausschließlich Daten aus einer einzigen Quelle enthalten.
+            Standardquelle ist die offizielle Unternehmenswebsite.
+            Das Mischen von Website, Telefonnummer, E-Mail-Adresse oder Adresse aus unterschiedlichen Quellen ist verboten.
+
+            Ziel:
+            Finde möglichst schnell die Telefonnummer und E-Mail-Adresse eines Unternehmens.
+
+            Eingabe:
+            Die Eingabe ist unstrukturiert und kann Firmenname, Ort, PLZ, Land, Website, Telefonnummer, E-Mail oder Freitext enthalten.
+
+            Arbeitsweise:
+
+            Identifiziere das wahrscheinlich richtige Unternehmen.
+            Ermittle die offizielle Website.
+            Verwende danach ausschließlich diese Website als Quelle.
+            Suche dort zuerst auf der Kontaktseite, danach im Impressum.
+            Telefon, E-Mail und Adresse dürfen nur ausgegeben werden, wenn sie auf derselben offiziellen Website gefunden wurden.
+            Sobald Telefonnummer oder E-Mail gefunden wurden, beende die Recherche.
+            Nur wenn keine offizielle Website eindeutig gefunden wird, verwende Google Maps als einzige alternative Quelle.
+            Wenn Google Maps verwendet wird, dürfen alle ausgegebenen Daten nur aus Google Maps stammen.
+            Nutze keine weiteren Quellen.
+            Recherchiere keine Ansprechpartner.
+
+            Regeln:
+
+            Ein Treffer = eine Quelle.
+            Keine Daten aus mehreren Quellen kombinieren.
+            Verwende nur Informationen, die eindeutig demselben Unternehmen zugeordnet sind.
+            Erfinde keine Daten.
+            Rate keine Telefonnummern, E-Mail-Adressen, Domains oder Adressen.
+            Korrigiere keine Domains durch Vermutung.
+            Bei Unsicherheit Information weglassen.
+            Wenn nur Telefon gefunden wird, gib nur Telefon aus.
+            Wenn nur E-Mail gefunden wird, gib nur E-Mail aus.
+            Keine Platzhalter wie N/A, unbekannt oder nicht gefunden.
+            Keine Faxnummern, Handelsregisterdaten, Rechtsform, Branche, Umsatz oder UID.
+            Ausgabe kurz und ohne Fließtext.
+
+            Ausgabeformat:
+
+            Treffer 1
+
+            Quelle:
+            Unternehmen:
+            Website:
+            Telefon:
+            E-Mail:
+            Adresse:
+
+            Falls mehrere plausible Unternehmen gefunden werden, gib maximal 3 Treffer aus.
+            Jeder Treffer muss vollständig quellenrein sein.
+
+            Falls kein eindeutiger Treffer möglich ist:
+
+            Kein eindeutiger Treffer möglich.
+            Grund: ...
+
+        EINGABE: [[" & eingabe & "]]
+       
+        "
+
+        Console.WriteLine(prompt)
+        Return AskOpenAI(prompt, 10000, "gpt-5.5")
+
+    End Function
+
     Shared Function askAI_Zolltarif(
     unternehmensbeschreibung As String,
     artikel As List(Of ZollArtikelInput)
diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
index 5217279a..44612024 100644
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -370,9 +370,9 @@ Public Class cProgramFunctions
         Try
             Dim sql As String =
               "SELECT COLUMN_NAME, DATA_TYPE, CHARACTER_MAXIMUM_LENGTH, NUMERIC_PRECISION, NUMERIC_SCALE
-         FROM INFORMATION_SCHEMA.COLUMNS
-         WHERE TABLE_NAME = '" & tableName & "'
-         AND DATA_TYPE IN ('varchar','nvarchar','char','nchar','decimal','numeric','float','real')"
+                 FROM INFORMATION_SCHEMA.COLUMNS
+                 WHERE TABLE_NAME = '" & tableName & "'
+                 AND DATA_TYPE IN ('varchar','nvarchar','char','nchar','decimal','numeric','float','real')"
 
             Dim dt As DataTable =
         (New SQL).loadDgvBySql(sql, conn_art)
@@ -404,6 +404,26 @@ Public Class cProgramFunctions
                 Dim valueObj As Object = p.Value()
                 Dim valueStr As String = valueObj.ToString
 
+                ' -------------------------
+                ' BIT / BOOLEAN
+                ' -------------------------
+                If dataType = "bit" Then
+
+                    Select Case valueStr.Trim.ToLower
+                        Case "true"
+                             '   gültig
+                        Case "false"
+                             '   gültig
+                        Case "1", "0"
+                            ' bereits gültig
+                        Case Else
+                            errors.Add(fieldName & " -> Ungültiger Bit-Wert: " & valueStr)
+                    End Select
+
+                    Continue For
+                End If
+
+
                 ' -------------------------
                 ' 1) TEXTFELDER
                 ' -------------------------
@@ -413,6 +433,14 @@ Public Class cProgramFunctions
 
                     If maxLen = -1 Then Continue For ' varchar(max)
 
+                    If maxLen = 1 Then
+                        If valueStr.Equals("true", StringComparison.OrdinalIgnoreCase) Then
+                            valueStr = "1"
+                        ElseIf valueStr.Equals("false", StringComparison.OrdinalIgnoreCase) Then
+                            valueStr = "0"
+                        End If
+                    End If
+
                     If valueStr.Length > maxLen Then
                         errors.Add(fieldName & " -> " & valueStr.Length & "/" & maxLen)
                     End If