AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Pseudonymisierung

Browse Source
This commit is contained in:
Jonathan Jenne
2021-06-07 15:35:08 +02:00
parent ee20980937
commit 12eff139e1
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@@ -196,8 +196,8 @@ Public Class ClassInit
Return False Return False
End If End If
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
Logger.Info(">> Login Username: " & USER_USERNAME, False) Logger.Info("Login Username: " & USER_ID, False)
Logger.Info(">> Login time: " & Now.ToString, False) Logger.Info("Login time: " & Now.ToShortDateString, False)
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID") USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
USER_SURNAME = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"), "") USER_SURNAME = NotNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"), "")
@@ -258,7 +258,7 @@ Public Class ClassInit
Next Next
Return True Return True
Else Else
Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False) Logger.Info(" - UserId '" & USER_ID & "' not listed in Useradministration!", False)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close() 'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.") Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
@@ -299,13 +299,13 @@ Public Class ClassInit
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID") CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
Else Else
Logger.Info("User '" & USER_USERNAME & "' not related to a client", True) Logger.Info("User '" & USER_ID & "' not related to a client", True)
ERROR_INIT = "NO CLIENT" ERROR_INIT = "NO CLIENT"
'ERROR_STATE = "NO CLIENT" 'ERROR_STATE = "NO CLIENT"
Return False Return False
End If End If
Else Else
Logger.Info("User '" & USER_USERNAME & "' not related to a client", True) Logger.Info("User '" & USER_ID & "' not related to a client", True)
ERROR_INIT = "NO CLIENT" ERROR_INIT = "NO CLIENT"
'ERROR_STATE = "NO CLIENT" 'ERROR_STATE = "NO CLIENT"
Return False Return False
@@ -321,7 +321,7 @@ Public Class ClassInit
If USER_IN_MODULE = False Then If USER_IN_MODULE = False Then
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
Logger.Info(" - User: " & USER_USERNAME & " not related to module!", False) Logger.Info("User: " & USER_ID & " not related to module!", False)
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systemadministrator in Verbindung!") Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systemadministrator in Verbindung!")
If USER_LANGUAGE <> LANGUAGE_GERMAN Then If USER_LANGUAGE <> LANGUAGE_GERMAN Then