more fixes

Global_Indexer/frmAdministration.vb

@@ -482,10 +482,8 @@ Public Class frmAdministration
                     Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
                 End If
             Case 2
+                EnableControls(pnlObjekttype_Config, False)
                 ObjektTypenListBoxEintragen()
-                If ListBoxControl1.Items.Count > 0 Then
-                    EnableControls(pnlObjekttype_Config)
-                End If
         End Select
     End Sub
     Sub load_WDIndicesemail(Otype As String)
@@ -594,17 +592,23 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub LoadIDXEmail(Otype As String)
+    Private Function LoadIDXEmail(Otype As String) As Integer
         Try
-            Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(Me.MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, Otype)
+            Return TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, Otype)
         Catch ex As System.Exception
             MsgBox("Error in LoadIDXEmail:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return -1
         End Try
-    End Sub
+    End Function
 
     Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl1.SelectedIndexChanged
         If ListBoxControl1.SelectedIndex <> -1 Then
-            LoadIDXEmail(ListBoxControl1.SelectedItem)
+            Dim oRows As Integer = LoadIDXEmail(ListBoxControl1.SelectedItem)
+
+            If oRows > 0 Then
+                EnableControls(pnlObjekttype_Config)
+            End If
+
             load_WDIndicesemail(ListBoxControl1.SelectedItem)
         End If
     End Sub
@@ -821,10 +825,10 @@ Public Class frmAdministration
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn.DefaultValue = "Funktions Name"
     End Sub
-    Sub EnableControls(Control As Control)
+    Sub EnableControls(Control As Control, Optional Value As Boolean = True)
         For Each oSubControl As Control In Control.Controls
-            If oSubControl.Enabled = False Then
-                oSubControl.Enabled = True
+            If oSubControl.Enabled <> Value Then
+                oSubControl.Enabled = Value
             End If
         Next
     End Sub
@@ -986,6 +990,7 @@ Public Class frmAdministration
 
     Private Sub TBGI_REGEX_DOCTYPEBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBGI_REGEX_DOCTYPEBindingSource.AddingNew
         MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        MyDataset.TBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn.DefaultValue = DOKART_GUIDTextBox.Text
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@@ -1097,8 +1102,8 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
-
         Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
+        EnableControls(pnlObjekttype_Config)
     End Sub
 
     Private Sub BarButtonItem10_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
@@ -1157,25 +1162,6 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Private Sub ToolStripButton10_Click(sender As Object, e As EventArgs)
-        Try
-            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
-        Catch ex As Exception
-            MsgBox("Error in Save Regex1: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
-            Exit Sub
-        End Try
-
-        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
-            TextBox4.Text = Environment.UserName
-            Try
-                Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
-            Catch ex As Exception
-                MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
-            End Try
-            TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
-        End If
-    End Sub
-
     Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
         ObjektTypenEintragen()
     End Sub
@@ -1358,4 +1344,17 @@ Public Class frmAdministration
             gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(profileId)
         End If
     End Sub
+
+    Private Sub BarButtonItem28_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem28.ItemClick
+        TBGI_REGEX_DOCTYPEBindingSource.AddNew()
+        EnableControls(XtraTabPageProfileRegex)
+    End Sub
+
+    Private Sub ListBoxControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl3.SelectedIndexChanged
+        If ListBoxControl3.SelectedIndex = -1 Then
+            EnableControls(Panel1, False)
+        Else
+            EnableControls(Panel1)
+        End If
+    End Sub
 End Class