24 lines
824 B
VB.net
24 lines
824 B
VB.net
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Jobs
|
|
Imports DigitalData.Modules.Logging
|
|
Imports Quartz
|
|
|
|
Public Class APISQLJob
|
|
Implements Quartz.IJob
|
|
|
|
Public Function Execute(context As IJobExecutionContext) As Task Implements Quartz.IJob.Execute
|
|
Dim oJobData = context.MergedJobDataMap
|
|
Dim oLogConfig As LogConfig = oJobData.Item("LogConfig")
|
|
Dim oMSSQL As MSSQLServer = oJobData.Item("MSSQL")
|
|
Dim oArgs As Dictionary(Of String, String) = oJobData.Item("Args")
|
|
Dim oJobArgs = New APISQLArgs With {
|
|
.ProfileID = oArgs.Item("ProfileID")
|
|
}
|
|
|
|
Dim oGraphQLJob As New Modules.Jobs.API_DEXSQLJob(oLogConfig, oMSSQL)
|
|
oGraphQLJob.StartDexAPISQL(oJobArgs)
|
|
|
|
Return Task.FromResult(True)
|
|
End Function
|
|
End Class
|