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

BMD Interface Pfad

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-04-28 12:41:23 +02:00
parent ff29e06911
commit 4c97b538b6
7 changed files with 96 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -2163,6 +2163,10 @@ Public Class cVermerkeDAL
Using cmd As New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
'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")
Catch ex As SqlException
MsgBox("Gelöscht kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
End Try
@@ -2246,11 +2250,16 @@ Public Class cVermerkeDAL
Using cmd As New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
'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")
Catch ex As SqlException
MsgBox("Vermerk kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
End Try
End Using
conn.Close()
End Sub