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

MS 19.08

Browse Source
This commit is contained in:
SchreiberM 2015-08-19 14:36:21 +02:00
parent 1910ac0a74
commit 524552a2da
25 changed files with 3961 additions and 3397 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Global_Indexer/ClassDatabase.vb
View File

@ -11,12 +11,12 @@ Public Class ClassDatabase
SQLconnect.Close()
Return True
Catch ex As Exception
ClassLogger.Add("Fehler bei DatabaseInit: " & ex.Message, True)
ClassLogger.Add("Fehler bei Database-Init: " & ex.Message, True)
Return False
End Try
End Function
<System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Security", "CA2100:SQL-Abfragen auf Sicherheitsrisiken überprüfen")> Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
@ -35,7 +35,7 @@ Public Class ClassDatabase
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True)
ClassLogger.Add("SQL: " & Select_anweisung, False)
ClassLogger.Add("#SQL: " & Select_anweisung, False)
Return Nothing
End Try
End Function
@ -57,7 +57,7 @@ Public Class ClassDatabase
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False)
ClassLogger.Add("#SQL: " & ExecuteCMD, False)
Return False
End Try
@ -81,7 +81,7 @@ Public Class ClassDatabase
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False)
ClassLogger.Add("#SQL: " & cmdscalar, False)
Return Nothing
End Try
End Function
@ -101,7 +101,7 @@ Public Class ClassDatabase
Return result
Catch ex As Exception
ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False)
ClassLogger.Add("#SQL: " & cmdscalar, False)
Return Nothing
End Try
End Function

27
Global_Indexer/ClassFilehandle.vb
View File

@ -38,6 +38,8 @@ Public Class ClassFilehandle
If Not msg.InternetMessageId Is Nothing Then
CURRENT_MESSAGEID = msg.InternetMessageId
Else
MsgBox("Es konnte keine Message-ID ausgelesen werden." & vbNewLine & "Dies kann zu Fehlern in der Indexierung führen!", MsgBoxStyle.Exclamation, "Achtung:")
End If
'Nur die MSGDatei ablegen
@ -96,4 +98,29 @@ Public Class ClassFilehandle
Return False
End Try
End Function
Public Shared Function IsFileInUse(ByVal fullFilePath As String) As Boolean
' Gibt zurück, ob die übergebene Datei momentan exklusiv zu haben ist.
' Prüft, ob die angegeben Datei aktuell durch eine
' andere Anwendung in Benutzung ist
Dim ff As Integer = FreeFile()
If System.IO.File.Exists(fullFilePath) Then
Try
' Versuchen, die Datei mit *exklusiven* Lese- und
' Schreibrechten zu öffnen
FileOpen(ff, fullFilePath, OpenMode.Binary, _
OpenAccess.ReadWrite, _
OpenShare.LockReadWrite)
Catch
' Ist ein Fehler aufgetreten, so wird nach außen hin generell
' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
IsFileInUse = True
Finally
' Die eventuell geöffnete Datei schließen
FileClose(ff)
End Try
End If
End Function
End Class

14
Global_Indexer/ClassPostprocessing.vb
View File

@ -7,32 +7,32 @@ Public Class ClassPostprocessing
For Each row As DataRow In DTNB.Rows
Select Case row.Item("TYPE").ToString.ToUpper
Case "VBSPLIT"
If LogErrorsOnly = False Then ClassLogger.Add(" ... Nachbearbeitung mit VBSPLIT", False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False)
Dim strSplit() As String
strSplit = result.Split(row.Item("TEXT1"))
For i As Integer = 0 To strSplit.Length - 1
If i = CInt(row.Item("TEXT2")) Then
If LogErrorsOnly = False Then ClassLogger.Add(" ... Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False)
result = strSplit(i).ToString
End If
Next
Case "VBREPLACE"
If LogErrorsOnly = False Then
ClassLogger.Add(" ... Nachbearbeitung mit VBREPLACE", False)
ClassLogger.Add(" ... Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'", False)
ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False)
ClassLogger.Add(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'", False)
result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
End If
result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
Case "Regular Expression"
If LogErrorsOnly = False Then ClassLogger.Add(" ... NAchbearbeitung mit RegEx", False)
Case "REG. EXPRESSION"
If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False)
Dim RegexList As New List(Of System.Text.RegularExpressions.Regex)
Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase)
RegexList.Add(Regex)
'
Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList)
If Not IsNothing(resultRegex) Then
If LogErrorsOnly = False Then ClassLogger.Add(" ... Ergebnis des RegEx: " & resultRegex.ToString, False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & resultRegex.ToString, False)
result = resultRegex.ToString
Else
ClassLogger.Add("Postprocessing RegEx konnte kein ergebnis auswerten!", True)

10
Global_Indexer/Global_Indexer.vbproj
View File

@ -122,6 +122,12 @@
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="AboutBox1.Designer.vb">
<DependentUpon>AboutBox1.vb</DependentUpon>
</Compile>
<Compile Include="AboutBox1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ClassDatabase.vb" />
<Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassEncryption.vb" />
@ -261,6 +267,9 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="AboutBox1.resx">
<DependentUpon>AboutBox1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource>
@ -516,6 +525,7 @@
</ItemGroup>
<ItemGroup>
<Content Include="globe_handdrawn.ico" />
<None Include="Resources\Excel_25ixel.jpg" />
<None Include="Resources\cancel.png" />
<None Include="Resources\refresh_16xLG.png" />
</ItemGroup>

5
Global_Indexer/ModuleCURRENT.vb
View File

@ -1,4 +1,5 @@
Module ModuleCURRENT
Public START_INCOMPLETE As Boolean = False
Public CURRENT_FILENAME As String
Public CURRENT_NEWFILENAME As String
Public CURRENT_WORKFILE_GUID As Integer
@ -30,4 +31,8 @@
Public CURRENT_ABBRUCH As Integer = 0
Public MULTIINDEXING_ACTIVE As Boolean = False
Public DTACTUAL_FILES As DataTable
End Module

