add user assignment

Global_Indexer/ClassDatatables.vb

@@ -1,5 +1,6 @@
 Public Class ClassDatatables
 
+#Region "TBDD_GROUP"
     Public Shared Function AddGroupToProfile(GroupId As Integer, ProfileId As Integer) As Boolean
         Try
             Dim oSQL = $"
@@ -27,14 +28,13 @@
     Public Shared Function GetAssignedGroups(ProfileId As Integer) As DataTable
         Try
             Dim oSQL As String = $"
-                SELECT * FROM TBDD_GROUPS
-                WHERE (GUID IN
-	                (
-		                SELECT        GROUP_ID
-		                FROM          TBDD_USRGRP_DOKTYPE
-		                WHERE         DOCTYPE_ID = {ProfileId}
-	                )
-                )
+                SELECT GUID, NAME FROM TBDD_GROUPS
+                WHERE GUID IN
+	            (
+		            SELECT        GROUP_ID
+		            FROM          TBDD_USRGRP_DOKTYPE
+		            WHERE         DOCTYPE_ID = {ProfileId}
+	            )
             "
             Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
 
@@ -48,13 +48,58 @@
     Public Shared Function GetAvailableGroups(ProfileId As Integer) As DataTable
         Try
             Dim oSQL As String = $"
-                SELECT * FROM TBDD_GROUPS
-                WHERE NOT (GUID IN
-	                (
-		                SELECT        GROUP_ID
-		                FROM          TBDD_USRGRP_DOKTYPE
+                SELECT GUID, NAME FROM TBDD_GROUPS
+                WHERE GUID NOT IN
+	            (
+		            SELECT        GROUP_ID
+		            FROM          TBDD_USRGRP_DOKTYPE
+		            WHERE         DOCTYPE_ID = {ProfileId}
+	            )
+            "
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+
+#Region "TBDD_USER"
+
+    Public Shared Function AddUserToProfile(UserId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"
+                INSERT INTO TBDD_USER_DOKTYPE 
+                (DOCTYPE_ID, USER_ID, ADDED_WHO)
+                VALUES ({ProfileId}, {UserId}, '{Environment.UserName}')
+            "
+            Return ClassDatabase.Execute_non_Query(oSQL, True)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function RemoveUserFromProfile(UserId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND USER_ID = {UserId}"
+            Return ClassDatabase.Execute_non_Query(oSQL, True)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function GetAssignedUsers(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
+                WHERE GUID IN (
+		                SELECT        USER_ID
+		                FROM          TBDD_USER_DOKTYPE
 		                WHERE         DOCTYPE_ID = {ProfileId}
-	                )
                 )
             "
             Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
@@ -65,4 +110,30 @@
             Return Nothing
         End Try
     End Function
+
+    Public Shared Function GetAvailableUsers(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
+                WHERE GUID NOT IN (
+		                SELECT        USER_ID
+		                FROM          TBDD_USER_DOKTYPE
+		                WHERE         DOCTYPE_ID = {ProfileId}
+	                )
+                AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('GLOBIX', 1))
+            "
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+
+
+
+
+
 End Class

Global_Indexer/frmAdministration.Designer.vb

@@ -132,6 +132,8 @@ Partial Class frmAdministration
         Me.RibbonPageGroupProfileRegex = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.Label12 = New System.Windows.Forms.Label()
+        Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
         Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.gridAssignedGroups = New DevExpress.XtraGrid.GridControl()
         Me.viewAssignedGroups = New DevExpress.XtraGrid.Views.Grid.GridView()
@@ -143,6 +145,22 @@ Partial Class frmAdministration
         Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.Label14 = New System.Windows.Forms.Label()
+        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.SplitContainerControl5 = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl()
+        Me.viewAssignedUsers = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.gridAvailableUsers = New DevExpress.XtraGrid.GridControl()
+        Me.viewAvailableUsers = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.Label35 = New System.Windows.Forms.Label()
         Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl()
         Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
         Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
@@ -176,7 +194,7 @@ Partial Class frmAdministration
         Me.NAMETextBox = New System.Windows.Forms.TextBox()
         Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
         Me.XtraTabPageManualIndexFunctions = New DevExpress.XtraTab.XtraTabPage()
-        Me.ListBoxControl2 = New DevExpress.XtraEditors.ListBoxControl()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
         Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.VARIANTComboBox = New System.Windows.Forms.ComboBox()
         Me.ComboBox2 = New System.Windows.Forms.ComboBox()
@@ -265,7 +283,6 @@ Partial Class frmAdministration
         Me.Label1 = New System.Windows.Forms.Label()
         Me.lblObjekttyp = New System.Windows.Forms.Label()
         Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox()
-        Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox()
         Me.btnNamenkonvention = New System.Windows.Forms.Button()
         Me.BESCHREIBUNGTextBox = New System.Windows.Forms.TextBox()
@@ -291,6 +308,7 @@ Partial Class frmAdministration
         Me.IDX_EMAIL_IDComboBox = New System.Windows.Forms.ComboBox()
         Me.IDX_EMAIL_TOComboBox = New System.Windows.Forms.ComboBox()
         Me.IDX_EMAIL_FROMComboBox = New System.Windows.Forms.ComboBox()
+        Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPageProfiles = New DevExpress.XtraTab.XtraTabPage()
@@ -382,12 +400,22 @@ Partial Class frmAdministration
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControl3.SuspendLayout()
+        Me.XtraTabPage1.SuspendLayout()
         CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControl2.SuspendLayout()
         CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPage2.SuspendLayout()
+        CType(Me.SplitContainerControl5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl5.SuspendLayout()
+        CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControl3.SuspendLayout()
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -398,7 +426,6 @@ Partial Class frmAdministration
         CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPageManualIndexFunctions.SuspendLayout()
-        CType(Me.ListBoxControl2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabPageAutoIndex.SuspendLayout()
@@ -410,12 +437,12 @@ Partial Class frmAdministration
         Me.XtraTabPageProfileRegex.SuspendLayout()
         CType(Me.TBGI_REGEX_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControl4.SuspendLayout()
         CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlObjekttype_Config.SuspendLayout()
         CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl1.SuspendLayout()
@@ -441,7 +468,7 @@ Partial Class frmAdministration
         Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl3)
         Me.SplitContainerControl1.Panel1.Controls.Add(Me.Label12)
         resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
-        Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
+        Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl3)
         resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
         Me.SplitContainerControl1.SplitterPosition = 250
         '
@@ -470,6 +497,8 @@ Partial Class frmAdministration
         Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridView3.Appearance.FocusedRow.BackColor = System.Drawing.Color.Khaki
         Me.GridView3.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.GridView3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Khaki
+        Me.GridView3.Appearance.SelectedRow.Options.UseBackColor = True
         Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG1})
         Me.GridView3.GridControl = Me.GridControl3
         Me.GridView3.Name = "GridView3"
@@ -831,6 +860,19 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.Label12, "Label12")
         Me.Label12.Name = "Label12"
         '
+        'XtraTabControl3
+        '
+        resources.ApplyResources(Me.XtraTabControl3, "XtraTabControl3")
+        Me.XtraTabControl3.Name = "XtraTabControl3"
+        Me.XtraTabControl3.SelectedTabPage = Me.XtraTabPage1
+        Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
+        '
+        'XtraTabPage1
+        '
+        Me.XtraTabPage1.Controls.Add(Me.SplitContainerControl2)
+        Me.XtraTabPage1.Name = "XtraTabPage1"
+        resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1")
+        '
         'SplitContainerControl2
         '
         resources.ApplyResources(Me.SplitContainerControl2, "SplitContainerControl2")
@@ -842,7 +884,7 @@ Partial Class frmAdministration
         Me.SplitContainerControl2.Panel2.Controls.Add(Me.gridAvailableGroups)
         Me.SplitContainerControl2.Panel2.Controls.Add(Me.Label14)
         resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
-        Me.SplitContainerControl2.SplitterPosition = 254
+        Me.SplitContainerControl2.SplitterPosition = 275
         '
         'gridAssignedGroups
         '
@@ -946,6 +988,139 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.Label14, "Label14")
         Me.Label14.Name = "Label14"
         '
+        'XtraTabPage2
+        '
+        Me.XtraTabPage2.Controls.Add(Me.SplitContainerControl5)
+        Me.XtraTabPage2.Name = "XtraTabPage2"
+        resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2")
+        '
+        'SplitContainerControl5
+        '
+        resources.ApplyResources(Me.SplitContainerControl5, "SplitContainerControl5")
+        Me.SplitContainerControl5.Horizontal = False
+        Me.SplitContainerControl5.Name = "SplitContainerControl5"
+        Me.SplitContainerControl5.Panel1.Controls.Add(Me.gridAssignedUsers)
+        Me.SplitContainerControl5.Panel1.Controls.Add(Me.Label2)
+        resources.ApplyResources(Me.SplitContainerControl5.Panel1, "SplitContainerControl5.Panel1")
+        Me.SplitContainerControl5.Panel2.Controls.Add(Me.gridAvailableUsers)
+        Me.SplitContainerControl5.Panel2.Controls.Add(Me.Label35)
+        resources.ApplyResources(Me.SplitContainerControl5.Panel2, "SplitContainerControl5.Panel2")
+        Me.SplitContainerControl5.SplitterPosition = 244
+        '
+        'gridAssignedUsers
+        '
+        Me.gridAssignedUsers.AllowDrop = True
+        resources.ApplyResources(Me.gridAssignedUsers, "gridAssignedUsers")
+        Me.gridAssignedUsers.MainView = Me.viewAssignedUsers
+        Me.gridAssignedUsers.MenuManager = Me.RibbonControl1
+        Me.gridAssignedUsers.Name = "gridAssignedUsers"
+        Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers})
+        '
+        'viewAssignedUsers
+        '
+        Me.viewAssignedUsers.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise
+        Me.viewAssignedUsers.Appearance.EvenRow.Options.UseBackColor = True
+        Me.viewAssignedUsers.Appearance.FocusedRow.BackColor = System.Drawing.Color.Khaki
+        Me.viewAssignedUsers.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn3, Me.GridColumn5, Me.GridColumn4})
+        Me.viewAssignedUsers.GridControl = Me.gridAssignedUsers
+        Me.viewAssignedUsers.Name = "viewAssignedUsers"
+        Me.viewAssignedUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.viewAssignedUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.viewAssignedUsers.OptionsBehavior.Editable = False
+        Me.viewAssignedUsers.OptionsBehavior.ReadOnly = True
+        Me.viewAssignedUsers.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.viewAssignedUsers.OptionsView.ColumnAutoWidth = False
+        Me.viewAssignedUsers.OptionsView.ShowAutoFilterRow = True
+        Me.viewAssignedUsers.OptionsView.ShowGroupPanel = False
+        '
+        'GridColumn1
+        '
+        resources.ApplyResources(Me.GridColumn1, "GridColumn1")
+        Me.GridColumn1.FieldName = "GUID"
+        Me.GridColumn1.Name = "GridColumn1"
+        '
+        'GridColumn3
+        '
+        resources.ApplyResources(Me.GridColumn3, "GridColumn3")
+        Me.GridColumn3.FieldName = "USERNAME"
+        Me.GridColumn3.Name = "GridColumn3"
+        '
+        'GridColumn5
+        '
+        resources.ApplyResources(Me.GridColumn5, "GridColumn5")
+        Me.GridColumn5.FieldName = "NAME"
+        Me.GridColumn5.Name = "GridColumn5"
+        '
+        'GridColumn4
+        '
+        resources.ApplyResources(Me.GridColumn4, "GridColumn4")
+        Me.GridColumn4.FieldName = "EMAIL"
+        Me.GridColumn4.Name = "GridColumn4"
+        '
+        'Label2
+        '
+        resources.ApplyResources(Me.Label2, "Label2")
+        Me.Label2.Name = "Label2"
+        '
+        'gridAvailableUsers
+        '
+        Me.gridAvailableUsers.AllowDrop = True
+        resources.ApplyResources(Me.gridAvailableUsers, "gridAvailableUsers")
+        Me.gridAvailableUsers.MainView = Me.viewAvailableUsers
+        Me.gridAvailableUsers.MenuManager = Me.RibbonControl1
+        Me.gridAvailableUsers.Name = "gridAvailableUsers"
+        Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers})
+        '
+        'viewAvailableUsers
+        '
+        Me.viewAvailableUsers.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise
+        Me.viewAvailableUsers.Appearance.EvenRow.Options.UseBackColor = True
+        Me.viewAvailableUsers.Appearance.FocusedRow.BackColor = System.Drawing.Color.Khaki
+        Me.viewAvailableUsers.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.viewAvailableUsers.Appearance.SelectedRow.BackColor = System.Drawing.Color.Khaki
+        Me.viewAvailableUsers.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn6, Me.GridColumn7, Me.GridColumn9, Me.GridColumn8})
+        Me.viewAvailableUsers.GridControl = Me.gridAvailableUsers
+        Me.viewAvailableUsers.Name = "viewAvailableUsers"
+        Me.viewAvailableUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.viewAvailableUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.viewAvailableUsers.OptionsBehavior.Editable = False
+        Me.viewAvailableUsers.OptionsBehavior.ReadOnly = True
+        Me.viewAvailableUsers.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.viewAvailableUsers.OptionsView.ColumnAutoWidth = False
+        Me.viewAvailableUsers.OptionsView.ShowAutoFilterRow = True
+        Me.viewAvailableUsers.OptionsView.ShowGroupPanel = False
+        '
+        'GridColumn6
+        '
+        resources.ApplyResources(Me.GridColumn6, "GridColumn6")
+        Me.GridColumn6.FieldName = "GUID"
+        Me.GridColumn6.Name = "GridColumn6"
+        '
+        'GridColumn7
+        '
+        resources.ApplyResources(Me.GridColumn7, "GridColumn7")
+        Me.GridColumn7.FieldName = "USERNAME"
+        Me.GridColumn7.Name = "GridColumn7"
+        '
+        'GridColumn9
+        '
+        resources.ApplyResources(Me.GridColumn9, "GridColumn9")
+        Me.GridColumn9.FieldName = "NAME"
+        Me.GridColumn9.Name = "GridColumn9"
+        '
+        'GridColumn8
+        '
+        resources.ApplyResources(Me.GridColumn8, "GridColumn8")
+        Me.GridColumn8.FieldName = "EMAIL"
+        Me.GridColumn8.Name = "GridColumn8"
+        '
+        'Label35
+        '
+        resources.ApplyResources(Me.Label35, "Label35")
+        Me.Label35.Name = "Label35"
+        '
         'SplitContainerControl3
         '
         resources.ApplyResources(Me.SplitContainerControl3, "SplitContainerControl3")
