61 lines
2.7 KiB
VB.net
61 lines
2.7 KiB
VB.net
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_MAN_INDEXE As DataTable
|
|
Public Property CURR_AUTO_INDEXE 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
|
|
|