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

MS

Browse Source
This commit is contained in:
SchreiberM
2017-02-01 12:33:22 +01:00
parent 877eaa2411
commit 5023a28d75
52 changed files with 7752 additions and 3992 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD-Record-Organiser/ClassInit.vb
View File

@@ -127,7 +127,7 @@ Public Class ClassInit
Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME)
ClassLogger.Add(">> Login at: " & Now.ToString, False)
ClassLogger.Add(">> Username: " & USER_USERNAME, False)
Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql, False)
Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
If USER_DT.Rows.Count = 0 Then
ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!", False)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
@@ -141,6 +141,7 @@ Public Class ClassInit
USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
USER_WAN = USER_DT.Rows(0).Item("WAN_ENVIRONMENT") 'ClassDatabase.Execute_Scalar("SELECT WAN_ENVIRONMENT FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
clsCURRENT.USER_LANGUAGE = USER_LANGUAGE
USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT")
USER_GENERAL_VIEWER = USER_DT.Rows(0).Item("GENERAL_VIEWER")
'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
@@ -193,28 +194,14 @@ Public Class ClassInit
If USER_USERNAME <> "" Then
InitUserLogin(USER_USERNAME)
End If
Else
If USER_USERNAME.ToUpper <> Environment.UserName.ToUpper Then
If clsWindream.PMO_CREATE_PERSONIFIED_LOGIN = False Then
ClassLogger.Add(" Could not create the personified login for windream!")
End If
Else
If clsWindream.Create_Session = False Then
ClassLogger.Add("Could not create the login for windream!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session")
End If
End If
End If
Else
If clsWindream.Create_Session = False Then
ClassLogger.Add("Could not create the login for windream!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session")
End If
End If
If clsWindream.Create_Session = False Then
ClassLogger.Add("Could not create the login for windream!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session")
End If
sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('RECORD_ORGANIZER') AND CLIENT_ID = {0}", CLIENT_SELECTED)
Dim anzahl = ClassDatabase.Execute_Scalar(sql, False)
USERS_LOGGED_IN = CInt(anzahl)