2
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.7.0.0")>
<Assembly: AssemblyVersion("1.7.2.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

10
Global_Indexer/My Project/Resources.Designer.vb generated
View File

@ -310,6 +310,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Excel_25ixel() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Excel_25ixel", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

27
Global_Indexer/My Project/Resources.resx
View File

@ -139,9 +139,6 @@
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -154,6 +151,9 @@
<data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -169,6 +169,9 @@
<data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -178,6 +181,9 @@
<data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -202,15 +208,12 @@
<data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_left" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -244,13 +247,13 @@
<data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

6141
Global_Indexer/MyDataset.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

31
Global_Indexer/MyDataset.xsc
View File

@ -212,24 +212,39 @@
<TableUISetting Name="TBDD_INDEX_MAN_POSTPROCESSING">
<ColumnUISettings>
<ColumnUISetting Name="IDXMAN_ID">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="TYPE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="VARIANT">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>

51
Global_Indexer/MyDataset.xsd
View File

@ -548,8 +548,9 @@ WHERE (DOK_ID = @DokID)</CommandText>
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWDDINDEX_AUTOM" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT,VALUE
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, VALUE,
SQL_ACTIVE
FROM VWDDINDEX_AUTOM
WHERE (DOCTYPE_ID = @DOCTYPE)</CommandText>
<Parameters>
@ -575,6 +576,7 @@ WHERE (DOCTYPE_ID = @DOCTYPE)</CommandText>
<Mapping SourceColumn="PASSWORD" DataSetColumn="PASSWORD" />
<Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" />
<Mapping SourceColumn="VALUE" DataSetColumn="VALUE" />
<Mapping SourceColumn="SQL_ACTIVE" DataSetColumn="SQL_ACTIVE" />
</Mappings>
<Sources />
</TableAdapter>
@ -788,19 +790,19 @@ SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_S
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING
WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING
(IDXMAN_ID, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO)
VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TEXT3,@SEQUENCE,@ADDED_WHO)</CommandText>
(IDXMAN_ID, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, VARIANT)
VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TEXT3,@SEQUENCE,@ADDED_WHO,@VARIANT)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -812,15 +814,17 @@ VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TE
<Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VARIANT" ColumnName="VARIANT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@VARIANT" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="VARIANT" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.TYPE,
TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDEX_MAN_POSTPROCESSING.TEXT2,
TBDD_INDEX_MAN_POSTPROCESSING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHO,
TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHEN
TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHEN,
TBDD_INDEX_MAN_POSTPROCESSING.VARIANT
FROM TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN
TBDD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_INDEX_MAN.GUID
WHERE (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)</CommandText>
@ -833,7 +837,7 @@ WHERE (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)</CommandText>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_INDEX_MAN_POSTPROCESSING
SET IDXMAN_ID = @IDXMAN_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3,
SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO
SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO, VARIANT = @VARIANT
WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -846,6 +850,7 @@ WHERE (GUID = @GUID)</CommandText>
<Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VARIANT" ColumnName="VARIANT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@VARIANT" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="VARIANT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
@ -867,6 +872,7 @@ WHERE (GUID = @GUID)</CommandText>
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="VARIANT" DataSetColumn="VARIANT" />
</Mappings>
<Sources />
</TableAdapter>
@ -1649,7 +1655,7 @@ WHERE (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_HISTORYTableAdapter" GeneratorDataComponentClassName="TBGI_HISTORYTableAdapter" Name="TBGI_HISTORY" UserDataComponentName="TBGI_HISTORYTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_HISTORY" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_HISTORY" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillToday" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="FillToday" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="FillToday">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN
@ -1669,7 +1675,21 @@ ORDER BY GUID DESC</CommandText>
<Mapping SourceColumn="FILENAME_NEW" DataSetColumn="FILENAME_NEW" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
</Mappings>
<Sources />
<Sources>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_HISTORY" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillByAll" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByAll" GeneratorSourceName="FillByAll" GetMethodModifier="Public" GetMethodName="GetDataByAll" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByAll" UserSourceName="FillByAll">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN
FROM TBGI_HISTORY
WHERE (ADDED_WHO = @User)
ORDER BY GUID DESC</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="User" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBGI_HISTORY" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@User" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</Sources>
</TableAdapter>
</Tables>
<Sources />
@ -2141,6 +2161,7 @@ ORDER BY GUID DESC</CommandText>
<xs:element name="Indexiert" msprop:Generator_ColumnVarNameInTable="columnIndexiert" msprop:Generator_ColumnPropNameInRow="Indexiert" msprop:Generator_ColumnPropNameInTable="IndexiertColumn" msprop:Generator_UserColumnName="Indexiert" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="Indexwert" msprop:Generator_ColumnVarNameInTable="columnIndexwert" msprop:Generator_ColumnPropNameInRow="Indexwert" msprop:Generator_ColumnPropNameInTable="IndexwertColumn" msprop:Generator_UserColumnName="Indexwert" type="xs:string" default="" minOccurs="0" />
<xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" />
<xs:element name="Indexwert_File" msprop:Generator_ColumnVarNameInTable="columnIndexwert_File" msprop:Generator_ColumnPropNameInRow="Indexwert_File" msprop:Generator_ColumnPropNameInTable="Indexwert_FileColumn" msprop:Generator_UserColumnName="Indexwert_File" type="xs:string" default="" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
@ -2236,6 +2257,7 @@ ORDER BY GUID DESC</CommandText>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_ACTIVE" msprop:Generator_ColumnVarNameInTable="columnSQL_ACTIVE" msprop:Generator_ColumnPropNameInRow="SQL_ACTIVE" msprop:Generator_ColumnPropNameInTable="SQL_ACTIVEColumn" msprop:Generator_UserColumnName="SQL_ACTIVE" type="xs:boolean" />
</xs:sequence>
</xs:complexType>
</xs:element>
@ -2495,6 +2517,13 @@ ORDER BY GUID DESC</CommandText>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="VARIANT" msprop:Generator_ColumnVarNameInTable="columnVARIANT" msprop:Generator_ColumnPropNameInRow="_VARIANT" msprop:Generator_ColumnPropNameInTable="VARIANTColumn" msprop:Generator_UserColumnName="VARIANT" default="FILE AND INDEX">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="20" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>

85
Global_Indexer/MyDataset.xss
View File

@ -6,36 +6,37 @@
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-12" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBDD_USER" ZOrder="17" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="42" X="119" Y="308" Height="324" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="19" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="40" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_MODULES" ZOrder="39" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="31" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="38" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="36" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="35" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="18" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="32" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="20" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="29" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="27" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="25" X="1193" Y="100" Height="191" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="24" X="708" Y="-9" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="21" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="4" X="255" Y="216" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="6" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="5" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
<Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="9" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="10" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="8" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
<Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="3" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="2" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBTempFiles2Index" ZOrder="33" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="26" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="19" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="43" X="119" Y="308" Height="324" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="21" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="41" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_MODULES" ZOrder="40" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="33" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="39" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="1" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="37" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="20" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="34" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="22" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="31" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="29" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="27" X="1193" Y="100" Height="191" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="26" X="708" Y="-9" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="23" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="6" X="255" Y="216" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="8" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="7" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
<Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="11" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="12" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="10" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
<Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="5" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="4" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_HISTORY" ZOrder="2" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBTempFiles2Index" ZOrder="35" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="28" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="41" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="42" LineWidth="11">
<RoutePoints>
<Point>
<X>431</X>
@ -47,7 +48,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="37" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="38" LineWidth="11">
<RoutePoints>
<Point>
<X>543</X>
@ -59,7 +60,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="34" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="36" LineWidth="11">
<RoutePoints>
<Point>
<X>397</X>
@ -71,7 +72,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="30" LineWidth="11">
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="32" LineWidth="11">
<RoutePoints>
<Point>
<X>605</X>
@ -87,7 +88,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="28" LineWidth="11">
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="30" LineWidth="11">
<RoutePoints>
<Point>
<X>959</X>
@ -99,7 +100,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="23" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="25" LineWidth="11">
<RoutePoints>
<Point>
<X>1193</X>
@ -115,7 +116,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="22" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="24" LineWidth="11">
<RoutePoints>
<Point>
<X>871</X>
@ -127,7 +128,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="16" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="18" LineWidth="11">
<RoutePoints>
<Point>
<X>94</X>
@ -147,7 +148,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="15" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="17" LineWidth="11">
<RoutePoints>
<Point>
<X>129</X>
@ -163,7 +164,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="14" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="16" LineWidth="11">
<RoutePoints>
<Point>
<X>183</X>
@ -175,7 +176,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="13" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="15" LineWidth="11">
<RoutePoints>
<Point>
<X>88</X>
@ -195,7 +196,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="12" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="14" LineWidth="11">
<RoutePoints>
<Point>
<X>117</X>
@ -215,7 +216,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="11" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="13" LineWidth="11">
<RoutePoints>
<Point>
<X>765</X>
@ -231,7 +232,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="7" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="9" LineWidth="11">
<RoutePoints>
<Point>
<X>409</X>
@ -251,7 +252,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="1" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="3" LineWidth="11">
<RoutePoints>
<Point>
<X>38</X>

223
Global_Indexer/frmAdministration.Designer.vb generated
View File

@ -92,6 +92,7 @@ Partial Class frmAdministration
Dim CHANGED_WHOLabel5 As System.Windows.Forms.Label
Dim CHANGED_WHENLabel5 As System.Windows.Forms.Label
Dim SEQUENCELabel3 As System.Windows.Forms.Label
Dim VARIANTLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
@ -136,9 +137,10 @@ Partial Class frmAdministration
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
Me.XtraTabPage6 = New DevExpress.XtraTab.XtraTabPage()
Me.VARIANTComboBox = New System.Windows.Forms.ComboBox()
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.lblsavePostProcess = New System.Windows.Forms.Label()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBWHDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.Function2Label = New System.Windows.Forms.Label()
Me.Function1Label = New System.Windows.Forms.Label()
@ -173,6 +175,8 @@ Partial Class frmAdministration
Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton31 = New System.Windows.Forms.ToolStripButton()
Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
Me.lblWindowParameter = New System.Windows.Forms.Label()
Me.lbFileparameter = New System.Windows.Forms.ListBox()
Me.ListBox6 = New System.Windows.Forms.ListBox()
Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.lblValue = New System.Windows.Forms.Label()
@ -447,6 +451,7 @@ Partial Class frmAdministration
CHANGED_WHOLabel5 = New System.Windows.Forms.Label()
CHANGED_WHENLabel5 = New System.Windows.Forms.Label()
SEQUENCELabel3 = New System.Windows.Forms.Label()
VARIANTLabel = New System.Windows.Forms.Label()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout()
@ -625,7 +630,7 @@ Partial Class frmAdministration
'WD_INDEXLabel
'
WD_INDEXLabel.AutoSize = True
WD_INDEXLabel.Location = New System.Drawing.Point(395, 30)
WD_INDEXLabel.Location = New System.Drawing.Point(439, 30)
WD_INDEXLabel.Name = "WD_INDEXLabel"
WD_INDEXLabel.Size = New System.Drawing.Size(62, 15)
WD_INDEXLabel.TabIndex = 5
@ -661,7 +666,7 @@ Partial Class frmAdministration
'SEQUENCELabel
'
SEQUENCELabel.AutoSize = True
SEQUENCELabel.Location = New System.Drawing.Point(635, 30)
SEQUENCELabel.Location = New System.Drawing.Point(674, 30)
SEQUENCELabel.Name = "SEQUENCELabel"
SEQUENCELabel.Size = New System.Drawing.Size(73, 15)
SEQUENCELabel.TabIndex = 16
@ -979,7 +984,7 @@ Partial Class frmAdministration
'
ADDED_WHOLabel3.AutoSize = True
ADDED_WHOLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
ADDED_WHOLabel3.Location = New System.Drawing.Point(164, 168)
ADDED_WHOLabel3.Location = New System.Drawing.Point(164, 209)
ADDED_WHOLabel3.Name = "ADDED_WHOLabel3"
ADDED_WHOLabel3.Size = New System.Drawing.Size(67, 15)
ADDED_WHOLabel3.TabIndex = 18
@ -989,7 +994,7 @@ Partial Class frmAdministration
'
ADDED_WHENLabel3.AutoSize = True
ADDED_WHENLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
ADDED_WHENLabel3.Location = New System.Drawing.Point(354, 168)
ADDED_WHENLabel3.Location = New System.Drawing.Point(354, 209)
ADDED_WHENLabel3.Name = "ADDED_WHENLabel3"
ADDED_WHENLabel3.Size = New System.Drawing.Size(78, 15)
ADDED_WHENLabel3.TabIndex = 20
@ -999,7 +1004,7 @@ Partial Class frmAdministration
'
CHANGED_WHOLabel3.AutoSize = True
CHANGED_WHOLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHOLabel3.Location = New System.Drawing.Point(164, 210)
CHANGED_WHOLabel3.Location = New System.Drawing.Point(531, 209)
CHANGED_WHOLabel3.Name = "CHANGED_WHOLabel3"
CHANGED_WHOLabel3.Size = New System.Drawing.Size(81, 15)
CHANGED_WHOLabel3.TabIndex = 22
@ -1009,7 +1014,7 @@ Partial Class frmAdministration
'
CHANGED_WHENLabel3.AutoSize = True
CHANGED_WHENLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHENLabel3.Location = New System.Drawing.Point(354, 210)
CHANGED_WHENLabel3.Location = New System.Drawing.Point(691, 209)
CHANGED_WHENLabel3.Name = "CHANGED_WHENLabel3"
CHANGED_WHENLabel3.Size = New System.Drawing.Size(92, 15)
CHANGED_WHENLabel3.TabIndex = 24
@ -1037,7 +1042,7 @@ Partial Class frmAdministration
'COMMENTLabel2
'
COMMENTLabel2.AutoSize = True
COMMENTLabel2.Location = New System.Drawing.Point(384, 36)
COMMENTLabel2.Location = New System.Drawing.Point(381, 36)
COMMENTLabel2.Name = "COMMENTLabel2"
COMMENTLabel2.Size = New System.Drawing.Size(73, 15)
COMMENTLabel2.TabIndex = 6
@ -1175,6 +1180,15 @@ Partial Class frmAdministration
SEQUENCELabel3.TabIndex = 90
SEQUENCELabel3.Text = "Reihenfolge:"
'
'VARIANTLabel
'
VARIANTLabel.AutoSize = True
VARIANTLabel.Location = New System.Drawing.Point(556, 81)
VARIANTLabel.Name = "VARIANTLabel"
VARIANTLabel.Size = New System.Drawing.Size(122, 15)
VARIANTLabel.TabIndex = 80
VARIANTLabel.Text = "Anwendungsvariante:"
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 632)
@ -1257,10 +1271,11 @@ Partial Class frmAdministration
'SEQUENCENumericUpDown
'
Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True))
Me.SEQUENCENumericUpDown.Enabled = False
Me.SEQUENCENumericUpDown.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(896, 45)
Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown"
Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(70, 24)
Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(67, 24)
Me.SEQUENCENumericUpDown.TabIndex = 91
'
'TBDD_DOKUMENTARTBindingSource
@ -1276,6 +1291,7 @@ Partial Class frmAdministration
'WINDREAM_DIRECTCheckBox
'
Me.WINDREAM_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "WINDREAM_DIRECT", True))
Me.WINDREAM_DIRECTCheckBox.Enabled = False
Me.WINDREAM_DIRECTCheckBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WINDREAM_DIRECTCheckBox.Location = New System.Drawing.Point(386, 93)
Me.WINDREAM_DIRECTCheckBox.Name = "WINDREAM_DIRECTCheckBox"
@ -1315,7 +1331,7 @@ Partial Class frmAdministration
Me.XtraTabControl2.Location = New System.Drawing.Point(266, 315)
Me.XtraTabControl2.Name = "XtraTabControl2"
Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3
Me.XtraTabControl2.Size = New System.Drawing.Size(846, 281)
Me.XtraTabControl2.Size = New System.Drawing.Size(862, 281)
Me.XtraTabControl2.TabIndex = 86
Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage6, Me.XtraTabPage4, Me.XtraTabPage9, Me.XtraTabPage10})
'
@ -1352,12 +1368,13 @@ Partial Class frmAdministration
Me.XtraTabPage3.Controls.Add(GUIDLabel1)
Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1)
Me.XtraTabPage3.Name = "XtraTabPage3"
Me.XtraTabPage3.Size = New System.Drawing.Size(840, 253)
Me.XtraTabPage3.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage3.Text = "manuelle Indexe"
'
'OPTIONALCheckBox
'
Me.OPTIONALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "OPTIONAL", True))
Me.OPTIONALCheckBox.Enabled = False
Me.OPTIONALCheckBox.Location = New System.Drawing.Point(638, 91)
Me.OPTIONALCheckBox.Name = "OPTIONALCheckBox"
Me.OPTIONALCheckBox.Size = New System.Drawing.Size(77, 24)
@ -1384,6 +1401,7 @@ Partial Class frmAdministration
'
'btnSQLView
'
Me.btnSQLView.Enabled = False
Me.btnSQLView.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.btnSQLView.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSQLView.Location = New System.Drawing.Point(507, 135)
@ -1397,7 +1415,6 @@ Partial Class frmAdministration
'
'lblSaveIndexMan
'
Me.lblSaveIndexMan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSaveIndexMan.AutoSize = True
Me.lblSaveIndexMan.BackColor = System.Drawing.Color.Yellow
Me.lblSaveIndexMan.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -1447,7 +1464,8 @@ Partial Class frmAdministration
'ACTIVECheckBox
'
Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True))
Me.ACTIVECheckBox.Location = New System.Drawing.Point(723, 47)
Me.ACTIVECheckBox.Enabled = False
Me.ACTIVECheckBox.Location = New System.Drawing.Point(753, 47)
Me.ACTIVECheckBox.Name = "ACTIVECheckBox"
Me.ACTIVECheckBox.Size = New System.Drawing.Size(61, 24)
Me.ACTIVECheckBox.TabIndex = 19
@ -1457,7 +1475,8 @@ Partial Class frmAdministration
'SEQUENCETextBox
'
Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True))
Me.SEQUENCETextBox.Location = New System.Drawing.Point(638, 48)
Me.SEQUENCETextBox.Enabled = False
Me.SEQUENCETextBox.Location = New System.Drawing.Point(677, 48)
Me.SEQUENCETextBox.Name = "SEQUENCETextBox"
Me.SEQUENCETextBox.Size = New System.Drawing.Size(70, 23)
Me.SEQUENCETextBox.TabIndex = 17
@ -1465,6 +1484,7 @@ Partial Class frmAdministration
'DEFAULT_VALUETextBox
'
Me.DEFAULT_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True))
Me.DEFAULT_VALUETextBox.Enabled = False
Me.DEFAULT_VALUETextBox.Location = New System.Drawing.Point(162, 180)
Me.DEFAULT_VALUETextBox.Name = "DEFAULT_VALUETextBox"
Me.DEFAULT_VALUETextBox.Size = New System.Drawing.Size(318, 23)
@ -1473,6 +1493,7 @@ Partial Class frmAdministration
'SUGGESTIONCheckBox
'
Me.SUGGESTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SUGGESTION", True))
Me.SUGGESTIONCheckBox.Enabled = False
Me.SUGGESTIONCheckBox.Location = New System.Drawing.Point(338, 136)
Me.SUGGESTIONCheckBox.Name = "SUGGESTIONCheckBox"
Me.SUGGESTIONCheckBox.Size = New System.Drawing.Size(163, 24)
@ -1483,6 +1504,7 @@ Partial Class frmAdministration
'DATATYPEComboBox
'
Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True))
Me.DATATYPEComboBox.Enabled = False
Me.DATATYPEComboBox.FormattingEnabled = True
Me.DATATYPEComboBox.Items.AddRange(New Object() {"DATE", "INTEGER", "VARCHAR"})
Me.DATATYPEComboBox.Location = New System.Drawing.Point(162, 136)
@ -1493,6 +1515,7 @@ Partial Class frmAdministration
'COMMENTTextBox
'
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True))
Me.COMMENTTextBox.Enabled = False
Me.COMMENTTextBox.Location = New System.Drawing.Point(162, 92)
Me.COMMENTTextBox.Name = "COMMENTTextBox"
Me.COMMENTTextBox.Size = New System.Drawing.Size(467, 23)
@ -1501,8 +1524,9 @@ Partial Class frmAdministration
'WD_INDEXComboBox
'
Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True))
Me.WD_INDEXComboBox.Enabled = False
Me.WD_INDEXComboBox.FormattingEnabled = True
Me.WD_INDEXComboBox.Location = New System.Drawing.Point(398, 48)
Me.WD_INDEXComboBox.Location = New System.Drawing.Point(440, 47)
Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox"
Me.WD_INDEXComboBox.Size = New System.Drawing.Size(231, 23)
Me.WD_INDEXComboBox.TabIndex = 6
@ -1510,9 +1534,10 @@ Partial Class frmAdministration
'NAMETextBox
'
Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True))
Me.NAMETextBox.Enabled = False
Me.NAMETextBox.Location = New System.Drawing.Point(162, 48)
Me.NAMETextBox.Name = "NAMETextBox"
Me.NAMETextBox.Size = New System.Drawing.Size(230, 23)
Me.NAMETextBox.Size = New System.Drawing.Size(263, 23)
Me.NAMETextBox.TabIndex = 4
'
'TBDD_INDEX_MANBindingNav
@ -1530,7 +1555,7 @@ Partial Class frmAdministration
Me.TBDD_INDEX_MANBindingNav.MovePreviousItem = Me.ToolStripButton4
Me.TBDD_INDEX_MANBindingNav.Name = "TBDD_INDEX_MANBindingNav"
Me.TBDD_INDEX_MANBindingNav.PositionItem = Me.ToolStripTextBox1
Me.TBDD_INDEX_MANBindingNav.Size = New System.Drawing.Size(840, 25)
Me.TBDD_INDEX_MANBindingNav.Size = New System.Drawing.Size(856, 25)
Me.TBDD_INDEX_MANBindingNav.TabIndex = 3
Me.TBDD_INDEX_MANBindingNav.Text = "BindingNavigator1"
'
@ -1641,6 +1666,8 @@ Partial Class frmAdministration
'XtraTabPage6
'
Me.XtraTabPage6.AutoScroll = True
Me.XtraTabPage6.Controls.Add(VARIANTLabel)
Me.XtraTabPage6.Controls.Add(Me.VARIANTComboBox)
Me.XtraTabPage6.Controls.Add(Me.lblsavePostProcess)
Me.XtraTabPage6.Controls.Add(Me.ComboBox2)
Me.XtraTabPage6.Controls.Add(Me.Function2Label)
@ -1672,16 +1699,35 @@ Partial Class frmAdministration
Me.XtraTabPage6.Controls.Add(Me.GUIDTextBox4)
Me.XtraTabPage6.Controls.Add(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator)
Me.XtraTabPage6.Name = "XtraTabPage6"
Me.XtraTabPage6.Size = New System.Drawing.Size(840, 253)
Me.XtraTabPage6.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage6.Text = "Nachbearbeitungsfunktionen manueller Index"
'
'VARIANTComboBox
'
Me.VARIANTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "VARIANT", True))
Me.VARIANTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "VARIANT", True))
Me.VARIANTComboBox.DataSource = Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
Me.VARIANTComboBox.DisplayMember = "VARIANT"
Me.VARIANTComboBox.Enabled = False
Me.VARIANTComboBox.FormattingEnabled = True
Me.VARIANTComboBox.Location = New System.Drawing.Point(559, 99)
Me.VARIANTComboBox.Name = "VARIANTComboBox"
Me.VARIANTComboBox.Size = New System.Drawing.Size(202, 23)
Me.VARIANTComboBox.TabIndex = 81
Me.VARIANTComboBox.ValueMember = "VARIANT"
'
'TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
'
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataMember = "TBDD_INDEX_MAN_POSTPROCESSING"
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataSource = Me.MyDataset
'
'lblsavePostProcess
'
Me.lblsavePostProcess.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblsavePostProcess.AutoSize = True
Me.lblsavePostProcess.BackColor = System.Drawing.Color.Yellow
Me.lblsavePostProcess.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblsavePostProcess.Location = New System.Drawing.Point(384, 186)
Me.lblsavePostProcess.Location = New System.Drawing.Point(384, 185)
Me.lblsavePostProcess.Name = "lblsavePostProcess"
Me.lblsavePostProcess.Size = New System.Drawing.Size(213, 17)
Me.lblsavePostProcess.TabIndex = 80
@ -1693,6 +1739,7 @@ Partial Class frmAdministration
Me.ComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "IDXMAN_ID", True))
Me.ComboBox2.DataSource = Me.TBWHDD_INDEX_MANBindingSource
Me.ComboBox2.DisplayMember = "NAME"
Me.ComboBox2.Enabled = False
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Location = New System.Drawing.Point(71, 53)
Me.ComboBox2.Name = "ComboBox2"
@ -1700,11 +1747,6 @@ Partial Class frmAdministration
Me.ComboBox2.TabIndex = 34
Me.ComboBox2.ValueMember = "GUID"
'
'TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
'
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataMember = "TBDD_INDEX_MAN_POSTPROCESSING"
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataSource = Me.MyDataset
'
'TBWHDD_INDEX_MANBindingSource
'
Me.TBWHDD_INDEX_MANBindingSource.DataMember = "TBWHDD_INDEX_MAN"
@ -1713,7 +1755,7 @@ Partial Class frmAdministration
'Function2Label
'
Me.Function2Label.AutoSize = True
Me.Function2Label.Location = New System.Drawing.Point(388, 79)
Me.Function2Label.Location = New System.Drawing.Point(212, 166)
Me.Function2Label.Name = "Function2Label"
Me.Function2Label.Size = New System.Drawing.Size(13, 15)
Me.Function2Label.TabIndex = 33
@ -1722,7 +1764,7 @@ Partial Class frmAdministration
'Function1Label
'
Me.Function1Label.AutoSize = True
Me.Function1Label.Location = New System.Drawing.Point(13, 79)
Me.Function1Label.Location = New System.Drawing.Point(116, 166)
Me.Function1Label.Name = "Function1Label"
Me.Function1Label.Size = New System.Drawing.Size(13, 15)
Me.Function1Label.TabIndex = 32
@ -1731,7 +1773,7 @@ Partial Class frmAdministration
'Text3Label
'
Me.Text3Label.AutoSize = True
Me.Text3Label.Location = New System.Drawing.Point(384, 123)
Me.Text3Label.Location = New System.Drawing.Point(381, 81)
Me.Text3Label.Name = "Text3Label"
Me.Text3Label.Size = New System.Drawing.Size(41, 15)
Me.Text3Label.TabIndex = 31
@ -1740,7 +1782,7 @@ Partial Class frmAdministration
'Text2Label
'
Me.Text2Label.AutoSize = True
Me.Text2Label.Location = New System.Drawing.Point(184, 123)
Me.Text2Label.Location = New System.Drawing.Point(184, 81)
Me.Text2Label.Name = "Text2Label"
Me.Text2Label.Size = New System.Drawing.Size(41, 15)
Me.Text2Label.TabIndex = 30
@ -1749,7 +1791,7 @@ Partial Class frmAdministration
'Text1Label
'
Me.Text1Label.AutoSize = True
Me.Text1Label.Location = New System.Drawing.Point(16, 123)
Me.Text1Label.Location = New System.Drawing.Point(16, 81)
Me.Text1Label.Name = "Text1Label"
Me.Text1Label.Size = New System.Drawing.Size(41, 15)
Me.Text1Label.TabIndex = 29
@ -1798,6 +1840,7 @@ Partial Class frmAdministration
'SEQUENCETextBox1
'
Me.SEQUENCETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "SEQUENCE", True))
Me.SEQUENCETextBox1.Enabled = False
Me.SEQUENCETextBox1.Location = New System.Drawing.Point(16, 185)
Me.SEQUENCETextBox1.Name = "SEQUENCETextBox1"
Me.SEQUENCETextBox1.Size = New System.Drawing.Size(78, 23)
@ -1806,7 +1849,8 @@ Partial Class frmAdministration
'TEXT3TextBox
'
Me.TEXT3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT3", True))
Me.TEXT3TextBox.Location = New System.Drawing.Point(387, 141)
Me.TEXT3TextBox.Enabled = False
Me.TEXT3TextBox.Location = New System.Drawing.Point(384, 99)
Me.TEXT3TextBox.Name = "TEXT3TextBox"
Me.TEXT3TextBox.Size = New System.Drawing.Size(169, 23)
Me.TEXT3TextBox.TabIndex = 18
@ -1814,7 +1858,8 @@ Partial Class frmAdministration
'TEXT2TextBox
'
Me.TEXT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT2", True))
Me.TEXT2TextBox.Location = New System.Drawing.Point(187, 141)
Me.TEXT2TextBox.Enabled = False
Me.TEXT2TextBox.Location = New System.Drawing.Point(187, 99)
Me.TEXT2TextBox.Name = "TEXT2TextBox"
Me.TEXT2TextBox.Size = New System.Drawing.Size(191, 23)
Me.TEXT2TextBox.TabIndex = 16
@ -1822,7 +1867,8 @@ Partial Class frmAdministration
'TEXT1TextBox
'
Me.TEXT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT1", True))
Me.TEXT1TextBox.Location = New System.Drawing.Point(16, 141)
Me.TEXT1TextBox.Enabled = False
Me.TEXT1TextBox.Location = New System.Drawing.Point(16, 99)
Me.TEXT1TextBox.Name = "TEXT1TextBox"
Me.TEXT1TextBox.Size = New System.Drawing.Size(167, 23)
Me.TEXT1TextBox.TabIndex = 14
@ -1830,24 +1876,27 @@ Partial Class frmAdministration
'FUNCTION2TextBox
'
Me.FUNCTION2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "FUNCTION2", True))
Me.FUNCTION2TextBox.Location = New System.Drawing.Point(387, 97)
Me.FUNCTION2TextBox.Enabled = False
Me.FUNCTION2TextBox.Location = New System.Drawing.Point(211, 184)
Me.FUNCTION2TextBox.Name = "FUNCTION2TextBox"
Me.FUNCTION2TextBox.Size = New System.Drawing.Size(381, 23)
Me.FUNCTION2TextBox.Size = New System.Drawing.Size(70, 23)
Me.FUNCTION2TextBox.TabIndex = 12
'
'FUNCTION1TextBox
'
Me.FUNCTION1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "FUNCTION1", True))
Me.FUNCTION1TextBox.Location = New System.Drawing.Point(16, 97)
Me.FUNCTION1TextBox.Enabled = False
Me.FUNCTION1TextBox.Location = New System.Drawing.Point(119, 184)
Me.FUNCTION1TextBox.Name = "FUNCTION1TextBox"
Me.FUNCTION1TextBox.Size = New System.Drawing.Size(362, 23)
Me.FUNCTION1TextBox.Size = New System.Drawing.Size(70, 23)
Me.FUNCTION1TextBox.TabIndex = 10
'
'TYPEComboBox
'
Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TYPE", True))
Me.TYPEComboBox.Enabled = False
Me.TYPEComboBox.FormattingEnabled = True
Me.TYPEComboBox.Items.AddRange(New Object() {"VBREPLACE", "VBSPLIT"})
Me.TYPEComboBox.Items.AddRange(New Object() {"VBREPLACE", "VBSPLIT", "REG. EXPRESSION"})
Me.TYPEComboBox.Location = New System.Drawing.Point(257, 53)
Me.TYPEComboBox.Name = "TYPEComboBox"
Me.TYPEComboBox.Size = New System.Drawing.Size(121, 23)
@ -1856,7 +1905,8 @@ Partial Class frmAdministration
'COMMENTTextBox2
'
Me.COMMENTTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "COMMENT", True))
Me.COMMENTTextBox2.Location = New System.Drawing.Point(387, 54)
Me.COMMENTTextBox2.Enabled = False
Me.COMMENTTextBox2.Location = New System.Drawing.Point(384, 54)
Me.COMMENTTextBox2.Name = "COMMENTTextBox2"
Me.COMMENTTextBox2.Size = New System.Drawing.Size(381, 23)
Me.COMMENTTextBox2.TabIndex = 7
@ -1886,7 +1936,7 @@ Partial Class frmAdministration
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MovePreviousItem = Me.ToolStripButton27
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Name = "TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator"
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.PositionItem = Me.ToolStripTextBox4
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Size = New System.Drawing.Size(840, 25)
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Size = New System.Drawing.Size(856, 25)
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.TabIndex = 4
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Text = "BindingNavigator1"
'
@ -1999,6 +2049,8 @@ Partial Class frmAdministration
Me.XtraTabPage4.Appearance.Header.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical
Me.XtraTabPage4.Appearance.HeaderActive.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical
Me.XtraTabPage4.AutoScroll = True
Me.XtraTabPage4.Controls.Add(Me.lblWindowParameter)
Me.XtraTabPage4.Controls.Add(Me.lbFileparameter)
Me.XtraTabPage4.Controls.Add(Me.ListBox6)
Me.XtraTabPage4.Controls.Add(Me.lblValue)
Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexCMB)
@ -2025,8 +2077,28 @@ Partial Class frmAdministration
Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexTXT)
Me.XtraTabPage4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XtraTabPage4.Name = "XtraTabPage4"
Me.XtraTabPage4.Size = New System.Drawing.Size(840, 253)
Me.XtraTabPage4.Text = "automatische Indexe"
Me.XtraTabPage4.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage4.Text = "automatische/feste Indexe"
'
'lblWindowParameter
'
Me.lblWindowParameter.AutoSize = True
Me.lblWindowParameter.Location = New System.Drawing.Point(602, 47)
Me.lblWindowParameter.Name = "lblWindowParameter"
Me.lblWindowParameter.Size = New System.Drawing.Size(118, 15)
Me.lblWindowParameter.TabIndex = 88
Me.lblWindowParameter.Text = "Windows-Parameter:"
'
'lbFileparameter
'
Me.lbFileparameter.Enabled = False
Me.lbFileparameter.FormattingEnabled = True
Me.lbFileparameter.ItemHeight = 15
Me.lbFileparameter.Items.AddRange(New Object() {"Dateiname (mit Endung)", "Dateiname (ohne Endung)", "Datei Erstelldatum", "Datei Erstellt wer", "Aktuelles Datum (DD.MM.YYYY)"})
Me.lbFileparameter.Location = New System.Drawing.Point(602, 64)
Me.lbFileparameter.Name = "lbFileparameter"
Me.lbFileparameter.Size = New System.Drawing.Size(178, 109)
Me.lbFileparameter.TabIndex = 87
'
'ListBox6
'
@ -2037,7 +2109,7 @@ Partial Class frmAdministration
Me.ListBox6.ItemHeight = 15
Me.ListBox6.Location = New System.Drawing.Point(6, 94)
Me.ListBox6.Name = "ListBox6"
Me.ListBox6.Size = New System.Drawing.Size(146, 154)
Me.ListBox6.Size = New System.Drawing.Size(155, 154)
Me.ListBox6.TabIndex = 86
Me.ListBox6.ValueMember = "GUID"
'
@ -2049,7 +2121,7 @@ Partial Class frmAdministration
'lblValue
'
Me.lblValue.AutoSize = True
Me.lblValue.Location = New System.Drawing.Point(353, 47)
Me.lblValue.Location = New System.Drawing.Point(374, 47)
Me.lblValue.Name = "lblValue"
Me.lblValue.Size = New System.Drawing.Size(69, 15)
Me.lblValue.TabIndex = 85
@ -2058,10 +2130,11 @@ Partial Class frmAdministration
'INDEXNAME_AutoIndexCMB
'
Me.INDEXNAME_AutoIndexCMB.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True))
Me.INDEXNAME_AutoIndexCMB.Enabled = False
Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True
Me.INDEXNAME_AutoIndexCMB.Location = New System.Drawing.Point(167, 64)
Me.INDEXNAME_AutoIndexCMB.Location = New System.Drawing.Point(167, 63)
Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB"
Me.INDEXNAME_AutoIndexCMB.Size = New System.Drawing.Size(183, 23)
Me.INDEXNAME_AutoIndexCMB.Size = New System.Drawing.Size(198, 23)
Me.INDEXNAME_AutoIndexCMB.TabIndex = 84
'
'Label6
@ -2080,7 +2153,7 @@ Partial Class frmAdministration
Me.lblsaveAutoIndex.AutoSize = True
Me.lblsaveAutoIndex.BackColor = System.Drawing.Color.Yellow
Me.lblsaveAutoIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblsaveAutoIndex.Location = New System.Drawing.Point(601, 66)
Me.lblsaveAutoIndex.Location = New System.Drawing.Point(531, 192)
Me.lblsaveAutoIndex.Name = "lblsaveAutoIndex"
Me.lblsaveAutoIndex.Size = New System.Drawing.Size(192, 17)
Me.lblsaveAutoIndex.TabIndex = 82
@ -2089,6 +2162,7 @@ Partial Class frmAdministration
'
'btnSQLViewAuto
'
Me.btnSQLViewAuto.Enabled = False
Me.btnSQLViewAuto.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.btnSQLViewAuto.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSQLViewAuto.Location = New System.Drawing.Point(377, 138)
@ -2103,6 +2177,7 @@ Partial Class frmAdministration
'SQL_ACTIVECheckBox
'
Me.SQL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_ACTIVE", True))
Me.SQL_ACTIVECheckBox.Enabled = False
Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(167, 141)
Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox"
Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(198, 24)
@ -2123,14 +2198,16 @@ Partial Class frmAdministration
'VALUETextBox
'
Me.VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True))
Me.VALUETextBox.Location = New System.Drawing.Point(356, 65)
Me.VALUETextBox.Enabled = False
Me.VALUETextBox.Location = New System.Drawing.Point(377, 63)
Me.VALUETextBox.Name = "VALUETextBox"
Me.VALUETextBox.Size = New System.Drawing.Size(171, 23)
Me.VALUETextBox.Size = New System.Drawing.Size(209, 23)
Me.VALUETextBox.TabIndex = 11
'
'COMMENTTextBox1
'
Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "COMMENT", True))
Me.COMMENTTextBox1.Enabled = False
Me.COMMENTTextBox1.Location = New System.Drawing.Point(167, 111)
Me.COMMENTTextBox1.Name = "COMMENTTextBox1"
Me.COMMENTTextBox1.Size = New System.Drawing.Size(419, 23)
@ -2139,7 +2216,7 @@ Partial Class frmAdministration
'ACTIVECheckBox1
'
Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True))
Me.ACTIVECheckBox1.Location = New System.Drawing.Point(533, 64)
Me.ACTIVECheckBox1.Location = New System.Drawing.Point(786, 63)
Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1"
Me.ACTIVECheckBox1.Size = New System.Drawing.Size(63, 24)
Me.ACTIVECheckBox1.TabIndex = 17
@ -2150,40 +2227,40 @@ Partial Class frmAdministration
'
Me.ADDED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(167, 184)
Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(167, 225)
Me.ADDED_WHOTextBox3.Name = "ADDED_WHOTextBox3"
Me.ADDED_WHOTextBox3.ReadOnly = True
Me.ADDED_WHOTextBox3.Size = New System.Drawing.Size(172, 23)
Me.ADDED_WHOTextBox3.Size = New System.Drawing.Size(155, 23)
Me.ADDED_WHOTextBox3.TabIndex = 19
'
'ADDED_WHENTextBox3
'
Me.ADDED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(357, 184)
Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(356, 225)
Me.ADDED_WHENTextBox3.Name = "ADDED_WHENTextBox3"
Me.ADDED_WHENTextBox3.ReadOnly = True
Me.ADDED_WHENTextBox3.Size = New System.Drawing.Size(168, 23)
Me.ADDED_WHENTextBox3.Size = New System.Drawing.Size(155, 23)
Me.ADDED_WHENTextBox3.TabIndex = 21
'
'CHANGED_WHOTextBox3
'
Me.CHANGED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHOTextBox3.Location = New System.Drawing.Point(167, 228)
Me.CHANGED_WHOTextBox3.Location = New System.Drawing.Point(533, 225)
Me.CHANGED_WHOTextBox3.Name = "CHANGED_WHOTextBox3"
Me.CHANGED_WHOTextBox3.ReadOnly = True
Me.CHANGED_WHOTextBox3.Size = New System.Drawing.Size(172, 23)
Me.CHANGED_WHOTextBox3.Size = New System.Drawing.Size(155, 23)
Me.CHANGED_WHOTextBox3.TabIndex = 23
'
'CHANGED_WHENTextBox3
'
Me.CHANGED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(357, 228)
Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(694, 225)
Me.CHANGED_WHENTextBox3.Name = "CHANGED_WHENTextBox3"
Me.CHANGED_WHENTextBox3.ReadOnly = True
Me.CHANGED_WHENTextBox3.Size = New System.Drawing.Size(168, 23)
Me.CHANGED_WHENTextBox3.Size = New System.Drawing.Size(155, 23)
Me.CHANGED_WHENTextBox3.TabIndex = 25
'
'BindingNavigator2
@ -2202,7 +2279,7 @@ Partial Class frmAdministration
Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton19
Me.BindingNavigator2.Name = "BindingNavigator2"
Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox3
Me.BindingNavigator2.Size = New System.Drawing.Size(840, 25)
Me.BindingNavigator2.Size = New System.Drawing.Size(856, 25)
Me.BindingNavigator2.TabIndex = 4
Me.BindingNavigator2.Text = "BindingNavigator1"
'
@ -2304,9 +2381,10 @@ Partial Class frmAdministration
'INDEXNAME_AutoIndexTXT
'
Me.INDEXNAME_AutoIndexTXT.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True))
Me.INDEXNAME_AutoIndexTXT.Enabled = False
Me.INDEXNAME_AutoIndexTXT.Location = New System.Drawing.Point(167, 64)
Me.INDEXNAME_AutoIndexTXT.Name = "INDEXNAME_AutoIndexTXT"
Me.INDEXNAME_AutoIndexTXT.Size = New System.Drawing.Size(183, 23)
Me.INDEXNAME_AutoIndexTXT.Size = New System.Drawing.Size(198, 23)
Me.INDEXNAME_AutoIndexTXT.TabIndex = 28
'
'XtraTabPage9
@ -2316,7 +2394,7 @@ Partial Class frmAdministration
Me.XtraTabPage9.Controls.Add(Me.Label8)
Me.XtraTabPage9.Controls.Add(Me.ListBoxDokartzuordnung)
Me.XtraTabPage9.Name = "XtraTabPage9"
Me.XtraTabPage9.Size = New System.Drawing.Size(840, 253)
Me.XtraTabPage9.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage9.Text = "Zuordnung Dokumentenart-Gruppe"
'
'Button2
@ -2429,7 +2507,7 @@ Partial Class frmAdministration
'
Me.XtraTabPage10.Controls.Add(Me.GroupBox4)
Me.XtraTabPage10.Name = "XtraTabPage10"
Me.XtraTabPage10.Size = New System.Drawing.Size(840, 253)
Me.XtraTabPage10.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage10.Text = "Create Folder for Index"
'
'GroupBox4
@ -2575,6 +2653,7 @@ Partial Class frmAdministration
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.Enabled = False
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(621, 46)
Me.ComboBox1.Name = "ComboBox1"
@ -2652,11 +2731,10 @@ Partial Class frmAdministration
'
'lblSaveDokart
'
Me.lblSaveDokart.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSaveDokart.AutoSize = True
Me.lblSaveDokart.BackColor = System.Drawing.Color.Yellow
Me.lblSaveDokart.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSaveDokart.Location = New System.Drawing.Point(845, 231)
Me.lblSaveDokart.Location = New System.Drawing.Point(842, 231)
Me.lblSaveDokart.Name = "lblSaveDokart"
Me.lblSaveDokart.Size = New System.Drawing.Size(240, 17)
Me.lblSaveDokart.TabIndex = 78
@ -2665,6 +2743,7 @@ Partial Class frmAdministration
'
'btnNamenkonvention
'
Me.btnNamenkonvention.Enabled = False
Me.btnNamenkonvention.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.btnNamenkonvention.Location = New System.Drawing.Point(621, 232)
Me.btnNamenkonvention.Name = "btnNamenkonvention"
@ -2674,6 +2753,7 @@ Partial Class frmAdministration
'
'Button1
'
Me.Button1.Enabled = False
Me.Button1.Location = New System.Drawing.Point(858, 142)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(31, 23)
@ -2684,6 +2764,7 @@ Partial Class frmAdministration
'NAMENKONVENTIONTextBox
'
Me.NAMENKONVENTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True))
Me.NAMENKONVENTIONTextBox.Enabled = False
Me.NAMENKONVENTIONTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NAMENKONVENTIONTextBox.Location = New System.Drawing.Point(267, 231)
Me.NAMENKONVENTIONTextBox.Name = "NAMENKONVENTIONTextBox"
@ -2850,6 +2931,7 @@ Partial Class frmAdministration
'BEZEICHNUNGTextBox
'
Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True))
Me.BEZEICHNUNGTextBox.Enabled = False
Me.BEZEICHNUNGTextBox.Location = New System.Drawing.Point(330, 46)
Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox"
Me.BEZEICHNUNGTextBox.Size = New System.Drawing.Size(287, 23)
@ -2858,6 +2940,7 @@ Partial Class frmAdministration
'KURZNAMETextBox
'
Me.KURZNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True))
Me.KURZNAMETextBox.Enabled = False
Me.KURZNAMETextBox.Location = New System.Drawing.Point(267, 94)
Me.KURZNAMETextBox.Name = "KURZNAMETextBox"
Me.KURZNAMETextBox.Size = New System.Drawing.Size(94, 23)
@ -2866,6 +2949,7 @@ Partial Class frmAdministration
'ZIEL_PFADTextBox
'
Me.ZIEL_PFADTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ZIEL_PFAD", True))
Me.ZIEL_PFADTextBox.Enabled = False
Me.ZIEL_PFADTextBox.Location = New System.Drawing.Point(267, 142)
Me.ZIEL_PFADTextBox.Name = "ZIEL_PFADTextBox"
Me.ZIEL_PFADTextBox.Size = New System.Drawing.Size(585, 23)
@ -2874,6 +2958,7 @@ Partial Class frmAdministration
'BESCHREIBUNGTextBox
'
Me.BESCHREIBUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True))
Me.BESCHREIBUNGTextBox.Enabled = False
Me.BESCHREIBUNGTextBox.Location = New System.Drawing.Point(267, 186)
Me.BESCHREIBUNGTextBox.Name = "BESCHREIBUNGTextBox"
Me.BESCHREIBUNGTextBox.Size = New System.Drawing.Size(622, 23)
@ -2882,6 +2967,7 @@ Partial Class frmAdministration
'AKTIVCheckBox
'
Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True))
Me.AKTIVCheckBox.Enabled = False
Me.AKTIVCheckBox.Location = New System.Drawing.Point(554, 93)
Me.AKTIVCheckBox.Name = "AKTIVCheckBox"
Me.AKTIVCheckBox.Size = New System.Drawing.Size(63, 24)
@ -2932,10 +3018,11 @@ Partial Class frmAdministration
'OBJEKTTYPComboBox
'
Me.OBJEKTTYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "OBJEKTTYP", True))
Me.OBJEKTTYPComboBox.Enabled = False
Me.OBJEKTTYPComboBox.FormattingEnabled = True
Me.OBJEKTTYPComboBox.Location = New System.Drawing.Point(621, 94)
Me.OBJEKTTYPComboBox.Name = "OBJEKTTYPComboBox"
Me.OBJEKTTYPComboBox.Size = New System.Drawing.Size(345, 23)
Me.OBJEKTTYPComboBox.Size = New System.Drawing.Size(342, 23)
Me.OBJEKTTYPComboBox.TabIndex = 25
'
'XtraTabPage2
@ -3373,6 +3460,7 @@ Partial Class frmAdministration
'PRENAMETextBox
'
Me.PRENAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "PRENAME", True))
Me.PRENAMETextBox.Enabled = False
Me.PRENAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.PRENAMETextBox.Location = New System.Drawing.Point(90, 51)
Me.PRENAMETextBox.Name = "PRENAMETextBox"
@ -3382,6 +3470,7 @@ Partial Class frmAdministration
'NAMETextBox1
'
Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "NAME", True))
Me.NAMETextBox1.Enabled = False
Me.NAMETextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NAMETextBox1.Location = New System.Drawing.Point(299, 51)
Me.NAMETextBox1.Name = "NAMETextBox1"
@ -3391,6 +3480,7 @@ Partial Class frmAdministration
'USERNAMETextBox
'
Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "USERNAME", True))
Me.USERNAMETextBox.Enabled = False
Me.USERNAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.USERNAMETextBox.Location = New System.Drawing.Point(562, 51)
Me.USERNAMETextBox.Name = "USERNAMETextBox"
@ -3400,6 +3490,7 @@ Partial Class frmAdministration
'EMAILTextBox
'
Me.EMAILTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "EMAIL", True))
Me.EMAILTextBox.Enabled = False
Me.EMAILTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.EMAILTextBox.Location = New System.Drawing.Point(90, 92)
Me.EMAILTextBox.Name = "EMAILTextBox"
@ -3451,6 +3542,7 @@ Partial Class frmAdministration
'GI_ADMINCheckBox
'
Me.GI_ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "GI_ADMIN", True))
Me.GI_ADMINCheckBox.Enabled = False
Me.GI_ADMINCheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GI_ADMINCheckBox.Location = New System.Drawing.Point(562, 90)
Me.GI_ADMINCheckBox.Name = "GI_ADMINCheckBox"
@ -4369,4 +4461,7 @@ Partial Class frmAdministration
Friend WithEvents tsbtnCopyDoctype As System.Windows.Forms.ToolStripButton
Friend WithEvents SEQUENCENumericUpDown As System.Windows.Forms.NumericUpDown
Friend WithEvents ListBox6 As System.Windows.Forms.ListBox
Friend WithEvents lblWindowParameter As System.Windows.Forms.Label
Friend WithEvents lbFileparameter As System.Windows.Forms.ListBox
Friend WithEvents VARIANTComboBox As System.Windows.Forms.ComboBox
End Class

