/
Incident.vb
39 lines (34 loc) · 1.26 KB
/
Incident.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Imports DevExpress.Xpo
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports System.ComponentModel
Namespace HowToSetValidationRulesInCode.Module
<DefaultClassOptions, DefaultProperty("Subject"), RuleCriteria("RuleCriteria for Incident", DefaultContexts.Save, "AssignedTo is not null", SkipNullOrEmptyValues := False)>
Public Class Incident
Inherits BaseObject
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Private _assignedTo As Person
Private _subject As String
<RuleRequiredField("RuleRequiredField for Incident.Subject", DefaultContexts.Save)>
Public Property Subject() As String
Get
Return _subject
End Get
Set(ByVal value As String)
SetPropertyValue("Subject", _subject, value)
End Set
End Property
Public Property AssignedTo() As Person
Get
Return _assignedTo
End Get
Set(ByVal value As Person)
SetPropertyValue("AssignedTo ", _assignedTo, value)
End Set
End Property
End Class
End Namespace