MS Doctype Config

GUIs.ZooFlow/Administration/ClassDetailForm.vb

@@ -62,6 +62,13 @@ Public Class ClassDetailForm
             .NewRecordTitle = "",
             .[Module] = MODULE_GI,
             .Entity = PAGE_GI_RELATIONS
+        }},
+        {PAGE_IDB_DOCTYPE_CONFIG,
+        New DetailSettings With {
+            .GridTitle = "Doctype Configuration",
+            .NewRecordTitle = "New Configuration",
+            .[Module] = MODULE_IDB,
+            .Entity = PAGE_IDB_DOCTYPE_CONFIG
         }}
     }
 
@@ -103,6 +110,9 @@ Public Class ClassDetailForm
                 Dim oForm As New frmAdmin_GlobixRelations
                 oForm.ShowDialog()
                 Return True
+            Case PAGE_IDB_DOCTYPE_CONFIG
+                Dim oForm As New frmAdmin_DoctypeConfig(PrimaryKey) With {.IsInsert = IsInsert}
+                oForm.ShowDialog()
             Case Else
                 Return False
         End Select