MS V 3.1.3 Beta RightGroups und NodeConfig-Adding

This commit is contained in:
2024-05-23 17:14:14 +02:00
parent ae4032ea59
commit bd084a0072
22 changed files with 3398 additions and 1522 deletions

View File

@@ -379,7 +379,7 @@ Public Class frmNodeNavigation
ClassControlValues.LoadControlValuesListWithPlaceholders(_EntityId, CURRENT_RECORD_ID, 0, CtrlBuilder.AllControls, _EntityId)
CtrlBuilder.WatchRecordChanges = True
Await Show_Selected_Record_Data(CURRENT_RECORD_ID)
Show_SelectedDoc()
ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId)
CONTROL_HANDLING()
@@ -2985,17 +2985,20 @@ Public Class frmNodeNavigation
End Sub
Private Sub GridViewDoc_Search_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles GridViewDoc_Search.SelectionChanged
Show_SelectedDoc()
End Sub
Private Sub Show_SelectedDoc()
Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oSelectedDocs.Count = 1 Then
Dim oDocument As ClassWindreamDocGrid.WindreamDoc = oSelectedDocs.First()
Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath)
DocumentViewer.LoadFile(oPath)
Refresh_DocID()
Else
DocumentViewer.CloseDocument()
End If
End Sub
Private Async Sub btnCreateNewNode_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateNewNode.ItemClick
Dim oForm As New frmNewNode() With {
.NodeConfigTypes = AvailableConfigNodes