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

deprecate My.Settings

Browse Source
This commit is contained in:
Jonathan Jenne 2020-03-09 13:42:56 +01:00
parent 09562f9476
commit ff276bb70f
15 changed files with 2478 additions and 3228 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Global_Indexer/App.config
View File

@ -1,12 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
</sectionGroup>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
@ -16,39 +10,4 @@
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
</startup> </startup>
<userSettings>
<Global_Indexer.My.MySettings>
<setting name="SplitterDistance_Viewer" serializeAs="String">
<value>526</value>
</setting>
<setting name="WDSearch_maximized" serializeAs="String">
<value>True</value>
</setting>
<setting name="Show_IndexResult" serializeAs="String">
<value>True</value>
</setting>
<setting name="DoNot_Show_Documents" serializeAs="String">
<value>False</value>
</setting>
<setting name="AppTerminate" serializeAs="String">
<value>False</value>
</setting>
<setting name="DA_Vorauswahlaktiv" serializeAs="String">
<value>False</value>
</setting>
<setting name="REGEX_Replace" serializeAs="String">
<value />
</setting>
<setting name="FilenameTest" serializeAs="String">
<value>myFilename.pdf</value>
</setting>
</Global_Indexer.My.MySettings>
</userSettings>
<applicationSettings>
<Global_Indexer.My.MySettings>
<setting name="Test" serializeAs="String">
<value>DigitalData\windream_CLIENT_WMCC_Neustart</value>
</setting>
</Global_Indexer.My.MySettings>
</applicationSettings>
</configuration> </configuration>

8
Global_Indexer/ClassConfig.vb
View File

@ -8,10 +8,14 @@ Public Class ClassConfig
Public Property FolderWatchStarted As Boolean = False Public Property FolderWatchStarted As Boolean = False
Public Property FolderWatchScanStarted As Boolean = False Public Property FolderWatchScanStarted As Boolean = False
' PDF Viewer Settings ' Index Form Settings
Public Property FilePreview As Boolean = True Public Property FilePreview As Boolean = True
Public Property SplitterDistanceViewer As Integer = 500
Public Property ProfilePreselection As Boolean = False
Public Property ShowIndexResult As Boolean = True
Public Property DeleteOriginalFile As Boolean = False
' Misc Settings ' Misc Settings
Public Property DeleteOriginalFile As Boolean = False
Public Property LogErrorsOnly As Boolean = True Public Property LogErrorsOnly As Boolean = True
Public Property WindreamSearchMaximized As Boolean = False
End Class End Class

2
Global_Indexer/ClassEmail.vb
View File

@ -39,7 +39,7 @@ Public Class ClassEmail
'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen 'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
Dim emailClient As New SmtpClient(emailsmtp) Dim emailClient As New SmtpClient(emailsmtp)
'Email mit Authentifizierung 'Email mit Authentifizierung
Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain) Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw)
emailClient.UseDefaultCredentials = False emailClient.UseDefaultCredentials = False
emailClient.Credentials = SMTPUserInfo emailClient.Credentials = SMTPUserInfo
emailClient.Port = 25 emailClient.Port = 25

5
Global_Indexer/ClassHotkey_Windream.vb
View File

@ -270,7 +270,8 @@ Public Class ClassHotkey_Windream
Dim myhWnd As IntPtr Dim myhWnd As IntPtr
Dim p As New Process() Dim p As New Process()
p.StartInfo.FileName = windream_temp_search p.StartInfo.FileName = windream_temp_search
If My.Settings.WDSearch_maximized = True Then
If CONFIG.Config.WindreamSearchMaximized Then
p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
Else Else
p.StartInfo.WindowStyle = ProcessWindowStyle.Normal p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
@ -300,7 +301,7 @@ Public Class ClassHotkey_Windream
Console.WriteLine(p.Id.ToString() + " " + p.ProcessName) Console.WriteLine(p.Id.ToString() + " " + p.ProcessName)
If p.ProcessName.Contains("indream.Find") Then If p.ProcessName.Contains("indream.Find") Then
AppActivate(p.Id) AppActivate(p.Id)
If My.Settings.WDSearch_maximized = False Then If CONFIG.Config.WindreamSearchMaximized = False Then
Dim rctMain As RECT Dim rctMain As RECT
GetWindowRect(p.MainWindowHandle, rctMain) GetWindowRect(p.MainWindowHandle, rctMain)
If rctMain.Left = 0 Or rctMain.Right = 0 Then If rctMain.Left = 0 Or rctMain.Right = 0 Then

110
Global_Indexer/My Project/Settings.Designer.vb generated
View File

@ -64,116 +64,6 @@ Namespace My
Return CType(Me("DD_ECMConnectionString"),String) Return CType(Me("DD_ECMConnectionString"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("526"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property SplitterDistance_Viewer() As Integer
Get
Return CType(Me("SplitterDistance_Viewer"),Integer)
End Get
Set
Me("SplitterDistance_Viewer") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WDSearch_maximized() As Boolean
Get
Return CType(Me("WDSearch_maximized"),Boolean)
End Get
Set
Me("WDSearch_maximized") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property Show_IndexResult() As Boolean
Get
Return CType(Me("Show_IndexResult"),Boolean)
End Get
Set
Me("Show_IndexResult") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property DoNot_Show_Documents() As Boolean
Get
Return CType(Me("DoNot_Show_Documents"),Boolean)
End Get
Set
Me("DoNot_Show_Documents") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("DigitalData\windream_CLIENT_WMCC_Neustart")> _
Public ReadOnly Property Test() As String
Get
Return CType(Me("Test"),String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property AppTerminate() As Boolean
Get
Return CType(Me("AppTerminate"),Boolean)
End Get
Set
Me("AppTerminate") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property DA_Vorauswahlaktiv() As Boolean
Get
Return CType(Me("DA_Vorauswahlaktiv"),Boolean)
End Get
Set
Me("DA_Vorauswahlaktiv") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property REGEX_Replace() As String
Get
Return CType(Me("REGEX_Replace"),String)
End Get
Set
Me("REGEX_Replace") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("myFilename.pdf")> _
Public Property FilenameTest() As String
Get
Return CType(Me("FilenameTest"),String)
End Get
Set
Me("FilenameTest") = value
End Set
End Property
End Class End Class
End Namespace End Namespace

27
Global_Indexer/My Project/Settings.settings
View File

@ -10,32 +10,5 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue> &lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value> <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting> </Setting>
<Setting Name="SplitterDistance_Viewer" Roaming="true" Type="System.Int32" Scope="User">
<Value Profile="(Default)">526</Value>
</Setting>
<Setting Name="WDSearch_maximized" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="Show_IndexResult" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="DoNot_Show_Documents" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Test" Type="System.String" Scope="Application">
<Value Profile="(Default)">DigitalData\windream_CLIENT_WMCC_Neustart</Value>
</Setting>
<Setting Name="AppTerminate" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="DA_Vorauswahlaktiv" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="REGEX_Replace" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="FilenameTest" Type="System.String" Scope="User">
<Value Profile="(Default)">myFilename.pdf</Value>
</Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

63
Global_Indexer/frmAdministration.Designer.vb generated
View File

@ -200,13 +200,14 @@ Partial Class frmAdministration
Me.COMMENTTextBox2 = New System.Windows.Forms.TextBox() Me.COMMENTTextBox2 = New System.Windows.Forms.TextBox()
Me.GUIDTextBox4 = New System.Windows.Forms.TextBox() Me.GUIDTextBox4 = New System.Windows.Forms.TextBox()
Me.XtraTabPageAutoIndex = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPageAutoIndex = New DevExpress.XtraTab.XtraTabPage()
Me.Label6 = New System.Windows.Forms.Label()
Me.ListBoxControl4 = New DevExpress.XtraEditors.ListBoxControl()
Me.btnAddWindowsVariable = New System.Windows.Forms.Button() Me.btnAddWindowsVariable = New System.Windows.Forms.Button()
Me.lblWindowParameter = New System.Windows.Forms.Label() Me.lblWindowParameter = New System.Windows.Forms.Label()
Me.lbFileparameter = New System.Windows.Forms.ListBox() Me.lbFileparameter = New System.Windows.Forms.ListBox()
Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.lblValue = New System.Windows.Forms.Label() Me.lblValue = New System.Windows.Forms.Label()
Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox() Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label() Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.btnSQLViewAuto = New System.Windows.Forms.Button() Me.btnSQLViewAuto = New System.Windows.Forms.Button()
Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox() Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox()
Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox() Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox()
@ -253,7 +254,6 @@ Partial Class frmAdministration
Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox() Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label24 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label()
Me.Label23 = New System.Windows.Forms.Label() Me.Label23 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label()
@ -265,7 +265,6 @@ Partial Class frmAdministration
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.lblObjekttyp = New System.Windows.Forms.Label() Me.lblObjekttyp = New System.Windows.Forms.Label()
Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox() Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox() Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox()
Me.btnNamenkonvention = New System.Windows.Forms.Button() Me.btnNamenkonvention = New System.Windows.Forms.Button()
@ -318,7 +317,6 @@ Partial Class frmAdministration
Me.TBGI_REGEX_DOCTYPETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter() Me.TBGI_REGEX_DOCTYPETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPage8 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage8 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.ListBoxControl4 = New DevExpress.XtraEditors.ListBoxControl()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label()
@ -404,6 +402,7 @@ Partial Class frmAdministration
CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageAutoIndex.SuspendLayout() Me.XtraTabPageAutoIndex.SuspendLayout()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageFolderPath.SuspendLayout() Me.XtraTabPageFolderPath.SuspendLayout()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
@ -428,7 +427,6 @@ Partial Class frmAdministration
CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -968,7 +966,6 @@ Partial Class frmAdministration
Me.SplitContainerControl3.Panel2.Controls.Add(Me.ERSTELLTWANNTextBox) Me.SplitContainerControl3.Panel2.Controls.Add(Me.ERSTELLTWANNTextBox)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label4) Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label4)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label5) Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label5)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label2)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label24) Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label24)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label23) Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label23)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label22) Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label22)
@ -980,7 +977,6 @@ Partial Class frmAdministration
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label1) Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label1)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.lblObjekttyp) Me.SplitContainerControl3.Panel2.Controls.Add(Me.lblObjekttyp)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.ERSTELLTWERTextBox) Me.SplitContainerControl3.Panel2.Controls.Add(Me.ERSTELLTWERTextBox)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.ComboBox1)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.AKTIVCheckBox) Me.SplitContainerControl3.Panel2.Controls.Add(Me.AKTIVCheckBox)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.btnNamenkonvention) Me.SplitContainerControl3.Panel2.Controls.Add(Me.btnNamenkonvention)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.BESCHREIBUNGTextBox) Me.SplitContainerControl3.Panel2.Controls.Add(Me.BESCHREIBUNGTextBox)
@ -1565,6 +1561,18 @@ Partial Class frmAdministration
Me.XtraTabPageAutoIndex.Controls.Add(Me.INDEXNAME_AutoIndexTXT) Me.XtraTabPageAutoIndex.Controls.Add(Me.INDEXNAME_AutoIndexTXT)
Me.XtraTabPageAutoIndex.Name = "XtraTabPageAutoIndex" Me.XtraTabPageAutoIndex.Name = "XtraTabPageAutoIndex"
' '
'Label6
'
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
'
'ListBoxControl4
'
Me.ListBoxControl4.AppearanceSelected.BackColor = System.Drawing.Color.Khaki
Me.ListBoxControl4.AppearanceSelected.Options.UseBackColor = True
resources.ApplyResources(Me.ListBoxControl4, "ListBoxControl4")
Me.ListBoxControl4.Name = "ListBoxControl4"
'
'btnAddWindowsVariable 'btnAddWindowsVariable
' '
Me.btnAddWindowsVariable.Image = Global.Global_Indexer.My.Resources.Resources.arrow_previous_16xLG Me.btnAddWindowsVariable.Image = Global.Global_Indexer.My.Resources.Resources.arrow_previous_16xLG
@ -1584,11 +1592,6 @@ Partial Class frmAdministration
Me.lbFileparameter.Items.AddRange(New Object() {resources.GetString("lbFileparameter.Items"), resources.GetString("lbFileparameter.Items1"), resources.GetString("lbFileparameter.Items2"), resources.GetString("lbFileparameter.Items3"), resources.GetString("lbFileparameter.Items4"), resources.GetString("lbFileparameter.Items5"), resources.GetString("lbFileparameter.Items6"), resources.GetString("lbFileparameter.Items7")}) Me.lbFileparameter.Items.AddRange(New Object() {resources.GetString("lbFileparameter.Items"), resources.GetString("lbFileparameter.Items1"), resources.GetString("lbFileparameter.Items2"), resources.GetString("lbFileparameter.Items3"), resources.GetString("lbFileparameter.Items4"), resources.GetString("lbFileparameter.Items5"), resources.GetString("lbFileparameter.Items6"), resources.GetString("lbFileparameter.Items7")})
Me.lbFileparameter.Name = "lbFileparameter" Me.lbFileparameter.Name = "lbFileparameter"
' '
'TBDD_INDEX_AUTOMBindingSource
'
Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
'
'lblValue 'lblValue
' '
resources.ApplyResources(Me.lblValue, "lblValue") resources.ApplyResources(Me.lblValue, "lblValue")
@ -1601,10 +1604,10 @@ Partial Class frmAdministration
Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True
Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB" Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB"
' '
'Label6 'TBDD_INDEX_AUTOMBindingSource
' '
resources.ApplyResources(Me.Label6, "Label6") Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
Me.Label6.Name = "Label6" Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
' '
'btnSQLViewAuto 'btnSQLViewAuto
' '
@ -1836,10 +1839,8 @@ Partial Class frmAdministration
' '
'TextBox1 'TextBox1
' '
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Global_Indexer.My.MySettings.Default, "FilenameTest", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
resources.ApplyResources(Me.TextBox1, "TextBox1") resources.ApplyResources(Me.TextBox1, "TextBox1")
Me.TextBox1.Name = "TextBox1" Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Text = Global.Global_Indexer.My.MySettings.Default.FilenameTest
' '
'Label27 'Label27
' '
@ -1986,11 +1987,6 @@ Partial Class frmAdministration
resources.ApplyResources(Me.Label5, "Label5") resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
' '
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'Label24 'Label24
' '
resources.ApplyResources(Me.Label24, "Label24") resources.ApplyResources(Me.Label24, "Label24")
@ -2048,16 +2044,6 @@ Partial Class frmAdministration
Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox" Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox"
Me.ERSTELLTWERTextBox.ReadOnly = True Me.ERSTELLTWERTextBox.ReadOnly = True
' '
'ComboBox1
'
Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "EINGANGSART_ID", True))
Me.ComboBox1.DataSource = Me.TBDD_EINGANGSARTENBindingSource
Me.ComboBox1.DisplayMember = "BEZEICHNUNG"
Me.ComboBox1.FormattingEnabled = True
resources.ApplyResources(Me.ComboBox1, "ComboBox1")
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.ValueMember = "GUID"
'
'TBDD_EINGANGSARTENBindingSource 'TBDD_EINGANGSARTENBindingSource
' '
Me.TBDD_EINGANGSARTENBindingSource.DataMember = "TBDD_EINGANGSARTEN" Me.TBDD_EINGANGSARTENBindingSource.DataMember = "TBDD_EINGANGSARTEN"
@ -2521,13 +2507,6 @@ Partial Class frmAdministration
Me.RibbonPage8.Name = "RibbonPage8" Me.RibbonPage8.Name = "RibbonPage8"
resources.ApplyResources(Me.RibbonPage8, "RibbonPage8") resources.ApplyResources(Me.RibbonPage8, "RibbonPage8")
' '
'ListBoxControl4
'
Me.ListBoxControl4.AppearanceSelected.BackColor = System.Drawing.Color.Khaki
Me.ListBoxControl4.AppearanceSelected.Options.UseBackColor = True
resources.ApplyResources(Me.ListBoxControl4, "ListBoxControl4")
Me.ListBoxControl4.Name = "ListBoxControl4"
'
'frmAdministration 'frmAdministration
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
@ -2571,6 +2550,7 @@ Partial Class frmAdministration
CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageAutoIndex.ResumeLayout(False) Me.XtraTabPageAutoIndex.ResumeLayout(False)
Me.XtraTabPageAutoIndex.PerformLayout() Me.XtraTabPageAutoIndex.PerformLayout()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageFolderPath.ResumeLayout(False) Me.XtraTabPageFolderPath.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False)
@ -2600,7 +2580,6 @@ Partial Class frmAdministration
CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -2632,7 +2611,6 @@ Partial Class frmAdministration
Friend WithEvents TBDD_DOKART_MODULETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_DOKART_MODULETableAdapter Friend WithEvents TBDD_DOKART_MODULETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_DOKART_MODULETableAdapter
Friend WithEvents TBDD_MODULESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_MODULESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_MODULESTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_MODULESTableAdapter Friend WithEvents TBDD_MODULESTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_MODULESTableAdapter
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageManualIndex As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPageManualIndex As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageAutoIndex As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPageAutoIndex As DevExpress.XtraTab.XtraTabPage
@ -2793,7 +2771,6 @@ Partial Class frmAdministration
Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents Label4 As Label Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label24 As Label Friend WithEvents Label24 As Label
Friend WithEvents Label23 As Label Friend WithEvents Label23 As Label
Friend WithEvents Label22 As Label Friend WithEvents Label22 As Label

