gesamtsicherheiten: AT-Nrn ändern

Aviso/frmGesamtsicherheitenNEU.Designer.vb

@@ -29,9 +29,14 @@ Partial Class frmGesamtsicherheitenNEU
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU))
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.pnlChangeATBNr = New System.Windows.Forms.Panel()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.txtATBNraendern = New System.Windows.Forms.TextBox()
+        Me.Label32 = New System.Windows.Forms.Label()
+        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.panOverlay = New System.Windows.Forms.Panel()
         Me.txtlkwIdSearch = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.Label23 = New System.Windows.Forms.Label()
@@ -47,6 +52,8 @@ Partial Class frmGesamtsicherheitenNEU
         Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ATCMRNNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlSummeGes = New System.Windows.Forms.Panel()
         Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -118,30 +125,35 @@ Partial Class frmGesamtsicherheitenNEU
         Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox()
         Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.ContextMenuStrip1.SuspendLayout()
+        Me.lblWarningATB = New System.Windows.Forms.Label()
+        Me.ContextMenuStripGesSicherh.SuspendLayout()
         Me.Panel2.SuspendLayout()
+        Me.pnlChangeATBNr.SuspendLayout()
         Me.panOverlay.SuspendLayout()
         CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStripPosSicherheiten.SuspendLayout()
         Me.pnlSummeGes.SuspendLayout()
         Me.panOben.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
-        'ContextMenuStrip1
+        'ContextMenuStripGesSicherh
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClosedErzeugenToolStripMenuItem})
+        Me.ContextMenuStripGesSicherh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATBNraendernToolStripMenuItem})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStripGesSicherh.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 26)
+        Me.ContextMenuStripGesSicherh.Size = New System.Drawing.Size(153, 26)
         '
-        'ClosedErzeugenToolStripMenuItem
+        'ATBNraendernToolStripMenuItem
         '
-        Me.ClosedErzeugenToolStripMenuItem.Name = "ClosedErzeugenToolStripMenuItem"
+        Me.ATBNraendernToolStripMenuItem.Name = "ATBNraendernToolStripMenuItem"
-        Me.ClosedErzeugenToolStripMenuItem.Size = New System.Drawing.Size(161, 22)
+        Me.ATBNraendernToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
-        Me.ClosedErzeugenToolStripMenuItem.Text = "Closed erzeugen"
+        Me.ATBNraendernToolStripMenuItem.Text = "ATB-Nr ändern"
+        Me.ATBNraendernToolStripMenuItem.Visible = False
         '
         'Panel2
         '
+        Me.Panel2.Controls.Add(Me.pnlChangeATBNr)
         Me.Panel2.Controls.Add(Me.panOverlay)
         Me.Panel2.Controls.Add(Me.dgvGesamtsicherheit)
         Me.Panel2.Controls.Add(Me.dgvSicherheitsPos)
@@ -152,6 +164,69 @@ Partial Class frmGesamtsicherheitenNEU
         Me.Panel2.Size = New System.Drawing.Size(1384, 486)
         Me.Panel2.TabIndex = 1
         '
