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
<DefaultClassOptions()> _
<NavigationItem("CRM")> _
<DefaultProperty("ShortName")> _
Public Class CRM_Opportunities
    Inherits BaseObject

    Private _CRM_Opportunities_Parameters As CRM_Opportunities_Parameters
    Private _CustomersFrom As CustomersFrom
    Private _CloseDate As Date

    '--General
    Private _ShortName As String
    Private _DocumentNumber As String
    Private _Customers As Customers
    Private _Contacts As Contacts
    Private _EstimatedRevenue As Double
    Private _EstimatedCurrencyName As CurrencyName
    Private _EstimatedRevenueHUF As Double
    Private _EstimatedCloseDate As Date
    Private _Probability As Long
    Private _OpportunityRating As eOpportunityRating
    Private _CRM_Opportunities_Probability As CRM_Opportunities_Probability
    Private _JobNumberObjects As JobNumberObjects
    Private _WorkPlace As WorkPlace
    Private _MasterBusinessDirectory As BusinessDirectory

    '-- Administration
    Private _CRM_Leads As CRM_Leads
    Private _OpportunityStatus As eOpportunityStatus
    Private _HRPerson As HRPerson
    Private _WorkflowSystemSteps As WorkflowSystemSteps

    Private _UserCreated As User 'Létrehozó
    Private _ObjectCreated As Date 'Létrehozva

    Public Sub New(ByVal session As Session)
        MyBase.New(session)
    End Sub
    Public Overrides Sub AfterConstruction()
        MyBase.AfterConstruction()

    End Sub
    Protected Overrides Sub OnSaving()
        MyBase.OnSaving()
        If Session.IsNewObject(Me) Then
            ObjectCreated = GetSQLTime(Session)
            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
        End If
        If IsDeleted = False Then
            ' CRM ügyhöz dokumentum tárhely beállítása
            If MasterBusinessDirectory Is Nothing Then
                Dim _CRMBusinessDirectory As BusinessDirectory = Session.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse(""))
            End If
            If Me.CRM_Opportunities_Parameters Is Nothing Then
                If Me.CustomersFrom IsNot Nothing Then
                    Dim _CRM_Opportunities_Parameters As CRM_Opportunities_Parameters = Session.FindObject(Of CRM_Opportunities_Parameters)(CriteriaOperator.Parse("IsDefault=True and CustomersFrom=?", Me.CustomersFrom))
                    If _CRM_Opportunities_Parameters IsNot Nothing Then
                        Me.CRM_Opportunities_Parameters = _CRM_Opportunities_Parameters
                    End If
                End If
            End If
            If Me.CRM_Opportunities_Parameters IsNot Nothing Then
                If Me.CRM_Opportunities_Parameters.WorkflowSystem IsNot Nothing Then
                    If Me.WorkflowSystemSteps Is Nothing Then
                        Dim _WorkflowSystemSteps As WorkflowSystemSteps = Session.FindObject(Of WorkflowSystemSteps)(CriteriaOperator.Parse("WorkflowSystem=? and StepIndex=1", Me.CRM_Opportunities_Parameters.WorkflowSystem))
                        If _WorkflowSystemSteps IsNot Nothing Then
                            Me.WorkflowSystemSteps = _WorkflowSystemSteps
                        End If
                    End If
                End If
                If Me.DocumentNumber = "" Then Me.DocumentNumber = Me.CRM_Opportunities_Parameters.NumberGenerator.GetNewNumber(Me.CRM_Opportunities_Parameters.NumberGenerator)
            End If
        End If
    End Sub

    Property CRM_Opportunities_Parameters As CRM_Opportunities_Parameters
        Get
            Return _CRM_Opportunities_Parameters
        End Get
        Set(value As CRM_Opportunities_Parameters)
            SetPropertyValue("CRM_Opportunities_Parameters", _CRM_Opportunities_Parameters, value)
        End Set
    End Property
    Property CustomersFrom As CustomersFrom
        Get
            Return _CustomersFrom
        End Get
        Set(ByVal value As CustomersFrom)
            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
        End Set
    End Property
    Property CloseDate As Date
        Get
            Return _CloseDate
        End Get
        Set(ByVal value As Date)
            SetPropertyValue("CloseDate", _CloseDate, value)
        End Set
    End Property

    Property ShortName As String
        Get
            Return _ShortName
        End Get
        Set(ByVal value As String)
            SetPropertyValue("ShortName", _ShortName, value)
        End Set
    End Property
    Property DocumentNumber As String
        Get
            Return _DocumentNumber
        End Get
        Set(value As String)
            SetPropertyValue("DocumentNumber", _DocumentNumber, 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
    <ImmediatePostData(True), DataSourceCriteria("'@This.Customers'=Customers")>
    Property Contacts As Contacts
        Get
            Return _Contacts
        End Get
        Set(value As Contacts)
            SetPropertyValue("Contacts", _Contacts, value)
        End Set
    End Property
    Property EstimatedRevenue As Double
        Get
            Return _EstimatedRevenue
        End Get
        Set(ByVal value As Double)
            SetPropertyValue("EstimatedRevenue", _EstimatedRevenue, value)
        End Set
    End Property
    Property EstimatedCurrencyName As CurrencyName
        Get
            Return _EstimatedCurrencyName
        End Get
        Set(value As CurrencyName)
            SetPropertyValue("EstimatedCurrencyName", _EstimatedCurrencyName, value)
        End Set
    End Property
    Property EstimatedRevenueHUF As Double
        Get
            Return _EstimatedRevenueHUF
        End Get
        Set(value As Double)
            SetPropertyValue("EstimatedRevenueHUF", _EstimatedRevenueHUF, value)
        End Set
    End Property
    Property EstimatedCloseDate As Date
        Get
            Return _EstimatedCloseDate
        End Get
        Set(ByVal value As Date)
            SetPropertyValue("EstimatedCloseDate", _EstimatedCloseDate, value)
        End Set
    End Property
    <RuleRange("CRM_Opportunities-Probability", DefaultContexts.Save, 1, 100)>
    Property Probability As Long
        Get
            Return _Probability
        End Get
        Set(ByVal value As Long)
            SetPropertyValue("Probability", _Probability, value)
        End Set
    End Property
    <RuleRequiredField("CRM_Opportunities-CRM_Opportunities_Probability", DefaultContexts.Save)>
    Property CRM_Opportunities_Probability As CRM_Opportunities_Probability
        Get
            Return _CRM_Opportunities_Probability
        End Get
        Set(value As CRM_Opportunities_Probability)
            SetPropertyValue("CRM_Opportunities_Probability", _CRM_Opportunities_Probability, value)
            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
                Probability = value.Probability
            End If
        End Set
    End Property
    Property OpportunityRating As eOpportunityRating
        Get
            Return _OpportunityRating
        End Get
        Set(ByVal value As eOpportunityRating)
            SetPropertyValue("OpportunityRating", _OpportunityRating, value)
        End Set
    End Property
    Property JobNumberObjects As JobNumberObjects
        Get
            Return _JobNumberObjects
        End Get
        Set(value As JobNumberObjects)
            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
        End Set
    End Property
    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom'")>
    Property WorkPlace As WorkPlace
        Get
            Return _WorkPlace
        End Get
        Set(value As WorkPlace)
            SetPropertyValue("WorkPlace", _WorkPlace, value)
        End Set
    End Property
    Property MasterBusinessDirectory As BusinessDirectory
        Get
            Return _MasterBusinessDirectory
        End Get
        Set(value As BusinessDirectory)
            SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value)
        End Set
    End Property

    Property CRM_Leads As CRM_Leads
        Get
            Return _CRM_Leads
        End Get
        Set(ByVal value As CRM_Leads)
            SetPropertyValue("CRM_Leads", _CRM_Leads, value)
        End Set
    End Property
    Property OpportunityStatus As eOpportunityStatus
        Get
            Return _OpportunityStatus
        End Get
        Set(ByVal value As eOpportunityStatus)
            SetPropertyValue("OpportunityStatus", _OpportunityStatus, value)
        End Set
    End Property
    Property HRPerson As HRPerson
        Get
            Return _HRPerson
        End Get
        Set(ByVal value As HRPerson)
            SetPropertyValue("HRPerson", _HRPerson, value)
        End Set
    End Property
    <ImmediatePostData(True), DataSourceCriteria("WorkflowSystem='@This.CRM_Opportunities_Parameters.WorkflowSystem'")>
    Property WorkflowSystemSteps As WorkflowSystemSteps
        Get
            Return _WorkflowSystemSteps
        End Get
        Set(value As WorkflowSystemSteps)
            SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value)
        End Set
    End Property

    <NonCloneable> _
    Property ObjectCreated As Date
        Get
            Return _ObjectCreated
        End Get
        Set(value As Date)
            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
        End Set
    End Property
    <NonCloneable> _
    Property UserCreated As User
        Get
            Return _UserCreated
        End Get
        Set(value As User)
            SetPropertyValue("UserCreated", _UserCreated, value)
        End Set
    End Property

    '-----------ReadOnly------------
    <VisibleInListView(False)> _
    <Association("OfferOutHeader-CRM_Opportunities", GetType(OfferOutHeader))> _
    ReadOnly Property OfferOutHeader As XPCollection(Of OfferOutHeader)
        Get
            Return GetCollection(Of OfferOutHeader)("OfferOutHeader")
        End Get
    End Property
    <VisibleInListView(False)> _
    <Association("OfferInHeader-CRM_Opportunities", GetType(OfferInHeader))> _
        ReadOnly Property OfferInHeader As XPCollection(Of OfferInHeader)
        Get
            Return GetCollection(Of OfferInHeader)("OfferInHeader")
        End Get
    End Property
    <VisibleInListView(False)> _
    <Association("CRM_Opportunities-OrderInHeader", GetType(OrderInHeader))> _
    ReadOnly Property OrderInHeader As XPCollection(Of OrderInHeader)
        Get
            Return GetCollection(Of OrderInHeader)("OrderInHeader")
        End Get
    End Property
    <VisibleInListView(False)> _
    <Association("CRM_Opportunities-Contract", GetType(Contracts))> _
    ReadOnly Property Contracts As XPCollection(Of Contracts)
        Get
            Return GetCollection(Of Contracts)("Contracts")
        End Get
    End Property
    <VisibleInListView(False)> _
        ReadOnly Property DeliveryNoteOutHeader As XPCollection(Of DeliveryNoteOutHeader)
        Get
            Return New XPCollection(Of DeliveryNoteOutHeader)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom))
        End Get
    End Property
    <VisibleInListView(False)> _
    ReadOnly Property InvoiceHeader As XPCollection(Of InvoiceHeader)
        Get
            Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom))
        End Get
    End Property 'Számlák
    <VisibleInListView(False)> _
    ReadOnly Property PCIDetail As XPCollection(Of PCIDetail)
        Get
            Return New XPCollection(Of PCIDetail)(Session, CriteriaOperator.Parse("PartnerType=0 and Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom))
        End Get
    End Property
    <VisibleInListView(False)> _
    ReadOnly Property CRM_Leads_Activity As XPCollection(Of CRM_Leads_Activity)
        Get
            Return New XPCollection(Of CRM_Leads_Activity)(Session, CriteriaOperator.Parse("CRM_Leads=?", Me.CRM_Leads))
        End Get
    End Property
    <VisibleInListView(False)> _
    <Association("CRM_Opportunities-CRM_Opportunities_Contacts_Roles", GetType(CRM_Opportunities_Contacts_Roles))> _
    ReadOnly Property CRM_Opportunities_Contacts_Roles As XPCollection(Of CRM_Opportunities_Contacts_Roles)
        Get
            Return GetCollection(Of CRM_Opportunities_Contacts_Roles)("CRM_Opportunities_Contacts_Roles")
        End Get
    End Property
    <VisibleInListView(False)> _
    ReadOnly Property CRM_Leads_Activity_Task As XPCollection(Of CRM_Leads_Activity_Task)
        Get
            Return New XPCollection(Of CRM_Leads_Activity_Task)(Session, CriteriaOperator.Parse("CRM_Leads_Activity.CRM_Leads=? or CRM_Opportunities=?", Me.CRM_Leads, Me))
        End Get
    End Property
    <VisibleInListView(False)> _
    ReadOnly Property RegistryTask As XPCollection(Of RegistryTasks)
        Get
            If Me.CustomersFrom IsNot Nothing Then
                Return New XPCollection(Of RegistryTasks)(Session, _
                    CriteriaOperator.Parse("RegistryHeader.CustomersFrom=?  and Status<>4 and RegistryHeader.RegistryType.RegistryMainType=5", Me.CustomersFrom))
            Else
                Return Nothing
            End If
        End Get
    End Property
    <VisibleInListView(False), VisibleInLookupListView(False)> _
    ReadOnly Property WorkSheet_Header As XPCollection(Of WorkSheet_Header)
        Get
            Return New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom))
        End Get
    End Property
    <Association("CRM_Opportunities-CRM_Opportunities_Products", GetType(CRM_Opportunities_Products)), VisibleInListView(False), VisibleInLookupListView(False)>
    ReadOnly Property CRM_Opportunities_Products As XPCollection(Of CRM_Opportunities_Products)
        Get
            Return GetCollection(Of CRM_Opportunities_Products)("CRM_Opportunities_Products")
        End Get
    End Property
    <Association("CRM_Opportunities-CRM_Opportunities_Services", GetType(CRM_Opportunities_Services)), VisibleInListView(False), VisibleInLookupListView(False)>
    ReadOnly Property CRM_Opportunities_Services As XPCollection(Of CRM_Opportunities_Services)
        Get
            Return GetCollection(Of CRM_Opportunities_Services)("CRM_Opportunities_Services")
        End Get
    End Property
    <VisibleInListView(False)> _
    ReadOnly Property CRM_Opportunities_BusinessDirectory As XPCollection(Of BusinessDirectory)
        Get
            Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2"))
            If MasterBusinessDirectory IsNot Nothing Then
                If MasterBusinessDirectory.Children.Count > 0 Then
                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
                    RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory)
                Else
                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
                End If
            End If
            Return _BusinessDirectory_Collection
        End Get
    End Property
    <Browsable(False)> _
    ReadOnly Property MasterBusinessDirectoryCollection As XPCollection(Of BusinessDirectory)
        Get
            Dim _BusinessDirectoryReturn_Collection As XPCollection(Of BusinessDirectory) = Nothing
            Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session)
            If _BusinessDirectory_Collection.Count > 0 Then
                Dim _Filter As String = "Oid in("

                For Each _BusinessDirectory As BusinessDirectory In _BusinessDirectory_Collection
                    If _BusinessDirectory.IsFolder Then _Filter += "'" + _BusinessDirectory.Oid.ToString + "',"
                Next
                _Filter = _Filter.Remove(_Filter.Length - 1, 1)
                _Filter += ")"
                If _Filter.Length > 8 Then
                    _BusinessDirectoryReturn_Collection = New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse(_Filter))
                    _BusinessDirectory_Collection.Filter = CriteriaOperator.Parse("IsFolder=True")
                Else
                    _Filter = "1=2"
                End If
            End If

            Return _BusinessDirectoryReturn_Collection
        End Get
    End Property
    <VisibleInListView(False)> _
    <VisibleInLookupListView(False)> _
    ReadOnly Property CRM_Opportunities_Customers As XPCollection(Of CRM_Opportunities_Customers)
        Get
            Return New XPCollection(Of CRM_Opportunities_Customers)(Session, CriteriaOperator.Parse("CRM_Opportunities=?", Me))
        End Get
    End Property
    <VisibleInListView(False)> _
   <VisibleInLookupListView(False)> _
    ReadOnly Property CRM_Opportunities_CustomersContacts As XPCollection(Of CRM_Opportunities_CustomersContacts)
        Get
            Return New XPCollection(Of CRM_Opportunities_CustomersContacts)(Session, CriteriaOperator.Parse("CRM_Opportunities=?", Me))
        End Get
    End Property

    <VisibleInListView(False), VisibleInLookupListView(False)> _
    ReadOnly Property OrderInRowsOther As XPCollection(Of OrderInRowsOther)
        Get
            Return New XPCollection(Of OrderInRowsOther)(Session, CriteriaOperator.Parse("OrderInHeader.CRM_Opportunities=?", Me))
        End Get
    End Property

    Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory))
        For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory
            If _BusinessDirectory.Children.Count > 0 Then
                _BusinessDirectoryList.Add(_BusinessDirectory)
                RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory)
            Else
                _BusinessDirectoryList.Add(_BusinessDirectory)
            End If
        Next
    End Sub


End Class