@@ -1299,7 +1474,7 @@ Partial Class frmAdministration
         'XtraTabPageManualIndexFunctions
         '
         resources.ApplyResources(Me.XtraTabPageManualIndexFunctions, "XtraTabPageManualIndexFunctions")
-        Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.ListBoxControl2)
+        Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.ListBox1)
         Me.XtraTabPageManualIndexFunctions.Controls.Add(VARIANTLabel)
         Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.VARIANTComboBox)
         Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.ComboBox2)
@@ -1332,14 +1507,14 @@ Partial Class frmAdministration
         Me.XtraTabPageManualIndexFunctions.Controls.Add(Me.GUIDTextBox4)
         Me.XtraTabPageManualIndexFunctions.Name = "XtraTabPageManualIndexFunctions"
         '
-        'ListBoxControl2
+        'ListBox1
         '
-        Me.ListBoxControl2.AppearanceSelected.BackColor = System.Drawing.Color.Khaki
-        Me.ListBoxControl2.AppearanceSelected.Options.UseBackColor = True
-        Me.ListBoxControl2.DataSource = Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
-        Me.ListBoxControl2.DisplayMember = "COMMENT"
-        resources.ApplyResources(Me.ListBoxControl2, "ListBoxControl2")
-        Me.ListBoxControl2.Name = "ListBoxControl2"
+        Me.ListBox1.DataSource = Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
+        Me.ListBox1.DisplayMember = "COMMENT"
+        resources.ApplyResources(Me.ListBox1, "ListBox1")
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.ValueMember = "COMMENT"
         '
         'TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
         '
