65 lines
2.6 KiB
VB.net
65 lines
2.6 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
Imports System.Collections.Generic
|
|
Imports System.Diagnostics
|
|
Imports System.Text
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.Actions
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.ExpressApp.SystemModule
|
|
Imports DevExpress.ExpressApp.CloneObject
|
|
|
|
Public Class Services_VC
|
|
Inherits DevExpress.ExpressApp.ViewController
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
RegisterActions(components)
|
|
End Sub
|
|
|
|
#Region "Overrides"
|
|
Protected Overrides Sub OnActivated()
|
|
MyBase.OnActivated()
|
|
If View.Id = "Services_Services_BusinessDirectory_ListView" Then
|
|
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
|
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
|
End If
|
|
End Sub
|
|
Protected Overrides Sub OnDeactivated()
|
|
MyBase.OnDeactivated()
|
|
If View.Id = "Services_Services_BusinessDirectory_ListView" Then
|
|
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
|
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
Private Sub aServices_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aServices_CreateBusinessDirectory.Execute
|
|
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
|
Dim _Services As Services = TryCast(View.SelectedObjects(0), Services)
|
|
|
|
If _Services.MasterBusinessDirectory Is Nothing Then
|
|
Dim _ServicesBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(DevExpress.Data.Filtering.CriteriaOperator.Parse("ShortName='Szolgáltatások' AND IsNull(BusinessDirectory_Parent)=True"))
|
|
|
|
If _ServicesBaseBusinessDirectory Is Nothing Then
|
|
_ServicesBaseBusinessDirectory = New BusinessDirectory(_ocur.Session)
|
|
With _ServicesBaseBusinessDirectory
|
|
.ShortName = "Szolgáltatások"
|
|
.BusinessDirectory_Parent = Nothing
|
|
End With
|
|
End If
|
|
|
|
Dim _ServicesBusinessDirectory As New BusinessDirectory(_ocur.Session)
|
|
With _ServicesBusinessDirectory
|
|
.ShortName = _Services.ShortName
|
|
.BusinessDirectory_Parent = _ServicesBaseBusinessDirectory
|
|
End With
|
|
_Services.MasterBusinessDirectory = _ServicesBusinessDirectory
|
|
|
|
_ocur.CommitChanges()
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|