MS Relations Doctype

GUIs.ZooFlow/Administration/ClassDetailForm.vb

@@ -53,8 +53,15 @@ Public Class ClassDetailForm
         New DetailSettings With {
             .GridTitle = "Attribute-Relations",
             .NewRecordTitle = "",
-            .[Module] = MODULE_CW,
-            .Entity = PAGE_CW_PROFILES
+            .[Module] = MODULE_IDB,
+            .Entity = PAGE_IDB_ATTRIBUTES
+        }},
+        {PAGE_GI_RELATIONS,
+        New DetailSettings With {
+            .GridTitle = "Profile-Relations",
+            .NewRecordTitle = "",
+            .[Module] = MODULE_GI,
+            .Entity = PAGE_GI_RELATIONS
         }}
     }
 
@@ -92,6 +99,10 @@ Public Class ClassDetailForm
                 Dim oForm As New frmAdmin_IDBBERelations
                 oForm.ShowDialog()
                 Return True
+            Case PAGE_GI_RELATIONS
+                Dim oForm As New frmAdmin_GlobixRelations
+                oForm.ShowDialog()
+                Return True
             Case Else
                 Return False
         End Select