@@ -2044,11 +2219,6 @@ Partial Class frmAdministration
         Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox"
         Me.ERSTELLTWERTextBox.ReadOnly = True
         '
-        'TBDD_EINGANGSARTENBindingSource
-        '
-        Me.TBDD_EINGANGSARTENBindingSource.DataMember = "TBDD_EINGANGSARTEN"
-        Me.TBDD_EINGANGSARTENBindingSource.DataSource = Me.MyDataset
-        '
         'AKTIVCheckBox
         '
         Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True))
@@ -2356,6 +2526,11 @@ Partial Class frmAdministration
         resources.ApplyResources(Label9, "Label9")
         Label9.Name = "Label9"
         '
+        'TBDD_EINGANGSARTENBindingSource
+        '
+        Me.TBDD_EINGANGSARTENBindingSource.DataMember = "TBDD_EINGANGSARTEN"
+        Me.TBDD_EINGANGSARTENBindingSource.DataSource = Me.MyDataset
+        '
         'TBDD_USERBindingSource
         '
         Me.TBDD_USERBindingSource.DataMember = "TBDD_USER"
@@ -2527,12 +2702,22 @@ Partial Class frmAdministration
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControl3.ResumeLayout(False)
+        Me.XtraTabPage1.ResumeLayout(False)
         CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl2.ResumeLayout(False)
         CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPage2.ResumeLayout(False)
