EDMIService: First working version of ImportFile

2021-12-08 13:09:25 +01:00
parent d75272a17f
commit 3e5918297c
9 changed files with 180 additions and 118 deletions
--- a/GUIs.ZooFlow/frmtest.vb
+++ b/GUIs.ZooFlow/frmtest.vb
@@ -39,7 +39,12 @@ Public Class frmtest
        Dim oObjectId As Long = Await My.Application.Service.Client.ImportFileAsync(
            txtFile2Import.Text,
            txtProfileId.Text,
-            New List(Of EDMIServiceReference.UserAttributeValue),
+            New List(Of EDMIServiceReference.UserAttributeValue) From {
+                New EDMIServiceReference.UserAttributeValue With {
+                    .AttributeName = "Attribut String1",
+                    .AttributeValues = New List(Of String) From {"SchreiberM"}.ToArray
+                }
+            },
            "WORK",
            "DOC",
            "DEFAULT"