AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Debug Folderwatch

Browse Source
This commit is contained in:
SchreiberM 2024-06-11 16:23:04 +02:00
parent ef804638b3
commit daa89b0535
5 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Global_Indexer/ClassFileHandler.vb
View File

@ -57,6 +57,7 @@ Public Class ClassFileHandler
Public Function Decide_FileHandle(pFilepath As String, pHandletype As String) As Boolean Public Function Decide_FileHandle(pFilepath As String, pHandletype As String) As Boolean
Try Try
Logger.Info($"Decide_FileHandle - pFilepath: {pFilepath} - pHandletype: {pHandletype}")
''TODO: Before doing anything, clean the filename ''TODO: Before doing anything, clean the filename
'Dim oFilename = IO.Path.GetFileName(pFilepath) 'Dim oFilename = IO.Path.GetFileName(pFilepath)
'Dim oCleanFileName = Utils.RemoveInvalidCharacters(oFilename) 'Dim oCleanFileName = Utils.RemoveInvalidCharacters(oFilename)

3
Global_Indexer/ClassInit.vb
View File

@ -221,8 +221,7 @@ Public Class ClassInit
oHandleType = "|FW_SIMPLEINDEXER|" oHandleType = "|FW_SIMPLEINDEXER|"
End If End If
'Die Datei übergeben 'Die Datei übergeben
LOGGER.Info(">> OnCreated-File:" & e.FullPath) LOGGER.Info(">> Adding file from Hotfolder (OnCreated):" & e.FullPath)
If ClassIndexFunctions.CheckDuplicateFiles(Form, e.FullPath, "FolderWatch/Scan") Then If ClassIndexFunctions.CheckDuplicateFiles(Form, e.FullPath, "FolderWatch/Scan") Then
FILE_HANDLER.Decide_FileHandle(e.FullPath, oHandleType) FILE_HANDLER.Decide_FileHandle(e.FullPath, oHandleType)
End If End If

1
Global_Indexer/ModuleRuntime.vb
View File

@ -29,4 +29,5 @@ Module ModuleRuntime
Public Property DATABASE_ECM As MSSQLServer Public Property DATABASE_ECM As MSSQLServer
Public Property DATABASE_IDB As MSSQLServer Public Property DATABASE_IDB As MSSQLServer
Public Property DebugDisplay As Boolean = False
End Module End Module

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -14,7 +14,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")> <Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("File Flow")> <Assembly: AssemblyProduct("File Flow")>
<Assembly: AssemblyCopyright("Copyright © 2023")> <Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("2.6.7.1")> <Assembly: AssemblyTrademark("2.6.7.1")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.6.7.1")> <Assembly: AssemblyVersion("2.6.7.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

14
Global_Indexer/frmStart.vb
View File

@ -509,13 +509,19 @@ Public Class frmStart
If FW_started = True Or CONFIG.Config.FolderWatchScanStarted = True Then If FW_started = True Or CONFIG.Config.FolderWatchScanStarted = True Then
'Prüfen ob alle Files abgearbeitet wurden 'Prüfen ob alle Files abgearbeitet wurden
Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" Dim oSql = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND USER@WORK = '{Environment.UserName}'"
DTACTUAL_FILES = DATABASE_ECM.GetDatatable(sql) DTACTUAL_FILES = DATABASE_ECM.GetDatatable(oSql)
If DTACTUAL_FILES.Rows.Count > 0 Then If DTACTUAL_FILES.Rows.Count > 0 Then
ABORT_INDEXING = False ABORT_INDEXING = False
' Dim fil As String
Me.TimerFolderWatch.Stop() Me.TimerFolderWatch.Stop()
If LOGCONFIG.Debug And DebugDisplay = False Then
Clipboard.Clear()
Clipboard.SetText(oSql, TextDataFormat.Text)
DebugDisplay = True
MsgBox("DEBUG - Check TBGI_FILES_USER if necessary. Command copied to Clipboard")
End If
For Each row As DataRow In DTACTUAL_FILES.Rows For Each row As DataRow In DTACTUAL_FILES.Rows
Dim FILEGUID = row.Item("GUID") Dim FILEGUID = row.Item("GUID")
If ABORT_INDEXING = True Then If ABORT_INDEXING = True Then
@ -534,7 +540,7 @@ Public Class frmStart
Open_IndexDialog() Open_IndexDialog()
Else Else
LOGGER.Info(">> File not existing - Row will be deleted!") LOGGER.Info($">> File [{FileForWork}] not existing - row from TBGI_FILES_USER will be deleted!")
Dim del = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID) Dim del = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID)
DATABASE_ECM.ExecuteNonQuery(del) DATABASE_ECM.ExecuteNonQuery(del)
End If End If