AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS 2.1.6.7 FinalIndexing, Handling Saving Profile

Browse Source
This commit is contained in:
SchreiberM 2021-02-02 14:00:42 +01:00
parent 2529373166
commit 50317604ad
15 changed files with 563 additions and 616 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -12,6 +12,7 @@
For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
Dim value As String = dr.Item("VALUE").ToString Dim value As String = dr.Item("VALUE").ToString
Dim INDEXNAME = dr.Item("INDEXNAME").ToString Dim INDEXNAME = dr.Item("INDEXNAME").ToString
Dim oContinueOnIndifferentState As Boolean = CBool(dr.Item("CONTINUE_INDETERMINED"))
If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
LOGGER.Debug("indexing with dynamic sql...") LOGGER.Debug("indexing with dynamic sql...")
'Dim SQL_COMMAND = dr.Item("SQL_COMMAND") 'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
@ -41,9 +42,9 @@
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement) sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True) sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True)
LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement) LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, "Write_Final_Metadata/dynamic_value") Dim oDynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, "Write_Final_Metadata/dynamic_value")
If Not IsNothing(dynamic_value) Then If Not IsNothing(oDynamic_value) Then
value = dynamic_value value = oDynamic_value
Else Else
Continue For Continue For
End If End If

413
app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

45
app/DD_PM_WINDREAM/FinalIndexDataSet.xsd
View File

@ -15,10 +15,12 @@
<CommandText>SELECT TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID, TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND, <CommandText>SELECT TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID, TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND,
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.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.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE,
TBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATES, TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR TBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATES, TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR,
TBPM_PROFILE_FINAL_INDEXING.SEQUENCE, TBPM_PROFILE_FINAL_INDEXING.CONTINUE_INDETERMINED
FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN
TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID
WHERE (TBPM_PROFILE.NAME = @NAME)</CommandText> WHERE (TBPM_PROFILE.NAME = @NAME)
ORDER BY TBPM_PROFILE_FINAL_INDEXING.SEQUENCE</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
@ -42,25 +44,11 @@ WHERE (TBPM_PROFILE.NAME = @NAME)</CommandText>
<Mapping SourceColumn="PREVENT_DUPLICATES" DataSetColumn="PREVENT_DUPLICATES" /> <Mapping SourceColumn="PREVENT_DUPLICATES" DataSetColumn="PREVENT_DUPLICATES" />
<Mapping SourceColumn="ALLOW_NEW_VALUES" DataSetColumn="ALLOW_NEW_VALUES" /> <Mapping SourceColumn="ALLOW_NEW_VALUES" DataSetColumn="ALLOW_NEW_VALUES" />
<Mapping SourceColumn="IF_VEKTOR_BEHAVIOUR" DataSetColumn="IF_VEKTOR_BEHAVIOUR" /> <Mapping SourceColumn="IF_VEKTOR_BEHAVIOUR" DataSetColumn="IF_VEKTOR_BEHAVIOUR" />
<Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
<Mapping SourceColumn="CONTINUE_INDETERMINED" DataSetColumn="CONTINUE_INDETERMINED" />
</Mappings> </Mappings>
<Sources> <Sources>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CopyFinalIndex" Modifier="Public" Name="CopyFinalIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="CopyFinalIndex"> <DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="DeleteFinalIndex" Modifier="Public" Name="DeleteFinalIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="DeleteFinalIndex">
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBPM_PROFILE_FINAL_INDEXING
(PROFIL_ID, INDEXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)
SELECT @NEW_PROFIL_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND
FROM TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1
WHERE (PROFIL_ID = @Copy_Profil_ID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NEW_PROFIL_ID" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@NEW_PROFIL_ID" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="User" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@User" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Copy_Profil_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Copy_Profil_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="DeleteFinalIndex" Modifier="Public" Name="DeleteFinalIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy1" UserSourceName="DeleteFinalIndex">
<DeleteCommand> <DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBPM_PROFILE_FINAL_INDEXING <CommandText>DELETE FROM TBPM_PROFILE_FINAL_INDEXING
@ -71,23 +59,6 @@ WHERE (GUID = @guid)</CommandText>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
</DbSource> </DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="InsertFinalIndex" Modifier="Public" Name="InsertFinalIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy2" UserSourceName="InsertFinalIndex">
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>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)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_COMMAND" ColumnName="SQL_COMMAND" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_FINAL_INDEXING" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_COMMAND" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="SQL_COMMAND" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
</DbSource>
</Sources> </Sources>
</TableAdapter> </TableAdapter>
</Tables> </Tables>
@ -158,6 +129,8 @@ VALUES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMA
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" default="0" />
<xs:element name="CONTINUE_INDETERMINED" msprop:Generator_ColumnVarNameInTable="columnCONTINUE_INDETERMINED" msprop:Generator_ColumnPropNameInRow="CONTINUE_INDETERMINED" msprop:Generator_ColumnPropNameInTable="CONTINUE_INDETERMINEDColumn" msprop:Generator_UserColumnName="CONTINUE_INDETERMINED" type="xs:boolean" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>

2
app/DD_PM_WINDREAM/FinalIndexDataSet.xss
View File

@ -6,7 +6,7 @@
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout"> <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="1" X="93" Y="35" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" /> <Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="1" X="93" Y="35" Height="362" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
</Shapes> </Shapes>
<Connectors /> <Connectors />
</DiagramLayout> </DiagramLayout>

5
app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb
View File

@ -17,7 +17,10 @@ Module ModuleFinalIndexProperties
Public Property Description As String Public Property Description As String
<Category("Sonstiges")> <Category("Sonstiges")>
Public Property Active As Boolean Public Property Active As Boolean
<Category("Sonstiges")>
Public Property Sequence As Integer = 0
<Category("Sonstiges")>
Public Property ContinueOnIndifferentState As Boolean
''' <summary> ''' <summary>
''' Eigenschaft, die den SQL Editor anzeigt ''' Eigenschaft, die den SQL Editor anzeigt
''' </summary> ''' </summary>

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

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

