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

2.4.1.7 Logging SQL from Task, replacing '

Browse Source
This commit is contained in:
SchreiberM
2020-06-05 13:49:20 +02:00
parent fcf3ad53a4
commit 386e3b62b5
25 changed files with 892 additions and 473 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -106,7 +106,7 @@ Public Class ClassInit
Dim oStopWatch As New RefreshHelper.SW("Refresh_Licence")
Try
Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim lic As String = BASEDATA_DT_CONFIG.Rows(0).Item("LIZENZEN") ' ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString)
Dim lic As String = BASEDATA_DT_CONFIG.Rows(0).Item("LIZENZEN")
Dim licString = Me._lizenzManager.DecodeLicenseKey(lic)
Dim split() = licString.ToString.Split("#")
@@ -139,7 +139,7 @@ Public Class ClassInit
Try
Dim oSQLSW As New RefreshHelper.SW("VWDD_USER_CLIENT")
Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"
DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, False)
DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, "InitUserLogin1")
oSQLSW.Done()
If DT_CLIENT_USER.Rows.Count > 1 Then
@@ -163,7 +163,7 @@ Public Class ClassInit
LOGGER.Debug("Username: " & USER_USERNAME)
Dim oFnct As New RefreshHelper.SW("FNDD_CHECK_USER_MODULE")
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql, "InitUserLogin2")
oFnct.Done()
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
@@ -233,11 +233,6 @@ Public Class ClassInit
If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then
USERCOUNT_LOGGED_IN += 1
End If
'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1)
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
'sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
'ClassDatabase.Execute_non_Query(sql, True)
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
@@ -262,28 +257,28 @@ Public Class ClassInit
Try
Dim oStopWatch As New RefreshHelper.SW("InitBasics")
Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql)
BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql, "InitBasics1")
Settings_LoadBasicConfig()
oSql = "select * from TBDD_CONNECTION WHERE AKTIV = 1"
BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql)
BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql, "InitBasics2")
oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql)
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql, "InitBasics3")
For Each oROW As DataRow In oDT.Rows
If oROW.Item("NAME") = "GDPICTURE" Then
GDPICTURE_LICENSE = oROW.Item("LICENSE")
End If
Next
oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql)
BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql, "InitBasics4")
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX")
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "InitBasics5")
BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1")
BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", "InitBasics6")
oSql = "SELECT * FROM TBPM_CHART"
BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql)
BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql, "InitBasics7")
oStopWatch.Done()
Catch ex As Exception
LOGGER.Error(ex)
@@ -296,7 +291,7 @@ Public Class ClassInit
Try
Dim oStopWatch As New RefreshHelper.SW("InitBasics2")
Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql)
BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql, "InitBasics2_1")
oStopWatch.Done()
Catch ex As Exception
LOGGER.Error(ex)
@@ -308,7 +303,7 @@ Public Class ClassInit
Private Shared Function Settings_LoadBasicConfig()
Try
Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Settings_LoadBasicConfig")
If DT.Rows.Count = 1 Then
Try
VERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")