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

Replace Profile Combobox with SearchLookupEdit

Browse Source
This commit is contained in:
Jonathan Jenne 2022-01-19 14:33:16 +01:00
parent 8227971743
commit ea3f898172
2 changed files with 89 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
Global_Indexer/frmIndex.designer.vb generated
View File

@ -31,7 +31,8 @@ Partial Class frmIndex
Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlIndex = New System.Windows.Forms.Panel() Me.pnlIndex = New System.Windows.Forms.Panel()
Me.ComboboxDoctype = New DevExpress.XtraEditors.ComboBoxEdit() Me.Panel2 = New System.Windows.Forms.Panel()
Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem() Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem() Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
@ -51,9 +52,10 @@ Partial Class frmIndex
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
Me.btnOK = New DevExpress.XtraEditors.SimpleButton() Me.btnOK = New DevExpress.XtraEditors.SimpleButton()
Me.ComboboxDoctype = New DevExpress.XtraEditors.SearchLookUpEdit()
Me.SearchLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colName = New DevExpress.XtraGrid.Columns.GridColumn()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.MyDataset = New Global_Indexer.MyDataset() Me.MyDataset = New Global_Indexer.MyDataset()
Me.VWDDINDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWDDINDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -68,10 +70,11 @@ Partial Class frmIndex
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -87,8 +90,8 @@ Partial Class frmIndex
'SplitContainer1.Panel1 'SplitContainer1.Panel1
' '
Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex) Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex)
Me.SplitContainer1.Panel1.Controls.Add(Me.ComboboxDoctype)
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2) Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2)
Me.SplitContainer1.Panel1.Controls.Add(Me.ComboboxDoctype)
' '
'SplitContainer1.Panel2 'SplitContainer1.Panel2
' '
@ -100,17 +103,26 @@ Partial Class frmIndex
Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight
Me.pnlIndex.Name = "pnlIndex" Me.pnlIndex.Name = "pnlIndex"
' '
'ComboboxDoctype 'Panel2
' '
resources.ApplyResources(Me.ComboboxDoctype, "ComboboxDoctype") Me.Panel2.BackColor = System.Drawing.Color.Transparent
Me.ComboboxDoctype.MenuManager = Me.RibbonControl1 Me.Panel2.Controls.Add(Me.checkMultiindex)
Me.ComboboxDoctype.Name = "ComboboxDoctype" Me.Panel2.Controls.Add(Me.btnOK)
SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) resources.ApplyResources(Me.Panel2, "Panel2")
SerializableAppearanceObject1.Options.UseBackColor = True Me.Panel2.Name = "Panel2"
Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboboxDoctype.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboboxDoctype.Properties.Buttons1"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboboxDoctype.Properties.Buttons6"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons7"), Object), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))}) '
Me.ComboboxDoctype.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat 'checkMultiindex
Me.ComboboxDoctype.Properties.NullText = resources.GetString("ComboboxDoctype.Properties.NullText") '
Me.ComboboxDoctype.Properties.Padding = New System.Windows.Forms.Padding(5) resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
Me.checkMultiindex.MenuManager = Me.RibbonControl1
Me.checkMultiindex.Name = "checkMultiindex"
Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
' '
'RibbonControl1 'RibbonControl1
' '
@ -253,27 +265,6 @@ Partial Class frmIndex
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
' '
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.Transparent
Me.Panel2.Controls.Add(Me.checkMultiindex)
Me.Panel2.Controls.Add(Me.btnOK)
resources.ApplyResources(Me.Panel2, "Panel2")
Me.Panel2.Name = "Panel2"
'
'checkMultiindex
'
resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
Me.checkMultiindex.MenuManager = Me.RibbonControl1
Me.checkMultiindex.Name = "checkMultiindex"
Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
'
'btnOK 'btnOK
' '
resources.ApplyResources(Me.btnOK, "btnOK") resources.ApplyResources(Me.btnOK, "btnOK")
@ -282,6 +273,37 @@ Partial Class frmIndex
Me.btnOK.ImageOptions.SvgImage = CType(resources.GetObject("btnOK.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnOK.ImageOptions.SvgImage = CType(resources.GetObject("btnOK.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnOK.Name = "btnOK" Me.btnOK.Name = "btnOK"
' '
'ComboboxDoctype
'
resources.ApplyResources(Me.ComboboxDoctype, "ComboboxDoctype")
Me.ComboboxDoctype.MenuManager = Me.RibbonControl1
Me.ComboboxDoctype.Name = "ComboboxDoctype"
SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
SerializableAppearanceObject1.Options.UseBackColor = True
Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboboxDoctype.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboboxDoctype.Properties.Buttons1"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboboxDoctype.Properties.Buttons6"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons7"), Object), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
Me.ComboboxDoctype.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
Me.ComboboxDoctype.Properties.NullText = resources.GetString("ComboboxDoctype.Properties.NullText")
Me.ComboboxDoctype.Properties.Padding = New System.Windows.Forms.Padding(5)
Me.ComboboxDoctype.Properties.PopupSizeable = False
Me.ComboboxDoctype.Properties.PopupView = Me.SearchLookUpEdit1View
Me.ComboboxDoctype.Properties.ShowClearButton = False
'
'SearchLookUpEdit1View
'
Me.SearchLookUpEdit1View.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName})
Me.SearchLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
Me.SearchLookUpEdit1View.Name = "SearchLookUpEdit1View"
Me.SearchLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False
Me.SearchLookUpEdit1View.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.Never
Me.SearchLookUpEdit1View.OptionsView.ShowGroupPanel = False
Me.SearchLookUpEdit1View.OptionsView.ShowIndicator = False
'
'colName
'
resources.ApplyResources(Me.colName, "colName")
Me.colName.FieldName = "Name"
Me.colName.Name = "colName"
'
'DocumentViewer1 'DocumentViewer1
' '
resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1") resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
@ -349,10 +371,11 @@ Partial Class frmIndex
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
@ -403,5 +426,7 @@ Partial Class frmIndex
Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton
Friend WithEvents checkMultiindex As DevExpress.XtraEditors.CheckEdit Friend WithEvents checkMultiindex As DevExpress.XtraEditors.CheckEdit
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents ComboboxDoctype As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents ComboboxDoctype As DevExpress.XtraEditors.SearchLookUpEdit
Friend WithEvents SearchLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
End Class End Class

