Sendungsdetails, etc.

Aviso/frmSendungsdetailsNEU.vb

@@ -2607,6 +2607,12 @@ Public Class frmSendungsdetailsNEU
             Case "44"
                 pnlT1.Controls.Add(usrcntl_ATB)
 
+                cboVorpapier._value = ""
+                cboVorpapier2._value = ""
+                cboVorpapier3._value = ""
+                txtVorpapierPos.Text = ""
+                txtVorpapier2Pos.Text = ""
+                txtVorpapier3Pos.Text = ""
                 cboVorpapier.Enabled = False
                 cboVorpapier2.Enabled = False
                 cboVorpapier3.Enabled = False
@@ -7899,4 +7905,23 @@ Public Class frmSendungsdetailsNEU
             initAnhang()
         End If
     End Sub
+
+    Private Sub txtVorpapierPos_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtVorpapierPos.KeyPress, txtVorpapier2Pos.KeyPress, txtVorpapier3Pos.KeyPress
+        enableOnlyNumericValues(e)
+    End Sub
+
+    Private Sub enableOnlyNumericValues(e As KeyPressEventArgs)
+
+        If Char.IsControl(e.KeyChar) Then
+            Return
+        End If
+
+        If Char.IsDigit(e.KeyChar) OrElse e.KeyChar = ","c OrElse e.KeyChar = "+"c OrElse e.KeyChar = " "c Then
+            Return
+        End If
+
+        e.Handled = True
+    End Sub
+
+
 End Class