3
Global_Indexer/frmAdministration.resx
View File

@ -324,6 +324,9 @@
<metadata name="SEQUENCELabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="VARIANTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>

82
Global_Indexer/frmAdministration.vb
View File

@ -49,6 +49,9 @@
Else
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
End If
If MyDataset.TBDD_DOKUMENTART.Rows.Count > 0 Then
enableControls(XtraTabPage1)
End If
If Me.DOKART_GUIDTextBox.Text <> "" Then
Load_TabData()
End If
@ -159,6 +162,7 @@
Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
enableControls(XtraTabPage1)
IsInsert = True
End Sub
@ -256,6 +260,9 @@
Private Sub Load_INDEXMAN(DA_ID As Integer)
Try
Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID)
If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
enableControls(XtraTabPage3)
End If
Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
End Try
@ -264,6 +271,9 @@
Private Sub Load_INDEXE_AUTO(DA_ID As Integer)
Try
Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, DA_ID)
If MyDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
enableControls(XtraTabPage4)
End If
CheckIndexAutoWD()
Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
@ -272,8 +282,11 @@
End Sub
Private Sub Load_PostProcessing(DA_ID As Integer)
Try
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID)
Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, DA_ID)
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID)
If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
enableControls(XtraTabPage6)
End If
Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ")
End Try
@ -296,6 +309,7 @@
IsInsert = True
MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
enableControls(XtraTabPage3)
If GI_withWindream = True Then
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If
@ -350,6 +364,7 @@
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btnSQLView.Visible = True
Else
btnSQLView.Visible = False
End If
If IsInsert = False Then
@ -373,7 +388,9 @@
Else
Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER)
End If
If MyDataset.TBDD_USER.Rows.Count > 0 Then
enableControls(XtraTabPage2)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_User: ")
End Try
@ -524,6 +541,7 @@
Try
MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
enableControls(XtraTabPage4)
IsInsert = True
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexeAuto: ")
@ -543,11 +561,15 @@
Me.lblValue.Visible = False
VALUETextBox.Visible = False
VALUETextBox.Text = ""
lblWindowParameter.Visible = False
lbFileparameter.Visible = False
Else
Me.lblValue.Visible = True
VALUETextBox.Visible = True
VALUETextBox.Text = ""
btnSQLViewAuto.Visible = False
lblWindowParameter.Visible = True
lbFileparameter.Visible = True
End If
If IsInsert = False Then
Save_IndexAuto()
@ -638,8 +660,22 @@
Me.Function2Label.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
Case Else
Case "REG. EXPRESSION"
Me.Text1Label.Text = "Regulärer Ausdruck:"
Me.TEXT1TextBox.Visible = True
Me.Text2Label.Visible = False
Me.TEXT2TextBox.Visible = False
Me.Text3Label.Visible = False
Me.TEXT3TextBox.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
End Select
End If
@ -665,10 +701,18 @@
End Sub
Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
enableControls(XtraTabPage6)
MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
End Sub
Sub enableControls(obj As Object)
For Each element In obj.Controls
If element.enabled = False Then
element.enabled = True
End If
Next
End Sub
Private Sub ToolStripButton31_Click(sender As Object, e As EventArgs) Handles ToolStripButton31.Click
Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
End Sub
@ -924,4 +968,34 @@
Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging
Save_Dokumentart()
End Sub
Private Sub lblFileparameter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbFileparameter.SelectedIndexChanged
If Not lbFileparameter.SelectedItem Is Nothing Then
If GUIDAUTO_INDEXTextbox.Text <> "" Then
Dim value As String
Select Case lbFileparameter.SelectedItem.ToString.ToUpper
Case "Dateiname (mit Endung)".ToUpper
value = "$filename_ext"
Case "Dateiname (ohne Endung)".ToUpper
value = "$filename"
Case "Datei Erstelldatum".ToUpper
value = "$FileCreateDate"
Case "Datei Erstellt wer".ToUpper
value = "$FileCreatedWho"
Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
value = "$DateDDMMYYY"
End Select
If value <> "" Then
VALUETextBox.Text = value
Save_IndexAuto()
End If
Else
MsgBox("Bitte fügen Sie zuerst einen neuen Index hinzu!", MsgBoxStyle.Information)
End If
End If
End Sub
Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
enableControls(XtraTabPage2)
End Sub
End Class

