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 CURRENT_WORKFILE_EXTENSION As String
        Public Property CURRENT_NEWFILENAME As String
        Public Property CURRENT_DOC_ID As Long
        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 CURRENT_LASTDOCTYPE As String
        Public Property CURRENT_DOCTYPE_ID As Int16
        Public Property CURRENT_DOCTYPE_DuplicateHandling As String
        Public Property MULTIINDEXING_ACTIVE As Boolean = False
        Public Property ECMDirect As Boolean = True
        Public Property CURRENT_PROFILE_LOG_INDEX As String
        Public Property ShowIndexResult As Boolean = True
        Public Property CURR_DT_MAN_INDEXE As DataTable
        Public Property CURR_DT_AUTO_INDEXE As DataTable
        Public Property CURR_DT_DOCTYPE As DataTable
        Public Property CURR_INDEX_MAN_POSTPROCESSING As DataTable
        Public Property FILE_DELIMITER As String
        Public Property VERSION_DELIMITER As String
        Public Property CURRENT_MESSAGEID As String
        Public Property CURRENT_BusinessEntity As String

        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