LeistungenFIBU, Abrechungsmaske, ZE-Buttons, creditsafe, bugfix PLOSE (bei Rechnungsausgang)

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3136,7 +3136,7 @@ Nächste_Textzeile_lesen:
                 Button1.PerformClick()
             End If
 
-            If keyData = Keys.F3 Then
+            If keyData = Keys.F3 AndAlso cboSammelrechnung._value = 0 Then
                 btn.PerformClick()
             End If
 
@@ -4093,7 +4093,7 @@ Nächste_Textzeile_lesen:
             If check >= 0 Then
                 If IsNumeric(cboSteuerschlüssel._value) AndAlso CInt(cboSteuerschlüssel._value) <> check Then
                     Dim text = SQL.getValueTxtBySql("select AuswahlSteuerbezeichnung from Steuertabelle where Steuerschlüssel =" & check, "FMZOLL")
-                    Dim hintUIDPruef As String = IIf((RECHNUNG.RechnungsUstIdGeprüft IsNot Nothing AndAlso CDate(RECHNUNG.RechnungsUstIdGeprüft) < Today.AddDays(-30)), " UID-ÜrPrüfung ist älter als 30 Tage!", "")
+                    Dim hintUIDPruef As String = IIf((RECHNUNG.RechnungsUstIdGeprüft IsNot Nothing AndAlso CDate(RECHNUNG.RechnungsUstIdGeprüft) < Today.AddDays(-30)), " UID-Prüfung ist älter als 30 Tage!", "")
                     If Not vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel " & text & " sollte hinterlegt werden." & vbNewLine & IIf(hintUIDPruef <> "", hintUIDPruef & vbNewLine, "") & "Trotzdem speichern?", vbYesNo) Then
                         Return False
                     End If
@@ -4104,4 +4104,10 @@ Nächste_Textzeile_lesen:
         Return True
 
     End Function
+
+    Private Sub cboSammelrechnung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboSammelrechnung.SelectedValueChanged
+
+        btn.Enabled = IIf(cboSammelrechnung._value = 0, True, False)
+
+    End Sub
 End Class