06-12-2022

ECM.JobRunner.Windows/Scheduler/Jobs/FileImportJob.vb

@@ -13,12 +13,19 @@ Namespace Scheduler.Jobs
 
             Logger.Info("Running File Import [{0}]", oName)
 
+            Dim oMax = 100
+            For index = 1 To oMax
+                UpdateProgress(index, oMax)
+                Threading.Thread.Sleep(100)
+            Next
+
             Dim oResult = New JobResult() With {
                 .Description = $"File Import Job [{oName}] completed!"
             }
 
             context.Result = oResult
 
+            CompleteJob()
             Return Task.FromResult(True)
         End Function
     End Class