Feature_Gesamtsicherheiten

2022-10-28 12:01:16 +02:00
parent 2f763da552
commit 0fdf25d07e
7 changed files with 501 additions and 212 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("3.8.1.6")>
-<Assembly: AssemblyFileVersion("3.8.1.6")>
+<Assembly: AssemblyVersion("3.8.1.7")>
+<Assembly: AssemblyFileVersion("3.8.1.7")>
--- a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
+++ b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
@@ -26,6 +26,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label26 = New System.Windows.Forms.Label()
        Me.btnBisTag = New System.Windows.Forms.Button()
@@ -62,7 +63,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.lblReferenzwert = New System.Windows.Forms.Label()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton()
        CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
@@ -73,12 +73,13 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.dgvListe.AKTUALISIERUNGS_INTERVALL = -1
        Me.dgvListe.AllowUserToAddRows = False
        Me.dgvListe.AllowUserToDeleteRows = False
+        Me.dgvListe.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        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.Location = New System.Drawing.Point(-3, 307)
        Me.dgvListe.Name = "dgvListe"
        Me.dgvListe.ReadOnly = True
-        Me.dgvListe.Size = New System.Drawing.Size(576, 408)
+        Me.dgvListe.Size = New System.Drawing.Size(606, 408)
        Me.dgvListe.TabIndex = 1
        '
        'Panel1
@@ -122,9 +123,24 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(576, 313)
+        Me.Panel1.Size = New System.Drawing.Size(606, 313)
        Me.Panel1.TabIndex = 0
        '
+        'btnOpenOver85Days
+        '
+        Me.btnOpenOver85Days.allowBorder = False
+        Me.btnOpenOver85Days.BackColor = System.Drawing.Color.White
+        Me.btnOpenOver85Days.FlatAppearance.BorderSize = 0
+        Me.btnOpenOver85Days.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOpenOver85Days.ForeColor = System.Drawing.Color.Black
+        Me.btnOpenOver85Days.Location = New System.Drawing.Point(36, 244)
+        Me.btnOpenOver85Days.Name = "btnOpenOver85Days"
+        Me.btnOpenOver85Days.Size = New System.Drawing.Size(116, 20)
+        Me.btnOpenOver85Days.TabIndex = 32
+        Me.btnOpenOver85Days.Text = "Über 85 Tage offen"
+        Me.btnOpenOver85Days.UseVisualStyleBackColor = False
+        Me.btnOpenOver85Days.Visible = False
+        '
        'txtDatBis
        '
        Me.txtDatBis._DateTimeOnly = False
@@ -149,7 +165,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.txtDatBis.MaxLines_Warning_Label = Nothing
        Me.txtDatBis.Name = "txtDatBis"
        Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
-        Me.txtDatBis.TabIndex = 21
+        Me.txtDatBis.TabIndex = 25
        '
        'Label26
        '
@@ -159,7 +175,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.Label26.Location = New System.Drawing.Point(33, 120)
        Me.Label26.Name = "Label26"
        Me.Label26.Size = New System.Drawing.Size(43, 13)
-        Me.Label26.TabIndex = 10
+        Me.Label26.TabIndex = 11
        Me.Label26.Text = "Datum"
        '
        'btnBisTag
@@ -173,7 +189,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 13
+        Me.btnBisTag.TabIndex = 14
        Me.btnBisTag.Text = ">>"
        Me.btnBisTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnBisTag.UseVisualStyleBackColor = False
@@ -189,7 +205,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 11
+        Me.btnVonTag.TabIndex = 12
        Me.btnVonTag.Text = "<<"
        Me.btnVonTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnVonTag.UseVisualStyleBackColor = False
@@ -205,7 +221,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 12
+        Me.btnTag.TabIndex = 13
        Me.btnTag.Text = "Heute"
        Me.btnTag.UseVisualStyleBackColor = False
        '
@@ -232,7 +248,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.txtDatVon.MaxLines_Warning_Label = Nothing
        Me.txtDatVon.Name = "txtDatVon"
        Me.txtDatVon.Size = New System.Drawing.Size(63, 20)
-        Me.txtDatVon.TabIndex = 16
+        Me.txtDatVon.TabIndex = 18
        '
        'Label24
        '
@@ -241,7 +257,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.Label24.Location = New System.Drawing.Point(33, 173)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(23, 13)
-        Me.Label24.TabIndex = 20
+        Me.Label24.TabIndex = 23
        Me.Label24.Text = "bis:"
        '
        'btnJahr
@@ -255,7 +271,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 24
+        Me.btnJahr.TabIndex = 28
        Me.btnJahr.Text = "2016"
        Me.btnJahr.UseVisualStyleBackColor = False
        '
@@ -270,7 +286,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 25
+        Me.btnBisJahr.TabIndex = 29
        Me.btnBisJahr.Text = ">>"
        Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnBisJahr.UseVisualStyleBackColor = False
@@ -286,7 +302,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 23
+        Me.btnVonJahr.TabIndex = 27
        Me.btnVonJahr.Text = "<<"
        Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnVonJahr.UseVisualStyleBackColor = False
@@ -302,7 +318,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 18
+        Me.btnMonat.TabIndex = 20
        Me.btnMonat.Text = "September"
        Me.btnMonat.UseVisualStyleBackColor = False
        '
@@ -317,7 +333,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 19
+        Me.btnBisMonat.TabIndex = 21
        Me.btnBisMonat.Text = ">>"
        Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnBisMonat.UseVisualStyleBackColor = False
@@ -333,7 +349,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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 = 17
+        Me.btnVonMonat.TabIndex = 19
        Me.btnVonMonat.Text = "<<"
        Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnVonMonat.UseVisualStyleBackColor = False
@@ -347,7 +363,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.DateTimePicker2.Name = "DateTimePicker2"
        Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
-        Me.DateTimePicker2.TabIndex = 22
+        Me.DateTimePicker2.TabIndex = 26
        '
        'Label25
        '
@@ -356,7 +372,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.Label25.Location = New System.Drawing.Point(33, 149)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(28, 13)
-        Me.Label25.TabIndex = 14
+        Me.Label25.TabIndex = 16
        Me.Label25.Text = "von:"
        '
        'DateTimePicker1
@@ -368,14 +384,13 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20)
-        Me.DateTimePicker1.TabIndex = 15
+        Me.DateTimePicker1.TabIndex = 17
        '
        '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(132, 69)
        Me.cbxWarenort.Name = "cbxWarenort"
@@ -384,7 +399,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
        '
        '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
@@ -399,7 +413,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(32, 69)
        Me.cbxStandort.Name = "cbxStandort"
@@ -408,7 +421,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
        '
        '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
@@ -426,10 +438,10 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(483, 193)
+        Me.FlatButton2.Location = New System.Drawing.Point(513, 193)
        Me.FlatButton2.Name = "FlatButton2"
        Me.FlatButton2.Size = New System.Drawing.Size(81, 20)
-        Me.FlatButton2.TabIndex = 34
+        Me.FlatButton2.TabIndex = 30
        Me.FlatButton2.Text = "jedes Datum"
        Me.FlatButton2.UseVisualStyleBackColor = False
        Me.FlatButton2.Visible = False
@@ -437,7 +449,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
        '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
@@ -445,7 +456,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.btnSucheStarten.Location = New System.Drawing.Point(32, 281)
        Me.btnSucheStarten.Name = "btnSucheStarten"
        Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20)
-        Me.btnSucheStarten.TabIndex = 32
+        Me.btnSucheStarten.TabIndex = 33
        Me.btnSucheStarten.Text = "Suche starten"
        Me.btnSucheStarten.UseVisualStyleBackColor = False
        '
@@ -465,13 +476,14 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(483, 169)
+        Me.txtbis.Location = New System.Drawing.Point(513, 169)
        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 = 31
+        Me.txtbis.TabIndex = 24
+        Me.txtbis.TabStop = False
        Me.txtbis.Visible = False
        '
        'txtVon
@@ -490,13 +502,14 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(480, 126)
+        Me.txtVon.Location = New System.Drawing.Point(510, 126)
        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 = 30
+        Me.txtVon.TabIndex = 15
+        Me.txtVon.TabStop = False
        Me.txtVon.Visible = False
        '
        'Label3
@@ -505,10 +518,10 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(480, 150)
+        Me.Label3.Location = New System.Drawing.Point(510, 150)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(24, 15)
-        Me.Label3.TabIndex = 29
+        Me.Label3.TabIndex = 22
        Me.Label3.Text = "Bis"
        Me.Label3.Visible = False
        '
@@ -518,16 +531,15 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(480, 107)
+        Me.Label2.Location = New System.Drawing.Point(510, 107)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(28, 15)
-        Me.Label2.TabIndex = 28
+        Me.Label2.TabIndex = 10
        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
