scheduler

EnvelopeGenerator.Common/Constants.vb

@@ -56,4 +56,11 @@
     End Enum
 #End Region
 
+
+#Region "Constants"
+
+    Public Const DATABASE = "DATABASE"
+    Public Const LOGCONFIG = "LOGCONFIG"
+
+#End Region
 End Class

EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj

@@ -75,14 +75,21 @@
       <HintPath>..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
+    <Reference Include="Microsoft.Extensions.Logging.Abstractions, Version=2.1.1.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Logging.Abstractions.2.1.1\lib\netstandard2.0\Microsoft.Extensions.Logging.Abstractions.dll</HintPath>
+    </Reference>
     <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
     </Reference>
+    <Reference Include="Quartz, Version=3.8.0.0, Culture=neutral, PublicKeyToken=f6b8c98a402cc8a4, processorArchitecture=MSIL">
+      <HintPath>..\packages\Quartz.3.8.0\lib\net462\Quartz.dll</HintPath>
+    </Reference>
     <Reference Include="System" />
     <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.IO.Compression" />
+    <Reference Include="System.Runtime.Remoting" />
     <Reference Include="System.Runtime.Serialization" />
     <Reference Include="System.ServiceModel" />
     <Reference Include="System.Transactions" />
@@ -123,6 +130,7 @@
     <Compile Include="Entities\State.vb" />
     <Compile Include="Entities\User.vb" />
     <Compile Include="Helpers.vb" />
+    <Compile Include="Jobs\CertificateDocumentJob.vb" />
     <Compile Include="Models\BaseModel.vb" />
     <Compile Include="Models\CertificateModel.vb" />
     <Compile Include="Models\ConfigModel.vb" />
@@ -246,6 +254,7 @@
       <CustomToolNamespace>My</CustomToolNamespace>
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
+    <None Include="packages.config" />
   </ItemGroup>
   <ItemGroup>
     <Content Include="Images\circle.svg">

EnvelopeGenerator.Common/Jobs/CertificateDocumentJob.vb

@@ -0,0 +1,20 @@
+Imports DigitalData.Modules.Logging
+Imports Quartz
+
+Public Class CertificateDocumentJob
+    Implements IJob
+
+    Public Function Execute(context As IJobExecutionContext) As Task Implements IJob.Execute
+        Dim connectionString As String = context.MergedJobDataMap.Item(Constants.DATABASE)
+        Dim logConfig As LogConfig = context.MergedJobDataMap.Item(Constants.LOGCONFIG)
+        Dim logger As Logger = logConfig.GetLogger
+
+        Dim JobId = context.JobDetail.Key
+        logger.Info("Starting job {0}", JobId)
+
+        ' Do important work...
+
+        logger.Info("Completed job {0}", JobId)
+        Return Task.FromResult(True)
+    End Function
+End Class

EnvelopeGenerator.Common/Services/ActionService.vb

@@ -15,36 +15,63 @@ Public Class ActionService
 
         EmailService = New EmailService(pState)
         HistoryService = New HistoryService(pState)
-
         ReceiverModel = New ReceiverModel(pState)
     End Sub
 
+    Public Function SendEnvelope(pEnvelope As Envelope) As Boolean
+        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeQueued, pEnvelope.User.Email) = False Then
+            Return False
+        End If
+
+        Dim oSendResult = pEnvelope.Receivers.
+            Select(Function(r) EmailService.SendDocumentReceivedEmail(pEnvelope, r)).
+            All(Function(r) r = True)
+
+        If oSendResult = False Then
+            Return False
+        End If
+
+        Return True
+    End Function
+
     Public Function DeleteEnvelope(pEnvelope As Envelope) As Boolean
-        HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeDeleted, pEnvelope.User.Email)
+        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeDeleted, pEnvelope.User.Email) = False Then
+            Return False
+        End If
+
+        Dim oSendResult = pEnvelope.Receivers.
+            Select(Function(r) EmailService.SendEnvelopeDeletedEmail(pEnvelope, r)).
+            All(Function(r) r = True)
+
+        If oSendResult = False Then
+            Return False
+        End If
 
         For Each oReceiver As EnvelopeReceiver In pEnvelope.Receivers
-            EmailService.SendEnvelopeDeletedEmail(oReceiver.Id, pEnvelope.Id)
+            EmailService.SendEnvelopeDeletedEmail(pEnvelope, oReceiver)
         Next
 
         Return True
     End Function
 
