Datev, Abrechnung, Steuerschl

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -794,4 +794,5 @@ Public Class frmAbrechnungsMaske
         Dim webAddress As String = "https://wiki.verag.ag/de/abteilungen/verrechnung/xxxx"
         Process.Start(webAddress)
     End Sub
+
 End Class

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,4 +1,5 @@
 Imports System.IO
+Imports com.sun.xml.internal.rngom.digested
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -4091,7 +4092,9 @@ 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(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
+                    Dim text = SQL.getValueTxtBySql("select Steuerbezeichnung 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!", "")
+                    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
                 End If