@@ -540,7 +552,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
        'btnResetFilter
        '
        Me.btnResetFilter.allowBorder = False
-        Me.btnResetFilter.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.btnResetFilter.BackColor = System.Drawing.Color.White
        Me.btnResetFilter.FlatAppearance.BorderSize = 0
        Me.btnResetFilter.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -548,13 +559,12 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.btnResetFilter.Image = Global.AVISO.My.Resources.Resources.refresh
        Me.btnResetFilter.Location = New System.Drawing.Point(249, 24)
        Me.btnResetFilter.Name = "btnResetFilter"
-        Me.btnResetFilter.Size = New System.Drawing.Size(32, 33)
+        Me.btnResetFilter.Size = New System.Drawing.Size(62, 33)
        Me.btnResetFilter.TabIndex = 3
        Me.btnResetFilter.UseVisualStyleBackColor = False
        '
        'txtSuchbegriff
        '
-        Me.txtSuchbegriff.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.txtSuchbegriff.Location = New System.Drawing.Point(32, 28)
        Me.txtSuchbegriff.Name = "txtSuchbegriff"
        Me.txtSuchbegriff.Size = New System.Drawing.Size(181, 20)
@@ -562,7 +572,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
        '
        '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
@@ -570,7 +579,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.chkOffen.Location = New System.Drawing.Point(35, 210)
        Me.chkOffen.Name = "chkOffen"
        Me.chkOffen.Size = New System.Drawing.Size(120, 17)
-        Me.chkOffen.TabIndex = 26
+        Me.chkOffen.TabIndex = 31
        Me.chkOffen.Text = "nur offene anzeigen"
        Me.chkOffen.UseVisualStyleBackColor = True
        '
@@ -582,10 +591,10 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(492, 278)
+        Me.btnNeu.Location = New System.Drawing.Point(522, 278)
        Me.btnNeu.Name = "btnNeu"
        Me.btnNeu.Size = New System.Drawing.Size(75, 23)
-        Me.btnNeu.TabIndex = 33
+        Me.btnNeu.TabIndex = 34
        Me.btnNeu.Text = "Neu"
        Me.btnNeu.UseVisualStyleBackColor = False
        '
@@ -595,7 +604,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(368, 23)
+        Me.lblSaldo.Location = New System.Drawing.Point(398, 23)
        Me.lblSaldo.Name = "lblSaldo"
        Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
        Me.lblSaldo.TabIndex = 1
@@ -607,7 +616,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(369, 85)
+        Me.lblZollsatz.Location = New System.Drawing.Point(399, 85)
        Me.lblZollsatz.Name = "lblZollsatz"
        Me.lblZollsatz.Size = New System.Drawing.Size(85, 16)
        Me.lblZollsatz.TabIndex = 9
@@ -619,7 +628,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        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(369, 58)
+        Me.lblReferenzwert.Location = New System.Drawing.Point(399, 58)
        Me.lblReferenzwert.Name = "lblReferenzwert"
        Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16)
        Me.lblReferenzwert.TabIndex = 6
@@ -637,27 +646,11 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
        Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
        '
-        'btnOpenOver85Days
-        '
-        Me.btnOpenOver85Days.allowBorder = False
-        Me.btnOpenOver85Days.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.btnOpenOver85Days.BackColor = System.Drawing.Color.White
-        Me.btnOpenOver85Days.FlatAppearance.BorderSize = 0
-        Me.btnOpenOver85Days.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnOpenOver85Days.ForeColor = System.Drawing.Color.Black
-        Me.btnOpenOver85Days.Location = New System.Drawing.Point(36, 244)
-        Me.btnOpenOver85Days.Name = "btnOpenOver85Days"
-        Me.btnOpenOver85Days.Size = New System.Drawing.Size(116, 20)
-        Me.btnOpenOver85Days.TabIndex = 27
-        Me.btnOpenOver85Days.Text = "Über 85 Tage offen"
-        Me.btnOpenOver85Days.UseVisualStyleBackColor = False
-        Me.btnOpenOver85Days.Visible = False
-        '
        'frmGesamtsicherheitenMenuNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(576, 721)
