Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb

@@ -30,6 +30,7 @@ Public Class cFiskalkunden
     Property FK_Geschaeftsfuehrer As Object = Nothing
     Property FK_Steuerberater As Object = Nothing
     Property FK_Umsatz As Object = Nothing
+    Property FK_Land As Object = Nothing
 
     Public hasEntry = False
 
@@ -73,6 +74,7 @@ Public Class cFiskalkunden
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Geschaeftsfuehrer))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Steuerberater", FK_Steuerberater))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Umsatz", FK_Umsatz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Land", FK_Land))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -849,19 +849,22 @@ Public Class cMDMFunctionsAllgemein
 
         End If
 
-        If dsID < 0 Then
-            Return ""
-        ElseIf returnDSID Then
-            If schnittstellenNr = 8 Then 'Nr enthätl alle IDS-Rechnungen, die nicht mitgeben!
-                Return -1
-            Else
-                Return dsID
-            End If
+        If Not schnittstellenNr = 1 Then
+            If dsID < 0 Then
+                Return ""
+            ElseIf returnDSID Then
+                If schnittstellenNr = 8 Then 'Nr enthätl alle IDS-Rechnungen, die nicht mitgeben!
+                    Return -1
+                Else
+                    Return dsID
+                End If
 
+            End If
         End If
 
 
 
+
         'Anschrift Nummerierung:
         Dim x = 100
         Dim y = 10