From 6ba7bc27c17a6812a77ba3423754d304419c192c Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 21 Apr 2020 12:09:06 +0200
Subject: [PATCH] load groups/users when only one profile exists, disable extra
 tabs when no profile exists

---
 Global_Indexer/frmAdministration.vb | 30 +++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb
index 4cb6104..82a1260 100644
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -62,10 +62,13 @@ Public Class frmAdministration
         ComboBox3.DataSource = oDatatable
 
         Try
-            Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
+            Me.TBDD_DOKUMENTARTTableAdapter.FillByModuleGI(Me.MyDataset.TBDD_DOKUMENTART)
             Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
             Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
 
+            TBDD_DOKUMENTARTBindingSource.ResetBindings(True)
+            MaybeDisableUserAndEmailTabs()
+
             ' Initialize Profile-GridControl before its tab is loaded
             ' prevents jumping of selected profile when selected tab is changed
             GridControl3.ForceInitialize()
@@ -77,6 +80,17 @@ Public Class frmAdministration
             End If
         End If
     End Sub
+
+    Private Sub MaybeDisableUserAndEmailTabs()
+        If MyDataset.TBDD_DOKUMENTART.Rows.Count = 0 Then
+            XtraTabPageUsersGroups.PageEnabled = False
+            XtraTabPageEmail.PageEnabled = False
+        Else
+            XtraTabPageUsersGroups.PageEnabled = True
+            XtraTabPageEmail.PageEnabled = True
+        End If
+    End Sub
+
     Private Sub ObjektTypenEintragen()
         Try
             pnlObjekttype_Config.Enabled = False
@@ -204,6 +218,7 @@ Public Class frmAdministration
                 End Try
 
                 TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART)
+                MaybeDisableUserAndEmailTabs()
 
                 If IsInsert = True Then
                     Dim oNewID As Integer
@@ -336,13 +351,19 @@ Public Class frmAdministration
         If DOKART_GUIDTextBox.Text <> "" Then
             Load_Dokart()
             'Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
-            Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
+            If DOKART_GUIDTextBox.Text <> String.Empty Then
+                Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
+            End If
+
             If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
                 btnSQLView.Visible = True
             Else
                 btnSQLView.Visible = False
             End If
-            Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
+            If DOKART_GUIDTextBox.Text <> String.Empty Then
+                Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
+            End If
+
         End If
         frmloaded = True
         WM_CHECKED_CHANGE()
@@ -1076,7 +1097,7 @@ Public Class frmAdministration
                 Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
                 If ClassDatabase.Execute_non_Query(del, True) = True Then
                     Load_Dokart()
-
+                    MaybeDisableUserAndEmailTabs()
 
                     If USER_LANGUAGE = "de-DE" Then
                         MsgBox("Das Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
@@ -1122,6 +1143,7 @@ Public Class frmAdministration
 
     Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
         LoadGlobix_Doctypes()
+        MaybeDisableUserAndEmailTabs()
     End Sub
 
     Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick