From a5a0d1898aa53f08cb93807643d7b3da5ac57e5a Mon Sep 17 00:00:00 2001 From: Developer01 Date: Wed, 23 Apr 2025 09:33:44 +0200 Subject: [PATCH] =?UTF-8?q?=C3=9Cbergabe=20WM=20Indexe=20an=20SQL=20Admin?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Global_Indexer/frmAdministration.Designer.vb | 68 ++++++------ Global_Indexer/frmAdministration.resx | 110 +++++++++---------- Global_Indexer/frmAdministration.vb | 83 +++++++------- 3 files changed, 128 insertions(+), 133 deletions(-) diff --git a/Global_Indexer/frmAdministration.Designer.vb b/Global_Indexer/frmAdministration.Designer.vb index d6d6ec2..22851f9 100644 --- a/Global_Indexer/frmAdministration.Designer.vb +++ b/Global_Indexer/frmAdministration.Designer.vb @@ -182,8 +182,9 @@ Partial Class frmAdministration Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPageManualIndex = New DevExpress.XtraTab.XtraTabPage() Me.Panel1 = New System.Windows.Forms.Panel() - Me.txtManIndexConnectionId = New System.Windows.Forms.TextBox() + Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown() Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.txtManIndexConnectionId = New System.Windows.Forms.TextBox() Me.txtManIndexSQL = New System.Windows.Forms.TextBox() Me.Button3 = New System.Windows.Forms.Button() Me.lbManIndexDefaultValueParameter = New System.Windows.Forms.ListBox() @@ -232,8 +233,9 @@ Partial Class frmAdministration Me.COMMENTTextBox2 = New System.Windows.Forms.TextBox() Me.GUIDTextBox4 = New System.Windows.Forms.TextBox() Me.XtraTabPageAutoIndex = New DevExpress.XtraTab.XtraTabPage() - Me.chkPreventMultipleValues = New DevExpress.XtraEditors.CheckEdit() + Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown() Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.chkPreventMultipleValues = New DevExpress.XtraEditors.CheckEdit() Me.chkOverwrite = New DevExpress.XtraEditors.CheckEdit() Me.txtAutomIndexConnectionId = New System.Windows.Forms.TextBox() Me.txtAutomIndexSQLResult = New System.Windows.Forms.TextBox() @@ -309,8 +311,6 @@ 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.NumericUpDown1 = New System.Windows.Forms.NumericUpDown() - Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown() GUIDLabel = New System.Windows.Forms.Label() GUIDLabel1 = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() @@ -397,14 +397,16 @@ Partial Class frmAdministration Me.XtraTabControl2.SuspendLayout() Me.XtraTabPageManualIndex.SuspendLayout() Me.Panel1.SuspendLayout() + CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() 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() Me.XtraTabPageAutoIndex.SuspendLayout() - CType(Me.chkPreventMultipleValues.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chkPreventMultipleValues.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.chkOverwrite.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPageFolderPath.SuspendLayout() @@ -425,8 +427,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() - CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GUIDLabel @@ -1381,6 +1381,18 @@ Partial Class frmAdministration resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.Name = "Panel1" ' + 'NumericUpDown1 + ' + Me.NumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) + resources.ApplyResources(Me.NumericUpDown1, "NumericUpDown1") + Me.NumericUpDown1.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.NumericUpDown1.Name = "NumericUpDown1" + ' + 'TBDD_INDEX_MANBindingSource + ' + Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" + Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset + ' 'txtManIndexConnectionId ' Me.txtManIndexConnectionId.BackColor = System.Drawing.SystemColors.Control @@ -1391,11 +1403,6 @@ Partial Class frmAdministration Me.txtManIndexConnectionId.Name = "txtManIndexConnectionId" Me.txtManIndexConnectionId.TabStop = False ' - 'TBDD_INDEX_MANBindingSource - ' - Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" - Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset - ' 'txtManIndexSQL ' Me.txtManIndexSQL.BackColor = System.Drawing.SystemColors.Control @@ -1883,18 +1890,25 @@ Partial Class frmAdministration Me.XtraTabPageAutoIndex.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.XtraTabPageAutoIndex.Name = "XtraTabPageAutoIndex" ' - 'chkPreventMultipleValues + 'NumericUpDown2 ' - Me.chkPreventMultipleValues.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_AUTOMBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True)) - resources.ApplyResources(Me.chkPreventMultipleValues, "chkPreventMultipleValues") - Me.chkPreventMultipleValues.Name = "chkPreventMultipleValues" - Me.chkPreventMultipleValues.Properties.Caption = resources.GetString("chkPreventMultipleValues.Properties.Caption") + Me.NumericUpDown2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE", True)) + resources.ApplyResources(Me.NumericUpDown2, "NumericUpDown2") + Me.NumericUpDown2.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.NumericUpDown2.Name = "NumericUpDown2" ' 'TBDD_INDEX_AUTOMBindingSource ' Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM" Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset ' + 'chkPreventMultipleValues + ' + Me.chkPreventMultipleValues.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_AUTOMBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True)) + resources.ApplyResources(Me.chkPreventMultipleValues, "chkPreventMultipleValues") + Me.chkPreventMultipleValues.Name = "chkPreventMultipleValues" + Me.chkPreventMultipleValues.Properties.Caption = resources.GetString("chkPreventMultipleValues.Properties.Caption") + ' 'chkOverwrite ' Me.chkOverwrite.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_AUTOMBindingSource, "VKT_OVERWRITE", True)) @@ -2506,20 +2520,6 @@ Partial Class frmAdministration Me.RibbonPage8.Name = "RibbonPage8" resources.ApplyResources(Me.RibbonPage8, "RibbonPage8") ' - 'NumericUpDown1 - ' - Me.NumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) - resources.ApplyResources(Me.NumericUpDown1, "NumericUpDown1") - Me.NumericUpDown1.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) - Me.NumericUpDown1.Name = "NumericUpDown1" - ' - 'NumericUpDown2 - ' - Me.NumericUpDown2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE", True)) - resources.ApplyResources(Me.NumericUpDown2, "NumericUpDown2") - Me.NumericUpDown2.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) - Me.NumericUpDown2.Name = "NumericUpDown2" - ' 'frmAdministration ' Me.Appearance.Options.UseFont = True @@ -2573,6 +2573,7 @@ Partial Class frmAdministration Me.XtraTabPageManualIndex.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() + CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPageManualIndexFunctions.ResumeLayout(False) @@ -2581,8 +2582,9 @@ Partial Class frmAdministration CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPageAutoIndex.ResumeLayout(False) Me.XtraTabPageAutoIndex.PerformLayout() - CType(Me.chkPreventMultipleValues.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chkPreventMultipleValues.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.chkOverwrite.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPageFolderPath.ResumeLayout(False) @@ -2606,8 +2608,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() - CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() diff --git a/Global_Indexer/frmAdministration.resx b/Global_Indexer/frmAdministration.resx index 3ef58da..636d4ff 100644 --- a/Global_Indexer/frmAdministration.resx +++ b/Global_Indexer/frmAdministration.resx @@ -1445,7 +1445,7 @@ 158, 57 - 287, 21 + 287, 20 3 @@ -1490,7 +1490,7 @@ 10, 146 - 585, 21 + 585, 20 9 @@ -1535,7 +1535,7 @@ 10, 188 - 586, 21 + 586, 20 11 @@ -1631,7 +1631,7 @@ 451, 57 - 144, 21 + 144, 20 7 @@ -2111,7 +2111,7 @@ 601, 236 - 72, 13 + 71, 13 95 @@ -2345,7 +2345,7 @@ 718, 245 - 155, 14 + 155, 13 98 @@ -2369,7 +2369,7 @@ 718, 218 - 155, 14 + 155, 13 99 @@ -2657,7 +2657,7 @@ 138, 31 - 71, 13 + 72, 13 3 @@ -2732,7 +2732,7 @@ 416, 31 - 89, 13 + 84, 13 91 @@ -2759,7 +2759,7 @@ 6, 92 - 509, 21 + 509, 20 8 @@ -2946,7 +2946,7 @@ der Datei 3, 118 - 56, 13 + 53, 13 9 @@ -3057,7 +3057,7 @@ der Datei 6, 180 - 318, 21 + 318, 20 13 @@ -3108,7 +3108,7 @@ der Datei 3, 162 - 70, 13 + 67, 13 12 @@ -3195,7 +3195,7 @@ der Datei 62, 31 - 68, 13 + 67, 13 16 @@ -3401,7 +3401,7 @@ der Datei 325, 73 - 113, 13 + 110, 13 80 @@ -3545,7 +3545,7 @@ der Datei 522, 113 - 38, 13 + 39, 13 31 @@ -3572,7 +3572,7 @@ der Datei 325, 113 - 38, 13 + 39, 13 30 @@ -3599,7 +3599,7 @@ der Datei 154, 113 - 38, 13 + 39, 13 29 @@ -3857,7 +3857,7 @@ der Datei 209, 25 - 68, 13 + 67, 13 19 @@ -3884,7 +3884,7 @@ der Datei 212, 43 - 78, 21 + 78, 20 20 @@ -3908,7 +3908,7 @@ der Datei 525, 131 - 169, 21 + 169, 20 18 @@ -3932,7 +3932,7 @@ der Datei 328, 131 - 191, 21 + 191, 20 16 @@ -3956,7 +3956,7 @@ der Datei 157, 131 - 165, 21 + 165, 20 14 @@ -3980,7 +3980,7 @@ der Datei 249, 174 - 70, 21 + 70, 20 12 @@ -4007,7 +4007,7 @@ der Datei 157, 174 - 70, 21 + 70, 20 10 @@ -4037,7 +4037,7 @@ der Datei 154, 71 - 35, 13 + 34, 13 7 @@ -4100,7 +4100,7 @@ der Datei 479, 25 - 65, 13 + 63, 13 6 @@ -4127,7 +4127,7 @@ der Datei 482, 43 - 363, 21 + 363, 20 7 @@ -4154,7 +4154,7 @@ der Datei 293, 26 - 88, 13 + 85, 13 5 @@ -4379,7 +4379,7 @@ der Datei 866, 259 - 100, 14 + 100, 13 101 @@ -4403,7 +4403,7 @@ der Datei 866, 239 - 100, 14 + 100, 13 100 @@ -4500,7 +4500,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 616, 110 - 108, 13 + 105, 13 88 @@ -4575,7 +4575,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 364, 114 - 166, 13 + 159, 13 85 @@ -4785,7 +4785,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 160, 113 - 65, 13 + 62, 13 8 @@ -4812,7 +4812,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 367, 127 - 209, 21 + 209, 20 11 @@ -4866,7 +4866,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 163, 171 - 419, 21 + 419, 20 15 @@ -5142,7 +5142,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 163, 126 - 198, 21 + 198, 20 28 @@ -5639,7 +5639,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 119, 65 - 471, 21 + 471, 20 34 @@ -5669,7 +5669,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 6, 70 - 86, 13 + 85, 13 33 @@ -5702,7 +5702,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 6, 15 - 22, 13 + 21, 13 19 @@ -5756,7 +5756,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 867, 162 - 155, 21 + 155, 20 31 @@ -5786,7 +5786,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 864, 146 - 85, 13 + 83, 13 30 @@ -5810,7 +5810,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 119, 12 - 65, 21 + 65, 20 20 @@ -5831,7 +5831,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 867, 122 - 155, 21 + 155, 20 29 @@ -5861,7 +5861,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 6, 45 - 103, 13 + 101, 13 21 @@ -5894,7 +5894,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 864, 106 - 77, 13 + 74, 13 28 @@ -5942,7 +5942,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 867, 82 - 155, 21 + 155, 20 27 @@ -5972,7 +5972,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 864, 66 - 73, 13 + 70, 13 26 @@ -6005,7 +6005,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 864, 26 - 65, 13 + 61, 13 24 @@ -6029,7 +6029,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 867, 42 - 155, 21 + 155, 20 25 @@ -6112,7 +6112,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 786, -61 - 72, 13 + 71, 13 92 @@ -6175,7 +6175,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 339, -254 - 71, 13 + 72, 13 2 @@ -6205,7 +6205,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 634, -255 - 68, 13 + 66, 13 4 @@ -6235,7 +6235,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 904, -255 - 58, 13 + 57, 13 6 @@ -6265,7 +6265,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 191, -163 - 49, 13 + 48, 13 8 diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb index cba6afa..371711b 100644 --- a/Global_Indexer/frmAdministration.vb +++ b/Global_Indexer/frmAdministration.vb @@ -503,51 +503,8 @@ Public Class frmAdministration End Select End Sub - Private Sub btnSQLView_Click(sender As Object, e As EventArgs) Handles btnSQLView.Click - Dim oIndexGuid As Integer = GUIDTextBox1.Text - Dim oDocTypeGuid As Integer = DOKART_GUIDTextBox.Text - - Try - Dim oConnection As Integer = 1 - Dim oSQLCommand = "" - - If txtManIndexConnectionId.Text <> String.Empty Then - oConnection = txtManIndexConnectionId.Text - End If - - If txtManIndexSQL.Text <> String.Empty Then - oSQLCommand = txtManIndexSQL.Text - End If - - 'Dim oForm As New frmSQL_DESIGNER(oIndexGuid, oDocTypeGuid) With { - ' .SQLCommand = oSQLCommand, - ' .ConnectionID = oConnection - '} - - Dim oDatatable = DATABASE_ECM.GetDatatable($"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {oDocTypeGuid} AND ACTIVE = 1") - Dim oPlaceholders = oDatatable.AsEnumerable(). - ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("NAME")) - - Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, DATABASE_ECM) With { - .SQLCommand = oSQLCommand, - .SQLConnection = oConnection, - .PlaceholdersManual = oPlaceholders, - .PlaceholdersManualPrefix = "CTRL", - .PlaceholdersWindream = SourceAttributes - } - - Dim oResult = oForm2.ShowDialog() - If oResult = DialogResult.OK Then - txtManIndexSQL.Text = oForm2.SQLCommand - txtManIndexConnectionId.Text = oForm2.SQLConnection - End If - Catch ex As Exception - LOGGER.Error(ex) - End Try - End Sub - Private Sub WINDREAM_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles WINDREAM_DIRECTCheckBox.CheckedChanged WM_CHECKED_CHANGE() End Sub @@ -665,7 +622,8 @@ Public Class frmAdministration .SQLConnection = oConnection, .PlaceholdersManual = oPlaceholders, .PlaceholdersManualTitle = "Manueller Index", - .PlaceholdersManualPrefix = "CTRL" + .PlaceholdersManualPrefix = "CTRL", + .PlaceholdersWindream = SourceAttributes } Dim oResult = oForm2.ShowDialog() @@ -677,6 +635,43 @@ Public Class frmAdministration LOGGER.Error(ex) End Try End Sub + Private Sub btnSQLView_Click(sender As Object, e As EventArgs) Handles btnSQLView.Click + Dim oIndexGuid As Integer = GUIDTextBox1.Text + Dim oDocTypeGuid As Integer = DOKART_GUIDTextBox.Text + + Try + Dim oConnection As Integer = 1 + Dim oSQLCommand = "" + + If txtManIndexConnectionId.Text <> String.Empty Then + oConnection = txtManIndexConnectionId.Text + End If + + If txtManIndexSQL.Text <> String.Empty Then + oSQLCommand = txtManIndexSQL.Text + End If + + Dim oDatatable = DATABASE_ECM.GetDatatable($"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {oDocTypeGuid} AND ACTIVE = 1") + Dim oPlaceholders = oDatatable.AsEnumerable(). + ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("NAME")) + + Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, DATABASE_ECM) With { + .SQLCommand = oSQLCommand, + .SQLConnection = oConnection, + .PlaceholdersManual = oPlaceholders, + .PlaceholdersManualPrefix = "CTRL", + .PlaceholdersWindream = SourceAttributes + } + + Dim oResult = oForm2.ShowDialog() + If oResult = DialogResult.OK Then + txtManIndexSQL.Text = oForm2.SQLCommand + txtManIndexConnectionId.Text = oForm2.SQLConnection + End If + Catch ex As Exception + LOGGER.Error(ex) + End Try + End Sub Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged If TYPEComboBox.SelectedIndex <> -1 Then