EDMI: final changes to Client

This commit is contained in:
Jonathan Jenne
2021-06-29 11:22:19 +02:00
parent 54c96b0b1f
commit 5658c233ee
6 changed files with 19 additions and 12 deletions

View File

@@ -581,10 +581,7 @@ Public Class EDMIService
Public Function ImportFileIntoFileObject(Data As ImportFileIntoFileObjectRequest) As ImportFileIntoFileObjectResponse Implements IEDMIService.ImportFileIntoFileObject
Try
Dim oObjectStore = GlobalState.ObjectStores.
Where(Function(o) o.Title = Data.ObjectStoreType).
FirstOrDefault()
Dim oObjectStore = GlobalState.GetObjectStore(Data.ObjectStoreType)
If oObjectStore Is Nothing Then
Throw New KeyNotFoundException($"ObjectStore [{Data.ObjectStoreType}] was not found.")
End If

View File

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