fix crash when cancelling add new profile

2020-03-17 13:09:15 +01:00 · 2020-03-17 13:09:15 +01:00 · 3f77e627a4
commit 3f77e627a4
parent 40045a0873
4 changed files with 1469 additions and 1071 deletions
--- a/Global_Indexer/frmAdministration.Designer.vb
+++ b/Global_Indexer/frmAdministration.Designer.vb
@ -25,16 +25,16 @@ Partial Class frmAdministration
        Me.components = New System.ComponentModel.Container()
        Dim GUIDLabel As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration))
-        Dim CHANGED_WHENLabel As System.Windows.Forms.Label
-        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
-        Dim ADDED_WHENLabel As System.Windows.Forms.Label
-        Dim ADDED_WHOLabel As System.Windows.Forms.Label
-        Dim SEQUENCELabel As System.Windows.Forms.Label
-        Dim DEFAULT_VALUELabel As System.Windows.Forms.Label
-        Dim DATATYPELabel As System.Windows.Forms.Label
-        Dim COMMENTLabel As System.Windows.Forms.Label
-        Dim NAMELabel As System.Windows.Forms.Label
        Dim GUIDLabel1 As System.Windows.Forms.Label
+        Dim NAMELabel As System.Windows.Forms.Label
+        Dim COMMENTLabel As System.Windows.Forms.Label
+        Dim CHANGED_WHENLabel As System.Windows.Forms.Label
+        Dim DATATYPELabel As System.Windows.Forms.Label
+        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
+        Dim DEFAULT_VALUELabel As System.Windows.Forms.Label
+        Dim ADDED_WHENLabel As System.Windows.Forms.Label
+        Dim SEQUENCELabel As System.Windows.Forms.Label
+        Dim ADDED_WHOLabel As System.Windows.Forms.Label
        Dim VARIANTLabel As System.Windows.Forms.Label
        Dim CHANGED_WHENLabel4 As System.Windows.Forms.Label
        Dim CHANGED_WHOLabel4 As System.Windows.Forms.Label
@ -117,6 +117,7 @@ Partial Class frmAdministration
        Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem28 = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPageCategoryUserGroups = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
        Me.RibbonPageUserGroups = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -171,28 +172,29 @@ Partial Class frmAdministration
        Me.Label11 = New System.Windows.Forms.Label()
        Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
        Me.XtraTabPageManualIndex = New DevExpress.XtraTab.XtraTabPage()
-        Me.ListBoxControl3 = New DevExpress.XtraEditors.ListBoxControl()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox()
        Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
        Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox = New System.Windows.Forms.CheckBox()
        Me.VKT_ADD_ITEMCheckbox = New System.Windows.Forms.CheckBox()
+        Me.NAMETextBox = New System.Windows.Forms.TextBox()
        Me.MULTISELECTCheckBox = New System.Windows.Forms.CheckBox()
        Me.SAVE_VALUECheckBox = New System.Windows.Forms.CheckBox()
+        Me.WD_INDEXComboBox = New System.Windows.Forms.ComboBox()
        Me.lblWDINDEX = New System.Windows.Forms.Label()
+        Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
        Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox()
        Me.btnSQLView = New System.Windows.Forms.Button()
+        Me.DATATYPEComboBox = New System.Windows.Forms.ComboBox()
        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
+        Me.SUGGESTIONCheckBox = New System.Windows.Forms.CheckBox()
+        Me.DEFAULT_VALUETextBox = New System.Windows.Forms.TextBox()
        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
+        Me.SEQUENCETextBox = New System.Windows.Forms.TextBox()
        Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
        Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
-        Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox()
-        Me.SEQUENCETextBox = New System.Windows.Forms.TextBox()
-        Me.DEFAULT_VALUETextBox = New System.Windows.Forms.TextBox()
-        Me.SUGGESTIONCheckBox = New System.Windows.Forms.CheckBox()
-        Me.DATATYPEComboBox = New System.Windows.Forms.ComboBox()
-        Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
-        Me.WD_INDEXComboBox = New System.Windows.Forms.ComboBox()
-        Me.NAMETextBox = New System.Windows.Forms.TextBox()
-        Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
+        Me.ListBoxControl3 = New DevExpress.XtraEditors.ListBoxControl()
        Me.XtraTabPageManualIndexFunctions = New DevExpress.XtraTab.XtraTabPage()
        Me.ListBox1 = New System.Windows.Forms.ListBox()
        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -335,19 +337,17 @@ Partial Class frmAdministration
        Me.TBGI_REGEX_DOCTYPETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPage8 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.BarButtonItem28 = New DevExpress.XtraBars.BarButtonItem()
