Zooflow: WIP

Modules.EDMIAPI/Client.vb

@@ -150,12 +150,14 @@ Public Class Client
 
                     Dim oFileImportResponse = Await _channel.NewFileAsync(New NewFileRequest With {
                         .BusinessEntity = pBusinessEntity,
-                        .FileName = oFileInfo.Name,
-                        .FileCreatedAt = oFileCreatedAt,
-                        .FileChangedAt = oFileModifiedAt,
-                        .FileContents = oContents,
-                        .FileImportedAt = pImportOptions.DateImported,
-                        .FileChecksum = oFileHash,
+                        .File = New FileProperties With {
+                            .FileName = oFileInfo.Name,
+                            .FileCreatedAt = oFileCreatedAt,
+                            .FileChangedAt = oFileModifiedAt,
+                            .FileContents = oContents,
+                            .FileImportedAt = pImportOptions.DateImported,
+                            .FileChecksum = oFileHash
+                        },
                         .KindType = pObjectKind,
                         .StoreName = pObjectStoreName,
                         .Who = pImportOptions.Username
@@ -529,6 +531,16 @@ Public Class Client
         End Try
     End Function
 
+    Public Async Function GetDatatableByNameAsync(DatatableName As String, Optional FilterExpression As String = "", Optional SortByColumn As String = "") As Task(Of TableResult)
+        Try
+            Dim oResponse = _channel.ReturnDatatableFromCache(DatatableName, FilterExpression, SortByColumn)
+            Return oResponse
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     ''' <summary>
     ''' Return infos about a file object
     ''' </summary>