+        Me.ClientSize = New System.Drawing.Size(606, 721)
        Me.Controls.Add(Me.dgvListe)
        Me.Controls.Add(Me.Panel1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
--- a/Aviso/frmGesamtsicherheitenMenuNEU.vb
+++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb
@@ -105,7 +105,8 @@ Public Class frmGesamtsicherheitenMenuNEU



-            For Each row As DataGridViewRow In dgvListe.Rows
+
+        For Each row As DataGridViewRow In dgvListe.Rows
            If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then

                dt.Rows.Add(row.Cells("gs_gsnr").Value, True)
@@ -115,6 +116,13 @@ Public Class frmGesamtsicherheitenMenuNEU
        Next


+        'Debug
+        'For i As Integer = 0 To dt.Rows.Count - 1
+        '    MsgBox("gs_nr: " & dt.Rows(i).Item("gs_gsnr").ToString & " " & "gs_isOpen: " & dt.Rows(i).Item("gs_isOpen").ToString)
+        'Next
+
+
+
        For Each row As DataGridViewRow In dgvListe.Rows

            If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
--- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb
@@ -33,6 +33,11 @@ Partial Class frmGesamtsicherheitenNEU
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.pnlSummeGesPos = New System.Windows.Forms.Panel()
+        Me.txtPosAnzalPosGes = New System.Windows.Forms.TextBox()
+        Me.Label29 = New System.Windows.Forms.Label()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label22 = New System.Windows.Forms.Label()
        Me.panOverlay = New System.Windows.Forms.Panel()
        Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.lblWarenort = New System.Windows.Forms.Label()
@@ -45,6 +50,11 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label16 = New System.Windows.Forms.Label()
        Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.pnlSummeGes = New System.Windows.Forms.Panel()
+        Me.txtAnzalPosGes = New System.Windows.Forms.TextBox()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.Label25 = New System.Windows.Forms.Label()
        Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.lblGestellungNr = New System.Windows.Forms.Label()
@@ -52,7 +62,6 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtPosDate = New System.Windows.Forms.TextBox()
        Me.txtSicherheitTime = New System.Windows.Forms.TextBox()
        Me.txtSicherheitDate = New System.Windows.Forms.TextBox()
-        Me.btnSaveOben = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.txtPosSicherheitsbetrag = New System.Windows.Forms.TextBox()
        Me.txtPosWarenwert = New System.Windows.Forms.TextBox()
        Me.txtPositionenCRN = New System.Windows.Forms.TextBox()
@@ -64,6 +73,8 @@ Partial Class frmGesamtsicherheitenNEU
        Me.lblReferenzwert = New System.Windows.Forms.Label()
        Me.lblSaldo = New System.Windows.Forms.Label()
        Me.panOben = New System.Windows.Forms.Panel()
+        Me.btnSaveDatetime = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.lblId = New System.Windows.Forms.Label()
        Me.txtZollsatzueberschreiben = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxZollsatzueberschreiben = New System.Windows.Forms.CheckBox()
        Me.btnNext = New System.Windows.Forms.Button()
@@ -103,12 +114,17 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label1 = New System.Windows.Forms.Label()
        Me.txtPosFreitext = New System.Windows.Forms.TextBox()
        Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox()
-        Me.lblId = New System.Windows.Forms.Label()
+        Me.txtWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtPosWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel2.SuspendLayout()
+        Me.pnlSummeGesPos.SuspendLayout()
        Me.panOverlay.SuspendLayout()
        CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnlSummeGes.SuspendLayout()
        Me.panOben.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
@@ -149,7 +165,7 @@ Partial Class frmGesamtsicherheitenNEU
        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
        Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
        Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(692, 486)
+        Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(689, 486)
        Me.dgvGesamtsicherheit.TabIndex = 0
        '
        'ContextMenuStrip1
@@ -166,8 +182,10 @@ Partial Class frmGesamtsicherheitenNEU
        '
        'Panel2
        '
+        Me.Panel2.Controls.Add(Me.pnlSummeGesPos)
        Me.Panel2.Controls.Add(Me.panOverlay)
        Me.Panel2.Controls.Add(Me.dgvSicherheitsPos)
+        Me.Panel2.Controls.Add(Me.pnlSummeGes)
        Me.Panel2.Controls.Add(Me.dgvGesamtsicherheit)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel2.Location = New System.Drawing.Point(0, 290)
@@ -175,6 +193,58 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Panel2.Size = New System.Drawing.Size(1384, 486)
        Me.Panel2.TabIndex = 1
        '
+        'pnlSummeGesPos
+        '
+        Me.pnlSummeGesPos.BackColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.pnlSummeGesPos.Controls.Add(Me.txtPosSicherheitsbGes)
+        Me.pnlSummeGesPos.Controls.Add(Me.txtPosWarenwertGes)
+        Me.pnlSummeGesPos.Controls.Add(Me.txtPosAnzalPosGes)
+        Me.pnlSummeGesPos.Controls.Add(Me.Label29)
+        Me.pnlSummeGesPos.Controls.Add(Me.Label28)
+        Me.pnlSummeGesPos.Controls.Add(Me.Label22)
+        Me.pnlSummeGesPos.Location = New System.Drawing.Point(692, 451)
+        Me.pnlSummeGesPos.Name = "pnlSummeGesPos"
+        Me.pnlSummeGesPos.Size = New System.Drawing.Size(692, 35)
+        Me.pnlSummeGesPos.TabIndex = 4
+        '
+        'txtPosAnzalPosGes
+        '
+        Me.txtPosAnzalPosGes.Location = New System.Drawing.Point(84, 10)
+        Me.txtPosAnzalPosGes.Name = "txtPosAnzalPosGes"
+        Me.txtPosAnzalPosGes.ReadOnly = True
+        Me.txtPosAnzalPosGes.Size = New System.Drawing.Size(53, 20)
+        Me.txtPosAnzalPosGes.TabIndex = 1
+        '
+        'Label29
+        '
+        Me.Label29.AutoSize = True
+        Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label29.Location = New System.Drawing.Point(180, 13)
+        Me.Label29.Name = "Label29"
+        Me.Label29.Size = New System.Drawing.Size(120, 13)
+        Me.Label29.TabIndex = 2
+        Me.Label29.Text = "Warentwert Summe:"
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label28.Location = New System.Drawing.Point(426, 13)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(154, 13)
+        Me.Label28.TabIndex = 4
+        Me.Label28.Text = "Sicherheitsbetrag Summe:"
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label22.Location = New System.Drawing.Point(3, 13)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(74, 13)
+        Me.Label22.TabIndex = 0
+        Me.Label22.Text = "Anzahl Pos:"
+        '
        'panOverlay
        '
        Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight
@@ -206,7 +276,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.cboWarenort.MaxLength = 4
        Me.cboWarenort.Name = "cboWarenort"
        Me.cboWarenort.Size = New System.Drawing.Size(186, 24)
-        Me.cboWarenort.TabIndex = 9
+        Me.cboWarenort.TabIndex = 2
        '
        'lblWarenort
        '
@@ -215,7 +285,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.lblWarenort.Location = New System.Drawing.Point(125, 68)
        Me.lblWarenort.Name = "lblWarenort"
        Me.lblWarenort.Size = New System.Drawing.Size(88, 20)
-        Me.lblWarenort.TabIndex = 8
+        Me.lblWarenort.TabIndex = 1
        Me.lblWarenort.Text = "Warenort:"
        '
        'cboFiliale
@@ -230,7 +300,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.cboFiliale.MaxLength = 4
        Me.cboFiliale.Name = "cboFiliale"
        Me.cboFiliale.Size = New System.Drawing.Size(186, 24)
-        Me.cboFiliale.TabIndex = 2
+        Me.cboFiliale.TabIndex = 4
        '
        'btnSave
        '
@@ -242,7 +312,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnSave.Location = New System.Drawing.Point(424, 232)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(75, 23)
-        Me.btnSave.TabIndex = 7
+        Me.btnSave.TabIndex = 9
        Me.btnSave.Text = "Speichern"
        Me.btnSave.UseVisualStyleBackColor = False
        '
@@ -253,7 +323,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtLKWID.Margin = New System.Windows.Forms.Padding(0)
        Me.txtLKWID.Name = "txtLKWID"
        Me.txtLKWID.Size = New System.Drawing.Size(186, 24)
-        Me.txtLKWID.TabIndex = 6
+        Me.txtLKWID.TabIndex = 8
        '
        'txtAbfertNum
        '
@@ -262,7 +332,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtAbfertNum.Margin = New System.Windows.Forms.Padding(0)
        Me.txtAbfertNum.Name = "txtAbfertNum"
        Me.txtAbfertNum.Size = New System.Drawing.Size(186, 24)
-        Me.txtAbfertNum.TabIndex = 4
+        Me.txtAbfertNum.TabIndex = 6
        '
        'Label18
        '
@@ -271,7 +341,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label18.Location = New System.Drawing.Point(173, 180)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(76, 20)
-        Me.Label18.TabIndex = 5
+        Me.Label18.TabIndex = 7
        Me.Label18.Text = "LKW-ID:"
        '
        'Label17
@@ -281,7 +351,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label17.Location = New System.Drawing.Point(68, 142)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(181, 20)
-        Me.Label17.TabIndex = 3
+        Me.Label17.TabIndex = 5
        Me.Label17.Text = "Abfertigungsnummer:"
        '
        'Label16
@@ -291,7 +361,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label16.Location = New System.Drawing.Point(126, 107)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(123, 20)
-        Me.Label16.TabIndex = 1
+        Me.Label16.TabIndex = 3
        Me.Label16.Text = "Filial-Nummer:"
        '
        'btnClosePanOverlay
@@ -333,13 +403,65 @@ Partial Class frmGesamtsicherheitenNEU
        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
        Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5
        Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right
-        Me.dgvSicherheitsPos.Location = New System.Drawing.Point(692, 0)
+        Me.dgvSicherheitsPos.Location = New System.Drawing.Point(695, 0)
        Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos"
        Me.dgvSicherheitsPos.ReadOnly = True
        Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvSicherheitsPos.Size = New System.Drawing.Size(692, 486)
+        Me.dgvSicherheitsPos.Size = New System.Drawing.Size(689, 486)
        Me.dgvSicherheitsPos.TabIndex = 1
        '
+        'pnlSummeGes
+        '
+        Me.pnlSummeGes.BackColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.pnlSummeGes.Controls.Add(Me.txtSicherheitsbGes)
+        Me.pnlSummeGes.Controls.Add(Me.txtWarenwertGes)
+        Me.pnlSummeGes.Controls.Add(Me.txtAnzalPosGes)
+        Me.pnlSummeGes.Controls.Add(Me.Label27)
+        Me.pnlSummeGes.Controls.Add(Me.Label24)
+        Me.pnlSummeGes.Controls.Add(Me.Label25)
+        Me.pnlSummeGes.Location = New System.Drawing.Point(0, 451)
+        Me.pnlSummeGes.Name = "pnlSummeGes"
+        Me.pnlSummeGes.Size = New System.Drawing.Size(692, 35)
+        Me.pnlSummeGes.TabIndex = 3
+        '
+        'txtAnzalPosGes
+        '
+        Me.txtAnzalPosGes.Location = New System.Drawing.Point(89, 10)
+        Me.txtAnzalPosGes.Name = "txtAnzalPosGes"
+        Me.txtAnzalPosGes.ReadOnly = True
+        Me.txtAnzalPosGes.Size = New System.Drawing.Size(53, 20)
+        Me.txtAnzalPosGes.TabIndex = 1
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label27.Location = New System.Drawing.Point(406, 13)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(154, 13)
+        Me.Label27.TabIndex = 4
+        Me.Label27.Text = "Sicherheitsbetrag Summe:"
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label24.Location = New System.Drawing.Point(9, 13)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(74, 13)
+        Me.Label24.TabIndex = 0
+        Me.Label24.Text = "Anzahl Pos:"
+        '
+        'Label25
+        '
+        Me.Label25.AutoSize = True
+        Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label25.Location = New System.Drawing.Point(156, 13)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(120, 13)
+        Me.Label25.TabIndex = 2
+        Me.Label25.Text = "Warentwert Summe:"
+        '
        'btnAddPos
        '
        Me.btnAddPos.allowBorder = False
@@ -352,7 +474,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnAddPos.Location = New System.Drawing.Point(1348, 225)
        Me.btnAddPos.Name = "btnAddPos"
        Me.btnAddPos.Size = New System.Drawing.Size(24, 24)
-        Me.btnAddPos.TabIndex = 31
+        Me.btnAddPos.TabIndex = 38
        Me.btnAddPos.UseVisualStyleBackColor = False
        '
        'btnAddSicherheit
@@ -367,7 +489,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnAddSicherheit.Location = New System.Drawing.Point(654, 205)
        Me.btnAddSicherheit.Name = "btnAddSicherheit"
        Me.btnAddSicherheit.Size = New System.Drawing.Size(24, 24)
-        Me.btnAddSicherheit.TabIndex = 30
+        Me.btnAddSicherheit.TabIndex = 36
        Me.btnAddSicherheit.UseVisualStyleBackColor = False
        '
        'lblGestellungNr
@@ -379,7 +501,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.lblGestellungNr.Location = New System.Drawing.Point(23, 17)
        Me.lblGestellungNr.Name = "lblGestellungNr"
        Me.lblGestellungNr.Size = New System.Drawing.Size(171, 24)
-        Me.lblGestellungNr.TabIndex = 2
+        Me.lblGestellungNr.TabIndex = 1
        Me.lblGestellungNr.Text = "Gesamtsicherheit"
        '
        'txtPosTime
@@ -389,7 +511,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtPosTime.Margin = New System.Windows.Forms.Padding(0)
        Me.txtPosTime.Name = "txtPosTime"
        Me.txtPosTime.Size = New System.Drawing.Size(55, 24)
-        Me.txtPosTime.TabIndex = 27
+        Me.txtPosTime.TabIndex = 33
        '
        'txtPosDate
        '
@@ -400,7 +522,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtPosDate.Margin = New System.Windows.Forms.Padding(0)
        Me.txtPosDate.Name = "txtPosDate"
        Me.txtPosDate.Size = New System.Drawing.Size(85, 24)
-        Me.txtPosDate.TabIndex = 26
+        Me.txtPosDate.TabIndex = 32
        '
        'txtSicherheitTime
        '
@@ -409,7 +531,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtSicherheitTime.Margin = New System.Windows.Forms.Padding(0)
        Me.txtSicherheitTime.Name = "txtSicherheitTime"
        Me.txtSicherheitTime.Size = New System.Drawing.Size(55, 24)
-        Me.txtSicherheitTime.TabIndex = 22
+        Me.txtSicherheitTime.TabIndex = 28
        '
        'txtSicherheitDate
        '
@@ -420,21 +542,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtSicherheitDate.Margin = New System.Windows.Forms.Padding(0)
        Me.txtSicherheitDate.Name = "txtSicherheitDate"
        Me.txtSicherheitDate.Size = New System.Drawing.Size(85, 24)
-        Me.txtSicherheitDate.TabIndex = 21
-        '
-        'btnSaveOben
-        '
-        Me.btnSaveOben.allowBorder = False
-        Me.btnSaveOben.BackColor = System.Drawing.Color.White
-        Me.btnSaveOben.FlatAppearance.BorderSize = 0
-        Me.btnSaveOben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSaveOben.ForeColor = System.Drawing.Color.Black
-        Me.btnSaveOben.Location = New System.Drawing.Point(12, 163)
-        Me.btnSaveOben.Name = "btnSaveOben"
-        Me.btnSaveOben.Size = New System.Drawing.Size(75, 23)
-        Me.btnSaveOben.TabIndex = 0
-        Me.btnSaveOben.Text = "Speichern"
-        Me.btnSaveOben.UseVisualStyleBackColor = False
+        Me.txtSicherheitDate.TabIndex = 27
        '
        'txtPosSicherheitsbetrag
        '
@@ -444,7 +552,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtPosSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0)
        Me.txtPosSicherheitsbetrag.Name = "txtPosSicherheitsbetrag"
        Me.txtPosSicherheitsbetrag.Size = New System.Drawing.Size(100, 24)