5322
Global_Indexer/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

21
Global_Indexer/frmConfig_Basic.designer.vb generated
View File

@ -44,7 +44,7 @@ Partial Class frmConfig_Basic
Me.cmbLanguage = New System.Windows.Forms.ComboBox() Me.cmbLanguage = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.CheckBoxPreviewDocs = New System.Windows.Forms.CheckBox() Me.CheckBoxPreviewDocs = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.CheckBoxIndexResult = New System.Windows.Forms.CheckBox()
Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox() Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
Me.btnLogMail = New System.Windows.Forms.Button() Me.btnLogMail = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button() Me.btnApplicationFolder = New System.Windows.Forms.Button()
@ -175,7 +175,7 @@ Partial Class frmConfig_Basic
Me.TabPage2.Controls.Add(Me.cmbLanguage) Me.TabPage2.Controls.Add(Me.cmbLanguage)
Me.TabPage2.Controls.Add(Me.Label9) Me.TabPage2.Controls.Add(Me.Label9)
Me.TabPage2.Controls.Add(Me.CheckBoxPreviewDocs) Me.TabPage2.Controls.Add(Me.CheckBoxPreviewDocs)
Me.TabPage2.Controls.Add(Me.CheckBox2) Me.TabPage2.Controls.Add(Me.CheckBoxIndexResult)
Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly) Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly)
Me.TabPage2.Controls.Add(Me.btnLogMail) Me.TabPage2.Controls.Add(Me.btnLogMail)
Me.TabPage2.Controls.Add(Me.btnApplicationFolder) Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
@ -211,19 +211,16 @@ Partial Class frmConfig_Basic
'CheckBoxPreviewDocs 'CheckBoxPreviewDocs
' '
resources.ApplyResources(Me.CheckBoxPreviewDocs, "CheckBoxPreviewDocs") resources.ApplyResources(Me.CheckBoxPreviewDocs, "CheckBoxPreviewDocs")
Me.CheckBoxPreviewDocs.Checked = Global.Global_Indexer.My.MySettings.Default.DoNot_Show_Documents
Me.CheckBoxPreviewDocs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "DoNot_Show_Documents", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.CheckBoxPreviewDocs.Name = "CheckBoxPreviewDocs" Me.CheckBoxPreviewDocs.Name = "CheckBoxPreviewDocs"
Me.CheckBoxPreviewDocs.UseVisualStyleBackColor = True Me.CheckBoxPreviewDocs.UseVisualStyleBackColor = True
' '
'CheckBox2 'CheckBoxIndexResult
' '
resources.ApplyResources(Me.CheckBox2, "CheckBox2") resources.ApplyResources(Me.CheckBoxIndexResult, "CheckBoxIndexResult")
Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult Me.CheckBoxIndexResult.Checked = True
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBoxIndexResult.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "Show_IndexResult", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.CheckBoxIndexResult.Name = "CheckBoxIndexResult"
Me.CheckBox2.Name = "CheckBox2" Me.CheckBoxIndexResult.UseVisualStyleBackColor = True
Me.CheckBox2.UseVisualStyleBackColor = True
' '
'chkLogErrorsOnly 'chkLogErrorsOnly
' '
@ -400,7 +397,7 @@ Partial Class frmConfig_Basic
Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox
Friend WithEvents btnopenlog As System.Windows.Forms.Button Friend WithEvents btnopenlog As System.Windows.Forms.Button
Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox Friend WithEvents CheckBoxIndexResult As System.Windows.Forms.CheckBox
Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents txtScanFolderWatch As System.Windows.Forms.TextBox Friend WithEvents txtScanFolderWatch As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label

