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

MS MassChange

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-06-08 10:13:00 +02:00
parent 2337a2954a
commit bce977a043
18 changed files with 2600 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -83,12 +83,13 @@ Public Class ClassInit
Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE LOWER(USERNAME) = LOWER('{0}')", Environment.UserName)
ClassLogger.Add(">> Username: " & USER_USERNAME, False)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
CURRENT_USER_ID = dt.Rows(0).Item("GUID")
CURRENT_USER_SURNAME = dt.Rows(0).Item("NAME")
CURRENT_USER_PRENAME = dt.Rows(0).Item("PRENAME")
CURRENT_USER_SHORTNAME = dt.Rows(0).Item("SHORTNAME")
CURRENT_USER_EMAIL = dt.Rows(0).Item("EMAIL")
Dim dtUser As DataTable = ClassDatabase.Return_Datatable(sql)
CURRENT_USER_ID = dtUser.Rows(0).Item("GUID")
CURRENT_USER_SURNAME = dtUser.Rows(0).Item("NAME")
CURRENT_USER_PRENAME = dtUser.Rows(0).Item("PRENAME")
CURRENT_USER_SHORTNAME = dtUser.Rows(0).Item("SHORTNAME")
CURRENT_USER_EMAIL = dtUser.Rows(0).Item("EMAIL")
CURRENT_USER_LANGUAGE = dtUser.Rows(0).Item("LANGUAGE")
If IsDBNull(CURRENT_USER_ID) Or IsNothing(CURRENT_USER_ID) Then
USER_EXISTS = False
@@ -139,6 +140,9 @@ Public Class ClassInit
Try
Dim sql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(sql)
sql = "select * from TBDD_CONNECTION"
CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(sql)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InitBasics: " & ex.Message, True)
ERROR_STATE = "Basics not initialized"