-        Me.txtPosSicherheitsbetrag.TabIndex = 29
+        Me.txtPosSicherheitsbetrag.TabIndex = 35
        '
        'txtPosWarenwert
        '
@@ -453,7 +561,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtPosWarenwert.Margin = New System.Windows.Forms.Padding(0)
        Me.txtPosWarenwert.Name = "txtPosWarenwert"
        Me.txtPosWarenwert.Size = New System.Drawing.Size(100, 24)
-        Me.txtPosWarenwert.TabIndex = 28
+        Me.txtPosWarenwert.TabIndex = 34
        '
        'txtPositionenCRN
        '
@@ -462,7 +570,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtPositionenCRN.Margin = New System.Windows.Forms.Padding(0)
        Me.txtPositionenCRN.Name = "txtPositionenCRN"
        Me.txtPositionenCRN.Size = New System.Drawing.Size(205, 24)
-        Me.txtPositionenCRN.TabIndex = 25
+        Me.txtPositionenCRN.TabIndex = 31
        '
        'txtSicherheitSicherheitsbetrag
        '
@@ -472,7 +580,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtSicherheitSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0)
        Me.txtSicherheitSicherheitsbetrag.Name = "txtSicherheitSicherheitsbetrag"
        Me.txtSicherheitSicherheitsbetrag.Size = New System.Drawing.Size(100, 24)
-        Me.txtSicherheitSicherheitsbetrag.TabIndex = 24
+        Me.txtSicherheitSicherheitsbetrag.TabIndex = 30
        '
        'txtSicherheitWarenwert
        '
@@ -481,7 +589,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtSicherheitWarenwert.Margin = New System.Windows.Forms.Padding(0)
        Me.txtSicherheitWarenwert.Name = "txtSicherheitWarenwert"
        Me.txtSicherheitWarenwert.Size = New System.Drawing.Size(100, 24)
-        Me.txtSicherheitWarenwert.TabIndex = 23
+        Me.txtSicherheitWarenwert.TabIndex = 29
        '
        'txtSicherheitATBNr
        '
@@ -490,7 +598,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtSicherheitATBNr.Margin = New System.Windows.Forms.Padding(0)
        Me.txtSicherheitATBNr.Name = "txtSicherheitATBNr"
        Me.txtSicherheitATBNr.Size = New System.Drawing.Size(205, 24)
-        Me.txtSicherheitATBNr.TabIndex = 19
+        Me.txtSicherheitATBNr.TabIndex = 25
        '
        'btn_resetSearch
        '
@@ -503,7 +611,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btn_resetSearch.Location = New System.Drawing.Point(813, 8)
        Me.btn_resetSearch.Name = "btn_resetSearch"
        Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33)
-        Me.btn_resetSearch.TabIndex = 3
+        Me.btn_resetSearch.TabIndex = 4
        Me.btn_resetSearch.UseVisualStyleBackColor = False
        '
        'lblZollsatz
@@ -515,7 +623,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.lblZollsatz.Location = New System.Drawing.Point(724, 139)
        Me.lblZollsatz.Name = "lblZollsatz"
        Me.lblZollsatz.Size = New System.Drawing.Size(85, 16)
-        Me.lblZollsatz.TabIndex = 4
+        Me.lblZollsatz.TabIndex = 7
        Me.lblZollsatz.Text = "Zollsatz: 12%"
        '
        'lblReferenzwert
@@ -527,7 +635,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.lblReferenzwert.Location = New System.Drawing.Point(724, 123)
        Me.lblReferenzwert.Name = "lblReferenzwert"
        Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16)
-        Me.lblReferenzwert.TabIndex = 1
+        Me.lblReferenzwert.TabIndex = 6
        Me.lblReferenzwert.Text = "Referenzwert: €80.000"
        '
        'lblSaldo
@@ -545,6 +653,7 @@ Partial Class frmGesamtsicherheitenNEU
        'panOben
        '
        Me.panOben.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.panOben.Controls.Add(Me.btnSaveDatetime)
        Me.panOben.Controls.Add(Me.lblId)
        Me.panOben.Controls.Add(Me.txtZollsatzueberschreiben)
        Me.panOben.Controls.Add(Me.cbxZollsatzueberschreiben)
@@ -585,7 +694,6 @@ Partial Class frmGesamtsicherheitenNEU
        Me.panOben.Controls.Add(Me.txtPosDate)
        Me.panOben.Controls.Add(Me.txtSicherheitTime)
        Me.panOben.Controls.Add(Me.txtSicherheitDate)
-        Me.panOben.Controls.Add(Me.btnSaveOben)
        Me.panOben.Controls.Add(Me.txtPosSicherheitsbetrag)
        Me.panOben.Controls.Add(Me.txtPosWarenwert)
        Me.panOben.Controls.Add(Me.txtPositionenCRN)
@@ -602,6 +710,32 @@ Partial Class frmGesamtsicherheitenNEU
        Me.panOben.Size = New System.Drawing.Size(1384, 290)
        Me.panOben.TabIndex = 0
        '
+        'btnSaveDatetime
+        '
+        Me.btnSaveDatetime.allowBorder = False
+        Me.btnSaveDatetime.BackColor = System.Drawing.Color.White
+        Me.btnSaveDatetime.FlatAppearance.BorderSize = 0
+        Me.btnSaveDatetime.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSaveDatetime.ForeColor = System.Drawing.Color.Black
+        Me.btnSaveDatetime.Location = New System.Drawing.Point(12, 165)
+        Me.btnSaveDatetime.Name = "btnSaveDatetime"
+        Me.btnSaveDatetime.Size = New System.Drawing.Size(75, 23)
+        Me.btnSaveDatetime.TabIndex = 11
+        Me.btnSaveDatetime.Text = "speichern"
+        Me.btnSaveDatetime.UseVisualStyleBackColor = False
+        '
+        'lblId
+        '
+        Me.lblId.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.lblId.AutoSize = True
+        Me.lblId.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblId.ForeColor = System.Drawing.Color.Honeydew
+        Me.lblId.Location = New System.Drawing.Point(1229, 9)
+        Me.lblId.Name = "lblId"
+        Me.lblId.Size = New System.Drawing.Size(29, 24)
+        Me.lblId.TabIndex = 0
+        Me.lblId.Text = "ID"
+        '
        'txtZollsatzueberschreiben
        '
        Me.txtZollsatzueberschreiben._DateTimeOnly = False
