Imports ECM.JobRunner.Windows.Scheduler.Jobs
Imports Quartz


Namespace Scheduler.Jobs
    Public Class FileImportJob
        Inherits BaseJob
        Implements IJob

        Public Function Execute(context As IJobExecutionContext) As Task Implements IJob.Execute
            Dim oArgs = MyBase.InitializeJob(context)
            Dim oName = oArgs.Item("Name")

            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

End Namespace