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

Atuostart Dateiimport und Autostart Nachindexierung - frmDIHauptseite, frmNIHauptseite, frmStart, ModuleCURRENT

Browse Source
This commit is contained in:
OlgunR 2025-08-27 13:02:14 +02:00
parent edf172e034
commit b943765a16
4 changed files with 43 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ToolCollection/ModuleCURRENT.vb
View File

@ -6,6 +6,9 @@ Module ModuleCURRENT
Public NI_OPENED As Boolean = False Public NI_OPENED As Boolean = False
Public AUTOSTART_FIM As Boolean = False
Public AUTOSTART_FIH As Boolean = False
Public CURRENT_STATE As String = "" Public CURRENT_STATE As String = ""
Public DI_PAGECOUNT As Integer Public DI_PAGECOUNT As Integer

9
ToolCollection/frmDIHauptseite.vb
View File

@ -239,9 +239,16 @@ 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 Then If My.Settings.DI_RUNNING = True Or AUTOSTART_FIM = True Then
Me.rbAutomatisch.Checked = True Me.rbAutomatisch.Checked = True
Automatischer_Durchlauf(False) 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
End If End If
End Sub End Sub
#End Region #End Region

16
ToolCollection/frmNIHauptseite.vb
View File

@ -113,12 +113,17 @@ Public Class frmNIHauptseite
_MyLogger.Debug = False _MyLogger.Debug = False
End If End If
If My.Settings.NI_RUNNING = True Then If My.Settings.NI_RUNNING = True Or AUTOSTART_FIH = True Then
_Logger.Info("Nachindexierungslauf wird wieder gestartet - My.Settings.NI_RUNNING = True")
Start_NachindexierungThreads() 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
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
@ -2818,7 +2823,6 @@ Public Class frmNIHauptseite
Else Else
TimerRefresh.Stop() TimerRefresh.Stop()
End If End If
manuallyRun = True
If Me.btnStartStop.Text = "Nachindexierung stoppen" Then If Me.btnStartStop.Text = "Nachindexierung stoppen" Then
If timRun.Enabled = True Then If timRun.Enabled = True Then
timRun.Stop() timRun.Stop()
@ -2826,7 +2830,7 @@ Public Class frmNIHauptseite
Abbruch_NI("Manueller Abbruch 1 durch User " & Environment.UserName, False, False) Abbruch_NI("Manueller Abbruch 1 durch User " & Environment.UserName, False, False)
Me.btnStartStop.Text = "Nachindexierung starten" Me.btnStartStop.Text = "Nachindexierung starten"
Else Else
Me.btnStartStop.Text = "Nachindexierung stoppen" Me.btnStartStop.Text = "Nachindexierung stoppen"
Start_NachindexierungThreads() Start_NachindexierungThreads()
End If End If
manuallyRun = False manuallyRun = False

22
ToolCollection/frmStart.vb
View File

@ -133,6 +133,28 @@ Public Class frmStart
_Instance = Me _Instance = Me
'For Each arg As String In My.Application.CommandLineArgs
' Select Case arg.ToLower()
' Case "/startfim"
' _Logger.Info("Autostart: Module FIM wird gestartet.")
' ' Modul FIM starten oder Flag setzen
' frmNIHauptseite.Start_NachindexierungThreads()
' Case "/startfih"
' _Logger.Info("Autostart: Module FIH wird gestartet.")
' ' Modul FIH starten oder Flag setzen
' frmDIHauptseite.Automatischer_Durchlauf(True)
' End Select
'Next
For Each arg As String In My.Application.CommandLineArgs
Select Case arg.ToLower()
Case "/startfim"
AUTOSTART_FIM = True 'Dateiimport
Case "/startfih"
AUTOSTART_FIH = True 'Nachindexierung
End Select
Next
Try Try
'Delete_LogFiles() 'Delete_LogFiles()