Dataset

app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb

@@ -4,6 +4,24 @@ Imports System.IO
 Imports WINDREAMLib
 
 Public Class ClassAllgemeineFunktionen
+    Public Shared Sub LoginOut(LoginOut As String)
+        Try
+            Dim Sql As String
+            If LoginOut = "LOGIN" Then
+                Sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Process-Manager','{2}','{3}')", CURRENT_USERID, 1, My.Application.Info.Version.ToString, Environment.MachineName)
+            Else
+                Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USERID & " AND UPPER(MODULE) = UPPER('Process-Manager')"
+            End If
+            If ClassDatabase.Execute_non_Query(Sql, True) = False Then
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> User logged in....", False)
+            Else
+                ClassLogger.Add(" >> User could not be logged in....", False)
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Error in LoginOut: " & ex.Message)
+        End Try
+    End Sub
+
     Public Function Insert_LogEntry(PROFIL_ID As String, ERR_MSG As String, USR As String)
         Try
             If IsNumeric(PROFIL_ID) Then
@@ -15,7 +33,7 @@ Public Class ClassAllgemeineFunktionen
         Catch ex As Exception
             ClassLogger.Add("Error in Insert_LogEntry: " & ex.Message)
         End Try
-      
+
 
     End Function
     Public Function ExecuteonMSSQL(ByVal sqlcommand As String, ConString As String)