Partial Class HRPerson_VC _ Public Sub New(ByVal Container As System.ComponentModel.IContainer) MyClass.New() 'Required for Windows.Forms Class Composition Designer support Container.Add(Me) End Sub 'Component overrides dispose to clean up the component list. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Component Designer 'It can be modified using the Component Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.aMergeUsers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) Me.aCreateUniqeObjects = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) Me.aCloneHRPersonTasks = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) Me.aMergeHRPerson = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) ' 'aMergeUsers ' Me.aMergeUsers.Caption = "aMergeUsers" Me.aMergeUsers.Category = "ObjectsCreation" Me.aMergeUsers.ConfirmationMessage = "Do you want to execute?" Me.aMergeUsers.Id = "aMergeUsers" Me.aMergeUsers.ImageName = Nothing Me.aMergeUsers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aMergeUsers.Shortcut = Nothing Me.aMergeUsers.Tag = Nothing Me.aMergeUsers.TargetObjectsCriteria = Nothing Me.aMergeUsers.TargetViewId = "User_ListView_Deleted" Me.aMergeUsers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView Me.aMergeUsers.ToolTip = Nothing Me.aMergeUsers.TypeOfView = GetType(DevExpress.ExpressApp.ListView) ' 'aCreateUniqeObjects ' Me.aCreateUniqeObjects.Caption = "aCreateUniqeObjects" Me.aCreateUniqeObjects.Category = "ObjectsCreation" Me.aCreateUniqeObjects.ConfirmationMessage = "Do you want to execute?" Me.aCreateUniqeObjects.Id = "aCreateUniqeObjects" Me.aCreateUniqeObjects.ImageName = Nothing Me.aCreateUniqeObjects.Shortcut = Nothing Me.aCreateUniqeObjects.Tag = Nothing Me.aCreateUniqeObjects.TargetObjectsCriteria = Nothing Me.aCreateUniqeObjects.TargetObjectType = GetType(SISBusiness.[Module].HRPerson) Me.aCreateUniqeObjects.TargetViewId = "" Me.aCreateUniqeObjects.TargetViewType = DevExpress.ExpressApp.ViewType.ListView Me.aCreateUniqeObjects.ToolTip = Nothing Me.aCreateUniqeObjects.TypeOfView = GetType(DevExpress.ExpressApp.ListView) ' 'aCloneHRPersonTasks ' Me.aCloneHRPersonTasks.AcceptButtonCaption = Nothing Me.aCloneHRPersonTasks.CancelButtonCaption = Nothing Me.aCloneHRPersonTasks.Caption = "aClone HRPerson Tasks" Me.aCloneHRPersonTasks.Category = "ObjectsCreation" Me.aCloneHRPersonTasks.ConfirmationMessage = Nothing Me.aCloneHRPersonTasks.Id = "aCloneHRPersonTasks" Me.aCloneHRPersonTasks.ImageName = Nothing Me.aCloneHRPersonTasks.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject Me.aCloneHRPersonTasks.Shortcut = Nothing Me.aCloneHRPersonTasks.Tag = Nothing Me.aCloneHRPersonTasks.TargetObjectsCriteria = Nothing Me.aCloneHRPersonTasks.TargetObjectType = GetType(SISBusiness.[Module].HRPersonTasks) Me.aCloneHRPersonTasks.TargetViewId = Nothing Me.aCloneHRPersonTasks.ToolTip = Nothing Me.aCloneHRPersonTasks.TypeOfView = Nothing ' 'aMergeHRPerson ' Me.aMergeHRPerson.Caption = "aMergeHRPerson" Me.aMergeHRPerson.Category = "ObjectsCreation" Me.aMergeHRPerson.ConfirmationMessage = "Do you want to execute?" Me.aMergeHRPerson.Id = "aMergeHRPerson" Me.aMergeHRPerson.ImageName = Nothing Me.aMergeHRPerson.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects Me.aMergeHRPerson.Shortcut = Nothing Me.aMergeHRPerson.Tag = Nothing Me.aMergeHRPerson.TargetObjectsCriteria = Nothing Me.aMergeHRPerson.TargetViewId = "HRPerson_ListView_Deleted" Me.aMergeHRPerson.TargetViewType = DevExpress.ExpressApp.ViewType.ListView Me.aMergeHRPerson.ToolTip = Nothing Me.aMergeHRPerson.TypeOfView = GetType(DevExpress.ExpressApp.ListView) End Sub Friend WithEvents aCreateUniqeObjects As DevExpress.ExpressApp.Actions.SimpleAction Friend WithEvents aCloneHRPersonTasks As DevExpress.ExpressApp.Actions.PopupWindowShowAction Friend WithEvents aMergeUsers As DevExpress.ExpressApp.Actions.SimpleAction Friend WithEvents aMergeHRPerson As DevExpress.ExpressApp.Actions.SimpleAction End Class