+        'pnlChangeATBNr
+        '
+        Me.pnlChangeATBNr.BackColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.pnlChangeATBNr.Controls.Add(Me.lblWarningATB)
+        Me.pnlChangeATBNr.Controls.Add(Me.FlatButton1)
+        Me.pnlChangeATBNr.Controls.Add(Me.txtATBNraendern)
+        Me.pnlChangeATBNr.Controls.Add(Me.Label32)
+        Me.pnlChangeATBNr.Controls.Add(Me.FlatButton2)
+        Me.pnlChangeATBNr.Location = New System.Drawing.Point(65, 39)
+        Me.pnlChangeATBNr.Name = "pnlChangeATBNr"
+        Me.pnlChangeATBNr.Size = New System.Drawing.Size(292, 103)
+        Me.pnlChangeATBNr.TabIndex = 12
+        Me.pnlChangeATBNr.Visible = False
+        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.BackColor = System.Drawing.Color.Gainsboro
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton1.Location = New System.Drawing.Point(210, 77)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(75, 23)
+        Me.FlatButton1.TabIndex = 9
+        Me.FlatButton1.Text = "Ändern"
+        Me.FlatButton1.UseVisualStyleBackColor = False
+        '
+        'txtATBNraendern
+        '
+        Me.txtATBNraendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtATBNraendern.Location = New System.Drawing.Point(95, 40)
+        Me.txtATBNraendern.Margin = New System.Windows.Forms.Padding(0)
+        Me.txtATBNraendern.Name = "txtATBNraendern"
+        Me.txtATBNraendern.Size = New System.Drawing.Size(186, 24)
+        Me.txtATBNraendern.TabIndex = 6
+        '
+        'Label32
+        '
+        Me.Label32.AutoSize = True
+        Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label32.Location = New System.Drawing.Point(10, 40)
+        Me.Label32.Name = "Label32"
+        Me.Label32.Size = New System.Drawing.Size(61, 20)
+        Me.Label32.TabIndex = 5
+        Me.Label32.Text = "ATB-Nr"
+        '
+        'FlatButton2
+        '
+        Me.FlatButton2.allowBorder = False
+        Me.FlatButton2.BackColor = System.Drawing.Color.White
+        Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.del2
+        Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.FlatButton2.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        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(261, 3)
+        Me.FlatButton2.Name = "FlatButton2"
+        Me.FlatButton2.Size = New System.Drawing.Size(24, 24)
+        Me.FlatButton2.TabIndex = 0
+        Me.FlatButton2.UseVisualStyleBackColor = False
+        '
         'panOverlay
         '
         Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight
@@ -167,7 +242,7 @@ Partial Class frmGesamtsicherheitenNEU
         Me.panOverlay.Controls.Add(Me.Label17)
         Me.panOverlay.Controls.Add(Me.Label16)
         Me.panOverlay.Controls.Add(Me.btnClosePanOverlay)
-        Me.panOverlay.Location = New System.Drawing.Point(493, 15)
+        Me.panOverlay.Location = New System.Drawing.Point(485, 15)
         Me.panOverlay.Name = "panOverlay"
         Me.panOverlay.Size = New System.Drawing.Size(527, 297)
         Me.panOverlay.TabIndex = 2
@@ -338,7 +413,7 @@ Partial Class frmGesamtsicherheitenNEU
         DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStripGesSicherh
         DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -377,6 +452,7 @@ Partial Class frmGesamtsicherheitenNEU
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvSicherheitsPos.ContextMenuStrip = Me.ContextMenuStripPosSicherheiten
         DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -393,6 +469,19 @@ Partial Class frmGesamtsicherheitenNEU
         Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 454)
         Me.dgvSicherheitsPos.TabIndex = 1
         '
+        'ContextMenuStripPosSicherheiten
+        '
+        Me.ContextMenuStripPosSicherheiten.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATCMRNNraendernToolStripMenuItem})
+        Me.ContextMenuStripPosSicherheiten.Name = "ContextMenuStrip"
+        Me.ContextMenuStripPosSicherheiten.Size = New System.Drawing.Size(185, 26)
+        '
+        'ATCMRNNraendernToolStripMenuItem
+        '
+        Me.ATCMRNNraendernToolStripMenuItem.Name = "ATCMRNNraendernToolStripMenuItem"
+        Me.ATCMRNNraendernToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
+        Me.ATCMRNNraendernToolStripMenuItem.Text = "ATC/MRN-Nr ändern"
+        Me.ATCMRNNraendernToolStripMenuItem.Visible = False
+        '
         'pnlSummeGes
         '
         Me.pnlSummeGes.BackColor = System.Drawing.SystemColors.ButtonHighlight
@@ -1091,7 +1180,6 @@ Partial Class frmGesamtsicherheitenNEU
         'Label14
         '
         Me.Label14.AutoSize = True
-        Me.Label14.Enabled = False
         Me.Label14.ForeColor = System.Drawing.SystemColors.ButtonHighlight
         Me.Label14.Location = New System.Drawing.Point(194, 237)
         Me.Label14.Name = "Label14"
@@ -1112,7 +1200,6 @@ Partial Class frmGesamtsicherheitenNEU
         'Label13
         '
         Me.Label13.AutoSize = True
