DiskussionWorkerClass

GUIs.ClientSuite/Workers/WorkerManager.vb

@@ -10,7 +10,8 @@ Namespace Workers
         ''' List of workers that will be started.
         ''' </summary>
         Private WorkerTypes As New List(Of Type) From {
-            GetType(HeartbeatWorker)
+            GetType(HeartbeatWorker),
+            GetType(WorkflowOverviewWorker)
         }
         Private Workers As New List(Of IWorker)
         Private TimerList As New List(Of Timer)

GUIs.ClientSuite/Workers/WorkflowOverviewWorker.vb

@@ -3,7 +3,7 @@ Imports DigitalData.GUIs.ClientSuite.Base
 Imports DigitalData.Modules.Logging
 
 Namespace Workers
-    Public Class WorkflowWorker
+    Public Class WorkflowOverviewWorker
         Inherits BaseClass
         Implements IWorker
 
@@ -21,7 +21,10 @@ Namespace Workers
             Throw New NotImplementedException()
         End Sub
 
-        Public Sub Callback(manager As WorkerManager, e As ElapsedEventArgs) Implements IWorker.Callback
+        Public Async Sub Callback(manager As WorkerManager, e As ElapsedEventArgs) Implements IWorker.Callback
+            Dim oSQL = $""
+            Await My.Channel.CreateDatabaseRequestAsync("Get WFOverview", True)
+
             Throw New NotImplementedException()
         End Sub
     End Class