edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Vermerke löschen tracken

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-28 17:02:30 +02:00
parent 098723f122
commit 8690547a0e
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -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