134
Global_Indexer/frmConfig_Basic.designer.vb generated
View File

@ -36,7 +36,10 @@ Partial Class frmConfig_Basic
Me.txtServer = New System.Windows.Forms.TextBox()
Me.txtUser = New System.Windows.Forms.TextBox()
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.btnopenlog = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtuniversalViewer = New System.Windows.Forms.TextBox()
@ -50,14 +53,11 @@ Partial Class frmConfig_Basic
Me.btnFW_Desktop = New System.Windows.Forms.Button()
Me.txtFolderWatch = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.btnstartstop1 = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.btnopenlog = New System.Windows.Forms.Button()
Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.btnstartstop1 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
@ -197,6 +197,18 @@ Partial Class frmConfig_Basic
Me.txtPasswort.TabIndex = 38
Me.txtPasswort.UseSystemPasswordChar = True
'
'BtnConnect
'
Me.BtnConnect.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnConnect.Location = New System.Drawing.Point(302, 82)
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.Size = New System.Drawing.Size(253, 25)
Me.BtnConnect.TabIndex = 40
Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen"
Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnConnect.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.CheckBox3)
@ -215,6 +227,30 @@ Partial Class frmConfig_Basic
Me.TabPage2.Text = "Diverse Einstellungen"
Me.TabPage2.UseVisualStyleBackColor = True
'
'btnApplicationFolder
'
Me.btnApplicationFolder.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
Me.btnApplicationFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnApplicationFolder.Location = New System.Drawing.Point(11, 134)
Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.Size = New System.Drawing.Size(165, 23)
Me.btnApplicationFolder.TabIndex = 5
Me.btnApplicationFolder.Text = "Öffne AppFolder User"
Me.btnApplicationFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnApplicationFolder.UseVisualStyleBackColor = True
'
'btnopenlog
'
Me.btnopenlog.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
Me.btnopenlog.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnopenlog.Location = New System.Drawing.Point(11, 163)
Me.btnopenlog.Name = "btnopenlog"
Me.btnopenlog.Size = New System.Drawing.Size(165, 23)
Me.btnopenlog.TabIndex = 4
Me.btnopenlog.Text = "Öffne Log-Verzeichnis"
Me.btnopenlog.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnopenlog.UseVisualStyleBackColor = True
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
@ -340,6 +376,32 @@ Partial Class frmConfig_Basic
Me.Label6.TabIndex = 0
Me.Label6.Text = "Definieren Sie hier den Ordner welcher überwacht wird:"
'
'btnstartstop2
'
Me.btnstartstop2.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop2.Location = New System.Drawing.Point(408, 169)
Me.btnstartstop2.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop2.TabIndex = 9
Me.btnstartstop2.Text = "Überwachung starten"
Me.btnstartstop2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop2.UseVisualStyleBackColor = True
'
'btnstartstop1
'
Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop1.Location = New System.Drawing.Point(408, 57)
Me.btnstartstop1.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop1.Name = "btnstartstop1"
Me.btnstartstop1.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop1.TabIndex = 5
Me.btnstartstop1.Text = "Überwachung starten"
Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop1.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
@ -369,68 +431,6 @@ Partial Class frmConfig_Basic
Me.CheckBox2.Text = "Meldungsfenster nach Erfolg anzeigen?"
Me.CheckBox2.UseVisualStyleBackColor = True
'
'BtnConnect
'
Me.BtnConnect.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnConnect.Location = New System.Drawing.Point(302, 82)
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.Size = New System.Drawing.Size(253, 25)
Me.BtnConnect.TabIndex = 40
Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen"
Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnConnect.UseVisualStyleBackColor = True
'
'btnApplicationFolder
'
Me.btnApplicationFolder.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
Me.btnApplicationFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnApplicationFolder.Location = New System.Drawing.Point(11, 134)
Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.Size = New System.Drawing.Size(165, 23)
Me.btnApplicationFolder.TabIndex = 5
Me.btnApplicationFolder.Text = "Öffne AppFolder User"
Me.btnApplicationFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnApplicationFolder.UseVisualStyleBackColor = True
'
'btnopenlog
'
Me.btnopenlog.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
Me.btnopenlog.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnopenlog.Location = New System.Drawing.Point(11, 163)
Me.btnopenlog.Name = "btnopenlog"
Me.btnopenlog.Size = New System.Drawing.Size(165, 23)
Me.btnopenlog.TabIndex = 4
Me.btnopenlog.Text = "Öffne Log-Verzeichnis"
Me.btnopenlog.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnopenlog.UseVisualStyleBackColor = True
'
'btnstartstop2
'
Me.btnstartstop2.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop2.Location = New System.Drawing.Point(408, 169)
Me.btnstartstop2.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop2.TabIndex = 9
Me.btnstartstop2.Text = "Überwachung starten"
Me.btnstartstop2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop2.UseVisualStyleBackColor = True
'
'btnstartstop1
'
Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop1.Location = New System.Drawing.Point(408, 57)
Me.btnstartstop1.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop1.Name = "btnstartstop1"
Me.btnstartstop1.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop1.TabIndex = 5
Me.btnstartstop1.Text = "Überwachung starten"
Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop1.UseVisualStyleBackColor = True
'
'frmConfig_Basic
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

