MS

app/DD-Record-Organizer/frmNodeNavigation.vb

@@ -40,7 +40,7 @@ Public Class frmNodeNavigation
         Public hProcess As IntPtr
     End Structure
 #Region "Laufzeitvariablen & Konstanten"
-    Dim DTNODES As DataTable
+    Dim DT_STRUCTURE_NODES As DataTable
     Dim DT_ADDING_USERS As DataTable
     Dim DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
     Private RunningTask As Task
@@ -53,6 +53,7 @@ Public Class frmNodeNavigation
     Private oFilterActive As Boolean = False
     Private ROW_READ_ONLY As Boolean = False
     Private ADD_RECORDS_CONSTR As Boolean = True
+    Private TV_Collapse_ExpandState = "Collapse"
     Public CtrlBuilder As ClassControlBuilder
     Public CtrlCommandUI As ClassControlCommandsUI
     Public Enum EditState
@@ -305,7 +306,7 @@ Public Class frmNodeNavigation
             Dim oToken = RunningTaskTokenSource.Token
             Dim Sql = String.Format("select T.GUID,T.RECORD_ID, T.NODE_CONFIG_ID,T.NODE_CAPTION,T.ID1, T.BACK_COLOR,T.PARENT_GUID from VWPMO_STRUCTURE_NODES T 
                 INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T.ENTITY_ID = {0}", CURRENT_ENTITY_ID)
-            DTNODES = MYDB_ECM.GetDatatable(Sql)
+            DT_STRUCTURE_NODES = MYDB_ECM.GetDatatable(Sql)
             Sql = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T.ENTITY_ID = {0}", CURRENT_ENTITY_ID)
             Dim DT_TREEVIEW_CONFIGURATION = MYDB_ECM.GetDatatable(Sql)
             For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
@@ -323,10 +324,11 @@ Public Class frmNodeNavigation
 
 
 
-            TreeListDevexpress.DataSource = DTNODES
+            TreeListDevexpress.DataSource = DT_STRUCTURE_NODES
             TreeListDevexpress.KeyFieldName = "GUID"
             TreeListDevexpress.ParentFieldName = "PARENT_GUID"
             TreeListDevexpress.StateImageList = ImageCollection1
+
             Try
                 TreeListDevexpress.Columns.ColumnByName("colRECORD_ID").Visible = False
             Catch ex As Exception
@@ -406,6 +408,7 @@ Public Class frmNodeNavigation
             FocusedNode = treeListNode
             RPGNodes.Enabled = True
             Dim oID = treeListNode.Id
+            Console.Write($"Node ID: {oID}")
             Dim PID = treeListNode.ParentNode
             Dim Column_pRecord As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeListDevexpress.Columns("RECORD_ID")
             Dim Column_Caption As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeListDevexpress.Columns("NODE_CAPTION")
@@ -417,7 +420,7 @@ Public Class frmNodeNavigation
                 Exit Sub
             End If
             Dim oNodeInfo = $"NodeGUID {oID}"
-
+            Console.Write(oNodeInfo)
             If pRecord.Length > 0 Then
                 oNodeInfo += $" - RecordID {pRecord}"
                 Node_AfterSelect = True
@@ -456,13 +459,17 @@ Public Class frmNodeNavigation
                             bbtnitmRecSave.Enabled = False
                         Else
                             bbtnitmRecEdit.Enabled = True
-
+                            In_Visible_Record_Group(True)
                         End If
 
                     End If
                     If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
                         bbtnitmRecEdit.Enabled = False
                         bbtnitmRecSave.Enabled = False
+                    Else
+                        bbtnitmRecEdit.Enabled = True
+                        In_Visible_Record_Group(True)
+
                     End If
                     '    bbtniCopyRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                     '    bbtniNewVariant2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -490,6 +497,8 @@ Public Class frmNodeNavigation
 
                 'swAll.Done()
                 Node_AfterSelect = False
+            Else
+
             End If
             Update_Status_Label(True, oNodeInfo, EditState.None)
         Next
@@ -678,7 +687,7 @@ Public Class frmNodeNavigation
             DT_COLUMNS_GRID_ENTITY = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
             expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}'", oEntityID, USER_LANGUAGE)
             DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE")
-
+            LOGGER.Debug($"Found {DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count} DT_DOCRESULT_DROPDOWN_ITEMS!")
             DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & oEntityID, "")
             expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", oEntityID, USER_LANGUAGE)
             DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
@@ -878,9 +887,9 @@ Public Class frmNodeNavigation
         sw.Done()
     End Sub
     Private Sub OnRecordChanged(sender As Object, e As System.EventArgs)
-        'If ENTITY_LOADING_PROCESS Then
-        '    RECORD_CHANGED = True
-        'End If
+        If ENTITY_LOADING_PROCESS Then
+            RECORD_CHANGED = True
+        End If
 
     End Sub
     'Private Sub HandleToolTip(sender As Object, e As EventArgs)
@@ -2717,19 +2726,19 @@ Public Class frmNodeNavigation
 
     End Sub
 
-    Private Sub TreeListDevexpress_MouseUp(sender As Object, e As MouseEventArgs) Handles TreeListDevexpress.MouseUp
-        Dim tree As TreeList = TryCast(sender, TreeList)
-        Dim oLocation = e.Location
-        'If e.Button = MouseButtons.Right AndAlso ModifierKeys = Keys.None AndAlso tree.State = TreeListState.Regular Then
+    'Private Sub TreeListDevexpress_MouseUp(sender As Object, e As MouseEventArgs) Handles TreeListDevexpress.MouseUp
+    '    Dim tree As TreeList = TryCast(sender, TreeList)
+    '    Dim oLocation = e.Location
+    '    'If e.Button = MouseButtons.Right AndAlso ModifierKeys = Keys.None AndAlso tree.State = TreeListState.Regular Then
 
-        '    Dim info As TreeListHitInfo = tree.CalcHitInfo(e.Location)
+    '    '    Dim info As TreeListHitInfo = tree.CalcHitInfo(e.Location)
 
-        '    FocusedNode = tree.FocusedNode
-        '    Dim SavedTopIndex As Integer = tree.TopVisibleNodeIndex
-        '    tree.FocusedNode = info.Node
-        '    cmsTreeView.Show(TreeListDevexpress, e.Location)
-        'End If
-    End Sub
+    '    '    FocusedNode = tree.FocusedNode
+    '    '    Dim SavedTopIndex As Integer = tree.TopVisibleNodeIndex
+    '    '    tree.FocusedNode = info.Node
+    '    '    cmsTreeView.Show(TreeListDevexpress, e.Location)
+    '    'End If
+    'End Sub
 
     Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
         If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
@@ -2836,4 +2845,18 @@ Public Class frmNodeNavigation
 
         Cursor = Cursors.Default
     End Sub
+
+    Private Sub bbtnItm_TV_Collape_Expand_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnItm_TV_Collape_Expand.ItemClick
+        If TV_Collapse_ExpandState = "Collapse" Then
+            TreeListDevexpress.CollapseAll()
+            TV_Collapse_ExpandState = "Expand"
+        Else
+            TreeListDevexpress.ExpandAll()
+            TV_Collapse_ExpandState = "Collapse"
+        End If
+    End Sub
+
+    Private Sub bbtnitmRecSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmRecSave.ItemClick
+        Save_Record()
+    End Sub
 End Class