First create solution
This commit is contained in:
@@ -0,0 +1,220 @@
|
||||
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(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class Technologies
|
||||
Inherits BaseObject
|
||||
|
||||
Private _MasterBusinessDirectory As BusinessDirectory
|
||||
Private _DocumentNumber As String
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _UserCreated As User
|
||||
Private _ObjectCreated As Date
|
||||
Private _TechnologiesParameters As TechnologiesParameters
|
||||
|
||||
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 String.IsNullOrEmpty(DocumentNumber) Then
|
||||
DocumentNumber = TechnologiesParameters.NumberGenerator.GetNewNumber(TechnologiesParameters.NumberGenerator)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property MasterBusinessDirectory As BusinessDirectory
|
||||
Get
|
||||
Return _MasterBusinessDirectory
|
||||
End Get
|
||||
Set(value As BusinessDirectory)
|
||||
SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, 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
|
||||
<RuleRequiredField("Technologies - ShortName", DefaultContexts.Save)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, 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
|
||||
<NonCloneable()> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, 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
|
||||
<RuleRequiredField("Technologies - TechnologiesParameters", DefaultContexts.Save)> _
|
||||
Property TechnologiesParameters As TechnologiesParameters
|
||||
Get
|
||||
Return _TechnologiesParameters
|
||||
End Get
|
||||
Set(value As TechnologiesParameters)
|
||||
SetPropertyValue("TechnologiesParameters", _TechnologiesParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'---ReadOlny properties
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Products As XPCollection(Of Products)
|
||||
Get
|
||||
Dim _Products_Collection As New XPCollection(Of Products)(Session, CriteriaOperator.Parse("1=2"))
|
||||
|
||||
Dim _TechnologiesProducts_Collection As New XPCollection(Of TechnologiesProducts)(Session, CriteriaOperator.Parse("Technologies=?", Me))
|
||||
For Each _TechnologiesProducts As TechnologiesProducts In _TechnologiesProducts_Collection
|
||||
_Products_Collection.Add(_TechnologiesProducts.Products)
|
||||
Next
|
||||
|
||||
Return _Products_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Services As XPCollection(Of Services)
|
||||
Get
|
||||
Dim _Services_Collection As New XPCollection(Of Services)(Session, CriteriaOperator.Parse("1=2"))
|
||||
|
||||
Dim _TechnologiesServices_Collection As New XPCollection(Of TechnologiesServices)(Session, CriteriaOperator.Parse("Technologies=?", Me))
|
||||
For Each _TechnologiesServices As TechnologiesServices In _TechnologiesServices_Collection
|
||||
_Services_Collection.Add(_TechnologiesServices.Services)
|
||||
Next
|
||||
|
||||
Return _Services_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Customers As XPCollection(Of Customers)
|
||||
Get
|
||||
Dim _Customers_Collection As New XPCollection(Of Customers)(Session, CriteriaOperator.Parse("1=2"))
|
||||
|
||||
Dim _TechnologiesCustomers_Collection As New XPCollection(Of TechnologiesCustomers)(Session, CriteriaOperator.Parse("Technologies=?", Me))
|
||||
For Each _TechnologiesCustomers As TechnologiesCustomers In _TechnologiesCustomers_Collection
|
||||
_Customers_Collection.Add(_TechnologiesCustomers.Customers)
|
||||
Next
|
||||
|
||||
Return _Customers_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Contacts As XPCollection(Of Contacts)
|
||||
Get
|
||||
Dim _Contacts_Collection As New XPCollection(Of Contacts)(Session, CriteriaOperator.Parse("1=2"))
|
||||
|
||||
Dim _TechnologiesContacts_Collection As New XPCollection(Of TechnologiesContacts)(Session, CriteriaOperator.Parse("Technologies=?", Me))
|
||||
For Each _TechnologiesContacts As TechnologiesContacts In _TechnologiesContacts_Collection
|
||||
_Contacts_Collection.Add(_TechnologiesContacts.Contacts)
|
||||
Next
|
||||
|
||||
Return _Contacts_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Technologies_BusinessDirectory As XPCollection(Of BusinessDirectory)
|
||||
Get
|
||||
Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2"))
|
||||
|
||||
For Each _ProductsElem As Products In Products
|
||||
If _ProductsElem.MasterBusinessDirectory IsNot Nothing Then
|
||||
If _ProductsElem.MasterBusinessDirectory.Children.Count > 0 Then
|
||||
_BusinessDirectory_Collection.Add(_ProductsElem.MasterBusinessDirectory)
|
||||
RecursiveBusinessDirectory(_BusinessDirectory_Collection, _ProductsElem.MasterBusinessDirectory.NestedBusinessDirectory)
|
||||
Else
|
||||
_BusinessDirectory_Collection.Add(_ProductsElem.MasterBusinessDirectory)
|
||||
End If
|
||||
End If
|
||||
If _ProductsElem.ProductGroups IsNot Nothing Then
|
||||
If _ProductsElem.ProductGroups.MasterBusinessDirectory IsNot Nothing Then
|
||||
If _ProductsElem.ProductGroups.MasterBusinessDirectory.Children.Count > 0 Then
|
||||
_BusinessDirectory_Collection.Add(_ProductsElem.ProductGroups.MasterBusinessDirectory)
|
||||
RecursiveBusinessDirectory(_BusinessDirectory_Collection, _ProductsElem.ProductGroups.MasterBusinessDirectory.NestedBusinessDirectory)
|
||||
Else
|
||||
_BusinessDirectory_Collection.Add(_ProductsElem.ProductGroups.MasterBusinessDirectory)
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _ServicesElem As Services In Services
|
||||
If _ServicesElem.MasterBusinessDirectory IsNot Nothing Then
|
||||
If _ServicesElem.MasterBusinessDirectory.Children.Count > 0 Then
|
||||
_BusinessDirectory_Collection.Add(_ServicesElem.MasterBusinessDirectory)
|
||||
RecursiveBusinessDirectory(_BusinessDirectory_Collection, _ServicesElem.MasterBusinessDirectory.NestedBusinessDirectory)
|
||||
Else
|
||||
_BusinessDirectory_Collection.Add(_ServicesElem.MasterBusinessDirectory)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
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
|
||||
#Region "Other subs"
|
||||
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 Region
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user