diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
index c05c2961..5a6e5ce4 100644
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -1920,6 +1920,9 @@ Public Class cVermerk
     Property Beschreibung As String = ""
     Property SMSId As Integer
     Property SMSStatus As Integer
+    Property Geloescht As Boolean
+    Property AAS_Warnstufe As Boolean
+    Property HintergrundVermerk As Boolean
 
 
 End Class
@@ -1953,6 +1956,9 @@ Public Class cVermerkeDAL
                     daten.VorauskasseId = VarToInt(dr.Item("VorauskasseId"))
                     daten.SMSId = VarToInt(dr.Item("SMSId"))
                     daten.SMSStatus = VarToInt(dr.Item("SMSstatus"))
+                    daten.Geloescht = VarToBool(dr.Item("Geloescht"))
+                    daten.AAS_Warnstufe = VarToBool(dr.Item("AAS_Warnstufe"))
+                    daten.HintergrundVermerk = VarToBool(dr.Item("HintergrundVermerk"))
                 End If
                 dr.Close()
             End Using
@@ -2125,11 +2131,11 @@ Public Class cVermerkeDAL
         If d.VermerkID = 0 Then
             'Neuanlage
             hAuswahl = "INSERT INTO Vermerke " &
-                       "(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId,SMSId,SMSStatus) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId,@SMSId,@SMSStatus)"
+                       "(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId,SMSId,SMSStatus,Geloescht,AAS_Warnstufe,HintergrundVermerk) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId,@SMSId,@SMSStatus,@Geloescht,@AAS_Warnstufe,@HintergrundVermerk)"
         Else
             'Änderung
             hAuswahl = String.Format(
-                       "UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID,SMSId=@SMSId,SMSStatus=@SMSStatus")
+                       "UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID,SMSId=@SMSId,SMSStatus=@SMSStatus,Geloescht=@Geloescht,AAS_Warnstufe=@AAS_Warnstufe,HintergrundVermerk=@HintergrundVermerk")
         End If
         Dim sql = hAuswahl
         Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2147,6 +2153,9 @@ Public Class cVermerkeDAL
             cmd.Parameters.AddWithValue("@VorauskasseId", If(d.VorauskasseId IsNot Nothing, d.VorauskasseId, DBNull.Value))
             cmd.Parameters.AddWithValue("@SMSId", d.SMSId)
             cmd.Parameters.AddWithValue("@SMSStatus", d.SMSStatus)
+            cmd.Parameters.AddWithValue("@Geloescht", d.Geloescht)
+            cmd.Parameters.AddWithValue("@AAS_Warnstufe", d.AAS_Warnstufe)
+            cmd.Parameters.AddWithValue("@HintergrundVermerk", d.HintergrundVermerk)
 
             Try
                 cmd.ExecuteNonQuery()
@@ -2182,6 +2191,25 @@ Public Class cVermerkeDAL
         Return False
     End Function
 
+    Public Shared Function increaseWarnstufe(VermerkID) As Boolean
+
+        Dim SQLstr As String = " UPDATE Vermerke SET AAS_Warnstufe = (AAS_Warnstufe+1) WHERE VermerkID = @VermerkID"
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(SQLstr, conn)
+            cmd.Parameters.AddWithValue("@VermerkID", VermerkID)
+
+            Try
+                cmd.ExecuteNonQuery()
+                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 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)