29-11-2023

EnvelopeGenerator.Common/Services/HistoryService.vb

@@ -0,0 +1,32 @@
+
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+Imports EnvelopeGenerator.Common.Constants
+
+Public Class HistoryService
+    Inherits BaseClass
+
+    Private ReadOnly State As State
+
+    Private ReadOnly EnvelopeModel As EnvelopeModel
+    Private ReadOnly ReceiverModel As ReceiverModel
+    Private ReadOnly HistoryModel As HistoryModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState.LogConfig)
+
+        State = 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
+        Return HistoryModel.Insert(New EnvelopeHistoryEntry() With {
+            .EnvelopeId = pEnvelope.Id,
+            .ActionDate = Now(),
+            .Status = pStatus,
+            .UserReference = pUserReference
+        })
+    End Function
+End Class