gesamtsicherheiten: AT-Nrn ändern

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