-        Me.Panel1 = New System.Windows.Forms.Panel()
        GUIDLabel = New System.Windows.Forms.Label()
-        CHANGED_WHENLabel = New System.Windows.Forms.Label()
-        CHANGED_WHOLabel = New System.Windows.Forms.Label()
-        ADDED_WHENLabel = New System.Windows.Forms.Label()
-        ADDED_WHOLabel = New System.Windows.Forms.Label()
-        SEQUENCELabel = New System.Windows.Forms.Label()
-        DEFAULT_VALUELabel = New System.Windows.Forms.Label()
-        DATATYPELabel = New System.Windows.Forms.Label()
-        COMMENTLabel = New System.Windows.Forms.Label()
-        NAMELabel = New System.Windows.Forms.Label()
        GUIDLabel1 = New System.Windows.Forms.Label()
+        NAMELabel = New System.Windows.Forms.Label()
+        COMMENTLabel = New System.Windows.Forms.Label()
+        CHANGED_WHENLabel = New System.Windows.Forms.Label()
+        DATATYPELabel = New System.Windows.Forms.Label()
+        CHANGED_WHOLabel = New System.Windows.Forms.Label()
+        DEFAULT_VALUELabel = New System.Windows.Forms.Label()
+        ADDED_WHENLabel = New System.Windows.Forms.Label()
+        SEQUENCELabel = New System.Windows.Forms.Label()
+        ADDED_WHOLabel = New System.Windows.Forms.Label()
        VARIANTLabel = New System.Windows.Forms.Label()
        CHANGED_WHENLabel4 = New System.Windows.Forms.Label()
        CHANGED_WHOLabel4 = New System.Windows.Forms.Label()
@ -425,8 +425,9 @@ Partial Class frmAdministration
        CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabControl2.SuspendLayout()
        Me.XtraTabPageManualIndex.SuspendLayout()
-        CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
        CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabPageManualIndexFunctions.SuspendLayout()
        CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -456,7 +457,6 @@ Partial Class frmAdministration
        CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'GUIDLabel
@ -743,6 +743,13 @@ Partial Class frmAdministration
        Me.BarButtonItem27.Name = "BarButtonItem27"
        Me.BarButtonItem27.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
        '
+        'BarButtonItem28
+        '
+        resources.ApplyResources(Me.BarButtonItem28, "BarButtonItem28")
+        Me.BarButtonItem28.Id = 37
+        Me.BarButtonItem28.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem28.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem28.Name = "BarButtonItem28"
+        '
        'RibbonPageCategoryUserGroups
        '
        Me.RibbonPageCategoryUserGroups.Appearance.BackColor = System.Drawing.Color.SeaGreen
@ -1170,6 +1177,7 @@ Partial Class frmAdministration
        '
        'GridControl1
        '
+        Me.GridControl1.CausesValidation = False
        Me.GridControl1.DataSource = Me.TBDD_DOKUMENTARTBindingSource
        resources.ApplyResources(Me.GridControl1, "GridControl1")
        Me.GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
@ -1251,20 +1259,59 @@ Partial Class frmAdministration
        Me.XtraTabPageManualIndex.Controls.Add(Me.ListBoxControl3)
        Me.XtraTabPageManualIndex.Name = "XtraTabPageManualIndex"
        '
-        'ListBoxControl3
+        'Panel1
        '
