16-12-2022

2022-12-16 15:59:26 +01:00
parent 63edd9e542
commit 45f8dd2aad
32 changed files with 431 additions and 276 deletions
--- a/ECM.JobRunner.Windows/State.vb
+++ b/ECM.JobRunner.Windows/State.vb
@@ -39,15 +39,26 @@ Public Class State
        LoadData()
    End Sub

-    Private Sub LoadData()
+    Public Sub ReloadTypes()
        _JobTypes = GetJobTypes()
        _ObjectTypes = GetObjectTypes()
+    End Sub

+    Public Sub ReloadJobs()
        _JobDefinitions = GetJobDefinitions(_JobTypes)
+    End Sub
+
+    Public Sub ReloadProfiles()
        _ProfileDefintions.ImportProfileSteps = GetImportProfileSteps()
        _ProfileDefintions.ImportProfiles = GetImportProfiles()
    End Sub

+    Private Sub LoadData()
+        ReloadTypes()
+        ReloadJobs()
+        ReloadProfiles()
+    End Sub
+
    Private Function GetObjectTypes() As List(Of ObjectType)
        Dim oObjectTypes As New List(Of ObjectType)
        Try