Benachrichtigungen AAS , vers

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -2182,6 +2182,25 @@ Public Class cVermerkeDAL
             cmd.Parameters.AddWithValue("@VermerkID", VermerkID)
             cmd.Parameters.AddWithValue("@VermerkIDAufgehoben", VermerkIDAufgehoben)
 
+            Try
+                cmd.ExecuteNonQuery()
+                SpeichernVermerkID_AAS_Aufgehoben(VermerkID)
+                Return True
+            Catch ex As SqlException
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End Using
+        conn.Close()
+        Return False
+    End Function
+
+    Public Function SpeichernVermerkID_AAS_Aufgehoben(VermerkID) As Boolean
+        Dim SQLstr As String = " UPDATE [tblAvisoBenachrichtigungen] SET ab_Status = 1 , ab_Bestaetigt_MaId = @ab_Bestaetigt_MaId , ab_Bestaetigt_Datum=GETDATE() WHERE ab_VermerkID=@ab_VermerkID AND ab_Status = 0  "
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(SQLstr, conn)
+            cmd.Parameters.AddWithValue("@ab_Bestaetigt_MaId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+            cmd.Parameters.AddWithValue("@ab_VermerkID", VermerkID)
+
             Try
                 cmd.ExecuteNonQuery()
                 Return True