MS Configruation Doctype

GUIs.ZooFlow/Administration/ClassDetailForm.vb

@@ -57,8 +57,14 @@ Public Class ClassDetailForm
             .[Module] = MODULE_GI,
             .Entity = PAGE_GI_RELATIONS
         }},
-        {PAGE_IDB_DOCTYPE_CONFIG, New DetailSettings With {
+          {PAGE_IDB_DOCTYPE, New DetailSettings With {
             .GridTitle = "Doctype Configuration",
+            .NewRecordTitle = "New Doctype",
+            .[Module] = MODULE_IDB,
+            .Entity = PAGE_IDB_DOCTYPE
+        }},
+        {PAGE_IDB_DOCTYPE_CONFIG, New DetailSettings With {
+            .GridTitle = "Detail Doctype Configuration",
             .NewRecordTitle = "New Configuration",
             .[Module] = MODULE_IDB,
             .Entity = PAGE_IDB_DOCTYPE_CONFIG
@@ -152,7 +158,10 @@ Public Class ClassDetailForm
                 Dim oForm As New frmAdmin_DoctypeConfig(PrimaryKey) With {.IsInsert = IsInsert}
                 oForm.ShowDialog()
                 Return True
-
+            Case PAGE_IDB_DOCTYPE
+                Dim oForm As New frmAdmin_Doctype(0)
+                oForm.ShowDialog()
+                Return True
             Case Else
                 Return False
         End Select