TekH
27d97ed12a
- Added import for `EnvelopeGenerator.Domain.Constants` in `Scheduler_Envelopetask_API.vb` and `Scheduler_FinishEnvelope.vb` to access necessary constants. - Updated the key for `_pdfBurnerParams` in `Scheduler_FinishEnvelope.vb` from `Domain.Constants.PDF_BURNER_PARAMS` to `Value.PDF_BURNER_PARAMS` for better organization.
85 lines
2.7 KiB
VB.net
85 lines
2.7 KiB
VB.net
Imports System.Collections.Specialized
|
|
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Logging
|
|
Imports EnvelopeGenerator.CommonServices.Jobs
|
|
Imports EnvelopeGenerator.CommonServices.Jobs.FinalizeDocument
|
|
Imports EnvelopeGenerator.Domain.Constants
|
|
Imports Quartz
|
|
|
|
Public Class Scheduler_FinishEnvelope
|
|
Inherits BaseClass
|
|
|
|
Private Scheduler As IScheduler
|
|
Private ReadOnly ConnectionString As String
|
|
Private ReadOnly LicenseKey As String
|
|
Private Property _pdfBurnerParams As PDFBurnerParams
|
|
|
|
Private Const JobName = "CertificateDocumentJob"
|
|
|
|
Public Sub New(pLogConfig As LogConfig, pConnectionString As String, pLicenseKey As String, pdfBurnerParams As PDFBurnerParams)
|
|
MyBase.New(pLogConfig)
|
|
ConnectionString = pConnectionString
|
|
LicenseKey = pLicenseKey
|
|
_pdfBurnerParams = pdfBurnerParams
|
|
|
|
Dim oLogProvider = New LogProvider(Logger)
|
|
Logging.LogProvider.SetCurrentLogProvider(oLogProvider)
|
|
End Sub
|
|
|
|
Public Async Function Start(pInterval As Integer) As Task
|
|
Try
|
|
Logger.Debug("Starting Scheduler Finish Envelope..")
|
|
|
|
Dim oProperties As New NameValueCollection()
|
|
|
|
Scheduler = Await SchedulerBuilder.Create(oProperties).
|
|
UseDefaultThreadPool(Sub(x) x.MaxConcurrency = 5).
|
|
BuildScheduler()
|
|
|
|
Dim oJobKey = New JobKey(JobName)
|
|
Dim oJobData = New JobDataMap() From {
|
|
{Value.GDPICTURE, LicenseKey},
|
|
{Value.LOGCONFIG, LogConfig},
|
|
{Value.DATABASE, ConnectionString},
|
|
{Value.PDF_BURNER_PARAMS, _pdfBurnerParams}
|
|
}
|
|
|
|
Logger.Debug("Initialized Job [{0}]", JobName)
|
|
|
|
Dim oJob As IJobDetail = JobBuilder.Create(Of FinalizeDocumentJob).
|
|
UsingJobData(oJobData).
|
|
WithIdentity(oJobKey).
|
|
Build()
|
|
|
|
Dim oTrigger As ITrigger = TriggerBuilder.Create().
|
|
ForJob(oJobKey).
|
|
WithIdentity($"{JobName}-trigger").
|
|
WithSimpleSchedule(Sub(s) s.
|
|
RepeatForever().
|
|
WithIntervalInMinutes(pInterval)).
|
|
StartNow().
|
|
Build()
|
|
|
|
Logger.Debug("Initialized Trigger")
|
|
|
|
Await Scheduler.ScheduleJob(oJob, oTrigger)
|
|
|
|
Logger.Debug("Job scheduled.")
|
|
|
|
Await Scheduler.Start()
|
|
|
|
Logger.Debug("Scheduler started!")
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Public Async Function [Stop]() As Task
|
|
Logger.Info("Stopping scheduler..")
|
|
Await Scheduler.Shutdown()
|
|
Logger.Info("Scheduler stopped!")
|
|
End Function
|
|
|
|
End Class
|