neu

VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb

@@ -657,6 +657,12 @@ Public Class cMessenger
         End Function
 
 
+        Public Function DELETE_MESSAGE() As Boolean
+            chatMg_type = "DEL_" & chatMg_type
+            Me.DELETE_STATUS() 'Alle Statuseinträge löschen
+            Return SAVE(False)
+        End Function
+
         Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
             Dim sqlstr = " DELETE FROM tblMessenger_ChatMessages WHERE [chatMg_id]=" & Me.chatMg_id & "  "
             Return SQL.doSQL(sqlstr, "ADMIN")
@@ -703,6 +709,16 @@ Public Class cMessenger
                 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
             End Try
         End Sub
+
+        Public Sub DELETE_STATUS()
+            Try
+                If SQL.doSQL("DELETE FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId='" & Me.chatMg_id & "'", "ADMIN") Then
+                    Me.CHAT_MESSAGES_STATUS_LIST.Clear()
+                End If
+            Catch ex As Exception
+                MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            End Try
+        End Sub
     End Class