NOMATCHINFO_BUG

This commit is contained in:
2021-01-13 15:37:19 +01:00
parent 3b08d713f3
commit 165bba1aeb
3 changed files with 4 additions and 8 deletions

View File

@@ -36,12 +36,6 @@ Public Class ClassDataASorDB
Dim DT_CHECKUSER_MODULE As DataTable
DT_CHECKUSER_MODULE = GetDatatable(oSql, "TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'CW'", "", "")
'If APPSERVER_ACTIVE = True Then
' Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'CW'")
' DT_CHECKUSER_MODULE = oTableResult.Table
'Else
' DT_CHECKUSER_MODULE = Database.GetDatatable(oSql)
'End If
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
'ERROR_STATE = "NO USER"
@@ -91,7 +85,7 @@ Public Class ClassDataASorDB
HotkeySearchKey = oResult
HotkeySearchKey_via_Server = True
Catch ex As Exception
NOMATCH_INFO = "d"
HotkeySearchKey_via_Server = "d"
End Try
Else