3
app/DD_PM_WINDREAM/frmAdministration.Designer.vb generated
View File

@ -1596,7 +1596,10 @@ Partial Class frmAdministration
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
' '
'BarButtonItem1 'BarButtonItem1
' '

10
app/DD_PM_WINDREAM/frmAdministration.resx
View File

@ -565,7 +565,7 @@
<value>58</value> <value>58</value>
</data> </data>
<data name="gridAssignedGroups.Size" type="System.Drawing.Size, System.Drawing"> <data name="gridAssignedGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 159</value> <value>1062, 198</value>
</data> </data>
<data name="gridAssignedGroups.TabIndex" type="System.Int32, mscorlib"> <data name="gridAssignedGroups.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
@ -688,7 +688,7 @@
<value>58</value> <value>58</value>
</data> </data>
<data name="gridAvailableGroups.Size" type="System.Drawing.Size, System.Drawing"> <data name="gridAvailableGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 185</value> <value>1062, 232</value>
</data> </data>
<data name="gridAvailableGroups.TabIndex" type="System.Int32, mscorlib"> <data name="gridAvailableGroups.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -775,10 +775,10 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>1062, 398</value> <value>1062, 484</value>
</data> </data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib"> <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>184</value> <value>223</value>
</data> </data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -2317,7 +2317,7 @@
<value>3, 3, 3, 3</value> <value>3, 3, 3, 3</value>
</data> </data>
<data name="TabPage8.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPage8.Size" type="System.Drawing.Size, System.Drawing">
<value>1068, 404</value> <value>1068, 490</value>
</data> </data>
<data name="TabPage8.TabIndex" type="System.Int32, mscorlib"> <data name="TabPage8.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>

