From 3090a65b41d687d00c179d674d8b4a4e80961d42 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 8 Nov 2022 17:07:26 +0100 Subject: [PATCH] =?UTF-8?q?gesamtsicherheiten:=20AT-Nrn=20=C3=A4ndern?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 144 ++++++++++++++++++--- Aviso/frmGesamtsicherheitenNEU.resx | 5 +- Aviso/frmGesamtsicherheitenNEU.vb | 96 +++++++++++++- 3 files changed, 225 insertions(+), 20 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index f7cc843..470cd6f 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/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.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip(Me.components) + 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.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 26) + Me.ContextMenuStripGesSicherh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATBNraendernToolStripMenuItem}) + Me.ContextMenuStripGesSicherh.Name = "ContextMenuStrip1" + Me.ContextMenuStripGesSicherh.Size = New System.Drawing.Size(153, 26) ' - 'ClosedErzeugenToolStripMenuItem + 'ATBNraendernToolStripMenuItem ' - Me.ClosedErzeugenToolStripMenuItem.Name = "ClosedErzeugenToolStripMenuItem" - Me.ClosedErzeugenToolStripMenuItem.Size = New System.Drawing.Size(161, 22) - Me.ClosedErzeugenToolStripMenuItem.Text = "Closed erzeugen" + Me.ATBNraendernToolStripMenuItem.Name = "ATBNraendernToolStripMenuItem" + Me.ATBNraendernToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + 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 ClosedErzeugenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ContextMenuStripGesSicherh As ContextMenuStrip + 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 diff --git a/Aviso/frmGesamtsicherheitenNEU.resx b/Aviso/frmGesamtsicherheitenNEU.resx index 2cbc5c2..a0688f2 100644 --- a/Aviso/frmGesamtsicherheitenNEU.resx +++ b/Aviso/frmGesamtsicherheitenNEU.resx @@ -117,9 +117,12 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + 17, 17 + + 268, 15 + diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index d1c2f70..a29a491 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/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