120 lines
3.3 KiB
VB.net
120 lines
3.3 KiB
VB.net
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
|