Version 2.0.0.3

Global_Indexer/frmAdministration.vb

@@ -89,7 +89,7 @@ Public Class frmAdministration
 
             If MyDataset.TBDD_DOKUMENTART.Rows.Count > 0 Then
                 GridView1.SelectRow(1)
-                enableControls(XtraTabPageProfiles)
+                EnableControls(XtraTabPageProfiles)
             End If
             If Me.DOKART_GUIDTextBox.Text <> "" Then
                 Load_TabData()
@@ -321,7 +321,7 @@ Public Class frmAdministration
         Try
             Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, ProfileId)
             If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
-                enableControls(XtraTabPageManualIndex)
+                EnableControls(XtraTabPageManualIndex)
             End If
             ClearStatus()
         Catch ex As System.Exception
@@ -332,7 +332,7 @@ Public Class frmAdministration
         Try
             Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, ProfileId)
             If MyDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
-                enableControls(XtraTabPageAutoIndex)
+                EnableControls(XtraTabPageAutoIndex)
             End If
             CheckIndexAutoWD()
         Catch ex As System.Exception
@@ -344,7 +344,7 @@ Public Class frmAdministration
             Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, ProfileId)
             Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, ProfileId)
             If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
-                enableControls(XtraTabPageManualIndexFunctions)
+                EnableControls(XtraTabPageManualIndexFunctions)
             End If
             ClearStatus()
         Catch ex As System.Exception
@@ -370,7 +370,7 @@ Public Class frmAdministration
             IsInsert = True
             MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
-            enableControls(XtraTabPageManualIndex)
+            EnableControls(XtraTabPageManualIndex)
             If GI_withWindream = True Then
                 Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
             End If
@@ -455,6 +455,8 @@ Public Class frmAdministration
             If oSelectedPageName = XtraTabPageEmail.Name Then
                 RibbonControl1.SelectedPage = RibbonPageEmail
             End If
+
+
         Else
             RibbonPageCategoryMisc.Visible = False
         End If
@@ -466,6 +468,9 @@ Public Class frmAdministration
                 End If
             Case 2
                 ObjektTypenListBoxEintragen()
+                If ListBoxControl1.Items.Count > 0 Then
+                    EnableControls(pnlObjekttype_Config)
+                End If
         End Select
     End Sub
     Sub load_WDIndicesemail(Otype As String)
@@ -612,7 +617,7 @@ Public Class frmAdministration
             Save_Dokumentart()
             MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
-            enableControls(XtraTabPageAutoIndex)
+            EnableControls(XtraTabPageAutoIndex)
             IsInsert = True
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexeAuto: ")
@@ -796,15 +801,15 @@ Public Class frmAdministration
 
     Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
         Save_Dokumentart()
-        enableControls(XtraTabPageManualIndexFunctions)
+        EnableControls(XtraTabPageManualIndexFunctions)
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn.DefaultValue = "Funktions Name"
     End Sub
-    Sub enableControls(obj As Object)
-        For Each element In obj.Controls
-            If element.enabled = False Then
-                element.enabled = True
+    Sub EnableControls(Control As Control)
+        For Each oSubControl As Control In Control.Controls
+            If oSubControl.Enabled = False Then
+                oSubControl.Enabled = True
             End If
         Next
     End Sub
@@ -860,7 +865,7 @@ Public Class frmAdministration
 
     Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
         MyDataset.TBDD_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName
-        enableControls(XtraTabPageUsersGroups)
+        EnableControls(XtraTabPageUsersGroups)
     End Sub
 
     Private Sub btnAddWindowsVariable_Click(sender As Object, e As EventArgs) Handles btnAddWindowsVariable.Click
@@ -1236,10 +1241,6 @@ Public Class frmAdministration
         Save_PostProcessing()
     End Sub
 
-    Private Sub ToolStripButton25_Click(sender As Object, e As EventArgs)
-        MsgBox("TODO: Implement")
-    End Sub
-
     Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
         Dim result As MsgBoxResult
 
@@ -1333,4 +1334,13 @@ Public Class frmAdministration
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
         End Try
     End Sub
+
+    Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
+        If DOKART_GUIDTextBox.Text <> String.Empty Then
+            Dim profileId As Integer = DOKART_GUIDTextBox.Text
+
+            gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(profileId)
+            gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(profileId)
+        End If
+    End Sub
 End Class