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

MS

Browse Source
This commit is contained in:
SchreiberM
2022-07-19 11:20:12 +02:00
parent 5540eef4ad
commit 44af23824c
4 changed files with 8 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -353,30 +353,6 @@ Public Class ClassInit
End Try
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
'If Not IsNothing(BASEDATA_DT_TBDD_SQL_COMMANDS) Then
' If BASEDATA_DT_TBDD_SQL_COMMANDS.Rows.Count > 0 Then
' For Each oRow As DataRow In BASEDATA_DT_TBDD_SQL_COMMANDS.Rows
' If oRow.Item("TITLE") = "LICENSE_COUNT_PM" Then
' oSQL = oRow.Item("SQL_COMMAND")
' Dim oResult = _Client.GetScalarValueFromECM(oSQL)
' If oResult.OK Then
' USERCOUNT_LOGGED_IN = oResult.Scalar
' Else
' USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
' End If
' End If
' Next
' Else
' LOGGER.Warn("BASEDATA_DT_TBDD_SQL_COMMANDS.Rows = 0!")
' USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
' End If
'Else
' LOGGER.Warn("BASEDATA_DT_TBDD_SQL_COMMANDS is nothing!")
' USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
'End If
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)