Gestellugnsgarantien und Certräge -> UsrCntl gebaut; Anhangsarten, Vermerke entgültig löschen

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -2140,7 +2140,6 @@ Public Class cVermerkeDAL
 
     Public Function SpeichernVermerkIDAufgehoben(VermerkID, VermerkIDAufgehoben) As Boolean
         Dim SQLstr As String = " UPDATE Vermerke SET VermerkIDAufgehoben = @VermerkIDAufgehoben WHERE VermerkID = @VermerkID"
-        'MsgBox("UPDATE Vermerke SET VermerkIDAufgehoben = " & VermerkIDAufgehoben & " WHERE VermerkID = " & VermerkID & "")
         Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
         Using cmd As New SqlCommand(SQLstr, conn)
             cmd.Parameters.AddWithValue("@VermerkID", VermerkID)
@@ -2157,6 +2156,21 @@ Public Class cVermerkeDAL
         Return False
     End Function
 
+    Public Sub togglegeloescht(ByVal hID As Integer)
+        Dim sql = String.Format("UPDATE Vermerke SET Geloescht=Geloescht-1 WHERE VermerkID = {0}", hID)
+
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("Gelöscht kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
+            End Try
+        End Using
+        conn.Close()
+
+    End Sub
+
 
     Public Sub UpdateLKW(ByVal avisoID As Integer, ByVal LKW_fertig As Boolean)