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 oSql = $"SELECT * FROM TBSIG_ENVELOPE WHERE STATUS = {Constants.EnvelopeStatus.EnvelopeCompletelySigned}"
            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