@@ -624,7 +758,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtZollsatzueberschreiben.MaxLines_Warning_Label = Nothing
        Me.txtZollsatzueberschreiben.Name = "txtZollsatzueberschreiben"
        Me.txtZollsatzueberschreiben.Size = New System.Drawing.Size(30, 20)
-        Me.txtZollsatzueberschreiben.TabIndex = 45
+        Me.txtZollsatzueberschreiben.TabIndex = 10
        '
        'cbxZollsatzueberschreiben
        '
@@ -633,7 +767,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.cbxZollsatzueberschreiben.Location = New System.Drawing.Point(725, 158)
        Me.cbxZollsatzueberschreiben.Name = "cbxZollsatzueberschreiben"
        Me.cbxZollsatzueberschreiben.Size = New System.Drawing.Size(132, 17)
-        Me.cbxZollsatzueberschreiben.TabIndex = 37
+        Me.cbxZollsatzueberschreiben.TabIndex = 9
        Me.cbxZollsatzueberschreiben.Text = "Zollsatz überschreiben"
        Me.cbxZollsatzueberschreiben.UseVisualStyleBackColor = True
        '
@@ -646,7 +780,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnNext.Location = New System.Drawing.Point(1309, 111)
        Me.btnNext.Name = "btnNext"
        Me.btnNext.Size = New System.Drawing.Size(75, 47)
-        Me.btnNext.TabIndex = 37
+        Me.btnNext.TabIndex = 8
        Me.btnNext.Text = ">>"
        Me.btnNext.UseVisualStyleBackColor = False
        '
@@ -659,7 +793,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.lbloffenerSaldo.Location = New System.Drawing.Point(238, 108)
        Me.lbloffenerSaldo.Name = "lbloffenerSaldo"
        Me.lbloffenerSaldo.Size = New System.Drawing.Size(146, 24)
-        Me.lbloffenerSaldo.TabIndex = 44
+        Me.lbloffenerSaldo.TabIndex = 4
        Me.lbloffenerSaldo.Text = "offener Saldo: "
        '
        'btnPrev
@@ -671,7 +805,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnPrev.Location = New System.Drawing.Point(12, 108)
        Me.btnPrev.Name = "btnPrev"
        Me.btnPrev.Size = New System.Drawing.Size(75, 47)
-        Me.btnPrev.TabIndex = 36
+        Me.btnPrev.TabIndex = 3
        Me.btnPrev.Text = "<<"
        Me.btnPrev.UseVisualStyleBackColor = False
        '
@@ -693,7 +827,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtPosNr.Margin = New System.Windows.Forms.Padding(0)
        Me.txtPosNr.Name = "txtPosNr"
        Me.txtPosNr.Size = New System.Drawing.Size(37, 24)
-        Me.txtPosNr.TabIndex = 43
+        Me.txtPosNr.TabIndex = 47
        '
        'Panel1
        '
@@ -709,7 +843,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Panel1.Location = New System.Drawing.Point(0, 44)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(1384, 61)
-        Me.Panel1.TabIndex = 10
+        Me.Panel1.TabIndex = 2
        '
        'cbx_offene
        '
@@ -717,7 +851,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.cbx_offene.Location = New System.Drawing.Point(12, 19)
        Me.cbx_offene.Name = "cbx_offene"
        Me.cbx_offene.Size = New System.Drawing.Size(120, 17)
-        Me.cbx_offene.TabIndex = 36
+        Me.cbx_offene.TabIndex = 3
        Me.cbx_offene.Text = "nur offene anzeigen"
        Me.cbx_offene.UseVisualStyleBackColor = True
        '
@@ -729,7 +863,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnSuche.Location = New System.Drawing.Point(893, 3)
        Me.btnSuche.Name = "btnSuche"
        Me.btnSuche.Size = New System.Drawing.Size(162, 52)
-        Me.btnSuche.TabIndex = 35
+        Me.btnSuche.TabIndex = 7
        Me.btnSuche.Text = "Suche starten"
        Me.btnSuche.UseVisualStyleBackColor = True
        '
@@ -742,7 +876,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label23.Location = New System.Drawing.Point(207, -13)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(24, 15)
-        Me.Label23.TabIndex = 13
+        Me.Label23.TabIndex = 0
        Me.Label23.Text = "Bis"
        '
        'cbx_Suche_Warenort
@@ -757,7 +891,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.cbx_Suche_Warenort.MaxLength = 4
        Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort"
        Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24)
-        Me.cbx_Suche_Warenort.TabIndex = 9
+        Me.cbx_Suche_Warenort.TabIndex = 6
        '
        'Label19
        '
@@ -766,7 +900,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label19.Location = New System.Drawing.Point(657, 3)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(63, 13)
-        Me.Label19.TabIndex = 8
+        Me.Label19.TabIndex = 2
        Me.Label19.Text = "Warenort:"
        '
        'txt_Suche
@@ -776,7 +910,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txt_Suche.Margin = New System.Windows.Forms.Padding(0)
        Me.txt_Suche.Name = "txt_Suche"
        Me.txt_Suche.Size = New System.Drawing.Size(243, 24)
-        Me.txt_Suche.TabIndex = 4
+        Me.txt_Suche.TabIndex = 5
        '
        'Label21
        '
@@ -785,7 +919,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label21.Location = New System.Drawing.Point(376, 3)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(47, 13)
-        Me.Label21.TabIndex = 3
+        Me.Label21.TabIndex = 1
        Me.Label21.Text = "Suche:"
        '
        'btnDeletePos
@@ -800,7 +934,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnDeletePos.Location = New System.Drawing.Point(1348, 195)
        Me.btnDeletePos.Name = "btnDeletePos"
        Me.btnDeletePos.Size = New System.Drawing.Size(24, 24)
-        Me.btnDeletePos.TabIndex = 7
+        Me.btnDeletePos.TabIndex = 24
        Me.btnDeletePos.UseVisualStyleBackColor = False
        Me.btnDeletePos.Visible = False
        '
@@ -816,7 +950,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnDeleteSicherheit.Location = New System.Drawing.Point(654, 175)
        Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit"
        Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24)
-        Me.btnDeleteSicherheit.TabIndex = 6
+        Me.btnDeleteSicherheit.TabIndex = 12
        Me.btnDeleteSicherheit.UseVisualStyleBackColor = False
        Me.btnDeleteSicherheit.Visible = False
        '
@@ -832,7 +966,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnUpdatePos.Location = New System.Drawing.Point(1348, 257)
        Me.btnUpdatePos.Name = "btnUpdatePos"
        Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24)
-        Me.btnUpdatePos.TabIndex = 37
+        Me.btnUpdatePos.TabIndex = 49
        Me.btnUpdatePos.UseVisualStyleBackColor = False
        Me.btnUpdatePos.Visible = False
        '
@@ -848,7 +982,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.btnUpdateSicherheit.Location = New System.Drawing.Point(654, 237)
        Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit"
        Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24)
-        Me.btnUpdateSicherheit.TabIndex = 35
+        Me.btnUpdateSicherheit.TabIndex = 41
        Me.btnUpdateSicherheit.UseVisualStyleBackColor = False
        Me.btnUpdateSicherheit.Visible = False
        '
@@ -859,7 +993,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label15.Location = New System.Drawing.Point(242, 191)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(25, 13)
-        Me.Label15.TabIndex = 9
+        Me.Label15.TabIndex = 14
        Me.Label15.Text = "Pos"
        '
        'txtAnzahlPos
@@ -869,7 +1003,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtAnzahlPos.Margin = New System.Windows.Forms.Padding(0)
        Me.txtAnzahlPos.Name = "txtAnzahlPos"
        Me.txtAnzahlPos.Size = New System.Drawing.Size(35, 24)
-        Me.txtAnzahlPos.TabIndex = 20
+        Me.txtAnzahlPos.TabIndex = 26
        '
        'Label14
        '
@@ -879,7 +1013,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label14.Location = New System.Drawing.Point(194, 237)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(59, 13)
-        Me.Label14.TabIndex = 33
+        Me.Label14.TabIndex = 39
        Me.Label14.Text = "19% EUST"
        '
        'txtSicherheitEust
@@ -890,7 +1024,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtSicherheitEust.Margin = New System.Windows.Forms.Padding(0)
        Me.txtSicherheitEust.Name = "txtSicherheitEust"
        Me.txtSicherheitEust.Size = New System.Drawing.Size(100, 24)
-        Me.txtSicherheitEust.TabIndex = 39
+        Me.txtSicherheitEust.TabIndex = 45
        '
        'Label13
        '