20
Global_Indexer/frmConfig_Basic.resx
View File

@ -579,32 +579,32 @@
<data name="&gt;&gt;CheckBoxPreviewDocs.ZOrder" xml:space="preserve"> <data name="&gt;&gt;CheckBoxPreviewDocs.ZOrder" xml:space="preserve">
<value>4</value> <value>4</value>
</data> </data>
<data name="CheckBox2.AutoSize" type="System.Boolean, mscorlib"> <data name="CheckBoxIndexResult.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="CheckBox2.Location" type="System.Drawing.Point, System.Drawing"> <data name="CheckBoxIndexResult.Location" type="System.Drawing.Point, System.Drawing">
<value>242, 44</value> <value>242, 44</value>
</data> </data>
<data name="CheckBox2.Size" type="System.Drawing.Size, System.Drawing"> <data name="CheckBoxIndexResult.Size" type="System.Drawing.Size, System.Drawing">
<value>230, 30</value> <value>230, 30</value>
</data> </data>
<data name="CheckBox2.TabIndex" type="System.Int32, mscorlib"> <data name="CheckBoxIndexResult.TabIndex" type="System.Int32, mscorlib">
<value>6</value> <value>6</value>
</data> </data>
<data name="CheckBox2.Text" xml:space="preserve"> <data name="CheckBoxIndexResult.Text" xml:space="preserve">
<value>Meldungsfenster für erfolgreiche <value>Meldungsfenster für erfolgreiche
Übertragung nach windream anzeigen?</value> Übertragung nach windream anzeigen?</value>
</data> </data>
<data name="&gt;&gt;CheckBox2.Name" xml:space="preserve"> <data name="&gt;&gt;CheckBoxIndexResult.Name" xml:space="preserve">
<value>CheckBox2</value> <value>CheckBoxIndexResult</value>
</data> </data>
<data name="&gt;&gt;CheckBox2.Type" xml:space="preserve"> <data name="&gt;&gt;CheckBoxIndexResult.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;CheckBox2.Parent" xml:space="preserve"> <data name="&gt;&gt;CheckBoxIndexResult.Parent" xml:space="preserve">
<value>TabPage2</value> <value>TabPage2</value>
</data> </data>
<data name="&gt;&gt;CheckBox2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;CheckBoxIndexResult.ZOrder" xml:space="preserve">
<value>5</value> <value>5</value>
</data> </data>
<data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib"> <data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib">