270
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -17,9 +17,10 @@ Public Class frmAdministration
Dim DT_CHART_CONFIG As DataTable Dim DT_CHART_CONFIG As DataTable
Dim DT2Compare As DataTable Dim DT2Compare As DataTable
Dim PROF_ORIGIN As DataTable Dim PROF_ORIGIN As DataTable
Private CURR_TEXT_CONTROL_CONTENT As String 'Private CURR_TEXT_CONTROL_CONTENT As String
Private CURR_BOOL_CONTROL_CONTENT As CheckState = CheckState.Indeterminate 'Private CURR_BOOL_CONTROL_CONTENT As CheckState = CheckState.Indeterminate
Private CURR_COMBOBOX_CONTROL_CONTENT As String 'Private CURR_COMBOBOX_CONTROL_CONTENT As String
Private PROFILEBS_POS As Integer = 0
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
formloaded = False formloaded = False
@ -177,7 +178,7 @@ Public Class frmAdministration
change_BindingSource = True change_BindingSource = True
CHANGES_FORM_DESIGN = True CHANGES_FORM_DESIGN = True
UNSAVED_CHANGES_PROFILE = False UNSAVED_CHANGES_PROFILE = False
CURR_TEXT_CONTROL_CONTENT = String.Empty ' CURR_TEXT_CONTROL_CONTENT = String.Empty
TBPM_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE) TBPM_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE)
TBPM_TYPETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_TYPE) TBPM_TYPETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_TYPE)
TBPM_KONFIGURATIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_KONFIGURATION) TBPM_KONFIGURATIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_KONFIGURATION)
@ -943,8 +944,8 @@ Public Class frmAdministration
Dim preventDuplicates As Boolean = NotNull(focusedRow.Item("PREVENT_DUPLICATES"), False) Dim preventDuplicates As Boolean = NotNull(focusedRow.Item("PREVENT_DUPLICATES"), False)
Dim allowNewValues As Boolean = NotNull(focusedRow.Item("ALLOW_NEW_VALUES"), False) Dim allowNewValues As Boolean = NotNull(focusedRow.Item("ALLOW_NEW_VALUES"), False)
Dim VectorBehaviour As String = NotNull(focusedRow.Item("IF_VEKTOR_BEHAVIOUR"), "Add") Dim VectorBehaviour As String = NotNull(focusedRow.Item("IF_VEKTOR_BEHAVIOUR"), "Add")
Dim oSequence As Int16 = NotNull(focusedRow.Item("SEQUENCE"), 0)
Dim oIndetermined As Boolean = NotNull(focusedRow.Item("CONTINUE_INDETERMINED"), False)
CURRENT_INDEX_ID = guid CURRENT_INDEX_ID = guid
CURRENT_SQL_CON = connectionId CURRENT_SQL_CON = connectionId
@ -958,7 +959,8 @@ Public Class frmAdministration
obj.AllowAddNewValues = allowNewValues obj.AllowAddNewValues = allowNewValues
obj.PreventDuplicates = preventDuplicates obj.PreventDuplicates = preventDuplicates
obj.VectorBehaviour = VectorBehaviour obj.VectorBehaviour = VectorBehaviour
obj.Sequence = oSequence
obj.ContinueOnIndifferentState = oIndetermined
' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen ' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen
If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then
obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types) obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types)
@ -1015,6 +1017,10 @@ Public Class frmAdministration
ElseIf e.ChangedItem.Label = "IndexName" Then ElseIf e.ChangedItem.Label = "IndexName" Then
Dim type As Integer = FINALINDICES.GetIndexType(e.ChangedItem.Value, MyIndicies, MyIndicies_Types) Dim type As Integer = FINALINDICES.GetIndexType(e.ChangedItem.Value, MyIndicies, MyIndicies_Types)
obj.VectorIndex = FINALINDICES.IsVectorIndex(type) obj.VectorIndex = FINALINDICES.IsVectorIndex(type)
ElseIf e.ChangedItem.Label = "Sequence" Then
obj.Sequence = e.ChangedItem.Value
ElseIf e.ChangedItem.Label = "ContinueOnIndifferentState" Then
obj.ContinueOnIndifferentState = e.ChangedItem.Value
End If End If
propertyGrid.Refresh() propertyGrid.Refresh()
End If End If
@ -1244,7 +1250,8 @@ Public Class frmAdministration
Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0) Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0)
Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty) Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty)
Dim oDescription As String = NotNull(obj.Description, String.Empty) Dim oDescription As String = NotNull(obj.Description, String.Empty)
Dim oSequence As Integer = obj.Sequence
Dim oContinueOIdS As Integer = obj.ContinueOnIndifferentState
If indexName = String.Empty Then If indexName = String.Empty Then
MsgBox("We need an index!", MsgBoxStyle.Exclamation) MsgBox("We need an index!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@ -1262,8 +1269,15 @@ Public Class frmAdministration
End If End If
If INSERT_ACTIVE = True Then If INSERT_ACTIVE = True Then
Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION) Dim pSequence As String
VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}')" If oSequence = 0 Then
pSequence = $"(SELECT MAX(SEQUENCE) + 1 FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {profileId})"
Else
pSequence = oSequence
End If
Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION,SEQUENCE,CONTINUE_INDETERMINED)
VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}',{pSequence},{oContinueOIdS})"
If ClassDatabase.Execute_non_Query(sql, True) Then If ClassDatabase.Execute_non_Query(sql, True) Then
tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}" tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}"
@ -1272,7 +1286,7 @@ Public Class frmAdministration
Else Else
Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING
SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', DESCRIPTION = '{oDescription}', SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', DESCRIPTION = '{oDescription}',
VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}' VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}', [SEQUENCE] = {oSequence}, CONTINUE_INDETERMINED = {oContinueOIdS}
WHERE GUID = {guid}" WHERE GUID = {guid}"
If ClassDatabase.Execute_non_Query(sql, True) Then If ClassDatabase.Execute_non_Query(sql, True) Then
@ -1373,29 +1387,6 @@ Public Class frmAdministration
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
End Sub End Sub
Private Sub TBPM_PROFILEBindingSource_CurrentItemChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentItemChanged
If formloaded = False Then
Exit Sub
End If
' Check_Changes()
change_BindingSource = True
End Sub
Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
If formloaded = False Then
Exit Sub
End If
If UNSAVED_CHANGES_PROFILE Then
CHECK_QUESTION_CHANGES()
End If
'Check_Changes()
change_BindingSource = False
tsbStaticInfo.Caption = ""
Indexe_eintragen()
If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
Refresh_Final_indexe()
End If
End Sub
Sub CHECK_QUESTION_CHANGES() Sub CHECK_QUESTION_CHANGES()
If formloaded = False Then If formloaded = False Then
Exit Sub Exit Sub
@ -1416,73 +1407,65 @@ Public Class frmAdministration
If UNSAVED_CHANGES_FI = True Then If UNSAVED_CHANGES_FI = True Then
Save_FI() Save_FI()
End If End If
' TBPM_PROFILEBindingSource.Position = PROFILEBS_POS - 1
Else Else
Refresh_Profildaten() Refresh_Profildaten()
End If End If
End If End If
End Sub End Sub
Private Sub Check_Changes()
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub
End If
' TBPM_PROFILEBindingSource.EndEdit()
If Not IsNothing(DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges) Then
UNSAVED_CHANGES_PROFILE = True
End If
End Sub
Private Sub NAMETextBox_TextChanged(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.TextChanged, TITLETextBox.TextChanged, NAMETextBox.TextChanged, 'Private Sub NAMETextBox_TextChanged(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.TextChanged, TITLETextBox.TextChanged, NAMETextBox.TextChanged,
FINAL_TEXTTextBox.TextChanged, DESCRIPTIONTextBox.TextChanged, WORK_HISTORY_ENTRYTextBox.TextChanged, MOVE2FOLDERTextBox.TextChanged ' FINAL_TEXTTextBox.TextChanged, DESCRIPTIONTextBox.TextChanged, WORK_HISTORY_ENTRYTextBox.TextChanged, MOVE2FOLDERTextBox.TextChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then ' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub ' Exit Sub
End If ' End If
'UNSAVED_CHANGES_PROFILE = True ' 'UNSAVED_CHANGES_PROFILE = True
End Sub 'End Sub
Private Sub ACTIVECheckBox_Enter(sender As Object, e As EventArgs) Handles ACTIVECheckBox.Enter, SORT_BY_LATESTCheckBox.Enter, FINAL_PROFILECheckBox.Enter 'Private Sub ACTIVECheckBox_Enter(sender As Object, e As EventArgs) Handles ACTIVECheckBox.Enter, SORT_BY_LATESTCheckBox.Enter, FINAL_PROFILECheckBox.Enter
Dim ochk As CheckBox = sender ' Dim ochk As CheckBox = sender
If formloaded = False Then ' If formloaded = False Then
Exit Sub ' Exit Sub
End If ' End If
If change_BindingSource = True Then ' If change_BindingSource = True Then
Exit Sub ' Exit Sub
End If ' End If
If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then ' If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
CURR_BOOL_CONTROL_CONTENT = ochk.Checked ' CURR_BOOL_CONTROL_CONTENT = ochk.Checked
End If ' End If
End Sub 'End Sub
Private Sub ACTIVECheckBox_CheckStateChanged(sender As Object, e As EventArgs) Handles SORT_BY_LATESTCheckBox.CheckStateChanged, FINAL_PROFILECheckBox.CheckStateChanged, ACTIVECheckBox.CheckStateChanged 'Private Sub ACTIVECheckBox_CheckStateChanged(sender As Object, e As EventArgs) Handles SORT_BY_LATESTCheckBox.CheckStateChanged, FINAL_PROFILECheckBox.CheckStateChanged, ACTIVECheckBox.CheckStateChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Or CURR_BOOL_CONTROL_CONTENT = CheckState.Indeterminate Then ' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Or CURR_BOOL_CONTROL_CONTENT = CheckState.Indeterminate Then
Exit Sub ' Exit Sub
End If ' End If
Dim ochk As CheckBox = sender ' Dim ochk As CheckBox = sender
If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then ' If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
UNSAVED_CHANGES_PROFILE = True ' ' UNSAVED_CHANGES_PROFILE = True
End If ' End If
End Sub 'End Sub
Private Sub cmbObjekttypen_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.SelectedIndexChanged, DISPLAY_MODEComboBox.SelectedIndexChanged, cmbObjekttypen.SelectedIndexChanged, cmbLOGIndex.SelectedIndexChanged 'Private Sub cmbObjekttypen_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.SelectedIndexChanged, DISPLAY_MODEComboBox.SelectedIndexChanged, cmbObjekttypen.SelectedIndexChanged, cmbLOGIndex.SelectedIndexChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then ' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub ' Exit Sub
End If ' End If
Dim ocmb As ComboBox = sender ' Dim ocmb As ComboBox = sender
Dim oSelectedValue = ocmb.SelectedValue ' Dim oSelectedValue = ocmb.SelectedValue
If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then ' If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
UNSAVED_CHANGES_PROFILE = True ' ' UNSAVED_CHANGES_PROFILE = True
End If ' End If
End Sub 'End Sub
Private Sub PM_VEKTOR_INDEXComboBox_Click(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.Click 'Private Sub PM_VEKTOR_INDEXComboBox_Click(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.Click
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then ' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub ' Exit Sub
End If ' End If
Dim ocmb As ComboBox = sender ' Dim ocmb As ComboBox = sender
If ocmb.SelectedIndex <> -1 Then ' If ocmb.SelectedIndex <> -1 Then
Dim oSelectedValue = ocmb.SelectedValue ' Dim oSelectedValue = ocmb.SelectedValue
If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then ' If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
CURR_COMBOBOX_CONTROL_CONTENT = oSelectedValue ' CURR_COMBOBOX_CONTROL_CONTENT = oSelectedValue
End If ' End If
End If ' End If
End Sub 'End Sub
Private Sub GridView1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfile.FocusedRowChanged Private Sub GridView1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfile.FocusedRowChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
@ -1502,17 +1485,42 @@ Public Class frmAdministration
End If End If
' '
End Sub End Sub
Private Sub TBPM_PROFILEBindingSource_ListChanged(sender As Object, e As ListChangedEventArgs) Handles TBPM_PROFILEBindingSource.ListChanged
Private Sub TBPM_PROFILEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentChanged If formloaded = False Then
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub Exit Sub
End If
Me.TBPM_PROFILEBindingSource.EndEdit()
If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then
UNSAVED_CHANGES_PROFILE = True
CHECK_QUESTION_CHANGES()
End If
End Sub
'Private Sub TBPM_PROFILEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentChanged
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
' Exit Sub
' End If
' ' change_BindingSource = True
' ' Check_Changes()
'End Sub
Private Sub TBPM_PROFILEBindingSource_CurrentItemChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentItemChanged
End Sub
Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
If formloaded = False Then
Exit Sub
End If
If UNSAVED_CHANGES_PROFILE Then
CHECK_QUESTION_CHANGES()
End If End If
change_BindingSource = True 'change_BindingSource = False
' Check_Changes()
End Sub
tsbStaticInfo.Caption = ""
Indexe_eintragen()
If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
Refresh_Final_indexe()
End If
End Sub
Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
End Sub End Sub
@ -1689,43 +1697,45 @@ Public Class frmAdministration
If IsNumeric(PROFILGUIDTextBox.Text) Then If IsNumeric(PROFILGUIDTextBox.Text) Then
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
UNSAVED_CHANGES_PROFILE = False 'UNSAVED_CHANGES_PROFILE = False
PROFILEBS_POS = TBPM_PROFILEBindingSource.Position
' change_BindingSource = False
End If End If
End Sub End Sub
Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) Handles NAMETextBox.GotFocus, TITLETextBox.GotFocus, DESCRIPTIONTextBox.GotFocus, WD_SEARCHTextBox.GotFocus, FINAL_TEXTTextBox.GotFocus, MOVE2FOLDERTextBox.GotFocus, 'Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) Handles NAMETextBox.GotFocus, TITLETextBox.GotFocus, DESCRIPTIONTextBox.GotFocus, WD_SEARCHTextBox.GotFocus, FINAL_TEXTTextBox.GotFocus, MOVE2FOLDERTextBox.GotFocus,
WORK_HISTORY_ENTRYTextBox.GotFocus ' WORK_HISTORY_ENTRYTextBox.GotFocus
If formloaded = False Or UNSAVED_CHANGES_PROFILE Then ' If formloaded = False Or UNSAVED_CHANGES_PROFILE Then
Exit Sub ' Exit Sub
End If ' End If
If change_BindingSource = True Then ' If change_BindingSource = True Then
Exit Sub ' Exit Sub
End If ' End If
Dim oBox As TextBox = sender ' Dim oBox As TextBox = sender
If Len(oBox.Text) > 0 Then ' If Len(oBox.Text) > 0 Then
If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then ' If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
CURR_TEXT_CONTROL_CONTENT = oBox.Text ' CURR_TEXT_CONTROL_CONTENT = oBox.Text
End If ' End If
End If ' End If
End Sub 'End Sub
Private Sub TextBox_Leave(sender As Object, e As EventArgs) Handles NAMETextBox.Leave, TITLETextBox.Leave, DESCRIPTIONTextBox.Leave, WD_SEARCHTextBox.Leave, FINAL_TEXTTextBox.Leave, MOVE2FOLDERTextBox.Leave, WORK_HISTORY_ENTRYTextBox.Leave 'Private Sub TextBox_Leave(sender As Object, e As EventArgs) Handles NAMETextBox.Leave, TITLETextBox.Leave, DESCRIPTIONTextBox.Leave, WD_SEARCHTextBox.Leave, FINAL_TEXTTextBox.Leave, MOVE2FOLDERTextBox.Leave, WORK_HISTORY_ENTRYTextBox.Leave
If formloaded = False Or IsNothing(CURR_TEXT_CONTROL_CONTENT) Then ' If formloaded = False Or IsNothing(CURR_TEXT_CONTROL_CONTENT) Then
Exit Sub ' Exit Sub
End If ' End If
'If change_BindingSource = True Then ' 'If change_BindingSource = True Then
' Exit Sub ' ' Exit Sub
'End If ' 'End If
Dim oBox As TextBox = sender ' Dim oBox As TextBox = sender
If Len(oBox.Text) > 0 Then ' If Len(oBox.Text) > 0 Then
If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then ' If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
UNSAVED_CHANGES_PROFILE = True ' ' UNSAVED_CHANGES_PROFILE = True
End If ' End If
End If ' End If
End Sub 'End Sub
Private Sub TBPM_PROFILEBindingSource_DataError(sender As Object, e As BindingManagerDataErrorEventArgs) Handles TBPM_PROFILEBindingSource.DataError Private Sub TBPM_PROFILEBindingSource_DataError(sender As Object, e As BindingManagerDataErrorEventArgs) Handles TBPM_PROFILEBindingSource.DataError
@ -1734,4 +1744,6 @@ Public Class frmAdministration
Private Sub TBPM_PROFILETableAdapter_Disposed(sender As Object, e As EventArgs) Handles TBPM_PROFILETableAdapter.Disposed Private Sub TBPM_PROFILETableAdapter_Disposed(sender As Object, e As EventArgs) Handles TBPM_PROFILETableAdapter.Disposed
End Sub End Sub
End Class End Class

27
app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb generated
View File

@ -65,8 +65,11 @@ Partial Class frmDesignerLayout
Me.RibbonControl1.MaxItemId = 5 Me.RibbonControl1.MaxItemId = 5
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.Size = New System.Drawing.Size(1196, 158) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(1196, 146)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
' '
'BarListItem1 'BarListItem1
' '
@ -113,10 +116,10 @@ Partial Class frmDesignerLayout
' '
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 598) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 601)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1196, 24) Me.RibbonStatusBar1.Size = New System.Drawing.Size(1196, 21)
' '
'RibbonPage2 'RibbonPage2
' '
@ -126,13 +129,13 @@ Partial Class frmDesignerLayout
'SplitContainerControl1 'SplitContainerControl1
' '
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 146)
Me.SplitContainerControl1.Name = "SplitContainerControl1" Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControlMain) Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControlMain)
Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel1.Text = "Panel1"
Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl1) Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl1)
Me.SplitContainerControl1.Panel2.Text = "Panel2" Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(1196, 440) Me.SplitContainerControl1.Size = New System.Drawing.Size(1196, 455)
Me.SplitContainerControl1.SplitterPosition = 818 Me.SplitContainerControl1.SplitterPosition = 818
Me.SplitContainerControl1.TabIndex = 8 Me.SplitContainerControl1.TabIndex = 8
' '
@ -149,7 +152,7 @@ Partial Class frmDesignerLayout
Me.LayoutControlMain.OptionsCustomizationForm.ShowPropertyGrid = True Me.LayoutControlMain.OptionsCustomizationForm.ShowPropertyGrid = True
Me.LayoutControlMain.OptionsCustomizationForm.ShowSaveButton = False Me.LayoutControlMain.OptionsCustomizationForm.ShowSaveButton = False
Me.LayoutControlMain.Root = Me.LayoutControlGroupMain Me.LayoutControlMain.Root = Me.LayoutControlGroupMain
Me.LayoutControlMain.Size = New System.Drawing.Size(818, 440) Me.LayoutControlMain.Size = New System.Drawing.Size(818, 455)
Me.LayoutControlMain.TabIndex = 3 Me.LayoutControlMain.TabIndex = 3
Me.LayoutControlMain.Text = "LayoutControl1" Me.LayoutControlMain.Text = "LayoutControl1"
' '
@ -158,7 +161,7 @@ Partial Class frmDesignerLayout
Me.LayoutControlGroupMain.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroupMain.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutControlGroupMain.GroupBordersVisible = False Me.LayoutControlGroupMain.GroupBordersVisible = False
Me.LayoutControlGroupMain.Name = "Root" Me.LayoutControlGroupMain.Name = "Root"
Me.LayoutControlGroupMain.Size = New System.Drawing.Size(818, 440) Me.LayoutControlGroupMain.Size = New System.Drawing.Size(818, 455)
Me.LayoutControlGroupMain.TextVisible = False Me.LayoutControlGroupMain.TextVisible = False
' '
'XtraTabControl1 'XtraTabControl1
@ -167,7 +170,7 @@ Partial Class frmDesignerLayout
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(368, 440) Me.XtraTabControl1.Size = New System.Drawing.Size(366, 455)
Me.XtraTabControl1.TabIndex = 0 Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
' '
@ -175,7 +178,7 @@ Partial Class frmDesignerLayout
' '
Me.XtraTabPage1.Controls.Add(Me.PropertyGridMain) Me.XtraTabPage1.Controls.Add(Me.PropertyGridMain)
Me.XtraTabPage1.Name = "XtraTabPage1" Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(366, 415) Me.XtraTabPage1.Size = New System.Drawing.Size(364, 430)
Me.XtraTabPage1.Text = "Eigenschaften" Me.XtraTabPage1.Text = "Eigenschaften"
' '
'PropertyGridMain 'PropertyGridMain
@ -185,14 +188,14 @@ Partial Class frmDesignerLayout
Me.PropertyGridMain.Location = New System.Drawing.Point(0, 0) Me.PropertyGridMain.Location = New System.Drawing.Point(0, 0)
Me.PropertyGridMain.MenuManager = Me.RibbonControl1 Me.PropertyGridMain.MenuManager = Me.RibbonControl1
Me.PropertyGridMain.Name = "PropertyGridMain" Me.PropertyGridMain.Name = "PropertyGridMain"
Me.PropertyGridMain.Size = New System.Drawing.Size(366, 415) Me.PropertyGridMain.Size = New System.Drawing.Size(364, 430)
Me.PropertyGridMain.TabIndex = 0 Me.PropertyGridMain.TabIndex = 0
' '
'XtraTabPage2 'XtraTabPage2
' '
Me.XtraTabPage2.Controls.Add(Me.ToolboxControlMain) Me.XtraTabPage2.Controls.Add(Me.ToolboxControlMain)
Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(366, 415) Me.XtraTabPage2.Size = New System.Drawing.Size(364, 415)
Me.XtraTabPage2.Text = "Controls" Me.XtraTabPage2.Text = "Controls"
' '
'ToolboxControlMain 'ToolboxControlMain
@ -208,7 +211,7 @@ Partial Class frmDesignerLayout
Me.ToolboxControlMain.OptionsView.ShowToolboxCaption = True Me.ToolboxControlMain.OptionsView.ShowToolboxCaption = True
Me.ToolboxControlMain.SelectedGroup = Me.ToolboxGroupMain Me.ToolboxControlMain.SelectedGroup = Me.ToolboxGroupMain
Me.ToolboxControlMain.SelectedGroupIndex = 0 Me.ToolboxControlMain.SelectedGroupIndex = 0
Me.ToolboxControlMain.Size = New System.Drawing.Size(366, 415) Me.ToolboxControlMain.Size = New System.Drawing.Size(364, 415)
Me.ToolboxControlMain.TabIndex = 5 Me.ToolboxControlMain.TabIndex = 5
Me.ToolboxControlMain.Text = "Form Controls" Me.ToolboxControlMain.Text = "Form Controls"
' '

