EnvelopeGenerator/EnvelopeGenerator.Common/Services/ActionService.vb

Imports DevExpress.DataAccess.Native.Web
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, pDD_ECM As MSSQLServer)
        MyBase.New(pState)
        myDatabase = pDD_ECM
        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 SetStatusDocumentRotationChanged(pEnvelope As Envelope) As Boolean
        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentMod_Rotation, pEnvelope.User.Email) = False Then
            Return False
        End If
        Return True
    End Function
    Public Function Resend_Receiver(pEnvelope As Envelope, pmail As String) As Boolean
        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeQueued, pEnvelope.User.Email) = False Then
            Return False
        End If
        Dim oSendResult As Boolean = False
        For Each oReceiver In pEnvelope.Receivers
            EmailService.SendDocumentReceivedEmail(pEnvelope, oReceiver)
        Next
        Return oSendResult
    End Function
    Public Function ResendReceiver(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Return EmailService.SendDocumentReceivedEmail(pEnvelope, pReceiver)
    End Function


    Public Function DeleteEnvelope(pEnvelope As Envelope, pReason As String) As Boolean
        Dim oStatus As EnvelopeStatus
        If pEnvelope.IsAlreadySent Then
            oStatus = Constants.EnvelopeStatus.EnvelopeWithdrawn
        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

        Dim oSendResult = pEnvelope.Receivers.
            Select(Function(r) EmailService.SendEnvelopeDeletedEmail(pEnvelope, r, pReason)).
            All(Function(r) r = True)

        If oSendResult = False Then
            Return False
        End If

        Return True
    End Function

    Public Function OpenEnvelope(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Dim oUserReference = pReceiver.Email

        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentOpened, oUserReference) = False Then
            Return False
        End If

        Return True
    End Function

    Public Function RequestAccessCode(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Dim oUserReference = pReceiver.Email

        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.AccessCodeRequested, oUserReference) = False Then
            Return False
        End If

        Return True
    End Function

    Public Function EnterCorrectAccessCode(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Dim oUserReference = pReceiver.Email

        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.AccessCodeCorrect, oUserReference) = False Then
            Return False
        End If

        Return True
    End Function

    Public Function EnterIncorrectAccessCode(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Dim oUserReference = pReceiver.Email

        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.AccessCodeIncorrect, oUserReference) = False Then
            Return False
        End If

        Return True
    End Function

    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(pEnvelope, pReceiver)
    End Function

    Public Function FinalizeEnvelope(pEnvelope As Envelope) As Boolean
        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeArchived, "System") = False Then
            Return False
        End If

        Return True
    End Function

    Public Function CompleteEnvelope(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean ', pAttachment As String
        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.MessageCompletionSent, pReceiver.Email) = False Then
            Return False
        End If

        Return EmailService.SendDocumentCompletedEmailToReceiver(pEnvelope, pReceiver) ', pAttachment
    End Function

    Public Function CompleteEnvelope(pEnvelope As Envelope) As Boolean ', pAttachment As String
        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.MessageCompletionSent, pEnvelope.User.Email) = False Then
            Return False
        End If

        Return EmailService.SendDocumentCompletedEmailToCreator(pEnvelope) ', pAttachment
    End Function

    Public Function CreateReport(pEnvelope As Envelope) As Boolean
        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeReportCreated, "System") = False Then
            Return False
        End If

        Return True
    End Function

End Class