@@ -900,7 +1034,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label13.Location = New System.Drawing.Point(76, 234)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(73, 13)
-        Me.Label13.TabIndex = 32
+        Me.Label13.TabIndex = 37
        Me.Label13.Text = "A.TR Ja/Nein"
        '
        'cboSicherheitATR
@@ -912,7 +1046,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.cboSicherheitATR.Location = New System.Drawing.Point(74, 250)
        Me.cboSicherheitATR.Name = "cboSicherheitATR"
        Me.cboSicherheitATR.Size = New System.Drawing.Size(120, 26)
-        Me.cboSicherheitATR.TabIndex = 38
+        Me.cboSicherheitATR.TabIndex = 44
        '
        'Label7
        '
@@ -921,7 +1055,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label7.Location = New System.Drawing.Point(1014, 237)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(41, 13)
-        Me.Label7.TabIndex = 36
+        Me.Label7.TabIndex = 43
        Me.Label7.Text = "Freitext"
        '
        'Label8
@@ -931,7 +1065,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label8.Location = New System.Drawing.Point(1075, 191)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(59, 13)
-        Me.Label8.TabIndex = 17
+        Me.Label8.TabIndex = 22
        Me.Label8.Text = "Warenwert"
        '
        'Label9
@@ -941,7 +1075,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label9.Location = New System.Drawing.Point(1169, 191)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(89, 13)
-        Me.Label9.TabIndex = 18
+        Me.Label9.TabIndex = 23
        Me.Label9.Text = "Sicherheitsbetrag"
        '
        'Label10
@@ -951,7 +1085,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label10.Location = New System.Drawing.Point(1003, 191)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(40, 13)
-        Me.Label10.TabIndex = 16
+        Me.Label10.TabIndex = 21
        Me.Label10.Text = "Uhrzeit"
        '
        'Label11
@@ -961,7 +1095,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label11.Location = New System.Drawing.Point(918, 191)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(38, 13)
-        Me.Label11.TabIndex = 15
+        Me.Label11.TabIndex = 20
        Me.Label11.Text = "Datum"
        '
        'Label12
@@ -971,7 +1105,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label12.Location = New System.Drawing.Point(765, 191)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(64, 13)
-        Me.Label12.TabIndex = 14
+        Me.Label12.TabIndex = 19
        Me.Label12.Text = "ATC / MRN"
        '
        'Label6
@@ -981,7 +1115,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label6.Location = New System.Drawing.Point(364, 237)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(41, 13)
-        Me.Label6.TabIndex = 34
+        Me.Label6.TabIndex = 40
        Me.Label6.Text = "Freitext"
        '
        'Label5
@@ -991,7 +1125,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label5.Location = New System.Drawing.Point(426, 191)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(59, 13)
-        Me.Label5.TabIndex = 12
+        Me.Label5.TabIndex = 17
        Me.Label5.Text = "Warenwert"
        '
        'Label4
@@ -1001,7 +1135,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label4.Location = New System.Drawing.Point(520, 191)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(89, 13)
-        Me.Label4.TabIndex = 13
+        Me.Label4.TabIndex = 18
        Me.Label4.Text = "Sicherheitsbetrag"
        '
        'Label3
@@ -1011,7 +1145,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label3.Location = New System.Drawing.Point(365, 191)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 13)
-        Me.Label3.TabIndex = 11
+        Me.Label3.TabIndex = 16
        Me.Label3.Text = "Uhrzeit"
        '
        'Label2
@@ -1021,7 +1155,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label2.Location = New System.Drawing.Point(274, 191)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(38, 13)
-        Me.Label2.TabIndex = 10
+        Me.Label2.TabIndex = 15
        Me.Label2.Text = "Datum"
        '
        'Label1
@@ -1031,7 +1165,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.Label1.Location = New System.Drawing.Point(76, 191)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(70, 13)
-        Me.Label1.TabIndex = 8
+        Me.Label1.TabIndex = 13
        Me.Label1.Text = "ATB Nummer"
        '
        'txtPosFreitext
@@ -1041,7 +1175,7 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtPosFreitext.Margin = New System.Windows.Forms.Padding(0)
        Me.txtPosFreitext.Name = "txtPosFreitext"
        Me.txtPosFreitext.Size = New System.Drawing.Size(255, 24)
-        Me.txtPosFreitext.TabIndex = 41
+        Me.txtPosFreitext.TabIndex = 48
        '
        'txtSicherheitFreitext
        '
@@ -1050,19 +1184,103 @@ Partial Class frmGesamtsicherheitenNEU
        Me.txtSicherheitFreitext.Margin = New System.Windows.Forms.Padding(0)
        Me.txtSicherheitFreitext.Name = "txtSicherheitFreitext"
        Me.txtSicherheitFreitext.Size = New System.Drawing.Size(256, 24)
-        Me.txtSicherheitFreitext.TabIndex = 40
+        Me.txtSicherheitFreitext.TabIndex = 46
        '
-        'lblId
+        'txtWarenwertGes
        '
-        Me.lblId.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.lblId.AutoSize = True
-        Me.lblId.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblId.ForeColor = System.Drawing.Color.Honeydew
-        Me.lblId.Location = New System.Drawing.Point(1229, 9)
-        Me.lblId.Name = "lblId"
-        Me.lblId.Size = New System.Drawing.Size(29, 24)
-        Me.lblId.TabIndex = 46
-        Me.lblId.Text = "ID"
+        Me.txtWarenwertGes._DateTimeOnly = False
+        Me.txtWarenwertGes._numbersOnly = False
+        Me.txtWarenwertGes._numbersOnlyKommastellen = ""
+        Me.txtWarenwertGes._numbersOnlyTrennzeichen = False
+        Me.txtWarenwertGes._Prozent = False
+        Me.txtWarenwertGes._ShortDateNew = False
+        Me.txtWarenwertGes._ShortDateOnly = False
+        Me.txtWarenwertGes._TimeOnly = False
+        Me.txtWarenwertGes._TimeOnly_Seconds = False
+        Me.txtWarenwertGes._value = ""
+        Me.txtWarenwertGes._Waehrung = True
+        Me.txtWarenwertGes._WaehrungZeichen = True
+        Me.txtWarenwertGes.ForeColor = System.Drawing.Color.Black
+        Me.txtWarenwertGes.Location = New System.Drawing.Point(277, 10)
+        Me.txtWarenwertGes.MaxLineLength = -1
+        Me.txtWarenwertGes.MaxLines_Warning = ""
+        Me.txtWarenwertGes.MaxLines_Warning_Label = Nothing
+        Me.txtWarenwertGes.Name = "txtWarenwertGes"
+        Me.txtWarenwertGes.ReadOnly = True
+        Me.txtWarenwertGes.Size = New System.Drawing.Size(100, 20)
+        Me.txtWarenwertGes.TabIndex = 3
+        '
+        'txtSicherheitsbGes
+        '
+        Me.txtSicherheitsbGes._DateTimeOnly = False
+        Me.txtSicherheitsbGes._numbersOnly = False
+        Me.txtSicherheitsbGes._numbersOnlyKommastellen = ""
+        Me.txtSicherheitsbGes._numbersOnlyTrennzeichen = False
+        Me.txtSicherheitsbGes._Prozent = False
+        Me.txtSicherheitsbGes._ShortDateNew = False
+        Me.txtSicherheitsbGes._ShortDateOnly = False
+        Me.txtSicherheitsbGes._TimeOnly = False
+        Me.txtSicherheitsbGes._TimeOnly_Seconds = False
+        Me.txtSicherheitsbGes._value = ""
+        Me.txtSicherheitsbGes._Waehrung = True
+        Me.txtSicherheitsbGes._WaehrungZeichen = True
+        Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black
+        Me.txtSicherheitsbGes.Location = New System.Drawing.Point(565, 10)
+        Me.txtSicherheitsbGes.MaxLineLength = -1
+        Me.txtSicherheitsbGes.MaxLines_Warning = ""
+        Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing
+        Me.txtSicherheitsbGes.Name = "txtSicherheitsbGes"
+        Me.txtSicherheitsbGes.ReadOnly = True
+        Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20)
+        Me.txtSicherheitsbGes.TabIndex = 5
+        '
+        'txtPosWarenwertGes
+        '
+        Me.txtPosWarenwertGes._DateTimeOnly = False
+        Me.txtPosWarenwertGes._numbersOnly = False
+        Me.txtPosWarenwertGes._numbersOnlyKommastellen = ""
+        Me.txtPosWarenwertGes._numbersOnlyTrennzeichen = False
+        Me.txtPosWarenwertGes._Prozent = False
+        Me.txtPosWarenwertGes._ShortDateNew = False
+        Me.txtPosWarenwertGes._ShortDateOnly = False
+        Me.txtPosWarenwertGes._TimeOnly = False
+        Me.txtPosWarenwertGes._TimeOnly_Seconds = False
+        Me.txtPosWarenwertGes._value = ""
+        Me.txtPosWarenwertGes._Waehrung = True
+        Me.txtPosWarenwertGes._WaehrungZeichen = True
+        Me.txtPosWarenwertGes.ForeColor = System.Drawing.Color.Black
+        Me.txtPosWarenwertGes.Location = New System.Drawing.Point(306, 10)
+        Me.txtPosWarenwertGes.MaxLineLength = -1
+        Me.txtPosWarenwertGes.MaxLines_Warning = ""
+        Me.txtPosWarenwertGes.MaxLines_Warning_Label = Nothing
+        Me.txtPosWarenwertGes.Name = "txtPosWarenwertGes"
+        Me.txtPosWarenwertGes.ReadOnly = True
+        Me.txtPosWarenwertGes.Size = New System.Drawing.Size(100, 20)
+        Me.txtPosWarenwertGes.TabIndex = 3
+        '
+        'txtPosSicherheitsbGes
+        '
+        Me.txtPosSicherheitsbGes._DateTimeOnly = False
+        Me.txtPosSicherheitsbGes._numbersOnly = False
+        Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = ""
+        Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False
+        Me.txtPosSicherheitsbGes._Prozent = False
+        Me.txtPosSicherheitsbGes._ShortDateNew = False
+        Me.txtPosSicherheitsbGes._ShortDateOnly = False
+        Me.txtPosSicherheitsbGes._TimeOnly = False
+        Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False
+        Me.txtPosSicherheitsbGes._value = ""
+        Me.txtPosSicherheitsbGes._Waehrung = True
+        Me.txtPosSicherheitsbGes._WaehrungZeichen = True
+        Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black
+        Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(589, 10)
+        Me.txtPosSicherheitsbGes.MaxLineLength = -1
+        Me.txtPosSicherheitsbGes.MaxLines_Warning = ""
+        Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing
+        Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes"
+        Me.txtPosSicherheitsbGes.ReadOnly = True
+        Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20)
+        Me.txtPosSicherheitsbGes.TabIndex = 5
        '
        'frmGesamtsicherheitenNEU
        '