5
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -1567,9 +1567,10 @@ Public Class frmMain
If SOURCE_INIT = True Then If SOURCE_INIT = True Then
Dim oSQL = $"select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = CURRENT_ProfilGUID"
CURRENT_ProfilGUID = oProfileId CURRENT_ProfilGUID = oProfileId
CURRENT_DT_FINAL_INDEXING = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}") Dim oSQL = $"select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY [SEQUENCE]"
CURRENT_DT_FINAL_INDEXING = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
CURRENT_DT_PROFILE.Clear() CURRENT_DT_PROFILE.Clear()
Dim oExpression = $"GUID = {CURRENT_ProfilGUID}" Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges) CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges)

2
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@ -37,7 +37,7 @@ Public Class frmSQL_DESIGNER
If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), "frmSQL_FINAL_INDICES_Load1") CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), "frmSQL_FINAL_INDICES_Load1")
ElseIf CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then ElseIf CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2") CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0} ORDER BY T.SEQUENCE", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2")
ElseIf CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then ElseIf CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_CONTROL_TABLE T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2") CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_CONTROL_TABLE T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2")
End If End If

33
app/DD_PM_WINDREAM/frmValidator.Designer.vb generated
View File

@ -96,6 +96,7 @@ Partial Class frmValidator
Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.btnitemConversation_reload = New DevExpress.XtraBars.BarButtonItem() Me.btnitemConversation_reload = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemAttmt = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -103,11 +104,10 @@ Partial Class frmValidator
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageCust = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.BarButtonItemAttmt = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPageCust = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer2_DV_Chat.SuspendLayout() Me.SplitContainer2_DV_Chat.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -458,7 +458,10 @@ Partial Class frmValidator
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
' '
'bsiError 'bsiError
' '
@ -669,6 +672,13 @@ Partial Class frmValidator
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5" Me.BarButtonItem5.Name = "BarButtonItem5"
' '
'BarButtonItemAttmt
'
resources.ApplyResources(Me.BarButtonItemAttmt, "BarButtonItemAttmt")
Me.BarButtonItemAttmt.Id = 27
Me.BarButtonItemAttmt.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemAttmt.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemAttmt.Name = "BarButtonItemAttmt"
'
'RibbonPageConversations 'RibbonPageConversations
' '
Me.RibbonPageConversations.Name = "RibbonPageConversations" Me.RibbonPageConversations.Name = "RibbonPageConversations"
@ -720,6 +730,12 @@ Partial Class frmValidator
Me.RibbonPageGroup3.Name = "RibbonPageGroup3" Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
' '
'RibbonPageCust
'
Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt)
Me.RibbonPageCust.Name = "RibbonPageCust"
Me.RibbonPageCust.Visible = False
'
'RibbonPageGroup2 'RibbonPageGroup2
' '
Me.RibbonPageGroup2.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[True] Me.RibbonPageGroup2.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[True]
@ -744,19 +760,6 @@ Partial Class frmValidator
Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
' '
'BarButtonItemAttmt
'
resources.ApplyResources(Me.BarButtonItemAttmt, "BarButtonItemAttmt")
Me.BarButtonItemAttmt.Id = 27
Me.BarButtonItemAttmt.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemAttmt.Name = "BarButtonItemAttmt"
'
'RibbonPageCust
'
Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt)
Me.RibbonPageCust.Name = "RibbonPageCust"
Me.RibbonPageCust.Visible = False
'
'frmValidator 'frmValidator
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True

