MS Globix Integration

GUIs.ZooFlow/Globix/State.vb

@@ -1,9 +1,40 @@
 Namespace Globix
     Public Class State
         Public Property DT_FUNCTION_REGEX As DataTable
+        Public Property DTACTUAL_FILES As DataTable
+        Public Property DTTBGI_REGEX_DOCTYPE As DataTable
         Public Property REGEX_CLEAN_FILENAME As String = "[?*^""<>|]"
         Public Property TEMP_FILES As List(Of String) = New List(Of String)
         Public Property CurrMessageID As String
+        Public Property CURRENT_FILENAME As String
+        Public Property CURRENT_WORKFILE_GUID As Long
+        Public Property CURRENT_WORKFILE As String
+        Public Property ABORT_INDEXING As Boolean = False
+        Public Property INDEXING_ACTIVE As Boolean = False
+        Public Property CURRENT_ISATTACHMENT As Boolean = False
+        Public Property CURR_DELETE_ORIGIN As Boolean = False
+        Public Property CURRENT_DROPTYPE As String
+        Public Property MULTIINDEXING_ACTIVE As Boolean = False
+        Public Function FileExistsinDropTable(Filename As String) As Boolean
+            Dim oSQL As String
+            Try
+                If Filename.Contains("'") Then
+                    Filename = Filename.Replace("'", "''")
+                End If
+                oSQL = "SELECT COUNT(*) FROM TBGI_FILES_USER WHERE UPPER(FILENAME2WORK) = UPPER('" & Filename & "') AND WORKED = 0"
+                Dim result = My.Database.GetScalarValue(oSQL)
+                If result >= 1 Then
+                    result = True
+                Else
+                    result = False
+                End If
+                Return result
+            Catch ex As Exception
+                MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
+                Return Nothing
+            End Try
+
+        End Function
     End Class
 End Namespace