EDMIService: Add GetCachedTables

Service.EDMIService/GlobalState.vb

@@ -33,6 +33,22 @@ Public Class GlobalState
             FirstOrDefault()
     End Function
 
+    Public Function GetCachedTables() As List(Of String)
+        Try
+            Dim oTables As DataTableCollection = TableStore.Tables
+            Dim oList As New List(Of String)
+
+            For Each oTable As DataTable In oTables
+                oList.Add(oTable.TableName)
+            Next
+
+            Return oList
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Return New List(Of String)
+        End Try
+    End Function
+
     Public Function GetConnectionString(pConnectionId As Long) As String
         Dim oConnection = GetConnection(pConnectionId)
         Dim oBuilder As New SqlConnectionStringBuilder With {