Fehlerhandling verbessert -> falsche von Nutzer eingegebene Werte werden in div. Spalten geprüft/entfernt.

Aviso/frmGesamtsicherheitenNEU.vb

@@ -344,6 +344,8 @@ Public Class frmGesamtsicherheitenNEU
 
     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
@@ -361,6 +363,11 @@ Public Class frmGesamtsicherheitenNEU
 
         End If
 
+        txtSicherheitWarenwert.Text = Replace(txtSicherheitWarenwert.Text, ".", "")
+        txtPosWarenwert.Text = Replace(txtPosWarenwert.Text, ".", "")
+        txtSicherheitWarenwert.Text = Replace(txtSicherheitWarenwert.Text, "€", "")
+        txtPosWarenwert.Text = Replace(txtPosWarenwert.Text, "€", "")
+
         Try
             Select Case sender.name
                 Case "txtSicherheitWarenwert"
@@ -1332,4 +1339,15 @@ Public Class frmGesamtsicherheitenNEU
         dgvSicherheitsPos.Enabled = True
     End Sub
 
+    Private Sub txtAbfertNum_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertNum.TextChanged
+        If Not IsNumeric(txtAbfertNum.Text) Then
+            txtAbfertNum.ForeColor = Color.Red
+            btnSave.Enabled = False
+            Exit Sub
+        Else
+            txtAbfertNum.ForeColor = Color.Black
+            btnSave.Enabled = True
+
+        End If
+    End Sub
 End Class