AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix crash when cancelling add new profile

Browse Source
This commit is contained in:
Jonathan Jenne 2020-03-17 13:09:15 +01:00
parent 40045a0873
commit 3f77e627a4
4 changed files with 1469 additions and 1071 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

343
Global_Indexer/frmAdministration.Designer.vb generated
View File

@ -25,16 +25,16 @@ Partial Class frmAdministration
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim GUIDLabel As System.Windows.Forms.Label Dim GUIDLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) 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 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 VARIANTLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel4 As System.Windows.Forms.Label Dim CHANGED_WHENLabel4 As System.Windows.Forms.Label
Dim CHANGED_WHOLabel4 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.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem28 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPageCategoryUserGroups = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() Me.RibbonPageCategoryUserGroups = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPageUserGroups = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageUserGroups = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -171,28 +172,29 @@ Partial Class frmAdministration
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageManualIndex = New DevExpress.XtraTab.XtraTabPage() 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.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_PREVENT_MULTIPLE_VALUESCheckbox = New System.Windows.Forms.CheckBox()
Me.VKT_ADD_ITEMCheckbox = 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.MULTISELECTCheckBox = New System.Windows.Forms.CheckBox()
Me.SAVE_VALUECheckBox = 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.lblWDINDEX = New System.Windows.Forms.Label()
Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox() Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox()
Me.btnSQLView = New System.Windows.Forms.Button() Me.btnSQLView = New System.Windows.Forms.Button()
Me.DATATYPEComboBox = New System.Windows.Forms.ComboBox()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() 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.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.SEQUENCETextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() Me.ListBoxControl3 = New DevExpress.XtraEditors.ListBoxControl()
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.XtraTabPageManualIndexFunctions = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPageManualIndexFunctions = New DevExpress.XtraTab.XtraTabPage()
Me.ListBox1 = New System.Windows.Forms.ListBox() Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) 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.TBGI_REGEX_DOCTYPETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPage8 = 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() 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() 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() VARIANTLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel4 = New System.Windows.Forms.Label() CHANGED_WHENLabel4 = New System.Windows.Forms.Label()
CHANGED_WHOLabel4 = 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() CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl2.SuspendLayout() Me.XtraTabControl2.SuspendLayout()
Me.XtraTabPageManualIndex.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.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageManualIndexFunctions.SuspendLayout() Me.XtraTabPageManualIndexFunctions.SuspendLayout()
CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWHDD_INDEX_MANBindingSource, 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.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -743,6 +743,13 @@ Partial Class frmAdministration
Me.BarButtonItem27.Name = "BarButtonItem27" Me.BarButtonItem27.Name = "BarButtonItem27"
Me.BarButtonItem27.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText 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 'RibbonPageCategoryUserGroups
' '
Me.RibbonPageCategoryUserGroups.Appearance.BackColor = System.Drawing.Color.SeaGreen Me.RibbonPageCategoryUserGroups.Appearance.BackColor = System.Drawing.Color.SeaGreen
@ -1170,6 +1177,7 @@ Partial Class frmAdministration
' '
'GridControl1 'GridControl1
' '
Me.GridControl1.CausesValidation = False
Me.GridControl1.DataSource = Me.TBDD_DOKUMENTARTBindingSource Me.GridControl1.DataSource = Me.TBDD_DOKUMENTARTBindingSource
resources.ApplyResources(Me.GridControl1, "GridControl1") resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) 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.Controls.Add(Me.ListBoxControl3)
Me.XtraTabPageManualIndex.Name = "XtraTabPageManualIndex" Me.XtraTabPageManualIndex.Name = "XtraTabPageManualIndex"
' '
'ListBoxControl3 'Panel1
' '
Me.ListBoxControl3.AppearanceSelected.BackColor = System.Drawing.Color.Khaki Me.Panel1.Controls.Add(Me.ACTIVECheckBox)
Me.ListBoxControl3.AppearanceSelected.Options.UseBackColor = True Me.Panel1.Controls.Add(Me.GUIDTextBox1)
Me.ListBoxControl3.DataSource = Me.TBDD_INDEX_MANBindingSource Me.Panel1.Controls.Add(Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox)
Me.ListBoxControl3.DisplayMember = "NAME" Me.Panel1.Controls.Add(GUIDLabel1)
resources.ApplyResources(Me.ListBoxControl3, "ListBoxControl3") Me.Panel1.Controls.Add(Me.VKT_ADD_ITEMCheckbox)
Me.ListBoxControl3.Name = "ListBoxControl3" 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 'TBDD_INDEX_MANBindingSource
' '
Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset 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 '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)) 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.Name = "VKT_PREVENT_MULTIPLE_VALUESCheckbox"
Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox.UseVisualStyleBackColor = True Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox.UseVisualStyleBackColor = True
' '
'GUIDLabel1
'
resources.ApplyResources(GUIDLabel1, "GUIDLabel1")
GUIDLabel1.Name = "GUIDLabel1"
'
'VKT_ADD_ITEMCheckbox 'VKT_ADD_ITEMCheckbox
' '
Me.VKT_ADD_ITEMCheckbox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_ADD_ITEM", True)) 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.Name = "VKT_ADD_ITEMCheckbox"
Me.VKT_ADD_ITEMCheckbox.UseVisualStyleBackColor = True 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 'MULTISELECTCheckBox
' '
Me.MULTISELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "MULTISELECT", True)) 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.Name = "MULTISELECTCheckBox"
Me.MULTISELECTCheckBox.UseVisualStyleBackColor = True Me.MULTISELECTCheckBox.UseVisualStyleBackColor = True
' '
'NAMELabel
'
resources.ApplyResources(NAMELabel, "NAMELabel")
NAMELabel.Name = "NAMELabel"
'
'SAVE_VALUECheckBox 'SAVE_VALUECheckBox
' '
Me.SAVE_VALUECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SAVE_VALUE", True)) 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.Name = "SAVE_VALUECheckBox"
Me.SAVE_VALUECheckBox.UseVisualStyleBackColor = True 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 'lblWDINDEX
' '
resources.ApplyResources(Me.lblWDINDEX, "lblWDINDEX") resources.ApplyResources(Me.lblWDINDEX, "lblWDINDEX")
Me.lblWDINDEX.Name = "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 'OPTIONALCheckBox
' '
Me.OPTIONALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "OPTIONAL", True)) 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.Name = "OPTIONALCheckBox"
Me.OPTIONALCheckBox.UseVisualStyleBackColor = True Me.OPTIONALCheckBox.UseVisualStyleBackColor = True
' '
'COMMENTLabel
'
resources.ApplyResources(COMMENTLabel, "COMMENTLabel")
COMMENTLabel.Name = "COMMENTLabel"
'
'btnSQLView 'btnSQLView
' '
resources.ApplyResources(Me.btnSQLView, "btnSQLView") resources.ApplyResources(Me.btnSQLView, "btnSQLView")
@ -1312,11 +1393,24 @@ Partial Class frmAdministration
Me.btnSQLView.Name = "btnSQLView" Me.btnSQLView.Name = "btnSQLView"
Me.btnSQLView.UseVisualStyleBackColor = True 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 'CHANGED_WHENLabel
' '
resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel")
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
' '
'DATATYPELabel
'
resources.ApplyResources(DATATYPELabel, "DATATYPELabel")
DATATYPELabel.Name = "DATATYPELabel"
'
'CHANGED_WHENTextBox 'CHANGED_WHENTextBox
' '
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHEN", True)) 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.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True 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 'CHANGED_WHOLabel
' '
resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel")
CHANGED_WHOLabel.Name = "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 'CHANGED_WHOTextBox
' '
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHO", True)) 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.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True Me.CHANGED_WHOTextBox.ReadOnly = True
' '
'DEFAULT_VALUELabel
'
resources.ApplyResources(DEFAULT_VALUELabel, "DEFAULT_VALUELabel")
DEFAULT_VALUELabel.Name = "DEFAULT_VALUELabel"
'
'ADDED_WHENLabel 'ADDED_WHENLabel
' '
resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel")
ADDED_WHENLabel.Name = "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 'ADDED_WHENTextBox
' '
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHEN", True)) 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.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True Me.ADDED_WHENTextBox.ReadOnly = True
' '
'SEQUENCELabel
'
resources.ApplyResources(SEQUENCELabel, "SEQUENCELabel")
SEQUENCELabel.Name = "SEQUENCELabel"
'
'ADDED_WHOLabel 'ADDED_WHOLabel
' '
resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel")
@ -1360,94 +1483,14 @@ Partial Class frmAdministration
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True Me.ADDED_WHOTextBox.ReadOnly = True
' '
'ACTIVECheckBox 'ListBoxControl3
' '
Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True)) Me.ListBoxControl3.AppearanceSelected.BackColor = System.Drawing.Color.Khaki
resources.ApplyResources(Me.ACTIVECheckBox, "ACTIVECheckBox") Me.ListBoxControl3.AppearanceSelected.Options.UseBackColor = True
Me.ACTIVECheckBox.Name = "ACTIVECheckBox" Me.ListBoxControl3.DataSource = Me.TBDD_INDEX_MANBindingSource
Me.ACTIVECheckBox.UseVisualStyleBackColor = True Me.ListBoxControl3.DisplayMember = "NAME"
' resources.ApplyResources(Me.ListBoxControl3, "ListBoxControl3")
'SEQUENCELabel Me.ListBoxControl3.Name = "ListBoxControl3"
'
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"
' '
'XtraTabPageManualIndexFunctions 'XtraTabPageManualIndexFunctions
' '
@ -2660,48 +2703,6 @@ Partial Class frmAdministration
Me.RibbonPage8.Name = "RibbonPage8" Me.RibbonPage8.Name = "RibbonPage8"
resources.ApplyResources(Me.RibbonPage8, "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 'frmAdministration
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
@ -2745,8 +2746,10 @@ Partial Class frmAdministration
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl2.ResumeLayout(False) Me.XtraTabControl2.ResumeLayout(False)
Me.XtraTabPageManualIndex.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.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageManualIndexFunctions.ResumeLayout(False) Me.XtraTabPageManualIndexFunctions.ResumeLayout(False)
Me.XtraTabPageManualIndexFunctions.PerformLayout() Me.XtraTabPageManualIndexFunctions.PerformLayout()
CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() 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.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()

2159
Global_Indexer/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

9
Global_Indexer/frmAdministration.vb
View File

@ -1,5 +1,6 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports DevExpress.XtraGrid.Views.Base
Public Class frmAdministration Public Class frmAdministration
Public Shared _Namenkonvention As String Public Shared _Namenkonvention As String
@ -1357,4 +1358,12 @@ Public Class frmAdministration
EnableControls(Panel1) EnableControls(Panel1)
End If End If
End Sub 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 End Class

29
Global_Indexer/frmIndex.vb
View File

@ -427,36 +427,7 @@ Public Class frmIndex
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:")
End Try End Try
End Sub 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() Function Name_Generieren()
Try Try
Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1" Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1"