EDMI: final changes to Client

Service.EDMIService/GlobalState.vb

@@ -43,6 +43,12 @@ Public Class GlobalState
         End Try
     End Sub
 
+    Public Function GetObjectStore(Name As String) As ObjectStore
+        Return ObjectStores.
+            Where(Function(o) o.Title.ToUpper = Name.ToUpper).
+            FirstOrDefault()
+    End Function
+
     Class ObjectStore
         Public Id As Long
         Public Title As String