diff --git a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache index 715c91b..671ed4a 100644 Binary files a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache and b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache differ diff --git a/app/DD_PM_WINDREAM/ClassFinalIndex.vb b/app/DD_PM_WINDREAM/ClassFinalIndex.vb index 9beac2d..c71afd0 100644 --- a/app/DD_PM_WINDREAM/ClassFinalIndex.vb +++ b/app/DD_PM_WINDREAM/ClassFinalIndex.vb @@ -1,3 +1,112 @@ Public Class ClassFinalIndex + Public Const INDEX_TYPE_STRING = 1 + Public Const INDEX_TYPE_INTEGER = 2 + Public Const INDEX_TYPE_FLOAT = 3 + Public Const INDEX_TYPE_BOOLEAN = 4 + Public Const INDEX_TYPE_DATE = 5 + Public Const INDEX_TYPE_VECTOR_INTEGER = 4107 + Public Const INDEX_TYPE_VECTOR_STRING = 4097 + Public Const INDEX_TYPE_VECTOR_BOOLEAN = 4100 + Public Const INDEX_TYPE_VECTOR_DATE = 4101 + + Public Const PREFIX_VECTOR = "[%VKT" + + Public Shared Function GetValue(obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer), isVector As Boolean) + Try + Dim props As FinalIndexProperties = obj + Dim i As Integer = indcies.IndexOf(indexName) + Dim type As Integer = types.Item(i) + Dim value As String = "" + + If type = INDEX_TYPE_STRING Or type = INDEX_TYPE_VECTOR_STRING Then + value = props.StringValue + ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_VECTOR_INTEGER Then + value = props.IntegerValue.ToString + ElseIf type = INDEX_TYPE_FLOAT Then + value = props.FloatValue.ToString + ElseIf type = INDEX_TYPE_BOOLEAN Or type = INDEX_TYPE_VECTOR_BOOLEAN Then + value = IIf(props.BoolValue, "1", "0") + End If + + Return value + + 'If isVector Then + ' Return $"{PREFIX_VECTOR}{value}" + 'Else + ' Return value + 'End If + Catch ex As Exception + MsgBox($"Error in GetValue: {ex.Message}", MsgBoxStyle.Critical) + End Try + End Function + + Public Shared Function SetValue(value As String, obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer)) + Try + Dim props As FinalIndexProperties = obj + Dim i As Integer = indcies.IndexOf(indexName) + + If Not indcies.Contains(indexName) Then + Return obj + End If + + Dim type As Integer = types.Item(i) + Dim isVector = value.StartsWith(PREFIX_VECTOR) + + If isVector Then + value = value.Replace(PREFIX_VECTOR, String.Empty) + End If + + props.VectorIndex = isVector + + If type = INDEX_TYPE_STRING Or type = INDEX_TYPE_VECTOR_STRING Then + value = NotNull(value, "") + + props.StringValue = value + ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_VECTOR_INTEGER Then + value = NotNull(Of Integer)(value, 0) + + If value = String.Empty Then + props.IntegerValue = 0 + Else + props.IntegerValue = Integer.Parse(value) + End If + ElseIf type = INDEX_TYPE_FLOAT Then + value = NotNull(Of Double)(value, 0) + + If value = String.Empty Then + props.FloatValue = 0 + Else + props.FloatValue = Double.Parse(value) + End If + ElseIf type = INDEX_TYPE_BOOLEAN Or type = INDEX_TYPE_VECTOR_BOOLEAN Then + value = NotNull(value, "False") + + If value = "1" Or value.ToLower = "true" Then + props.BoolValue = True + Else + props.BoolValue = False + End If + End If + + Return props + Catch ex As Exception + MsgBox($"Error in SetValue: {ex.Message}", MsgBoxStyle.Critical) + End Try + End Function + + Public Shared Function IsVectorIndex(type As Integer) As Boolean + If type = INDEX_TYPE_VECTOR_BOOLEAN Or type = INDEX_TYPE_VECTOR_DATE Or type = INDEX_TYPE_VECTOR_INTEGER Or type = INDEX_TYPE_VECTOR_STRING Then + Return True + Else + Return False + End If + End Function + + Public Shared Function GetIndexType(indexName As String, indicies As List(Of String), types As List(Of Integer)) + Dim position As Integer = indicies.IndexOf(indexName) + Dim type As Integer = types.Item(position) + + Return type + End Function End Class diff --git a/app/DD_PM_WINDREAM/ClassIndexListConverter.vb b/app/DD_PM_WINDREAM/ClassIndexListConverter.vb new file mode 100644 index 0000000..1c1c800 --- /dev/null +++ b/app/DD_PM_WINDREAM/ClassIndexListConverter.vb @@ -0,0 +1,31 @@ +Imports System.ComponentModel +Imports System.Globalization + +Public Class IndexListConverter + Inherits TypeConverter + + Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean + Return True + End Function + + Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection + Dim indexList = New List(Of String) + + If TypeOf (context.Instance) Is FinalIndexProperties Then + indexList = DirectCast(context.Instance, FinalIndexProperties).Indicies + ElseIf TypeOf (context.Instance) Is InputProperties Then + indexList = DirectCast(context.Instance, InputProperties).Indicies + End If + + Dim values As New StandardValuesCollection(indexList) + Return values + End Function + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object + If IsNothing(value) Then + Return "" + Else + Return value.ToString() + End If + End Function +End Class diff --git a/app/DD_PM_WINDREAM/ClassPMWindream.vb b/app/DD_PM_WINDREAM/ClassPMWindream.vb index d0c1c8b..6896043 100644 --- a/app/DD_PM_WINDREAM/ClassPMWindream.vb +++ b/app/DD_PM_WINDREAM/ClassPMWindream.vb @@ -27,6 +27,8 @@ Public Class ClassPMWindream Const WMObjectVariableValueTypeVector = &H1000 Const WMObjectVariableValueTypeFulltext = &H2000 Const WMObjectVariableValueTypeDefaultValue = &H4000 + + Const WMObjectEditModeIndexEdit = &H3DA #End Region #Region "+++++ Variablen +++++" @@ -38,23 +40,22 @@ Public Class ClassPMWindream MyBase.New() End Sub Private Function IsNotEmpty(ByVal aValue As Object) - If aValue IsNot Nothing Then - Dim itsType As Type = aValue.GetType - If itsType Is GetType(String) Then + Return True - If Not aValue = "" Then - Return True - End If + 'If TypeOf aValue Is String Then + ' ' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können + ' 'If Not aValue = "" Then + ' ' Return True + ' 'End If - Return False - Else - Return True - End If + ' Return False + 'Else + ' Return True + 'End If Else Return False End If - End Function Private Function return_type(ByVal _wert As Object) Return _wert.GetType @@ -112,7 +113,12 @@ Public Class ClassPMWindream Try If Indizes IsNot Nothing And aValues IsNot Nothing Then If Not oDocument.aLocked Then - oDocument.lock() + + ' 02.07. Änderung der Lock Methode, um eine Validierung auch zuzulassen, wenn das Recht "Datei ändern" + ' nicht gesetzt ist + 'oDocument.lock() + oDocument.LockFor(WMObjectEditModeIndexEdit) + Dim i As Integer = 0 Dim indexname As String If aValues.Length = 1 And aValues(0) = "" Then @@ -126,7 +132,8 @@ Public Class ClassPMWindream ' den Variablentyp (String, Integer, ...) auslesen vType = oAttribute.getVariableValue("dwAttrType") ' wenn in aValues an Position i ein Wert steht - If Me.IsNotEmpty(aValues(i)) Then + + If IsNotEmpty(aValues(i)) Then Dim _int As Boolean = False Dim _date As Boolean = False Dim _dbl As Boolean = False @@ -432,27 +439,25 @@ Public Class ClassPMWindream Dim vType = oAttribute.getVariableValue("dwAttrType") 'MsgBox("Typ: " & vType.ToString, MsgBoxStyle.Critical, "_state: " & _state.ToString) ' wenn in aValues an Position i ein Wert steht - If Me.IsNotEmpty(Indexname) Then - 'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87") - Dim value = _state - Dim convertValue - 'Den Typ des Index-Feldes auslesen - If LogErrorsOnly = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString) - Select Case (vType) - Case WMObjectVariableValueTypeBoolean - convertValue = CBool(value) - Case Else - ClassLogger.Add(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:") - End Select - '############################################################################################ - '####################### Der eigentliche Indexierungsvorgang ################################ + 'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87") + Dim value = _state + Dim convertValue + 'Den Typ des Index-Feldes auslesen + If LogErrorsOnly = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString) + Select Case (vType) + Case WMObjectVariableValueTypeBoolean + convertValue = CBool(value) + Case Else + ClassLogger.Add(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:") + End Select + '############################################################################################ + '####################### Der eigentliche Indexierungsvorgang ################################ - oDocument.SetVariableValue(Indexname, convertValue) - If LogErrorsOnly = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt") - oDocument.Save() - oDocument.unlock() - ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet") - End If + oDocument.SetVariableValue(Indexname, convertValue) + If LogErrorsOnly = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt") + oDocument.Save() + oDocument.unlock() + ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet") Else ClassLogger.Add(">> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!") End If diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 57d22ff..c75be0a 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -886,6 +886,10 @@ Partial Public Class DD_DMSLiteDataSet Private columnSQL_COMMAND As Global.System.Data.DataColumn + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + _ Public Sub New() @@ -993,6 +997,22 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + _ @@ -1030,9 +1050,9 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String) As TBPM_PROFILE_FINAL_INDEXINGRow + Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean) As TBPM_PROFILE_FINAL_INDEXINGRow Dim rowTBPM_PROFILE_FINAL_INDEXINGRow As TBPM_PROFILE_FINAL_INDEXINGRow = CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow) - Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND} + Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND, DESCRIPTION, ACTIVE} rowTBPM_PROFILE_FINAL_INDEXINGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPM_PROFILE_FINAL_INDEXINGRow) Return rowTBPM_PROFILE_FINAL_INDEXINGRow @@ -1070,6 +1090,8 @@ Partial Public Class DD_DMSLiteDataSet Me.columnGUID = MyBase.Columns("GUID") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") End Sub _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ACTIVE in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = value + End Set + End Property + _ Public Function IsCHANGED_WHONull() As Boolean @@ -8243,6 +8299,18 @@ Partial Public Class DD_DMSLiteDataSet Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function IsACTIVENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) + End Function + + _ + Public Sub SetACTIVENull() + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -13104,6 +13172,8 @@ Namespace DD_DMSLiteDataSetTableAdapters tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -13142,9 +13212,10 @@ Namespace DD_DMSLiteDataSetTableAdapters "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _ "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _ - "NDEXING.SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TB"& _ - "PM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)" + "NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _ + "_INDEXING.ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_"& _ + "PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 401ec24..b0ef405 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -9,7 +9,7 @@ - + DELETE FROM TBPM_PROFILE_FINAL_INDEXING @@ -20,17 +20,17 @@ WHERE (GUID = @guid) - + INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, INDEXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND) VALUES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND) - - - - - - + + + + + + @@ -38,12 +38,12 @@ VALUES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMA SELECT TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, - TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND + TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID WHERE (TBPM_PROFILE.NAME = @name) - + @@ -59,6 +59,8 @@ WHERE (TBPM_PROFILE.NAME = @name) + + @@ -2024,7 +2026,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2066,10 +2068,18 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) + + + + + + + + - + @@ -2165,7 +2175,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2230,7 +2240,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2260,7 +2270,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2283,7 +2293,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2373,7 +2383,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2446,7 +2456,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2495,7 +2505,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2510,7 +2520,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2531,7 +2541,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2639,7 +2649,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2712,7 +2722,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2763,7 +2773,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2855,7 +2865,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2912,7 +2922,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2953,7 +2963,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -3069,11 +3079,11 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index cfb210b..3e417d5 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -6,7 +6,7 @@ --> - + diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 570241d..b08eea9 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -116,6 +116,9 @@ P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll + + P:\Visual Studio Projekte\Bibliotheken\FormsUtils.dll + False P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll @@ -158,6 +161,7 @@ + @@ -640,6 +644,7 @@ + diff --git a/app/DD_PM_WINDREAM/ModuleControlProperties.vb b/app/DD_PM_WINDREAM/ModuleControlProperties.vb index eb92ca5..a11211e 100644 --- a/app/DD_PM_WINDREAM/ModuleControlProperties.vb +++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb @@ -206,31 +206,6 @@ Public Module ModuleControlProperties _default_value = value End Set End Property - - ''' - ''' Sorgt dafür, dass die Liste von Indicies aus dem gleichnamigen Feld ausgelesen wird - ''' - Public Class IndexListConverter - Inherits TypeConverter - - Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean - Return True - End Function - - Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection - Dim indexList = DirectCast(context.Instance, InputProperties).Indicies - Dim values As New StandardValuesCollection(indexList) - Return values - End Function - - Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object - If IsNothing(value) Then - Return "" - Else - Return value.ToString() - End If - End Function - End Class End Class Public Class TextboxProperties diff --git a/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb b/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb index 56cbb0e..2d7fd7b 100644 --- a/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb +++ b/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb @@ -1,14 +1,15 @@ Imports System.ComponentModel Imports System.Drawing.Design Imports System.Globalization +Imports FormsUtils Module ModuleFinalIndexProperties - + Public Class FinalIndexProperties - + <[ReadOnly](True)> Public Property GUID As Integer - + <[ReadOnly](True)> Public Property ConnectionId As Integer @@ -20,51 +21,100 @@ Module ModuleFinalIndexProperties ''' ''' Eigenschaft, die den SQL Editor anzeigt ''' - + Public Property SQLCommand As SQLValue - - Public Property StaticValue As String - ''' - ''' Eigenschaft, die eine Liste von Indicies anzeigt - ''' + ' Eigenschaften für die verschiedenen Index-Typen + + + + Public Property StringValue As String + + + + + Public Property BoolValue As Boolean + + + + + Public Property FloatValue As Double + + + + + Public Property DateValue As Date + + + + + Public Property IntegerValue As Integer + Public Property IndexName As String + + <[ReadOnly](True)> Public Property VectorIndex As Boolean - ''' - ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt. - ''' + ' Eigenschaften für die Liste der Indicies Public Property Indicies As List(Of String) + + Public Property IndiciesType As List(Of Integer) + Public Sub MaybeSetReadOnly(attrs As PropertyAttributes) + Dim hasSQLValue As Boolean = (SQLCommand.Value <> String.Empty) + If hasSQLValue Then + attrs.IsReadOnly = True + Else + attrs.IsReadOnly = False + End If + End Sub - Public Class IndexListConverter - Inherits TypeConverter + Public Sub MaybeSetBrowsable(attrs As PropertyAttributes, indexType As Integer()) + Dim i As Integer = Indicies.IndexOf(IndexName) - Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean - Return True - End Function + ' IndexName wurde nicth gefunden oder ist leerer/ungültiger String + If i < 0 Then + attrs.IsBrowsable = False + Exit Sub + End If - Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection - Dim indexList = DirectCast(context.Instance, FinalIndexProperties).Indicies - Dim values As New StandardValuesCollection(indexList) - Return values - End Function + Dim type As Integer = IndiciesType.Item(i) - Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object - If IsNothing(value) Then - Return "" - Else - Return value.ToString() - End If - End Function - End Class + If indexType.Contains(type) Then + attrs.IsBrowsable = True + Else + attrs.IsBrowsable = False + End If + End Sub + Public Sub IndexTypeBooleanProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_BOOLEAN, ClassFinalIndex.INDEX_TYPE_VECTOR_BOOLEAN}) + MaybeSetReadOnly(attrs) + End Sub + + Public Sub IndexTypeStringProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_STRING, ClassFinalIndex.INDEX_TYPE_VECTOR_STRING}) + MaybeSetReadOnly(attrs) + End Sub + + Public Sub IndexTypeFloatProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_FLOAT}) + MaybeSetReadOnly(attrs) + End Sub + + Public Sub IndexTypeIntegerProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_INTEGER, ClassFinalIndex.INDEX_TYPE_VECTOR_INTEGER}) + MaybeSetReadOnly(attrs) + End Sub + + Public Sub IndexTypeDateProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {ClassFinalIndex.INDEX_TYPE_DATE, ClassFinalIndex.INDEX_TYPE_VECTOR_DATE}) + MaybeSetReadOnly(attrs) + End Sub End Class - - End Module diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index d7c3cf6..a8c061b 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb index be57b54..6adca99 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb @@ -190,6 +190,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property cancel() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("cancel", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD_PM_WINDREAM/My Project/Resources.resx b/app/DD_PM_WINDREAM/My Project/Resources.resx index b2664aa..f966100 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.resx +++ b/app/DD_PM_WINDREAM/My Project/Resources.resx @@ -202,9 +202,6 @@ ..\Resources\flag_pink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\resultset_next.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -295,6 +292,12 @@ ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\syncreon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -322,8 +325,8 @@ ..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\key1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -331,7 +334,7 @@ ..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/Resources/cancel.png b/app/DD_PM_WINDREAM/Resources/cancel.png new file mode 100644 index 0000000..c149c2b Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/cancel.png differ diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 1b8f19a..053388c 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -49,7 +49,7 @@ Partial Class frmAdministration Dim VEKTOR_DELIMITERLabel As System.Windows.Forms.Label Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label Dim SQL_VIEWLabel As System.Windows.Forms.Label - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -155,19 +155,22 @@ Partial Class frmAdministration Me.TabPage6 = New System.Windows.Forms.TabPage() Me.TabControl2 = New System.Windows.Forms.TabControl() Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.Panel5 = New System.Windows.Forms.Panel() Me.gridFinalIndex = New DevExpress.XtraGrid.GridControl() Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.viewFinalIndex = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colINDEXNAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVALUE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSQL_COMMAND = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() @@ -176,59 +179,13 @@ Partial Class frmAdministration Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() - Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() + Me.tsBtnCancel = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.tsBtnSave = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() Me.Label13 = New System.Windows.Forms.Label() - Me.TabControlFinalIndices = New System.Windows.Forms.TabControl() - Me.TabPage9 = New System.Windows.Forms.TabPage() - Me.CheckBoxPMVEKTOR = New System.Windows.Forms.CheckBox() - Me.lblSaveFinalIndex = New System.Windows.Forms.Label() - Me.lblIndexPMVektor = New System.Windows.Forms.Label() - Me.Label11 = New System.Windows.Forms.Label() - Me.txtBezeichner = New System.Windows.Forms.TextBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.cmbIndexe = New System.Windows.Forms.ComboBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.lblIndex = New System.Windows.Forms.Label() - Me.grbxSystemStamps = New System.Windows.Forms.GroupBox() - Me.btnStampDate = New System.Windows.Forms.Button() - Me.btnStampUser = New System.Windows.Forms.Button() - Me.txtindexwert_final = New System.Windows.Forms.TextBox() - Me.btnInsert_FinalIndex = New System.Windows.Forms.Button() - Me.chkbxfinalIndex = New System.Windows.Forms.CheckBox() - Me.TabPage10 = New System.Windows.Forms.TabPage() - Me.btnEditor = New System.Windows.Forms.Button() - Me.Label15 = New System.Windows.Forms.Label() - Me.cmbIndexe2 = New System.Windows.Forms.ComboBox() - Me.btnSaveSQLCommand = New System.Windows.Forms.Button() - Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() - Me.btnShowConnections = New System.Windows.Forms.Button() - Me.Label14 = New System.Windows.Forms.Label() - Me.cmbConnection = New System.Windows.Forms.ComboBox() - Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorCountItem4 = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorMoveFirstItem4 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem4 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator12 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem4 = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator13 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem4 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem4 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator14 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() - Me.tsBtnCancel = New System.Windows.Forms.ToolStripButton() - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView = New System.Windows.Forms.DataGridView() - Me.GUID = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn26 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn27 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn28 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn29 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.TabPage12 = New System.Windows.Forms.TabPage() Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox = New System.Windows.Forms.CheckBox() Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox = New System.Windows.Forms.CheckBox() @@ -288,6 +245,7 @@ Partial Class frmAdministration Me.BindingNavigatorMoveNextItem3 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem3 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator11 = New System.Windows.Forms.ToolStripSeparator() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tstrpinfo = New System.Windows.Forms.ToolStripStatusLabel() @@ -371,19 +329,12 @@ Partial Class frmAdministration Me.TabPage6.SuspendLayout() Me.TabControl2.SuspendLayout() Me.TabPage11.SuspendLayout() + Me.Panel5.SuspendLayout() CType(Me.gridFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator1.SuspendLayout() - Me.TabControlFinalIndices.SuspendLayout() - Me.TabPage9.SuspendLayout() - Me.grbxSystemStamps.SuspendLayout() - Me.TabPage10.SuspendLayout() - CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.SuspendLayout() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage12.SuspendLayout() Me.TabPage2.SuspendLayout() CType(Me.SplitContainerProfilzuordnung, System.ComponentModel.ISupportInitialize).BeginInit() @@ -405,6 +356,7 @@ Partial Class frmAdministration CType(Me.TBPM_ERROR_LOGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_ERROR_LOGBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBPM_ERROR_LOGBindingNavigator.SuspendLayout() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.StatusStrip1.SuspendLayout() Me.pnlMain.SuspendLayout() @@ -1294,20 +1246,23 @@ Partial Class frmAdministration ' 'TabPage11 ' - Me.TabPage11.Controls.Add(Me.gridFinalIndex) + Me.TabPage11.Controls.Add(Me.Panel5) Me.TabPage11.Controls.Add(Me.BindingNavigator1) - Me.TabPage11.Controls.Add(Me.PropertyGrid1) Me.TabPage11.Controls.Add(Me.Label13) Me.TabPage11.Controls.Add(Me.GroupBox3) - Me.TabPage11.Controls.Add(Me.TabControlFinalIndices) Me.TabPage11.Controls.Add(Me.Label5) Me.TabPage11.Controls.Add(Me.Label6) - Me.TabPage11.Controls.Add(Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator) - Me.TabPage11.Controls.Add(Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView) resources.ApplyResources(Me.TabPage11, "TabPage11") Me.TabPage11.Name = "TabPage11" Me.TabPage11.UseVisualStyleBackColor = True ' + 'Panel5 + ' + Me.Panel5.Controls.Add(Me.gridFinalIndex) + Me.Panel5.Controls.Add(Me.PropertyGrid1) + resources.ApplyResources(Me.Panel5, "Panel5") + Me.Panel5.Name = "Panel5" + ' 'gridFinalIndex ' Me.gridFinalIndex.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource @@ -1323,7 +1278,7 @@ Partial Class frmAdministration ' 'viewFinalIndex ' - Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colINDEXNAME, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN}) + Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN}) Me.viewFinalIndex.GridControl = Me.gridFinalIndex Me.viewFinalIndex.Name = "viewFinalIndex" Me.viewFinalIndex.OptionsBehavior.Editable = False @@ -1332,48 +1287,66 @@ Partial Class frmAdministration ' 'colGUID ' + resources.ApplyResources(Me.colGUID, "colGUID") Me.colGUID.FieldName = "GUID" Me.colGUID.Name = "colGUID" - resources.ApplyResources(Me.colGUID, "colGUID") ' 'colINDEXNAME ' + resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME") Me.colINDEXNAME.FieldName = "INDEXNAME" Me.colINDEXNAME.Name = "colINDEXNAME" - resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME") + ' + 'colVALUE + ' + resources.ApplyResources(Me.colVALUE, "colVALUE") + Me.colVALUE.FieldName = "VALUE" + Me.colVALUE.Name = "colVALUE" + ' + 'colSQL_COMMAND + ' + resources.ApplyResources(Me.colSQL_COMMAND, "colSQL_COMMAND") + Me.colSQL_COMMAND.FieldName = "SQL_COMMAND" + Me.colSQL_COMMAND.Name = "colSQL_COMMAND" ' 'colADDED_WHO ' + resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO") Me.colADDED_WHO.FieldName = "ADDED_WHO" Me.colADDED_WHO.Name = "colADDED_WHO" - resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO") ' 'colADDED_WHEN ' + resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN") Me.colADDED_WHEN.FieldName = "ADDED_WHEN" Me.colADDED_WHEN.Name = "colADDED_WHEN" - resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN") ' 'colCHANGED_WHO ' + resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO") Me.colCHANGED_WHO.FieldName = "CHANGED_WHO" Me.colCHANGED_WHO.Name = "colCHANGED_WHO" - resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO") ' 'colCHANGED_WHEN ' + resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN" Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" - resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") + ' + 'PropertyGrid1 + ' + resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1") + Me.PropertyGrid1.Name = "PropertyGrid1" ' 'BindingNavigator1 ' Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem Me.BindingNavigator1.BindingSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem1 - Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem + Me.BindingNavigator1.CountItemFormat = "von {0} finalen Indexen" + Me.BindingNavigator1.DeleteItem = Nothing resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") - Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButton4}) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem, Me.tsBtnCancel, Me.BindingNavigatorDeleteItem, Me.tsBtnSave, Me.ToolStripButton5}) Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem1 Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem1 @@ -1383,21 +1356,15 @@ Partial Class frmAdministration ' 'BindingNavigatorAddNewItem ' - Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") + Me.BindingNavigatorAddNewItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") ' 'BindingNavigatorCountItem1 ' Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" resources.ApplyResources(Me.BindingNavigatorCountItem1, "BindingNavigatorCountItem1") ' - 'BindingNavigatorDeleteItem - ' - Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") - Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" - ' 'BindingNavigatorMoveFirstItem1 ' Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image @@ -1442,214 +1409,34 @@ Partial Class frmAdministration Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" resources.ApplyResources(Me.BindingNavigatorSeparator5, "BindingNavigatorSeparator5") ' - 'ToolStripButton4 + 'tsBtnCancel ' - Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton4.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.save - resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") - Me.ToolStripButton4.Name = "ToolStripButton4" + Me.tsBtnCancel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.cancel + resources.ApplyResources(Me.tsBtnCancel, "tsBtnCancel") + Me.tsBtnCancel.Name = "tsBtnCancel" ' - 'PropertyGrid1 + 'BindingNavigatorDeleteItem ' - resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1") - Me.PropertyGrid1.Name = "PropertyGrid1" + resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + ' + 'tsBtnSave + ' + Me.tsBtnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.save + resources.ApplyResources(Me.tsBtnSave, "tsBtnSave") + Me.tsBtnSave.Name = "tsBtnSave" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD + resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5") + Me.ToolStripButton5.Name = "ToolStripButton5" ' 'Label13 ' resources.ApplyResources(Me.Label13, "Label13") Me.Label13.Name = "Label13" ' - 'TabControlFinalIndices - ' - resources.ApplyResources(Me.TabControlFinalIndices, "TabControlFinalIndices") - Me.TabControlFinalIndices.Controls.Add(Me.TabPage9) - Me.TabControlFinalIndices.Controls.Add(Me.TabPage10) - Me.TabControlFinalIndices.Name = "TabControlFinalIndices" - Me.TabControlFinalIndices.SelectedIndex = 0 - ' - 'TabPage9 - ' - Me.TabPage9.Controls.Add(Me.CheckBoxPMVEKTOR) - Me.TabPage9.Controls.Add(Me.lblSaveFinalIndex) - Me.TabPage9.Controls.Add(Me.lblIndexPMVektor) - Me.TabPage9.Controls.Add(Me.Label11) - Me.TabPage9.Controls.Add(Me.txtBezeichner) - Me.TabPage9.Controls.Add(Me.Label10) - Me.TabPage9.Controls.Add(Me.cmbIndexe) - Me.TabPage9.Controls.Add(Me.Label9) - Me.TabPage9.Controls.Add(Me.lblIndex) - Me.TabPage9.Controls.Add(Me.grbxSystemStamps) - Me.TabPage9.Controls.Add(Me.txtindexwert_final) - Me.TabPage9.Controls.Add(Me.btnInsert_FinalIndex) - Me.TabPage9.Controls.Add(Me.chkbxfinalIndex) - resources.ApplyResources(Me.TabPage9, "TabPage9") - Me.TabPage9.Name = "TabPage9" - Me.TabPage9.UseVisualStyleBackColor = True - ' - 'CheckBoxPMVEKTOR - ' - resources.ApplyResources(Me.CheckBoxPMVEKTOR, "CheckBoxPMVEKTOR") - Me.CheckBoxPMVEKTOR.Name = "CheckBoxPMVEKTOR" - Me.CheckBoxPMVEKTOR.UseVisualStyleBackColor = True - ' - 'lblSaveFinalIndex - ' - resources.ApplyResources(Me.lblSaveFinalIndex, "lblSaveFinalIndex") - Me.lblSaveFinalIndex.BackColor = System.Drawing.Color.Yellow - Me.lblSaveFinalIndex.Name = "lblSaveFinalIndex" - ' - 'lblIndexPMVektor - ' - resources.ApplyResources(Me.lblIndexPMVektor, "lblIndexPMVektor") - Me.lblIndexPMVektor.Name = "lblIndexPMVektor" - ' - 'Label11 - ' - resources.ApplyResources(Me.Label11, "Label11") - Me.Label11.Name = "Label11" - ' - 'txtBezeichner - ' - resources.ApplyResources(Me.txtBezeichner, "txtBezeichner") - Me.txtBezeichner.Name = "txtBezeichner" - ' - 'Label10 - ' - resources.ApplyResources(Me.Label10, "Label10") - Me.Label10.Name = "Label10" - ' - 'cmbIndexe - ' - Me.cmbIndexe.FormattingEnabled = True - resources.ApplyResources(Me.cmbIndexe, "cmbIndexe") - Me.cmbIndexe.Name = "cmbIndexe" - ' - 'Label9 - ' - resources.ApplyResources(Me.Label9, "Label9") - Me.Label9.Name = "Label9" - ' - 'lblIndex - ' - resources.ApplyResources(Me.lblIndex, "lblIndex") - Me.lblIndex.Name = "lblIndex" - ' - 'grbxSystemStamps - ' - Me.grbxSystemStamps.Controls.Add(Me.btnStampDate) - Me.grbxSystemStamps.Controls.Add(Me.btnStampUser) - resources.ApplyResources(Me.grbxSystemStamps, "grbxSystemStamps") - Me.grbxSystemStamps.Name = "grbxSystemStamps" - Me.grbxSystemStamps.TabStop = False - ' - 'btnStampDate - ' - Me.btnStampDate.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.world_link - resources.ApplyResources(Me.btnStampDate, "btnStampDate") - Me.btnStampDate.Name = "btnStampDate" - Me.btnStampDate.UseVisualStyleBackColor = True - ' - 'btnStampUser - ' - Me.btnStampUser.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.user - resources.ApplyResources(Me.btnStampUser, "btnStampUser") - Me.btnStampUser.Name = "btnStampUser" - Me.btnStampUser.UseVisualStyleBackColor = True - ' - 'txtindexwert_final - ' - resources.ApplyResources(Me.txtindexwert_final, "txtindexwert_final") - Me.txtindexwert_final.Name = "txtindexwert_final" - ' - 'btnInsert_FinalIndex - ' - Me.btnInsert_FinalIndex.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add - resources.ApplyResources(Me.btnInsert_FinalIndex, "btnInsert_FinalIndex") - Me.btnInsert_FinalIndex.Name = "btnInsert_FinalIndex" - Me.btnInsert_FinalIndex.UseVisualStyleBackColor = True - ' - 'chkbxfinalIndex - ' - resources.ApplyResources(Me.chkbxfinalIndex, "chkbxfinalIndex") - Me.chkbxfinalIndex.Name = "chkbxfinalIndex" - Me.chkbxfinalIndex.UseVisualStyleBackColor = True - ' - 'TabPage10 - ' - resources.ApplyResources(Me.TabPage10, "TabPage10") - Me.TabPage10.Controls.Add(Me.btnEditor) - Me.TabPage10.Controls.Add(Me.Label15) - Me.TabPage10.Controls.Add(Me.cmbIndexe2) - Me.TabPage10.Controls.Add(Me.btnSaveSQLCommand) - Me.TabPage10.Controls.Add(Me.SQL_COMMANDTextBox) - Me.TabPage10.Controls.Add(Me.btnShowConnections) - Me.TabPage10.Controls.Add(Me.Label14) - Me.TabPage10.Controls.Add(Me.cmbConnection) - Me.TabPage10.Controls.Add(Me.Label4) - Me.TabPage10.Name = "TabPage10" - Me.TabPage10.UseVisualStyleBackColor = True - ' - 'btnEditor - ' - resources.ApplyResources(Me.btnEditor, "btnEditor") - Me.btnEditor.Name = "btnEditor" - Me.btnEditor.UseVisualStyleBackColor = True - ' - 'Label15 - ' - resources.ApplyResources(Me.Label15, "Label15") - Me.Label15.Name = "Label15" - ' - 'cmbIndexe2 - ' - Me.cmbIndexe2.FormattingEnabled = True - resources.ApplyResources(Me.cmbIndexe2, "cmbIndexe2") - Me.cmbIndexe2.Name = "cmbIndexe2" - ' - 'btnSaveSQLCommand - ' - resources.ApplyResources(Me.btnSaveSQLCommand, "btnSaveSQLCommand") - Me.btnSaveSQLCommand.Name = "btnSaveSQLCommand" - Me.btnSaveSQLCommand.UseVisualStyleBackColor = True - ' - 'SQL_COMMANDTextBox - ' - Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, "SQL_COMMAND", True)) - resources.ApplyResources(Me.SQL_COMMANDTextBox, "SQL_COMMANDTextBox") - Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" - ' - 'btnShowConnections - ' - resources.ApplyResources(Me.btnShowConnections, "btnShowConnections") - Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1 - Me.btnShowConnections.Name = "btnShowConnections" - Me.btnShowConnections.UseVisualStyleBackColor = True - ' - 'Label14 - ' - resources.ApplyResources(Me.Label14, "Label14") - Me.Label14.Name = "Label14" - ' - 'cmbConnection - ' - Me.cmbConnection.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, "CONNECTION_ID", True)) - Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource - Me.cmbConnection.DisplayMember = "BEZEICHNUNG" - resources.ApplyResources(Me.cmbConnection, "cmbConnection") - Me.cmbConnection.FormattingEnabled = True - Me.cmbConnection.Name = "cmbConnection" - Me.cmbConnection.ValueMember = "GUID" - ' - 'TBDD_CONNECTIONBindingSource - ' - Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" - Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'Label4 - ' - resources.ApplyResources(Me.Label4, "Label4") - Me.Label4.Name = "Label4" - ' 'Label5 ' resources.ApplyResources(Me.Label5, "Label5") @@ -1660,140 +1447,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.Label6, "Label6") Me.Label6.Name = "Label6" ' - 'TBPM_PROFILE_FINAL_INDEXINGBindingNavigator - ' - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.AddNewItem = Nothing - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.BindingSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.CountItem = Me.BindingNavigatorCountItem4 - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.DeleteItem = Nothing - resources.ApplyResources(Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator, "TBPM_PROFILE_FINAL_INDEXINGBindingNavigator") - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem4, Me.BindingNavigatorMovePreviousItem4, Me.BindingNavigatorSeparator12, Me.BindingNavigatorPositionItem4, Me.BindingNavigatorCountItem4, Me.BindingNavigatorSeparator13, Me.BindingNavigatorMoveNextItem4, Me.BindingNavigatorMoveLastItem4, Me.BindingNavigatorSeparator14, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton1, Me.tsBtnCancel}) - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem4 - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem4 - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem4 - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem4 - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.Name = "TBPM_PROFILE_FINAL_INDEXINGBindingNavigator" - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem4 - ' - 'BindingNavigatorCountItem4 - ' - Me.BindingNavigatorCountItem4.Name = "BindingNavigatorCountItem4" - resources.ApplyResources(Me.BindingNavigatorCountItem4, "BindingNavigatorCountItem4") - ' - 'BindingNavigatorMoveFirstItem4 - ' - Me.BindingNavigatorMoveFirstItem4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveFirstItem4, "BindingNavigatorMoveFirstItem4") - Me.BindingNavigatorMoveFirstItem4.Name = "BindingNavigatorMoveFirstItem4" - ' - 'BindingNavigatorMovePreviousItem4 - ' - Me.BindingNavigatorMovePreviousItem4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMovePreviousItem4, "BindingNavigatorMovePreviousItem4") - Me.BindingNavigatorMovePreviousItem4.Name = "BindingNavigatorMovePreviousItem4" - ' - 'BindingNavigatorSeparator12 - ' - Me.BindingNavigatorSeparator12.Name = "BindingNavigatorSeparator12" - resources.ApplyResources(Me.BindingNavigatorSeparator12, "BindingNavigatorSeparator12") - ' - 'BindingNavigatorPositionItem4 - ' - resources.ApplyResources(Me.BindingNavigatorPositionItem4, "BindingNavigatorPositionItem4") - Me.BindingNavigatorPositionItem4.Name = "BindingNavigatorPositionItem4" - ' - 'BindingNavigatorSeparator13 - ' - Me.BindingNavigatorSeparator13.Name = "BindingNavigatorSeparator13" - resources.ApplyResources(Me.BindingNavigatorSeparator13, "BindingNavigatorSeparator13") - ' - 'BindingNavigatorMoveNextItem4 - ' - Me.BindingNavigatorMoveNextItem4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveNextItem4, "BindingNavigatorMoveNextItem4") - Me.BindingNavigatorMoveNextItem4.Name = "BindingNavigatorMoveNextItem4" - ' - 'BindingNavigatorMoveLastItem4 - ' - Me.BindingNavigatorMoveLastItem4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveLastItem4, "BindingNavigatorMoveLastItem4") - Me.BindingNavigatorMoveLastItem4.Name = "BindingNavigatorMoveLastItem4" - ' - 'BindingNavigatorSeparator14 - ' - Me.BindingNavigatorSeparator14.Name = "BindingNavigatorSeparator14" - resources.ApplyResources(Me.BindingNavigatorSeparator14, "BindingNavigatorSeparator14") - ' - 'ToolStripButton2 - ' - Me.ToolStripButton2.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add - resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") - Me.ToolStripButton2.Name = "ToolStripButton2" - ' - 'ToolStripButton3 - ' - Me.ToolStripButton3.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12 - resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3") - Me.ToolStripButton3.Name = "ToolStripButton3" - ' - 'ToolStripButton1 - ' - Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD - resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Name = "ToolStripButton1" - ' - 'tsBtnCancel - ' - Me.tsBtnCancel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12 - resources.ApplyResources(Me.tsBtnCancel, "tsBtnCancel") - Me.tsBtnCancel.Name = "tsBtnCancel" - ' - 'TBPM_PROFILE_FINAL_INDEXINGDataGridView - ' - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.AllowUserToAddRows = False - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.AllowUserToDeleteRows = False - resources.ApplyResources(Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView, "TBPM_PROFILE_FINAL_INDEXINGDataGridView") - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.AutoGenerateColumns = False - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.GUID, Me.DataGridViewTextBoxColumn26, Me.DataGridViewTextBoxColumn27, Me.DataGridViewTextBoxColumn28, Me.DataGridViewTextBoxColumn29}) - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.MultiSelect = False - Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Name = "TBPM_PROFILE_FINAL_INDEXINGDataGridView" - ' - 'GUID - ' - Me.GUID.DataPropertyName = "GUID" - Me.GUID.Frozen = True - resources.ApplyResources(Me.GUID, "GUID") - Me.GUID.Name = "GUID" - Me.GUID.ReadOnly = True - ' - 'DataGridViewTextBoxColumn26 - ' - Me.DataGridViewTextBoxColumn26.DataPropertyName = "INDEXNAME" - resources.ApplyResources(Me.DataGridViewTextBoxColumn26, "DataGridViewTextBoxColumn26") - Me.DataGridViewTextBoxColumn26.Name = "DataGridViewTextBoxColumn26" - ' - 'DataGridViewTextBoxColumn27 - ' - Me.DataGridViewTextBoxColumn27.DataPropertyName = "VALUE" - resources.ApplyResources(Me.DataGridViewTextBoxColumn27, "DataGridViewTextBoxColumn27") - Me.DataGridViewTextBoxColumn27.Name = "DataGridViewTextBoxColumn27" - ' - 'DataGridViewTextBoxColumn28 - ' - Me.DataGridViewTextBoxColumn28.DataPropertyName = "ADDED_WHO" - resources.ApplyResources(Me.DataGridViewTextBoxColumn28, "DataGridViewTextBoxColumn28") - Me.DataGridViewTextBoxColumn28.Name = "DataGridViewTextBoxColumn28" - Me.DataGridViewTextBoxColumn28.ReadOnly = True - ' - 'DataGridViewTextBoxColumn29 - ' - Me.DataGridViewTextBoxColumn29.DataPropertyName = "ADDED_WHEN" - resources.ApplyResources(Me.DataGridViewTextBoxColumn29, "DataGridViewTextBoxColumn29") - Me.DataGridViewTextBoxColumn29.Name = "DataGridViewTextBoxColumn29" - Me.DataGridViewTextBoxColumn29.ReadOnly = True - ' 'TabPage12 ' resources.ApplyResources(Me.TabPage12, "TabPage12") @@ -2116,8 +1769,8 @@ Partial Class frmAdministration 'TBPM_ERROR_LOGDataGridView ' Me.TBPM_ERROR_LOGDataGridView.AllowUserToAddRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan - Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan + Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.TBPM_ERROR_LOGDataGridView.AutoGenerateColumns = False Me.TBPM_ERROR_LOGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBPM_ERROR_LOGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn17, Me.DataGridViewTextBoxColumn22, Me.DataGridViewTextBoxColumn23, Me.DataGridViewTextBoxColumn24, Me.DataGridViewTextBoxColumn25}) @@ -2236,6 +1889,11 @@ Partial Class frmAdministration Me.BindingNavigatorSeparator11.Name = "BindingNavigatorSeparator11" resources.ApplyResources(Me.BindingNavigatorSeparator11, "BindingNavigatorSeparator11") ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' 'TBPM_PROFILE_CONTROLSBindingSource ' Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS" @@ -2364,23 +2022,13 @@ Partial Class frmAdministration Me.TabControl2.ResumeLayout(False) Me.TabPage11.ResumeLayout(False) Me.TabPage11.PerformLayout() + Me.Panel5.ResumeLayout(False) CType(Me.gridFinalIndex, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() Me.BindingNavigator1.ResumeLayout(False) Me.BindingNavigator1.PerformLayout() - Me.TabControlFinalIndices.ResumeLayout(False) - Me.TabPage9.ResumeLayout(False) - Me.TabPage9.PerformLayout() - Me.grbxSystemStamps.ResumeLayout(False) - Me.TabPage10.ResumeLayout(False) - Me.TabPage10.PerformLayout() - CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.ResumeLayout(False) - Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.PerformLayout() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage12.ResumeLayout(False) Me.TabPage12.PerformLayout() Me.TabPage2.ResumeLayout(False) @@ -2408,6 +2056,7 @@ Partial Class frmAdministration CType(Me.TBPM_ERROR_LOGBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBPM_ERROR_LOGBindingNavigator.ResumeLayout(False) Me.TBPM_ERROR_LOGBindingNavigator.PerformLayout() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() @@ -2509,29 +2158,6 @@ Partial Class frmAdministration Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter - Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGDataGridView As System.Windows.Forms.DataGridView - Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingNavigator As System.Windows.Forms.BindingNavigator - Friend WithEvents BindingNavigatorCountItem4 As System.Windows.Forms.ToolStripLabel - Friend WithEvents BindingNavigatorMoveFirstItem4 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem4 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator12 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem4 As System.Windows.Forms.ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator13 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem4 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem4 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator14 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents lblIndexPMVektor As System.Windows.Forms.Label - Friend WithEvents cmbIndexe As System.Windows.Forms.ComboBox - Friend WithEvents chkbxfinalIndex As System.Windows.Forms.CheckBox - Friend WithEvents txtindexwert_final As System.Windows.Forms.TextBox - Friend WithEvents lblIndex As System.Windows.Forms.Label - Friend WithEvents btnInsert_FinalIndex As System.Windows.Forms.Button - Friend WithEvents GUID As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn26 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn27 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn28 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn29 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents tsbtnProfilkopieren As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource @@ -2549,19 +2175,9 @@ Partial Class frmAdministration Friend WithEvents txtemailEmpfaenger As System.Windows.Forms.TextBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents EMAIL_ACTIVECheckBox As System.Windows.Forms.CheckBox - Friend WithEvents grbxSystemStamps As System.Windows.Forms.GroupBox - Friend WithEvents btnStampUser As System.Windows.Forms.Button - Friend WithEvents btnStampDate As System.Windows.Forms.Button - Friend WithEvents Label11 As System.Windows.Forms.Label - Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents PM_VEKTOR_INDEXComboBox As System.Windows.Forms.ComboBox - Friend WithEvents CheckBoxPMVEKTOR As System.Windows.Forms.CheckBox - Friend WithEvents txtBezeichner As System.Windows.Forms.TextBox Friend WithEvents btnopen_SQLAdmin As System.Windows.Forms.Button Friend WithEvents btnRefreshProfiles As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter Friend WithEvents btnConnections As System.Windows.Forms.Button @@ -2574,27 +2190,14 @@ Partial Class frmAdministration Friend WithEvents DataGridViewTextBoxColumn25 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Label13 As System.Windows.Forms.Label - Friend WithEvents lblSaveFinalIndex As System.Windows.Forms.Label Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents TabControlFinalIndices As System.Windows.Forms.TabControl - Friend WithEvents TabPage9 As System.Windows.Forms.TabPage - Friend WithEvents TabPage10 As System.Windows.Forms.TabPage - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents Label14 As System.Windows.Forms.Label - Friend WithEvents cmbConnection As System.Windows.Forms.ComboBox Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter - Friend WithEvents SQL_COMMANDTextBox As System.Windows.Forms.TextBox - Friend WithEvents btnSaveSQLCommand As System.Windows.Forms.Button - Friend WithEvents Label15 As System.Windows.Forms.Label - Friend WithEvents cmbIndexe2 As System.Windows.Forms.ComboBox - Friend WithEvents btnShowConnections As System.Windows.Forms.Button - Friend WithEvents btnEditor As System.Windows.Forms.Button Friend WithEvents TabControl2 As TabControl Friend WithEvents TabPage11 As TabPage Friend WithEvents TabPage12 As TabPage @@ -2648,16 +2251,9 @@ Partial Class frmAdministration Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents tsBtnCancel As ToolStripButton Friend WithEvents OpenFileDialog1 As OpenFileDialog Friend WithEvents gridFinalIndex As DevExpress.XtraGrid.GridControl Friend WithEvents viewFinalIndex As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colINDEXNAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents BindingNavigator1 As BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton Friend WithEvents BindingNavigatorCountItem1 As ToolStripLabel @@ -2671,5 +2267,16 @@ Partial Class frmAdministration Friend WithEvents BindingNavigatorMoveLastItem1 As ToolStripButton Friend WithEvents BindingNavigatorSeparator5 As ToolStripSeparator Friend WithEvents PropertyGrid1 As PropertyGrid - Friend WithEvents ToolStripButton4 As ToolStripButton + Friend WithEvents tsBtnSave As ToolStripButton + Friend WithEvents Panel5 As Panel + Friend WithEvents colINDEXNAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVALUE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSQL_COMMAND As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents ToolStripButton5 As ToolStripButton + Friend WithEvents tsBtnCancel As ToolStripButton End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 685f26c..6181b0a 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -246,6 +246,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + Label20 @@ -378,6 +396,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + Label19 @@ -447,69 +483,6 @@ 0 - - 206, 17 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel2 - - - 0 - Fill @@ -567,6 +540,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + Label22 @@ -663,6 +657,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + Label23 @@ -732,72 +747,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - - - Label22 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel3 - - - 0 - - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - - - Label23 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel4 - - - 0 - False @@ -1845,57 +1794,6 @@ der Wertänderungen nutzen wollen: 11 - - FINAL_PROFILECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox4 - - - 0 - - - FINAL_TEXTTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox4 - - - 2 - - - Tahoma, 9.75pt - - - 280, 151 - - - 420, 100 - - - 75 - - - Alternativer Abschlusstext: - - - GroupBox4 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 14 - Tahoma, 9.75pt @@ -1947,56 +1845,32 @@ der Wertänderungen nutzen wollen: 2 - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - cmbType - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - + Tahoma, 9.75pt - - 280, 257 + + 280, 151 - - 420, 71 + + 420, 100 - - 74 + + 75 - - Type: + + Alternativer Abschlusstext: - - GroupBox2 + + GroupBox4 - + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage5 - - 18 + + 14 True @@ -2055,59 +1929,32 @@ der Wertänderungen nutzen wollen: 1 - - 17, 56 - - - MOVE2FOLDERTextBox + + Tahoma, 9.75pt - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 280, 257 - - GroupBox3 + + 420, 71 - - 0 + + 74 - - btnmovetoFolderDialog + + Type: - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GroupBox2 - - GroupBox3 - - - 1 - - - Segoe UI, 8.25pt, style=Bold - - - 9, 23 - - - 1007, 57 - - - 73 - - - Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: - - - GroupBox3 - - + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage11 + + TabPage5 - - 4 + + 18 Segoe UI, 9pt @@ -2160,6 +2007,33 @@ der Wertänderungen nutzen wollen: 1 + + Segoe UI, 8.25pt, style=Bold + + + 9, 23 + + + 1007, 57 + + + 73 + + + Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: + + + GroupBox3 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage11 + + + 3 + Tahoma, 9.75pt @@ -2499,1745 +2373,6 @@ der Wertänderungen nutzen wollen: True - - GridControl1 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabPage5 - - - 0 - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - - - cmbLOGIndex - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 2 - - - PM_VEKTOR_INDEXComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 4 - - - SORT_BY_LATESTCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 7 - - - Tahoma, 9.75pt, style=Bold - - - 4, 25 - - - 3, 3, 3, 3 - - - 1249, 480 - - - 0 - - - Allgemeine Profilangaben: - - - TabPage5 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabctrl_Profilkonfig - - - 0 - - - True - - - 245, 134 - - - 18, 169 - - - True - - - 0 - - - True - - - 1 - - - True - - - 2 - - - True - - - 3 - - - True - - - 4 - - - True - - - 5 - - - 632, 270 - - - 93 - - - gridFinalIndex - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabPage11 - - - 0 - - - 831, 212 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - True - - - 23, 22 - - - Neu hinzufügen - - - 44, 22 - - - von {0} - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - None - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - Magenta - - - 23, 22 - - - ToolStripButton4 - - - 682, 133 - - - 287, 25 - - - 92 - - - BindingNavigator1 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 1 - - - 1003, 5 - - - 226, 150 - - - 91 - - - PropertyGrid1 - - - System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 2 - - - True - - - Segoe UI, 9.75pt, style=Italic - - - 6, 3 - - - 497, 17 - - - 79 - - - Definieren Sie hier Aktionen welche nach erfolgreicher Indexierung durchgeführt werden: - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 3 - - - Top, Bottom, Left, Right - - - True - - - 193, 27 - - - 199, 20 - - - 87 - - - Wert in Vektorindex schreiben - - - CheckBoxPMVEKTOR - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 0 - - - True - - - 24, 135 - - - 45, 16 - - - 89 - - - Label4 - - - False - - - lblSaveFinalIndex - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 1 - - - True - - - 24, 3 - - - 89, 16 - - - 78 - - - Index wählen: - - - lblIndexPMVektor - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 2 - - - True - - - 7, 108 - - - 19, 16 - - - 86 - - - 3. - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 3 - - - 32, 50 - - - 160, 23 - - - 88 - - - False - - - txtBezeichner - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 4 - - - True - - - 7, 52 - - - 19, 16 - - - 85 - - - 2. - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 5 - - - 27, 27 - - - 160, 24 - - - 77 - - - cmbIndexe - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 6 - - - True - - - 7, 3 - - - 19, 16 - - - 84 - - - 1. - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 7 - - - True - - - 24, 52 - - - 21, 16 - - - 79 - - - sd - - - False - - - lblIndex - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 8 - - - btnStampDate - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grbxSystemStamps - - - 0 - - - btnStampUser - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grbxSystemStamps - - - 1 - - - 298, 52 - - - 153, 80 - - - 83 - - - System-Stamps - - - False - - - grbxSystemStamps - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 9 - - - 60, 72 - - - 100, 23 - - - 80 - - - False - - - txtindexwert_final - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 10 - - - MiddleLeft - - - 27, 101 - - - 136, 31 - - - 82 - - - Index einfügen - - - MiddleRight - - - btnInsert_FinalIndex - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 11 - - - True - - - 27, 79 - - - 15, 14 - - - 81 - - - False - - - chkbxfinalIndex - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 12 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1601, 708 - - - 0 - - - Fester Wert - - - TabPage9 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlFinalIndices - - - 0 - - - True - - - btnEditor - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 0 - - - Label15 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 1 - - - cmbIndexe2 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 2 - - - btnSaveSQLCommand - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 3 - - - SQL_COMMANDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 4 - - - btnShowConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 5 - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 6 - - - cmbConnection - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 7 - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 8 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1601, 708 - - - 1 - - - Dynamisches SQL - - - TabPage10 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlFinalIndices - - - 1 - - - False - - - 668, 161 - - - 1609, 737 - - - 90 - - - TabControlFinalIndices - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 5 - - - True - - - Tahoma, 12pt, style=Bold - - - 5, 83 - - - 120, 19 - - - 74 - - - Finale Indexe - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 6 - - - True - - - Segoe UI, 9.75pt, style=Italic - - - 6, 108 - - - 583, 17 - - - 75 - - - Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierten Dokument gesetzt. - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 7 - - - 765, 56 - - - 44, 22 - - - von {0} - - - Die Gesamtanzahl der Elemente. - - - None - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - MiddleLeft - - - Magenta - - - 156, 22 - - - Neuen Index hinzufügen - - - MiddleLeft - - - Magenta - - - 99, 22 - - - Index löschen - - - MiddleLeft - - - Magenta - - - 95, 22 - - - Aktualisieren - - - MiddleRight - - - Magenta - - - 73, 22 - - - Abbruch - - - False - - - 7, 133 - - - 568, 25 - - - 76 - - - BindingNavigator1 - - - TBPM_PROFILE_FINAL_INDEXINGBindingNavigator - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 8 - - - True - - - Top, Bottom, Left - - - 9, 161 - - - 653, 755 - - - 75 - - - TBPM_PROFILE_FINAL_INDEXINGDataGridView - - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 9 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1235, 445 - - - 0 - - - Move und finale Indexe - - - TabPage11 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 0 - - - True - - - ANNOTATE_WORK_HISTORY_ENTRYCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 0 - - - ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 1 - - - SQL_VIEWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 3 - - - WORK_HISTORY_ENTRYTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 5 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1235, 448 - - - 1 - - - Nachbearbeitungsfunktionen 2 - - - TabPage12 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 1 - - - Fill - - - 3, 3 - - - 1243, 474 - - - 92 - - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1249, 480 - - - 1 - - - Aktionen nach erfolgreicher Indexierung: - - - TabPage6 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabctrl_Profilkonfig - - - 1 - - - 9, 77 - - - 1257, 509 - - - 79 - - - tabctrl_Profilkonfig - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 592 - - - 0 - - - Profil-Verwaltung - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - - - SplitContainerProfilzuordnung - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 592 - - - 1 - - - Profilzuordnung - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - btnUserManager - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - VEKTOR_DELIMITERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - - - btnConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - btnopen_SQLAdmin - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - EMAIL_ACTIVECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - grpbxEmail - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - btnlicensemanager_open - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - INTERVALL_CKECK_NO_OF_FILESNumericUpDown - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 10 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 11 - - - GEAENDERTWERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 13 - - - GEAENDERTWANNTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 15 - - - btnSaveKonfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 16 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 592 - - - 2 - - - Grundeinstellungen - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - 1092, 56 - - - TBPM_ERROR_LOGDataGridView - - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 0 - - - TBPM_ERROR_LOGBindingNavigator - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 1 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 592 - - - 3 - - - Log - - - TabPage4 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 3 - - - Fill - - - 0, 0 - - - 1280, 621 - - - 3 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - pnlMain - - - 0 - 6, 12 @@ -4388,358 +2523,501 @@ der Wertänderungen nutzen wollen: 7 - - MiddleLeft + + Tahoma, 9.75pt, style=Bold - - 9, 51 + + 4, 25 - - 119, 29 + + 3, 3, 3, 3 - - 1 + + 1249, 480 - - Datumstempel - - - MiddleRight - - - btnStampDate - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grbxSystemStamps - - + 0 - - MiddleLeft + + Allgemeine Profilangaben: - - 9, 22 + + TabPage5 - - 119, 23 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + tabctrl_Profilkonfig + + 0 - - Username - - - MiddleRight - - - btnStampUser - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grbxSystemStamps - - - 1 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAANtJREFUOE+tkzsSgjAURbMEl+TQswDWg8M2LKSWggW4DrWhUBuKaAGUTw5DMASU - z5iZw0zeu/cmmRDljqqqtmVZJjW6Rhx0URR7NK38M7TWm7p5yrJMoiiSIAjE87we1OihQYuntStFIU1T - 8X1f4kMsl/NVnvrVgxo9NGjxNGaS8jxvGvfbY2B0QcOOONZ/AhhMKM49wteAJTQBfKYYMwO9yZVnB7jn - BSOyTTaDgOSYdM1VAVxPGO66uREZg8sggCsihJ2sCnAxIttk6H7lXyuA3R99TAgW4Dxnpd6OS61yelZ6 - QAAAAABJRU5ErkJggg== - - - - MiddleLeft - - - 110, 217 - - - 114, 30 - - - 80 - - - Editor Detail - - - MiddleRight - - - btnEditor - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 0 - - + True - - Tahoma, 9.75pt + + 245, 134 + + + Fill - - 328, 3 + + 0, 0 - - 44, 16 + + Id - - 79 + + Windream Index - - Index: + + True - - Label15 + + 0 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Fester Wert - - TabPage10 + + True - + 1 - - 331, 22 + + SQL Befehl - - 194, 24 + + True - - 78 - - - cmbIndexe2 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - + 2 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAFRJREFUOE9j+P//P0UYTHz79u0/Cfg9EBswAAGKAU5OTnD84f1HOEYWA9FtbW1w - Q8gyAIRhhpBtAAiD9BBlADJGVkNbA4jBowYMSgPIwXADyMf/GQC4A6rkpAjLjQAAAABJRU5ErkJggg== - + + Hinzugefügt Wer - - MiddleLeft + + True - - 9, 216 - - - 95, 30 - - - 11 - - - Speichern - - - MiddleRight - - - btnSaveSQLCommand - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - + 3 - - Courier New, 9pt + + Hinzugefügt Wann - - 9, 68 - - + True - - 516, 142 - - - 10 - - - SQL_COMMANDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - + 4 - - Tahoma, 9.75pt + + Geändert Wer - - MiddleLeft + + True - - 218, 22 - - - 107, 24 - - - 9 - - - Connections - - - MiddleRight - - - btnShowConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - + 5 - + + Geändert Wann + + True - - Tahoma, 9.75pt - - - 6, 3 - - - 76, 16 - - - 8 - - - Connection: - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - + 6 - - 502, 173 - - - Tahoma, 9.75pt + + 906, 269 - - 9, 23 + + 93 - - 203, 24 + + gridFinalIndex - - 7 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - cmbConnection + + Panel5 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 7 - - - 502, 173 - - - True - - - 5, 49 - - - 99, 16 - - + 0 - - SQL-Command: + + Right - - Label4 + + False - + + 906, 0 + + + 323, 269 + + + 91 + + + PropertyGrid1 + + + System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel5 + + + 1 + + + Bottom + + + 3, 173 + + + 1229, 269 + + + 94 + + + Panel5 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage11 + + + 0 + + + 831, 212 + + + True + + + 112, 22 + + + Neu hinzufügen + + + 127, 22 + + + von {0} finalen Indexen + + + Die Gesamtanzahl der Elemente. + + + None + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Erste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + True + + + 23, 22 + + + Vorherige verschieben + + + 6, 25 + + + Position + + + False + + + 50, 23 + + + 0 + + + Aktuelle Position + + + 6, 25 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Nächste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + True + + + 23, 22 + + + Letzte verschieben + + + 6, 25 + + + Magenta + + + 85, 22 + + + Abbrechen + + + False + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + True + + + 71, 22 + + + Löschen + + + Magenta + + + 79, 22 + + + Speichern + + + Magenta + + + 95, 22 + + + Aktualisieren + + + 9, 133 + + + 658, 25 + + + 92 + + + BindingNavigator1 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage11 + + + 1 + + + True + + + Segoe UI, 9.75pt, style=Italic + + + 6, 3 + + + 497, 17 + + + 79 + + + Definieren Sie hier Aktionen welche nach erfolgreicher Indexierung durchgeführt werden: + + + Label13 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage10 + + TabPage11 - - 8 + + 2 - + True - - - ID - - Indexname + + Tahoma, 12pt, style=Bold - - Value + + 5, 83 - - Erstellt wer + + 120, 19 - - Erstellt wann + + 74 + + + Finale Indexe + + + Label5 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage11 + + + 4 + + + True + + + Segoe UI, 9.75pt, style=Italic + + + 6, 108 + + + 583, 17 + + + 75 + + + Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierten Dokument gesetzt. + + + Label6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage11 + + + 5 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1235, 445 + + + 0 + + + Move und finale Indexe + + + TabPage11 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl2 + + + 0 + + + True 291, 336 @@ -4837,6 +3115,132 @@ der Wertänderungen nutzen wollen: 5 + + 4, 25 + + + 3, 3, 3, 3 + + + 1235, 445 + + + 1 + + + Nachbearbeitungsfunktionen 2 + + + TabPage12 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl2 + + + 1 + + + Fill + + + 3, 3 + + + 1243, 474 + + + 92 + + + TabControl2 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1249, 480 + + + 1 + + + Aktionen nach erfolgreicher Indexierung: + + + TabPage6 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + tabctrl_Profilkonfig + + + 1 + + + 9, 77 + + + 1257, 509 + + + 79 + + + tabctrl_Profilkonfig + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 592 + + + 0 + + + Profil-Verwaltung + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + Fill @@ -4927,6 +3331,21 @@ der Wertänderungen nutzen wollen: 0 + + 4, 25 + + + 3, 3, 3, 3 + + + 906, 557 + + + 0 + + + Benutzer + TabPage7 @@ -4939,6 +3358,21 @@ der Wertänderungen nutzen wollen: 0 + + 4, 25 + + + 3, 3, 3, 3 + + + 906, 557 + + + 1 + + + Gruppen + TabPage8 @@ -5008,58 +3442,31 @@ der Wertänderungen nutzen wollen: 0 - + 4, 25 - + 3, 3, 3, 3 - - 906, 557 + + 1272, 592 - - 0 - - - Benutzer - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl3 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 906, 557 - - + 1 - - Gruppen + + Profilzuordnung - - TabPage8 + + TabPage2 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl3 + + TabControl1 - + 1 @@ -5149,9 +3556,6 @@ der Wertänderungen nutzen wollen: 3 - - 457, 95 - MiddleLeft @@ -5236,177 +3640,6 @@ der Wertänderungen nutzen wollen: 6 - - GroupBox5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 0 - - - EMAIL_REMINDER_FOOTERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 2 - - - EMAIL_REMINDER_HEADERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 4 - - - EMAIL_PWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 6 - - - EMAIL_USERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 8 - - - EMAIL_SMTPTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 10 - - - EMAIL_FROMTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 12 - - - False - - - 21, 90 - - - 622, 324 - - - 1 - - - E-Mail Konfiguration - - - grpbxEmail - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - txtemailEmpfaenger - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 0 - - - Label8 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 1 - - - btnTest_Email - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 2 - - - 307, 23 - - - 303, 87 - - - 21 - - - Email testen - - - GroupBox5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 0 - 112, 19 @@ -5488,6 +3721,30 @@ der Wertänderungen nutzen wollen: 2 + + 307, 23 + + + 303, 87 + + + 21 + + + Email testen + + + GroupBox5 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 0 + 10, 258 @@ -5620,6 +3877,33 @@ der Wertänderungen nutzen wollen: 12 + + False + + + 21, 90 + + + 622, 324 + + + 1 + + + E-Mail Konfiguration + + + grpbxEmail + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 7 + MiddleLeft @@ -5770,6 +4054,33 @@ der Wertänderungen nutzen wollen: 16 + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 592 + + + 2 + + + Grundeinstellungen + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + ID @@ -5969,12 +4280,72 @@ der Wertänderungen nutzen wollen: 1 + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 592 + + + 3 + + + Log + + + TabPage4 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 3 + + + Fill + + + 0, 0 + + + 1280, 621 + + + 3 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlMain + + + 0 + + + 502, 173 + 860, 134 977, 95 + + 16, 17 + + + False + 0, 621 @@ -5999,12 +4370,6 @@ der Wertänderungen nutzen wollen: 1 - - 16, 17 - - - False - 240, 95 @@ -6069,7 +4434,7 @@ der Wertänderungen nutzen wollen: True - 270 + 185 7, 16 @@ -6517,6 +4882,18 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + colVALUE + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colSQL_COMMAND + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + colADDED_WHO @@ -6553,12 +4930,6 @@ der Wertänderungen nutzen wollen: System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - BindingNavigatorDeleteItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - BindingNavigatorMoveFirstItem1 @@ -6607,125 +4978,29 @@ der Wertänderungen nutzen wollen: System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ToolStripButton4 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBDD_CONNECTIONBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorCountItem4 - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveFirstItem4 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMovePreviousItem4 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator12 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorPositionItem4 - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator13 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveNextItem4 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveLastItem4 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator14 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton2 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton3 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - tsBtnCancel System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GUID + + BindingNavigatorDeleteItem - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewTextBoxColumn26 + + tsBtnSave - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewTextBoxColumn27 + + ToolStripButton5 - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - DataGridViewTextBoxColumn28 - - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - DataGridViewTextBoxColumn29 - - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 viewAvailableProfiles @@ -6847,6 +5122,12 @@ der Wertänderungen nutzen wollen: System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TBDD_CONNECTIONBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + TBPM_PROFILE_CONTROLSBindingSource diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 5d21dd7..dd851b9 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -13,7 +13,7 @@ Public Class frmAdministration Private INSERT_ACTIVE As Boolean = False Dim Windream_Indicies As List(Of String) - + Dim Windream_Indicies_Types As List(Of Integer) Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load formloaded = False @@ -68,7 +68,15 @@ Public Class frmAdministration Indexe_eintragen() Try - Windream_Indicies = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList() + If cmbObjekttypen.Text <> String.Empty Then + Windream_Indicies = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList() + Windream_Indicies_Types = New List(Of Integer) + + For Each i In Windream_Indicies + Dim type = _windreamPM.GetTypeOfIndex(i) + Windream_Indicies_Types.Add(type) + Next + End If Catch ex As Exception MsgBox("Fehler bei Indexe_eintragen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try @@ -382,7 +390,7 @@ Public Class frmAdministration Private Sub Refresh_Final_indexe() Try - Me.lblSaveFinalIndex.Visible = False + 'Me.lblSaveFinalIndex.Visible = False If formloaded = False Then Exit Sub If PROFILGUIDTextBox.Text <> String.Empty Then Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, PROFILGUIDTextBox.Text) @@ -429,159 +437,159 @@ Public Class frmAdministration MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh Error:") End Try End Sub - Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbIndexe.SelectedIndexChanged - If cmbIndexe.SelectedIndex <> -1 Then - 'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text)) - btnInsert_FinalIndex.Enabled = True - Me.btnStampDate.Visible = False - Me.btnStampDate.Visible = False - Dim type = _windreamPM.GetTypeOfIndex(cmbIndexe.Text) - Select Case type - Case 1 'String - Me.lblIndex.Text = "Definieren Sie den festen Wert: (Text)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = True - Me.btnStampDate.Visible = True - Me.btnStampDate.Visible = True - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case 2 'Integer - Me.lblIndex.Text = "Definieren Sie den festen Wert: (Zahl)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = True - Me.btnStampDate.Visible = True - Me.btnStampDate.Visible = True - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case 3 'Float - Me.lblIndex.Text = "Definieren Sie den festen Wert: (Decimal)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = False - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case 4 ' Boolean - Me.lblIndex.Text = "Wählen Sie den Boolean-Wert: (Ja/Nein)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = False - Me.grbxSystemStamps.Visible = False - Me.chkbxfinalIndex.CheckState = CheckState.Checked - Me.chkbxfinalIndex.Visible = True - Case 5 'Date - Me.lblIndex.Text = "Definieren Sie den festen Wert: (Date)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = True - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case 4107 'Vektor Zahl - Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Zahl)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = False - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case 4097 'Vektor String - Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Text)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = True - Me.btnStampDate.Visible = True - Me.btnStampDate.Visible = True - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case 4100 'Vektor Bool - Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Boolean)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = False - Me.btnStampDate.Visible = False - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case 4101 'Vektor Date - Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Date)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = True - Me.btnStampDate.Visible = True - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case 4104 - Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Currency)" - Me.lblIndex.Visible = True - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = False - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Case Else - btnInsert_FinalIndex.Enabled = False - End Select + 'Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) + ' If cmbIndexe.SelectedIndex <> -1 Then + ' 'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text)) + ' btnInsert_FinalIndex.Enabled = True + ' Me.btnStampDate.Visible = False + ' Me.btnStampDate.Visible = False + ' Dim type = _windreamPM.GetTypeOfIndex(cmbIndexe.Text) + ' Select Case type + ' Case 1 'String + ' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Text)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = True + ' Me.btnStampDate.Visible = True + ' Me.btnStampDate.Visible = True + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case 2 'Integer + ' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Zahl)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = True + ' Me.btnStampDate.Visible = True + ' Me.btnStampDate.Visible = True + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case 3 'Float + ' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Decimal)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = False + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case 4 ' Boolean + ' Me.lblIndex.Text = "Wählen Sie den Boolean-Wert: (Ja/Nein)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = False + ' Me.grbxSystemStamps.Visible = False + ' Me.chkbxfinalIndex.CheckState = CheckState.Checked + ' Me.chkbxfinalIndex.Visible = True + ' Case 5 'Date + ' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Date)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = True + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case 4107 'Vektor Zahl + ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Zahl)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = False + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case 4097 'Vektor String + ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Text)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = True + ' Me.btnStampDate.Visible = True + ' Me.btnStampDate.Visible = True + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case 4100 'Vektor Bool + ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Boolean)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = False + ' Me.btnStampDate.Visible = False + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case 4101 'Vektor Date + ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Date)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = True + ' Me.btnStampDate.Visible = True + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case 4104 + ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Currency)" + ' Me.lblIndex.Visible = True + ' Me.txtindexwert_final.Visible = True + ' Me.grbxSystemStamps.Visible = False + ' Me.txtindexwert_final.Text = "" + ' Me.chkbxfinalIndex.Visible = False + ' Case Else + ' btnInsert_FinalIndex.Enabled = False + ' End Select - End If - End Sub + ' End If + 'End Sub - Private Sub btnInsert_FinalIndex_Click(sender As System.Object, e As System.EventArgs) Handles btnInsert_FinalIndex.Click - Me.lblSaveFinalIndex.Visible = False - If CheckBoxPMVEKTOR.Checked = False Then - If cmbIndexe.SelectedIndex <> -1 Then - Dim indexwert As String = "" - If txtindexwert_final.Visible = True Then - indexwert = txtindexwert_final.Text - Else - If chkbxfinalIndex.CheckState = CheckState.Checked Then - indexwert = 1 - Else - indexwert = 0 - End If + 'Private Sub btnInsert_FinalIndex_Click(sender As System.Object, e As System.EventArgs) + ' Me.lblSaveFinalIndex.Visible = False + ' If CheckBoxPMVEKTOR.Checked = False Then + ' If cmbIndexe.SelectedIndex <> -1 Then + ' Dim indexwert As String = "" + ' If txtindexwert_final.Visible = True Then + ' indexwert = txtindexwert_final.Text + ' Else + ' If chkbxfinalIndex.CheckState = CheckState.Checked Then + ' indexwert = 1 + ' Else + ' indexwert = 0 + ' End If - End If - Try - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, Environment.UserName, 0, "") - Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now - Me.lblSaveFinalIndex.Visible = True + ' End If + ' Try + ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, Environment.UserName, 0, "") + ' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now + ' Me.lblSaveFinalIndex.Visible = True - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index:") - End Try + ' Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index:") + ' End Try - End If - Else - If txtBezeichner.Text <> "" Then - Dim indexwert As String = "" - If txtindexwert_final.Visible = True Then - indexwert = txtindexwert_final.Text - Else - If chkbxfinalIndex.CheckState = CheckState.Checked Then - indexwert = "True" - Else - indexwert = "False" - End If + ' End If + ' Else + ' If txtBezeichner.Text <> "" Then + ' Dim indexwert As String = "" + ' If txtindexwert_final.Visible = True Then + ' indexwert = txtindexwert_final.Text + ' Else + ' If chkbxfinalIndex.CheckState = CheckState.Checked Then + ' indexwert = "True" + ' Else + ' indexwert = "False" + ' End If - End If - Try - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, "[%VKT" & txtBezeichner.Text, indexwert, Environment.UserName, 0, "") - Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now - Me.lblSaveFinalIndex.Visible = True - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index in VEKTORFELD:") - End Try - End If - End If - Refresh_Final_indexe() - INSERT_ACTIVE = False - TabControlFinalIndices.Enabled = False + ' End If + ' Try + ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, "[%VKT" & txtBezeichner.Text, indexwert, Environment.UserName, 0, "") + ' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now + ' Me.lblSaveFinalIndex.Visible = True + ' Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index in VEKTORFELD:") + ' End Try + ' End If + ' End If + ' Refresh_Final_indexe() + ' INSERT_ACTIVE = False + ' TabControlFinalIndices.Enabled = False - End Sub - Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click - Refresh_Final_indexe() - INSERT_ACTIVE = False - TabControlFinalIndices.Enabled = False + 'End Sub + 'Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs) + ' Refresh_Final_indexe() + ' INSERT_ACTIVE = False + ' TabControlFinalIndices.Enabled = False - txtBezeichner.Text = String.Empty - txtindexwert_final.Text = String.Empty - End Sub + ' txtBezeichner.Text = String.Empty + ' txtindexwert_final.Text = String.Empty + 'End Sub Private Sub tsbtnProfilkopieren_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnProfilkopieren.Click Dim result As MsgBoxResult = MsgBox("Wollen Sie das gesamte Profil kopieren?" & vbNewLine & "Alle Einstellungen werden übernommen, das Profil wird angelegt und inaktiv gesetzt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") @@ -676,86 +684,23 @@ Public Class frmAdministration End If End Sub - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnStampUser.Click - Me.txtindexwert_final.Text = "vUserName" - End Sub - - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnStampDate.Click - Me.txtindexwert_final.Text = "vDate" - End Sub - - Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxPMVEKTOR.CheckedChanged - If CheckBoxPMVEKTOR.Checked Then - Me.txtBezeichner.Visible = True - Me.cmbIndexe.Visible = False - txtBezeichner.Text = "" - Me.lblIndexPMVektor.Text = "Bezeichner für VektorIndex eingeben:" - - Me.lblIndex.Visible = True - Me.lblIndex.Text = "Bitte den festen Wert als String eingeben:" - Me.txtindexwert_final.Visible = True - Me.grbxSystemStamps.Visible = True - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - Else - Me.txtBezeichner.Visible = False - Me.cmbIndexe.Visible = True - Me.lblIndexPMVektor.Text = "Index wählen:" - - Me.lblIndex.Visible = False - Me.txtindexwert_final.Visible = False - Me.grbxSystemStamps.Visible = False - Me.txtindexwert_final.Text = "" - Me.chkbxfinalIndex.Visible = False - End If - End Sub Private Sub btnopen_SQLAdmin_Click(sender As Object, e As EventArgs) Handles btnopen_SQLAdmin.Click frmSQL_Admin.ShowDialog() End Sub Private Sub btnRefreshProfiles_Click(sender As Object, e As EventArgs) Handles btnRefreshProfiles.Click Refresh_Profildaten() End Sub - Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click - TabControlFinalIndices.Enabled = True - tsBtnCancel.Visible = True - cmbIndexe.Items.Clear() - cmbIndexe2.Items.Clear() - Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text) - If indexe IsNot Nothing Then - For Each index As String In indexe - Me.cmbIndexe.Items.Add(index) - Me.cmbIndexe2.Items.Add(index) - Next - Me.cmbIndexe.SelectedIndex = -1 - End If - INSERT_ACTIVE = True - End Sub Private Sub CancelFinalIndexInsert() - TabControlFinalIndices.Enabled = False INSERT_ACTIVE = False tsBtnCancel.Visible = False + BindingNavigatorAddNewItem.Visible = True + + TBPM_PROFILE_FINAL_INDEXINGBindingSource.CancelEdit() - txtBezeichner.Text = String.Empty - txtindexwert_final.Text = String.Empty - cmbIndexe.SelectedIndex = -1 - cmbIndexe2.SelectedIndex = -1 - cmbConnection.SelectedIndex = -1 - SQL_COMMANDTextBox.Text = String.Empty - CheckBoxPMVEKTOR.Checked = False End Sub - Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click - Dim i, ID As Integer - i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index - ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value - If ID > 0 Then - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete(ID) - End If - Refresh_Final_indexe() - MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:") - ' DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING.Clear() - End Sub + Private Sub ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged If ACTIVECheckBox.Checked Then ACTIVECheckBox.BackColor = Color.Lime @@ -829,105 +774,105 @@ Public Class frmAdministration End If End Sub - Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlFinalIndices.SelectedIndexChanged - If TabControlFinalIndices.SelectedIndex = 1 Then - Me.cmbIndexe2.Enabled = False - If INSERT_ACTIVE = True Then - Me.cmbIndexe2.Enabled = True - End If - End If - End Sub + 'Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs) + ' If TabControlFinalIndices.SelectedIndex = 1 Then + ' Me.cmbIndexe2.Enabled = False + ' If INSERT_ACTIVE = True Then + ' Me.cmbIndexe2.Enabled = True + ' End If + ' End If + 'End Sub - Private Sub btnSaveSQLCommand_Click(sender As Object, e As EventArgs) Handles btnSaveSQLCommand.Click - If INSERT_ACTIVE = True Then - If cmbConnection.SelectedIndex = -1 Or SQL_COMMANDTextBox.Text = String.Empty Or cmbIndexe2.SelectedIndex = -1 Then - MsgBox("Bitte wählen Sie eine Connection und definieren einen SQL-Befehl!", MsgBoxStyle.Exclamation) - Exit Sub - End If - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text) - INSERT_ACTIVE = False - Else - Dim i, ID As Integer - i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index - ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value - If ID > 0 Then - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, Environment.UserName, ID) - End If + 'Private Sub btnSaveSQLCommand_Click(sender As Object, e As EventArgs) + ' If INSERT_ACTIVE = True Then + ' If cmbConnection.SelectedIndex = -1 Or SQL_COMMANDTextBox.Text = String.Empty Or cmbIndexe2.SelectedIndex = -1 Then + ' MsgBox("Bitte wählen Sie eine Connection und definieren einen SQL-Befehl!", MsgBoxStyle.Exclamation) + ' Exit Sub + ' End If + ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text) + ' INSERT_ACTIVE = False + ' Else + ' Dim i, ID As Integer + ' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index + ' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value + ' If ID > 0 Then + ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, Environment.UserName, ID) + ' End If - End If - Refresh_Final_indexe() - End Sub + ' End If + ' Refresh_Final_indexe() + 'End Sub - Private Sub btnEditor_Click(sender As Object, e As EventArgs) Handles btnEditor.Click - Try - Dim CONID = 0 - If cmbConnection.SelectedValue > 0 Then - CONID = cmbConnection.SelectedValue - End If - If INSERT_ACTIVE = True Then - If cmbIndexe2.SelectedIndex = -1 Then - MsgBox("Bitte wählen Sie einen Index!", MsgBoxStyle.Exclamation) - Exit Sub - End If + 'Private Sub btnEditor_Click(sender As Object, e As EventArgs) + ' Try + ' Dim CONID = 0 + ' If cmbConnection.SelectedValue > 0 Then + ' CONID = cmbConnection.SelectedValue + ' End If + ' If INSERT_ACTIVE = True Then + ' If cmbIndexe2.SelectedIndex = -1 Then + ' MsgBox("Bitte wählen Sie einen Index!", MsgBoxStyle.Exclamation) + ' Exit Sub + ' End If - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, CONID, SQL_COMMANDTextBox.Text) + ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, CONID, SQL_COMMANDTextBox.Text) - End If - Dim i, ID As Integer - Try - i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index - ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value - If ID > 0 Then - CURRENT_INDEX_ID = ID - CURRENT_DESIGN_TYPE = "FINAL_INDEX" - CURRENT_SQL_COMAMND = SQL_COMMANDTextBox.Text - CURRENT_SQL_CON = CONID - CURRENT_ProfilGUID = PROFILGUIDTextBox.Text + ' End If + ' Dim i, ID As Integer + ' Try + ' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index + ' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value + ' If ID > 0 Then + ' CURRENT_INDEX_ID = ID + ' CURRENT_DESIGN_TYPE = "FINAL_INDEX" + ' CURRENT_SQL_COMAMND = SQL_COMMANDTextBox.Text + ' CURRENT_SQL_CON = CONID + ' CURRENT_ProfilGUID = PROFILGUIDTextBox.Text - frmSQL_DESIGNER.ShowDialog() - End If - Catch ex As Exception - clsLogger.Add("Error while operating on TBPM_PROFILE_FINAL_INDEXINGDataGridView: " & ex.Message) - End Try + ' frmSQL_DESIGNER.ShowDialog() + ' End If + ' Catch ex As Exception + ' clsLogger.Add("Error while operating on TBPM_PROFILE_FINAL_INDEXINGDataGridView: " & ex.Message) + ' End Try - Refresh_Final_indexe() - Catch ex As Exception - MsgBox("Error while opening SQLEditor: " & ex.Message, MsgBoxStyle.Critical) - clsLogger.Add("Error while opening SQLEditor: " & ex.Message) - End Try - End Sub - Private Sub TBPM_PROFILE_FINAL_INDEXINGDataGridView_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles TBPM_PROFILE_FINAL_INDEXINGDataGridView.CellClick - Try - TabControlFinalIndices.Enabled = False - TabControlFinalIndices.SelectedIndex = 0 + ' Refresh_Final_indexe() + ' Catch ex As Exception + ' MsgBox("Error while opening SQLEditor: " & ex.Message, MsgBoxStyle.Critical) + ' clsLogger.Add("Error while opening SQLEditor: " & ex.Message) + ' End Try + 'End Sub + 'Private Sub TBPM_PROFILE_FINAL_INDEXINGDataGridView_CellClick(sender As Object, e As DataGridViewCellEventArgs) + ' Try + ' TabControlFinalIndices.Enabled = False + ' TabControlFinalIndices.SelectedIndex = 0 - Dim i, ID As Integer - i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index - ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value - If ID > 0 Then - Dim sql = String.Format("SELECT T.*, T1.BEZEICHNUNG AS CON_STRING FROM TBPM_PROFILE_FINAL_INDEXING T,TBDD_CONNECTION T1 WHERE T.GUID = {0} AND T.CONNECTION_ID = T1.GUID ", ID) - CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(sql, True) + ' Dim i, ID As Integer + ' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index + ' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value + ' If ID > 0 Then + ' Dim sql = String.Format("SELECT T.*, T1.BEZEICHNUNG AS CON_STRING FROM TBPM_PROFILE_FINAL_INDEXING T,TBDD_CONNECTION T1 WHERE T.GUID = {0} AND T.CONNECTION_ID = T1.GUID ", ID) + ' CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(sql, True) - Dim Type = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(2, i).Value - If Type = "SQL-Command" Then - Dim Indexname = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(1, i).Value - TabControlFinalIndices.Enabled = True - TabControlFinalIndices.SelectedIndex = 1 - cmbIndexe2.Text = Indexname - cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") - cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) - SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND") - End If - End If - Catch ex As Exception - MsgBox("Error while loading final Index: " & ex.Message, MsgBoxStyle.Critical) - clsLogger.Add("Error while loading final Index: " & ex.Message) - End Try - End Sub + ' Dim Type = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(2, i).Value + ' If Type = "SQL-Command" Then + ' Dim Indexname = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(1, i).Value + ' TabControlFinalIndices.Enabled = True + ' TabControlFinalIndices.SelectedIndex = 1 + ' cmbIndexe2.Text = Indexname + ' cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") + ' cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) + ' SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND") + ' End If + ' End If + ' Catch ex As Exception + ' MsgBox("Error while loading final Index: " & ex.Message, MsgBoxStyle.Critical) + ' clsLogger.Add("Error while loading final Index: " & ex.Message) + ' End Try + 'End Sub - Private Sub btnShowConnections_Click(sender As Object, e As EventArgs) Handles btnShowConnections.Click - frmConnection.ShowDialog() - End Sub + 'Private Sub btnShowConnections_Click(sender As Object, e As EventArgs) + ' frmConnection.ShowDialog() + 'End Sub Private Sub btnUserManager_Click(sender As Object, e As EventArgs) Handles btnUserManager.Click Try @@ -985,11 +930,17 @@ Public Class frmAdministration Dim view As GridView = sender Dim focusedRow As DataRow = view.GetFocusedDataRow() + If IsNothing(focusedRow) Then + Exit Sub + End If + Dim guid As Integer = focusedRow.Item("GUID") - Dim index As String = focusedRow.Item("INDEXNAME") - Dim sqlCommand As String = focusedRow.Item("SQL_COMMAND") - Dim connectionId As Integer = focusedRow.Item("CONNECTION_ID") - Dim value As String = focusedRow.Item("VALUE") + Dim index As String = NotNull(focusedRow.Item("INDEXNAME"), Nothing) + Dim sqlCommand As String = NotNull(focusedRow.Item("SQL_COMMAND"), "") + Dim connectionId As Integer = NotNull(focusedRow.Item("CONNECTION_ID"), 0) + Dim value As String = NotNull(focusedRow.Item("VALUE"), "") + Dim active As Boolean = NotNull(focusedRow.Item("ACTIVE"), True) + Dim description As String = NotNull(focusedRow.Item("DESCRIPTION"), "") CURRENT_INDEX_ID = guid CURRENT_SQL_CON = connectionId @@ -997,12 +948,55 @@ Public Class frmAdministration Dim obj As New FinalIndexProperties() obj.GUID = guid obj.IndexName = index - obj.StaticValue = value obj.SQLCommand = New SQLValue(sqlCommand) obj.ConnectionId = connectionId + obj.Description = description + obj.Active = active + + + + ' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen + If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then + obj = ClassFinalIndex.SetValue(value, obj, index, Windream_Indicies, Windream_Indicies_Types) + End If + + 'Dim type As Integer = ClassFinalIndex.GetIndexType(index, Windream_Indicies, Windream_Indicies_Types) + 'Dim isCurrentIndexVectorIndex = ClassFinalIndex.IsVectorIndex(type) + + 'Dim indicies As List(Of String) = Windream_Indicies.AsEnumerable _ + ' .Where(Function(currentIndex As String) + ' Dim currentType As Integer = ClassFinalIndex.GetIndexType(currentIndex, Windream_Indicies, Windream_Indicies_Types) + + ' If isCurrentIndexVectorIndex Then + ' Return ClassFinalIndex.IsVectorIndex(currentType) + ' Else + ' Return Not ClassFinalIndex.IsVectorIndex(currentType) + ' End If + ' End Function).ToList() + + 'Dim indexTypes As List(Of Integer) = Windream_Indicies_Types.AsEnumerable _ + ' .Where(Function(currentType) + ' If isCurrentIndexVectorIndex Then + ' Return ClassFinalIndex.IsVectorIndex(currentType) + ' Else + ' Return Not ClassFinalIndex.IsVectorIndex(currentType) + ' End If + ' End Function).ToList() + + + 'obj.Indicies = indicies + 'obj.IndiciesType = indexTypes obj.Indicies = Windream_Indicies + obj.IndiciesType = Windream_Indicies_Types + obj.IndexName = index + + If Not index Is Nothing Then + Dim indexType As Integer = ClassFinalIndex.GetIndexType(index, Windream_Indicies, Windream_Indicies_Types) + obj.VectorIndex = ClassFinalIndex.IsVectorIndex(indexType) + End If PropertyGrid1.SelectedObject = obj + PropertyGrid1.Refresh() Catch ex As Exception MsgBox($"Error while loading Final Index properties: {ex.Message}") ClassLogger.Add($"Error while loading Final Index properties: {ex.Message}") @@ -1010,50 +1004,61 @@ Public Class frmAdministration End Sub Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click - Dim obj As New FinalIndexProperties() - obj.Indicies = Windream_Indicies - obj.SQLCommand = New SQLValue() - - PropertyGrid1.SelectedObject = obj - INSERT_ACTIVE = True + + tsBtnCancel.Visible = True + BindingNavigatorAddNewItem.Visible = False End Sub - Private Sub ToolStripButton4_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton4.Click + Private Sub ToolStripButton4_Click_1(sender As Object, e As EventArgs) Handles tsBtnSave.Click Try Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject If Not IsNothing(obj) Then + + Dim value + + If obj.SQLCommand.Value <> String.Empty Then + value = "SQL-Command" + Else + value = ClassFinalIndex.GetValue(obj, obj.IndexName, Windream_Indicies, Windream_Indicies_Types, obj.VectorIndex) + End If + Dim guid = obj.GUID Dim profileId As Integer = PROFILGUIDTextBox.Text Dim connectionId As Integer = obj.ConnectionId Dim sqlCommand As String = obj.SQLCommand.Value.Replace("'", "''") Dim indexName As String = obj.IndexName - Dim value As String = obj.StaticValue + Dim isVectorIndex As Boolean = obj.VectorIndex Dim addedWho As String = Environment.UserName + Dim description As String = obj.Description + Dim active As Integer = IIf(obj.Active, 1, 0) If NotNull(indexName, "") = String.Empty Then - MsgBox("Das Feld Index muss ausgefüllt sein!", MsgBoxStyle.Exclamation) + MsgBox("Das Feld IndexName muss ausgefüllt sein!", MsgBoxStyle.Exclamation) Exit Sub End If If NotNull(sqlCommand, "") = String.Empty And NotNull(value, "") = String.Empty Then - MsgBox("Entweder SQL Command oder StaticValue müssen ausgefüllt sein!", MsgBoxStyle.Exclamation) + MsgBox("Entweder SQLCommand oder StaticValue müssen ausgefüllt sein!", MsgBoxStyle.Exclamation) Exit Sub End If - + If obj.VectorIndex Then + value = $"{ClassFinalIndex.PREFIX_VECTOR}{value}" + End If If INSERT_ACTIVE = True Then - Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ADDED_WHO) - VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', '{addedWho}')" + Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, ADDED_WHO) + VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, '{addedWho}')" If ClassDatabase.Execute_non_Query(sql, True) Then INSERT_ACTIVE = False End If Else Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING - SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}' + SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', + VALUE = '{value}', ACTIVE = {active} WHERE GUID = {guid}" If ClassDatabase.Execute_non_Query(sql, True) Then @@ -1062,11 +1067,14 @@ Public Class frmAdministration End If Refresh_Final_indexe() - End If Catch ex As Exception MsgBox("Error while Saving Final Index: " & ex.Message, MsgBoxStyle.Critical) ClassLogger.Add("Error while Saving Final Index: " & ex.Message) + Finally + tsBtnCancel.Visible = False + BindingNavigatorAddNewItem.Visible = True + INSERT_ACTIVE = False End Try End Sub @@ -1075,12 +1083,49 @@ Public Class frmAdministration Dim obj As FinalIndexProperties = propertyGrid.SelectedObject If TypeOf (e.ChangedItem.Value) Is SQLValue Then + Dim value As SQLValue = e.ChangedItem.Value - obj.ConnectionId = CURRENT_SQL_CON - obj.StaticValue = "SQL-Command" - ElseIf e.ChangedItem.Label = "StaticValue" Then + If value.Value <> String.Empty Then + obj.ConnectionId = CURRENT_SQL_CON + obj.StringValue = "SQL-Command" + End If - obj.SQLCommand.Value = String.Empty + propertyGrid.Refresh() + ElseIf e.ChangedItem.Label = "IndexName" Then + Dim type As Integer = ClassFinalIndex.GetIndexType(e.ChangedItem.Value, Windream_Indicies, Windream_Indicies_Types) + obj.VectorIndex = ClassFinalIndex.IsVectorIndex(type) + + propertyGrid.Refresh() End If End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click + Dim selectedRowHandle = viewFinalIndex.GetSelectedRows().First() + Dim row As DataRow = viewFinalIndex.GetDataRow(selectedRowHandle) + + If Not IsNothing(row) Then + If MsgBox("Wollen Sie den Index wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete(row.Item("GUID")) + Refresh_Final_indexe() + + MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:") + End If + End If + End Sub + + Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click + Refresh_Final_indexe() + End Sub + + Private Sub tsBtnCancel_Click_1(sender As Object, e As EventArgs) Handles tsBtnCancel.Click + CancelFinalIndexInsert() + End Sub + + 'Private Sub viewFinalIndex_ValidateRow(sender As Object, e As Views.Base.ValidateRowEventArgs) Handles viewFinalIndex.ValidateRow + ' Dim rowView As DataRowView = e.Row + + ' If rowView.IsNew Then + ' Dim props As FinalIndexProperties = PropertyGrid1.SelectedObject + ' End If + 'End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 9ab8225..b06803a 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -1,4 +1,5 @@ -Imports DD_LIB_Standards +Imports System.ComponentModel +Imports DD_LIB_Standards Public Class frmFormDesigner Public ProfileId As Integer @@ -40,9 +41,12 @@ Public Class frmFormDesigner Dim sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList() Windream_AllIndicies = sortedIndicies - Windream_ChoiceLists = clsWD_GET.GetChoiceLists() Windream_VectorIndicies = Windream_AllIndicies.FindAll(AddressOf IsVectorIndex) Windream_SimpleIndicies = Windream_AllIndicies.Except(Windream_VectorIndicies).ToList() + + Windream_ChoiceLists = New List(Of String) + Windream_ChoiceLists.Add(String.Empty) + Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists()) Catch ex As Exception MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try @@ -89,6 +93,9 @@ Public Class frmFormDesigner ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER CURRENT_DESIGN_TYPE = "FINAL_INDEX" + + ' Beim Schließen das PropertyGrid leeren + pgControls.SelectedObject = Nothing End Sub ''' diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 9f3f6c1..34617a7 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -186,12 +186,6 @@ Public Class frmMain Private Sub SaveGridLayout() Try Dim xml As String = GetXML_LayoutName() - Dim xmlDefault = xml & ".default" - - If IO.File.Exists(xmlDefault) = False Then - GridView_Docs.SaveLayoutToXml(xmlDefault, OptionsLayoutBase.FullLayout) - End If - GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout) Catch ex As Exception ClassLogger.Add("Error while saving GridLayout: " & ex.Message) @@ -210,10 +204,24 @@ Public Class frmMain Private Sub ResetLayout() Try Dim xml As String = GetXML_LayoutName() - Dim xmlDefault = xml & ".default" IO.File.Delete(xml) - GridView_Docs.RestoreLayoutFromXml(xmlDefault, OptionsLayoutBase.FullLayout) + GridView_Docs.Columns.Clear() + GridView_Docs.PopulateColumns() + + GridView_Docs.Columns.Item("PROFILE_ID").Visible = False + GridView_Docs.Columns.Item("GUID").Visible = False + GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False + GridView_Docs.Columns.Item("DOC_ID").Visible = False + GridView_Docs.Columns.Item("TL_STATE").Visible = False + GridView_Docs.Columns.Item("ICON").MaxWidth = 24 + GridView_Docs.Columns.Item("ICON").MinWidth = 24 + GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White + GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left + GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False + GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False Catch ex As Exception ClassLogger.Add("Error while resetting layout: " & ex.Message) End Try @@ -221,8 +229,11 @@ Public Class frmMain Sub Load_Profile_items() Cursor = Cursors.WaitCursor + Dim profileGroupOpen As Boolean = False + Try Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(0) + profileGroupOpen = CurrGroup.Expanded Try CurrGroup.ItemLinks.Clear() @@ -240,19 +251,21 @@ Public Class frmMain For Each profile As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows Dim item1 As NavBarItem = NavBarControl1.Items.Add() item1.Caption = profile.Item("TITLE") + item1.Hint = profile.Item("TITLE") + item1.Appearance.TextOptions.WordWrap = WordWrap.Wrap item1.Tag = "itmProfile#" & profile.Item("GUID").ToString Dim _image As Image = Nothing - _image = DevExpress.Images.ImageResourceCache.Default.GetImage("images/actions/add_16x16.png") + _image = DevExpress.Images.ImageResourceCache.Default.GetImage("images/business%20objects/bofileattachment_16x16.png") item1.LargeImage = _image + item1.SmallImage = _image NavBarControl1.Groups(0).ItemLinks.Add(item1) AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked Next - If GRID_LOAD_TYPE = "OVERVIEW" Then - CurrGroup.Expanded = False - End If + + CurrGroup.Expanded = profileGroupOpen Catch ex As Exception ClassLogger.Add("Load_Profile_items - Error: " & ex.Message) @@ -285,7 +298,7 @@ Public Class frmMain End Sub Function Load_Profiles_for_User() As Boolean Try - Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID) + Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", CURRENT_USER_ID) CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(sql) If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then @@ -379,7 +392,7 @@ Public Class frmMain Dim value = row.Item("VALUE") Dim argument = row.Item("ARGUMENT") Dim sqlchart = row.Item("SQL_COMMAND") - sqlchart = sqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID) + sqlchart = sqlchart.ToString.ToUpper.Replace("@USER_ID", CURRENT_USER_ID) sqlchart = sqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME) Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sqlchart) @@ -488,7 +501,7 @@ Public Class frmMain lblViewType.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE Dim sql = foundRows(0)("SQL_VIEW") - sql = sql.Replace("@USER_ID", USER_ID) + sql = sql.Replace("@USER_ID", CURRENT_USER_ID) sql = sql.Replace("@USERNAME", Environment.UserName) sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) sql = sql.Replace("@DATE", Now.ToShortDateString) @@ -607,7 +620,7 @@ Public Class frmMain ClassInit.InitBasics() Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") - sql = sql.Replace("@USER_ID", USER_ID) + sql = sql.Replace("@USER_ID", CURRENT_USER_ID) sql = sql.Replace("@USERNAME", Environment.UserName) sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) sql = sql.Replace("@DATE", Now.ToShortDateString) @@ -791,17 +804,23 @@ Public Class frmMain Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening CMFileStart.Enabled = False CMGroupStart.Enabled = False + CMMassValidation.Enabled = False + + Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows() + + If selectedRows.Count > 0 Then + CMMassValidation.Enabled = True + End If + Select Case GridViewItem_Clicked Case "GROUP" CMGroupStart.Enabled = True Case "ROW" - Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows() If selectedRows.Count > 1 Then CMFileStart.Enabled = False Else CMFileStart.Enabled = True End If - End Select End Sub @@ -898,42 +917,64 @@ Public Class frmMain Return False End Try End Function - Private Sub MarkierteDateienAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkierteDateienAbschliessenToolStripMenuItem.Click + Private Sub MarkierteDateienAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMMassValidation.Click Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows() Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) Dim workedFiles As Integer = 0 - Dim dt As New DataTable - dt.Columns.Add("DOC_ID") - dt.Columns.Add("DOC_GUID") - dt.Columns.Add("FULL_PATH") + + Dim profileId = 0 + + If selectedRows.Count = 0 Then + If CURRENT_USER_LANGUAGE = "de-DE" Then + MsgBox("Bitte selektieren Sie einige 1 oder mehr Dokumente", MsgBoxStyle.Exclamation, "Massenabschluss") + Else + MsgBox("Please select some documents!", MsgBoxStyle.Exclamation, "Mass Validation") + End If + + Exit Sub + End If + + If GridView_Docs.IsGroupRow(hitInfo.RowHandle) Then + Dim groupRowHandle = hitInfo.RowHandle + + Dim childRows As Integer = GridView_Docs.GetChildRowCount(groupRowHandle) + + If childRows > 0 Then + Dim childRowHandle = GridView_Docs.GetChildRowHandle(groupRowHandle, 0) + + profileId = GridView_Docs.GetRowCellValue(childRowHandle, "PROFILE_ID") + Else + MsgBox("This profile has no documents!") + End If + Else + If hitInfo.RowHandle >= 0 Then + profileId = GridView_Docs.GetRowCellValue(hitInfo.RowHandle, "PROFILE_ID") + Else + Dim parentRowHandle = GridView_Docs.GetParentRowHandle(hitInfo.RowHandle) + Dim dataRowHandle = GridView_Docs.GetDataRowHandleByGroupRowHandle(parentRowHandle) + + profileId = GridView_Docs.GetRowCellValue(dataRowHandle, "PROFILE_ID") + End If + End If + + If Init_windream() Then + + CURRENT_ProfilGUID = profileId + CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID)) + CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) + CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX") + If CURRENT_PROFILE_VEKTOR_LOG = "" Then + CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX") + End If - If Init_windream() = True Then - CURRENT_ProfilGUID = 0 - Dim i As Integer = 0 + Dim dt As New DataTable + dt.Columns.Add("DOC_ID") + dt.Columns.Add("DOC_GUID") + dt.Columns.Add("FULL_PATH") + For Each rowhandle As Integer In selectedRows Dim R As DataRow = dt.NewRow - Dim PROFILE_ID As Integer = 0 - PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) - If i = 0 And CURRENT_ProfilGUID = 0 Then - CURRENT_ProfilGUID = PROFILE_ID - CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID)) - CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) - CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX") - If CURRENT_PROFILE_VEKTOR_LOG = "" Then - CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX") - End If - End If - If PROFILE_ID <> CURRENT_ProfilGUID Then - If USER_LANGUAGE <> "de_DE" Then - MsgBox("Sorry but You can only mass-validate docs which belong to he same profile!", MsgBoxStyle.Exclamation) - Else - MsgBox("Bitte bachten Sie dass Sie nur Dokumente, welche zum gleichen Profil gehören, mit der Massenfunktion bearbeiten können!", MsgBoxStyle.Exclamation) - End If - Exit Sub - End If - - Dim DOC_ID = GridView_Docs.GetRowCellValue(rowhandle, "DOC_ID") CURRENT_DOC_ID = DOC_ID Dim DOC_PATH = GridView_Docs.GetRowCellValue(rowhandle, "FULL_FILE_PATH") @@ -943,18 +984,22 @@ Public Class frmMain R("FULL_PATH") = CURRENT_DOC_PATH R("DOC_GUID") = GridView_Docs.GetRowCellValue(rowhandle, "GUID") dt.Rows.Add(R) - CURRENT_DT_MASS_CHANGE_DOCS = Nothing - CURRENT_DT_MASS_CHANGE_DOCS = dt Next + CURRENT_DT_MASS_CHANGE_DOCS = Nothing + CURRENT_DT_MASS_CHANGE_DOCS = dt + + frmMassValidator.ShowDialog() + + Load_Profile_items() + Decide_Load() + Else + If CURRENT_USER_LANGUAGE = "de-DE" Then + MsgBox("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!", MsgBoxStyle.Critical, "Massenabschluss") + Else + MsgBox("Massvalidation could not be completed because of an error in windream", MsgBoxStyle.Critical, "Massvalidation") + End If End If - - frmMassValidator.ShowDialog() - - - Load_Profile_items() - Decide_Load() - End Sub Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click Item_Scope() @@ -974,7 +1019,7 @@ Public Class frmMain lblViewType.Text = "Gesamtübersicht" Cursor = Cursors.WaitCursor Try - Dim sel = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID ={0}", USER_ID) + Dim sel = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID ={0}", CURRENT_USER_ID) CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(sel, True) tslblmessage.Text = "" @@ -996,7 +1041,7 @@ Public Class frmMain tslblmessage.Text = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig" Exit Sub End If - sql = sql.Replace("@USER_ID", USER_ID) + sql = sql.Replace("@USER_ID", CURRENT_USER_ID) sql = sql.Replace("@USERNAME", Environment.UserName) sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) sql = sql.Replace("@DATE", Now.ToShortDateString) @@ -1063,10 +1108,9 @@ Public Class frmMain GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0 GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False - For I = 0 To GridView_Docs.GroupCount - 1 - Dim v = GridView_Docs.GroupedColumns(I).ToString - Dim ii = Nothing - GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID") + For index = 0 To GridView_Docs.GroupCount - 1 + Dim v = GridView_Docs.GroupedColumns(index).ToString + GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID") Next GridView_Docs.Columns.Item("PROFILE_ID").Visible = False @@ -1161,7 +1205,13 @@ Public Class frmMain End Sub Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click + ' Layout zurücksetzen ResetLayout() + SaveGridLayout() + + ' Ansicht neu laden + Load_Profile_items() + Decide_Load() End Sub @@ -1201,10 +1251,6 @@ Public Class frmMain End Try End Sub - Private Sub GridView_Docs_RowClick(sender As Object, e As RowClickEventArgs) Handles GridView_Docs.RowClick - - End Sub - Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick Item_Scope() End Sub @@ -1247,9 +1293,11 @@ Public Class frmMain Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown Dim view As GridView = sender Dim hi As GridHitInfo = view.CalcHitInfo(e.Location) + Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton) + GridCursorLocation = e.Location ' wenn in eine Group Row Doppelt geklickt wurde.. - If hi.InGroupRow Then + If hi.InGroupRow And Not groupRowButtonClicked Then ' Ein/Ausklappen verhindern DXMouseEventArgs.GetMouseArgs(e).Handled = True GridViewItem_Clicked = "GROUP" @@ -1263,27 +1311,4 @@ Public Class frmMain GridViewItem_Clicked = Nothing End If End Sub - - 'Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle - ' Dim view As GridView = TryCast(sender, GridView) - ' Dim row As DataRow = view.GetDataRow(e.RowHandle) - - ' If IsNothing(row) Then - ' Exit Sub - ' End If - - ' Dim state = row.Item("TL_STATE") - - ' e.HighPriority = True - - ' Select Case state - ' Case 1 - ' ' e.Appearance.BackColor = Color.LightSalmon - ' Case 2 - ' ' e.Appearance.BackColor = Color.LightGoldenrodYellow - ' Case 3 - ' ' e.Appearance.BackColor = Color.LightGreen - ' End Select - - 'End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index e33cd59..6a07a0d 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -2529,7 +2529,8 @@ Public Class frmValidator missing = True errmessage = "Please Choose an entry out of ComboBox '" & cmb.Name & "'" Exit For - ElseIf cmb.SelectedIndex <> -1 Then + 'ElseIf cmb.SelectedIndex <> -1 Then + Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben input = cmb.Text Dim wertWD As String 'den aktuellen Wert in windream auslesen diff --git a/app/Setup/Product.wxs b/app/Setup/Product.wxs index af32faf..8a67d92 100644 --- a/app/Setup/Product.wxs +++ b/app/Setup/Product.wxs @@ -24,7 +24,7 @@ @@ -98,6 +98,10 @@ + + + + @@ -155,11 +159,12 @@ + - + @@ -174,6 +179,7 @@ +