Sendungsdetails

Aviso/frmSendungsdetailsNEU.vb

@@ -7907,11 +7907,6 @@ Public Class frmSendungsdetailsNEU
     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
@@ -7923,5 +7918,9 @@ Public Class frmSendungsdetailsNEU
         e.Handled = True
     End Sub
 
-
+    Private Sub txtVorpapierPos_KeyDown(sender As Object, e As KeyEventArgs) Handles txtVorpapierPos.KeyDown, txtVorpapier2Pos.KeyDown, txtVorpapier3Pos.KeyDown
+        If e.Control AndAlso e.KeyCode = Keys.V Then
+            e.SuppressKeyPress = True
+        End If
+    End Sub
 End Class