MS

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -56,6 +56,7 @@ Public Class frmConstructor_Main
 
     Private CONSTRUCTORID As Integer
     Private CONSTRUCTOR_DETAIL_ID As Integer
+    Private CONSTRUCT_EXPAND As Boolean = True
     Private DT_CONSTRUCT_VIEW As DataTable
     Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
     Private DT_ENTITY_DATA As DataTable
@@ -1167,6 +1168,9 @@ Public Class frmConstructor_Main
                 TreeViewMain.Nodes.Add(node.Clone)
             Next
         End If
+        If CONSTRUCT_EXPAND = True Then
+            TreeViewMain.ExpandAll()
+        End If
     End Sub
     Sub Load_Tree_View(ConstructorId As Integer)
         Try
@@ -1289,6 +1293,7 @@ Public Class frmConstructor_Main
                                  Select form
                                  Where form.Item("FORM_ID") = ENTITY_ID).Single()
                 CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
+                CONSTRUCT_EXPAND = result.Item("EXPAND")
                 Dim FORM_DATE_FORMAT = result.Item("DATE_FORMAT")
                 If FORM_DATE_FORMAT <> USER_DATE_FORMAT Then
                     CURRENT_DATE_FORMAT = FORM_DATE_FORMAT