MS Globix Verwaltung Integration

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -334,6 +334,9 @@ Public Class frmAdmin_Start
                                 Case Else
                                     ShowError($"Scope {oItem.Scope} is not implemented!")
                             End Select
+                        Case TreeList_GLOBIXProfiles.Name
+                            GLOBIX_JUMP_DOCTYPE_ID = oItem.RealGuid
+                            Load_GLOBIXProfile(oItem.RealGuid)
                     End Select
                 End If
             Catch ex As Exception
@@ -387,6 +390,21 @@ Public Class frmAdmin_Start
             ShowError(ex)
         End Try
     End Sub
+    Private Sub Load_GLOBIXProfile(PrimaryKey As Integer)
+        Try
+            Dim oForm As New frmGlobixAdministration(PrimaryKey)
+            oForm.ShowDialog()
+
+            If oForm.HasChanges Then
+                Load_SQLData()
+                Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList
+
+                Load_Tree(oItems, TreeList_CWProfiles)
+            End If
+        Catch ex As Exception
+            ShowError(ex)
+        End Try
+    End Sub
 
     Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
         Try