fix

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