MDM, Mailvorlagen, EORI, Mahnlauf, Kundenblatt, CBAM

VERAG_PROG_ALLGEMEIN/Classes/cSession.vb

@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports com.sun.xml.internal.rngom
 
 Public Class cSession
 
@@ -18,10 +19,10 @@ Public Class cSession
     Property sess_PCName As String = ""
     Property sess_PCUserName As String = ""
 
-
     Property sess_login As Object = Nothing = Now
     Property sess_logout As Object = Nothing
     Property sess_lastRm As Object = Nothing
+    Property sess_lastBootUpTime As Object = Nothing
     Property sess_lastActivity As Object = Nothing
     Property sess_status As Object = Nothing
 
@@ -53,6 +54,7 @@ Public Class cSession
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastActivity", sess_lastActivity))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_status", sess_status))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastBootUpTime", sess_lastBootUpTime))
         Return list
     End Function
 
@@ -167,6 +169,7 @@ Public Class cSession
     End Function
 
     Public Function LOGIN() As String
+
         Me.sess_system = (If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "E"))
         Me.sess_login = Now
         Me.sess_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id
@@ -177,6 +180,8 @@ Public Class cSession
             Me.sess_ipAddress = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0).ToString()
             Me.sess_PCName = System.Environment.MachineName
             Me.sess_PCUserName = My.User.Name.ToString
+            Me.sess_lastBootUpTime = DateTime.Now - New TimeSpan(0, 0, 0, 0, System.Environment.TickCount)
+
         Catch ex As Exception
         End Try
         Me.sess_lastRm = Now