cbam importer, sessions, mailsender, etc.

UID/Dienstplan/usrcntlSessions.vb

@@ -1,4 +1,7 @@
-Public Class usrcntlSessions
+Imports GrapeCity
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrcntlSessions
 
     Dim mitarbeiter As VERAG_PROG_ALLGEMEIN.cMitarbeiter
 
@@ -131,8 +134,8 @@
                               where " & whereLogin & " and cast([LogOn_datetime] as Date)  between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "'"
 
             SQL_String = " select * FROM ( " & SQL_SESSIONS & " UNION ALL " & SQL_SESSION_TS & ")  TEMP order by TEMP.sess_login"
-            Else
-                SQL_String = " select * FROM ( " & SQL_SESSIONS & ")  TEMP order by TEMP.sess_login"
+        Else
+            SQL_String = " select * FROM ( " & SQL_SESSIONS & ")  TEMP order by TEMP.sess_login"
         End If
 
 
@@ -186,6 +189,41 @@
 
     Private Sub usrcntlSessions_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If Me.DesignMode Then Exit Sub
+
+        Dim SQL_String As String = ""
+
+        Dim SQL_SESSIONS = "select [sess_login]
+                            FROM [ADMIN].[dbo].[tblSessions] 
+                            where sess_maId = " & mitarbeiter.mit_id
+
+
+        If mitarbeiter.mit_AliasAD_Username IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Username <> "" AndAlso mitarbeiter.mit_AliasAD_Domain IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Domain <> "" Then
+
+            Dim whereLogin As String = "([BenutzerAnmeldeName] = '" & mitarbeiter.mit_AliasAD_Domain & "\" & mitarbeiter.mit_AliasAD_Username & "'"
+
+            If mitarbeiter.mit_AliasAD_Username2 IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Username2 <> "" AndAlso mitarbeiter.mit_AliasAD_Domain2 IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Domain2 <> "" Then
+                whereLogin &= " OR [BenutzerAnmeldeName] = '" & mitarbeiter.mit_AliasAD_Domain2 & "\" & mitarbeiter.mit_AliasAD_Username2 & "')"
+            Else
+                whereLogin &= ")"
+            End If
+
+
+            Dim SQL_SESSION_TS = "SELECT  [LogOn_datetime]
+                              FROM [Doku].[dbo].[TbL_LogOnLogOffLog] 
+                              where " & whereLogin
+
+            SQL_String = " select top(1) * FROM ( " & SQL_SESSIONS & " UNION ALL " & SQL_SESSION_TS & ")  TEMP order by TEMP.sess_login desc"
+        Else
+            SQL_String = " select top(1) * FROM ( " & SQL_SESSIONS & ")  TEMP order by TEMP.sess_login desc"
+        End If
+
+        Dim aktuellerLogin As String = (New SQL).getValueTxtBySql(SQL_String, "FMZOLL")
+
+        If aktuellerLogin <> "" AndAlso IsDate(aktuellerLogin) Then
+            lbl_letzteAnm.Text = CDate(aktuellerLogin).ToShortDateString
+
+        End If
+
         initBtns("Tag")
         initdgvSessions(CDate(DateTimePicker1.Value).Date, CDate(DateTimePicker2.Value).Date)
     End Sub