Files
2017-03-08 11:21:27 +01:00

38 lines
1001 B
VB.net

Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem("FinancialStock")> _
Public Class UrgentOption
Inherits BaseObject
Private _ShortName As String
Private _Description As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Property ShortName() As String
Get
Return _ShortName
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
Property Description() As String
Get
Return _Description
End Get
Set(ByVal value As String)
SetPropertyValue("Description", _Description, value)
End Set
End Property
End Class 'Sürgősségi mód