+        CType(Me.SplitContainerControl5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl5.ResumeLayout(False)
+        CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl3.ResumeLayout(False)
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2545,7 +2730,6 @@ Partial Class frmAdministration
         CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPageManualIndexFunctions.ResumeLayout(False)
         Me.XtraTabPageManualIndexFunctions.PerformLayout()
-        CType(Me.ListBoxControl2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabPageAutoIndex.ResumeLayout(False)
@@ -2561,13 +2745,13 @@ Partial Class frmAdministration
         Me.XtraTabPageProfileRegex.PerformLayout()
         CType(Me.TBGI_REGEX_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl4.ResumeLayout(False)
         CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlObjekttype_Config.ResumeLayout(False)
         Me.pnlObjekttype_Config.PerformLayout()
         CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl1.ResumeLayout(False)
@@ -2811,7 +2995,6 @@ Partial Class frmAdministration
     Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageGroupManualIndexFunctions As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents ListBoxControl3 As DevExpress.XtraEditors.ListBoxControl
-    Friend WithEvents ListBoxControl2 As DevExpress.XtraEditors.ListBoxControl
     Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem
@@ -2819,4 +3002,23 @@ Partial Class frmAdministration
     Friend WithEvents RibbonPageGroupAutoIndex As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents Label32 As Label
     Friend WithEvents ListBoxControl4 As DevExpress.XtraEditors.ListBoxControl
+    Friend WithEvents ListBox1 As ListBox
+    Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents SplitContainerControl5 As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents gridAssignedUsers As DevExpress.XtraGrid.GridControl
+    Friend WithEvents viewAssignedUsers As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents Label2 As Label
+    Friend WithEvents gridAvailableUsers As DevExpress.XtraGrid.GridControl
+    Friend WithEvents viewAvailableUsers As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents Label35 As Label
+    Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn8 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn9 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
 End Class

Global_Indexer/frmAdministration.vb

@@ -44,6 +44,8 @@ Public Class frmAdministration
         Dim oDragDropManager As New ClassDragDrop()
         oDragDropManager.AddGridView(viewAssignedGroups)
         oDragDropManager.AddGridView(viewAvailableGroups)
+        oDragDropManager.AddGridView(viewAssignedUsers)
+        oDragDropManager.AddGridView(viewAvailableUsers)
 
         RibbonPageCategoryUserGroups.Visible = False
         RibbonPageCategoryMisc.Visible = False
@@ -221,6 +223,8 @@ Public Class frmAdministration
 
             gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(CURRENT_DOKART_ID)
             gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(CURRENT_DOKART_ID)
+            gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(CURRENT_DOKART_ID)
+            gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(CURRENT_DOKART_ID)
         End If
     End Sub
 
@@ -976,7 +980,6 @@ Public Class frmAdministration
         Try
             Dim data As String = e.Data.GetData(DataFormats.Text)
             Dim groupId As Integer = data.Split("|")(0)
-
             Dim profileId As Integer = DOKART_GUIDTextBox.Text
 
             ClassDatatables.AddGroupToProfile(groupId, profileId)
@@ -984,7 +987,7 @@ Public Class frmAdministration
             gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(profileId)
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:")
         End Try
     End Sub
 
@@ -999,7 +1002,7 @@ Public Class frmAdministration
             gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(profileId)
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:")
         End Try
     End Sub
 
@@ -1249,7 +1252,7 @@ Public Class frmAdministration
         If result = MsgBoxResult.Yes Then
             If GUIDTextBox1.Text <> "" Then
                 Try
-                    Dim del = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & GUIDTextBox1.Text
+                    Dim del = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE GUID = " & GUIDTextBox4.Text
                     If ClassDatabase.Execute_non_Query(del) = True Then
                         Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
                     End If
@@ -1300,4 +1303,34 @@ Public Class frmAdministration
     Private Sub BarButtonItem25_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem25.ItemClick
         Save_IndexAuto()
     End Sub
+
+    Private Sub gridAssignedUsers_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedUsers.DragDrop
+        Try
+            Dim data As String = e.Data.GetData(DataFormats.Text)
+            Dim userId As Integer = data.Split("|")(0)
+            Dim profileId As Integer = DOKART_GUIDTextBox.Text
+
+            ClassDatatables.AddUserToProfile(userId, profileId)
+            gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(profileId)
+            gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(profileId)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
+        End Try
+    End Sub
+
+    Private Sub gridAvailableUsers_DragDrop(sender As Object, e As DragEventArgs) Handles gridAvailableUsers.DragDrop
+        Try
+            Dim data As String = e.Data.GetData(DataFormats.Text)
+            Dim userId As Integer = data.Split("|")(0)
+            Dim profileId As Integer = DOKART_GUIDTextBox.Text
+
+            ClassDatatables.RemoveUserFromProfile(userId, profileId)
+            gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(profileId)
+            gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(profileId)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
+        End Try
+    End Sub
 End Class