37 lines
1.3 KiB
VB.net
37 lines
1.3 KiB
VB.net
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports Quartz
|
|
|
|
Public Class CertificateDocumentJob
|
|
Implements IJob
|
|
|
|
Public Function Execute(pContext As IJobExecutionContext) As Task Implements IJob.Execute
|
|
Dim oLogConfig As LogConfig = pContext.MergedJobDataMap.Item(Constants.LOGCONFIG)
|
|
Dim oConnectionString As String = pContext.MergedJobDataMap.Item(Constants.DATABASE)
|
|
Dim oLogger As Logger = oLogConfig.GetLogger()
|
|
|
|
Try
|
|
Dim oDatabase As New MSSQLServer(oLogConfig, MSSQLServer.DecryptConnectionString(oConnectionString))
|
|
Dim JobId = pContext.JobDetail.Key
|
|
oLogger.Info("Starting job {0}", JobId)
|
|
|
|
Dim oCompleteStatus As Integer = Constants.EnvelopeStatus.EnvelopeCompletelySigned
|
|
Dim oSql = $"SELECT * FROM TBSIG_ENVELOPE WHERE STATUS = {oCompleteStatus}"
|
|
Dim oTable = oDatabase.GetDatatable(oSql)
|
|
|
|
oLogger.Info("Found [{0}] completed envelopes.", oTable.Rows.Count)
|
|
|
|
' Do important work...
|
|
|
|
oLogger.Info("Completed job {0}", JobId)
|
|
Return Task.FromResult(True)
|
|
|
|
Catch ex As Exception
|
|
oLogger.Warn("Certificate Document job failed!")
|
|
oLogger.Error(ex)
|
|
|
|
Return Task.FromException(ex)
|
|
End Try
|
|
End Function
|
|
End Class
|