MS 2.1.6.7 FinalIndexing, Handling Saving Profile
This commit is contained in:
parent
2529373166
commit
50317604ad
@ -12,6 +12,7 @@
|
||||
For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
|
||||
Dim value As String = dr.Item("VALUE").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 ###
|
||||
LOGGER.Debug("indexing with dynamic sql...")
|
||||
'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
|
||||
@ -41,9 +42,9 @@
|
||||
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
|
||||
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True)
|
||||
LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
|
||||
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, "Write_Final_Metadata/dynamic_value")
|
||||
If Not IsNothing(dynamic_value) Then
|
||||
value = dynamic_value
|
||||
Dim oDynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, "Write_Final_Metadata/dynamic_value")
|
||||
If Not IsNothing(oDynamic_value) Then
|
||||
value = oDynamic_value
|
||||
Else
|
||||
Continue For
|
||||
End If
|
||||
|
||||
413
app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb
generated
413
app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@ -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,
|
||||
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.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
|
||||
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>
|
||||
<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>
|
||||
@ -42,25 +44,11 @@ WHERE (TBPM_PROFILE.NAME = @NAME)</CommandText>
|
||||
<Mapping SourceColumn="PREVENT_DUPLICATES" DataSetColumn="PREVENT_DUPLICATES" />
|
||||
<Mapping SourceColumn="ALLOW_NEW_VALUES" DataSetColumn="ALLOW_NEW_VALUES" />
|
||||
<Mapping SourceColumn="IF_VEKTOR_BEHAVIOUR" DataSetColumn="IF_VEKTOR_BEHAVIOUR" />
|
||||
<Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
|
||||
<Mapping SourceColumn="CONTINUE_INDETERMINED" DataSetColumn="CONTINUE_INDETERMINED" />
|
||||
</Mappings>
|
||||
<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">
|
||||
<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">
|
||||
<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">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="true">
|
||||
<CommandText>DELETE FROM TBPM_PROFILE_FINAL_INDEXING
|
||||
@ -71,23 +59,6 @@ WHERE (GUID = @guid)</CommandText>
|
||||
</DbCommand>
|
||||
</DeleteCommand>
|
||||
</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>
|
||||
</TableAdapter>
|
||||
</Tables>
|
||||
@ -158,6 +129,8 @@ VALUES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMA
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</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:complexType>
|
||||
</xs:element>
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
</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">
|
||||
<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>
|
||||
<Connectors />
|
||||
</DiagramLayout>
|
||||
@ -17,7 +17,10 @@ Module ModuleFinalIndexProperties
|
||||
Public Property Description As String
|
||||
<Category("Sonstiges")>
|
||||
Public Property Active As Boolean
|
||||
|
||||
<Category("Sonstiges")>
|
||||
Public Property Sequence As Integer = 0
|
||||
<Category("Sonstiges")>
|
||||
Public Property ContinueOnIndifferentState As Boolean
|
||||
''' <summary>
|
||||
''' Eigenschaft, die den SQL Editor anzeigt
|
||||
''' </summary>
|
||||
|
||||
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.1.6.5")>
|
||||
<Assembly: AssemblyVersion("2.1.6.7")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
|
||||
3
app/DD_PM_WINDREAM/frmAdministration.Designer.vb
generated
3
app/DD_PM_WINDREAM/frmAdministration.Designer.vb
generated
@ -1596,7 +1596,10 @@ Partial Class frmAdministration
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
|
||||
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.Toolbar.ShowCustomizeItem = False
|
||||
'
|
||||
'BarButtonItem1
|
||||
'
|
||||
|
||||
@ -565,7 +565,7 @@
|
||||
<value>58</value>
|
||||
</data>
|
||||
<data name="gridAssignedGroups.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1062, 159</value>
|
||||
<value>1062, 198</value>
|
||||
</data>
|
||||
<data name="gridAssignedGroups.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>3</value>
|
||||
@ -688,7 +688,7 @@
|
||||
<value>58</value>
|
||||
</data>
|
||||
<data name="gridAvailableGroups.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1062, 185</value>
|
||||
<value>1062, 232</value>
|
||||
</data>
|
||||
<data name="gridAvailableGroups.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@ -775,10 +775,10 @@
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1062, 398</value>
|
||||
<value>1062, 484</value>
|
||||
</data>
|
||||
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
|
||||
<value>184</value>
|
||||
<value>223</value>
|
||||
</data>
|
||||
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
@ -2317,7 +2317,7 @@
|
||||
<value>3, 3, 3, 3</value>
|
||||
</data>
|
||||
<data name="TabPage8.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1068, 404</value>
|
||||
<value>1068, 490</value>
|
||||
</data>
|
||||
<data name="TabPage8.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
|
||||
@ -17,9 +17,10 @@ Public Class frmAdministration
|
||||
Dim DT_CHART_CONFIG As DataTable
|
||||
Dim DT2Compare As DataTable
|
||||
Dim PROF_ORIGIN As DataTable
|
||||
Private CURR_TEXT_CONTROL_CONTENT As String
|
||||
Private CURR_BOOL_CONTROL_CONTENT As CheckState = CheckState.Indeterminate
|
||||
Private CURR_COMBOBOX_CONTROL_CONTENT As String
|
||||
'Private CURR_TEXT_CONTROL_CONTENT As String
|
||||
'Private CURR_BOOL_CONTROL_CONTENT As CheckState = CheckState.Indeterminate
|
||||
'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
|
||||
formloaded = False
|
||||
@ -177,7 +178,7 @@ Public Class frmAdministration
|
||||
change_BindingSource = True
|
||||
CHANGES_FORM_DESIGN = True
|
||||
UNSAVED_CHANGES_PROFILE = False
|
||||
CURR_TEXT_CONTROL_CONTENT = String.Empty
|
||||
' CURR_TEXT_CONTROL_CONTENT = String.Empty
|
||||
TBPM_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE)
|
||||
TBPM_TYPETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_TYPE)
|
||||
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 allowNewValues As Boolean = NotNull(focusedRow.Item("ALLOW_NEW_VALUES"), False)
|
||||
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_SQL_CON = connectionId
|
||||
|
||||
@ -958,7 +959,8 @@ Public Class frmAdministration
|
||||
obj.AllowAddNewValues = allowNewValues
|
||||
obj.PreventDuplicates = preventDuplicates
|
||||
obj.VectorBehaviour = VectorBehaviour
|
||||
|
||||
obj.Sequence = oSequence
|
||||
obj.ContinueOnIndifferentState = oIndetermined
|
||||
' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen
|
||||
If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then
|
||||
obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types)
|
||||
@ -1015,6 +1017,10 @@ Public Class frmAdministration
|
||||
ElseIf e.ChangedItem.Label = "IndexName" Then
|
||||
Dim type As Integer = FINALINDICES.GetIndexType(e.ChangedItem.Value, MyIndicies, MyIndicies_Types)
|
||||
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
|
||||
propertyGrid.Refresh()
|
||||
End If
|
||||
@ -1244,7 +1250,8 @@ Public Class frmAdministration
|
||||
Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0)
|
||||
Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, 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
|
||||
MsgBox("We need an index!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
@ -1262,8 +1269,15 @@ Public Class frmAdministration
|
||||
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, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION)
|
||||
VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}')"
|
||||
Dim pSequence As String
|
||||
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
|
||||
tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}"
|
||||
@ -1272,7 +1286,7 @@ Public Class frmAdministration
|
||||
Else
|
||||
Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING
|
||||
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}"
|
||||
|
||||
If ClassDatabase.Execute_non_Query(sql, True) Then
|
||||
@ -1373,29 +1387,6 @@ Public Class frmAdministration
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
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()
|
||||
If formloaded = False Then
|
||||
Exit Sub
|
||||
@ -1416,73 +1407,65 @@ Public Class frmAdministration
|
||||
If UNSAVED_CHANGES_FI = True Then
|
||||
Save_FI()
|
||||
End If
|
||||
' TBPM_PROFILEBindingSource.Position = PROFILEBS_POS - 1
|
||||
Else
|
||||
Refresh_Profildaten()
|
||||
End If
|
||||
End If
|
||||
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,
|
||||
FINAL_TEXTTextBox.TextChanged, DESCRIPTIONTextBox.TextChanged, WORK_HISTORY_ENTRYTextBox.TextChanged, MOVE2FOLDERTextBox.TextChanged
|
||||
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
'UNSAVED_CHANGES_PROFILE = True
|
||||
End Sub
|
||||
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
|
||||
If formloaded = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
If change_BindingSource = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
|
||||
CURR_BOOL_CONTROL_CONTENT = ochk.Checked
|
||||
End If
|
||||
'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
|
||||
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' 'UNSAVED_CHANGES_PROFILE = True
|
||||
'End Sub
|
||||
'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
|
||||
' If formloaded = False Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' If change_BindingSource = True Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
|
||||
' CURR_BOOL_CONTROL_CONTENT = ochk.Checked
|
||||
' End If
|
||||
|
||||
End Sub
|
||||
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
|
||||
Exit Sub
|
||||
End If
|
||||
Dim ochk As CheckBox = sender
|
||||
If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
|
||||
UNSAVED_CHANGES_PROFILE = True
|
||||
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
|
||||
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Or CURR_BOOL_CONTROL_CONTENT = CheckState.Indeterminate Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Dim ochk As CheckBox = sender
|
||||
' If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
|
||||
' ' UNSAVED_CHANGES_PROFILE = True
|
||||
' End If
|
||||
'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
|
||||
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim ocmb As ComboBox = sender
|
||||
Dim oSelectedValue = ocmb.SelectedValue
|
||||
If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
|
||||
UNSAVED_CHANGES_PROFILE = True
|
||||
End If
|
||||
End Sub
|
||||
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
|
||||
Exit Sub
|
||||
End If
|
||||
Dim ocmb As ComboBox = sender
|
||||
If ocmb.SelectedIndex <> -1 Then
|
||||
Dim oSelectedValue = ocmb.SelectedValue
|
||||
If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
|
||||
CURR_COMBOBOX_CONTROL_CONTENT = oSelectedValue
|
||||
End If
|
||||
End If
|
||||
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
|
||||
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Dim ocmb As ComboBox = sender
|
||||
' Dim oSelectedValue = ocmb.SelectedValue
|
||||
' If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
|
||||
' ' UNSAVED_CHANGES_PROFILE = True
|
||||
' End If
|
||||
'End Sub
|
||||
'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
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Dim ocmb As ComboBox = sender
|
||||
' If ocmb.SelectedIndex <> -1 Then
|
||||
' Dim oSelectedValue = ocmb.SelectedValue
|
||||
' If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
|
||||
' CURR_COMBOBOX_CONTROL_CONTENT = oSelectedValue
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
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
|
||||
@ -1502,17 +1485,42 @@ Public Class frmAdministration
|
||||
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
|
||||
Private Sub TBPM_PROFILEBindingSource_ListChanged(sender As Object, e As ListChangedEventArgs) Handles TBPM_PROFILEBindingSource.ListChanged
|
||||
If formloaded = False Then
|
||||
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
|
||||
|
||||
change_BindingSource = True
|
||||
' Check_Changes()
|
||||
End Sub
|
||||
'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
|
||||
Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
|
||||
|
||||
End Sub
|
||||
@ -1689,43 +1697,45 @@ Public Class frmAdministration
|
||||
|
||||
If IsNumeric(PROFILGUIDTextBox.Text) Then
|
||||
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
|
||||
UNSAVED_CHANGES_PROFILE = False
|
||||
'UNSAVED_CHANGES_PROFILE = False
|
||||
PROFILEBS_POS = TBPM_PROFILEBindingSource.Position
|
||||
' change_BindingSource = False
|
||||
End If
|
||||
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,
|
||||
WORK_HISTORY_ENTRYTextBox.GotFocus
|
||||
If formloaded = False Or UNSAVED_CHANGES_PROFILE Then
|
||||
Exit Sub
|
||||
End If
|
||||
If change_BindingSource = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim oBox As TextBox = sender
|
||||
If Len(oBox.Text) > 0 Then
|
||||
If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
|
||||
CURR_TEXT_CONTROL_CONTENT = oBox.Text
|
||||
End If
|
||||
End If
|
||||
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,
|
||||
' WORK_HISTORY_ENTRYTextBox.GotFocus
|
||||
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' If change_BindingSource = True Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Dim oBox As TextBox = sender
|
||||
' If Len(oBox.Text) > 0 Then
|
||||
' If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
|
||||
' CURR_TEXT_CONTROL_CONTENT = oBox.Text
|
||||
' End If
|
||||
' End If
|
||||
'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
|
||||
If formloaded = False Or IsNothing(CURR_TEXT_CONTROL_CONTENT) Then
|
||||
Exit Sub
|
||||
End If
|
||||
'If change_BindingSource = True Then
|
||||
' Exit Sub
|
||||
'End If
|
||||
Dim oBox As TextBox = sender
|
||||
If Len(oBox.Text) > 0 Then
|
||||
'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
|
||||
' Exit Sub
|
||||
' End If
|
||||
' 'If change_BindingSource = True Then
|
||||
' ' Exit Sub
|
||||
' 'End If
|
||||
' Dim oBox As TextBox = sender
|
||||
' If Len(oBox.Text) > 0 Then
|
||||
|
||||
If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
|
||||
UNSAVED_CHANGES_PROFILE = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
' If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
|
||||
' ' UNSAVED_CHANGES_PROFILE = True
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
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
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
27
app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb
generated
27
app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb
generated
@ -65,8 +65,11 @@ Partial Class frmDesignerLayout
|
||||
Me.RibbonControl1.MaxItemId = 5
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
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.Toolbar.ShowCustomizeItem = False
|
||||
'
|
||||
'BarListItem1
|
||||
'
|
||||
@ -113,10 +116,10 @@ Partial Class frmDesignerLayout
|
||||
'
|
||||
'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.Ribbon = Me.RibbonControl1
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1196, 24)
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1196, 21)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
@ -126,13 +129,13 @@ Partial Class frmDesignerLayout
|
||||
'SplitContainerControl1
|
||||
'
|
||||
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.Panel1.Controls.Add(Me.LayoutControlMain)
|
||||
Me.SplitContainerControl1.Panel1.Text = "Panel1"
|
||||
Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl1)
|
||||
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.TabIndex = 8
|
||||
'
|
||||
@ -149,7 +152,7 @@ Partial Class frmDesignerLayout
|
||||
Me.LayoutControlMain.OptionsCustomizationForm.ShowPropertyGrid = True
|
||||
Me.LayoutControlMain.OptionsCustomizationForm.ShowSaveButton = False
|
||||
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.Text = "LayoutControl1"
|
||||
'
|
||||
@ -158,7 +161,7 @@ Partial Class frmDesignerLayout
|
||||
Me.LayoutControlGroupMain.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.LayoutControlGroupMain.GroupBordersVisible = False
|
||||
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
|
||||
'
|
||||
'XtraTabControl1
|
||||
@ -167,7 +170,7 @@ Partial Class frmDesignerLayout
|
||||
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.XtraTabControl1.Name = "XtraTabControl1"
|
||||
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.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.Name = "XtraTabPage1"
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(366, 415)
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(364, 430)
|
||||
Me.XtraTabPage1.Text = "Eigenschaften"
|
||||
'
|
||||
'PropertyGridMain
|
||||
@ -185,14 +188,14 @@ Partial Class frmDesignerLayout
|
||||
Me.PropertyGridMain.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PropertyGridMain.MenuManager = Me.RibbonControl1
|
||||
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
|
||||
'
|
||||
'XtraTabPage2
|
||||
'
|
||||
Me.XtraTabPage2.Controls.Add(Me.ToolboxControlMain)
|
||||
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"
|
||||
'
|
||||
'ToolboxControlMain
|
||||
@ -208,7 +211,7 @@ Partial Class frmDesignerLayout
|
||||
Me.ToolboxControlMain.OptionsView.ShowToolboxCaption = True
|
||||
Me.ToolboxControlMain.SelectedGroup = Me.ToolboxGroupMain
|
||||
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.Text = "Form Controls"
|
||||
'
|
||||
|
||||
@ -1567,9 +1567,10 @@ Public Class frmMain
|
||||
|
||||
|
||||
If SOURCE_INIT = True Then
|
||||
Dim oSQL = $"select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = CURRENT_ProfilGUID"
|
||||
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()
|
||||
Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
|
||||
CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges)
|
||||
|
||||
@ -37,7 +37,7 @@ Public Class frmSQL_DESIGNER
|
||||
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")
|
||||
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
|
||||
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
|
||||
|
||||
33
app/DD_PM_WINDREAM/frmValidator.Designer.vb
generated
33
app/DD_PM_WINDREAM/frmValidator.Designer.vb
generated
@ -96,6 +96,7 @@ Partial Class frmValidator
|
||||
Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
|
||||
Me.btnitemConversation_reload = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItemAttmt = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.RibbonPageConversations = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
|
||||
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
@ -103,11 +104,10 @@ Partial Class frmValidator
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageFile = 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.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
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()
|
||||
Me.SplitContainer2_DV_Chat.SuspendLayout()
|
||||
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.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3})
|
||||
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.Toolbar.ShowCustomizeItem = False
|
||||
'
|
||||
'bsiError
|
||||
'
|
||||
@ -669,6 +672,13 @@ Partial Class frmValidator
|
||||
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
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
|
||||
'
|
||||
Me.RibbonPageConversations.Name = "RibbonPageConversations"
|
||||
@ -720,6 +730,12 @@ Partial Class frmValidator
|
||||
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
|
||||
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
|
||||
'
|
||||
'RibbonPageCust
|
||||
'
|
||||
Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt)
|
||||
Me.RibbonPageCust.Name = "RibbonPageCust"
|
||||
Me.RibbonPageCust.Visible = False
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[True]
|
||||
@ -744,19 +760,6 @@ Partial Class frmValidator
|
||||
Me.RibbonPage2.Name = "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
|
||||
'
|
||||
Me.Appearance.Options.UseFont = True
|
||||
|
||||
@ -131,6 +131,31 @@
|
||||
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 0</value>
|
||||
</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=">>TITLELabel1.Name" xml:space="preserve">
|
||||
<value>TITLELabel1</value>
|
||||
</data>
|
||||
@ -143,6 +168,30 @@
|
||||
<data name=">>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=">>btnSave.Name" xml:space="preserve">
|
||||
<value>btnSave</value>
|
||||
</data>
|
||||
@ -155,6 +204,21 @@
|
||||
<data name=">>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=">>DESCRIPTIONLabel.Name" xml:space="preserve">
|
||||
<value>DESCRIPTIONLabel</value>
|
||||
</data>
|
||||
@ -167,6 +231,24 @@
|
||||
<data name=">>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=">>pnldesigner.Name" xml:space="preserve">
|
||||
<value>pnldesigner</value>
|
||||
</data>
|
||||
@ -191,7 +273,6 @@
|
||||
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>455, 516</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>24</value>
|
||||
</data>
|
||||
@ -336,135 +417,6 @@
|
||||
<data name=">>SplitContainer2_DV_Chat.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</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=">>TITLELabel1.Name" xml:space="preserve">
|
||||
<value>TITLELabel1</value>
|
||||
</data>
|
||||
<data name=">>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=">>TITLELabel1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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=">>btnSave.Name" xml:space="preserve">
|
||||
<value>btnSave</value>
|
||||
</data>
|
||||
<data name=">>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=">>btnSave.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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=">>DESCRIPTIONLabel.Name" xml:space="preserve">
|
||||
<value>DESCRIPTIONLabel</value>
|
||||
</data>
|
||||
<data name=">>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=">>DESCRIPTIONLabel.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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=">>pnldesigner.Name" xml:space="preserve">
|
||||
<value>pnldesigner</value>
|
||||
</data>
|
||||
<data name=">>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=">>pnldesigner.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
@ -1069,7 +1021,7 @@
|
||||
<data name="BarButtonItemAttmt.Caption" xml:space="preserve">
|
||||
<value>Anhänge</value>
|
||||
</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>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
@ -1091,6 +1043,15 @@
|
||||
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 0</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="RibbonPage3.Text" xml:space="preserve">
|
||||
<value>Funktionen</value>
|
||||
</data>
|
||||
<data name="RibbonPageConversations.Text" xml:space="preserve">
|
||||
<value>Konversationen</value>
|
||||
</data>
|
||||
@ -1722,6 +1683,12 @@
|
||||
<data name=">>BarButtonItem5.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=">>BarButtonItemAttmt.Name" xml:space="preserve">
|
||||
<value>BarButtonItemAttmt</value>
|
||||
</data>
|
||||
<data name=">>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=">>RibbonPageConversations.Name" xml:space="preserve">
|
||||
<value>RibbonPageConversations</value>
|
||||
</data>
|
||||
@ -1764,6 +1731,12 @@
|
||||
<data name=">>RibbonPageGroup3.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=">>RibbonPageCust.Name" xml:space="preserve">
|
||||
<value>RibbonPageCust</value>
|
||||
</data>
|
||||
<data name=">>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=">>RibbonPageGroup2.Name" xml:space="preserve">
|
||||
<value>RibbonPageGroup2</value>
|
||||
</data>
|
||||
@ -1776,18 +1749,6 @@
|
||||
<data name=">>RibbonPage2.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>BarButtonItemAttmt.Name" xml:space="preserve">
|
||||
<value>BarButtonItemAttmt</value>
|
||||
</data>
|
||||
<data name=">>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=">>RibbonPageCust.Name" xml:space="preserve">
|
||||
<value>RibbonPageCust</value>
|
||||
</data>
|
||||
<data name=">>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=">>$this.Name" xml:space="preserve">
|
||||
<value>frmValidator</value>
|
||||
</data>
|
||||
@ -2019,39 +1980,6 @@
|
||||
<data name="PdfExactZoomListBarSubItem2.Caption" xml:space="preserve">
|
||||
<value>Zoom</value>
|
||||
</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">
|
||||
<value>10%</value>
|
||||
</data>
|
||||
@ -2094,6 +2022,39 @@
|
||||
<data name="PdfSetFitVisibleZoomModeCheckItem2.Caption" xml:space="preserve">
|
||||
<value>sichtbare einpassen</value>
|
||||
</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">
|
||||
<value>BarButtonItem1</value>
|
||||
</data>
|
||||
@ -2106,15 +2067,6 @@
|
||||
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1029, 17</value>
|
||||
</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">
|
||||
<value>RibbonPage2</value>
|
||||
</data>
|
||||
|
||||
@ -3890,9 +3890,9 @@ Public Class frmValidator
|
||||
|
||||
If includeFI = True Then
|
||||
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
|
||||
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
|
||||
'Jetzt finale Indexe setzen
|
||||
@ -3900,7 +3900,7 @@ Public Class frmValidator
|
||||
For Each oFinalIndexRow As DataRow In oDTFinalIndexing.Rows
|
||||
Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString
|
||||
|
||||
|
||||
Dim oContinueOnIndifferentState As Boolean = CBool(oFinalIndexRow.Item("CONTINUE_INDETERMINED"))
|
||||
Dim oIndexType = 0
|
||||
If IDB_ACTIVE = False Then
|
||||
oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME"))
|
||||
@ -3923,9 +3923,33 @@ Public Class frmValidator
|
||||
|
||||
If Not IsNothing(oResultfromSQL) Then
|
||||
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
|
||||
Else
|
||||
LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!")
|
||||
LOGGER.Warn("ATTENTION: DYNAMIC VALUE IS NOTHING!")
|
||||
Continue For
|
||||
End If
|
||||
End If
|
||||
|
||||
@ -3944,6 +3968,7 @@ Public Class frmValidator
|
||||
If oErrorOcurred Then
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Dim oResult() As String
|
||||
ReDim Preserve oResult(0)
|
||||
oResult(0) = oValue
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user