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

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -177,11 +177,18 @@ Public Class cAllgemein
         Return "AT"
     End Function
 
-    Public Shared Function checkSteuerschluessel(firmenID As Integer, landKz As String, Optional UIDLandKz As String = "", Optional UstIdNr As String = "", Optional UstIdGeprüft As Object = Nothing) As Integer
+    Public Shared Function checkSteuerschluessel(filialId As Integer, landKz As String, Optional UIDLandKz As String = "", Optional UstIdNr As String = "", Optional UstIdGeprüft As Object = Nothing) As Integer
+
+        Return -1
+
+        'muss noch überarbeitet werden!
+
+        If filialId < 1 Then Return -1
+        Dim firma = getFirmaFromFiliale2(filialId)
+        'get id from Firma out of filiale?noch nicht implementiert!!
+        Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(firma)
 
-        If firmenID = "" Then Return -1
 
-        Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(firmenID)
         Dim isEU As Boolean = False
         Dim sql As New SQL