10
Global_Indexer/frmConfig_Basic.vb
View File

@ -123,9 +123,9 @@ Public Class frmConfig_Basic
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
<STAThread()>
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckBoxIndexResult.Checked = CONFIG.Config.ShowIndexResult
CheckBoxPreviewDocs.Checked = CONFIG.Config.FilePreview
End Sub End Sub
Dim reload As Boolean = False Dim reload As Boolean = False
@ -407,9 +407,9 @@ Public Class frmConfig_Basic
Process.Start(Application.UserAppDataPath()) Process.Start(Application.UserAppDataPath())
End Sub End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxIndexResult.CheckedChanged
CONFIG.Config.ShowIndexResult = CheckBoxIndexResult.Checked
My.Settings.Save() CONFIG.Save()
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

2
Global_Indexer/frmHotkey_User.Designer.vb generated
View File

@ -247,9 +247,7 @@ Partial Class frmHotkey_User
'chkbxMaximizeWS 'chkbxMaximizeWS
' '
resources.ApplyResources(Me.chkbxMaximizeWS, "chkbxMaximizeWS") resources.ApplyResources(Me.chkbxMaximizeWS, "chkbxMaximizeWS")
Me.chkbxMaximizeWS.Checked = Global.Global_Indexer.My.MySettings.Default.WDSearch_maximized
Me.chkbxMaximizeWS.CheckState = System.Windows.Forms.CheckState.Checked Me.chkbxMaximizeWS.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkbxMaximizeWS.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "WDSearch_maximized", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.chkbxMaximizeWS.Name = "chkbxMaximizeWS" Me.chkbxMaximizeWS.Name = "chkbxMaximizeWS"
Me.chkbxMaximizeWS.UseVisualStyleBackColor = True Me.chkbxMaximizeWS.UseVisualStyleBackColor = True
' '

