AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of http://git.dd:3000/AppStd/EnvelopeGenerator

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
EnvelopeGenerator.Common/Jobs/CertificateDocumentJob.vb
View File

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

2
EnvelopeGenerator.Web/Program.cs
View File

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