neu

VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb

@@ -544,14 +544,23 @@ Public Class cMessenger
             If tmp_id > 0 Then
                 Me.chatMg_id = tmp_id
                 If saveStat Then SAVE_STATUS_FIRST(CHAT_MEMBERS)
+                UPDATE_LASTMSG() ' Versucht einen TSTMP der letzten Nachricht einzutragen
                 Return True
             Else
                 Return False
             End If
 
+
             ''Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
         End Function
 
+
+        Public Function UPDATE_LASTMSG() As Boolean
+            Dim sqlstr = " UPDATE tblMessenger_Chat SET chat_lastMsg=getDate() WHERE [chat_id]=" & Me.chatMg_chatId & "  "
+            Return SQL.doSQL(sqlstr, "ADMIN")
+        End Function
+
+
         Public Sub LOAD()
             Try
                 Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()