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
Download Patch File Download Diff File Expand all files Collapse all files

14
Global_Indexer/frmStart.vb
View File

@@ -509,13 +509,19 @@ Public Class frmStart
If FW_started = True Or CONFIG.Config.FolderWatchScanStarted = True Then
'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 & "')"
DTACTUAL_FILES = DATABASE_ECM.GetDatatable(sql)
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(oSql)
If DTACTUAL_FILES.Rows.Count > 0 Then
ABORT_INDEXING = False
' Dim fil As String
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
Dim FILEGUID = row.Item("GUID")
If ABORT_INDEXING = True Then
@@ -534,7 +540,7 @@ Public Class frmStart
Open_IndexDialog()
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)
DATABASE_ECM.ExecuteNonQuery(del)
End If