Fremdsped

2023-01-11 21:03:33 +01:00
parent bbd2ccb02d
commit cb422d4226
4 changed files with 84 additions and 84 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
@@ -892,7 +892,7 @@ Public Class cMessenger
            Try
                Me.CHAT_MESSAGES_STATUS_LIST.Clear()
                Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
-                    Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMg_id  ", conn)
+                    Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMg_id and chatMgSt_art = 'STAT' ", conn)
                        cmd.Parameters.AddWithValue("@chatMg_id", Me.chatMg_id)
                        Dim dr = cmd.ExecuteReader()
                        While dr.Read