MS Update Globix Renaming
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user