EDMI: Fix DoctypeId Parameter

GUIs.ZooFlow/frmtest.Designer.vb

@@ -75,7 +75,7 @@ Partial Class frmtest
         Me.btnNewFile.Name = "btnNewFile"
         Me.btnNewFile.Size = New System.Drawing.Size(187, 23)
         Me.btnNewFile.TabIndex = 17
-        Me.btnNewFile.Text = "NewFile"
+        Me.btnNewFile.Text = "ImportFile (IDB/FileImporter)"
         Me.btnNewFile.UseVisualStyleBackColor = True
         '
         'Label4

GUIs.ZooFlow/frmtest.vb

@@ -2,8 +2,6 @@
 Imports DigitalData.Modules.Base.IDB.FileStore
 
 Public Class frmtest
-
-
     Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cmbObjectStoreType.SelectedIndex = 0
     End Sub
@@ -15,23 +13,33 @@ Public Class frmtest
     End Sub
 
     Private Async Sub btnNewFile_Click(sender As Object, e As EventArgs) Handles btnNewFile.Click
-        Dim oObjectId As Long = Await My.Application.Service.Client.NewFileAsync(
+        Dim oResponse As ImportFileResponse = Await My.Application.Service.Client.ImportFileAsync(
             txtFile2Import.Text,
-            "WORK",
+            New List(Of UserAttributeValue) From {
+                New UserAttributeValue With {
+                    .Name = "Attribut String1",
+                    .Values = New List(Of String) From {"Harry"}.ToArray
+                },
+                New UserAttributeValue With {
+                    .Name = "DisplayFileName",
+                    .Values = New List(Of String) From {"DN Textdokument"}.ToArray
+                }
+            },
+            "Work",
             "DOC",
-            "DEFAULT"
+            txtDoctypeID.Text
         )
 
-        If oObjectId <> FILE_STORE_INVALID_OBEJCT_ID Then
+        If oResponse.OK Then
             MsgBox("File Imported!", MsgBoxStyle.Information, Text)
+            txtIDB_OBJ_ID.Text = oResponse.ObjectId
         Else
-            MsgBox("File was not imported. Check the server logs!")
+            MsgBox("File was not imported. Check the server logs!", MsgBoxStyle.Critical, Text)
         End If
-        txtIDB_OBJ_ID.Text = oObjectId
     End Sub
 
     Private Async Sub btnImportFile_Click_(sender As Object, e As EventArgs) Handles btnImportFile.Click
-        Dim oResponse As ImportFileResponse = Await My.Application.Service.Client.Globix_ImportFileAsync(
+        Dim oResponse As Globix_ImportFileResponse = Await My.Application.Service.Client.Globix_ImportFileAsync(
             txtFile2Import.Text,
             txtProfileId.Text,
             New List(Of UserAttributeValue) From {