61 lines
1.6 KiB
VB.net
61 lines
1.6 KiB
VB.net
Imports System.Drawing
|
|
Imports DigitalData.Modules.Base
|
|
Imports EnvelopeGenerator.Domain.Constants
|
|
|
|
Public Class Receiver
|
|
Public Property Id As Integer = 0
|
|
Public Property Signature As String
|
|
Public ReadOnly Property Color As Color
|
|
Get
|
|
Return Helpers.ColorTypeToColor(ColorType)
|
|
End Get
|
|
End Property
|
|
|
|
Public Property ColorType As ColorType
|
|
|
|
Public Property Name As String
|
|
|
|
Public Property Company As String = ""
|
|
|
|
Public Property JobTitle As String = ""
|
|
|
|
Public Property EmailAddress As String
|
|
|
|
Public Property Status As ReceiverStatus
|
|
|
|
Public Property SignedDate As DateTime = DateTime.MinValue
|
|
|
|
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 HasId As Boolean
|
|
Get
|
|
Return Id > 0
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property HasEmailAndName As Boolean
|
|
Get
|
|
Return String.IsNullOrWhiteSpace(EmailAddress) = False And
|
|
String.IsNullOrWhiteSpace(Name) = False
|
|
End Get
|
|
End Property
|
|
|
|
Public Property Sequence As Integer = 0
|
|
Public Property PrivateMessage As String = ""
|
|
Public Property AccessCode As String = ""
|
|
Public Property PhoneNumber As String = ""
|
|
|
|
Public Function GetSignature() As String
|
|
Return StringEx.GetChecksum(EmailAddress.ToUpper)
|
|
End Function
|
|
End Class
|