55
Global_Indexer/frmHistory.Designer.vb generated
View File

@ -36,6 +36,9 @@ Partial Class frmHistory
Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.TBGI_HISTORYTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_HISTORYTableAdapter()
Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
@ -44,8 +47,6 @@ Partial Class frmHistory
Me.colFILENAME_ORIGINAL = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colFILENAME_NEW = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
CType(Me.TBGI_HISTORYBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBGI_HISTORYBindingNavigator.SuspendLayout()
CType(Me.TBGI_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -59,9 +60,9 @@ Partial Class frmHistory
Me.TBGI_HISTORYBindingNavigator.AddNewItem = Nothing
Me.TBGI_HISTORYBindingNavigator.BindingSource = Me.TBGI_HISTORYBindingSource
Me.TBGI_HISTORYBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBGI_HISTORYBindingNavigator.CountItemFormat = "von {0} heute indexierten Dateien"
Me.TBGI_HISTORYBindingNavigator.CountItemFormat = "von {0} indexierten Dateien"
Me.TBGI_HISTORYBindingNavigator.DeleteItem = Nothing
Me.TBGI_HISTORYBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton1, Me.ToolStripButton2})
Me.TBGI_HISTORYBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3})
Me.TBGI_HISTORYBindingNavigator.Location = New System.Drawing.Point(0, 0)
Me.TBGI_HISTORYBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBGI_HISTORYBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
@ -86,8 +87,8 @@ Partial Class frmHistory
'BindingNavigatorCountItem
'
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(181, 22)
Me.BindingNavigatorCountItem.Text = "von {0} heute indexierten Dateien"
Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(148, 22)
Me.BindingNavigatorCountItem.Text = "von {0} indexierten Dateien"
Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente."
'
'BindingNavigatorMoveFirstItem
@ -150,6 +151,31 @@ Partial Class frmHistory
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(122, 22)
Me.ToolStripButton1.Text = "Alle Dateien laden"
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(144, 22)
Me.ToolStripButton2.Text = "Heutige Dateien laden"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = Global.Global_Indexer.My.Resources.Resources.Excel_25ixel
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Export Excel"
'
'TBGI_HISTORYTableAdapter
'
Me.TBGI_HISTORYTableAdapter.ClearBeforeFill = True
@ -236,22 +262,6 @@ Partial Class frmHistory
Me.colADDED_WHEN.VisibleIndex = 3
Me.colADDED_WHEN.Width = 140
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(122, 22)
Me.ToolStripButton1.Text = "Alle Dateien laden"
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(117, 22)
Me.ToolStripButton2.Text = "ToolStripButton2"
'
'frmHistory
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -295,4 +305,5 @@ Partial Class frmHistory
Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
End Class

