From 9dc2d9f29e12cc077ab18090325ee8de5baaec26 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 29 May 2024 10:43:35 +0200 Subject: [PATCH] fix --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 430f199f..566c82fb 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -4090,7 +4090,7 @@ Nächste_Textzeile_lesen: Dim check As Integer = cAllgemein.checkSteuerschluessel(cboFirma._value, RECHNUNG.RechnungsLandKz, RECHNUNG.RechnungsUstIdKz, RECHNUNG.RechnungsUstIdNr, RECHNUNG.RechnungsUstIdGeprüft) If check >= 0 Then - If IsNumeric(cboSteuerschlüssel._value) AndAlso CInt(txtSteuersatz._value) <> check Then + If IsNumeric(cboSteuerschlüssel._value) AndAlso CInt(cboSteuerschlüssel._value) <> check Then If Not vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel mit " & IIf(check = 2, "20 %", check & " %") & " sollte hinterlegt werden." & vbNewLine & "Trotzdem speichern?", vbYesNo) Then Return False End If