114 lines
4.0 KiB
VB.net
114 lines
4.0 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")> _
|
|
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
|
Public Class ChartOfAccountsBallance ' 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).
|
|
|
|
Private _CustomersFrom As CustomersFrom
|
|
Private _AccountYear As Long
|
|
Private _AccountNumber As String
|
|
Private _ShortName As String
|
|
Private _DebitAmountHUF As Double
|
|
Private _CreditAmountHUF As Double
|
|
Private _BallanceHUF As Double
|
|
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).
|
|
End Sub
|
|
|
|
Property CustomersFrom As CustomersFrom
|
|
Get
|
|
Return _CustomersFrom
|
|
End Get
|
|
Set(value As CustomersFrom)
|
|
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
|
End Set
|
|
End Property
|
|
Property AccountYear As Long
|
|
Get
|
|
Return _AccountYear
|
|
End Get
|
|
Set(value As Long)
|
|
SetPropertyValue("AccountYear", _AccountYear, value)
|
|
End Set
|
|
End Property
|
|
Property AccountNumber As String
|
|
Get
|
|
Return _AccountNumber
|
|
End Get
|
|
Set(value As String)
|
|
SetPropertyValue("AccountNumber", _AccountNumber, value)
|
|
End Set
|
|
End Property
|
|
Property ShortName As String
|
|
Get
|
|
Return _ShortName
|
|
End Get
|
|
Set(value As String)
|
|
SetPropertyValue("ShortName", _ShortName, value)
|
|
End Set
|
|
End Property
|
|
Property DebitAmountHUF As Double
|
|
Get
|
|
Return _DebitAmountHUF
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, value)
|
|
End Set
|
|
End Property
|
|
Property CreditAmountHUF As Double
|
|
Get
|
|
Return _CreditAmountHUF
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, value)
|
|
End Set
|
|
End Property
|
|
Property BallanceHUF As Double
|
|
Get
|
|
Return _BallanceHUF
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("BallanceHUF", _BallanceHUF, 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
|