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

Logik verbessert für Autostart von Dateiimport und Nachindexierung - frmDIHauptseite, frmNIHauptseite

Browse Source
This commit is contained in:
OlgunR 2025-08-27 15:39:33 +02:00
parent b943765a16
commit a539adfee3
2 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ToolCollection/frmDIHauptseite.vb
View File

@ -239,16 +239,17 @@ Public Class frmDIHauptseite
Private Sub frmDIHauptseite_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Formloaded = True
Me.LoadProfilesInCombobox()
If My.Settings.DI_RUNNING = True Or AUTOSTART_FIM = True Then
If AUTOSTART_FIM Then
Me.rbAutomatisch.Checked = True
Automatischer_Durchlauf(False)
_Logger.Info("Dateiimport wird gestartet.")
If My.Settings.DI_RUNNING Then
_Logger.Info("My.Settings.DI_RUNNING = True")
End If
If AUTOSTART_FIM Then
_Logger.Info("AUTOSTART_FIM = True")
End If
_Logger.Info("AUTOSTART_FIM = True - Dateiimport wird gestartet.")
ElseIf My.Settings.DI_RUNNING Then
Me.rbAutomatisch.Checked = True
Automatischer_Durchlauf(False)
_Logger.Info("My.Settings.DI_RUNNING = True - Dateiimport wird gestartet.")
Else
_Logger.Info("Dateiimport Hauptformular wurde geladen - Dateiimport wird NICHT gestartet.")
End If
End Sub
#End Region

16
ToolCollection/frmNIHauptseite.vb
View File

@ -113,18 +113,16 @@ Public Class frmNIHauptseite
_MyLogger.Debug = False
End If
If My.Settings.NI_RUNNING = True Or AUTOSTART_FIH = True Then
If AUTOSTART_FIH Then
Start_NachindexierungThreads()
_Logger.Info("Nachindexierungslauf wird gestartet.")
If My.Settings.NI_RUNNING Then
_Logger.Info("My.Settings.NI_RUNNING = True")
End If
If AUTOSTART_FIH Then
_Logger.Info("AUTOSTART_FIH = True")
End If
_Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.")
ElseIf My.Settings.NI_RUNNING Then
Start_NachindexierungThreads()
_Logger.Info("My.Settings.NI_RUNNING = True - Nachindexierung wird gestartet.")
Else
_Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
_Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
End If
End Sub
Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load
'Try