TeamVision

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.3082
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

'*************************************************************
' Class Name:  ProjectEventArgs
' Purpose:  [Insert class purpose here.]
' Description: 
'***************************************************************
Namespace EventArgs
    
    Public Class ProjectEventArgs
        Inherits Common.EventArgs
        
        Private m_Project As Business.Project
        
        Private m_Filter As String =  String.Empty 
        
        Public Sub New()
            MyBase.New
            Me.InitializeFilter
        End Sub
        
        Public Sub New(ByVal ProjectID As Integer)
            MyBase.New
            If (ProjectID > 0) Then
                Me.m_Project = Managers.ProjectManager.GetByPrimaryKey(ProjectID)
            End If
            Me.InitializeFilter
        End Sub
        
        Public Sub New(ByVal biz As Business.Project)
            MyBase.New
            Me.m_Project = biz
            Me.InitializeFilter
        End Sub
        
        Public Property Project() As Business.Project
            Get
                Return Me.m_Project
            End Get
            Set
                Me.m_Project = value
            End Set
        End Property
        
        Public Overrides Property Filter() As String
            Get
                Return Me.m_Filter
            End Get
            Set
                Me.m_Filter = value
            End Set
        End Property
        
        Public Overrides ReadOnly Property Domain() As Common.Domains
            Get
                Return Common.Domains.Projects
            End Get
        End Property
        
        Public Overrides ReadOnly Property Text() As String
            Get
                Return Common.Titles.Project
            End Get
        End Property
        
        #Region "InitializeFilter"
        Private Sub InitializeFilter()
            If Not IsNothing(Me.m_Project) AndAlso Me.m_Project.ProjectID > 0 Then
              Me.m_Filter = Columns.Project.ProjectIDColumn & "=" &  Me.m_Project.ProjectID.ToString
             Else 
            Me.m_Filter = (Columns.Project.ProjectIDColumn + ">0")
            End If
        End Sub
        #End Region
    End Class
End Namespace