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 AUTOSTART_FIM As Boolean = False
Public AUTOSTART_FIH As Boolean = False
Public CURRENT_STATE As String = ""
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
Formloaded = True
Me.LoadProfilesInCombobox()
If My.Settings.DI_RUNNING = True Then
If My.Settings.DI_RUNNING = True Or AUTOSTART_FIM = True 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
End If
End Sub
#End Region

16
ToolCollection/frmNIHauptseite.vb
View File

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

22
ToolCollection/frmStart.vb
View File

@ -133,6 +133,28 @@ Public Class frmStart
_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
'Delete_LogFiles()