MS Update Globix Renaming

This commit is contained in:
Developer01
2024-09-23 17:14:28 +02:00
parent ad46bae4f4
commit d903658c13
17 changed files with 88 additions and 93 deletions

View File

@@ -47,7 +47,7 @@ Public Class frmStart
Cursor = Cursors.WaitCursor
Try
IndexForm = New frmIndex()
FileDrop = New FileDrop(LOGCONFIG, "GLOBIX")
FileDrop = New FileDrop(LOGCONFIG, "fileFLOW")
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
@@ -131,7 +131,7 @@ Public Class frmStart
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
If START_INCOMPLETE = False Then
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'fileFLOW'"
DATABASE_ECM.ExecuteNonQuery(Sql)
End If
ClassWindowLocation.SaveFormLocationSize(Me)
@@ -513,11 +513,11 @@ Public Class frmStart
If DTACTUAL_FILES.Rows.Count > 0 Then
ABORT_INDEXING = False
Me.TimerFolderWatch.Stop()
If LOGCONFIG.Debug And DebugDisplay = False Then
If LOGCONFIG.Debug Then
Clipboard.Clear()
Clipboard.SetText(oSql, TextDataFormat.Text)
DebugDisplay = True
MsgBox("DEBUG - Check TBGI_FILES_USER if necessary. Command copied to Clipboard")
'MsgBox("DEBUG - Check TBGI_FILES_USER if necessary. Command copied to Clipboard")
End If
For Each oRow As DataRow In DTACTUAL_FILES.Rows