104 lines
2.8 KiB
VB.net
104 lines
2.8 KiB
VB.net
Imports System.Drawing
|
|
Imports EnvelopeGenerator.Domain
|
|
Imports EnvelopeGenerator.Domain.Entities
|
|
|
|
Namespace 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
|
|
|
|
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
|
|
|
|
End Namespace
|