Kundenverwaltung -> Ambar-Auswertung

Speditionsbuch -> Flender Bocholt-Auswertung
2022-12-19 14:05:43 +01:00
parent dc1f5281fc
commit 8b5ee27229
7 changed files with 269 additions and 93 deletions
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
@@ -23,12 +23,12 @@ Partial Class usrCntlSpeditionsBuchSuche
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        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)
@@ -162,6 +162,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.txtBestimmungszollstelle = 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()
@@ -193,7 +194,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.Label45 = New System.Windows.Forms.Label()
        Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
-        Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
        Me.pnlRechts.SuspendLayout()
        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -247,6 +248,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAvisoId._DateTimeOnly = False
        Me.txtAvisoId._numbersOnly = False
        Me.txtAvisoId._numbersOnlyKommastellen = ""
+        Me.txtAvisoId._numbersOnlyTrennzeichen = True
        Me.txtAvisoId._Prozent = False
        Me.txtAvisoId._ShortDateNew = False
        Me.txtAvisoId._ShortDateOnly = False
@@ -317,6 +319,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAuftraggeberKdnr._DateTimeOnly = False
        Me.txtAuftraggeberKdnr._numbersOnly = False
        Me.txtAuftraggeberKdnr._numbersOnlyKommastellen = ""
+        Me.txtAuftraggeberKdnr._numbersOnlyTrennzeichen = True
        Me.txtAuftraggeberKdnr._Prozent = False
        Me.txtAuftraggeberKdnr._ShortDateNew = False
        Me.txtAuftraggeberKdnr._ShortDateOnly = False
@@ -342,6 +345,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtCRN._DateTimeOnly = False
        Me.txtCRN._numbersOnly = False
        Me.txtCRN._numbersOnlyKommastellen = ""
+        Me.txtCRN._numbersOnlyTrennzeichen = True
        Me.txtCRN._Prozent = False
        Me.txtCRN._ShortDateNew = False
        Me.txtCRN._ShortDateOnly = False
@@ -365,6 +369,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtBelegNr._DateTimeOnly = False
        Me.txtBelegNr._numbersOnly = False
        Me.txtBelegNr._numbersOnlyKommastellen = ""
+        Me.txtBelegNr._numbersOnlyTrennzeichen = True
        Me.txtBelegNr._Prozent = False
        Me.txtBelegNr._ShortDateNew = False
        Me.txtBelegNr._ShortDateOnly = False
@@ -421,6 +426,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtPackstücke._DateTimeOnly = False
        Me.txtPackstücke._numbersOnly = False
        Me.txtPackstücke._numbersOnlyKommastellen = ""
+        Me.txtPackstücke._numbersOnlyTrennzeichen = True
        Me.txtPackstücke._Prozent = False
        Me.txtPackstücke._ShortDateNew = False
        Me.txtPackstücke._ShortDateOnly = False
@@ -512,6 +518,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAvisiererKdNr._DateTimeOnly = False
        Me.txtAvisiererKdNr._numbersOnly = False
        Me.txtAvisiererKdNr._numbersOnlyKommastellen = ""
+        Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True
        Me.txtAvisiererKdNr._Prozent = False
        Me.txtAvisiererKdNr._ShortDateNew = False
        Me.txtAvisiererKdNr._ShortDateOnly = False
@@ -616,6 +623,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -644,35 +652,35 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
        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
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle8
        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
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
        Me.DataGridView.Size = New System.Drawing.Size(770, 227)
        Me.DataGridView.TabIndex = 0
        '
@@ -699,35 +707,35 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
+        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.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
        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
+        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.dgvLKW.DefaultCellStyle = DataGridViewCellStyle2
        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
+        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.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
        Me.dgvLKW.Size = New System.Drawing.Size(450, 227)
        Me.dgvLKW.TabIndex = 35
        Me.dgvLKW.Visible = False
@@ -858,14 +866,14 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
        Me.MenuStrip1.Location = New System.Drawing.Point(601, 128)
        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.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem})
+        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem})
        Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
        Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
        Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1"
@@ -876,14 +884,16 @@ Partial Class usrCntlSpeditionsBuchSuche
        '
        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(290, 30)
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)"
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
        '
        'ZFThyrnauZeitraumAuswählenToolStripMenuItem
        '
        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem"
-        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(290, 30)
+        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
+        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False
        '
        'cboHandlingssatz
        '
@@ -996,6 +1006,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -1071,6 +1082,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -1384,6 +1396,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -1599,6 +1612,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -1623,6 +1637,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -1675,6 +1690,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -1698,6 +1714,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -1722,6 +1739,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        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
@@ -2167,6 +2185,33 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
        Me.DateTimePicker1.TabIndex = 2
        '
