32 lines
908 B
VB.net
32 lines
908 B
VB.net
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports ECM.JobRunner.Windows.Scheduler
|
|
Imports System.Runtime.Serialization
|
|
|
|
Public Class RunJob
|
|
Public Class RunJobMethod
|
|
Inherits Base.BaseMethod
|
|
|
|
Private ReadOnly Scheduler As JobScheduler
|
|
|
|
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pState As State, pScheduler As JobScheduler)
|
|
MyBase.New(pLogConfig, pDatabase, pState)
|
|
Scheduler = pScheduler
|
|
End Sub
|
|
|
|
Public Async Function Run(pData As RunJobRequest) As Task(Of RunJobResponse)
|
|
Await Scheduler.ScheduleJob(pData.JobId)
|
|
Return New RunJobResponse()
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class RunJobRequest
|
|
Public Property JobId As Integer
|
|
End Class
|
|
|
|
Public Class RunJobResponse
|
|
Inherits Base.BaseResponse
|
|
End Class
|
|
End Class
|