83 lines
2.1 KiB
VB.net
83 lines
2.1 KiB
VB.net
Imports System.Drawing
|
|
Imports System.Runtime.Serialization
|
|
Imports DevExpress.Utils.Svg
|
|
Imports DigitalData.Modules.Base
|
|
Imports EnvelopeGenerator.Common.Constants
|
|
Imports Newtonsoft.Json
|
|
|
|
Public Class EnvelopeReceiver
|
|
Public Property Id As Integer = 0
|
|
Public Property UserId As Integer
|
|
Public Property Signature As String
|
|
Public ReadOnly Property Color As Color
|
|
Get
|
|
Return Helpers.ColorTypeToColor(ColorType)
|
|
End Get
|
|
End Property
|
|
|
|
<JsonIgnore>
|
|
Public ReadOnly Property Image As SvgBitmap
|
|
Get
|
|
Try
|
|
Return SvgBitmap.FromFile("Images/circle.svg")
|
|
Catch ex As Exception
|
|
Return Nothing
|
|
End Try
|
|
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 Email As String
|
|
|
|
Public Property Status As ReceiverStatus
|
|
|
|
Public ReadOnly Property StatusTranslated As String
|
|
Get
|
|
Dim oStatus = Status.ToString()
|
|
Return My.Resources.Model.ResourceManager.GetString(oStatus)
|
|
End Get
|
|
End Property
|
|
|
|
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(Email) = 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 Function GetSignature() As String
|
|
Return StringEx.GetChecksum(Email.ToUpper)
|
|
End Function
|
|
End Class
|