Common Rejection update, SendInvitationMailJob

EnvelopeGenerator.Common/Services/ActionService.vb

@@ -2,19 +2,23 @@
 Imports DigitalData.Modules.Base
 Imports EnvelopeGenerator.Common.Constants
 Imports EnvelopeGenerator.Common.My.Resources
+Imports DigitalData.Modules.Database
 
 Public Class ActionService
     Inherits BaseService
 
+
     Private ReadOnly EmailService As EmailService
     Private ReadOnly HistoryService As HistoryService
 
     Private ReadOnly ReceiverModel As ReceiverModel
 
+    Private myDatabase As MSSQLServer
 
-    Public Sub New(pState As State)
+
+    Public Sub New(pState As State, pDD_ECM As MSSQLServer)
         MyBase.New(pState)
-
+        myDatabase = pDD_ECM
         EmailService = New EmailService(pState)
         HistoryService = New HistoryService(pState)
         ReceiverModel = New ReceiverModel(pState)
@@ -63,6 +67,8 @@ Public Class ActionService
         Else
             oStatus = Constants.EnvelopeStatus.EnvelopeDeleted
         End If
+        Dim oUpd = $"UPDATE TBSIG_ENVELOPE SET REJECTION_REASON = '{pReason}' WHERE GUID = {pEnvelope.Id}"
+        myDatabase.ExecuteNonQuery(oUpd)
         If HistoryService.SetEnvelopeStatus(pEnvelope, oStatus, pEnvelope.User.Email) = False Then
             Return False
         End If