jj 18.10 add ClassInactivity & ClassInactivityFilter

app/DD-Record-Organizer/ClassUser.vb

@@ -0,0 +1,17 @@
+Public Class ClassUser
+
+    Public Shared Sub LogoutUser()
+        Try
+            Dim SQL
+
+            SQL = $"UPDATE TBDD_USER SET LOGGED_IN = {0}, LOGGED_WHERE = '' WHERE LOWER(USERNAME) = LOWER('{USER_USERNAME}')"
+            ClassDatabase.Execute_non_Query(sql)
+
+            sql = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_GUID} AND MODULE = 'Record-Organizer'"
+            ClassDatabase.Execute_non_Query(sql)
+        Catch ex As Exception
+            ClassLogger.Add("Error while logging out user: " & ex.Message)
+        End Try
+    End Sub
+
+End Class