76 lines
2.9 KiB
VB.net
76 lines
2.9 KiB
VB.net
Imports Microsoft.VisualBasic
|
|
Imports System
|
|
Imports System.Linq
|
|
Imports System.Text
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.ExpressApp
|
|
Imports System.ComponentModel
|
|
Imports DevExpress.ExpressApp.DC
|
|
Imports DevExpress.Data.Filtering
|
|
Imports DevExpress.Persistent.Base
|
|
Imports System.Collections.Generic
|
|
Imports DevExpress.ExpressApp.Model
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Persistent.Validation
|
|
|
|
'<ImageName("BO_Contact")> _
|
|
'<DefaultProperty("DisplayMemberNameForLookupEditorsOfThisType")> _
|
|
'<DefaultListViewOptions(MasterDetailMode.ListViewOnly, False, NewItemRowPosition.None)> _
|
|
'<Persistent("DatabaseTableName")> _
|
|
Public Enum eGLRowsTypeSelect
|
|
eOpen = 0
|
|
eClose = 1
|
|
eBoth = 2
|
|
End Enum
|
|
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
|
|
Public Class GLAccountsOpenClosePCIPopup ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
|
|
Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
|
|
Public Sub New(ByVal session As Session)
|
|
MyBase.New(session)
|
|
End Sub
|
|
Public Overrides Sub AfterConstruction()
|
|
MyBase.AfterConstruction()
|
|
' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834).
|
|
YearClose = Now.Year
|
|
GLRowsTypeSelect = eGLRowsTypeSelect.eBoth
|
|
|
|
End Sub
|
|
|
|
Private _YearClose As Long
|
|
Private _GLRowsTypeSelect As eGLRowsTypeSelect
|
|
Property YearClose As Long
|
|
Get
|
|
Return _YearClose
|
|
End Get
|
|
Set(value As Long)
|
|
SetPropertyValue("YearClose", _YearClose, value)
|
|
End Set
|
|
End Property
|
|
Property GLRowsTypeSelect As eGLRowsTypeSelect
|
|
Get
|
|
Return _GLRowsTypeSelect
|
|
End Get
|
|
Set(value As eGLRowsTypeSelect)
|
|
SetPropertyValue("GLRowsTypeSelect", _GLRowsTypeSelect, value)
|
|
End Set
|
|
End Property
|
|
'Private _PersistentProperty As String
|
|
'<XafDisplayName("My display name"), ToolTip("My hint message")> _
|
|
'<ModelDefault("EditMask", "(000)-00"), Index(0), VisibleInListView(False)> _
|
|
'<Persistent("DatabaseColumnName"), RuleRequiredField(DefaultContexts.Save)> _
|
|
'Public Property PersistentProperty() As String
|
|
' Get
|
|
' Return _PersistentProperty
|
|
' End Get
|
|
' Set(ByVal value As String)
|
|
' SetPropertyValue("PersistentProperty", _PersistentProperty, value)
|
|
' End Set
|
|
'End Property
|
|
|
|
'<Action(Caption:="My UI Action", ConfirmationMessage:="Are you sure?", ImageName:="Attention", AutoCommit:=True)> _
|
|
'Public Sub ActionMethod()
|
|
' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619).
|
|
' Me.PersistentProperty = "Paid"
|
|
'End Sub
|
|
End Class
|