52
Global_Indexer/frmHistory.vb
View File

@ -1,10 +1,54 @@
Public Class frmHistory
Private Sub frmHistory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_HISTORYTableAdapter.Fill(Me.MyDataset.TBGI_HISTORY, user)
LoadData_Today()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_HISTORYTableAdapter.FillByAll(Me.MyDataset.TBGI_HISTORY, user)
Catch ex As Exception
MsgBox("Error loading All Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
LoadData_Today()
End Sub
Sub LoadData_Today()
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_HISTORYTableAdapter.FillToday(Me.MyDataset.TBGI_HISTORY, user)
Catch ex As Exception
MsgBox("Error loading Today Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx"
saveFileDialog1.Title = "Export to Excel:"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Cursor = Cursors.WaitCursor
If saveFileDialog1.FileName.EndsWith("xlsx") Then
GridView1.ExportToXlsx(saveFileDialog1.FileName)
Else
GridView1.ExportToXls(saveFileDialog1.FileName)
End If
Dim result As MsgBoxResult
result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(saveFileDialog1.FileName)
End If
End If
Cursor = Cursors.Default
End Sub
End Class

34
Global_Indexer/frmIndex.designer.vb generated
View File

@ -38,7 +38,7 @@ Partial Class frmIndex
Me.chkdelete_origin = New System.Windows.Forms.CheckBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtIndexfilepath = New System.Windows.Forms.TextBox()
Me.OK_Button = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.MyDataset = New Global_Indexer.MyDataset()
Me.VWDDINDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWDDINDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_MANTableAdapter()
@ -220,7 +220,7 @@ Partial Class frmIndex
Me.Panel2.Controls.Add(Me.chkdelete_origin)
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Controls.Add(Me.txtIndexfilepath)
Me.Panel2.Controls.Add(Me.OK_Button)
Me.Panel2.Controls.Add(Me.btnOK)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel2.Location = New System.Drawing.Point(0, 373)
Me.Panel2.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
@ -277,19 +277,19 @@ Partial Class frmIndex
Me.txtIndexfilepath.Size = New System.Drawing.Size(519, 34)
Me.txtIndexfilepath.TabIndex = 1
'
'OK_Button
'btnOK
'
Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.OK_Button.Image = Global.Global_Indexer.My.Resources.Resources.Go
Me.OK_Button.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.OK_Button.Location = New System.Drawing.Point(387, 6)
Me.OK_Button.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(134, 30)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "Indexiere Datei"
Me.OK_Button.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnOK.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnOK.Image = Global.Global_Indexer.My.Resources.Resources.Go
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(354, 6)
Me.btnOK.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(167, 30)
Me.btnOK.TabIndex = 0
Me.btnOK.Text = "Indexiere Datei"
Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'MyDataset
'
@ -697,10 +697,10 @@ Partial Class frmIndex
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout
Me.PerformLayout()
End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button
End Sub
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox

9
Global_Indexer/frmIndex.resx
View File

@ -120,6 +120,9 @@
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@ -147,6 +150,12 @@
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1212, 173</value>
</metadata>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1477, 173</value>
</metadata>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1212, 173</value>
</metadata>
<metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>244, 56</value>
</metadata>

168
Global_Indexer/frmIndex.vb
View File

@ -5,6 +5,8 @@ Imports System.Text.RegularExpressions
Imports Independentsoft
Imports Oracle.ManagedDataAccess.Client
Imports System.Text
Imports System.Security.AccessControl
Imports System.Security.Principal
Public Class frmIndex
#Region "+++++ Variablen ++++++"
@ -155,7 +157,7 @@ Public Class frmIndex
g.Dispose()
End If
Get_NextComboBoxResults(cmb)
SendKeys.Send("{TAB}")
End If
@ -334,7 +336,7 @@ Public Class frmIndex
' Return 99
' End Try
' End Function
Function GetManIndex_Value(indexname As String)
Function GetManIndex_Value(indexname As String, RequestFor As String)
Try
Dim DT As DataTable
Dim DR As DataRow
@ -342,18 +344,40 @@ Public Class frmIndex
For Each DR In DT.Rows
If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then
If DR.Item("Indexiert") = True Then
If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index: " & indexname, False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
Return DR.Item("Indexwert")
Else
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True)
If optional_index = False Then
ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False)
showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
End If
Return ""
End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index: " & indexname, False)
Select Case RequestFor
Case "FILE"
If DR.Item("Indexwert_File").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Es liegt ein separater nachbearbeiteter Wert für die Dateibenennung vor: " & DR.Item("Indexwert_File").ToString, False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener NachbearbeitungsWert: " & DR.Item("Indexwert_File"), False)
Return DR.Item("Indexwert_File")
Else
If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
Console.WriteLine("Rückgabe manueller wert: " & DR.Item("Indexwert"))
Return DR.Item("Indexwert")
Else
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True)
If optional_index = False Then
ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False)
showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
End If
Return ""
End If
End If
Case Else
If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
Return DR.Item("Indexwert")
Else
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True)
If optional_index = False Then
ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False)
showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
End If
Return ""
End If
End Select
Else
showlblhinweis("Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
Return ""
@ -467,7 +491,7 @@ Public Class frmIndex
runinLZ = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
End If
Dim newCMB As ComboBox
@ -529,9 +553,9 @@ Public Class frmIndex
End If
End If
End If
@ -717,25 +741,39 @@ Public Class frmIndex
End Function
Sub Indexwert_Postprocessing(indexname As String, wert As String)
Sub Indexwert_Postprocessing(indexname As String, wert_in As String)
Try
Dim DT As DataTable
Dim DR As DataRow
DT = MyDataset.VWDDINDEX_MAN
Dim value_post As String = ""
For Each DR In DT.Rows
If DR.Item("INDEXNAME") = indexname Then
Dim idxid As Integer = DR.Item("GUID")
If idxid > 0 Then
' In jedem Fall schon mal den Wert einfügen
DR.Item("Indexwert") = wert_in
'Die Nachbearbeitungsschritte laden
Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " ORDER BY SEQUENCE")
'FILE AND INDEX
'Zuerst nur die Fälle für die Variante ONLY FILE/FOLDER
Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " AND VARIANT = 'ONLY FILE/FOLDER' ORDER BY SEQUENCE")
If DTNB Is Nothing = False Then
If DTNB.Rows.Count > 0 Then
wert = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert, DTNB)
value_post = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
DR.Item("Indexwert") = wert_in
DR.Item("Indexwert_File") = value_post
End If
End If
'Jetzt die Fälle für die Variante FILE AND INDEX
DTNB = Nothing
DTNB = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " AND VARIANT = 'FILE AND INDEX' ORDER BY SEQUENCE")
If DTNB Is Nothing = False Then
If DTNB.Rows.Count > 0 Then
value_post = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
DR.Item("Indexwert") = value_post
End If
End If
End If
DR.Item("Indexwert") = wert
DR.Item("Indexiert") = True
End If
Next
@ -823,7 +861,7 @@ Public Class frmIndex
Case "M"
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index wird geprüft...", False)
Dim Indexname = element.Value.Substring(3, element.Value.Length - 4)
Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4))
Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4), "FILE")
If value <> String.Empty Then
DATEINAME = DATEINAME.Replace(element.Value, value)
NewFileString = DATEINAME
@ -848,7 +886,7 @@ Public Class frmIndex
AnzahlIndexe += 1
sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
End If
Else
ClassLogger.Add(" >> Der Indexvalue für Index '" & Indexname & "' ist String.Empty", False)
err = True
@ -945,9 +983,12 @@ Public Class frmIndex
'Manuelle Indexe Indexieren
Dim DTMan As DataTable = MyDataset.VWDDINDEX_MAN
If DTMan.Rows.Count > 0 Then
Dim Count As Integer = 0
For Each row As DataRow In DTMan.Rows
If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then
Dim idxvalue = row.Item("Indexwert")
Dim indexname = row.Item("WD_INDEX").ToString
If CBool(row.Item("Indexiert")) = True And idxvalue.ToString <> "" Then
'Den Indexwert zwischenspeichern
Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS
Dim rowexists As Boolean = False
@ -969,8 +1010,8 @@ Public Class frmIndex
End If
Dim indexname = row.Item("WD_INDEX").ToString
Dim idxvalue = row.Item("Indexwert")
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Indexvalue: " & idxvalue.ToString, False)
Count += 1
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
@ -988,8 +1029,6 @@ Public Class frmIndex
If DTAut.Rows.Count > 0 Then
Dim Count As Integer = 0
For Each row As DataRow In DTAut.Rows
Console.WriteLine(row.Item("Indexwert"))
Console.WriteLine(row.Item("Indexiert").ToString)
If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then
Dim indexname = row.Item("INDEXNAME").ToString
Dim idxvalue = row.Item("Indexwert")
@ -1299,7 +1338,7 @@ Public Class frmIndex
'If Not IsNothing(DocView) And viewer_string <> "" Then
' DocView.CloseView(viewer_string, 0)
'Else
'End If
End Sub
Private Sub frmIndex_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@ -1339,6 +1378,7 @@ Public Class frmIndex
End If
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)
MULTIINDEXING_ACTIVE = False
If MULTIFILES > 0 Then
chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
chkMultiIndexer.Checked = False
@ -1505,12 +1545,6 @@ Public Class frmIndex
cmbName.Items.Add(Value)
End Sub
'
' Private Sub lblhinweis_Click(sender As System.Object, e As System.EventArgs) Handles lblhinweis.Click
' End Sub
Function FillIndexe_Autom(dokart_id As Integer)
Try
Me.VWINDEX_AUTOMTableAdapter.Fill(Me.MyDataset.VWDDINDEX_AUTOM, CURRENT_DOKART_ID)
@ -1518,8 +1552,9 @@ Public Class frmIndex
If DT_INDEXAUTOM.Rows.Count > 0 Then
' MsgBox(DT.Rows.Count.ToString)
For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows
If LogErrorsOnly = False Then ClassLogger.Add(" ...Build Automatischer Index '" & DR_AUTOINDEX.Item("INDEXNAME") & "'", False)
If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty Then
Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
If LogErrorsOnly = False Then ClassLogger.Add(" ...Build Automatischer Index '" & indexname & "'", False)
If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' SQL-String für aktuellen INdex laden
@ -1538,7 +1573,7 @@ Public Class frmIndex
Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
If LogErrorsOnly = False Then ClassLogger.Add(" ...elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
'den Platzhalter im SQL-String durch den Wert ersetzen
Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen)
Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
If manIndexwert <> "" Then
SqlString = SqlString.Replace(element.Value, manIndexwert)
If LogErrorsOnly = False Then ClassLogger.Add(" ...zusammengesetzter SQL-String: " & SqlString, False)
@ -1562,10 +1597,35 @@ Public Class frmIndex
Else
If Not IsDBNull(DR_AUTOINDEX.Item("VALUE")) Then
If DR_AUTOINDEX.Item("VALUE") <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Indexwert wird gespeichert: " & DR_AUTOINDEX.Item("VALUE"), False)
Console.WriteLine(DR_AUTOINDEX.Item("VALUE"))
Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE")
'Indexierung mit WindowsVariable
If DEFAULTVALUE.StartsWith("$") Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
Select Case DEFAULTVALUE.ToUpper
Case "$filename_ext".ToUpper
DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
Case "$filename".ToUpper
DEFAULTVALUE = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)
Case "$FileCreateDate".ToUpper
Dim FI As New FileInfo(CURRENT_WORKFILE)
Dim CreationDate As Date = FI.CreationTime
DEFAULTVALUE = CreationDate.ToShortDateString
Case "$FileCreatedWho".ToUpper
Dim fs As FileSecurity = File.GetAccessControl(CURRENT_WORKFILE)
Dim sid As IdentityReference = fs.GetOwner(GetType(SecurityIdentifier))
Dim ntaccount As IdentityReference = sid.Translate(GetType(NTAccount))
Dim owner As String = ntaccount.ToString()
DEFAULTVALUE = owner
Case "$DateDDMMYYY".ToUpper
DEFAULTVALUE = System.DateTime.Now.ToShortDateString
End Select
If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
End If
'Den Wert in der Zwischentabelle speichern
DR_AUTOINDEX.Item("Indexiert") = True
DR_AUTOINDEX.Item("Indexwert") = DR_AUTOINDEX.Item("VALUE")
DR_AUTOINDEX.Item("Indexwert") = DEFAULTVALUE
End If
End If
End If
@ -1585,7 +1645,7 @@ Public Class frmIndex
Private Sub btnVorschau_Click(sender As System.Object, e As System.EventArgs)
PreviewFile()
End Sub
Sub PreviewFile()
Try
Dim Proc As New System.Diagnostics.Process
@ -1770,7 +1830,7 @@ Public Class frmIndex
Return False
End Try
End Function
Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles OK_Button.Click
Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles btnOK.Click
lblhinweis.Visible = False
lblerror.Visible = False
Me.Cursor = Cursors.WaitCursor
@ -1800,7 +1860,7 @@ Public Class frmIndex
Next
Me.Cursor = Cursors.Default
If err = False Then
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
Me.Close()
End If
End If
@ -1846,7 +1906,7 @@ Public Class frmIndex
CrFolderForIndex(CURRENT_NEWFILENAME, Folder_for_index)
End If
End If
'Kein Fehler in Setzen der windream-Indizes
Dim Insert_String As String
@ -1873,7 +1933,7 @@ Public Class frmIndex
End Try
End If
End If
Catch ex As Exception
MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add(" - Fehler bei Insert-History - Fehler: " & vbNewLine & ex.Message)
@ -1944,7 +2004,7 @@ Public Class frmIndex
Case "M"
Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False)
Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname)
Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname, "FILE")
If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False)
If Not ManIndex_Value = String.Empty Then
If IsDate(ManIndex_Value) Then
@ -2163,4 +2223,14 @@ Public Class frmIndex
End Select
Me.Close()
End Sub
Private Sub chkMultiIndexer_CheckedChanged(sender As Object, e As EventArgs) Handles chkMultiIndexer.CheckedChanged
If chkMultiIndexer.Checked Then
Me.btnOK.Text = "Dateien indexieren"
MULTIINDEXING_ACTIVE = True
Else
Me.btnOK.Text = "Indexiere Datei"
MULTIINDEXING_ACTIVE = False
End If
End Sub
End Class

