Imports DigitalData.Modules.Logging
Imports EnvelopeGenerator.Domain.Constants

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 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