-        Me.Label13.Enabled = False
         Me.Label13.ForeColor = System.Drawing.SystemColors.ButtonHighlight
         Me.Label13.Location = New System.Drawing.Point(76, 234)
         Me.Label13.Name = "Label13"
@@ -1299,6 +1386,16 @@ Partial Class frmGesamtsicherheitenNEU
         Me.btnAddSicherheit.TabIndex = 36
         Me.btnAddSicherheit.UseVisualStyleBackColor = False
         '
+        'lblWarningATB
+        '
+        Me.lblWarningATB.AutoSize = True
+        Me.lblWarningATB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblWarningATB.ForeColor = System.Drawing.Color.Red
+        Me.lblWarningATB.Location = New System.Drawing.Point(10, 7)
+        Me.lblWarningATB.Name = "lblWarningATB"
+        Me.lblWarningATB.Size = New System.Drawing.Size(0, 13)
+        Me.lblWarningATB.TabIndex = 10
+        '
         'frmGesamtsicherheitenNEU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1312,12 +1409,15 @@ Partial Class frmGesamtsicherheitenNEU
         Me.Name = "frmGesamtsicherheitenNEU"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "frmGesSich"
-        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ContextMenuStripGesSicherh.ResumeLayout(False)
         Me.Panel2.ResumeLayout(False)
+        Me.pnlChangeATBNr.ResumeLayout(False)
+        Me.pnlChangeATBNr.PerformLayout()
         Me.panOverlay.ResumeLayout(False)
         Me.panOverlay.PerformLayout()
         CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStripPosSicherheiten.ResumeLayout(False)
         Me.pnlSummeGes.ResumeLayout(False)
         Me.pnlSummeGes.PerformLayout()
         Me.panOben.ResumeLayout(False)
@@ -1384,8 +1484,8 @@ Partial Class frmGesamtsicherheitenNEU
     Friend WithEvents btnDeleteSicherheit As VERAG_PROG_ALLGEMEIN.FlatButton
     Friend WithEvents cboWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents lblWarenort As Label
-    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents ContextMenuStripGesSicherh As ContextMenuStrip
-    Friend WithEvents ClosedErzeugenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ATBNraendernToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Panel1 As Panel
     Friend WithEvents cbx_Suche_Warenort As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label19 As Label
@@ -1417,4 +1517,12 @@ Partial Class frmGesamtsicherheitenNEU
     Friend WithEvents txtPosSicherheitsbGes As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label23 As Label
     Friend WithEvents txtlkwIdSearch As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents ContextMenuStripPosSicherheiten As ContextMenuStrip
+    Friend WithEvents ATCMRNNraendernToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents pnlChangeATBNr As Panel
+    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents txtATBNraendern As TextBox
+    Friend WithEvents Label32 As Label
+    Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents lblWarningATB As Label
 End Class

Aviso/frmGesamtsicherheitenNEU.resx

@@ -117,9 +117,12 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="ContextMenuStripGesSicherh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="ContextMenuStripPosSicherheiten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>268, 15</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

Aviso/frmGesamtsicherheitenNEU.vb

@@ -1,4 +1,6 @@
 
+Imports System.Linq.Expressions
+Imports GrapeCity.Viewer.Common.Model
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmGesamtsicherheitenNEU
@@ -156,9 +158,11 @@ Public Class frmGesamtsicherheitenNEU
             setSaldo()
 
             If dgvGesamtsicherheit.Enabled = False Then Exit Sub
+            ATBNraendernToolStripMenuItem.Visible = True
 
         Else
             LoadDGVSicherheitsPos(-1, True)
+            ATBNraendernToolStripMenuItem.Visible = False
 
         End If
     End Sub
@@ -270,6 +274,24 @@ Public Class frmGesamtsicherheitenNEU
     End Sub
 
     Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtSicherheitWarenwert.TextChanged, txtPosWarenwert.TextChanged
