Überstundenauszahlung, FaktAbrechnung, etc.

SDL/Classes/cRKSV.vb

@@ -2507,11 +2507,18 @@ Public Class cRKSV
     Public Shared Function CreateSyskaBuchung(RKSV_id As Integer, beleg As EABeleg, KBEntry_list As List(Of cKassenbuch), KBEntryGB_list As List(Of cKassenbuch), KBEntryST_list As List(Of cKassenbuch), typ As String) As Boolean
 
 
+
+
         If beleg Is Nothing Then Throw New ArgumentNullException(NameOf(beleg))
         If Not (beleg.Beleg_TYP = "L" Or beleg.Beleg_TYP = "K") Then
             Return False
         End If
 
+
+        If DefaultMandant = 9 Then
+            MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> TESTMANDANT!")
+        End If
+
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL()
 
         Dim mandant = DefaultMandant
@@ -2534,6 +2541,7 @@ Public Class cRKSV
 
         If betrag = 0 Then Return False
 
+
         Dim ForderungktoTxt As String = sql.getValueTxtBySqlVarList("SELECT i_fordkto FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & SafeIntToSql(beleg.KundenNr) & " AND i_firm_refid = " & SafeIntToSql(mandant), "FIBU",, "2000")
         Dim forderungskonto As Integer = SafeCIntDef(ForderungktoTxt, 2000)
         Dim dtKonten As DataTable = BuildVerbuchungskonten(KBEntryGB_list, beleg, kassenkonto, forderungskonto, bestandskonto)