1
Global_Indexer/frmSQLSuggestion.vb
View File

@ -111,6 +111,7 @@ Public Class frmSQLSuggestion
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
ClassDatabase.Init()
Dim origresultstring = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True)
Dim origcheckstring = ClassDatabase.Execute_Scalar("SELECT SQL_CHECK FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True)
Dim origConnection = ClassDatabase.Execute_Scalar("SELECT CONNECTION_ID FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True)

25
Global_Indexer/frmStart.Designer.vb generated
View File

@ -32,7 +32,7 @@ Partial Class frmStart
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FrmHotkeyAddToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AApiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblFW = New System.Windows.Forms.ToolStripStatusLabel()
@ -43,7 +43,7 @@ Partial Class frmStart
Me.TimerFolderWatch = New System.Windows.Forms.Timer(Me.components)
Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
@ -62,7 +62,7 @@ Partial Class frmStart
'KonfigurationToolStripMenuItem
'
Me.KonfigurationToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.AApiToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem})
Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem, Me.InfoToolStripMenuItem})
Me.KonfigurationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.gear_32xLG
Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem"
Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(108, 20)
@ -108,12 +108,11 @@ Partial Class frmStart
Me.FrmHotkeyAddToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.FrmHotkeyAddToolStripMenuItem.Text = "Hotkey-Funktion User"
'
'AApiToolStripMenuItem
'HistoryIndexierteDateienToolStripMenuItem
'
Me.AApiToolStripMenuItem.Name = "AApiToolStripMenuItem"
Me.AApiToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.AApiToolStripMenuItem.Text = "AApi"
Me.AApiToolStripMenuItem.Visible = False
Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem"
Me.HistoryIndexierteDateienToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.HistoryIndexierteDateienToolStripMenuItem.Text = "History - Indexierte Dateien"
'
'StatusStrip1
'
@ -190,11 +189,11 @@ Partial Class frmStart
Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon)
Me.NotifyIcon1.Text = "GlobalIndexer"
'
'HistoryIndexierteDateienToolStripMenuItem
'InfoToolStripMenuItem
'
Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem"
Me.HistoryIndexierteDateienToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.HistoryIndexierteDateienToolStripMenuItem.Text = "History - Indexierte Dateien"
Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.InfoToolStripMenuItem.Text = "Info"
'
'frmStart
'
@ -229,7 +228,6 @@ Partial Class frmStart
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents GrundeinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FrmHotkeyAddToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AApiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents tslblstatus As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tslblFW As System.Windows.Forms.ToolStripStatusLabel
@ -241,4 +239,5 @@ Partial Class frmStart
Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents HistoryIndexierteDateienToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents InfoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class

