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

WIP: first pass of depending controls

Browse Source
This commit is contained in:
Jonathan Jenne
2020-02-10 17:09:14 +01:00
parent ee404100a4
commit acf61c9ca5
12 changed files with 275 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Global_Indexer/ClassInit.vb
View File

@@ -214,11 +214,16 @@ Public Class ClassInit
Exit Sub
End Try
sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & USER_ID
USER_SHORT_NAME = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If IsNothing(USER_SHORT_NAME) Or IsDBNull(USER_SHORT_NAME) Then
USER_SHORT_NAME = ""
Dim oUserDatatable As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBDD_USER WHERE GUID = {USER_ID}")
If Not IsNothing(oUserDatatable) AndAlso Not IsDBNull(oUserDatatable.Rows.Item(0)) Then
Dim oRow As DataRow = oUserDatatable.Rows.Item(0)
USER_SHORT_NAME = NotNull(oRow.Item("SHORTNAME"), String.Empty)
USER_PRENAME = NotNull(oRow.Item("PRENAME"), String.Empty)
USER_SURNAME = NotNull(oRow.Item("NAME"), String.Empty)
USER_EMAIL = NotNull(oRow.Item("EMAIL"), String.Empty)
USER_USERNAME = NotNull(oRow.Item("USERNAME"), String.Empty)
End If
'Check_User_Exists_in_GIGroups()
sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)