edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20200108

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
View File

@@ -14,6 +14,10 @@ Public Class cSession
Property sess_firma As String = ""
Property sess_niederlassung As String = ""
Property sess_ipAddress As String = ""
Property sess_PCName As String = ""
Property sess_PCUserName As String = ""
Property sess_login As Object = Nothing = Now
Property sess_logout As Object = Nothing
@@ -37,6 +41,9 @@ Public Class cSession
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progVersion", sess_progVersion))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_firma", sess_firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_niederlassung", sess_niederlassung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_ipAddress", sess_ipAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_PCName", sess_PCName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_PCUserName", sess_PCUserName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maName", sess_maName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maId", sess_maId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_login", sess_login))
@@ -108,6 +115,12 @@ Public Class cSession
End Function
Public Shared Function GET_IP_FROM_MAID(sess_maId) As String
Dim SQL As New SQL
Return SQL.getValueTxtBySql(" SELECT TOP 1 isnull(sess_ipaddress,'') as sess_ipaddress FROM [tblSessions] where sess_lastRm > DATEADD(SECOND,-70, GETDATE()) AND sess_maId=" & sess_maId, "ADMIN")
End Function
Public Function LOGIN() As String
Me.sess_system = (If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "E"))
Me.sess_login = Now
@@ -115,6 +128,12 @@ Public Class cSession
Me.sess_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Me.sess_firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Me.sess_niederlassung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Try
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
Catch ex As Exception
End Try
Me.sess_lastRm = Now
Me.sess_progId = Nothing
Me.sess_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME