This commit is contained in:
PitzM 2023-12-08 12:00:06 +01:00
commit d47f75133d
2 changed files with 5 additions and 12 deletions

View File

@ -3,20 +3,13 @@ Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Base
Imports GdPicture14
Imports Quartz
Imports Quartz.Util
Imports DevExpress.XtraRichEdit.Keyboard
Imports DevExpress.Pdf
Imports System.Security.Cryptography
Imports DevExpress
Imports System.IO
Imports System.Runtime.Remoting.Messaging
Namespace Jobs
Public Class CertificateDocumentJob
Implements IJob
Private LicenseManager As New LicenseManager()
Private GdViewer As GdViewer
@ -39,11 +32,14 @@ Namespace Jobs
End Class
Public Async Function Execute(pContext As IJobExecutionContext) As Task Implements IJob.Execute
Public Function Execute(pContext As IJobExecutionContext) As Task Implements IJob.Execute
Dim oGdPictureKey As String = pContext.MergedJobDataMap.Item(Constants.GDPICTURE)
LogConfig = pContext.MergedJobDataMap.Item(Constants.LOGCONFIG)
Logger = LogConfig.GetLogger()
Dim JobId = pContext.JobDetail.Key
Logger.Info("Starting job {0}", JobId)
Try
InitializeModels()
InitializeServices()
@ -61,9 +57,6 @@ Namespace Jobs
Logger.Debug("Loading Configuration..")
Config = ConfigModel.LoadConfiguration()
Dim JobId = pContext.JobDetail.Key
Logger.Debug("Starting job {0}", JobId)
Dim oCompleteStatus As Integer = Constants.EnvelopeStatus.EnvelopeCompletelySigned
Dim oSql = $"SELECT * FROM TBSIG_ENVELOPE WHERE STATUS = {oCompleteStatus}"
Dim oTable = Database.GetDatatable(oSql)

View File

@ -29,7 +29,7 @@ namespace EnvelopeGenerator.Web
builder.Services.AddQuartz(q =>
{
Scheduler scheduler = InitScheduler(builder);
scheduler.ScheduleJob<Common.Jobs.CertificateDocumentJob>(q, "CertificateDocument", 5);
scheduler.ScheduleJob<Common.Jobs.CertificateDocumentJob>(q, "CertificateDocument", 1);
});
builder.Services.AddQuartzHostedService();