Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/Aviso.vbproj

@@ -126,7 +126,8 @@
     <Reference Include="Common.Logging.Core, Version=3.4.1.0, Culture=neutral, PublicKeyToken=af08829b84f0328e, processorArchitecture=MSIL">
       <HintPath>..\packages\Common.Logging.Core.3.4.1\lib\net40\Common.Logging.Core.dll</HintPath>
     </Reference>
-    <Reference Include="DAKOSY_Worker">
+    <Reference Include="DAKOSY_Worker, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\ADMIN\ADMIN\DAKOSY_Worker\bin\Debug\DAKOSY_Worker.dll</HintPath>
     </Reference>
     <Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
@@ -316,6 +317,10 @@
     <Reference Include="ThoughtWorks.QRCode">
       <HintPath>..\..\..\dll\ThoughtWorks.QRCode.dll</HintPath>
     </Reference>
+    <Reference Include="VERAG_PROG_ALLGEMEIN, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
+    </Reference>
     <Reference Include="WindowsBase" />
   </ItemGroup>
   <ItemGroup>
@@ -540,6 +545,12 @@
     <Compile Include="frmFreigabeSetzenAnhaenge.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmGesamtsicherheitenMenuNEU.Designer.vb">
+      <DependentUpon>frmGesamtsicherheitenMenuNEU.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmGesamtsicherheitenMenuNEU.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmGesamtsicherheitenNEU.Designer.vb">
       <DependentUpon>frmGesamtsicherheitenNEU.vb</DependentUpon>
     </Compile>
@@ -1074,6 +1085,9 @@
     <EmbeddedResource Include="frmFreigabeSetzenAnhaenge.resx">
       <DependentUpon>frmFreigabeSetzenAnhaenge.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmGesamtsicherheitenMenuNEU.resx">
+      <DependentUpon>frmGesamtsicherheitenMenuNEU.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmGesamtsicherheitenNEU.resx">
       <DependentUpon>frmGesamtsicherheitenNEU.vb</DependentUpon>
     </EmbeddedResource>
@@ -1368,10 +1382,6 @@
       <Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
       <Name>SDL</Name>
     </ProjectReference>
-    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
-      <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
-      <Name>VERAG_PROG_ALLGEMEIN</Name>
-    </ProjectReference>
     <ProjectReference Include="..\Gemeinsames\Gemeinsames.vbproj">
       <Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
       <Name>Gemeinsames</Name>

Aviso/My Project/Application.Designer.vb

@@ -32,7 +32,7 @@ Namespace My
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.AVISO.frmLogin
+            Me.MainForm = AVISO.frmLogin
         End Sub
     End Class
 End Namespace

Aviso/frmGesamtsicherheiten.vb

@@ -611,7 +611,7 @@ Public Class frmGesamtsicherheiten
 
         sicherheiten.gs_filialenNr = gessich.FilialNummer
         sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer
-        sicherheiten.gs_LKWID = gessich.LKWID
+        sicherheiten.gs_LKWKZ = gessich.LKWID
         sicherheiten.gs_warenort = gessich.warenortID
     End Sub
 

Aviso/frmGesamtsicherheitenMenu.vb

@@ -178,10 +178,6 @@ Public Class frmGesamtsicherheitenMenu
         btnSucheStarten_Click(sender, e)
     End Sub
 
-    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs)
-
-    End Sub
-
     Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click
         Try
             Date.Parse(txtVon.Text)

Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb

@@ -0,0 +1,697 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmGesamtsicherheitenMenuNEU
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenMenuNEU))
+        Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label26 = New System.Windows.Forms.Label()
+        Me.btnBisTag = New System.Windows.Forms.Button()
+        Me.btnVonTag = New System.Windows.Forms.Button()
+        Me.btnTag = New System.Windows.Forms.Button()
+        Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.btnJahr = New System.Windows.Forms.Button()
+        Me.btnBisJahr = New System.Windows.Forms.Button()
+        Me.btnVonJahr = New System.Windows.Forms.Button()
+        Me.btnMonat = New System.Windows.Forms.Button()
+        Me.btnBisMonat = New System.Windows.Forms.Button()
+        Me.btnVonMonat = New System.Windows.Forms.Button()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.Label25 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.cbxWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lblFiliale = New System.Windows.Forms.Label()
+        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.txtbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.txtSuchbegriff = New System.Windows.Forms.TextBox()
+        Me.chkOffen = New System.Windows.Forms.CheckBox()
+        Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.lblSaldo = New System.Windows.Forms.Label()
+        Me.lblZollsatz = New System.Windows.Forms.Label()
+        Me.lblReferenzwert = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'dgvListe
+        '
+        Me.dgvListe.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvListe.AllowUserToAddRows = False
+        Me.dgvListe.AllowUserToDeleteRows = False
+        Me.dgvListe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvListe.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvListe.Location = New System.Drawing.Point(0, 313)
+        Me.dgvListe.Name = "dgvListe"
+        Me.dgvListe.ReadOnly = True
+        Me.dgvListe.Size = New System.Drawing.Size(502, 408)
+        Me.dgvListe.TabIndex = 1
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.txtDatBis)
+        Me.Panel1.Controls.Add(Me.Label26)
+        Me.Panel1.Controls.Add(Me.btnBisTag)
+        Me.Panel1.Controls.Add(Me.btnVonTag)
+        Me.Panel1.Controls.Add(Me.btnTag)
+        Me.Panel1.Controls.Add(Me.txtDatVon)
+        Me.Panel1.Controls.Add(Me.Label24)
+        Me.Panel1.Controls.Add(Me.btnJahr)
+        Me.Panel1.Controls.Add(Me.btnBisJahr)
+        Me.Panel1.Controls.Add(Me.btnVonJahr)
+        Me.Panel1.Controls.Add(Me.btnMonat)
+        Me.Panel1.Controls.Add(Me.btnBisMonat)
+        Me.Panel1.Controls.Add(Me.btnVonMonat)
+        Me.Panel1.Controls.Add(Me.DateTimePicker2)
+        Me.Panel1.Controls.Add(Me.Label25)
+        Me.Panel1.Controls.Add(Me.DateTimePicker1)
+        Me.Panel1.Controls.Add(Me.cbxWarenort)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.cbxStandort)
+        Me.Panel1.Controls.Add(Me.lblFiliale)
+        Me.Panel1.Controls.Add(Me.FlatButton2)
+        Me.Panel1.Controls.Add(Me.btnSucheStarten)
+        Me.Panel1.Controls.Add(Me.txtbis)
+        Me.Panel1.Controls.Add(Me.txtVon)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.FlatButton1)
+        Me.Panel1.Controls.Add(Me.txtSuchbegriff)
+        Me.Panel1.Controls.Add(Me.chkOffen)
+        Me.Panel1.Controls.Add(Me.btnNeu)
+        Me.Panel1.Controls.Add(Me.lblSaldo)
+        Me.Panel1.Controls.Add(Me.lblZollsatz)
+        Me.Panel1.Controls.Add(Me.lblReferenzwert)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(502, 313)
+        Me.Panel1.TabIndex = 0
+        '
+        'txtDatBis
+        '
+        Me.txtDatBis._DateTimeOnly = False
+        Me.txtDatBis._numbersOnly = False
+        Me.txtDatBis._numbersOnlyKommastellen = ""
+        Me.txtDatBis._numbersOnlyTrennzeichen = True
+        Me.txtDatBis._Prozent = False
+        Me.txtDatBis._ShortDateNew = False
+        Me.txtDatBis._ShortDateOnly = True
+        Me.txtDatBis._TimeOnly = False
+        Me.txtDatBis._TimeOnly_Seconds = False
+        Me.txtDatBis._value = ""
+        Me.txtDatBis._Waehrung = False
+        Me.txtDatBis._WaehrungZeichen = True
+        Me.txtDatBis.Enabled = False
+        Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtDatBis.ForeColor = System.Drawing.Color.Black
+        Me.txtDatBis.Location = New System.Drawing.Point(51, 170)
+        Me.txtDatBis.MaxLength = 10
+        Me.txtDatBis.MaxLineLength = -1
+        Me.txtDatBis.MaxLines_Warning = ""
+        Me.txtDatBis.MaxLines_Warning_Label = Nothing
+        Me.txtDatBis.Name = "txtDatBis"
+        Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
+        Me.txtDatBis.TabIndex = 52
+        '
+        'Label26
+        '
+        Me.Label26.AutoSize = True
+        Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label26.ForeColor = System.Drawing.Color.White
+        Me.Label26.Location = New System.Drawing.Point(22, 120)
+        Me.Label26.Name = "Label26"
+        Me.Label26.Size = New System.Drawing.Size(43, 13)
+        Me.Label26.TabIndex = 51
+        Me.Label26.Text = "Datum"
+        '
+        'btnBisTag
+        '
+        Me.btnBisTag.BackColor = System.Drawing.Color.White
+        Me.btnBisTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisTag.ForeColor = System.Drawing.Color.Black
+        Me.btnBisTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisTag.Location = New System.Drawing.Point(282, 115)
+        Me.btnBisTag.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisTag.Name = "btnBisTag"
+        Me.btnBisTag.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisTag.TabIndex = 43
+        Me.btnBisTag.Text = ">>"
+        Me.btnBisTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisTag.UseVisualStyleBackColor = False
+        '
+        'btnVonTag
+        '
+        Me.btnVonTag.BackColor = System.Drawing.Color.White
+        Me.btnVonTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonTag.ForeColor = System.Drawing.Color.Black
+        Me.btnVonTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonTag.Location = New System.Drawing.Point(163, 115)
+        Me.btnVonTag.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonTag.Name = "btnVonTag"
+        Me.btnVonTag.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonTag.TabIndex = 41
+        Me.btnVonTag.Text = "<<"
+        Me.btnVonTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonTag.UseVisualStyleBackColor = False
+        '
+        'btnTag
+        '
+        Me.btnTag.BackColor = System.Drawing.Color.White
+        Me.btnTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnTag.ForeColor = System.Drawing.Color.Black
+        Me.btnTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnTag.Location = New System.Drawing.Point(196, 115)
+        Me.btnTag.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnTag.Name = "btnTag"
+        Me.btnTag.Size = New System.Drawing.Size(87, 23)
+        Me.btnTag.TabIndex = 42
+        Me.btnTag.Text = "Heute"
+        Me.btnTag.UseVisualStyleBackColor = False
+        '
+        'txtDatVon
+        '
+        Me.txtDatVon._DateTimeOnly = False
+        Me.txtDatVon._numbersOnly = False
+        Me.txtDatVon._numbersOnlyKommastellen = ""
+        Me.txtDatVon._numbersOnlyTrennzeichen = True
+        Me.txtDatVon._Prozent = False
+        Me.txtDatVon._ShortDateNew = False
+        Me.txtDatVon._ShortDateOnly = True
+        Me.txtDatVon._TimeOnly = False
+        Me.txtDatVon._TimeOnly_Seconds = False
+        Me.txtDatVon._value = ""
+        Me.txtDatVon._Waehrung = False
+        Me.txtDatVon._WaehrungZeichen = True
+        Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtDatVon.ForeColor = System.Drawing.Color.Black
+        Me.txtDatVon.Location = New System.Drawing.Point(51, 146)
+        Me.txtDatVon.MaxLength = 10
+        Me.txtDatVon.MaxLineLength = -1
+        Me.txtDatVon.MaxLines_Warning = ""
+        Me.txtDatVon.MaxLines_Warning_Label = Nothing
+        Me.txtDatVon.Name = "txtDatVon"
+        Me.txtDatVon.Size = New System.Drawing.Size(63, 20)
+        Me.txtDatVon.TabIndex = 37
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.ForeColor = System.Drawing.Color.White
+        Me.Label24.Location = New System.Drawing.Point(22, 173)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(23, 13)
+        Me.Label24.TabIndex = 40
+        Me.Label24.Text = "bis:"
+        '
+        'btnJahr
+        '
+        Me.btnJahr.BackColor = System.Drawing.Color.White
+        Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnJahr.Location = New System.Drawing.Point(196, 167)
+        Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnJahr.Name = "btnJahr"
+        Me.btnJahr.Size = New System.Drawing.Size(87, 23)
+        Me.btnJahr.TabIndex = 49
+        Me.btnJahr.Text = "2016"
+        Me.btnJahr.UseVisualStyleBackColor = False
+        '
+        'btnBisJahr
+        '
+        Me.btnBisJahr.BackColor = System.Drawing.Color.White
+        Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisJahr.Location = New System.Drawing.Point(282, 167)
+        Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisJahr.Name = "btnBisJahr"
+        Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisJahr.TabIndex = 50
+        Me.btnBisJahr.Text = ">>"
+        Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisJahr.UseVisualStyleBackColor = False
+        '
+        'btnVonJahr
+        '
+        Me.btnVonJahr.BackColor = System.Drawing.Color.White
+        Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonJahr.Location = New System.Drawing.Point(163, 167)
+        Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonJahr.Name = "btnVonJahr"
+        Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonJahr.TabIndex = 48
+        Me.btnVonJahr.Text = "<<"
+        Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonJahr.UseVisualStyleBackColor = False
+        '
+        'btnMonat
+        '
+        Me.btnMonat.BackColor = System.Drawing.Color.White
+        Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnMonat.Location = New System.Drawing.Point(196, 141)
+        Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnMonat.Name = "btnMonat"
+        Me.btnMonat.Size = New System.Drawing.Size(87, 23)
+        Me.btnMonat.TabIndex = 46
+        Me.btnMonat.Text = "September"
+        Me.btnMonat.UseVisualStyleBackColor = False
+        '
+        'btnBisMonat
+        '
+        Me.btnBisMonat.BackColor = System.Drawing.Color.White
+        Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisMonat.Location = New System.Drawing.Point(282, 141)
+        Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisMonat.Name = "btnBisMonat"
+        Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisMonat.TabIndex = 47
+        Me.btnBisMonat.Text = ">>"
+        Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisMonat.UseVisualStyleBackColor = False
+        '
+        'btnVonMonat
+        '
+        Me.btnVonMonat.BackColor = System.Drawing.Color.White
+        Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonMonat.Location = New System.Drawing.Point(163, 141)
+        Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonMonat.Name = "btnVonMonat"
+        Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonMonat.TabIndex = 45
+        Me.btnVonMonat.Text = "<<"
+        Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonMonat.UseVisualStyleBackColor = False
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.CustomFormat = "''"
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker2.Location = New System.Drawing.Point(51, 170)
+        Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
+        Me.DateTimePicker2.TabIndex = 39
+        '
+        'Label25
+        '
+        Me.Label25.AutoSize = True
+        Me.Label25.ForeColor = System.Drawing.Color.White
+        Me.Label25.Location = New System.Drawing.Point(22, 149)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(28, 13)
+        Me.Label25.TabIndex = 44
+        Me.Label25.Text = "von:"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.CustomFormat = "''"
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker1.Location = New System.Drawing.Point(51, 145)
+        Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20)
+        Me.DateTimePicker1.TabIndex = 38
+        '
+        'cbxWarenort
+        '
+        Me.cbxWarenort._allowedValuesFreiText = Nothing
+        Me.cbxWarenort._allowFreiText = False
+        Me.cbxWarenort._value = ""
+        Me.cbxWarenort.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.cbxWarenort.FormattingEnabled = True
+        Me.cbxWarenort.Location = New System.Drawing.Point(112, 67)
+        Me.cbxWarenort.Name = "cbxWarenort"
+        Me.cbxWarenort.Size = New System.Drawing.Size(81, 21)
+        Me.cbxWarenort.TabIndex = 17
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Label4.ForeColor = System.Drawing.Color.Honeydew
+        Me.Label4.Location = New System.Drawing.Point(112, 49)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(60, 15)
+        Me.Label4.TabIndex = 16
+        Me.Label4.Text = "Warenort:"
+        '
+        'cbxStandort
+        '
+        Me.cbxStandort._allowedValuesFreiText = Nothing
+        Me.cbxStandort._allowFreiText = False
+        Me.cbxStandort._value = ""
+        Me.cbxStandort.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.cbxStandort.FormattingEnabled = True
+        Me.cbxStandort.Location = New System.Drawing.Point(12, 67)
+        Me.cbxStandort.Name = "cbxStandort"
+        Me.cbxStandort.Size = New System.Drawing.Size(81, 21)
+        Me.cbxStandort.TabIndex = 15
+        '
+        'lblFiliale
+        '
+        Me.lblFiliale.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.lblFiliale.AutoSize = True
+        Me.lblFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.lblFiliale.ForeColor = System.Drawing.Color.Honeydew
+        Me.lblFiliale.Location = New System.Drawing.Point(12, 49)
+        Me.lblFiliale.Name = "lblFiliale"
+        Me.lblFiliale.Size = New System.Drawing.Size(43, 15)
+        Me.lblFiliale.TabIndex = 14
+        Me.lblFiliale.Text = "Filiale:"
+        '
+        'FlatButton2
+        '
+        Me.FlatButton2.allowBorder = False
+        Me.FlatButton2.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.FlatButton2.BackColor = System.Drawing.Color.White
+        Me.FlatButton2.FlatAppearance.BorderSize = 0
+        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton2.Location = New System.Drawing.Point(395, 281)
+        Me.FlatButton2.Name = "FlatButton2"
+        Me.FlatButton2.Size = New System.Drawing.Size(81, 20)
+        Me.FlatButton2.TabIndex = 10
+        Me.FlatButton2.Text = "jedes Datum"
+        Me.FlatButton2.UseVisualStyleBackColor = False
+        Me.FlatButton2.Visible = False
+        '
+        'btnSucheStarten
+        '
+        Me.btnSucheStarten.allowBorder = False
+        Me.btnSucheStarten.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.btnSucheStarten.BackColor = System.Drawing.Color.White
+        Me.btnSucheStarten.FlatAppearance.BorderSize = 0
+        Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black
+        Me.btnSucheStarten.Location = New System.Drawing.Point(28, 269)
+        Me.btnSucheStarten.Name = "btnSucheStarten"
+        Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20)
+        Me.btnSucheStarten.TabIndex = 11
+        Me.btnSucheStarten.Text = "Suche starten"
+        Me.btnSucheStarten.UseVisualStyleBackColor = False
+        '
+        'txtbis
+        '
+        Me.txtbis._DateTimeOnly = False
+        Me.txtbis._numbersOnly = False
+        Me.txtbis._numbersOnlyKommastellen = ""
+        Me.txtbis._numbersOnlyTrennzeichen = True
+        Me.txtbis._Prozent = False
+        Me.txtbis._ShortDateNew = False
+        Me.txtbis._ShortDateOnly = False
+        Me.txtbis._TimeOnly = False
+        Me.txtbis._TimeOnly_Seconds = False
+        Me.txtbis._value = ""
+        Me.txtbis._Waehrung = False
+        Me.txtbis._WaehrungZeichen = True
+        Me.txtbis.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.txtbis.ForeColor = System.Drawing.Color.Black
+        Me.txtbis.Location = New System.Drawing.Point(395, 257)
+        Me.txtbis.MaxLineLength = -1
+        Me.txtbis.MaxLines_Warning = ""
+        Me.txtbis.MaxLines_Warning_Label = Nothing
+        Me.txtbis.Name = "txtbis"
+        Me.txtbis.Size = New System.Drawing.Size(81, 20)
+        Me.txtbis.TabIndex = 8
+        Me.txtbis.Visible = False
+        '
+        'txtVon
+        '
+        Me.txtVon._DateTimeOnly = False
+        Me.txtVon._numbersOnly = False
+        Me.txtVon._numbersOnlyKommastellen = ""
+        Me.txtVon._numbersOnlyTrennzeichen = True
+        Me.txtVon._Prozent = False
+        Me.txtVon._ShortDateNew = False
+        Me.txtVon._ShortDateOnly = False
+        Me.txtVon._TimeOnly = False
+        Me.txtVon._TimeOnly_Seconds = False
+        Me.txtVon._value = ""
+        Me.txtVon._Waehrung = False
+        Me.txtVon._WaehrungZeichen = True
+        Me.txtVon.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.txtVon.ForeColor = System.Drawing.Color.Black
+        Me.txtVon.Location = New System.Drawing.Point(295, 257)
+        Me.txtVon.MaxLineLength = -1
+        Me.txtVon.MaxLines_Warning = ""
+        Me.txtVon.MaxLines_Warning_Label = Nothing
+        Me.txtVon.Name = "txtVon"
+        Me.txtVon.Size = New System.Drawing.Size(81, 20)
+        Me.txtVon.TabIndex = 7
+        Me.txtVon.Visible = False
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Label3.ForeColor = System.Drawing.Color.Honeydew
+        Me.Label3.Location = New System.Drawing.Point(392, 238)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(24, 15)
+        Me.Label3.TabIndex = 5
+        Me.Label3.Text = "Bis"
+        Me.Label3.Visible = False
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Label2.ForeColor = System.Drawing.Color.Honeydew
+        Me.Label2.Location = New System.Drawing.Point(295, 238)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(28, 15)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "Von"
+        Me.Label2.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Label1.ForeColor = System.Drawing.Color.Honeydew
+        Me.Label1.Location = New System.Drawing.Point(12, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(45, 15)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Suche:"
+        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.FlatButton1.BackColor = System.Drawing.Color.White
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh
+        Me.FlatButton1.Location = New System.Drawing.Point(233, 24)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(32, 33)
+        Me.FlatButton1.TabIndex = 2
+        Me.FlatButton1.UseVisualStyleBackColor = False
+        '
+        'txtSuchbegriff
+        '
+        Me.txtSuchbegriff.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 26)
+        Me.txtSuchbegriff.Name = "txtSuchbegriff"
+        Me.txtSuchbegriff.Size = New System.Drawing.Size(181, 20)
+        Me.txtSuchbegriff.TabIndex = 1
+        '
+        'chkOffen
+        '
+        Me.chkOffen.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.chkOffen.AutoSize = True
+        Me.chkOffen.Checked = True
+        Me.chkOffen.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.chkOffen.ForeColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.chkOffen.Location = New System.Drawing.Point(28, 221)
+        Me.chkOffen.Name = "chkOffen"
+        Me.chkOffen.Size = New System.Drawing.Size(120, 17)
+        Me.chkOffen.TabIndex = 12
+        Me.chkOffen.Text = "nur offene anzeigen"
+        Me.chkOffen.UseVisualStyleBackColor = True
+        '
+        'btnNeu
+        '
+        Me.btnNeu.allowBorder = False
+        Me.btnNeu.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.btnNeu.BackColor = System.Drawing.Color.White
+        Me.btnNeu.FlatAppearance.BorderSize = 0
+        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.ForeColor = System.Drawing.Color.Black
+        Me.btnNeu.Location = New System.Drawing.Point(163, 269)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(75, 23)
+        Me.btnNeu.TabIndex = 13
+        Me.btnNeu.Text = "Neu"
+        Me.btnNeu.UseVisualStyleBackColor = False
+        '
+        'lblSaldo
+        '
+        Me.lblSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.lblSaldo.AutoSize = True
+        Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
+        Me.lblSaldo.Location = New System.Drawing.Point(294, 23)
+        Me.lblSaldo.Name = "lblSaldo"
+        Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
+        Me.lblSaldo.TabIndex = 3
+        Me.lblSaldo.Text = "Saldo: €80.000"
+        '
+        'lblZollsatz
+        '
+        Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.lblZollsatz.AutoSize = True
+        Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
+        Me.lblZollsatz.Location = New System.Drawing.Point(295, 85)
+        Me.lblZollsatz.Name = "lblZollsatz"
+        Me.lblZollsatz.Size = New System.Drawing.Size(85, 16)
+        Me.lblZollsatz.TabIndex = 9
+        Me.lblZollsatz.Text = "Zollsatz: 12%"
+        '
+        'lblReferenzwert
+        '
+        Me.lblReferenzwert.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.lblReferenzwert.AutoSize = True
+        Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
+        Me.lblReferenzwert.Location = New System.Drawing.Point(295, 58)
+        Me.lblReferenzwert.Name = "lblReferenzwert"
+        Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16)
+        Me.lblReferenzwert.TabIndex = 6
+        Me.lblReferenzwert.Text = "Referenzwert: €80.000"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
+        '
+        'ExportCSVToolStripMenuItem
+        '
+        Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
+        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
+        Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
+        '
+        'frmGesamtsicherheitenMenuNEU
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(502, 721)
+        Me.Controls.Add(Me.dgvListe)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximumSize = New System.Drawing.Size(800, 760)
+        Me.MinimumSize = New System.Drawing.Size(499, 760)
+        Me.Name = "frmGesamtsicherheitenMenuNEU"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "frmGesSichMenu"
+        CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents dgvListe As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents lblSaldo As Label
+    Friend WithEvents lblZollsatz As Label
+    Friend WithEvents lblReferenzwert As Label
+    Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents chkOffen As CheckBox
+    Friend WithEvents txtSuchbegriff As TextBox
+    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txtbis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents ExportCSVToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblFiliale As Label
+    Friend WithEvents cbxStandort As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbxWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents txtDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label26 As Label
+    Friend WithEvents btnBisTag As Button
+    Friend WithEvents btnVonTag As Button
+    Friend WithEvents btnTag As Button
+    Friend WithEvents txtDatVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label24 As Label
+    Friend WithEvents btnJahr As Button
+    Friend WithEvents btnBisJahr As Button
+    Friend WithEvents btnVonJahr As Button
+    Friend WithEvents btnMonat As Button
+    Friend WithEvents btnBisMonat As Button
+    Friend WithEvents btnVonMonat As Button
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents Label25 As Label
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+End Class

Aviso/frmGesamtsicherheitenMenuNEU.resx

@@ -0,0 +1,200 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAABILAAASCwAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAgAAAAMAAAAEAAAAChEAEQ8NAA0TAAAAFgAA
+        ABkAAAAbAAAAGgAAABgAAAAUAAAADgAAAAwAAAAIAAAABAAAAAMAAAACAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAUgICAIEhISDg0NDRQAAAAbAAAAJAAA
+        ACsAAAAvAAAAMgAAADQAAAAzAAAAMAAAACsAAAAmAAAAHgAAABYAAAAQAAAACwAAAAYAAAAEAAAAAQAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACg8PDxEJCQkbBwcHJQUF
+        BTEEBAQ9AAAARwAAAE0AAABSAAAAUwAAAFIAAABOAAAESAAABD8AAAAzAAAAKAAAAB0AAAAUAAAADQAA
+        AAcAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAgAAAAQCgAKGg0G
+        DSgJDgk4BwcHSAYGBlsCAgVqAAAAcgAAAHUAAAB0AAAAcwAAAnAAAAVoAwMGWwMDA0wEAAA8AAAALQAA
+        AB4AAAAUAAAADAAAAAUAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAACgwM
+        DBUICAgiCgoKMwMHB0oFBQViCggCfmhWALWZfwDXpIYA37mXAOyxkQDmqIcA25d8AMlbSgCYAAMAZAMD
+        AE0ABAA6AAAAKAAAABoAAAAQAAAABwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA
+        AAYAAAAMFhYWFw0NDScFBQU3RjgAX7SUAM/XsQD/37YA/9+0AP/ftQD/37UA/9+1AP/etgD/3rUA/9+2
+        AP/UrQD5qosArSMjAEEABgYqAAAAHAAAABEAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAACAAAABgAAAAsMDAwWGhoJHcCdAJ7ctwD/3rYA/9+2AP/htgD/4rcA/+K3AP/itwD/4rcA/+K3
+        AP/itwD/4bYA/9+2AP/etgD/2bMA9LKTAG0NDQ0UAAAAEAAAAAgAAAADAAAAAQAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAEAAAADAAAAB3ZiAA3YtADF3rYA/+C2AP/iuAD/5LgA/+W5AP/mugD/57oA/+e6
+        AP/nugD/57oA/+a5AP/luQD/47gA/+K3AP/ftgD/3bYA/9eyAJEAAAAAAAAABAAAAAIAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAA3bcA1963AP/iuAD/5LoA/+e7AP/nvAD/6LwA/+m8
+        AP/rvQD/7L4A/+2+AP/svwD/7L4A/+q8AP/ovAD/5rsA/+O6AP/huAD/3bYA/+C6AJsAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOC6ALXfuAD/4roA/+a8AP/nvAD/6b0A/+u+
+        AP/svwD/7MAA/76cAP+NdwD/e2sb/3JkIv+HcwD/p4kA/+K5AP/qvQD/57wA/+W8AP/hugD/3rgA/965
+        AG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfugBn3rkA/+K7AP/mvgD/6b4A/+u/
+        AP/rwAD/78QA/8CeAP9WTzL/QEBB/0JERf9ERUX/QUFB/zs8PP81NTX/Qzwn//DDAP/rvwD/6L4A/+a9
+        AP/huwD/3bgA/9WxACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd25AO/hvAD/5r4A/+nA
+        AP/rwQD/7MIA//DEAP+ykwD/Ozw+/0VGRv9JSUn/SEtK/0dHSP9BQkT/Ozs8/zQ0NP9vYBP/8MUA/+zC
+        AP/rwQD/6L8A/+W+AP/huwD/27gAugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADduQB44bwA/+a+
+        AP/pwQD/7MMA/+7EAP/wxQD/1a8A/zw+Pv9HR0f/TU5O/05PUP+QgC7/uJsA/9WwAP/DowD/m4MA/6yQ
+        AP/xxQD/78QA/+7EAP/rwgD/6MAA/+W9AP/guwD/3LkALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN26
+        ANrkvgD/6MEA/+vEAP/uxAD/8MUA//TJAP9wYiv/Q0ZG/05PT/9RVFX/up0Q//TJAP/xxwD/8ccA//HH
+        AP/yxwD/8scA//DGAP/wxgD/8MUA/+3FAP/rwwD/58AA/+K+AP/euwCZAAAAAAAAAAAAAAAAAAAAAAAA
+        AADcuQAW4L4A/+XBAP/qxQD/7cYA/+/IAP/1ywD/7cQA/z9BQP9MTU3/VVZW/351TP/4zwD/9MsA//XL
+        AP/1ywD/9csA//TLAP/xyQD/8ckA//HJAP/wyQD/78cA/+3GAP/pxAD/5cAA/969AOoAAAAAAAAAAAAA
+        AAAAAAAAAAAAAN27AEvjwAD/6MQA/+zGAP/vyAD/9swA/0xEHv8yMjT/QkRE/09QUP9XWFj/Wltb/1dZ
+        XP9SVFb/Sk1P/0JERv86Ojv/ZFgr//bNAP/zygD/88oA//PKAP/xygD/78gA/+vFAP/nwwD/4b8A/8aq
+        AAkAAAAAAAAAAAAAAAAAAAAA378Jb+TCAP/qxgD/7skA//DMAP/1zwD/dmUf/0xHNP9CRET/T1BQ/1dY
+        WP9zblX/e3NR/3dvTP9yaUb/bGI+/2NcNf+Ccyf/9tAA//PNAP/zzQD/880A//LMAP/wywD/7cgA/+jG
+        AP/jwQD/274GKwAAAAAAAAAAAAAAAAAAAADfvx545MQT/+rHAv/uywD/8s0A//TPAP/evAD/kn4q/0BB
+        Qf9OTk7/VVZX/7ykOv/fwBH/3b4V/9y9Ev/buxb/2roK/9++AP/10AD/9M8A//TPAP/0zwD/884A//HM
+        AP/uygD/6cYF/+TDFf/fvxs4AAAAAAAAAAAAAAAAAAAAAODCJXXlxiL/68oX//DND//zzwH/+NMA/0pD
+        If8tLi7/PDw8/0hKSf9SUlL/VVdY/1VXWf9RVFb/S05R/0VGSf87PD//Zlwz//nUAP/20QD/9tEA//bR
+        AP/10QD/888B/+7MEv/qyRn/5MQk/968IS4AAAAAAAAAAAAAAAAAAAAA4cMwVeXGLv/ryyn/8M4l//PR
+        Iv/31CH/lIEg/31tLf80NTX/QUFB/0pMTP9lYVD/m41J/5mISf+XiEb/lINB/5B/Of+ljzD/+NUf//fT
+        Hv/30x7/9tMe//XRIf/y0CP/7s0m/+rKKv/kxTD/2b8mFAAAAAAAAAAAAAAAAAAAAADixTMj5cY4/+vM
+        M//w0DL/9NIw//bUMf/51zD//9sw/0pELf83Nzf/QUJC/05OSv/y0TH/+9ct//rXLf/61y3/+tcw//rX
+        MP/41i//+NYv//jWL//31TD/9tQx//PRMf/vzzP/6ss0/+LFNvcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADkxj/06sw//+/QPv/z0z7/9tY8//jXPf/62D//tJw1/ywtLf83Nzf/QEBA/2pjSP/lyEL//No9//rZ
+        Pv/72T7//Ns8//TTPv/51z3/+Nc9//jXPf/21Tz/8tI+/+7PPf/oyj7/4sU+qAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAOHFRJLoy0T/7s9F//LTRv/21kf/+NdF//nYR//+3Ej/a2Aw/ywsLP81NTX/Ozs7/0VG
+        QP9vZ0X/k4VH/3dtQf9DQDT/s50+//vbR//52Ef/+NdF//bWR//x0kX/7c5G/+fJRf/hw0JNAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA379AEObKSv/sz0v/8dNM//XXTv/32U7/+dtN//rcTv/52k3/cGQy/ygo
+        KP8uLi7/MjQ0/zU2Nv81NTX/MTIy/ywsLP97bjf//NxQ//naTf/32E//9NZM//DSTf/rzkv/5MhI2AAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5clNiOnNUf/v0VP/89ZV//fZVf/521j/+txX//vc
+        Wf//4Vr/wqpJ/1xTL/8lJSX/KCkp/ygpKf8mJib/Ly0n/4Z3Of/93Vj/+dpX//bYVv/y1VT/7dFT/+fM
+        Uf/hyE5FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC/v0AE5spS3ezQVf/w1Fj/9dda//fa
+        XP/53Fz/+t1d//veXf/932D//+Fg/+zQWP/ZwFP/2cFU/93DVf/+4l7//d9e//ncXP/22Vz/89da/+/S
+        V//qzlT/5MpTowAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADbwlUV5stY9+zR
+        W//w1V7/9dhg//fbYv/53GL/+t1k//veY//73mX//OBk//zgZf/832b//N9k//ndY//53GP/9tpg//PX
+        Xv/w1F3/69Ba/+XKV9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AADizFcj5stb7ezRXv/w1GL/89dj//XZZf/322b/+Nxn//ncZ//53Gf/+dxn//ncZ//43Gf/99tm//XZ
+        ZP/y12P/79Ng/+vQXf/my1rJ1apVBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAADVv1UM5stcxevQYP/u02L/8NZk//PXZv/02Wf/9dpo//XaaP/12mj/9dpo//TZ
+        Z//y12X/8NVk/+3SYv/pz1//5stdjwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5ctfWebNYOLq0WP/7NJk/+7UZv/w1Wf/8NZn//DW
+        Z//v1Wb/7tRl/+vSZP/q0GL/58xfvuLMXyMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOLLYyzlzGOB5s1izefP
+        ZNTp0GP/6dBj/ejOY9HmzWLA5sthcefCYRUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA+AAAf/AAAB/wAAAP4AAAD+AAAA/gAAAP4AAAB+AAAE/0AAA/+AAAH/AA
+        AA/gAAAP4AAAB+AAAAfAAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAH4AAAB+AAAAfgAAAP8AAAD/AA
+        AB/4AAA//AAAP/4AAP//gAH//+AH//////8=
+</value>
+  </data>
+</root>

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -0,0 +1,336 @@
+Imports System.Reflection
+
+Public Class frmGesamtsicherheitenMenuNEU
+
+    Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
+    Dim dt As DataTable
+    Public Property Standort As String = ""
+    Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+        cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
+        Me.Text = "Gesamtsicherheiten " & Standort
+        frmHauptfenster.EnableDoubleBuffered(dgvListe)
+        GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
+        'GesSichRef.LOAD("standort", Standort)
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+
+        'txtDatVon._ShortDateOnly = True
+        'txtDatBis._ShortDateOnly = True
+
+        txtDatVon.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
+        txtDatBis.Text = Now.ToShortDateString
+
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+
+
+        'txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
+        'txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
+        ShowStandort()
+        LoadDGV()
+    End Sub
+
+    Public Function LoadDGV()
+        Dim sqladdon As String = ""
+        If chkOffen.Checked Then sqladdon &= " AND gs_Sicherheitssaldo != '0,00 €'"
+        If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'"
+        If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
+
+        Dim sqlstring As String =
+            " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr,
+                max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(SUM( 
+            Case 
+	            when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
+	            when gs_art = 'Close' then gs_sicherheitsbetrag
+            End) , 'C', 'de-DE')As gs_SicherheitsSaldo
+
+            From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where 
+                gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
+                gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
+                gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR
+                gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR
+                gs_warenort like '%" & txtSuchbegriff.Text & "%'
+            ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2
+            Where gs_standort = '" & Standort & "' " & sqladdon & "
+            AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "'
+            AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'"
+
+        dgvListe.SET_SQL(sqlstring, "AVISO")
+        dgvListe.LOAD()
+
+        With dgvListe
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .RowHeadersWidth = 6
+            .Columns("gs_standort").Visible = False
+            .Columns("gs_gsnr").HeaderText = "#"
+            .Columns("gs_gsnr").Width = 36
+            .Columns("gs_filialenNr").HeaderText = "Filiale"
+            .Columns("gs_filialenNr").Width = 43
+            .Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr."
+            .Columns("gs_abfertigungsNr").Width = 107
+            .Columns("gs_datum").Width = 112
+            .Columns("gs_SicherheitsSaldo").Width = 106
+            .Columns("gs_Warenort").Width = 96
+            .Columns("gs_Warenort").HeaderText = "Warenort"
+
+        End With
+
+        For Each row As DataGridViewRow In dgvListe.Rows
+            If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
+                row.DefaultCellStyle.BackColor = Color.Red
+            Else
+                row.DefaultCellStyle.BackColor = Color.Green
+            End If
+        Next
+
+    End Function
+
+    Public Sub ShowStandort()
+        'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
+        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
+        lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+    End Sub
+
+
+
+
+    Private Sub OpenFRM(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListe.CellDoubleClick
+        Dim frm As New frmGesamtsicherheitenNEU
+        With frm
+            .currentGesSichRef = GesSichRef
+            .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
+            .Standort = Me.Standort
+            .datum = dgvListe.CurrentRow.Cells("gs_datum").Value
+            .LKWKZ = dgvListe.CurrentRow.Cells("gs_LKWKZ").Value
+            .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
+            .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
+            .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
+        End With
+
+        AddHandler frm.FormClosing, Function()
+                                        GesSichRef.CalcSaldo()
+                                        ShowStandort()
+                                        LoadDGV()
+                                        Me.BringToFront()
+                                    End Function
+        frm.Show()
+    End Sub
+
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+        Dim frm As New frmGesamtsicherheitenNEU
+        With frm
+            .currentGesSichRef = GesSichRef
+            .Standort = Me.Standort
+            .datum = Date.Now
+            .Neu = True
+        End With
+        AddHandler frm.FormClosing, Function()
+                                        GesSichRef.CalcSaldo()
+                                        ShowStandort()
+                                        LoadDGV()
+                                        Me.BringToFront()
+                                    End Function
+        frm.Show()
+    End Sub
+
+    Private Sub lblSaldo_Click(sender As Object, e As EventArgs) Handles lblSaldo.Click
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        LoadDGV()
+    End Sub
+
+    Private Sub chkOffen_CheckedChanged(sender As Object, e As EventArgs)
+        If Me.Visible Then LoadDGV()
+    End Sub
+    Private Sub Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
+        Select Case Asc(e.KeyChar)
+            Case 48 To 57, 8, 46, 58, 32, 44, 65 To 90, 97 To 122
+                ' Zahlen, Backspace, . und : zulassen
+
+            Case Else
+                ' alle anderen Eingaben unterdrücken
+                e.Handled = True
+        End Select
+    End Sub
+
+    Private Sub resetSearchfields_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        txtSuchbegriff.Text = "" : chkOffen.Checked = True
+        txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
+        txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
+        cbxStandort._value = ""
+        cbxWarenort._value = ""
+        btnSucheStarten_Click(sender, e)
+    End Sub
+
+    Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click
+        Try
+            Date.Parse(txtDatVon.Text)
+            Date.Parse(txtDatBis.Text)
+            If Me.Visible Then LoadDGV()
+        Catch ex As Exception
+            MsgBox("Datum VON und/oder BIS konnte nicht konvertiert werden.")
+        End Try
+    End Sub
+
+    'Private Sub FlatButton2_Click(sender As Object, e As EventArgs)
+    '    txtDatVon.Text = Date.Parse("01.01.1970")
+    '    txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
+    'End Sub
+
+    Private Sub ExportCSVToolStripMenuItem_Click(sender As Object, e As EventArgs)
+        csvexport(dgvListe)
+    End Sub
+
+    Public Shared Function csvexport(quelldgv As DataGridView)
+        Dim savefiledialog As New SaveFileDialog
+        Dim firstin As String
+        Dim out As String
+        Dim in2 As String
+        Dim header As String
+
+        savefiledialog.Filter = "CSV files (*.csv)|*.CSV"
+        savefiledialog.InitialDirectory = "C:\Verag"
+        savefiledialog.ShowDialog()
+
+
+        Try
+            For r As Integer = 0 To quelldgv.Rows.Count - 1
+                For c As Integer = 0 To quelldgv.Columns.Count
+                    'test &= r & c & vbCrLf
+                    Try
+                        'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                        firstin = quelldgv.Rows(r).Cells(c).Value.ToString
+                        'in2 = """" & firstin & """" & ";"
+                        in2 = firstin & ";"
+                        out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                    Catch ex As Exception
+                        out &= ""
+                    End Try
+
+                Next
+
+                out &= "nZ"
+            Next
+            For c As Integer = 0 To quelldgv.Columns.Count - 1
+                header &= quelldgv.Columns(c).Name & ";"
+            Next
+            out = Replace(out, "nZ", vbCrLf)
+            'MsgBox(out)
+            Using sw As New IO.StreamWriter(savefiledialog.FileName)
+                sw.WriteLine(header)
+                sw.WriteLine(out)
+            End Using
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+
+    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
+    Dim TAG As Date = CDate(Now.ToShortDateString)
+    Dim JAHR As Date = CDate("01.01." & Now.Year)
+
+
+    Sub initBtns(MonatJahr)
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+        Select Case MonatJahr
+            Case "Monat"
+                DateTimePicker1.Value = MONAT
+                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
+            Case "Jahr"
+
+                DateTimePicker1.Value = JAHR
+                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
+                'End If
+            Case "Tag"
+
+                DateTimePicker1.Value = TAG
+                DateTimePicker2.Value = TAG
+                If TAG = Now.ToShortDateString Then
+                    btnTag.Text = "Heute"
+                ElseIf TAG = Now.AddDays(-1).ToShortDateString Then
+                    btnTag.Text = "Gestern"
+                ElseIf TAG = Now.AddDays(-2).ToShortDateString Then
+                    btnTag.Text = "Vorgestern"
+                ElseIf TAG = Now.AddDays(1).ToShortDateString Then
+                    btnTag.Text = "Morgen"
+                Else
+                    btnTag.Text = TAG.ToString("dd.MM")
+                End If
+
+                'End If
+            Case ""
+                DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
+                DateTimePicker2.Value = Now
+        End Select
+
+    End Sub
+
+
+    Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnPlusJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
+        JAHR = JAHR.AddYears(1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnMinusJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
+        JAHR = JAHR.AddYears(-1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnPlusMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
+        MONAT = MONAT.AddMonths(1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnMinusMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
+        MONAT = MONAT.AddMonths(-1)
+        initBtns("Monat")
+    End Sub
+
+
+    Private Sub btnTag_Click(sender As Object, e As EventArgs) Handles btnTag.Click
+        initBtns("Tag")
+    End Sub
+
+    Private Sub btnMinusTag_Click(sender As Object, e As EventArgs) Handles btnVonTag.Click
+        TAG = TAG.AddDays(-1)
+        initBtns("Tag")
+    End Sub
+
+    Private Sub btnPlusTag_Click(sender As Object, e As EventArgs) Handles btnBisTag.Click
+        TAG = TAG.AddDays(1)
+        initBtns("Tag")
+    End Sub
+
+    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
+        txtDatVon._value = CDate(sender.value).ToShortDateString
+        btnSucheStarten_Click(sender, e)
+    End Sub
+
+    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
+        txtDatBis._value = CDate(sender.value).ToShortDateString
+        btnSucheStarten_Click(sender, e)
+    End Sub
+
+    Function setNullToZero(s As String, Optional type As String = "")
+
+        If s = "" Then
+            Dim zero As Double = 0
+
+            Return zero
+        Else
+            Return s
+        End If
+    End Function
+
+
+End Class

Aviso/frmHauptfenster.vb

@@ -4174,6 +4174,12 @@ Public Class frmHauptfenster
         btnColor.BackColor = Color.White
         meineAviso_anzeigen()
     End Sub
+
+    Private Sub DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Click
+        Dim frm As New frmGesamtsicherheitenMenuNEU
+        frm.Standort = "VERAG AG"
+        frm.Show()
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions