Sierendurck, Kundenblatt, FaktAbrechnung (doppelte KeyPressedEvents), cDatenserver, etc.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3145,37 +3145,44 @@ Nächste_Textzeile_lesen:
 
             If keyData = Keys.F1 Then
                 Button7.PerformClick()
+                Return True
             End If
             If keyData = Keys.F2 Then
                 Button1.PerformClick()
+                Return True
             End If
 
             If keyData = Keys.F3 AndAlso cboSammelrechnung._value = 0 Then
                 btn.PerformClick()
+                Return True
             End If
 
             If keyData = (Keys.Control Or Keys.P) Then
                 Button4.PerformClick()
+                Return True
             End If
 
             If keyData = (Keys.Control Or Keys.S) Then
-
                 saveMe()
+                Return True
             End If
 
 
             If (keyData = (Keys.Control Or Keys.Add)) Or (keyData = (Keys.Control Or Keys.Return)) Then
                 btnNeueUnterNR.PerformClick()
+                Return True
             End If
 
             If keyData = Keys.PageDown Then
                 If saveMe() Then
                     btnNext.PerformClick()
+                    Return True
                 End If
             End If
             If keyData = Keys.PageUp Then
                 If saveMe() Then
                     btnPrev.PerformClick()
+                    Return True
                 End If
             End If
 
@@ -3282,7 +3289,11 @@ Nächste_Textzeile_lesen:
 
 
     Private Sub btnNeueUnterNR_Click(sender As Object, e As EventArgs) Handles btnNeueUnterNR.Click
-        If saveMe() Then newRECHNUNG()
+        If saveMe() Then
+            newRECHNUNG()
+        End If
+
+
     End Sub
 
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click