DiskussionWorkerClass

GUIs.ClientSuite/ClientSuite.vbproj

@@ -196,7 +196,7 @@
     <Compile Include="Workers\HeartbeatWorker.vb" />
     <Compile Include="Workers\IWorker.vb" />
     <Compile Include="Workers\WorkerManager.vb" />
-    <Compile Include="Workers\WorkflowWorker.vb" />
+    <Compile Include="Workers\WorkflowOverviewWorker.vb" />
     <Compile Include="_TEST\DockManagerTest.Designer.vb">
       <DependentUpon>DockManagerTest.vb</DependentUpon>
     </Compile>

GUIs.ClientSuite/FormWorkflow/frmWorkflowStep.vb

@@ -24,8 +24,10 @@ Public Class frmWorkflowStep
 
     Private Async Function GetRequestData(RequestId) As Task
         Await My.Channel.CreateDatabaseRequestAsync("Get Request Data", True)
-        Dim oSQL = $"SELECT PROCESS_NAME, TITLE, FORM_ID FROM VWIDB_WF_REQUEST WHERE RECORD_ID = {RequestId}"
+        Dim oSQL = $"SELECT RECORD_ID,PROCESS_NAME, REQUESTTITLE, FORM_ID FROM VWIDB_PROCESS_REQUEST WHERE REQUESTID = {RequestId}"
+        If My.Application.Service.Online = False Then
 
+        End If
         Dim oResult = Await My.Channel.ReturnDatatableAsync(oSQL)
 
         If Not oResult.OK Then

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

GUIs.ClientSuite/frmMain.vb

@@ -9,7 +9,6 @@ Imports DigitalData.Modules.License
 
 Public Class frmMain
     Private _PanelManager As PanelManager
-    Private _Timer As ClassTimer
     Private _WorkerManager As WorkerManager
     Private _Loading As Boolean = True
 
@@ -38,6 +37,10 @@ Public Class frmMain
     End Sub
 
     Private Sub HandleOnlineChanged(sender As Object, Online As Boolean)
+        If Online = False Then
+
+            Application.Exit()
+        End If
         SetOnlineLabel(Online)
     End Sub
 

Variables/CurrentApplication.vb

@@ -1,3 +1,3 @@
 Public Class CurrentApplication
-
+    Public IDBServiceOnline As Boolean = False
 End Class