-    Public Function OpenEnvelope(pEnvelope As Envelope, pReceiverId As Integer) As Boolean
-        Dim oReceiver As EnvelopeReceiver = ReceiverModel.GetById(pReceiverId)
-        Dim oUserReference = oReceiver.Email
+    Public Function OpenEnvelope(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
+        Dim oUserReference = pReceiver.Email
 
-        Return HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentOpened, oUserReference)
+        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentOpened, oUserReference) = False Then
+            Return False
+        End If
+
+        Return True
     End Function
 
-    Public Function SignEnvelope(pEnvelope As Envelope, pReceiverId As Integer) As Boolean
-        Dim oReceiver As EnvelopeReceiver = ReceiverModel.GetById(pReceiverId)
-        Dim oUserReference = oReceiver.Email
+    Public Function SignEnvelope(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
+        Dim oUserReference = pReceiver.Email
 
         If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentSigned, oUserReference) = False Then
             Return False
         End If
 
-        Return EmailService.SendSignedEmail(oReceiver.Id, pEnvelope.Id)
+        Return EmailService.SendSignedEmail(pEnvelope, pReceiver)
     End Function
 
 

EnvelopeGenerator.Common/Services/EmailService.vb

@@ -23,11 +23,8 @@ Public Class EmailService
         EmailTemplate = New EmailTemplate()
     End Sub
 
-    Public Function SendEnvelopeDeletedEmail(pReceiverId As Integer, pEnvelopeId As Integer) As Boolean
-        Dim oEnvelope = EnvelopeModel.GetById(pEnvelopeId)
-        Dim oReceiver = ReceiverModel.GetById(pReceiverId)
-
-        Dim oEmailData As New EmailData(oEnvelope, oReceiver) With
+    Public Function SendEnvelopeDeletedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
+        Dim oEmailData As New EmailData(pEnvelope, pReceiver) With
         {
             .SignatureLink = ""
         }
@@ -42,13 +39,10 @@ Public Class EmailService
         Return True
     End Function
 
-    Public Function SendInitialEmail(pReceiverId As Integer, pEnvelopeId As Integer) As Boolean
-        Dim oEnvelope = EnvelopeModel.GetById(pEnvelopeId)
-        Dim oReceiver = ReceiverModel.GetById(pReceiverId)
-
-        Dim oEmailData As New EmailData(oEnvelope, oReceiver) With
+    Public Function SendDocumentReceivedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
+        Dim oEmailData As New EmailData(pEnvelope, pReceiver) With
         {
-            .SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, oEnvelope.Uuid, oReceiver.Signature)
+            .SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, pEnvelope.Uuid, pReceiver.Signature)
         }
 
         EmailTemplate.FillDocumentReceivedEmailBody(oEmailData)
@@ -61,11 +55,12 @@ Public Class EmailService
         Return True
     End Function
 
-    Public Function SendSignedEmail(pReceiverId As Integer, pEnvelopeId As Integer) As Boolean
-        Dim oEnvelope = EnvelopeModel.GetById(pEnvelopeId)
-        Dim oReceiver = ReceiverModel.GetById(pReceiverId)
+    Public Function SendSignedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
+        Dim oEmailData = New EmailData(pEnvelope, pReceiver) With
+        {
+            .SignatureLink = ""
+        }
 
-        Dim oEmailData = New EmailData(oEnvelope, oReceiver) With {.SignatureLink = ""}
         EmailTemplate.FillDocumentSignedEmailBody(oEmailData)
 
         If EmailModel.Insert(oEmailData) = False Then

EnvelopeGenerator.Common/Services/HistoryService.vb

@@ -22,11 +22,19 @@ Public Class HistoryService
     End Sub
 
     Public Function SetEnvelopeStatus(pEnvelope As Envelope, pStatus As EnvelopeStatus, pUserReference As String) As Boolean
-        Return HistoryModel.Insert(New EnvelopeHistoryEntry() With {
+        Dim oResult = HistoryModel.Insert(New EnvelopeHistoryEntry() With {
             .EnvelopeId = pEnvelope.Id,
             .ActionDate = Now(),
             .Status = pStatus,
             .UserReference = pUserReference
         })
+
+        If oResult = False Then
+            Logger.Warn("Could not set Envelope status to [{0}] for Envelope [{1}].", pStatus.ToString, pEnvelope.Id)
+            Return False
+        End If
+
+        Logger.Debug("Envelope status set to [{0}] for Envelope [{1}].", pStatus.ToString, pEnvelope.Id)
+        Return True
     End Function
 End Class

EnvelopeGenerator.Common/packages.config

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="Microsoft.Extensions.Logging.Abstractions" version="2.1.1" targetFramework="net462" />
+  <package id="Quartz" version="3.8.0" targetFramework="net462" />
+</packages>