diff --git a/app/TaskFlow/ClassInit.vb b/app/TaskFlow/ClassInit.vb index 31870ac..b0a5151 100644 --- a/app/TaskFlow/ClassInit.vb +++ b/app/TaskFlow/ClassInit.vb @@ -329,9 +329,8 @@ Public Class ClassInit LOGGER.Debug("Username: " & USER_USERNAME) Dim oFnct As New RefreshHelper.SW("FNDD_LOGIN_USER_MODULE") oSQL = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED) + Dim DT_CHECKUSER_MODULE As DataTable - - DT_CHECKUSER_MODULE = DatabaseFallback.GetDatatable("TBDD_USER_MODULE", New GetDatatableOptions(oSQL, DatabaseType.ECM) With { .FilterExpression = $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'" }) diff --git a/app/TaskFlow/ClassParamRefresh.vb b/app/TaskFlow/ClassParamRefresh.vb index 152fac5..04efa2c 100644 --- a/app/TaskFlow/ClassParamRefresh.vb +++ b/app/TaskFlow/ClassParamRefresh.vb @@ -2,6 +2,7 @@ Public Class ClassParamRefresh Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable) + LOGGER.Debug("Refresh_Params starting ...") Dim oStopwatch As New RefreshHelper.SW("Refresh_Params") FORCE_LAYOUT_OVERVIEW = False SHOW_CHARTS = True @@ -28,16 +29,18 @@ Public Class ClassParamRefresh End If End If - + LOGGER.Debug("Refresh_Params BASEDATA_DT_TBDD_SQL_COMMANDS done!") If DT_CHECKUSER.Rows.Count = 1 Then If oLicenseoverSQL = False Then USERCOUNT_LOGGED_IN = DT_CHECKUSER.Rows(0).Item("USERCOUNT_LOGGED_IN") + LOGGER.Debug(String.Format("Refresh_Params USERCOUNT_LOGGED_IN {0}", USERCOUNT_LOGGED_IN.ToString)) End If Try WORKING_MODE = DT_CHECKUSER.Rows(0).Item("WORKING_MODE") + LOGGER.Debug(String.Format("Refresh_Params WORKING_MODE {0}", WORKING_MODE.ToString)) Catch ex As Exception WORKING_MODE = "" End Try @@ -47,6 +50,7 @@ Public Class ClassParamRefresh If ADDITIONAL_TITLE = String.Empty Then ADDITIONAL_TITLE = My.Application.Info.ProductName End If + LOGGER.Debug(String.Format("Refresh_Params ADDITIONAL_TITLE {0}", ADDITIONAL_TITLE.ToString)) Catch ex As Exception ADDITIONAL_TITLE = My.Application.Info.ProductName End Try