-        Me.ListBoxControl3.AppearanceSelected.BackColor = System.Drawing.Color.Khaki
-        Me.ListBoxControl3.AppearanceSelected.Options.UseBackColor = True
-        Me.ListBoxControl3.DataSource = Me.TBDD_INDEX_MANBindingSource
-        Me.ListBoxControl3.DisplayMember = "NAME"
-        resources.ApplyResources(Me.ListBoxControl3, "ListBoxControl3")
-        Me.ListBoxControl3.Name = "ListBoxControl3"
+        Me.Panel1.Controls.Add(Me.ACTIVECheckBox)
+        Me.Panel1.Controls.Add(Me.GUIDTextBox1)
+        Me.Panel1.Controls.Add(Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox)
+        Me.Panel1.Controls.Add(GUIDLabel1)
+        Me.Panel1.Controls.Add(Me.VKT_ADD_ITEMCheckbox)
+        Me.Panel1.Controls.Add(Me.NAMETextBox)
+        Me.Panel1.Controls.Add(Me.MULTISELECTCheckBox)
+        Me.Panel1.Controls.Add(NAMELabel)
+        Me.Panel1.Controls.Add(Me.SAVE_VALUECheckBox)
+        Me.Panel1.Controls.Add(Me.WD_INDEXComboBox)
+        Me.Panel1.Controls.Add(Me.lblWDINDEX)
+        Me.Panel1.Controls.Add(Me.COMMENTTextBox)
+        Me.Panel1.Controls.Add(Me.OPTIONALCheckBox)
+        Me.Panel1.Controls.Add(COMMENTLabel)
+        Me.Panel1.Controls.Add(Me.btnSQLView)
+        Me.Panel1.Controls.Add(Me.DATATYPEComboBox)
+        Me.Panel1.Controls.Add(CHANGED_WHENLabel)
+        Me.Panel1.Controls.Add(DATATYPELabel)
+        Me.Panel1.Controls.Add(Me.CHANGED_WHENTextBox)
+        Me.Panel1.Controls.Add(Me.SUGGESTIONCheckBox)
+        Me.Panel1.Controls.Add(CHANGED_WHOLabel)
+        Me.Panel1.Controls.Add(Me.DEFAULT_VALUETextBox)
+        Me.Panel1.Controls.Add(Me.CHANGED_WHOTextBox)
+        Me.Panel1.Controls.Add(DEFAULT_VALUELabel)
+        Me.Panel1.Controls.Add(ADDED_WHENLabel)
+        Me.Panel1.Controls.Add(Me.SEQUENCETextBox)
+        Me.Panel1.Controls.Add(Me.ADDED_WHENTextBox)
+        Me.Panel1.Controls.Add(SEQUENCELabel)
+        Me.Panel1.Controls.Add(ADDED_WHOLabel)
+        Me.Panel1.Controls.Add(Me.ADDED_WHOTextBox)
+        resources.ApplyResources(Me.Panel1, "Panel1")
+        Me.Panel1.Name = "Panel1"
+        '
+        'ACTIVECheckBox
+        '
+        Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True))
+        resources.ApplyResources(Me.ACTIVECheckBox, "ACTIVECheckBox")
+        Me.ACTIVECheckBox.Name = "ACTIVECheckBox"
+        Me.ACTIVECheckBox.UseVisualStyleBackColor = True
        '
        'TBDD_INDEX_MANBindingSource
        '
        Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
        Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
        '
+        'GUIDTextBox1
+        '
+        Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True))
+        resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1")
+        Me.GUIDTextBox1.Name = "GUIDTextBox1"
+        '
        'VKT_PREVENT_MULTIPLE_VALUESCheckbox
        '
        Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True))
@ -1272,6 +1319,11 @@ Partial Class frmAdministration
        Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox.Name = "VKT_PREVENT_MULTIPLE_VALUESCheckbox"
        Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox.UseVisualStyleBackColor = True
        '
+        'GUIDLabel1
+        '
+        resources.ApplyResources(GUIDLabel1, "GUIDLabel1")
+        GUIDLabel1.Name = "GUIDLabel1"
+        '
        'VKT_ADD_ITEMCheckbox
        '
        Me.VKT_ADD_ITEMCheckbox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_ADD_ITEM", True))
@ -1279,6 +1331,12 @@ Partial Class frmAdministration
        Me.VKT_ADD_ITEMCheckbox.Name = "VKT_ADD_ITEMCheckbox"
        Me.VKT_ADD_ITEMCheckbox.UseVisualStyleBackColor = True
        '