3
Global_Indexer/frmHotkey_User.vb
View File

@ -105,6 +105,7 @@
End Sub End Sub
Private Sub chkbxMaximizeWS_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxMaximizeWS.CheckedChanged Private Sub chkbxMaximizeWS_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxMaximizeWS.CheckedChanged
My.Settings.Save() CONFIG.Config.WindreamSearchMaximized = chkbxMaximizeWS.Checked
CONFIG.Save()
End Sub End Sub
End Class End Class

25
Global_Indexer/frmIndex.vb
View File

@ -1435,13 +1435,14 @@ Public Class frmIndex
End If End If
'txtIndexfilepath.Text = CURRENT_WORKFILE
labelFilePath.Caption = CURRENT_WORKFILE labelFilePath.Caption = CURRENT_WORKFILE
ClassWindowLocation.LoadFormLocationSize(Me) ClassWindowLocation.LoadFormLocationSize(Me)
SetFilePreview(CONFIG.Config.FilePreview) SetFilePreview(CONFIG.Config.FilePreview)
SplitContainer1.SplitterDistance = CONFIG.Config.SplitterDistanceViewer
Load_String() Load_String()
MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True) MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True)
MULTIINDEXING_ACTIVE = False MULTIINDEXING_ACTIVE = False
@ -1467,11 +1468,6 @@ Public Class frmIndex
Try Try
Me.VWDDINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString Me.VWDDINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
'Me.VWIORDNER_DOKARTTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWDMS_DOKUMENTARTZUORDNUNGTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.TBCONNECTIONTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWINDEX_MANTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
Catch ex As Exception Catch ex As Exception
LOGGER.Info(" - Unexpected error in Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message) LOGGER.Info(" - Unexpected error in Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message)
LOGGER.Error(ex.Message) LOGGER.Error(ex.Message)
@ -1490,15 +1486,14 @@ Public Class frmIndex
CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
'chkdelete_origin.Checked = CONFIG.Config.DeleteOriginalFile
'CURR_DELETE_ORIGIN = chkdelete_origin.Checked
FormLoaded = True FormLoaded = True
If My.Settings.DA_Vorauswahlaktiv = True Then
If CONFIG.Config.ProfilePreselection Then
If CURRENT_LASTDOKART <> "" Then If CURRENT_LASTDOKART <> "" Then
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART) cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
End If End If
End If End If
Try Try
If DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then If 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
@ -1516,7 +1511,6 @@ Public Class frmIndex
End Try End Try
Me.TopMost = True Me.TopMost = True
Me.BringToFront() Me.BringToFront()
End Sub End Sub
Sub Refresh_Dokart() Sub Refresh_Dokart()
Try Try
@ -2199,7 +2193,8 @@ Public Class frmIndex
Else Else
If WORK_FILE() = True Then If WORK_FILE() = True Then
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then
If CONFIG.Config.ShowIndexResult = True Then
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung") MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else Else
@ -2589,7 +2584,7 @@ Public Class frmIndex
Else Else
If WORK_FILE() = True Then If WORK_FILE() = True Then
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then If CONFIG.Config.ShowIndexResult = True Then
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung") MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else Else
@ -2632,4 +2627,8 @@ Public Class frmIndex
End If End If
End If End If
End Sub End Sub
Private Sub SplitContainer1_SplitterMoved(sender As Object, e As SplitterEventArgs) Handles SplitContainer1.SplitterMoved
CONFIG.Config.SplitterDistanceViewer = SplitContainer1.SplitterDistance
End Sub
End Class End Class

