cRKSV, Automailversand, cFakt. etc.

SDL/Classes/cRKSV.vb

@@ -2446,11 +2446,13 @@ Public Class cRKSV
                     End If
 
                     '################
-                    ' DIREKTVERBUCHUNG SYSKA
+                    ' DIREKTVERBUCHUNG SYSKA -> ev. Fehleranfällig, weil hier direkt in eine Fremddatenbank geschrieben wird ohne Plausibilitätsprüfen bzw. Kenntnisse der internen Prüfungsstrukturen!!!!! 
                     '################
 
                     If BelegSofortInFIBUverbuchten AndAlso (BELEG.Beleg_TYP = "L" Or BELEG.Beleg_TYP = "K") Then
                         CreateSyskaBuchung(RKSV_id, BELEG, KBEntry_List, KBEntryGB_List, KBEntryST_List, IIf(BELEG.Beleg_TYP = "L", "AUSZAHLUNG", "EINZAHLUNG"), BelegNrFIBU)
+                    Else
+
                     End If
 
                     BELEG.gebucht = True
@@ -2792,10 +2794,8 @@ Public Class cRKSV
             createOPVorgang_new(mandant, typ, CDbl(betrag), jahr, rel_periode, SafeIntToSql(i_beleg_refid), beleg.BelegDat.ToShortDateString, buchungstext, beleg.KundenNr, CDbl(opvorgangsbetrag), i_beleg_refid, Now.ToString(), kassenkonto, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 5)
         End If
 
-        ' 11) single check if gebucht
         Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext)
         If gebucht Then
-            ' logging instead of MsgBox in production
             MsgBox("FIBU - GEBUCHT!")
         Else
             MsgBox("FIBU - NICHT GEBUCHT!")