+        'NAMETextBox
+        '
+        Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True))
+        resources.ApplyResources(Me.NAMETextBox, "NAMETextBox")
+        Me.NAMETextBox.Name = "NAMETextBox"
+        '
        'MULTISELECTCheckBox
        '
        Me.MULTISELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "MULTISELECT", True))
@ -1286,6 +1344,11 @@ Partial Class frmAdministration
        Me.MULTISELECTCheckBox.Name = "MULTISELECTCheckBox"
        Me.MULTISELECTCheckBox.UseVisualStyleBackColor = True
        '
+        'NAMELabel
+        '
+        resources.ApplyResources(NAMELabel, "NAMELabel")
+        NAMELabel.Name = "NAMELabel"
+        '
        'SAVE_VALUECheckBox
        '
        Me.SAVE_VALUECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SAVE_VALUE", True))
@ -1293,11 +1356,24 @@ Partial Class frmAdministration
        Me.SAVE_VALUECheckBox.Name = "SAVE_VALUECheckBox"
        Me.SAVE_VALUECheckBox.UseVisualStyleBackColor = True
        '
+        'WD_INDEXComboBox
+        '
+        Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True))
+        resources.ApplyResources(Me.WD_INDEXComboBox, "WD_INDEXComboBox")
+        Me.WD_INDEXComboBox.FormattingEnabled = True
+        Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox"
+        '
        'lblWDINDEX
        '
        resources.ApplyResources(Me.lblWDINDEX, "lblWDINDEX")
        Me.lblWDINDEX.Name = "lblWDINDEX"
        '
+        'COMMENTTextBox
+        '
+        Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True))
+        resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox")
+        Me.COMMENTTextBox.Name = "COMMENTTextBox"
+        '
        'OPTIONALCheckBox
        '
        Me.OPTIONALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "OPTIONAL", True))
@ -1305,6 +1381,11 @@ Partial Class frmAdministration
        Me.OPTIONALCheckBox.Name = "OPTIONALCheckBox"
        Me.OPTIONALCheckBox.UseVisualStyleBackColor = True
        '
+        'COMMENTLabel
+        '
+        resources.ApplyResources(COMMENTLabel, "COMMENTLabel")
+        COMMENTLabel.Name = "COMMENTLabel"
+        '
        'btnSQLView
        '
        resources.ApplyResources(Me.btnSQLView, "btnSQLView")
@ -1312,11 +1393,24 @@ Partial Class frmAdministration
        Me.btnSQLView.Name = "btnSQLView"
        Me.btnSQLView.UseVisualStyleBackColor = True
        '
+        'DATATYPEComboBox
+        '
+        Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True))
+        resources.ApplyResources(Me.DATATYPEComboBox, "DATATYPEComboBox")
+        Me.DATATYPEComboBox.FormattingEnabled = True
+        Me.DATATYPEComboBox.Items.AddRange(New Object() {resources.GetString("DATATYPEComboBox.Items"), resources.GetString("DATATYPEComboBox.Items1"), resources.GetString("DATATYPEComboBox.Items2"), resources.GetString("DATATYPEComboBox.Items3")})
+        Me.DATATYPEComboBox.Name = "DATATYPEComboBox"
+        '
        'CHANGED_WHENLabel
        '
        resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel")
        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
        '
+        'DATATYPELabel
+        '
+        resources.ApplyResources(DATATYPELabel, "DATATYPELabel")
+        DATATYPELabel.Name = "DATATYPELabel"
+        '
        'CHANGED_WHENTextBox
        '
        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHEN", True))
@ -1324,11 +1418,24 @@ Partial Class frmAdministration
        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
        Me.CHANGED_WHENTextBox.ReadOnly = True
        '
+        'SUGGESTIONCheckBox
+        '
+        Me.SUGGESTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SUGGESTION", True))
+        resources.ApplyResources(Me.SUGGESTIONCheckBox, "SUGGESTIONCheckBox")
+        Me.SUGGESTIONCheckBox.Name = "SUGGESTIONCheckBox"
+        Me.SUGGESTIONCheckBox.UseVisualStyleBackColor = True
+        '
        'CHANGED_WHOLabel
        '
        resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel")
        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
        '
