fix first call of EDMIService
This commit is contained in:
@@ -251,7 +251,7 @@ Public Class ClassInit
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Async Function InitUserLogin(Optional _User As String = "") As Task(Of Boolean)
|
||||
Public Function InitUserLogin(Optional _User As String = "") As Boolean
|
||||
Try
|
||||
If _User = "" Then
|
||||
USER_USERNAME = Environment.UserName
|
||||
@@ -263,7 +263,7 @@ Public Class ClassInit
|
||||
Return False
|
||||
End If
|
||||
If APPSERVER_ACTIVE = True Then
|
||||
Dim oTableResult As TableResult = Await _Client.GetDatatableByNameAsync("VWDD_USER_CLIENT", $"USER_ID = {USER_ID}")
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("VWDD_USER_CLIENT", $"USER_ID = {USER_ID}")
|
||||
|
||||
DT_CLIENT_USER = oTableResult.Table
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user