neu

VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb

@@ -92,7 +92,7 @@
 
             file.WriteLine(genBetreibsstammSatz(Geschaeftsjahr))
             If boolKunden Then
-                '----------------- STAMMDATEN LG -----------------
+                '----------------- STAMMDATEN  -----------------
                 Dim dt_Stamm As DataTable = getStammdaten()
                 If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
                     initKDNr(dt_Stamm)
@@ -335,19 +335,26 @@
     ' Trdin=false
 
     Shared Function getSteuercode(r As DataRow) As Double
-        If CBool(r("Steuerpflichtig")) Then
-            Return "320"
-        Else
-            If (r("RechnungsLandKz")) = "A" Or (r("RechnungsLandKz")) = "AT" Then
-                Return "999" 'Steuerpflichtig und AT
-            Else
-                If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
-                    Return "969" ' EU-LAND
+        Select Case r("Sachkonto")
+            Case "3550", "3553", "3558"
+                Return "999"
+            Case Else
+
+                If CBool(r("Steuerpflichtig")) Then
+                    Return "320"
                 Else
-                    Return "973" ' Drittland
+                    If (r("RechnungsLandKz")) = "A" Or (r("RechnungsLandKz")) = "AT" Then
+                        Return "999" 'Steuerpflichtig und AT
+                    Else
+                        If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
+                            Return "969" ' EU-LAND
+                        Else
+                            Return "973" ' Drittland
+                        End If
+                    End If
                 End If
-            End If
-        End If
+
+        End Select
         Return ""
 
     End Function