+        'DEFAULT_VALUETextBox
+        '
+        Me.DEFAULT_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True))
+        resources.ApplyResources(Me.DEFAULT_VALUETextBox, "DEFAULT_VALUETextBox")
+        Me.DEFAULT_VALUETextBox.Name = "DEFAULT_VALUETextBox"
+        '
        'CHANGED_WHOTextBox
        '
        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHO", True))
@ -1336,11 +1443,22 @@ Partial Class frmAdministration
        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
        Me.CHANGED_WHOTextBox.ReadOnly = True
        '
+        'DEFAULT_VALUELabel
+        '
+        resources.ApplyResources(DEFAULT_VALUELabel, "DEFAULT_VALUELabel")
+        DEFAULT_VALUELabel.Name = "DEFAULT_VALUELabel"
+        '
        'ADDED_WHENLabel
        '
        resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel")
        ADDED_WHENLabel.Name = "ADDED_WHENLabel"
        '
+        'SEQUENCETextBox
+        '
+        Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True))
+        resources.ApplyResources(Me.SEQUENCETextBox, "SEQUENCETextBox")
+        Me.SEQUENCETextBox.Name = "SEQUENCETextBox"
+        '
        'ADDED_WHENTextBox
        '
        Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHEN", True))
@ -1348,6 +1466,11 @@ Partial Class frmAdministration
        Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
        Me.ADDED_WHENTextBox.ReadOnly = True
        '
+        'SEQUENCELabel
+        '
+        resources.ApplyResources(SEQUENCELabel, "SEQUENCELabel")
+        SEQUENCELabel.Name = "SEQUENCELabel"
+        '
        'ADDED_WHOLabel
        '
        resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel")
@ -1360,94 +1483,14 @@ Partial Class frmAdministration
        Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
        Me.ADDED_WHOTextBox.ReadOnly = True
        '
-        'ACTIVECheckBox
+        'ListBoxControl3
        '
