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 _ _ _ 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