Messenger, Ueberstunden

VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb

@@ -486,6 +486,14 @@ Public Class cMessenger
         End Function
 
 
+        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
+            Return SQL.doSQL(sqlstr, "ADMIN")
+        End Function
+
+
     End Class
 
     Public Class cMessenger_ChatMembers

VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb

@@ -20,6 +20,7 @@ Public Class cUeberstunden
     Property uest_ignoreLimit As Boolean
     Property uest_overwriteValue As Boolean
     Property uest_paidout_sum As Object = Nothing
+    Property uest_isParttime As Boolean
 
     Public hasEntry = False
 
@@ -57,6 +58,7 @@ Public Class cUeberstunden
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_maxUE", uest_maxUE))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_overwriteValue", uest_overwriteValue))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_paidout_sum", uest_paidout_sum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_isParttime", uest_isParttime))
 
         Return list
     End Function