EDMI: Client Server Changes to prepare for initial Release

GUIs.ZooFlow/frmtest.vb

@@ -96,20 +96,23 @@ Public Class frmtest
     End Sub
 
     Private Async Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
-        Dim oResult As Long = Await My.Application.Service.Client.NewFileAsync(
+        Dim oObjectId As Long = Await My.Application.Service.Client.NewFileAsync(
             txtFile2Import.Text,
             "WORK",
             "DOC",
             "DEFAULT",
             New NewFileOptions With {
-                .KeepExtension = CheckBoxKeepExtension.Checked,
                 .Username = Environment.UserName,
                 .DateImported = DateTimePicker1.Value
             }
         )
 
-        txtIDB_OBJ_ID.Text = oResult
-        MsgBox("File Imported!")
+        If oObjectId <> INVALID_OBEJCT_ID Then
+            MsgBox("File Imported!", MsgBoxStyle.Information, Text)
+        Else
+            MsgBox("File was not imported. Check the server logs!")
+        End If
+        txtIDB_OBJ_ID.Text = oObjectId
     End Sub
 
     Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load