+
+        If Not IsNumeric(txtSicherheitWarenwert.Text) And sender.name = "txtSicherheitWarenwert" Then
+            txtSicherheitWarenwert.ForeColor = Color.Red
+            Exit Sub
+        Else
+            txtSicherheitWarenwert.ForeColor = Color.Black
+
+        End If
+
+
+        If Not IsNumeric(txtPosWarenwert.Text) And sender.name = "txtPosWarenwert" Then
+            txtPosWarenwert.ForeColor = Color.Red
+            Exit Sub
+        Else
+            txtPosWarenwert.ForeColor = Color.Black
+
+        End If
+
         Try
             Select Case sender.name
                 Case "txtSicherheitWarenwert"
@@ -284,7 +306,7 @@ Public Class frmGesamtsicherheitenNEU
 
     Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSicherheitWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtAnzahlPos.KeyPress, txtZollsatzueberschreiben.KeyPress
         Select Case Asc(e.KeyChar)
-            Case 48 To 57, 8, 44
+            Case 48 To 57, 8, 44, 22
                 ' Zahlen, Backspace und , zulassen
 
             Case Else
@@ -296,6 +318,7 @@ Public Class frmGesamtsicherheitenNEU
     Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosDate.KeyPress, txtPosTime.KeyPress, txtSicherheitDate.KeyPress, txtSicherheitTime.KeyPress
         Select Case Asc(e.KeyChar)
             Case 48 To 57, 8, 46, 58
+
                 ' Zahlen, Backspace, . und : zulassen
 
             Case Else
@@ -1127,5 +1150,76 @@ Public Class frmGesamtsicherheitenNEU
             txtLKWID.ReadOnly = False
         End If
     End Sub
+
+    Private Sub ATBNraendernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATBNraendernToolStripMenuItem.Click
+        Dim ATBNr As String
+        Dim mutlitpleATBNr As Boolean = False
+
+        ATBNr = dgvGesamtsicherheit.SelectedRows(0).Cells("gs_ATBNr").Value.ToString
+
+        If dgvGesamtsicherheit.SelectedRows.Count > 1 Then
+
+            For Each row As DataGridViewRow In dgvGesamtsicherheit.Rows
+                If row.Cells("gs_ATBNr").Value.ToString <> ATBNr Then
+                    mutlitpleATBNr = True
+                End If
+            Next
+        End If
+
+        If mutlitpleATBNr Then
+            lblWarningATB.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. ATB-Nummern markiert!"
+        Else
+            lblWarningATB.Text = ""
+        End If
+        dgvGesamtsicherheit.Enabled = False
+        txtATBNraendern.Text = ATBNr
+        pnlChangeATBNr.Visible = True
+
+    End Sub
+
+    Private Sub ATCMRNNraendernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATCMRNNraendernToolStripMenuItem.Click
+
+
+
+    End Sub
+
+    Private Sub dgvSicherheitsPos_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSicherheitsPos.SelectionChanged
+        If dgvSicherheitsPos.SelectedRows.Count > 0 Then
+            ATCMRNNraendernToolStripMenuItem.Visible = True
+        Else
+            ATCMRNNraendernToolStripMenuItem.Visible = False
+        End If
+    End Sub
+
+    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        If txtATBNraendern.Text = "" Then
+            MsgBox("Bitte ATR-Nr angeben!")
+            Exit Sub
+        End If
+        If dgvGesamtsicherheit.SelectedRows.Count > 1 Then
+
+                For Each row As DataGridViewRow In dgvGesamtsicherheit.Rows
+                    Dim test As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
+                test.gs_ATBNr = txtATBNraendern.Text
+                currentSicherheit = test
+                    currentSicherheit.SAVE()
+
+                Next
+            Else
+
+            Dim Sicherh As New cSicherheiten(dgvGesamtsicherheit.SelectedRows(0).Cells("gs_gsId").Value, dgvGesamtsicherheit.SelectedRows(0).Cells("gs_posNr").Value)
+            Sicherh.gs_ATBNr = txtATBNraendern.Text
+            currentSicherheit = Sicherh
+            currentSicherheit.SAVE()
+        End If
+        pnlChangeATBNr.Visible = False
+        dgvGesamtsicherheit.Enabled = True
+        AfterButton()
+    End Sub
+
+    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
+        pnlChangeATBNr.Visible = False
+        dgvGesamtsicherheit.Enabled = True
+    End Sub
 End Class