From b53a9957ee057c8502f1d868ed1ade4cd22a95b1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 14 Nov 2025 11:31:40 +0100 Subject: [PATCH] rksv --- SDL/Classes/cRKSV.vb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 17675ffc..550dfb26 100644 --- a/SDL/Classes/cRKSV.vb +++ b/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