Zooflow: WIP Client

GUIs.ZooFlow/frmtest.vb

@@ -3,6 +3,7 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.EDMI.API
 Imports System.IO
 Imports System.Text
+Imports DigitalData.Modules.EDMI.API.Client
 
 Public Class frmtest
     'Private Sub Button1_Click(sender As Object, e As EventArgs)
@@ -97,12 +98,12 @@ Public Class frmtest
     Private Async Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
         Dim oResult As Long = Await My.Application.Service.Client.NewFileAsync(
             txtFile2Import.Text,
-            Environment.UserName,
-            DateTimePicker1.Value,
-            cmbObjectStoreType.Text,
+            "WORK",
             "DEFAULT",
-            New Client.NewFileOptions With {
-                .KeepExtension = CheckBoxKeepExtension.Checked
+            New NewFileOptions With {
+                .KeepExtension = CheckBoxKeepExtension.Checked,
+                .Username = Environment.UserName,
+                .DateImported = DateTimePicker1.Value
             }
         )
 
@@ -113,4 +114,19 @@ Public Class frmtest
     Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cmbObjectStoreType.SelectedIndex = 0
     End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Try
+            Dim oValue = My.Application.Service.Client.GetVariableValue(txtIDB_OBJ_ID.Text, txtAttributeName.Text)
+
+            If oValue.Type Is Nothing Then
+                ListBox1.Items.Add("Value is nothing")
+            Else
+                ListBox1.Items.Add(oValue.Value)
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.ToString)
+        End Try
+    End Sub
 End Class