fix first call of EDMIService

This commit is contained in:
Jonathan Jenne
2020-12-17 16:26:14 +01:00
parent 73679224f8
commit 448410fb29
6 changed files with 32 additions and 10 deletions

View File

@@ -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