40 lines
1.2 KiB
VB.net
40 lines
1.2 KiB
VB.net
Public Class Envelope
|
|
Public Property Id As Integer = 0
|
|
Public Property Subject As String
|
|
Public Property Message As String
|
|
Public Property UserId As Integer
|
|
Public Property Uuid As String = Guid.NewGuid.ToString()
|
|
Public Property Status As Constants.EnvelopeStatus = Constants.EnvelopeStatus.Created
|
|
|
|
Public Property Documents As New List(Of EnvelopeFile)
|
|
Public Property Receivers As New List(Of Receiver)
|
|
|
|
Public Sub New(pSubject As String, pMessage As String, pUserId As Integer)
|
|
Subject = pSubject
|
|
Message = pMessage
|
|
UserId = pUserId
|
|
End Sub
|
|
|
|
Public Function Validate() As List(Of String)
|
|
Dim oErrors As New List(Of String)
|
|
|
|
If String.IsNullOrWhiteSpace(Subject) Then
|
|
oErrors.Add(My.Resources.Envelope.Missing_Subject)
|
|
End If
|
|
|
|
If String.IsNullOrWhiteSpace(Message) Then
|
|
oErrors.Add(My.Resources.Envelope.Missing_Message)
|
|
End If
|
|
|
|
If Documents.Count = 0 Then
|
|
oErrors.Add(My.Resources.Envelope.Missing_Documents)
|
|
End If
|
|
|
|
If Receivers.Count = 0 Then
|
|
oErrors.Add(My.Resources.Envelope.Missing_Receivers)
|
|
End If
|
|
|
|
Return oErrors
|
|
End Function
|
|
End Class
|