@@ -1080,9 +1298,13 @@ Partial Class frmGesamtsicherheitenNEU
        CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
+        Me.pnlSummeGesPos.ResumeLayout(False)
+        Me.pnlSummeGesPos.PerformLayout()
        Me.panOverlay.ResumeLayout(False)
        Me.panOverlay.PerformLayout()
        CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnlSummeGes.ResumeLayout(False)
+        Me.pnlSummeGes.PerformLayout()
        Me.panOben.ResumeLayout(False)
        Me.panOben.PerformLayout()
        Me.Panel1.ResumeLayout(False)
@@ -1101,7 +1323,6 @@ Partial Class frmGesamtsicherheitenNEU
    Friend WithEvents txtPosDate As TextBox
    Friend WithEvents txtSicherheitTime As TextBox
    Friend WithEvents txtSicherheitDate As TextBox
-    Friend WithEvents btnSaveOben As VERAG_PROG_ALLGEMEIN.FlatButton
    Friend WithEvents txtPosSicherheitsbetrag As TextBox
    Friend WithEvents txtPosWarenwert As TextBox
    Friend WithEvents txtPositionenCRN As TextBox
@@ -1166,4 +1387,19 @@ Partial Class frmGesamtsicherheitenNEU
    Friend WithEvents txtZollsatzueberschreiben As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents cbxZollsatzueberschreiben As CheckBox
    Friend WithEvents lblId As Label
+    Friend WithEvents btnSaveDatetime As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents pnlSummeGes As Panel
+    Friend WithEvents Label25 As Label
+    Friend WithEvents Label22 As Label
+    Friend WithEvents Label29 As Label
+    Friend WithEvents Label28 As Label
+    Friend WithEvents Label27 As Label
+    Friend WithEvents Label24 As Label
+    Friend WithEvents txtPosAnzalPosGes As TextBox
+    Friend WithEvents txtAnzalPosGes As TextBox
+    Private WithEvents pnlSummeGesPos As Panel
+    Friend WithEvents txtWarenwertGes As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSicherheitsbGes As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtPosWarenwertGes As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtPosSicherheitsbGes As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -1,4 +1,5 @@
 Imports System.Reflection
+Imports System.Web.UI.WebControls
 Imports System.Web.UI.WebControls.Expressions
 Imports DocumentFormat.OpenXml.Bibliography
 Imports DocumentFormat.OpenXml.Presentation
@@ -99,7 +100,7 @@ Public Class frmGesamtsicherheitenNEU

        'Dim addtosqlstring As String = ""

-        Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & "order by [gs_gsId]"
+        Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & "order by [gs_gsId]"

        dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
        dgvGesamtsicherheit.LOAD()
@@ -108,8 +109,8 @@ Public Class frmGesamtsicherheitenNEU
        If dgvGesamtsicherheit.Columns.Count > 0 Then
            With dgvGesamtsicherheit
                .RowHeadersWidth = 10
-                .Columns("gs_gsId").Visible = True
-                .Columns("gs_gsnr").Visible = True
+                .Columns("gs_gsId").Visible = False
+                .Columns("gs_gsnr").Visible = False
                .Columns("gs_warenwert").DefaultCellStyle.Format = "c"
                .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                .Columns("gs_saldo").DefaultCellStyle.Format = "c"
@@ -118,24 +119,33 @@ Public Class frmGesamtsicherheitenNEU
                    Case True
                        .Columns("gs_ATBNr").HeaderText = "ATB"
                        .Columns("gs_atr").HeaderText = "MRN"
+                        .Columns("gs_atr").Visible = True
                        .Columns("gs_atr").Width = 33
                        .Columns("gs_ust").Width = 69
+                        .Columns("gs_ust").HeaderText = "Ust"
                    Case Else
                        .Columns("gs_ATBNr").HeaderText = "ATB"
                End Select
                .Columns("gs_ATBNr").Width = 146

-                .Columns("gs_posNr").Width = 20
+                .Columns("gs_posNr").Width = 35
+                .Columns("gs_posNr").HeaderText = "Pos#"
                .Columns("gs_datum").Width = 95
+                .Columns("gs_datum").HeaderText = "Datum"
                .Columns("gs_warenwert").Width = 100
+                .Columns("gs_warenwert").HeaderText = "Warenwert"
                .Columns("gs_saldo").Width = 100
+                .Columns("gs_saldo").HeaderText = "Saldo"

-                .Columns("gs_sicherheitsbetrag").Width = 100
+                .Columns("gs_sicherheitsbetrag").Width = 85
+                .Columns("gs_sicherheitsbetrag").HeaderText = "S-Betrag"
                .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            End With

        End If

+        calcGesamtsummen()
+

    End Sub

@@ -178,7 +188,10 @@ Public Class frmGesamtsicherheitenNEU
        If dgvSicherheitsPos.Columns.Count > 0 Then
            With dgvSicherheitsPos
                .RowHeadersWidth = 10
-                .Columns("gsp_gsId").Visible = True
+                .Columns("gsp_gspPosId").Width = 35
+                .Columns("gsp_gspPosId").HeaderText = "Pos#"
+                .Columns("gsp_gsId").Visible = False
+                .Columns("gsp_gsnr").Visible = False
                .Columns("gsp_warenwert").DefaultCellStyle.Format = "c"
                .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                '.Columns("gs_saldo").DefaultCellStyle.Format = "c"
@@ -187,13 +200,17 @@ Public Class frmGesamtsicherheitenNEU
                    Case True
                        .Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
                    Case Else
-                        .Columns("gsp_ATCNr").HeaderText = "CRN"
+                        .Columns("gsp_ATCNr").HeaderText = "CRN / MRN"
                End Select
                .Columns("gsp_ATCNr").Width = 120
-                .Columns("gsp_erstellungsdatum").Width = 140
+                .Columns("gsp_erstellungsdatum").Width = 100
+                .Columns("gsp_erstellungsdatum").HeaderText = "Datum"
                .Columns("gsp_warenwert").Width = 100
-                .Columns("gsp_sicherheitsbetrag").Width = 100
-                .Columns("gsp_freitext").Width = 220
+                .Columns("gsp_warenwert").HeaderText = "Warenwert"
+                .Columns("gsp_sicherheitsbetrag").Width = 85
+                .Columns("gsp_sicherheitsbetrag").HeaderText = "S-Betrag"
+                .Columns("gsp_freitext").Width = 110
+                .Columns("gsp_freitext").HeaderText = "Freitext"
            End With

        End If
@@ -288,18 +305,6 @@ Public Class frmGesamtsicherheitenNEU
    End Sub


