First create solution
This commit is contained in:
@@ -0,0 +1,495 @@
|
||||
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.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports System.IO
|
||||
Imports System.Security
|
||||
Imports System.Xml
|
||||
|
||||
Imports System.Security.Principal
|
||||
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Base.Security
|
||||
|
||||
Imports DevExpress.ExpressApp.Security
|
||||
Imports DevExpress.ExpressApp.Updating
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports Nuvolar.Module
|
||||
|
||||
|
||||
Public Class CustomRoleEditorVC
|
||||
Inherits DevExpress.ExpressApp.ViewController(Of ListView)
|
||||
Private _GridListEditor As GridListEditor
|
||||
Protected _selection As ArrayList
|
||||
Protected _noselect As Boolean = False
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
_selection = New ArrayList()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
''____________Továbbgondolásig letíltva!__________________________>>>>
|
||||
'Frame.GetController(Of CustomRoleEditorVC).aCustomRoleSave.Active.SetItemValue("", False)
|
||||
''____________Továbbgondolásig letíltva!__________________________<<<
|
||||
|
||||
If View.Id = "PermissionMatrix_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
|
||||
AddHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed
|
||||
End If
|
||||
|
||||
'// Permission matrix beállítása Modelbõl
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "PermissionMatrix_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
'If View.Id = "PermissionMatrix_ListView" Then
|
||||
' Dim _ListView As ListView = CType(View, ListView)
|
||||
' _GridListEditor = TryCast(View.Editor, GridListEditor)
|
||||
' If _GridListEditor IsNot Nothing Then
|
||||
' _GridListEditor.AllowEdit = True
|
||||
' For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "IsCreate" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "IsRead" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "IsWrite" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "IsNavigate" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "IsDelete" Then
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False
|
||||
' End If
|
||||
' Next i
|
||||
' End If
|
||||
'End If
|
||||
End Sub
|
||||
Sub PermissionMatrix_selection_changed(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
If View Is Nothing Then Exit Sub
|
||||
If View.Id = "PermissionMatrix_ListView" Then
|
||||
If _noselect = False Then
|
||||
_selection.Clear()
|
||||
For Each _PermissionMatrix As PermissionMatrix In View.SelectedObjects
|
||||
_selection.Add(_PermissionMatrix)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub CreatePermissionMatrix(ByVal ObjectSpace As Xpo.XPObjectSpace)
|
||||
Dim _PermissionMatrix_Collection As XPCollection(Of PermissionMatrix) = New XPCollection(Of PermissionMatrix)(ObjectSpace.Session, CriteriaOperator.Parse("Oid=Oid"))
|
||||
Dim _Role_Collection As XPCollection(Of Role) = New XPCollection(Of Role)(ObjectSpace.Session, CriteriaOperator.Parse("Oid=Oid"))
|
||||
|
||||
Dim _Type As Type
|
||||
Dim _Role As Role
|
||||
Dim _Permission As IPermission
|
||||
Dim _XMLDocument As New XmlDocument
|
||||
Dim _XmlNodes As Xml.XmlNodeList
|
||||
Dim _XmlNode As Xml.XmlNode
|
||||
Dim _XmlNode1 As Xml.XmlNode
|
||||
Dim i As Long
|
||||
Dim _PermissionMatrix As PermissionMatrix
|
||||
Dim _OT As String
|
||||
ObjectSpace.Delete(_PermissionMatrix_Collection)
|
||||
|
||||
For Each _Role In _Role_Collection
|
||||
|
||||
|
||||
For Each _Permission In _Role.Permissions
|
||||
_XMLDocument.LoadXml(_Permission.ToXml.ToString)
|
||||
_XmlNodes = _XMLDocument.SelectNodes("IPermission")
|
||||
For Each _XmlNode In _XmlNodes
|
||||
i = 0
|
||||
For Each _XmlNode1 In _XmlNode.SelectNodes("ParticularAccessItem")
|
||||
If i = 0 Then
|
||||
|
||||
_PermissionMatrix = ObjectSpace.CreateObject(Of PermissionMatrix)()
|
||||
_PermissionMatrix.Role = _Role
|
||||
|
||||
_OT = Replace(_XmlNode1.Attributes("objectType").Value.ToString, "Nuvolar.Module.", "")
|
||||
_PermissionMatrix.ObjectType = _OT
|
||||
End If
|
||||
If _XmlNode1.Attributes("access").Value.ToString = "Create" Then
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsCreate = ePermissionType.Allow
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsCreate = ePermissionType.Deny
|
||||
End If
|
||||
If _XmlNode1.Attributes("access").Value.ToString = "Read" Then
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsRead = ePermissionType.Allow
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsRead = ePermissionType.Deny
|
||||
End If
|
||||
If _XmlNode1.Attributes("access").Value.ToString = "Write" Then
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsWrite = ePermissionType.Allow
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsWrite = ePermissionType.Deny
|
||||
End If
|
||||
If _XmlNode1.Attributes("access").Value.ToString = "Delete" Then
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsDelete = ePermissionType.Allow
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsDelete = ePermissionType.Deny
|
||||
End If
|
||||
If _XmlNode1.Attributes("access").Value.ToString = "Navigate" Then
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsNavigate = ePermissionType.Allow
|
||||
If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsNavigate = ePermissionType.Deny
|
||||
End If
|
||||
i += 1
|
||||
Next
|
||||
_PermissionMatrix.Save()
|
||||
Next
|
||||
Next
|
||||
Next
|
||||
ObjectSpace.CommitChanges()
|
||||
View.Refresh()
|
||||
End Sub
|
||||
Private Sub aCustomRoleLoad_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCustomRoleLoad.Execute
|
||||
Me.CreatePermissionMatrix(View.ObjectSpace)
|
||||
End Sub
|
||||
Private Sub aCustomRoleSave_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCustomRoleSave.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
' Dim _PermissionMatrix_Collection As XPCollection(Of PermissionMatrix) = New XPCollection(Of PermissionMatrix)(_ocur.Session, CriteriaOperator.Parse("IsCreate=? AND IsDelete=? AND IsNavigate=? AND IsRead=? AND IsWrite=?", _
|
||||
' ePermissionType.NotSet, ePermissionType.NotSet, ePermissionType.NotSet, ePermissionType.NotSet, ePermissionType.NotSet))
|
||||
Dim _ObjectName As String = ""
|
||||
Dim _PermissionMatrix_Collection As XPCollection(Of PermissionMatrix) = New XPCollection(Of PermissionMatrix)(_ocur.Session, CriteriaOperator.Parse("1=1"))
|
||||
Dim _Role_Collection As XPCollection(Of Role) = New XPCollection(Of Role)(_ocur.Session, CriteriaOperator.Parse("Oid=Oid"))
|
||||
Dim _PersistentPermission_Collection As XPCollection = _ocur.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("1=1"))
|
||||
|
||||
For Each _Role As Role In _Role_Collection
|
||||
For Each _PermissionMatrix As PermissionMatrix In _PermissionMatrix_Collection
|
||||
If _PermissionMatrix.Role Is _Role Then
|
||||
Dim _PersistentPermissionXPColl As XPCollection = _ocur.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("Role=?", _Role))
|
||||
For Each _PersistentPermission As PersistentPermission In _PersistentPermissionXPColl
|
||||
If TryCast(_PersistentPermission.Permission, EditModelPermission) IsNot Nothing Then
|
||||
_ObjectName = TryCast(_PersistentPermission.Permission, EditModelPermission).GetType.ToString
|
||||
End If
|
||||
If TryCast(_PersistentPermission.Permission, ObjectAccessPermission) IsNot Nothing Then
|
||||
_ObjectName = TryCast(_PersistentPermission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName
|
||||
End If
|
||||
|
||||
Dim _ObjectNameArry As String() = _ObjectName.Split(New [Char]() {"."c})
|
||||
If _ObjectNameArry(_ObjectNameArry.Length - 2) = "Win" Then
|
||||
_ObjectName = _ObjectNameArry(_ObjectNameArry.Length - 2) & "." & _ObjectNameArry(_ObjectNameArry.Length - 1)
|
||||
End If
|
||||
|
||||
If _ObjectName <> _PermissionMatrix.ObjectType And _ObjectNameArry(_ObjectNameArry.Length - 1) <> _PermissionMatrix.ObjectType Then
|
||||
If _PermissionMatrix.IsCreate <> ePermissionType.NotSet And _
|
||||
_PermissionMatrix.IsDelete <> ePermissionType.NotSet And _
|
||||
_PermissionMatrix.IsNavigate <> ePermissionType.NotSet And _
|
||||
_PermissionMatrix.IsRead <> ePermissionType.NotSet And _
|
||||
_PermissionMatrix.IsWrite <> ePermissionType.NotSet Then
|
||||
|
||||
Dim _ActRole As Role = _PermissionMatrix.Role
|
||||
Dim _ActPersistentPermission As XPCollection = _ocur.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("Role=?", _PermissionMatrix.Role))
|
||||
Dim _ObjectAccessPermission As New ObjectAccessPermission
|
||||
_ObjectAccessPermission.ObjectType = ReflectionHelper.FindType(_PermissionMatrix.ObjectType)
|
||||
Select Case _PermissionMatrix.IsRead
|
||||
Case ePermissionType.Allow
|
||||
_ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Allow
|
||||
Case ePermissionType.Deny
|
||||
_ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Deny
|
||||
End Select
|
||||
Select Case _PermissionMatrix.IsWrite
|
||||
Case ePermissionType.Allow
|
||||
_ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Allow
|
||||
Case ePermissionType.Deny
|
||||
_ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Deny
|
||||
End Select
|
||||
Select Case _PermissionMatrix.IsNavigate
|
||||
Case ePermissionType.Allow
|
||||
_ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Allow
|
||||
Case ePermissionType.Deny
|
||||
_ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Deny
|
||||
End Select
|
||||
Select Case _PermissionMatrix.IsDelete
|
||||
Case ePermissionType.Allow
|
||||
_ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Allow
|
||||
Case ePermissionType.Deny
|
||||
_ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Deny
|
||||
End Select
|
||||
Select Case _PermissionMatrix.IsCreate
|
||||
Case ePermissionType.Allow
|
||||
_ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Allow
|
||||
Case ePermissionType.Deny
|
||||
_ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Deny
|
||||
End Select
|
||||
|
||||
_ActRole.AddPermission(_ObjectAccessPermission)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
'Dim _ObjectName As String = ""
|
||||
'Dim _Needpermission As Boolean = False
|
||||
'For Each _ActRole As Role In _Role_Collection
|
||||
' For Each _MatrixElement As PermissionMatrix In _PermissionMatrix_Collection
|
||||
' If Equals(_ActRole, _MatrixElement.Role) Then
|
||||
|
||||
' If _MatrixElement.IsCreate <> ePermissionType.NotSet And _
|
||||
' _MatrixElement.IsDelete <> ePermissionType.NotSet And _
|
||||
' _MatrixElement.IsNavigate <> ePermissionType.NotSet And _
|
||||
' _MatrixElement.IsRead <> ePermissionType.NotSet And _
|
||||
' _MatrixElement.IsWrite <> ePermissionType.NotSet Then
|
||||
' Dim _ObjectAccessPermission As New ObjectAccessPermission
|
||||
|
||||
' Dim _ActPersistentPermission As XPCollection = _ocur.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("Role=?", _MatrixElement.Role))
|
||||
' If _ActPersistentPermission.Count > 0 Then
|
||||
' For Each _PersistentPermission As PersistentPermission In _ActPersistentPermission
|
||||
' If TryCast(_PersistentPermission.Permission, EditModelPermission) IsNot Nothing Then
|
||||
' _ObjectName = TryCast(_PersistentPermission.Permission, EditModelPermission).GetType.ToString
|
||||
' End If
|
||||
' If TryCast(_PersistentPermission.Permission, ObjectAccessPermission) IsNot Nothing Then
|
||||
' _ObjectName = TryCast(_PersistentPermission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName
|
||||
' End If
|
||||
' If _ObjectName <> _MatrixElement.ObjectType Then
|
||||
' _Needpermission = True
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
' If _Needpermission Then
|
||||
' _ObjectAccessPermission.ObjectType = ReflectionHelper.FindType(_MatrixElement.ObjectType)
|
||||
' Select Case _MatrixElement.IsRead
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
' Select Case _MatrixElement.IsWrite
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
' Select Case _MatrixElement.IsNavigate
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
' Select Case _MatrixElement.IsDelete
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
' Select Case _MatrixElement.IsCreate
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
|
||||
' _ActRole.AddPermission(_ObjectAccessPermission)
|
||||
' _Needpermission = False
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' Next
|
||||
|
||||
'Next
|
||||
|
||||
|
||||
'Dim _NotExistPerimissons As New XPCollection
|
||||
'For Each _PermissionMatrix As PermissionMatrix In _PermissionMatrix_Collection
|
||||
' For Each _PersistentPermission As PersistentPermission In _PersistentPermission_Collection
|
||||
' If TryCast(_PersistentPermission.Permission, EditModelPermission) IsNot Nothing Then
|
||||
' _ObjectName = TryCast(_PersistentPermission.Permission, EditModelPermission).GetType.ToString
|
||||
' End If
|
||||
' If TryCast(_PersistentPermission.Permission, ObjectAccessPermission) IsNot Nothing Then
|
||||
' _ObjectName = TryCast(_PersistentPermission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName
|
||||
' End If
|
||||
|
||||
' Next
|
||||
'Next
|
||||
|
||||
|
||||
'For Each _PermissionMatrix As PermissionMatrix In _PermissionMatrix_Collection
|
||||
' For Each _PersistentPermission As PersistentPermission In _PersistentPermission_Collection
|
||||
' If TryCast(_PersistentPermission.Permission, EditModelPermission) IsNot Nothing Then
|
||||
' _ObjectName = TryCast(_PersistentPermission.Permission, EditModelPermission).GetType.ToString
|
||||
' End If
|
||||
' If TryCast(_PersistentPermission.Permission, ObjectAccessPermission) IsNot Nothing Then
|
||||
' _ObjectName = TryCast(_PersistentPermission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName
|
||||
' End If
|
||||
|
||||
' If Not Equals(_PersistentPermission.Role, _PermissionMatrix.Role) Then
|
||||
|
||||
' If _PermissionMatrix.IsCreate <> ePermissionType.NotSet And _
|
||||
' _PermissionMatrix.IsDelete <> ePermissionType.NotSet And _
|
||||
' _PermissionMatrix.IsNavigate <> ePermissionType.NotSet And _
|
||||
' _PermissionMatrix.IsRead <> ePermissionType.NotSet And _
|
||||
' _PermissionMatrix.IsWrite <> ePermissionType.NotSet Then
|
||||
|
||||
' Dim _ObjectAccessPermission As New ObjectAccessPermission
|
||||
' Dim _Role As Role = _PermissionMatrix.Role
|
||||
' _ObjectAccessPermission.ObjectType = ReflectionHelper.FindType(_PermissionMatrix.ObjectType)
|
||||
' Select Case _PermissionMatrix.IsRead
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
' Select Case _PermissionMatrix.IsWrite
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
' Select Case _PermissionMatrix.IsNavigate
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
' Select Case _PermissionMatrix.IsDelete
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
' Select Case _PermissionMatrix.IsCreate
|
||||
' Case ePermissionType.Allow
|
||||
' _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Allow
|
||||
' Case ePermissionType.Deny
|
||||
' _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Deny
|
||||
' End Select
|
||||
|
||||
' '_Role.AddPermission(_ObjectAccessPermission)
|
||||
' End If
|
||||
' End If
|
||||
' Next
|
||||
'Next
|
||||
|
||||
End Sub
|
||||
Private Sub aCustomRoleGroupSetUp_Cancel(sender As Object, e As System.EventArgs) Handles aCustomRoleGroupSetUp.Cancel
|
||||
_noselect = False
|
||||
End Sub
|
||||
Private Sub aCustomRoleGroupSetUp_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCustomRoleGroupSetUp.CustomizePopupWindowParams
|
||||
_noselect = True
|
||||
If _selection.Count > 0 Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CustomRoleGroupSetUpPopUp As CustomRoleGroupSetUpPopUp = _onew.CreateObject(Of CustomRoleGroupSetUpPopUp)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "CustomRoleGroupSetUpPopUp_DetailView", False, _CustomRoleGroupSetUpPopUp)
|
||||
Else
|
||||
_noselect = False
|
||||
'_______________________________________TESZT MIATT____________________>>>>
|
||||
Throw New Exception("*Nincs kiválasztott sor(ok)!")
|
||||
'_______________________________________TESZT MIATT____________________<<<<
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCustomRoleGroupSetUp_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCustomRoleGroupSetUp.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = e.PopupWindow.View.ObjectSpace
|
||||
Dim _CustomRoleGroupSetUpPopUp As CustomRoleGroupSetUpPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CustomRoleGroupSetUpPopUp)
|
||||
Dim _IsCreate As ePermissionType = _CustomRoleGroupSetUpPopUp.IsCreate
|
||||
Dim _IsDelete As ePermissionType = _CustomRoleGroupSetUpPopUp.IsDelete
|
||||
Dim _IsWrite As ePermissionType = _CustomRoleGroupSetUpPopUp.IsWrite
|
||||
Dim _IsRead As ePermissionType = _CustomRoleGroupSetUpPopUp.IsRead
|
||||
Dim _IsNavigate As ePermissionType = _CustomRoleGroupSetUpPopUp.IsNavigate
|
||||
|
||||
For Each _PermissionMatrix As PermissionMatrix In _selection
|
||||
_PermissionMatrix.IsCreate = _IsCreate
|
||||
_PermissionMatrix.IsDelete = _IsDelete
|
||||
_PermissionMatrix.IsWrite = _IsWrite
|
||||
_PermissionMatrix.IsRead = _IsRead
|
||||
_PermissionMatrix.IsNavigate = _IsNavigate
|
||||
|
||||
_PermissionMatrix.Save()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
_noselect = False
|
||||
End Sub
|
||||
Private Sub aCreateCustomRoleObjectTypes_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateCustomRoleObjectTypes.CustomizePopupWindowParams
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _PermissionMatrix As PermissionMatrix = TryCast(View.SelectedObjects(0), PermissionMatrix)
|
||||
Dim _CreateCustomRoleObjectTypes As CreateCustomRoleObjectTypes
|
||||
Dim _FullObjectList As New ArrayList
|
||||
Dim _ActobjectList As New ArrayList
|
||||
Dim _CS As New CollectionSource(_onew, GetType(CreateCustomRoleObjectTypes))
|
||||
' _CreateCustomRoleObjectTypes.Role = _onew.GetObject(_PermissionMatrix.Role)
|
||||
Dim _PersistentPermission As XPCollection = _onew.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("1=1"))
|
||||
|
||||
|
||||
For Each _Permission As PersistentPermission In _PersistentPermission
|
||||
If TryCast(_Permission.Permission, ObjectAccessPermission) IsNot Nothing Then
|
||||
_FullObjectList.Add(TryCast(_Permission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName)
|
||||
End If
|
||||
If TryCast(_Permission.Permission, EditModelPermission) IsNot Nothing Then
|
||||
_FullObjectList.Add(TryCast(_Permission.Permission, EditModelPermission).GetType.ToString)
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _Permissions As IPermission In _PermissionMatrix.Role.Permissions
|
||||
If TryCast(_Permissions, ObjectAccessPermission) IsNot Nothing Then
|
||||
_ActobjectList.Add(_onew.GetObject(TryCast(_Permissions, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName))
|
||||
End If
|
||||
If TryCast(_Permissions, EditModelPermission) IsNot Nothing Then
|
||||
_ActobjectList.Add(_onew.GetObject(TryCast(_Permissions, EditModelPermission).GetType.ToString))
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim _Exist As Boolean = False
|
||||
For Each _s In _FullObjectList
|
||||
For Each _sa In _ActobjectList
|
||||
If _s = _sa Then
|
||||
_Exist = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If Not _Exist Then
|
||||
_CreateCustomRoleObjectTypes = _onew.CreateObject(Of CreateCustomRoleObjectTypes)()
|
||||
_CreateCustomRoleObjectTypes.Role = _onew.GetObject(_PermissionMatrix.Role)
|
||||
_CreateCustomRoleObjectTypes.MissingObjectType = _s
|
||||
|
||||
_cs.add(_CreateCustomRoleObjectTypes)
|
||||
End If
|
||||
_Exist = False
|
||||
Next
|
||||
e.View = Application.CreateListView("CreateCustomRoleObjectTypes_ListView", _CS, False)
|
||||
Else
|
||||
'_______________________________________TESZT MIATT____________________>>>>
|
||||
Throw New Exception("*Nincs kiválasztott sor!")
|
||||
'_______________________________________TESZT MIATT____________________<<<<
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCreateCustomRoleObjectTypes_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateCustomRoleObjectTypes.Execute
|
||||
If e.PopupWindow.View.SelectedObjects.Count > 0 Then
|
||||
Dim _Role As Role = TryCast(View.SelectedObjects(0), PermissionMatrix).Role
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
For Each _CreateCustomRoleObjectTypes As CreateCustomRoleObjectTypes In e.PopupWindow.View.SelectedObjects
|
||||
Dim _PermissionMatrix As PermissionMatrix = _ocur.CreateObject(Of PermissionMatrix)()
|
||||
_PermissionMatrix.Role = _Role
|
||||
_PermissionMatrix.ObjectType = _CreateCustomRoleObjectTypes.MissingObjectType
|
||||
_PermissionMatrix.IsCreate = ePermissionType.NotSet
|
||||
_PermissionMatrix.IsDelete = ePermissionType.NotSet
|
||||
_PermissionMatrix.IsNavigate = ePermissionType.NotSet
|
||||
_PermissionMatrix.IsRead = ePermissionType.NotSet
|
||||
_PermissionMatrix.IsWrite = ePermissionType.NotSet
|
||||
|
||||
_PermissionMatrix.Save()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Else
|
||||
'_______________________________________TESZT MIATT____________________>>>>
|
||||
Throw New Exception("*Legalább egy sort ki kell választani!")
|
||||
'_______________________________________TESZT MIATT____________________<<<<
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user