Imports System.Drawing
Imports EnvelopeGenerator.Domain
Imports EnvelopeGenerator.Domain.Entities

''' <summary>
''' Handles the combination of the envelope and receiver for common services and submodules as a view model.
''' </summary>
Public Class ReceiverVM
    Inherits EnvelopeReceiver

    Public Shared Function From(source As EnvelopeReceiver) As ReceiverVM
        Return New ReceiverVM() With {
                    .EnvelopeId = source.EnvelopeId,
                    .ReceiverId = source.ReceiverId,
                    .Sequence = source.Sequence,
                    .Name = source.Name,
                    .JobTitle = source.JobTitle,
                    .CompanyName = source.CompanyName,
                    .PrivateMessage = source.PrivateMessage,
                    .AccessCode = source.AccessCode,
                    .AddedWhen = source.AddedWhen,
                    .ChangedWhen = source.ChangedWhen,
                    .PhoneNumber = source.PhoneNumber,
                    .Status = source.Status,
                    .Envelope = source.Envelope,
                    .Receiver = source.Receiver
                }
    End Function

    Private ReadOnly Property SReceiver As Receiver
        Get
            If Receiver Is Nothing Then
                Receiver = New Receiver()
            End If
            Return Receiver
        End Get
    End Property

    Public Property Id As Integer
        Get
            Return SReceiver.Id
        End Get
        Set(value As Integer)
            SReceiver.Id = value
        End Set
    End Property

    Public Property EmailAddress As String
        Get
            Return SReceiver.EmailAddress
        End Get
        Set(value As String)
            SReceiver.EmailAddress = value
        End Set
    End Property

    Public Property Signature As String
        Get
            Return SReceiver.Signature
        End Get
        Set(value As String)
            SReceiver.Signature = value
        End Set
    End Property

    Public Property AddedWhen As DateTime
        Get
            Return SReceiver.AddedWhen
        End Get
        Set(value As DateTime)
            SReceiver.AddedWhen = value
        End Set
    End Property

    Public Property TotpSecretkey As String
        Get
            Return SReceiver.TotpSecretkey
        End Get
        Set(value As String)
            SReceiver.TotpSecretkey = value
        End Set
    End Property

    Public Property TfaRegDeadline As DateTime?
        Get
            Return SReceiver.TfaRegDeadline
        End Get
        Set(value As DateTime?)
            SReceiver.TfaRegDeadline = value
        End Set
    End Property

#Region "Model of old service"
    Public Property SignedDate As DateTime = DateTime.MinValue

    Public Property ColorType As Constants.ColorType

    Public ReadOnly Property SignedDateDisplayValue As String
        Get
            If SignedDate = DateTime.MinValue Then
                Return "-"
            Else
                Return SignedDate.ToString("G")
            End If
        End Get
    End Property

    Public ReadOnly Property Color As Color
        Get
            Return ColorType.ToColor()
        End Get
    End Property

    Public Function GetSignature() As String
        Return Receiver.GetSignature()
    End Function
#End Region

End Class