Files
Nuvolar/Nuvolar.Module/BusinessObjects/Business/DashBoard/DashBoard.vb
T
2017-03-08 11:21:27 +01:00

78 lines
2.1 KiB
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
'-- DashBoard query
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class SIS_Top10_Customers
Inherits BaseObject
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _DateExecution As Date
Private _AmountHUF As Double
Private _AmountDEV As Double
Private _CurrencyName As CurrencyName
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(ByVal value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property AmountHUF As Double
Get
Return _AmountHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountHUF", _AmountHUF, value)
End Set
End Property
Property AmountDEV As Double
Get
Return _AmountDEV
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountDEV", _AmountDEV, value)
End Set
End Property
Property CurrencyName As CurrencyName
Get
Return _CurrencyName
End Get
Set(ByVal value As CurrencyName)
SetPropertyValue("CurrencyName", _CurrencyName, value)
End Set
End Property
End Class