-
Notifications
You must be signed in to change notification settings - Fork 0
/
BO.vb
76 lines (69 loc) · 1.92 KB
/
BO.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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Imports Microsoft.VisualBasic
Imports DevExpress.Persistent.Base
Imports DevExpress.Xpo
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Linq
Imports System.Text
Namespace CustomFileDataSolution.Module.BusinessObjects
<NavigationItem> _
Public Class BusinessObject
Inherits XPLiteObject
Public Sub New(ByVal s As Session)
MyBase.New(s)
Me._DocumentFile = New InplaceFileData(Me, Me.ClassInfo.GetMember("Document"), "pdf")
Me._ScreenshotFile = New InplaceFileData(Me, Me.ClassInfo.GetMember("Screenshot"), "jpg")
End Sub
<Key(True), Persistent("ID")> _
Private _ID As Integer
<PersistentAlias("_ID")> _
Public ReadOnly Property ID() As Integer
Get
Return _ID
End Get
End Property
Public Property Description() As String
Get
Return GetPropertyValue(Of String)("Description")
End Get
Set(ByVal value As String)
SetPropertyValue(Of String)("Description", value)
End Set
End Property
<Browsable(False), Delayed> _
Public Property Document() As Byte()
Get
Return GetDelayedPropertyValue(Of Byte())("Document")
End Get
Set(ByVal value As Byte())
SetDelayedPropertyValue(Of Byte())("Document", value)
End Set
End Property
Private _DocumentFile As InplaceFileData
Public Property DocumentFile() As InplaceFileData
Get
Return _DocumentFile
End Get
Set(ByVal value As InplaceFileData)
End Set
End Property
<Browsable(False), Delayed> _
Public Property Screenshot() As Byte()
Get
Return GetDelayedPropertyValue(Of Byte())("Screenshot")
End Get
Set(ByVal value As Byte())
SetDelayedPropertyValue(Of Byte())("Screenshot", value)
End Set
End Property
Private _ScreenshotFile As InplaceFileData
Public Property ScreenshotFile() As InplaceFileData
Get
Return _ScreenshotFile
End Get
Set(ByVal value As InplaceFileData)
End Set
End Property
End Class
End Namespace