-    Private Sub btnSaveOben_Click(sender As Object, e As EventArgs) Handles btnSaveOben.Click
-        Try
-            Dim a As Date = Date.ParseExact(txtSicherheitDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
-            Dim b As Date = Date.ParseExact(txtSicherheitTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
-
-            Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute)
-            MsgBox(ab.ToString)
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
-
    Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtSicherheitDate.GotFocus, txtPosDate.GotFocus, txtSicherheitTime.GotFocus, txtPosTime.GotFocus
        Select Case sender.name
            Case "txtSicherheitDate"
@@ -865,8 +870,8 @@ Public Class frmGesamtsicherheitenNEU

        lbloffenerSaldo.Text = "offener S-Saldo: "
        Dim offernerSB As Double = Me.calcOffenerSicherheitsbetrag()
-        If offernerSB > 0 Then
-            lbloffenerSaldo.Text &= Me.calcOffenerSicherheitsbetrag().ToString
+        If offernerSB <> 0 Then
+            lbloffenerSaldo.Text &= Math.Round(calcOffenerSicherheitsbetrag(), 2).ToString
            isOpen = True
        Else
            lbloffenerSaldo.Text &= "0"
@@ -874,9 +879,6 @@ Public Class frmGesamtsicherheitenNEU
        End If
    End Sub

-    Private Sub rearangePosNr()
-
-    End Sub

    Private Function setPrevAndNextGesIDAllOpen()

@@ -894,13 +896,20 @@ Public Class frmGesamtsicherheitenNEU
                    prevGessicherheitID = -1 ' no prev Sicherheit
                Else
                    prevGessicherheitID = onlyOpenDT.Rows(i - 1).Item("gs_gsnr")
+
                End If
+
+                'MsgBox("prevOPENGessicherheitID " & prevGessicherheitID)
+
                If i = onlyOpenDT.Rows.Count - 1 Then
                    nextGessicherheitID = -1 ' no next Sicherheit
                Else
                    nextGessicherheitID = onlyOpenDT.Rows(i + 1).Item("gs_gsnr")
+
                End If

+                'MsgBox("nextOPENGessicherheitID " & nextGessicherheitID)
+
            End If

        Next
@@ -917,6 +926,7 @@ Public Class frmGesamtsicherheitenNEU
                        For j As Integer = i To 0
                            If dt.Rows(j).Item("gs_isOpen") Then
                                prevGessicherheitID = dt.Rows(j).Item("gs_gsnr")
+                                'MsgBox("prevGessicherheitID " & prevGessicherheitID)
                                Exit For
                            End If
                        Next
@@ -929,6 +939,7 @@ Public Class frmGesamtsicherheitenNEU
                        For k As Integer = i To dt.Rows.Count - 1
                            If dt.Rows(k).Item("gs_isOpen") Then
                                nextGessicherheitID = dt.Rows(k).Item("gs_gsnr")
+                                'MsgBox("nextGessicherheitID " & nextGessicherheitID)
                                Exit For
                            End If
                        Next
@@ -948,11 +959,16 @@ Public Class frmGesamtsicherheitenNEU
        For i As Integer = 0 To dt.Rows.Count - 1
            If dt.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then

-                prevGessicherheitID = i - 1
-                nextGessicherheitID = i + 1
+                prevGessicherheitID = dt.Rows(i).Item("gs_gsnr") - 1
+
+                nextGessicherheitID = dt.Rows(i).Item("gs_gsnr") + 1
+

                If i = 0 Then prevGessicherheitID = -1 ' no prev Sicherheit
                If i = dt.Rows.Count - 1 Then nextGessicherheitID = -1 ' ' no next Sicherheit
+
+                'MsgBox("prevGessicherheitID " & prevGessicherheitID)
+                'MsgBox("nextGessicherheitID " & nextGessicherheitID)
                Return i
            End If

@@ -999,14 +1015,14 @@ Public Class frmGesamtsicherheitenNEU

    Private Sub initPrevNextButtons()
        If nextGessicherheitID = -1 Then
-            btnNext.Enabled = False
+            btnNext.Enabled = True
        Else
            btnNext.Enabled = True
        End If


        If prevGessicherheitID = -1 Then
-            btnPrev.Enabled = False
+            btnPrev.Enabled = True
        Else
            btnPrev.Enabled = True
        End If
@@ -1026,8 +1042,57 @@ Public Class frmGesamtsicherheitenNEU

    Private Sub txtZollsatzueberschreiben_TextChanged(sender As Object, e As EventArgs) Handles txtZollsatzueberschreiben.TextChanged
        lblZollsatz.Text = "Zollsatz: " & txtZollsatzueberschreiben.Text & "%"
-
+        Zollsatz = CDbl(setNullToZero(txtZollsatzueberschreiben.Text))
        ZollsatzMulti = CDbl(setNullToZero(txtZollsatzueberschreiben.Text)) / 100
    End Sub
+
+    Private Sub btnSaveDatetime_Click(sender As Object, e As EventArgs) Handles btnSaveDatetime.Click
+        Try
+            Dim a As Date = Date.ParseExact(txtSicherheitDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+            Dim b As Date = Date.ParseExact(txtSicherheitTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+
+            Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute)
+            MsgBox(ab.ToString)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub calcGesamtsummen()
+
+        txtAnzalPosGes.Text = DirectCast(dgvGesamtsicherheit.Rows.Count().ToString(), String)
+
+        txtPosAnzalPosGes.Text = DirectCast(dgvSicherheitsPos.Rows.Count().ToString(), String)
+
+        Dim countSicherheitsbetrag As Double = 0
+        Dim countWarenwert As Double = 0
+
+        For i As Integer = 0 To dgvGesamtsicherheit.Rows.Count - 1
+            countSicherheitsbetrag += CDbl(dgvGesamtsicherheit.Rows(i).Cells("gs_sicherheitsbetrag").Value)
+            countWarenwert += CDbl(dgvGesamtsicherheit.Rows(i).Cells("gs_warenwert").Value)
+
+
+        Next
+
+        txtSicherheitsbGes._value = countSicherheitsbetrag.ToString
+        txtWarenwertGes._value = countWarenwert.ToString
+
+        Dim countSicherheitsbetragPos As Double = 0
+        Dim countWarenwertPos As Double = 0
+
+        For i As Integer = 0 To dgvSicherheitsPos.Rows.Count - 1
+
+            countSicherheitsbetragPos += CDbl(dgvSicherheitsPos.Rows(i).Cells("gsp_sicherheitsbetrag").Value)
+            countWarenwertPos += CDbl(dgvSicherheitsPos.Rows(i).Cells("gsp_warenwert").Value)
+
+        Next
+
+        txtPosSicherheitsbGes._value = countSicherheitsbetragPos.ToString
+        txtPosWarenwertGes._value = countWarenwertPos.ToString
+
+    End Sub
+
+
+
+
 End Class

--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -362,7 +362,6 @@ Partial Class frmHauptfenster
        Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.conMenuAviso.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.Top.SuspendLayout()
@@ -802,7 +801,7 @@ Partial Class frmHauptfenster
        '
        'FunktionenToolStripMenuItem
        '
-        Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem})
+        Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem})
        Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
        Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
        Me.FunktionenToolStripMenuItem.Text = "Funktionen"
@@ -3458,12 +3457,6 @@ Partial Class frmHauptfenster
        Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
        Me.ToolStripMenuItem21.Text = "GELB"
        '
-        'DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem
-        '
-        Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem"
-        Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
-        Me.DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH - NEU"
-        '
        'frmHauptfenster
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3865,5 +3858,4 @@ Partial Class frmHauptfenster
    Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
    Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -3992,25 +3992,25 @@ Public Class frmHauptfenster
    End Sub

    Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click
-        Dim frm As New frmGesamtsicherheitenMenu
+        Dim frm As New frmGesamtsicherheitenMenuNEU
        frm.Standort = "VERAG AG"
        frm.Show()
    End Sub

    Private Sub DEGesamtsicherheitVeragGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHToolStripMenuItem.Click
-        Dim frm As New frmGesamtsicherheitenMenu
+        Dim frm As New frmGesamtsicherheitenMenuNEU
        frm.Standort = "Verag GmbH"
        frm.Show()
    End Sub

    Private Sub ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Click
-        Dim frm As New frmGesamtsicherheitenMenu
+        Dim frm As New frmGesamtsicherheitenMenuNEU
        frm.Standort = "IMEX"
        frm.Show()
    End Sub

    Private Sub ATGesamtsicherheitVeragCSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragCSToolStripMenuItem.Click
-        Dim frm As New frmGesamtsicherheitenMenu
+        Dim frm As New frmGesamtsicherheitenMenuNEU
        frm.Standort = "Verag CS"
        frm.Show()
    End Sub
@@ -4175,11 +4175,6 @@ Public Class frmHauptfenster
        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 GmbH"
-        frm.Show()
-    End Sub
 End Class

 Public Class AvisoStatusFunctions