+        'txtBestimmungszollstelle
+        '
+        Me.txtBestimmungszollstelle._allowFreitext = False
+        Me.txtBestimmungszollstelle._AllowSetValue = False
+        Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
+        Me.txtBestimmungszollstelle._autoSizeGross = False
+        Me.txtBestimmungszollstelle._hideIfListEmpty = True
+        Me.txtBestimmungszollstelle._value = Nothing
+        Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
+        Me.txtBestimmungszollstelle.dgvpos = "LEFT"
+        Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
+        Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.txtBestimmungszollstelle.key_visible = False
+        Me.txtBestimmungszollstelle.KEYPARAM = Nothing
+        Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(627, 192)
+        Me.txtBestimmungszollstelle.MaxLength = 50
+        Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
+        Me.txtBestimmungszollstelle.searchActive = True
+        Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(106, 20)
+        Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
+        Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
+        Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
+        Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
+        Me.txtBestimmungszollstelle.TabIndex = 55
+        Me.txtBestimmungszollstelle.usrcntl = Nothing
+        Me.txtBestimmungszollstelle.Visible = False
+        '
        'cbxEIDR
        '
        Me.cbxEIDR.AutoSize = True
@@ -2209,6 +2254,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtKdAuftragsNr._DateTimeOnly = False
        Me.txtKdAuftragsNr._numbersOnly = False
        Me.txtKdAuftragsNr._numbersOnlyKommastellen = ""
+        Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True
        Me.txtKdAuftragsNr._Prozent = False
        Me.txtKdAuftragsNr._ShortDateNew = False
        Me.txtKdAuftragsNr._ShortDateOnly = False
@@ -2269,6 +2315,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.MyTextBox14._DateTimeOnly = False
        Me.MyTextBox14._numbersOnly = False
        Me.MyTextBox14._numbersOnlyKommastellen = ""
+        Me.MyTextBox14._numbersOnlyTrennzeichen = True
        Me.MyTextBox14._Prozent = False
        Me.MyTextBox14._ShortDateNew = False
        Me.MyTextBox14._ShortDateOnly = False
@@ -2351,6 +2398,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAbsenderKdnr._DateTimeOnly = False
        Me.txtAbsenderKdnr._numbersOnly = False
        Me.txtAbsenderKdnr._numbersOnlyKommastellen = ""
+        Me.txtAbsenderKdnr._numbersOnlyTrennzeichen = True
        Me.txtAbsenderKdnr._Prozent = False
        Me.txtAbsenderKdnr._ShortDateNew = False
        Me.txtAbsenderKdnr._ShortDateOnly = False
@@ -2417,6 +2465,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtEmpfaengerKdnr._DateTimeOnly = False
        Me.txtEmpfaengerKdnr._numbersOnly = False
        Me.txtEmpfaengerKdnr._numbersOnlyKommastellen = ""
+        Me.txtEmpfaengerKdnr._numbersOnlyTrennzeichen = True
        Me.txtEmpfaengerKdnr._Prozent = False
        Me.txtEmpfaengerKdnr._ShortDateNew = False
        Me.txtEmpfaengerKdnr._ShortDateOnly = False
@@ -2469,6 +2518,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtFrachtfuehrerKdnr._DateTimeOnly = False
        Me.txtFrachtfuehrerKdnr._numbersOnly = False
        Me.txtFrachtfuehrerKdnr._numbersOnlyKommastellen = ""
+        Me.txtFrachtfuehrerKdnr._numbersOnlyTrennzeichen = True
        Me.txtFrachtfuehrerKdnr._Prozent = False
        Me.txtFrachtfuehrerKdnr._ShortDateNew = False
        Me.txtFrachtfuehrerKdnr._ShortDateOnly = False
@@ -2494,6 +2544,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtEndempfaengerKdnr._DateTimeOnly = False
        Me.txtEndempfaengerKdnr._numbersOnly = False
        Me.txtEndempfaengerKdnr._numbersOnlyKommastellen = ""
+        Me.txtEndempfaengerKdnr._numbersOnlyTrennzeichen = True
        Me.txtEndempfaengerKdnr._Prozent = False
        Me.txtEndempfaengerKdnr._ShortDateNew = False
        Me.txtEndempfaengerKdnr._ShortDateOnly = False
@@ -2528,6 +2579,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtErfassungsnNr._DateTimeOnly = False
        Me.txtErfassungsnNr._numbersOnly = False
        Me.txtErfassungsnNr._numbersOnlyKommastellen = ""
+        Me.txtErfassungsnNr._numbersOnlyTrennzeichen = True
        Me.txtErfassungsnNr._Prozent = False
        Me.txtErfassungsnNr._ShortDateNew = False
        Me.txtErfassungsnNr._ShortDateOnly = False
@@ -2656,32 +2708,13 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.SplitContainer.SplitterWidth = 2
        Me.SplitContainer.TabIndex = 3
        '
-        'txtBestimmungszollstelle
+        'FlenderBocholtZeitraumAuswählenToolStripMenuItem
        '
-        Me.txtBestimmungszollstelle._allowFreitext = False
-        Me.txtBestimmungszollstelle._AllowSetValue = False
-        Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
-        Me.txtBestimmungszollstelle._autoSizeGross = False
-        Me.txtBestimmungszollstelle._hideIfListEmpty = True
-        Me.txtBestimmungszollstelle._value = Nothing
-        Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
-        Me.txtBestimmungszollstelle.dgvpos = "LEFT"
-        Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
-        Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
-        Me.txtBestimmungszollstelle.key_visible = False
-        Me.txtBestimmungszollstelle.KEYPARAM = Nothing
-        Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(627, 192)
-        Me.txtBestimmungszollstelle.MaxLength = 50
-        Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
-        Me.txtBestimmungszollstelle.searchActive = True
-        Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(106, 20)
-        Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
-        Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
-        Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
-        Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
-        Me.txtBestimmungszollstelle.TabIndex = 55
-        Me.txtBestimmungszollstelle.usrcntl = Nothing
-        Me.txtBestimmungszollstelle.Visible = False
+        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem"
+        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
+        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
+        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False
        '
        'usrCntlSpeditionsBuchSuche
        '
@@ -2891,4 +2924,5 @@ Partial Class usrCntlSpeditionsBuchSuche
    Friend WithEvents Button22 As Button
    Friend WithEvents Button23 As Button
    Friend WithEvents txtBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents FlenderBocholtZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
@@ -126,9 +126,6 @@
  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>431, 17</value>
  </metadata>
-  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>431, 17</value>
-  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
@@ -177,7 +174,7 @@
        XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
        fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
        tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDQAACw0B7QfALAAAB3VJREFUSEu9VntQ1NUe
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB3VJREFUSEu9VntQ1NUe
        /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r
        ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ
        UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Globalization

+
 Public Class usrCntlSpeditionsBuchSuche
    Dim SQL As New SQL

@@ -536,6 +537,8 @@ Public Class usrCntlSpeditionsBuchSuche
            txtAbfertDatBis._value = dat_bis.ToShortDateString
            cbxOderEmpfanger.Checked = True
        End If
+
+        initToolStripMenu()
    End Sub
    Function getValues() As String
        Dim s As String = ""
@@ -2263,4 +2266,69 @@ Public Class usrCntlSpeditionsBuchSuche
        Next
        txtBestimmungszollstelle.Visible = True
    End Sub
+
+    Private Sub initToolStripMenu()
+        For Each c As ToolStripMenuItem In KundenauswertungenToolStripMenuItem1.DropDownItems
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
+                If c.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" Or c.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem" Then
+                    c.Visible = True
+                End If
+
+            End If
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
+                If c.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem" Then
+                    c.Visible = True
+                End If
+            End If
+
+
+
+        Next
+    End Sub
+
+    Private Sub FlenderBocholtZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlenderBocholtZeitraumAuswählenToolStripMenuItem.Click
+        lblKdAusFortschritt.Text = "lädt..."
+        Me.Cursor = Cursors.WaitCursor
+        Try
+
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT [Speditionsbuch].[FilialenNr]
+      ,[Speditionsbuch].[AbfertigungsNr] 
+      ,CAST([Abfertigungsdatum] as DATE) [Abfertigungsdatum] 
+      ,isnull([BelegNr],'') ATC
+                  ,isnull([sndhdg_nr],'') ATA 
+      ,[LKW Kennzeichen] 
+      ,[Absender] 
+      ,[Empfänger] 
+      ,[Vermittler] 
+      ,[Frachtführer] 
+      ,[Avisierer]
+      ,[Packstücke]
+      ,isnull([Abfertigungsarten].AbfertigungsbezeichnungLang,[Abfertigungsarten].Abfertigungsbezeichnung) Abfertigungsart
+      ,[Abfertigungsanzahl]
+      ,CASE WHEN Aviso.[Grenzstelle]='???' THEN Aviso.[Zollstelle] ELSE Aviso.[Grenzstelle] END [Grenzstelle]
+                        
+        FROM [VERAG].[dbo].[Speditionsbuch] INNER JOIN " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".[AVISO].dbo.tblSendungen ON SendungID=[tblSnd_SendungID]
+        INNER JOIN " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".[AVISO].dbo.Aviso ON [Speditionsbuch].AvisoID=Aviso.AvisoID
+        INNER JOIN Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=[Speditionsbuch].Abfertigungsart
+        LEFT JOIN " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".[AVISO].dbo.[tblSendHandling] ON [tblSnd_SendungID]=[sndhdg_sendId]
+
+        where Empfänger LIKE '%Flender%' and [Speditionsbuch].FilialenNr=5601
+        and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' and '" & txtAbfertDatBis.Text & "'
+        order by [Speditionsbuch].Abfertigungsart , Abfertigungsdatum", "FMZOLL")
+
+            Dim Path = ""
+            If dt IsNot Nothing And dt.Rows.Count > 0 Then
+
+                cProgramFunctions.genExcelFromDT_NEW(dt)
+
+            End If
+            lblKdAusFortschritt.Text = "fertig"
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+            lblKdAusFortschritt.Text = "Fehler"
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class