322
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -131,6 +131,31 @@
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing"> <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
</data>
<data name="TITLELabel1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Symbol, 12pt, style=Bold</value>
</data>
<data name="TITLELabel1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 4</value>
</data>
<data name="TITLELabel1.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms">
<value>No</value>
</data>
<data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>433, 29</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="TITLELabel1.Text" xml:space="preserve">
<value>Label1</value>
</data>
<data name="TITLELabel1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve"> <data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve">
<value>TITLELabel1</value> <value>TITLELabel1</value>
</data> </data>
@ -143,6 +168,30 @@
<data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="btnSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left, Right</value>
</data>
<data name="btnSave.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="btnSave.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnSave.Location" type="System.Drawing.Point, System.Drawing">
<value>7, 459</value>
</data>
<data name="btnSave.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
<value>445, 50</value>
</data>
<data name="btnSave.TabIndex" type="System.Int32, mscorlib">
<value>11</value>
</data>
<data name="btnSave.Text" xml:space="preserve">
<value>Validierung speichern - Nächstes Dokument</value>
</data>
<data name="&gt;&gt;btnSave.Name" xml:space="preserve"> <data name="&gt;&gt;btnSave.Name" xml:space="preserve">
<value>btnSave</value> <value>btnSave</value>
</data> </data>
@ -155,6 +204,21 @@
<data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="DESCRIPTIONLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
</data>
<data name="DESCRIPTIONLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>5, 33</value>
</data>
<data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>447, 48</value>
</data>
<data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="DESCRIPTIONLabel.Text" xml:space="preserve">
<value>Label3</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve">
<value>DESCRIPTIONLabel</value> <value>DESCRIPTIONLabel</value>
</data> </data>
@ -167,6 +231,24 @@
<data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="pnldesigner.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="pnldesigner.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="pnldesigner.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 85</value>
</data>
<data name="pnldesigner.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing">
<value>444, 366</value>
</data>
<data name="pnldesigner.TabIndex" type="System.Int32, mscorlib">
<value>18</value>
</data>
<data name="&gt;&gt;pnldesigner.Name" xml:space="preserve"> <data name="&gt;&gt;pnldesigner.Name" xml:space="preserve">
<value>pnldesigner</value> <value>pnldesigner</value>
</data> </data>
@ -191,7 +273,6 @@
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>455, 516</value> <value>455, 516</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>24</value> <value>24</value>
</data> </data>
@ -336,135 +417,6 @@
<data name="&gt;&gt;SplitContainer2_DV_Chat.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SplitContainer2_DV_Chat.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
</data>
<data name="TITLELabel1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Symbol, 12pt, style=Bold</value>
</data>
<data name="TITLELabel1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 4</value>
</data>
<data name="TITLELabel1.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms">
<value>No</value>
</data>
<data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>433, 29</value>
</data>
<data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="TITLELabel1.Text" xml:space="preserve">
<value>Label1</value>
</data>
<data name="TITLELabel1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve">
<value>TITLELabel1</value>
</data>
<data name="&gt;&gt;TITLELabel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TITLELabel1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="btnSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left, Right</value>
</data>
<data name="btnSave.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="btnSave.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnSave.Location" type="System.Drawing.Point, System.Drawing">
<value>7, 459</value>
</data>
<data name="btnSave.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
<value>445, 50</value>
</data>
<data name="btnSave.TabIndex" type="System.Int32, mscorlib">
<value>11</value>
</data>
<data name="btnSave.Text" xml:space="preserve">
<value>Validierung speichern - Nächstes Dokument</value>
</data>
<data name="&gt;&gt;btnSave.Name" xml:space="preserve">
<value>btnSave</value>
</data>
<data name="&gt;&gt;btnSave.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnSave.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="DESCRIPTIONLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
</data>
<data name="DESCRIPTIONLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>5, 33</value>
</data>
<data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>447, 48</value>
</data>
<data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="DESCRIPTIONLabel.Text" xml:space="preserve">
<value>Label3</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve">
<value>DESCRIPTIONLabel</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="pnldesigner.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="pnldesigner.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="pnldesigner.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 85</value>
</data>
<data name="pnldesigner.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing">
<value>444, 366</value>
</data>
<data name="pnldesigner.TabIndex" type="System.Int32, mscorlib">
<value>18</value>
</data>
<data name="&gt;&gt;pnldesigner.Name" xml:space="preserve">
<value>pnldesigner</value>
</data>
<data name="&gt;&gt;pnldesigner.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;pnldesigner.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<metadata name="BarAndDockingController3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BarAndDockingController3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
@ -1069,7 +1021,7 @@
<data name="BarButtonItemAttmt.Caption" xml:space="preserve"> <data name="BarButtonItemAttmt.Caption" xml:space="preserve">
<value>Anhänge</value> <value>Anhänge</value>
</data> </data>
<data name="BarButtonItem6.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItemAttmt.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@ -1091,6 +1043,15 @@
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonPageGroupConv1.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="RibbonPageGroupConv_Change.Text" xml:space="preserve">
<value>Beendete Konversationen</value>
</data>
<data name="RibbonPage3.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageConversations.Text" xml:space="preserve"> <data name="RibbonPageConversations.Text" xml:space="preserve">
<value>Konversationen</value> <value>Konversationen</value>
</data> </data>
@ -1722,6 +1683,12 @@
<data name="&gt;&gt;BarButtonItem5.Type" xml:space="preserve"> <data name="&gt;&gt;BarButtonItem5.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItemAttmt.Name" xml:space="preserve">
<value>BarButtonItemAttmt</value>
</data>
<data name="&gt;&gt;BarButtonItemAttmt.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageConversations.Name" xml:space="preserve">
<value>RibbonPageConversations</value> <value>RibbonPageConversations</value>
</data> </data>
@ -1764,6 +1731,12 @@
<data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;RibbonPageCust.Name" xml:space="preserve">
<value>RibbonPageCust</value>
</data>
<data name="&gt;&gt;RibbonPageCust.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
<value>RibbonPageGroup2</value> <value>RibbonPageGroup2</value>
</data> </data>
@ -1776,18 +1749,6 @@
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItemAttmt.Name" xml:space="preserve">
<value>BarButtonItemAttmt</value>
</data>
<data name="&gt;&gt;BarButtonItemAttmt.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageCust.Name" xml:space="preserve">
<value>RibbonPageCust</value>
</data>
<data name="&gt;&gt;RibbonPageCust.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmValidator</value> <value>frmValidator</value>
</data> </data>
@ -2019,39 +1980,6 @@
<data name="PdfExactZoomListBarSubItem2.Caption" xml:space="preserve"> <data name="PdfExactZoomListBarSubItem2.Caption" xml:space="preserve">
<value>Zoom</value> <value>Zoom</value>
</data> </data>
<data name="PdfExactZoomListBarSubItem2.SuperTip" type="DevExpress.Utils.SuperToolTip, DevExpress.Utils.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu
My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE
ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi
bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s
VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw
BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh
bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz
LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl
bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl
c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF
eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA
Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs
dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z
CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl
c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl
c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA
AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN
QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs
b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT
eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp
b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg
Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ
dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k
ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl
c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E
cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz
LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO
AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL
</value>
</data>
<data name="PdfZoom10CheckItem2.Caption" xml:space="preserve"> <data name="PdfZoom10CheckItem2.Caption" xml:space="preserve">
<value>10%</value> <value>10%</value>
</data> </data>
@ -2094,6 +2022,39 @@
<data name="PdfSetFitVisibleZoomModeCheckItem2.Caption" xml:space="preserve"> <data name="PdfSetFitVisibleZoomModeCheckItem2.Caption" xml:space="preserve">
<value>sichtbare einpassen</value> <value>sichtbare einpassen</value>
</data> </data>
<data name="PdfExactZoomListBarSubItem2.SuperTip" type="DevExpress.Utils.SuperToolTip, DevExpress.Utils.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu
My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE
ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi
bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s
VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw
BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh
bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz
LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl
bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl
c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF
eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA
Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs
dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z
CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl
c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl
c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA
AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN
QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs
b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT
eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp
b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg
Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ
dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k
ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl
c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E
cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz
LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO
AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL
</value>
</data>
<data name="BarButtonItem1.Caption" xml:space="preserve"> <data name="BarButtonItem1.Caption" xml:space="preserve">
<value>BarButtonItem1</value> <value>BarButtonItem1</value>
</data> </data>
@ -2106,15 +2067,6 @@
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1029, 17</value> <value>1029, 17</value>
</metadata> </metadata>
<data name="RibbonPage3.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageGroupConv1.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="RibbonPageGroupConv_Change.Text" xml:space="preserve">
<value>Beendete Konversationen</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve"> <data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>

