fix

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -2999,8 +2999,12 @@ Public Class usrCntlFaktAbrechnung
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+        If Not checkUIDNR() Then Exit Sub
         saveMe() 'Damit Prüfungen in der Vorschau funktionieren (zT mit DB abhängig -> ReverseCharge)
         getValues()
+
+
         cFakturierung.doRechnungsDruck(RECHNUNG,, True,,, getPrinterFromParent)
     End Sub
 

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -679,7 +679,8 @@ Public Class usrcntlKundeBearbeitenFull
 
 
         If cboAbf_Steuerschluessel._value IsNot Nothing AndAlso IsNumeric(cboAbf_Steuerschluessel._value) Then
-            Dim check As Integer = cAllgemein.checkSteuerschluessel(cboFiliale._value, ADRESSE.LandKz, ADRESSE.UstIdNr, ADRESSE.UstIdNr, ADRESSE.UstIdGeprüft)
+            Dim check As Integer
+            check = cAllgemein.checkSteuerschluessel(cboFiliale._value, ADRESSE.LandKz, ADRESSE.UstIdNr, ADRESSE.UstIdNr, ADRESSE.UstIdGeprüft)
             If check >= 0 Then
                 If CInt(cboAbf_Steuerschluessel._value) <> check Then
                     If vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel mit " & IIf(check = 2, "20 %", check & " %") & " sollte hinterlegt werden." & vbNewLine & "Trotzdem speichern?", vbYesNo) Then