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 Return False
End Function 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 sql = String.Format("UPDATE Vermerke SET Geloescht=Geloescht-1 WHERE VermerkID = {0}", hID)
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2193,6 +2193,13 @@ Public Class cVermerkeDAL
'Vermerkzuweisung aufheben, falls vorhanden 'Vermerkzuweisung aufheben, falls vorhanden
Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL
VERAG_SQL.doSQL("UPDATE [Vermerke] SET VermerkIDAufgehoben = null where VermerkIDAufgehoben = '" & hID & "'", "AVISO") 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 Catch ex As SqlException
MsgBox("Gelöscht kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") MsgBox("Gelöscht kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
End Try End Try
@@ -2269,7 +2276,7 @@ Public Class cVermerkeDAL
End Sub 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 sql = String.Format("DELETE FROM Vermerke WHERE VermerkID = {0}", hID)
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2280,6 +2287,11 @@ Public Class cVermerkeDAL
'Vermerkzuweisung aufheben, falls vorhanden 'Vermerkzuweisung aufheben, falls vorhanden
Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim VERAG_SQL As New VERAG_PROG_ALLGEMEIN.SQL
VERAG_SQL.doSQL("UPDATE [Vermerke] SET VermerkIDAufgehoben = null where VermerkIDAufgehoben = '" & hID & "'", "AVISO") 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 Catch ex As SqlException
MsgBox("Vermerk kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") MsgBox("Vermerk kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
End Try End Try