DigitalData.GUIs.Globix added
This commit is contained in:
Jonathan Jenne
parent
25e56fe80f
commit
d1efc91b45
@ -1,13 +1,54 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<configSections>
|
||||
</configSections>
|
||||
<connectionStrings>
|
||||
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
|
||||
connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
|
||||
providerName="System.Data.SqlClient" />
|
||||
</connectionStrings>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
<configSections>
|
||||
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
|
||||
<section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
|
||||
</sectionGroup>
|
||||
</configSections>
|
||||
<applicationSettings>
|
||||
<DevExpress.LookAndFeel.Design.AppSettings>
|
||||
<setting name="DefaultAppSkin" serializeAs="String">
|
||||
<value>Skin/Office 2019 Colorful</value>
|
||||
</setting>
|
||||
<setting name="DefaultPalette" serializeAs="String">
|
||||
<value>Fire Brick</value>
|
||||
</setting>
|
||||
<setting name="TouchUI" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="CompactUI" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="TouchScaleFactor" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="DirectX" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="RegisterUserSkins" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="RegisterBonusSkins" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="FontBehavior" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="DefaultAppFont" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="DPIAwarenessMode" serializeAs="String">
|
||||
<value></value>
|
||||
</setting>
|
||||
<setting name="CustomPaletteCollection" serializeAs="Xml">
|
||||
<value />
|
||||
</setting>
|
||||
</DevExpress.LookAndFeel.Design.AppSettings>
|
||||
</applicationSettings>
|
||||
<connectionStrings>
|
||||
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
|
||||
</connectionStrings>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
|
||||
</startup>
|
||||
</configuration>
|
||||
@ -75,7 +75,7 @@ Public Class ClassControls
|
||||
.IndexType = DataType
|
||||
}
|
||||
}
|
||||
oControl.Properties.AppearanceFocused.BackColor = Color.Lime
|
||||
oControl.Properties.AppearanceFocused.BackColor = Color.FromArgb(255, 214, 49)
|
||||
|
||||
If Not String.IsNullOrEmpty(Vorgabe) Then
|
||||
Dim oDefaultValues As New List(Of String)
|
||||
@ -157,7 +157,7 @@ Public Class ClassControls
|
||||
|
||||
Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs)
|
||||
Dim cmb As ComboBox = sender
|
||||
cmb.BackColor = Color.Lime
|
||||
cmb.BackColor = Color.FromArgb(255, 214, 49)
|
||||
End Sub
|
||||
|
||||
Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs)
|
||||
@ -333,7 +333,7 @@ Public Class ClassControls
|
||||
|
||||
Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs)
|
||||
Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
|
||||
oTextbox.BackColor = Color.Lime
|
||||
oTextbox.BackColor = Color.FromArgb(255, 214, 49)
|
||||
oTextbox.SelectAll()
|
||||
End Sub
|
||||
|
||||
@ -383,7 +383,7 @@ Public Class ClassControls
|
||||
oPicker.EditValue = Vorgabe
|
||||
End If
|
||||
|
||||
oPicker.Properties.AppearanceFocused.BackColor = Color.Lime
|
||||
oPicker.Properties.AppearanceFocused.BackColor = Color.FromArgb(255, 214, 49)
|
||||
|
||||
Return oPicker
|
||||
End Function
|
||||
|
||||
@ -157,6 +157,9 @@
|
||||
<Reference Include="DigitalData.Controls.LookupGrid">
|
||||
<HintPath>..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.GUIs.GlobalIndexer">
|
||||
<HintPath>..\..\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Config">
|
||||
<HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
|
||||
</Reference>
|
||||
|
||||
153
Global_Indexer/frmIndex.designer.vb
generated
153
Global_Indexer/frmIndex.designer.vb
generated
@ -24,13 +24,14 @@ Partial Class frmIndex
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndex))
|
||||
Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
|
||||
Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
|
||||
Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
|
||||
Dim SerializableAppearanceObject3 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.pnlIndex = New System.Windows.Forms.Panel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.cmbDokumentart = New System.Windows.Forms.ComboBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
|
||||
Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
@ -50,6 +51,8 @@ Partial Class frmIndex
|
||||
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
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.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
|
||||
Me.MyDataset = New Global_Indexer.MyDataset()
|
||||
@ -65,10 +68,10 @@ Partial Class frmIndex
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -83,14 +86,12 @@ Partial Class frmIndex
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.ComboBoxEdit1)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2")
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1)
|
||||
'
|
||||
'pnlIndex
|
||||
@ -99,61 +100,23 @@ Partial Class frmIndex
|
||||
Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight
|
||||
Me.pnlIndex.Name = "pnlIndex"
|
||||
'
|
||||
'Panel1
|
||||
'ComboBoxEdit1
|
||||
'
|
||||
resources.ApplyResources(Me.Panel1, "Panel1")
|
||||
Me.Panel1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel1.Controls.Add(Me.cmbDokumentart)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
'
|
||||
'cmbDokumentart
|
||||
'
|
||||
resources.ApplyResources(Me.cmbDokumentart, "cmbDokumentart")
|
||||
Me.cmbDokumentart.DisplayMember = "DOKART_ID"
|
||||
Me.cmbDokumentart.FormattingEnabled = True
|
||||
Me.cmbDokumentart.Name = "cmbDokumentart"
|
||||
Me.cmbDokumentart.ValueMember = "DOKART_ID"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
resources.ApplyResources(Me.Label1, "Label1")
|
||||
Me.Label1.Name = "Label1"
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
resources.ApplyResources(Me.Panel2, "Panel2")
|
||||
Me.Panel2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel2.Controls.Add(Me.checkMultiindex)
|
||||
Me.Panel2.Controls.Add(Me.btnOK)
|
||||
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.Khaki
|
||||
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")
|
||||
Me.checkMultiindex.Properties.DisplayValueChecked = resources.GetString("checkMultiindex.Properties.DisplayValueChecked")
|
||||
Me.checkMultiindex.Properties.DisplayValueGrayed = resources.GetString("checkMultiindex.Properties.DisplayValueGrayed")
|
||||
Me.checkMultiindex.Properties.DisplayValueUnchecked = resources.GetString("checkMultiindex.Properties.DisplayValueUnchecked")
|
||||
Me.checkMultiindex.Properties.GlyphVerticalAlignment = CType(resources.GetObject("checkMultiindex.Properties.GlyphVerticalAlignment"), DevExpress.Utils.VertAlignment)
|
||||
resources.ApplyResources(Me.ComboBoxEdit1, "ComboBoxEdit1")
|
||||
Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1
|
||||
Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
|
||||
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.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboBoxEdit1.Properties.Buttons1"), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboBoxEdit1.Properties.Buttons6"), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons7"), Object), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
|
||||
Me.ComboBoxEdit1.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
|
||||
Me.ComboBoxEdit1.Properties.NullText = resources.GetString("ComboBoxEdit1.Properties.NullText")
|
||||
Me.ComboBoxEdit1.Properties.Padding = New System.Windows.Forms.Padding(5)
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
|
||||
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags")
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.checkItemTopMost, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1})
|
||||
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
|
||||
Me.RibbonControl1.MaxItemId = 22
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
@ -164,28 +127,20 @@ Partial Class frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me.BarToggleSwitchItem1, "BarToggleSwitchItem1")
|
||||
Me.BarToggleSwitchItem1.Id = 1
|
||||
Me.BarToggleSwitchItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarToggleSwitchItem1.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarToggleSwitchItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarToggleSwitchItem1.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarToggleSwitchItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarToggleSwitchItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1"
|
||||
'
|
||||
'BarToggleSwitchItem2
|
||||
'
|
||||
resources.ApplyResources(Me.BarToggleSwitchItem2, "BarToggleSwitchItem2")
|
||||
Me.BarToggleSwitchItem2.Id = 2
|
||||
Me.BarToggleSwitchItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarToggleSwitchItem2.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarToggleSwitchItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarToggleSwitchItem2.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarToggleSwitchItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarToggleSwitchItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
|
||||
'
|
||||
'checkItemTopMost
|
||||
'
|
||||
resources.ApplyResources(Me.checkItemTopMost, "checkItemTopMost")
|
||||
Me.checkItemTopMost.BindableChecked = True
|
||||
resources.ApplyResources(Me.checkItemTopMost, "checkItemTopMost")
|
||||
Me.checkItemTopMost.Checked = True
|
||||
Me.checkItemTopMost.Id = 5
|
||||
Me.checkItemTopMost.ImageOptions.ImageIndex = CType(resources.GetObject("checkItemTopMost.ImageOptions.ImageIndex"), Integer)
|
||||
Me.checkItemTopMost.ImageOptions.LargeImageIndex = CType(resources.GetObject("checkItemTopMost.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("checkItemTopMost.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.checkItemTopMost.Name = "checkItemTopMost"
|
||||
'
|
||||
@ -193,8 +148,6 @@ Partial Class frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me.checkItemDeleteSource, "checkItemDeleteSource")
|
||||
Me.checkItemDeleteSource.Id = 7
|
||||
Me.checkItemDeleteSource.ImageOptions.ImageIndex = CType(resources.GetObject("checkItemDeleteSource.ImageOptions.ImageIndex"), Integer)
|
||||
Me.checkItemDeleteSource.ImageOptions.LargeImageIndex = CType(resources.GetObject("checkItemDeleteSource.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.checkItemDeleteSource.ImageOptions.SvgImage = CType(resources.GetObject("checkItemDeleteSource.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.checkItemDeleteSource.Name = "checkItemDeleteSource"
|
||||
'
|
||||
@ -202,8 +155,6 @@ Partial Class frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me.checkItemPreselection, "checkItemPreselection")
|
||||
Me.checkItemPreselection.Id = 9
|
||||
Me.checkItemPreselection.ImageOptions.ImageIndex = CType(resources.GetObject("checkItemPreselection.ImageOptions.ImageIndex"), Integer)
|
||||
Me.checkItemPreselection.ImageOptions.LargeImageIndex = CType(resources.GetObject("checkItemPreselection.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.checkItemPreselection.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreselection.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.checkItemPreselection.Name = "checkItemPreselection"
|
||||
'
|
||||
@ -211,8 +162,6 @@ Partial Class frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me.labelError, "labelError")
|
||||
Me.labelError.Id = 10
|
||||
Me.labelError.ImageOptions.ImageIndex = CType(resources.GetObject("labelError.ImageOptions.ImageIndex"), Integer)
|
||||
Me.labelError.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelError.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.labelError.Name = "labelError"
|
||||
Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
@ -222,26 +171,18 @@ Partial Class frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me.BarStaticItem1, "BarStaticItem1")
|
||||
Me.BarStaticItem1.Id = 12
|
||||
Me.BarStaticItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarStaticItem1.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarStaticItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarStaticItem1.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarStaticItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarStaticItem1.Name = "BarStaticItem1"
|
||||
'
|
||||
'BarStaticItem2
|
||||
'
|
||||
resources.ApplyResources(Me.BarStaticItem2, "BarStaticItem2")
|
||||
Me.BarStaticItem2.Id = 13
|
||||
Me.BarStaticItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarStaticItem2.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarStaticItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarStaticItem2.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarStaticItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarStaticItem2.Name = "BarStaticItem2"
|
||||
'
|
||||
'labelFilePath
|
||||
'
|
||||
resources.ApplyResources(Me.labelFilePath, "labelFilePath")
|
||||
Me.labelFilePath.Id = 14
|
||||
Me.labelFilePath.ImageOptions.ImageIndex = CType(resources.GetObject("labelFilePath.ImageOptions.ImageIndex"), Integer)
|
||||
Me.labelFilePath.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelFilePath.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.labelFilePath.ImageOptions.SvgImage = CType(resources.GetObject("labelFilePath.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.labelFilePath.Name = "labelFilePath"
|
||||
Me.labelFilePath.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
@ -250,8 +191,6 @@ Partial Class frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me.checkItemPreview, "checkItemPreview")
|
||||
Me.checkItemPreview.Id = 16
|
||||
Me.checkItemPreview.ImageOptions.ImageIndex = CType(resources.GetObject("checkItemPreview.ImageOptions.ImageIndex"), Integer)
|
||||
Me.checkItemPreview.ImageOptions.LargeImageIndex = CType(resources.GetObject("checkItemPreview.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.checkItemPreview.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreview.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.checkItemPreview.Name = "checkItemPreview"
|
||||
'
|
||||
@ -259,8 +198,6 @@ Partial Class frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me.labelNotice, "labelNotice")
|
||||
Me.labelNotice.Id = 17
|
||||
Me.labelNotice.ImageOptions.ImageIndex = CType(resources.GetObject("labelNotice.ImageOptions.ImageIndex"), Integer)
|
||||
Me.labelNotice.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelNotice.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.labelNotice.Name = "labelNotice"
|
||||
Me.labelNotice.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
@ -270,26 +207,18 @@ Partial Class frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me.BarListItem1, "BarListItem1")
|
||||
Me.BarListItem1.Id = 19
|
||||
Me.BarListItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarListItem1.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarListItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarListItem1.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarListItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarListItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarListItem1.Name = "BarListItem1"
|
||||
'
|
||||
'BarStaticItem4
|
||||
'
|
||||
resources.ApplyResources(Me.BarStaticItem4, "BarStaticItem4")
|
||||
Me.BarStaticItem4.Id = 20
|
||||
Me.BarStaticItem4.ImageOptions.ImageIndex = CType(resources.GetObject("BarStaticItem4.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarStaticItem4.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarStaticItem4.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarStaticItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarStaticItem4.Name = "BarStaticItem4"
|
||||
'
|
||||
'BarButtonItem1
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
|
||||
Me.BarButtonItem1.Id = 21
|
||||
Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
|
||||
Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
|
||||
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItem1.Name = "BarButtonItem1"
|
||||
'
|
||||
@ -317,13 +246,34 @@ Partial Class frmIndex
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
|
||||
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath)
|
||||
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
|
||||
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice)
|
||||
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
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
|
||||
'
|
||||
resources.ApplyResources(Me.btnOK, "btnOK")
|
||||
@ -385,8 +335,8 @@ Partial Class frmIndex
|
||||
'
|
||||
'frmIndex
|
||||
'
|
||||
resources.ApplyResources(Me, "$this")
|
||||
Me.Appearance.Options.UseFont = True
|
||||
resources.ApplyResources(Me, "$this")
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
@ -399,11 +349,10 @@ Partial Class frmIndex
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@ -413,12 +362,7 @@ Partial Class frmIndex
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents VWINDEX_MANBindingSource As System.Windows.Forms.BindingSource
|
||||
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents TBCONNECTIONBindingSource As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents VWINDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource
|
||||
|
||||
@ -459,4 +403,5 @@ Partial Class frmIndex
|
||||
Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton
|
||||
Friend WithEvents checkMultiindex As DevExpress.XtraEditors.CheckEdit
|
||||
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit
|
||||
End Class
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -6,6 +6,7 @@ Imports System.Security.AccessControl
|
||||
Imports System.Security.Principal
|
||||
Imports System.DirectoryServices
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Controls.LookupGrid
|
||||
|
||||
Public Class frmIndex
|
||||
#Region "+++++ Variablen ++++++"
|
||||
@ -42,6 +43,14 @@ Public Class frmIndex
|
||||
|
||||
#End Region
|
||||
|
||||
Public Class DocType
|
||||
Public Property Guid
|
||||
Public Property Name
|
||||
|
||||
Public Overrides Function ToString() As String
|
||||
Return Name
|
||||
End Function
|
||||
End Class
|
||||
Private Sub ShowErrorMessage(Exception As Exception, MethodTitle As String, Optional MoreInfo As String = "")
|
||||
Dim oMessage As String
|
||||
Dim oMoreInfo As String = IIf(MoreInfo = "", "", "(" & MoreInfo & ")")
|
||||
@ -1560,7 +1569,16 @@ Public Class frmIndex
|
||||
checkItemPreselection.Checked = True
|
||||
|
||||
If CURRENT_LASTDOKART <> "" Then
|
||||
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
|
||||
Dim oFoundDocType = ComboBoxEdit1.Properties.Items.
|
||||
Cast(Of DocType)().
|
||||
Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
|
||||
FirstOrDefault()
|
||||
|
||||
If oFoundDocType IsNot Nothing Then
|
||||
ComboBoxEdit1.SelectedItem = oFoundDocType
|
||||
End If
|
||||
|
||||
'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
|
||||
End If
|
||||
Else
|
||||
If DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
|
||||
@ -1570,7 +1588,17 @@ Public Class frmIndex
|
||||
|
||||
_Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
|
||||
_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 = ComboBoxEdit1.Properties.Items.
|
||||
Cast(Of DocType)().
|
||||
Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
|
||||
FirstOrDefault()
|
||||
|
||||
If oFoundDocType IsNot Nothing Then
|
||||
ComboBoxEdit1.SelectedItem = oFoundDocType
|
||||
End If
|
||||
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
@ -1585,39 +1613,71 @@ Public Class frmIndex
|
||||
Dim sql = String.Format("SELECT DISTINCT DOCTYPE_ID, DOCTYPE, SEQUENCE FROM VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName)
|
||||
_Logger.Info("SQL DoctypeList: " & sql)
|
||||
Dim oDoctypes = ClassDatabase.Return_Datatable(sql)
|
||||
cmbDokumentart.DataSource = oDoctypes
|
||||
cmbDokumentart.ValueMember = oDoctypes.Columns("DOCTYPE_ID").ColumnName
|
||||
cmbDokumentart.DisplayMember = oDoctypes.Columns("DOCTYPE").ColumnName
|
||||
cmbDokumentart.AutoCompleteMode = AutoCompleteMode.Suggest
|
||||
cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
|
||||
cmbDokumentart.SelectedIndex = -1
|
||||
'cmbDokumentart.DataSource = oDoctypes
|
||||
'cmbDokumentart.ValueMember = oDoctypes.Columns("DOCTYPE_ID").ColumnName
|
||||
'cmbDokumentart.DisplayMember = oDoctypes.Columns("DOCTYPE").ColumnName
|
||||
'cmbDokumentart.AutoCompleteMode = AutoCompleteMode.Suggest
|
||||
'cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
|
||||
'cmbDokumentart.SelectedIndex = -1
|
||||
|
||||
For Each oRow As DataRow In oDoctypes.Rows
|
||||
ComboBoxEdit1.Properties.Items.Add(New DocType With {
|
||||
.Guid = oRow.Item("DOCTYPE_ID"),
|
||||
.Name = oRow.Item("DOCTYPE")
|
||||
})
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex, "Refresh_Dokart")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDokumentart.SelectedIndexChanged
|
||||
If cmbDokumentart.SelectedIndex <> -1 And FormLoaded = True Then
|
||||
If cmbDokumentart.SelectedValue.GetType.ToString = "System.Int32" Then
|
||||
CURRENT_DOKART_ID = cmbDokumentart.SelectedValue
|
||||
|
||||
'lblhinweis.Visible = False
|
||||
ClearNotice()
|
||||
Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxEdit1.SelectedIndexChanged
|
||||
If ComboBoxEdit1.SelectedIndex <> -1 And FormLoaded = True Then
|
||||
Dim oSelectedItem As DocType = ComboBoxEdit1.SelectedItem
|
||||
|
||||
'lblerror.Visible = False
|
||||
ClearError()
|
||||
CURRENT_DOKART_ID = oSelectedItem.Guid
|
||||
|
||||
'lblhinweis.Visible = False
|
||||
ClearNotice()
|
||||
|
||||
Me.pnlIndex.Controls.Clear()
|
||||
Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
|
||||
Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
'lblerror.Visible = False
|
||||
ClearError()
|
||||
|
||||
pnlIndex.Controls.Clear()
|
||||
Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & oSelectedItem.Guid
|
||||
Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
|
||||
WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
|
||||
CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
|
||||
Refresh_IndexeMan(oSelectedItem.Guid)
|
||||
|
||||
WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
|
||||
CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
|
||||
Refresh_IndexeMan(cmbDokumentart.SelectedValue)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
|
||||
' If cmbDokumentart.SelectedIndex <> -1 And FormLoaded = True Then
|
||||
' If cmbDokumentart.SelectedValue.GetType.ToString = "System.Int32" Then
|
||||
' CURRENT_DOKART_ID = cmbDokumentart.SelectedValue
|
||||
|
||||
' 'lblhinweis.Visible = False
|
||||
' ClearNotice()
|
||||
|
||||
' 'lblerror.Visible = False
|
||||
' ClearError()
|
||||
|
||||
|
||||
' Me.pnlIndex.Controls.Clear()
|
||||
' Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
|
||||
' Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
|
||||
' WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
|
||||
' CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
|
||||
' Refresh_IndexeMan(cmbDokumentart.SelectedValue)
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
' <STAThread()> _
|
||||
Private Sub Refresh_IndexeMan(dokartid As Integer)
|
||||
Dim sql
|
||||
@ -1656,11 +1716,20 @@ Public Class frmIndex
|
||||
Dim oControlCount As Integer = 1
|
||||
Dim oLabelPosition As Integer = 11
|
||||
Dim oControlPosition As Integer = 33
|
||||
Dim oControls As New ClassControls(pnlIndex, Me)
|
||||
|
||||
Dim oControls As New DigitalData.GUIs.GlobalIndexer.ControlCreator(LOGCONFIG, pnlIndex, Me) With {
|
||||
.OnControlChanged = AddressOf PrepareDependingControl,
|
||||
.OnLookupData = AddressOf GetLookupData
|
||||
}
|
||||
|
||||
'Dim oControls As New ClassControls(pnlIndex, Me)
|
||||
|
||||
If DT_INDEXEMAN.Rows.Count = 0 Then
|
||||
ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
|
||||
_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
|
||||
' ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
|
||||
'_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
|
||||
|
||||
ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboBoxEdit1.Text & " definiert")
|
||||
_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboBoxEdit1.Text & " definiert")
|
||||
End If
|
||||
|
||||
For Each oRow As DataRow In DT_INDEXEMAN.Rows
|
||||
@ -1671,6 +1740,7 @@ Public Class frmIndex
|
||||
Dim oControlName As String = oRow.Item("NAME")
|
||||
Dim oConnectionId = NotNull(oRow.Item("CONNECTION_ID"), 0)
|
||||
Dim oSQLSuggestion = oRow.Item("SUGGESTION")
|
||||
Dim oSQLResult = oRow.Item("SQL_RESULT")
|
||||
|
||||
If oDataType <> "BOOLEAN" Then
|
||||
addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount)
|
||||
@ -1687,8 +1757,8 @@ Public Class frmIndex
|
||||
pnlIndex.Controls.Add(chk)
|
||||
End If
|
||||
Case "INTEGER"
|
||||
If (oSQLSuggestion = True And oRow.Item("SQL_RESULT").ToString.Length > 0) Or MultiSelect = True Then
|
||||
Dim oControl = oControls.AddVorschlag_ComboBox(oControlName, oControlPosition, oConnectionId, oRow.Item("SQL_RESULT"), MultiSelect, oDataType, DefaultValue, AddNewItems, PreventDuplicates, oSQLSuggestion)
|
||||
If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
|
||||
Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
|
||||
If Not IsNothing(oControl) Then
|
||||
pnlIndex.Controls.Add(oControl)
|
||||
End If
|
||||
@ -1700,8 +1770,8 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
Case "VARCHAR"
|
||||
If (oSQLSuggestion = True And oRow.Item("SQL_RESULT").ToString.Length > 0) Or MultiSelect = True Then
|
||||
Dim oControl = oControls.AddVorschlag_ComboBox(oControlName, oControlPosition, oConnectionId, oRow.Item("SQL_RESULT"), MultiSelect, oDataType, DefaultValue, AddNewItems, PreventDuplicates, oSQLSuggestion)
|
||||
If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
|
||||
Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
|
||||
If Not IsNothing(oControl) Then
|
||||
pnlIndex.Controls.Add(oControl)
|
||||
End If
|
||||
@ -1720,7 +1790,7 @@ Public Class frmIndex
|
||||
End If
|
||||
End If
|
||||
Case "DATE"
|
||||
Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, oDataType, DefaultValue)
|
||||
Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, DefaultValue)
|
||||
pnlIndex.Controls.Add(oPicker)
|
||||
|
||||
Case Else
|
||||
@ -1753,6 +1823,123 @@ Public Class frmIndex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function GetLookupData(pLookup As LookupControl2, pSQLCommand As String, pConnectionId As Integer)
|
||||
Dim oConnectionString = ClassFormFunctions.GetConnectionString(pConnectionId)
|
||||
|
||||
If oConnectionString IsNot Nothing And pSQLCommand.Length > 0 Then
|
||||
LOGGER.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
|
||||
|
||||
If ClassPatterns.HasComplexPatterns(pSQLCommand) Then
|
||||
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
|
||||
Return Nothing
|
||||
Else
|
||||
pSQLCommand = ClassPatterns.ReplaceInternalValues(pSQLCommand)
|
||||
pSQLCommand = ClassPatterns.ReplaceUserValues(pSQLCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
|
||||
|
||||
Dim oDatatable = ClassDatabase.Return_Datatable_Combined(pSQLCommand, oConnectionString, False)
|
||||
Return oDatatable
|
||||
End If
|
||||
Else
|
||||
LOGGER.Warn("Connection String for control [{0}] is empty!", pLookup.Name)
|
||||
Return Nothing
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Sub PrepareDependingControl(Control As Control)
|
||||
If TypeOf Control Is Label Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Try
|
||||
Dim oMeta = DirectCast(Control.Tag, ClassControls.ControlMeta)
|
||||
Dim oIndexName As String = oMeta.IndexName
|
||||
Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE SQL_RESULT LIKE '%{oIndexName}%'"
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
|
||||
|
||||
If Not IsNothing(oDatatable) Then
|
||||
LOGGER.Debug("Found [{0}] depending controls for [{1}]", oDatatable.Rows.Count, Control.Name)
|
||||
|
||||
For Each oRow As DataRow In oDatatable.Rows
|
||||
Dim oControlName As String = NotNull(oRow.Item("NAME"), "")
|
||||
Dim oConnectionId As Integer = NotNull(oRow.Item("CONNECTION_ID"), -1)
|
||||
Dim oControlSql As String = NotNull(oRow.Item("SQL_RESULT"), "")
|
||||
|
||||
If oConnectionId = -1 Or oControlSql = String.Empty Then
|
||||
LOGGER.Warn("Missing SQL Query or ConnectionId for Control [{0}]! Continuing.", oControlName)
|
||||
Continue For
|
||||
End If
|
||||
|
||||
oControlSql = ClassPatterns.ReplaceUserValues(oControlSql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
|
||||
oControlSql = ClassPatterns.ReplaceInternalValues(oControlSql)
|
||||
oControlSql = ClassPatterns.ReplaceControlValues(oControlSql, pnlIndex)
|
||||
LOGGER.Debug("Setting new value for [{0}]", oControlName)
|
||||
SetDependingControlResult(oControlName, oControlSql, oConnectionId)
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub SetDependingControlResult(IndexName As String, SqlCommand As String, SqlConnectionId As Integer)
|
||||
Try
|
||||
If SqlCommand Is Nothing OrElse SqlCommand = String.Empty Then
|
||||
LOGGER.Warn("New Value for Index [{0}] could not be set. Supplied SQL is empty.")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oConnectionString = ClassFormFunctions.GetConnectionString(SqlConnectionId)
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SqlCommand, oConnectionString)
|
||||
Dim oFoundControl As Control = Nothing
|
||||
|
||||
For Each oControl As Control In pnlIndex.Controls
|
||||
If TypeOf oControl Is Label Then
|
||||
Continue For
|
||||
End If
|
||||
|
||||
Dim oMeta = DirectCast(oControl.Tag, ClassControls.ControlMeta)
|
||||
Dim oIndex As String = oMeta.IndexName
|
||||
|
||||
If oIndex = IndexName Then
|
||||
oFoundControl = oControl
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If oFoundControl Is Nothing Then
|
||||
LOGGER.Warn("Depending Control for Index [{0}] not found!", IndexName)
|
||||
End If
|
||||
|
||||
If oDatatable Is Nothing Then
|
||||
LOGGER.Warn("Error in SQL Command: {0}", SqlCommand)
|
||||
End If
|
||||
|
||||
Select Case oFoundControl.GetType.Name
|
||||
Case GetType(DevExpress.XtraEditors.TextEdit).Name
|
||||
If oDatatable.Rows.Count > 0 Then
|
||||
Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
|
||||
|
||||
If oFirstRow.ItemArray.Length > 0 Then
|
||||
Dim oValue = oFirstRow.Item(0).ToString()
|
||||
|
||||
LOGGER.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue)
|
||||
DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
|
||||
End If
|
||||
End If
|
||||
Case GetType(LookupControl2).Name
|
||||
LOGGER.Debug("Setting Value for LookupControl [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
|
||||
DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
|
||||
Case GetType(ComboBox).Name
|
||||
LOGGER.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
|
||||
DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
|
||||
Case Else
|
||||
LOGGER.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name)
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Function GetPlaceholderValue(InputValue As String, FileName As String, UserShortName As String) As String
|
||||
Dim oResult As String
|
||||
|
||||
@ -1959,11 +2146,13 @@ Public Class frmIndex
|
||||
_Logger.Debug("Manuelle Indexe geladen")
|
||||
|
||||
If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then
|
||||
CURRENT_DOKART_ID = Me.cmbDokumentart.SelectedValue
|
||||
If CheckWrite_IndexeMan(Me.cmbDokumentart.SelectedValue) = True Then
|
||||
Dim oDokart As DocType = ComboBoxEdit1.SelectedItem
|
||||
|
||||
CURRENT_DOKART_ID = oDokart.Guid
|
||||
If CheckWrite_IndexeMan(oDokart.Guid) = True Then
|
||||
'##### Manuelle Indexe indexiert #####
|
||||
_Logger.Info("Datei [" & CURRENT_WORKFILE & "] wird nun indexiert...")
|
||||
If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then
|
||||
If FillIndexe_Autom(oDokart.Guid) = True Then
|
||||
_Logger.Debug(" ...FillIndexe_Autom durchlaufen")
|
||||
|
||||
'Den Zielnamen zusammenbauen
|
||||
@ -1976,7 +2165,7 @@ Public Class frmIndex
|
||||
'Die Datei verschieben
|
||||
If Move_File2_Target() = True Then
|
||||
_Logger.Debug(" ...Move_File2_Target durchlaufen")
|
||||
CURRENT_LASTDOKART = cmbDokumentart.Text
|
||||
CURRENT_LASTDOKART = oDokart.Name
|
||||
_Logger.Info("Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.")
|
||||
Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID
|
||||
ClassDatabase.Execute_non_Query(oDEL, True)
|
||||
@ -2513,4 +2702,6 @@ Public Class frmIndex
|
||||
CONFIG.Config.ProfilePreselection = checkItemPreselection.Checked
|
||||
CONFIG.Save()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
1
Global_Indexer/frmStart.Designer.vb
generated
1
Global_Indexer/frmStart.Designer.vb
generated
@ -132,6 +132,7 @@ Partial Class frmStart
|
||||
Me.LabelControl1.ImageAlignToText = DevExpress.XtraEditors.ImageAlignToText.LeftCenter
|
||||
Me.LabelControl1.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.LabelControl1.ImageOptions.SvgImage = Global.Global_Indexer.My.Resources.Resources.trackingchanges_next
|
||||
Me.LabelControl1.IndentBetweenImageAndText = 10
|
||||
Me.LabelControl1.Name = "LabelControl1"
|
||||
'
|
||||
'OpenFileDialog1
|
||||
|
||||
@ -121,6 +121,37 @@
|
||||
<value>400, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>294, 24</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>5</value>
|
||||
</data>
|
||||
<data name="MenuStrip1.Text" xml:space="preserve">
|
||||
<value>MenuStrip1</value>
|
||||
</data>
|
||||
<data name=">>MenuStrip1.Name" xml:space="preserve">
|
||||
<value>MenuStrip1</value>
|
||||
</data>
|
||||
<data name=">>MenuStrip1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>MenuStrip1.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>MenuStrip1.ZOrder" xml:space="preserve">
|
||||
<value>3</value>
|
||||
</data>
|
||||
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>108, 20</value>
|
||||
</data>
|
||||
<data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Konfiguration</value>
|
||||
</data>
|
||||
<data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>221, 22</value>
|
||||
</data>
|
||||
@ -148,49 +179,9 @@
|
||||
<data name="InfoToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Info</value>
|
||||
</data>
|
||||
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>108, 20</value>
|
||||
</data>
|
||||
<data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Konfiguration</value>
|
||||
</data>
|
||||
<data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>294, 24</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>5</value>
|
||||
</data>
|
||||
<data name="MenuStrip1.Text" xml:space="preserve">
|
||||
<value>MenuStrip1</value>
|
||||
</data>
|
||||
<data name=">>MenuStrip1.Name" xml:space="preserve">
|
||||
<value>MenuStrip1</value>
|
||||
</data>
|
||||
<data name=">>MenuStrip1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>MenuStrip1.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>MenuStrip1.ZOrder" xml:space="preserve">
|
||||
<value>3</value>
|
||||
</data>
|
||||
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>515, 17</value>
|
||||
</metadata>
|
||||
<data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>133, 17</value>
|
||||
</data>
|
||||
<data name="tslblFW.Text" xml:space="preserve">
|
||||
<value>FolderWatch ist aktiv</value>
|
||||
</data>
|
||||
<data name="tslblFW.Visible" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 139</value>
|
||||
</data>
|
||||
@ -215,6 +206,15 @@
|
||||
<data name=">>StatusStrip1.ZOrder" xml:space="preserve">
|
||||
<value>2</value>
|
||||
</data>
|
||||
<data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>133, 17</value>
|
||||
</data>
|
||||
<data name="tslblFW.Text" xml:space="preserve">
|
||||
<value>FolderWatch ist aktiv</value>
|
||||
</data>
|
||||
<data name="tslblFW.Visible" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<metadata name="TimerFolderWatch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1072, 17</value>
|
||||
</metadata>
|
||||
@ -518,7 +518,7 @@
|
||||
<value>132, 56</value>
|
||||
</metadata>
|
||||
<data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 12pt</value>
|
||||
<value>Segoe UI, 11.25pt</value>
|
||||
</data>
|
||||
<assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="LabelControl1.AutoSizeMode" type="DevExpress.XtraEditors.LabelAutoSizeMode, DevExpress.XtraEditors.v19.2">
|
||||
@ -532,10 +532,10 @@
|
||||
<value>0, 24</value>
|
||||
</data>
|
||||
<data name="LabelControl1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
|
||||
<value>15, 10, 15, 10</value>
|
||||
<value>5, 10, 5, 10</value>
|
||||
</data>
|
||||
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>294, 62</value>
|
||||
<value>294, 60</value>
|
||||
</data>
|
||||
<data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>8</value>
|
||||
@ -592,10 +592,10 @@
|
||||
<value>NoControl</value>
|
||||
</data>
|
||||
<data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 86</value>
|
||||
<value>0, 84</value>
|
||||
</data>
|
||||
<data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>294, 53</value>
|
||||
<value>294, 55</value>
|
||||
</data>
|
||||
<data name="btnChoosefiles.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>9</value>
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user