-        Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True))
-        resources.ApplyResources(Me.ACTIVECheckBox, "ACTIVECheckBox")
-        Me.ACTIVECheckBox.Name = "ACTIVECheckBox"
-        Me.ACTIVECheckBox.UseVisualStyleBackColor = True
-        '
-        'SEQUENCELabel
-        '
-        resources.ApplyResources(SEQUENCELabel, "SEQUENCELabel")
-        SEQUENCELabel.Name = "SEQUENCELabel"
-        '
-        'SEQUENCETextBox
-        '
-        Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True))
-        resources.ApplyResources(Me.SEQUENCETextBox, "SEQUENCETextBox")
-        Me.SEQUENCETextBox.Name = "SEQUENCETextBox"
-        '
-        'DEFAULT_VALUELabel
-        '
-        resources.ApplyResources(DEFAULT_VALUELabel, "DEFAULT_VALUELabel")
-        DEFAULT_VALUELabel.Name = "DEFAULT_VALUELabel"
-        '
-        'DEFAULT_VALUETextBox
-        '
-        Me.DEFAULT_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True))
-        resources.ApplyResources(Me.DEFAULT_VALUETextBox, "DEFAULT_VALUETextBox")
-        Me.DEFAULT_VALUETextBox.Name = "DEFAULT_VALUETextBox"
-        '
-        'SUGGESTIONCheckBox
-        '
-        Me.SUGGESTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SUGGESTION", True))
-        resources.ApplyResources(Me.SUGGESTIONCheckBox, "SUGGESTIONCheckBox")
-        Me.SUGGESTIONCheckBox.Name = "SUGGESTIONCheckBox"
-        Me.SUGGESTIONCheckBox.UseVisualStyleBackColor = True
-        '
-        'DATATYPELabel
-        '
-        resources.ApplyResources(DATATYPELabel, "DATATYPELabel")
-        DATATYPELabel.Name = "DATATYPELabel"
-        '
-        'DATATYPEComboBox
-        '
-        Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True))
-        resources.ApplyResources(Me.DATATYPEComboBox, "DATATYPEComboBox")
-        Me.DATATYPEComboBox.FormattingEnabled = True
-        Me.DATATYPEComboBox.Items.AddRange(New Object() {resources.GetString("DATATYPEComboBox.Items"), resources.GetString("DATATYPEComboBox.Items1"), resources.GetString("DATATYPEComboBox.Items2"), resources.GetString("DATATYPEComboBox.Items3")})
-        Me.DATATYPEComboBox.Name = "DATATYPEComboBox"
-        '
-        'COMMENTLabel
-        '
-        resources.ApplyResources(COMMENTLabel, "COMMENTLabel")
-        COMMENTLabel.Name = "COMMENTLabel"
-        '
-        'COMMENTTextBox
-        '
-        Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True))
-        resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox")
-        Me.COMMENTTextBox.Name = "COMMENTTextBox"
-        '
-        'WD_INDEXComboBox
-        '
-        Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True))
-        resources.ApplyResources(Me.WD_INDEXComboBox, "WD_INDEXComboBox")
-        Me.WD_INDEXComboBox.FormattingEnabled = True
-        Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox"
-        '
-        'NAMELabel
-        '
-        resources.ApplyResources(NAMELabel, "NAMELabel")
-        NAMELabel.Name = "NAMELabel"
-        '
-        'NAMETextBox
-        '
-        Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True))
-        resources.ApplyResources(Me.NAMETextBox, "NAMETextBox")
-        Me.NAMETextBox.Name = "NAMETextBox"
-        '
-        'GUIDLabel1
-        '
-        resources.ApplyResources(GUIDLabel1, "GUIDLabel1")
-        GUIDLabel1.Name = "GUIDLabel1"
-        '
-        'GUIDTextBox1
-        '
-        Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True))
-        resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1")
-        Me.GUIDTextBox1.Name = "GUIDTextBox1"
+        Me.ListBoxControl3.AppearanceSelected.BackColor = System.Drawing.Color.Khaki
+        Me.ListBoxControl3.AppearanceSelected.Options.UseBackColor = True
+        Me.ListBoxControl3.DataSource = Me.TBDD_INDEX_MANBindingSource
+        Me.ListBoxControl3.DisplayMember = "NAME"
+        resources.ApplyResources(Me.ListBoxControl3, "ListBoxControl3")
+        Me.ListBoxControl3.Name = "ListBoxControl3"
        '
        'XtraTabPageManualIndexFunctions
        '
@ -2660,48 +2703,6 @@ Partial Class frmAdministration
        Me.RibbonPage8.Name = "RibbonPage8"
        resources.ApplyResources(Me.RibbonPage8, "RibbonPage8")
        '
-        'BarButtonItem28
-        '
-        resources.ApplyResources(Me.BarButtonItem28, "BarButtonItem28")
-        Me.BarButtonItem28.Id = 37
-        Me.BarButtonItem28.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem28.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarButtonItem28.Name = "BarButtonItem28"
-        '
-        'Panel1
-        '
-        Me.Panel1.Controls.Add(Me.ACTIVECheckBox)
-        Me.Panel1.Controls.Add(Me.GUIDTextBox1)
-        Me.Panel1.Controls.Add(Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox)
-        Me.Panel1.Controls.Add(GUIDLabel1)
-        Me.Panel1.Controls.Add(Me.VKT_ADD_ITEMCheckbox)
-        Me.Panel1.Controls.Add(Me.NAMETextBox)
-        Me.Panel1.Controls.Add(Me.MULTISELECTCheckBox)
-        Me.Panel1.Controls.Add(NAMELabel)
-        Me.Panel1.Controls.Add(Me.SAVE_VALUECheckBox)
-        Me.Panel1.Controls.Add(Me.WD_INDEXComboBox)
-        Me.Panel1.Controls.Add(Me.lblWDINDEX)
-        Me.Panel1.Controls.Add(Me.COMMENTTextBox)
-        Me.Panel1.Controls.Add(Me.OPTIONALCheckBox)
-        Me.Panel1.Controls.Add(COMMENTLabel)
-        Me.Panel1.Controls.Add(Me.btnSQLView)
-        Me.Panel1.Controls.Add(Me.DATATYPEComboBox)
-        Me.Panel1.Controls.Add(CHANGED_WHENLabel)
-        Me.Panel1.Controls.Add(DATATYPELabel)
-        Me.Panel1.Controls.Add(Me.CHANGED_WHENTextBox)
-        Me.Panel1.Controls.Add(Me.SUGGESTIONCheckBox)
-        Me.Panel1.Controls.Add(CHANGED_WHOLabel)
-        Me.Panel1.Controls.Add(Me.DEFAULT_VALUETextBox)
-        Me.Panel1.Controls.Add(Me.CHANGED_WHOTextBox)
-        Me.Panel1.Controls.Add(DEFAULT_VALUELabel)
-        Me.Panel1.Controls.Add(ADDED_WHENLabel)
-        Me.Panel1.Controls.Add(Me.SEQUENCETextBox)
-        Me.Panel1.Controls.Add(Me.ADDED_WHENTextBox)
-        Me.Panel1.Controls.Add(SEQUENCELabel)
-        Me.Panel1.Controls.Add(ADDED_WHOLabel)
-        Me.Panel1.Controls.Add(Me.ADDED_WHOTextBox)
-        resources.ApplyResources(Me.Panel1, "Panel1")
-        Me.Panel1.Name = "Panel1"
-        '
        'frmAdministration
        '
        Me.Appearance.Options.UseFont = True
