feature_steuerschlüsselcheck im Kunden und Rechnung

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -177,6 +177,83 @@ 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
+
+        If firmenID = "" Then Return -1
+
+        Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(firmenID)
+        Dim isEU As Boolean = False
+        Dim sql As New SQL
+
+
+
+        Select Case FIRMA_TMP.Firma_LandKz
+
+            Case "AT"
+
+                If landKz = "A" Then Return 2
+
+                isEU = sql.getValueTxtBySql("select MitgliedslandEU from Währungstabelle  where landkz = '" & landKz & "'", "FMZOLL",)
+
+                If isEU Then
+                    If UIDLandKz <> "" AndAlso UstIdNr <> "" AndAlso UstIdGeprüft IsNot Nothing Then
+                        Return 0
+                    Else
+                        Return 2
+                    End If
+                End If
+
+            Case "DE"
+
+                If landKz = "D" Then Return 19
+
+                isEU = sql.getValueTxtBySql("select MitgliedslandEU from Währungstabelle  where landkz = '" & landKz & "'", "FMZOLL",)
+
+                If isEU Then
+                    If UIDLandKz <> "" AndAlso UstIdNr <> "" AndAlso UstIdGeprüft IsNot Nothing Then
+                        Return 0
+                    Else
+                        Return 19
+                    End If
+                End If
+
+            Case "GB"
+
+                If landKz = "GB" Then Return 20
+
+                isEU = sql.getValueTxtBySql("select MitgliedslandEU from Währungstabelle  where landkz = '" & landKz & "'", "FMZOLL",)
+
+                If isEU Then
+                    If UIDLandKz <> "" AndAlso UstIdNr <> "" AndAlso UstIdGeprüft IsNot Nothing Then
+                        Return 0
+                    Else
+                        Return 20
+                    End If
+                End If
+
+
+
+                'Case "TR"
+
+                '    If landKz = "TR" Then Return 20
+
+                '    isEU = sql.getValueTxtBySql("select MitgliedslandEU from Währungstabelle where landkz = '" & landKz & "'", "FMZOLL",)
+
+                '    If isEU Then
+                '        If UIDLandKz <> "" AndAlso UstIdNr <> "" AndAlso UstIdGeprüft IsNot Nothing Then
+                '            Return 0
+                '        Else
+                '            Return 20
+                '        End If
+                '    End If
+
+
+        End Select
+
+        Return -1
+
+    End Function
+
     Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control)
         _TRANSLATE(o, o, _LAN)
     End Sub
@@ -492,4 +569,5 @@ Public Class cNCTS_GUARANTEES
         If getSlashList <> "" Then getSlashList = getSlashList.Substring(0, getSlashList.Length - 3)
     End Function
 
+
 End Class