Feature_Gesamtsicherheiten

Aviso/My 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: AssemblyVersion("3.8.1.7")>
-<Assembly: AssemblyFileVersion("3.8.1.6")>
+<Assembly: AssemblyFileVersion("3.8.1.7")>

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(-3, 307)
-        Me.dgvListe.Location = New System.Drawing.Point(0, 313)
         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)

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -105,6 +105,7 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
 
+
         For Each row As DataGridViewRow In dgvListe.Rows
             If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
 
@@ -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

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
+        Me.txtSicherheitDate.TabIndex = 27
-        '
-        '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
         '
         '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.txtWarenwertGes._DateTimeOnly = False
-        Me.lblId.AutoSize = True
+        Me.txtWarenwertGes._numbersOnly = False
-        Me.lblId.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtWarenwertGes._numbersOnlyKommastellen = ""
-        Me.lblId.ForeColor = System.Drawing.Color.Honeydew
+        Me.txtWarenwertGes._numbersOnlyTrennzeichen = False
-        Me.lblId.Location = New System.Drawing.Point(1229, 9)
+        Me.txtWarenwertGes._Prozent = False
-        Me.lblId.Name = "lblId"
+        Me.txtWarenwertGes._ShortDateNew = False
-        Me.lblId.Size = New System.Drawing.Size(29, 24)
+        Me.txtWarenwertGes._ShortDateOnly = False
-        Me.lblId.TabIndex = 46
+        Me.txtWarenwertGes._TimeOnly = False
-        Me.lblId.Text = "ID"
+        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

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_gsId").Visible = False
-                .Columns("gs_gsnr").Visible = True
+                .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_warenwert").HeaderText = "Warenwert"
-                .Columns("gsp_freitext").Width = 220
+                .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
+        If offernerSB <> 0 Then
-            lbloffenerSaldo.Text &= Me.calcOffenerSicherheitsbetrag().ToString
+            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
+                prevGessicherheitID = dt.Rows(i).Item("gs_gsnr") - 1
-                nextGessicherheitID = i + 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
 

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

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