33
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -3890,9 +3890,9 @@ Public Class frmValidator
If includeFI = True Then If includeFI = True Then
Try Try
Dim oSQL = $"SELECT * FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {CURRENT_ProfilGUID} AND ACTIVE = 1" Dim oSQL = $"SELECT * FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {CURRENT_ProfilGUID} AND ACTIVE = 1 ORDER BY SEQUENCE"
Dim oDTFinalIndexing As DataTable Dim oDTFinalIndexing As DataTable
oDTFinalIndexing = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}") oDTFinalIndexing = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
If oDTFinalIndexing?.Rows.Count > 0 Then If oDTFinalIndexing?.Rows.Count > 0 Then
'Jetzt finale Indexe setzen 'Jetzt finale Indexe setzen
@ -3900,7 +3900,7 @@ Public Class frmValidator
For Each oFinalIndexRow As DataRow In oDTFinalIndexing.Rows For Each oFinalIndexRow As DataRow In oDTFinalIndexing.Rows
Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString
Dim oContinueOnIndifferentState As Boolean = CBool(oFinalIndexRow.Item("CONTINUE_INDETERMINED"))
Dim oIndexType = 0 Dim oIndexType = 0
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME")) oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME"))
@ -3923,9 +3923,33 @@ Public Class frmValidator
If Not IsNothing(oResultfromSQL) Then If Not IsNothing(oResultfromSQL) Then
LOGGER.Debug($"oResultfromSQL is [{oResultfromSQL.ToString}]") LOGGER.Debug($"oResultfromSQL is [{oResultfromSQL.ToString}]")
If IsDBNull(oResultfromSQL) Then
If oContinueOnIndifferentState = False Then
errormessage = "Result from SQL is DBNull - Check the SQL and the log"
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
ItemWorked = False
Else
LOGGER.Warn($"FinalIndexResult from SQL is DBNull - AttributeName [{oFinalIndexRow.Item("INDEXNAME")}] - oContinueOnIndifferentState = true, So continuing with next Attribute")
Continue For
End If
End If
If Len(oResultfromSQL) = 0 And oContinueOnIndifferentState = False Then
errormessage = "Result from SQL is EmptyValue - Check the SQL and the log"
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
ItemWorked = False
Else
LOGGER.Warn($"FinalIndexResult from SQL is EmptyValue - AttributeName [{oFinalIndexRow.Item("INDEXNAME")}] - oContinueOnIndifferentState = true, So continuing with next Attribute")
Continue For
End If
oValue = oResultfromSQL oValue = oResultfromSQL
Else Else
LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") LOGGER.Warn("ATTENTION: DYNAMIC VALUE IS NOTHING!")
Continue For
End If End If
End If End If
@ -3944,6 +3968,7 @@ Public Class frmValidator
If oErrorOcurred Then If oErrorOcurred Then
Exit For Exit For
End If End If
Dim oResult() As String Dim oResult() As String
ReDim Preserve oResult(0) ReDim Preserve oResult(0)
oResult(0) = oValue oResult(0) = oValue