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 _ _ _ Public Class ServiceSelected Inherits BaseObject Private _MasterKey As Guid 'PopUP master key Private _Services As Services Private _QTT As Double Private _Description As String Public Sub New(ByVal session As Session) MyBase.New(session) ' This constructor is used when an object is loaded from a persistent storage. ' Do not place any code here or place it only when the IsLoading property is false: ' if (!IsLoading){ ' It is now OK to place your initialization code here. ' } ' or as an alternative, move your initialization code into the AfterConstruction method. End Sub Public Overrides Sub AfterConstruction() MyBase.AfterConstruction() ' Place here your initialization code. End Sub _ Property MasterKey As Guid Get Return _MasterKey End Get Set(value As Guid) SetPropertyValue("MasterKey", _MasterKey, value) End Set End Property Property Services As Services Get Return _Services End Get Set(value As Services) SetPropertyValue("Services", _Services, value) End Set End Property Property QTT As Double Get Return _QTT End Get Set(value As Double) SetPropertyValue("QTT", _QTT, value) End Set End Property Property Description As String Get Return _Description End Get Set(value As String) SetPropertyValue("Description", _Description, value) End Set End Property End Class