From 8690547a0e089ae61bbdf47086fe8b2268893e91 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 28 Aug 2024 17:02:30 +0200 Subject: [PATCH] =?UTF-8?q?Vermerke=20l=C3=B6schen=20tracken?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index a4a7a1ef..c05c2961 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -2182,7 +2182,7 @@ Public Class cVermerkeDAL Return False End Function - Public Sub togglegeloescht(ByVal hID As Integer) + Public Sub togglegeloescht(ByVal hID As Integer, ByVal VermerkText As String, AvisoID As Integer) Dim sql = String.Format("UPDATE Vermerke SET Geloescht=Geloescht-1 WHERE VermerkID = {0}", hID) Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() @@ -2193,6 +2193,13 @@ Public Class cVermerkeDAL 'Vermerkzuweisung aufheben, falls vorhanden Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL VERAG_SQL.doSQL("UPDATE [Vermerke] SET VermerkIDAufgehoben = null where VermerkIDAufgehoben = '" & hID & "'", "AVISO") + + + Dim cAvisoDAL As New cAvisoDAL + cAvisoDAL.addAenderung(AvisoID, "Vermerk gelöscht/nicht gelöscht markiert", "Vermerk '" & VermerkText & "' wurde als gelöscht/nicht gelöscht markiert. VermerkID: '" & hID & "'") + + + Catch ex As SqlException MsgBox("Gelöscht kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try @@ -2269,7 +2276,7 @@ Public Class cVermerkeDAL End Sub - Public Sub LöschenVermerk(ByVal hID As Integer) + Public Sub LöschenVermerk(ByVal hID As Integer, ByVal VermerkText As String, AvisoID As Integer) Dim sql = String.Format("DELETE FROM Vermerke WHERE VermerkID = {0}", hID) Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() @@ -2280,6 +2287,11 @@ Public Class cVermerkeDAL 'Vermerkzuweisung aufheben, falls vorhanden Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL VERAG_SQL.doSQL("UPDATE [Vermerke] SET VermerkIDAufgehoben = null where VermerkIDAufgehoben = '" & hID & "'", "AVISO") + + Dim cAvisoDAL As New cAvisoDAL + cAvisoDAL.addAenderung(AvisoID, "Vermerk endgültig gelöscht", "Vermerk '" & VermerkText & "' wurde endgültig gelöscht. VermerkID: '" & hID & "'") + + '' Catch ex As SqlException MsgBox("Vermerk kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try