47
Global_Indexer/frmStart.vb
View File

@ -300,30 +300,28 @@ Public Class frmStart
End Sub End Sub
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If My.Settings.AppTerminate = False Then Try
Try
LOGGER.Info("") LOGGER.Info("")
If START_INCOMPLETE = False Then If START_INCOMPLETE = False Then
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')" Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
ClassDatabase.Execute_non_Query(Sql, True) ClassDatabase.Execute_non_Query(Sql, True)
End If
ClassWindowLocation.SaveFormLocationSize(Me)
Catch ex As Exception
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If USER_ID > 0 Then
Unregister_Hotkeys()
End If End If
'TempDateien löschen ClassWindowLocation.SaveFormLocationSize(Me)
Try Catch ex As Exception
For Each _file In TEMP_FILES MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
System.IO.File.Delete(_file) End Try
Next If USER_ID > 0 Then
Catch ex As Exception Unregister_Hotkeys()
End Try
End If End If
'TempDateien löschen
Try
For Each _file In TEMP_FILES
System.IO.File.Delete(_file)
Next
Catch ex As Exception
End Try
End Sub End Sub
Public Sub New() Public Sub New()
@ -338,9 +336,6 @@ Public Class frmStart
End Sub End Sub
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
If My.Settings.AppTerminate = True Then
Exit Sub
End If
'Me.TransparencyKey = Color.Transparent 'Me.TransparencyKey = Color.Transparent
' Me.BackColor = Color.Transparent ' Me.BackColor = Color.Transparent
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
@ -709,9 +704,6 @@ Public Class frmStart
End If End If
End Sub End Sub
Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If My.Settings.AppTerminate = True Then
Me.Close()
End If
' SetLanguage() ' SetLanguage()
If START_INCOMPLETE = True Then If START_INCOMPLETE = True Then
If LICENSE_COUNT = 0 And LICENSE_EXPIRED = True Then If LICENSE_COUNT = 0 And LICENSE_EXPIRED = True Then
@ -734,7 +726,6 @@ Public Class frmStart
Catch ex As Exception Catch ex As Exception
Me.btnChoosefiles.Location = New Point(269, 37) Me.btnChoosefiles.Location = New Point(269, 37)
End Try End Try
End Sub End Sub
Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
frmHistory.ShowDialog() frmHistory.ShowDialog()