neu

VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb

@@ -138,17 +138,19 @@ Public Class cMessenger
 
 
 
-        Public Sub SAVE_MEMBERS()
+        Public Function SAVE_MEMBERS() As Boolean
             Try
                 DELETE_MEMBERS()
                 For Each MB In Me.CHAT_MEMBERS
                     MB.chatMb_chatId = Me.chat_id
                     MB.SAVE()
                 Next
+                Return True
             Catch ex As Exception
                 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+                Return False
             End Try
-        End Sub
+        End Function
 
         Public Function READ_ALL_MESSAGES() As Boolean
             Dim sqlstr = "UPDATE tblMessenger_ChatMessageStatus SET chatMgSt_gelesen=1  FROM [tblMessenger_Chat] INNER JOIN tblMessenger_ChatMessages ON [chat_id]=chatMg_chatId  INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chat_id=" & Me.chat_id & " AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0 "