46
Global_Indexer/frmIndex.vb
View File

@ -11,6 +11,7 @@ Imports DigitalData.GUIs.GlobalIndexer
Imports DevExpress.XtraEditors.Controls Imports DevExpress.XtraEditors.Controls
Imports Limilabs.Mail Imports Limilabs.Mail
Imports Limilabs.Mail.Headers Imports Limilabs.Mail.Headers
Imports DevExpress.XtraEditors
Public Class frmIndex Public Class frmIndex
#Region "+++++ Variablen ++++++" #Region "+++++ Variablen ++++++"
@ -455,7 +456,7 @@ Public Class frmIndex
End If End If
End If End If
If oControl.Name.StartsWith("chk") Then If oControl.Name.StartsWith("chk") Then
Dim chk As CheckBox = oControl Dim chk As CheckEdit = oControl
Indexwert_Postprocessing(Replace(chk.Name, "chk", ""), chk.Checked) Indexwert_Postprocessing(Replace(chk.Name, "chk", ""), chk.Checked)
oResult = True oResult = True
End If End If
@ -1667,20 +1668,22 @@ Public Class frmIndex
checkItemPreselection.Checked = True checkItemPreselection.Checked = True
If CURRENT_LASTDOKART <> "" Then If CURRENT_LASTDOKART <> "" Then
Dim oFoundDocType = ComboboxDoctype.Properties.Items.
Dim oFoundDocType = ComboboxDoctype.Properties.DataSource.
Cast(Of DocType)(). Cast(Of DocType)().
Where(Function(dt) dt.Name = CURRENT_LASTDOKART). Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
FirstOrDefault() FirstOrDefault()
If oFoundDocType IsNot Nothing Then If oFoundDocType IsNot Nothing Then
ComboboxDoctype.SelectedItem = oFoundDocType ComboboxDoctype.EditValue = oFoundDocType
End If End If
'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART) 'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
End If End If
End If End If
If ComboboxDoctype.SelectedItem Is Nothing And DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then If ComboboxDoctype.EditValue Is Nothing And DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows
Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE) Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE)
If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then
@ -1689,13 +1692,13 @@ Public Class frmIndex
_Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename) _Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE")) 'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE"))
Dim oFoundDocType = ComboboxDoctype.Properties.Items. Dim oDoctypes As List(Of DocType) = ComboboxDoctype.Properties.DataSource
Cast(Of DocType)(). Dim oFoundDocType As DocType = oDoctypes.
Where(Function(dt) dt.Guid = oRoW.Item("DOCTYPE_ID")). Where(Function(dt) dt.Guid = oRoW.Item("DOCTYPE_ID")).
FirstOrDefault() FirstOrDefault()
If oFoundDocType IsNot Nothing Then If oFoundDocType IsNot Nothing Then
ComboboxDoctype.SelectedItem = oFoundDocType ComboboxDoctype.EditValue = oFoundDocType
Exit For Exit For
End If End If
End If End If
@ -1717,24 +1720,23 @@ Public Class frmIndex
'cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems 'cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
'cmbDokumentart.SelectedIndex = -1 'cmbDokumentart.SelectedIndex = -1
ComboboxDoctype.Properties.Items.Clear() Dim oDocTypeList As New List(Of DocType)
For Each oRow As DataRow In oDoctypes.Rows For Each oRow As DataRow In oDoctypes.Rows
Dim oDocType = New DocType With {.Guid = oRow.Item("DOCTYPE_ID"), .Name = oRow.Item("DOCTYPE")} Dim oDocType = New DocType With {.Guid = oRow.Item("DOCTYPE_ID"), .Name = oRow.Item("DOCTYPE")}
ComboboxDoctype.Properties.Items.Add(oDocType) oDocTypeList.Add(oDocType)
Next Next
ComboboxDoctype.SelectedIndex = -1 ComboboxDoctype.Properties.DataSource = oDocTypeList
' ComboboxDoctype.SelectedIndex = -1
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex, "Refresh_Dokart") ShowErrorMessage(ex, "Refresh_Dokart")
End Try End Try
End Sub End Sub
Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboboxDoctype.SelectedIndexChanged Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboboxDoctype.EditValueChanged
If ComboboxDoctype.SelectedIndex <> -1 And FormLoaded = True Then If ComboboxDoctype.EditValue IsNot Nothing And FormLoaded = True Then
Dim oSelectedItem As DocType = ComboboxDoctype.SelectedItem Dim oSelectedItem As DocType = ComboboxDoctype.EditValue
CURRENT_DOKART_ID = oSelectedItem.Guid CURRENT_DOKART_ID = oSelectedItem.Guid
@ -1763,7 +1765,7 @@ Public Class frmIndex
End If End If
MsgBox(oMessage, MsgBoxStyle.Information, Text) MsgBox(oMessage, MsgBoxStyle.Information, Text)
ComboboxDoctype.SelectedIndex = -1 ComboboxDoctype.EditValue = Nothing
Else Else
WDDirect = oDocType.Item("WINDREAM_DIRECT") WDDirect = oDocType.Item("WINDREAM_DIRECT")
CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING") CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING")
@ -1855,7 +1857,7 @@ Public Class frmIndex
Select Case oDataType Select Case oDataType
Case ClassConstants.INDEX_TYPE_BOOLEAN Case ClassConstants.INDEX_TYPE_BOOLEAN
Dim chk As CheckBox = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString) Dim chk As CheckEdit = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString)
If Not IsNothing(chk) Then If Not IsNothing(chk) Then
pnlIndex.Controls.Add(chk) pnlIndex.Controls.Add(chk)
End If End If
@ -2042,9 +2044,9 @@ Public Class frmIndex
oLookupControl.Properties.ValueMember = oDatatable.Columns.Item(0).ColumnName oLookupControl.Properties.ValueMember = oDatatable.Columns.Item(0).ColumnName
oLookupControl.Properties.DisplayMember = oDatatable.Columns.Item(0).ColumnName oLookupControl.Properties.DisplayMember = oDatatable.Columns.Item(0).ColumnName
End If End If
Case GetType(ComboBox).Name Case GetType(Windows.Forms.ComboBox).Name
LOGGER.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE") LOGGER.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
DirectCast(oFoundControl, ComboBox).DataSource = oDatatable DirectCast(oFoundControl, Windows.Forms.ComboBox).DataSource = oDatatable
Case Else Case Else
LOGGER.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name) LOGGER.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name)
End Select End Select
@ -2176,7 +2178,7 @@ Public Class frmIndex
If oSqlResult <> String.Empty Then If oSqlResult <> String.Empty Then
_Logger.Debug("oSqlResult after Replace [" & oSqlResult & "]") _Logger.Debug("oSqlResult after Replace [" & oSqlResult & "]")
End If End If
' Ergebnis: Es wurden alle einfachen Platzhalter ersetzt, jetzt haben wir einen SQL Befehl, ' Ergebnis: Es wurden alle einfachen Platzhalter ersetz't, jetzt haben wir einen SQL Befehl,
' der nur noch vektorfelder-platzhalter enthält ' der nur noch vektorfelder-platzhalter enthält
' 2. Schritt: Vektorfelder ersetzen ' 2. Schritt: Vektorfelder ersetzen
@ -2259,7 +2261,7 @@ Public Class frmIndex
_Logger.Debug("Manuelle Indexe geladen") _Logger.Debug("Manuelle Indexe geladen")
If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then
Dim oDokart As DocType = ComboboxDoctype.SelectedItem Dim oDokart As DocType = ComboboxDoctype.EditValue
CURRENT_DOKART_ID = oDokart.Guid CURRENT_DOKART_ID = oDokart.Guid
If CheckWrite_IndexeMan(oDokart.Guid) = True Then If CheckWrite_IndexeMan(oDokart.Guid) = True Then