148
Global_Indexer/frmStart.vb
View File

@ -103,15 +103,15 @@ Public Class frmStart
Next
Me.TopMost = True
Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
Dim DTFiles As DataTable = ClassDatabase.Return_Datatable(sql, True)
If DTFiles.Rows.Count > 1 Then
DTACTUAL_FILES = Nothing
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
If DTACTUAL_FILES.Rows.Count > 1 Then
frmIndexFileList.ShowDialog()
DTFiles = ClassDatabase.Return_Datatable(sql, True)
DTACTUAL_FILES = Nothing
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
End If
For Each Filerow As DataRow In DTFiles.Rows
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim filestring As String = Filerow.Item("FILENAME2WORK")
CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")
CURRENT_WORKFILE_GUID = Filerow.Item(0)
@ -119,40 +119,13 @@ Public Class frmStart
If LogErrorsOnly = False Then ClassLogger.Add(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE, False)
If File.Exists(CURRENT_WORKFILE) Then
Open_IndexDialog()
Else
Console.WriteLine("File existiert nicht mehr!")
End If
Next
''Prüfen ob alle Files abgearbeitet wurden
'Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE not like '%@FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
'If DT.Rows.Count > 0 Then
' For Each row As DataRow In DT.Rows
' Dim filestring As String = row.Item(1)
' filestring = filestring.Substring(filestring.LastIndexOf("@") + 1)
' Select Case CURRENT_ABBRUCH
' Case 0
' CURRENT_ABBRUCH = 1
' Case 1
' CURRENT_ABBRUCH = 2
' Case 2
' CURRENT_ABBRUCH = 0
' End Select
' If File.Exists(filestring) Then
' MsgBox("Es sind noch Dateien zum Indexieren vorhanden:" & vbNewLine & "Bitte indexieren Sie die folgende Datei vollständig:", MsgBoxStyle.Exclamation)
' CURRENT_WORKFILE = row.Item(1)
' CURRENT_FILENAME = row.Item(1)
' CURRENT_WORKFILE_GUID = row.Item(0)
' Open_IndexDialog()
' Else
' ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0))
' End If
' Next
'End If
'Catch ex As Exception
' MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical)
'End Try
End Sub
Sub Open_IndexDialog()
Try
Me.Hide()
@ -169,7 +142,21 @@ Public Class frmStart
Dim result As MsgBoxResult
result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
Try
'Zuerst die Daten des Ablaufs löschen
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim filestring As String = Filerow.Item("FILENAME2WORK")
Dim handletype As String = Filerow.Item("HANDLE_TYPE")
If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then
System.IO.File.Delete(filestring)
End If
Next
Catch ex As Exception
MsgBox("Fehler bei Abbruch der Indexierung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
CURRENT_ABBRUCH = 0
Exit Sub
Else
@ -185,18 +172,26 @@ Public Class frmStart
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
Dim sql = sql_User_Login
sql = sql.Replace("@LogInOut", 0)
sql = sql.Replace("@ANGEMELDETWO", "''")
sql = sql.Replace("@user", Environment.UserName)
ClassDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql)
ClassLogger.Add("", False)
If START_INCOMPLETE = False Then
Dim sql = sql_User_Login
sql = sql.Replace("@LogInOut", 0)
sql = sql.Replace("@ANGEMELDETWO", "''")
sql = sql.Replace("@user", Environment.UserName)
ClassDatabase.Execute_non_Query(sql)
If Not USER_GUID Is Nothing Then
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql)
End If
End If
ClassWindowLocation.SaveFormLocationSize(Me)
Catch ex As Exception
End Try
Unregister_Hotkeys()
If Not USER_GUID Is Nothing Then
Unregister_Hotkeys()
End If
End Sub
Sub Refresh_Licence()
@ -234,16 +229,12 @@ Public Class frmStart
'Me.TransparencyKey = Color.Transparent
' Me.BackColor = Color.Transparent
Try
If Environment.UserName.ToLower = "schreiberm" Then
AApiToolStripMenuItem.Visible = True
Else
AApiToolStripMenuItem.Visible = False
End If
Me.Opacity = 30
ClassWindowLocation.LoadFormLocationSize(Me)
Dim sql = sql_UserID
sql = sql.Replace("@user", Environment.UserName)
ClassLogger.Init("", "log_" & Environment.UserName)
ClassLogger.Add(">> Programmstart: " & Now, False)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
LoadMyConfig()
@ -251,21 +242,31 @@ Public Class frmStart
frmConfig_Basic.ShowDialog()
End If
If ClassDatabase.Init() = False Then
MsgBox("Es konnte keine Datenbankverbindung aufgebaut werden!" & vbNewLine & "Bitte prüfen Sie die Einstellungen und den Datenbankserver", MsgBoxStyle.Critical)
Me.Close()
MsgBox("Es konnte keine Datenbankverbindung aufgebaut werden!" & vbNewLine & "Bitte prüfen Sie die Konfiguration der Datenbankverbindung und ggfls. den Datenbankserver", MsgBoxStyle.Critical)
frmConfig_Basic.ShowDialog()
End If
If ClassDatabase.Init() = False Then
ClassLogger.Add(" >> Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
End If
If UniversalViewer = String.Empty And My.Settings.DoNot_Show_Documents = False Then
frmConfig_Basic.ShowDialog()
End If
If MyConnectionString = String.Empty Then
Me.Close()
ClassLogger.Add(" >> Kein Connection-String definiert - Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
End If
Refresh_Licence()
USER_GUID = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If USER_GUID Is Nothing Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt!", False)
ClassLogger.Add(" - ACHTUNG: User '" & Environment.UserName & "' nicht in der Userverwaltung hinterlegt!", False)
MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close()
ClassLogger.Add(" >> Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
Else
CURRENT_USERID = USER_GUID
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString)
@ -284,7 +285,8 @@ Public Class frmStart
If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close()
START_INCOMPLETE = True
Exit Sub
Else
'Am System anmelden
sql = sql_User_Login
@ -292,7 +294,8 @@ Public Class frmStart
sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
sql = sql.Replace("@user", Environment.UserName)
If ClassDatabase.Execute_non_Query(sql, True) = False Then
Me.Close()
START_INCOMPLETE = True
Exit Sub
End If
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql, True)
@ -312,7 +315,8 @@ Public Class frmStart
'Lizenz abgellaufen, überprüfen ob User Admin ist
If License_Expired And ISUserAdmin = False Then
' wenn ja dann schliessen
Me.Close()
START_INCOMPLETE = True
Exit Sub
Else
'ansonsten timer starten
TimerClose3Minutes.Start()
@ -323,7 +327,8 @@ Public Class frmStart
MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & License_Anzahl.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" - Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen für Process-Manager!", False)
If ISUserAdmin = False Then
Me.Close()
START_INCOMPLETE = True
Exit Sub
Else
'ansonsten timer starten
If TimerClose3Minutes.Enabled = False Then
@ -336,7 +341,8 @@ Public Class frmStart
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
If LogErrorsOnly = False Then ClassLogger.Add(" - Anzahl Angemeldete User: " & anzahl.ToString, False)
If Load_BasicConfig() = False Then
Me.Close()
START_INCOMPLETE = True
Exit Sub
End If
Unregister_Hotkeys()
Load_Hotkeys()
@ -443,10 +449,15 @@ Public Class frmStart
' Dim fil As String
Me.TimerFolderWatch.Stop()
For Each row As DataRow In DT.Rows
CURRENT_WORKFILE = row.Item(1)
CURRENT_FILENAME = row.Item(1)
CURRENT_WORKFILE_GUID = row.Item("GUID")
Open_IndexDialog()
If ClassFilehandle.IsFileInUse(row.Item(1)) = True Then
CURRENT_WORKFILE = row.Item(1)
CURRENT_FILENAME = row.Item(1)
CURRENT_WORKFILE_GUID = row.Item("GUID")
Open_IndexDialog()
Else
ClassLogger.Add(">> Datei '" & row.Item(1) & "' kann nicht exclusiv geöffnet werden!", False)
End If
Next
Me.TimerFolderWatch.Start()
End If
@ -458,15 +469,16 @@ Public Class frmStart
MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
If License_Expired = True Or License_Anzahl < UserLoggedin Then
MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
Me.Close()
End If
End Sub
Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If START_INCOMPLETE = True Then
Me.Close()
End If
loaded = True
Opacity = 0.65
TimerFolderWatch.Start()
@ -475,4 +487,8 @@ Public Class frmStart
Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
frmHistory.ShowDialog()
End Sub
Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click
AboutBox1.ShowDialog()
End Sub
End Class

9
SetupWix/Product.wxs
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
<Product Name="Global Indexer" Id="*" UpgradeCode="{930076B5-9D2B-455F-920F-9718ED091D0C}" Version="1.7.0.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
<Product Name="Global Indexer" Id="*" UpgradeCode="{930076B5-9D2B-455F-920F-9718ED091D0C}" Version="1.7.2.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
<Package Id="*" Keywords="Installer" Description="Digital Data Global Indexer Setup" Comments="Global Indexer is a registered Trademark of Digital Data" Manufacturer="Digital Data" InstallerVersion="100" Languages="1031" Compressed="yes" SummaryCodepage="1252"/>
<!-- Nicht entfernen! -->
@ -47,11 +47,10 @@
<Directory Id="TARGETDIR" Name="SourceDir">
<Directory Id="ProgramFilesFolder" Name="Pfiles">
<Directory Id="DD" Name="Digital Data">
<!-- Speichert den Installationsort in der Registry -->
<Component Id="RegistryEntries" Guid="57CCE36E-F152-4D17-81A0-CCAAEFA777A3">
<RegistryKey Root="HKCU" Key="Software\[Manufacturer]\[ProductName]">
<RegistryValue Type="string" Name="Path" Value="[DD]" KeyPath="yes" />
<RegistryValue Type="string" Name="Path" Value="[INSTALLDIR]" KeyPath="yes" />
</RegistryKey>
</Component>
@ -64,8 +63,8 @@
<Shortcut Id="StartMenuShortcut" Directory="ProgramMenuDir" Name="Global Indexer" WorkingDirectory="INSTALLDIR" Icon="GlobalIndexer.exe" IconIndex="0" Advertise="yes" />
<Shortcut Id="DesktopShortcut" Directory="DesktopFolder" Name="Global Indexer" WorkingDirectory="INSTALLDIR" Icon="GlobalIndexer.exe" IconIndex="0" Advertise="yes" />
</File>
<!-- Programmordner bei Deinstallation entfernen-->
<util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" />
<!--Programmordner bei Deinstallation entfernen-->
<util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" />
</Component>
<!-- Die ReleaseNotes -->
<Component Id="ReleaseNotes" Guid="D1496E4D-98C2-4849-9914-DB47D47CC6BE">