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 Private Sub frmDIHauptseite_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Formloaded = True Formloaded = True
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
If My.Settings.DI_RUNNING = True Or AUTOSTART_FIM = True Then
If AUTOSTART_FIM Then
Me.rbAutomatisch.Checked = True Me.rbAutomatisch.Checked = True
Automatischer_Durchlauf(False) Automatischer_Durchlauf(False)
_Logger.Info("Dateiimport wird gestartet.") _Logger.Info("AUTOSTART_FIM = True - Dateiimport wird gestartet.")
If My.Settings.DI_RUNNING Then ElseIf My.Settings.DI_RUNNING Then
_Logger.Info("My.Settings.DI_RUNNING = True") Me.rbAutomatisch.Checked = True
End If Automatischer_Durchlauf(False)
If AUTOSTART_FIM Then _Logger.Info("My.Settings.DI_RUNNING = True - Dateiimport wird gestartet.")
_Logger.Info("AUTOSTART_FIM = True") Else
End If _Logger.Info("Dateiimport Hauptformular wurde geladen - Dateiimport wird NICHT gestartet.")
End If End If
End Sub End Sub
#End Region #End Region

16
ToolCollection/frmNIHauptseite.vb
View File

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