36 lines
1.2 KiB
VB.net
36 lines
1.2 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
Imports EnvelopeGenerator.Domain.Constants
|
|
Imports EnvelopeGenerator.Domain.Entities
|
|
|
|
Public Class HistoryService
|
|
Inherits BaseService
|
|
|
|
Private ReadOnly EnvelopeModel As EnvelopeModel
|
|
Private ReadOnly ReceiverModel As ReceiverModel
|
|
Private ReadOnly HistoryModel As HistoryModel
|
|
|
|
Public Sub New(pState As State)
|
|
MyBase.New(pState)
|
|
|
|
EnvelopeModel = New EnvelopeModel(pState)
|
|
ReceiverModel = New ReceiverModel(pState)
|
|
HistoryModel = New HistoryModel(pState)
|
|
End Sub
|
|
|
|
Public Function SetEnvelopeStatus(pEnvelope As Envelope, pStatus As EnvelopeStatus, pUserReference As String) As Boolean
|
|
Dim oResult = HistoryModel.Insert(New EnvelopeHistory() 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 |