jj appserv

Modules.EDMIAPI/Client.vb

@@ -131,10 +131,25 @@ Public Class Client
         End Try
     End Function
 
+    Public Async Function GetDatatableByNameAsync(DatatableName As String) As Task(Of DataTable)
+        Try
+            Dim oResponse = Await _channel.ReturnDatatableFromCacheAsync(DatatableName)
+
+            If oResponse.OK Then
+                Return oResponse.Table
+            Else
+                Return Nothing
+            End If
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     ''' <summary>
     ''' Aborts the channel and creates a new connection
     ''' </summary>
-    Private Sub Reconnect()
+    Public Sub Reconnect()
         _logger.Warn("Connection faulted. Trying to reconnect..")
 
         Try