@ -2745,8 +2746,10 @@ Partial Class frmAdministration
        CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabControl2.ResumeLayout(False)
        Me.XtraTabPageManualIndex.ResumeLayout(False)
-        CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
        CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabPageManualIndexFunctions.ResumeLayout(False)
        Me.XtraTabPageManualIndexFunctions.PerformLayout()
        CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -2783,8 +2786,6 @@ Partial Class frmAdministration
        CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

--- a/Global_Indexer/frmAdministration.resx
+++ b/Global_Indexer/frmAdministration.resx
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@ -1,5 +1,6 @@
 Imports System.ComponentModel
 Imports System.Text.RegularExpressions
+Imports DevExpress.XtraGrid.Views.Base

 Public Class frmAdministration
    Public Shared _Namenkonvention As String
@ -1357,4 +1358,12 @@ Public Class frmAdministration
            EnableControls(Panel1)
        End If
    End Sub
+
+    Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridView1.ValidateRow
+        e.Valid = True
+    End Sub
+
+    Private Sub GridView1_InvalidRowException(sender As Object, e As InvalidRowExceptionEventArgs) Handles GridView1.InvalidRowException
+        e.ExceptionMode = DevExpress.XtraEditors.Controls.ExceptionMode.NoAction
+    End Sub
 End Class
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@ -427,36 +427,7 @@ Public Class frmIndex
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:")
        End Try
    End Sub
-    '    'Function Get_Nachbearbeitung_Wert(idxvalue As String, DTNB As DataTable)
-    '    '    Dim result As String = idxvalue
-    '    '    Try
-    '    '        For Each row As DataRow In DTNB.Rows
-    '    '            Select Case row.Item("TYP").ToString.ToUpper
-    '    '                Case "VBSPLIT"
-    '    '                    LOGGER.Info(" - Nachbearbeitung mit VBSPLIT")
-    '    '                    Dim strSplit() As String
-    '    '                    strSplit = result.Split(row.Item("TEXT1").ToString)
-    '    '                    For i As Integer = 0 To strSplit.Length - 1
-    '    '                        If i = CInt(row.Item("TEXT2")) Then
-    '    '                            LOGGER.Info(" - Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i))
-    '    '                            result = strSplit(i).ToString
-    '    '                        End If
-    '    '                    Next
-    '    '                Case "VBREPLACE"
-    '    '                    result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-    '    '            End Select
-    '    '        Next
-    '    '        Return result
-    '    '    Catch ex As Exception
-    '    '        LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message)
-    '    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
-    '    '        Return result
-    '    '    End Try

-    '    'End Function
-    '    Dim sql_history_INSERT_INTO As String
-    '    Dim sql_history_Index_Values As String
-    '    Dim _NewFileString As String
    Function Name_Generieren()
        Try
            Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1"