edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

commit

Browse Source
This commit is contained in:
d.breimaier
2024-03-07 14:25:31 +01:00
parent 25d5767574
commit dee2b8af48
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.8.4")> <Assembly: AssemblyVersion("1.2.8.5")>
<Assembly: AssemblyFileVersion("1.2.8.4")> <Assembly: AssemblyFileVersion("1.2.8.5")>

2
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -486,7 +486,7 @@ Public Class cMessenger
End Function 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 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 Dim sqlstr = " Update [tblMessenger_Chat] set [chat_aktiv] = 0 WHERE chat_aktiv = 1 and chat_lastMsg <=" & dateBack