rksv

SDL/Classes/cRKSV.vb

@@ -2790,9 +2790,16 @@ Public Class cRKSV
                 createOP(MANDANT, BETRAG, beleg.BelegNr, beleg.BelegDat.ToShortDateString, beleg.BelegNr, Buchungstext, BUCHUNGSBETRAG, "EUR", Personenkonto, Forderungskonto, i_op_refid, Buchungstyp, c_sprache, c_zahlziel, dec_skonto, SkontoDatum.ToShortDateString, Nettodatum.ToShortDateString, c_ustidnr)
                 createOPVorgang(MANDANT, TYP, BETRAG, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat.ToShortDateString, Buchungstext, Personenkonto, opvorgangsbetrag, i_op_refid, dt_creationDate, Sachkonto, "AUTO")
 
+
+                If checkifgebucht(MANDANT, beleg.BelegNr, Buchungstext) Then
+                    MsgBox("GEBUCHT!")
+                Else
+                    MsgBox("NICHT GEBUCHT!")
+                End If
+
             End If
 
-        End If
+            End If