commit

2024-03-07 14:25:31 +01:00
parent 25d5767574
commit dee2b8af48
2 changed files with 3 additions and 3 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
@@ -486,7 +486,7 @@ Public Class cMessenger
        End Function


-        Public Function SetOldChatsInactiv(olderthan As Integer) As Boolean
+        Public Function setOldChatsInactiv(olderthan As Integer) As Boolean

            Dim dateBack = If(olderthan <> "", CDate(Now.AddDays(olderthan * -1)), CDate(Now.AddDays(30 * -1)))
            Dim sqlstr = " Update [tblMessenger_Chat] set [chat_aktiv] = 0 WHERE chat_aktiv = 1 and  chat_lastMsg <=" & dateBack