fix

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -177,16 +177,12 @@ Public Class cAllgemein
         Return "AT"
     End Function
 
-    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
+    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
 
-        Return -1
+        '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 < 1 Then Return -1
+        Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(firmenID)
 
 
         Dim isEU As Boolean = False
@@ -196,7 +192,7 @@ Public Class cAllgemein
 
         Select Case FIRMA_TMP.Firma_LandKz
 
-            Case "A"
+            Case "A", "AT"
 
                 If landKz = "A" Then Return 2
 
@@ -210,7 +206,7 @@ Public Class cAllgemein
                     End If
                 End If
 
-            Case "D"
+            Case "D", "DE"
 
                 If landKz = "D" Then Return 19