'Definition
Imports System.Runtime.ComplierServices
 
<Extension()>
Public Sub Add(ByVal BaseCriteria As CriteriaOperator, ByVal AdditionalCriteria As CriteriaOperator, Optional ByVal JoinType As GroupOperatorType = GroupOperatorType.And)
    If AdditionalCriteria IsNot Nothing Then
        If BaseCriteria Is Nothing Then
            BaseCriteria = AdditionalCriteria
        Else
            BaseCriteria = New GroupOperator(JoinType, BaseCriteria, AdditionalCriteria)

Dim _devices As XPCollection(Of cDevice)
Public ReadOnly Property Devices() As XPCollection(Of cDevice)
    Get
        If _devices Is Nothing Then
            _devices = New XPCollection(Of cDevice)(Me.Session, New DevExpress.Data.Filtering.BinaryOperator("Project.Customer", Me, DevExpress.Data.Filtering.BinaryOperatorType.Equal), Nothing)
        End If
        Return _devices
    End Get
End Property

Private Sub XPOSimplifier_Execute(ByVal Sender As Object, ByVal ea As ApplyContentEventArgs)
    ' This method is executed when the system executes your Code 
    If CodeRush.Source.ActiveClass IsNot Nothing Then
        Dim FieldClass As LanguageElement = Nothing
        Dim FieldProperty As LanguageElement = Nothing
        Dim Searcher As ElementEnumerable
        Dim element As IEnumerator(Of LanguageElement)
 
        Searcher = New ElementEnumerable(CodeRush.Source.ActiveClass, GetType([Class]), True)
        element = Searcher.GetEnumerator

<PersistentAlias("Iif(ApprovedBy != null AND ApprovedBy > 0, True, False)")> _
Public Property IsApproved() As Boolean
    Get
        Return Convert.ToBoolean(EvaluateAlias("IsApproved"))
    End Get
    Set(ByVal Approve As Boolean)
        If IsReady() Then
            If Approve Then
                ApprovedOn = Base.BMSRemote.GetServerDate
                ApprovedBy = Base.CurrentUser(Session)