MS Globix Integration 2

GUIs.ZooFlow/ClassFileDrop.vb

@@ -15,7 +15,7 @@ Public Class ClassFileDrop
             _LOGGER.Info("Available Drop Formats:")
 
             For Each oFormat As String In e.Data.GetFormats()
-                _LOGGER.Info(oFormat)
+                _LOGGER.Debug(oFormat)
             Next
 
             _LOGGER.Info(">> Drop_File")

GUIs.ZooFlow/ClassFilehandle.vb

@@ -151,7 +151,7 @@ Public Class ClassFilehandle
 
             Dim filename_only As String = Path.GetFileName(filename)
             Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "','" & filename_only & "')"
-            Return My.Database.ExecuteNonQuery(ins, True)
+            Return My.Database.ExecuteNonQuery(ins)
 
         Catch ex As Exception
             Return False

GUIs.ZooFlow/ZooFlow.vbproj

@@ -61,8 +61,8 @@
     <Reference Include="DigitalData.GUIs.Common">
       <HintPath>..\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
     </Reference>
-    <Reference Include="Independentsoft.Msg.2.0.570.21482">
+    <Reference Include="Independentsoft.Msg">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll</HintPath>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\22_11_19\Independentsoft.Msg.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.Office.Interop.Outlook, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>

GUIs.ZooFlow/frmFlowForm.vb

@@ -236,11 +236,9 @@ Public Class frmFlowForm
         Next
 
     End Function
-    Private Function FormLoaded_Visible(ByVal pFormName As String) As Boolean
+    Private Function FormLoaded_Visible() As Boolean
-
-
         For Each frm As Form In Application.OpenForms
-            If frm.Name.Equals(pFormName) Then
+            If frm.Name.Equals("frmSearchStart") Or frm.Name.Equals("frmGlobix_Index") Then
                 Me.Visible = False
                 Exit Function
             End If
@@ -258,7 +256,7 @@ Public Class frmFlowForm
     End Sub
 
     Private Sub TimerCheckActiveForms_Tick(sender As Object, e As EventArgs) Handles TimerCheckActiveForms.Tick
-        FormLoaded_Visible("frmSearchStart")
+        FormLoaded_Visible()
         If Me.Visible = False Then Exit Sub
     End Sub
 
@@ -332,7 +330,7 @@ Public Class frmFlowForm
 
             Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
             My.Application.Globix.DTACTUAL_FILES = Nothing
-            My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatable(sql, True)
+            My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatable(sql)
             My.Application.Globix.ABORT_INDEXING = False
 
             Dim oOnlyFilesFromFilesystem = True
@@ -362,18 +360,26 @@ Public Class frmFlowForm
             Show()
         Catch ex As Exception
             MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Show()
         End Try
 
     End Sub
     Sub Globix_Open_IndexDialog()
         Try
-            Hide()
+
-            IndexForm.ShowDialog()
+            'Hide()
+
+            IndexForm = New frmGlobix_Index(My.LogConfig)
+            IndexForm.Show()
+            Cursor = Cursors.Default
+            If TimerCheckActiveForms.Enabled = False Then
+                TimerCheckActiveForms.Enabled = True
+            End If
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical)
         Finally
-            Show()
+            ' Show()
         End Try
     End Sub
 End Class