diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config index a475aff..6abaecf 100644 --- a/app/DD_PM_WINDREAM/App.config +++ b/app/DD_PM_WINDREAM/App.config @@ -1,12 +1,12 @@ - + -
-
+
+
-
+
@@ -57,28 +57,28 @@ - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + @@ -87,12 +87,10 @@ - + - + @@ -155,9 +153,9 @@ - - + + - \ No newline at end of file + diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 5602268..a267092 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -982,7 +982,7 @@ Public Class ClassControlCreator ' === Block to force setting the editor for GridColumns - Logger.Info("Force-setting Editor for all Gridcells..") + Logger.Debug("Force-setting Editor for all Gridcells..") For Each oControl As Control In pControlPanel.Controls Try Dim oMeta = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata) diff --git a/app/DD_PM_WINDREAM/ClassParamRefresh.vb b/app/DD_PM_WINDREAM/ClassParamRefresh.vb index abfee72..9387848 100644 --- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb +++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb @@ -16,7 +16,10 @@ Public Class ClassParamRefresh oLicenseoverSQL = True ElseIf oRow.Item("TITLE") = "PM_PROFILES_USER" Then SQL_PROFILES_USER = oRow.Item("SQL_COMMAND") - LOGGER.Info($"SQL FROM SQLCommands DD: {SQL_PROFILES_USER}") + LOGGER.Debug($"SQL FROM SQLCommands DD: {SQL_PROFILES_USER}") + ElseIf oRow.Item("TITLE") = "PM_VALIDATOR_SEARCH_DEF" Then + SQL_VALIDATOR_SEARCHES = oRow.Item("SQL_COMMAND") + LOGGER.Debug($"VALIDATOR-SQL FROM SQLCommands DD: {SQL_VALIDATOR_SEARCHES}") End If Next End If diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc index 95d3423..ebcefb0 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc @@ -120,5 +120,16 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index e1cdeb0..0845de1 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -25,7 +25,7 @@ - + @@ -61,7 +61,7 @@ 961 - 235 + 234 961 diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 25162fd..855f536 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -13,7 +13,7 @@ DD_ProcessManager 512 WindowsForms - v4.6.1 + v4.8 false @@ -606,6 +606,9 @@ frmFormDesigner.vb Designer + + frmGhostMode.vb + frmGhostMode.vb diff --git a/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb b/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb index 3bd30f4..8f4d85c 100644 --- a/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb @@ -30,7 +30,7 @@ Partial Public Class FinalIndexDataSet Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -42,7 +42,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -77,7 +77,7 @@ Partial Public Class FinalIndexDataSet End Sub _ Public ReadOnly Property TBPM_PROFILE_FINAL_INDEXING() As TBPM_PROFILE_FINAL_INDEXINGDataTable @@ -87,7 +87,7 @@ Partial Public Class FinalIndexDataSet End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -100,7 +100,7 @@ Partial Public Class FinalIndexDataSet End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -109,7 +109,7 @@ Partial Public Class FinalIndexDataSet End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -118,7 +118,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -126,7 +126,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As FinalIndexDataSet = CType(MyBase.Clone,FinalIndexDataSet) cln.InitVars @@ -135,19 +135,19 @@ Partial Public Class FinalIndexDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -171,7 +171,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -180,13 +180,13 @@ Partial Public Class FinalIndexDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(MyBase.Tables("TBPM_PROFILE_FINAL_INDEXING"),TBPM_PROFILE_FINAL_INDEXINGDataTable) If (initTable = true) Then @@ -197,7 +197,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "FinalIndexDataSet" Me.Prefix = "" @@ -209,13 +209,13 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE_FINAL_INDEXING() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -223,7 +223,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As FinalIndexDataSet = New FinalIndexDataSet() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -272,7 +272,7 @@ Partial Public Class FinalIndexDataSet Return type End Function - _ + _ Public Delegate Sub TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent) ''' @@ -318,7 +318,7 @@ Partial Public Class FinalIndexDataSet Private columnCONTINUE_INDETERMINED As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE_FINAL_INDEXING" @@ -328,7 +328,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -346,14 +346,14 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -361,7 +361,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFIL_ID @@ -369,7 +369,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -377,7 +377,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND @@ -385,7 +385,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -393,7 +393,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE @@ -401,7 +401,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -409,7 +409,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -417,7 +417,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -425,7 +425,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -433,7 +433,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION @@ -441,7 +441,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -449,7 +449,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PREVENT_DUPLICATESColumn() As Global.System.Data.DataColumn Get Return Me.columnPREVENT_DUPLICATES @@ -457,7 +457,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ALLOW_NEW_VALUESColumn() As Global.System.Data.DataColumn Get Return Me.columnALLOW_NEW_VALUES @@ -465,7 +465,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property IF_VEKTOR_BEHAVIOURColumn() As Global.System.Data.DataColumn Get Return Me.columnIF_VEKTOR_BEHAVIOUR @@ -473,7 +473,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -481,7 +481,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CONTINUE_INDETERMINEDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTINUE_INDETERMINED @@ -489,7 +489,7 @@ Partial Public Class FinalIndexDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -498,33 +498,33 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_FINAL_INDEXINGRow Get Return CType(Me.Rows(index),TBPM_PROFILE_FINAL_INDEXINGRow) End Get End Property - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowChanging As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowChanged As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowDeleting As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowDeleted As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow( _ ByVal PROFIL_ID As Integer, _ ByVal CONNECTION_ID As Short, _ @@ -550,13 +550,13 @@ Partial Public Class FinalIndexDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_FINAL_INDEXINGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILE_FINAL_INDEXINGDataTable = CType(MyBase.Clone,TBPM_PROFILE_FINAL_INDEXINGDataTable) cln.InitVars @@ -564,13 +564,13 @@ Partial Public Class FinalIndexDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILE_FINAL_INDEXINGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") @@ -592,7 +592,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -660,25 +660,25 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBPM_PROFILE_FINAL_INDEXINGRow() As TBPM_PROFILE_FINAL_INDEXINGRow Return CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILE_FINAL_INDEXINGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowChangedEvent) Is Nothing) Then @@ -687,7 +687,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowChangingEvent) Is Nothing) Then @@ -696,7 +696,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowDeletedEvent) Is Nothing) Then @@ -705,7 +705,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowDeletingEvent) Is Nothing) Then @@ -714,13 +714,13 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBPM_PROFILE_FINAL_INDEXINGRow(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -795,14 +795,14 @@ Partial Public Class FinalIndexDataSet Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(Me.Table,TBPM_PROFILE_FINAL_INDEXINGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn),Integer) @@ -813,7 +813,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PROFIL_ID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROFIL_IDColumn),Integer) @@ -824,7 +824,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn),Short) @@ -835,7 +835,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SQL_COMMAND() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn),String) @@ -846,7 +846,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn),String) @@ -857,7 +857,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property VALUE() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn),String) @@ -868,7 +868,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn),String) @@ -879,7 +879,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn),Date) @@ -890,7 +890,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -906,7 +906,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -922,7 +922,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property DESCRIPTION() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) @@ -933,7 +933,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) @@ -944,7 +944,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PREVENT_DUPLICATES() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn),Boolean) @@ -955,7 +955,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ALLOW_NEW_VALUES() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn),Boolean) @@ -966,7 +966,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property IF_VEKTOR_BEHAVIOUR() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn),String) @@ -977,7 +977,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SEQUENCE() As Byte Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SEQUENCEColumn),Byte) @@ -988,7 +988,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CONTINUE_INDETERMINED() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONTINUE_INDETERMINEDColumn),Boolean) @@ -999,25 +999,25 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -1026,7 +1026,7 @@ Partial Public Class FinalIndexDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent Inherits Global.System.EventArgs @@ -1035,7 +1035,7 @@ Partial Public Class FinalIndexDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -1043,7 +1043,7 @@ Partial Public Class FinalIndexDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow Get Return Me.eventRow @@ -1051,7 +1051,7 @@ Partial Public Class FinalIndexDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -1085,14 +1085,14 @@ Namespace FinalIndexDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -1103,7 +1103,7 @@ Namespace FinalIndexDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -1133,7 +1133,7 @@ Namespace FinalIndexDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -1161,7 +1161,7 @@ Namespace FinalIndexDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -1172,7 +1172,7 @@ Namespace FinalIndexDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -1183,7 +1183,7 @@ Namespace FinalIndexDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -1210,14 +1210,14 @@ Namespace FinalIndexDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -1246,7 +1246,7 @@ Namespace FinalIndexDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal NAME As String) As Integer @@ -1264,7 +1264,7 @@ Namespace FinalIndexDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal NAME As String) As FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable @@ -1280,7 +1280,7 @@ Namespace FinalIndexDataSetTableAdapters End Function _ Public Overloads Overridable Function DeleteFinalIndex(ByVal guid As Integer) As Integer @@ -1321,7 +1321,7 @@ Namespace FinalIndexDataSetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -1332,7 +1332,7 @@ Namespace FinalIndexDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -1343,7 +1343,7 @@ Namespace FinalIndexDataSetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -1358,7 +1358,7 @@ Namespace FinalIndexDataSetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -1371,7 +1371,7 @@ Namespace FinalIndexDataSetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As FinalIndexDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 Return result @@ -1381,7 +1381,7 @@ Namespace FinalIndexDataSetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As FinalIndexDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 Return result @@ -1391,7 +1391,7 @@ Namespace FinalIndexDataSetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As FinalIndexDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 Return result @@ -1401,7 +1401,7 @@ Namespace FinalIndexDataSetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -1427,7 +1427,7 @@ Namespace FinalIndexDataSetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As FinalIndexDataSet) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -1544,13 +1544,13 @@ Namespace FinalIndexDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -1568,7 +1568,7 @@ Namespace FinalIndexDataSetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -1579,7 +1579,7 @@ Namespace FinalIndexDataSetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -1589,7 +1589,7 @@ Namespace FinalIndexDataSetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -1601,7 +1601,7 @@ Namespace FinalIndexDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -1640,7 +1640,7 @@ Namespace FinalIndexDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index 855e047..8a63f7a 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -8,8 +8,8 @@ Imports DigitalData.Modules.Windream Module ModuleRuntimeVariables - Public Const ConstAHWorkflow_BlindFile = 1 - Public Const ConstAHWorkflow_IDB = 2 + Public Const ConstAHWorkflow_BlindFile = 2 + Public Const ConstAHWorkflow_IDB = 22 Public Const ConstWorkflowTypeRegular = 99 Public Property DatabaseECM As MSSQLServer Public Property DatabaseIDB As MSSQLServer @@ -169,6 +169,7 @@ Module ModuleRuntimeVariables Public Property TimerRefresh_running As Boolean = False Public Property SQL_PROFILES_USER As String = "" + Public Property SQL_VALIDATOR_SEARCHES As String = "" Public WM_AHWF_docPath As String Public LIC_MODULES As String = "NONE" diff --git a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb index 515756a..6c827c2 100644 --- a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb @@ -24,7 +24,7 @@ Namespace My _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false + Me.IsSingleInstance = true Me.EnableVisualStyles = true Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses diff --git a/app/DD_PM_WINDREAM/My Project/Application.myapp b/app/DD_PM_WINDREAM/My Project/Application.myapp index 739ea6f..168477f 100644 --- a/app/DD_PM_WINDREAM/My Project/Application.myapp +++ b/app/DD_PM_WINDREAM/My Project/Application.myapp @@ -1,8 +1,8 @@  - + true frmMain - false + true 0 true 0 diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 37f03ea..1bacc66 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb index 7e04d37..cbe324b 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index f3f18ad..22b6851 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -33,6 +33,7 @@ Partial Class frmAdministration Dim TITLELabel As System.Windows.Forms.Label Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label Dim DISPLAY_MODELabel As System.Windows.Forms.Label + Dim TYPELabel As System.Windows.Forms.Label Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -157,6 +158,8 @@ Partial Class frmAdministration Me.SHOW_DOCUMENTCheckBox = New System.Windows.Forms.CheckBox() Me.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl() Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.lblTargetPath = New System.Windows.Forms.Label() + Me.TARGET_PATH_BLIND_FILETextBox = New System.Windows.Forms.TextBox() Me.lblDescription = New System.Windows.Forms.Label() Me.btnofbAHW = New System.Windows.Forms.Button() Me.lblPriority = New System.Windows.Forms.Label() @@ -251,8 +254,8 @@ Partial Class frmAdministration Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.FolderBrowserDialog2 = New System.Windows.Forms.FolderBrowserDialog() - Me.TARGET_PATH_BLIND_FILETextBox = New System.Windows.Forms.TextBox() - Me.lblTargetPath = New System.Windows.Forms.Label() + Me.TYPEComboBox = New System.Windows.Forms.ComboBox() + Me.Label15 = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() ADDED_WHOLabel = New System.Windows.Forms.Label() @@ -262,6 +265,7 @@ Partial Class frmAdministration TITLELabel = New System.Windows.Forms.Label() WORK_HISTORY_ENTRYLabel = New System.Windows.Forms.Label() DISPLAY_MODELabel = New System.Windows.Forms.Label() + TYPELabel = New System.Windows.Forms.Label() CType(Me.SplitContainer_Profilzuordnung2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer_Profilzuordnung2.Panel1.SuspendLayout() Me.SplitContainer_Profilzuordnung2.Panel2.SuspendLayout() @@ -1304,6 +1308,9 @@ Partial Class frmAdministration 'TabPage5 ' resources.ApplyResources(Me.TabPage5, "TabPage5") + Me.TabPage5.Controls.Add(Me.Label15) + Me.TabPage5.Controls.Add(TYPELabel) + Me.TabPage5.Controls.Add(Me.TYPEComboBox) Me.TabPage5.Controls.Add(Me.lblTargetPath) Me.TabPage5.Controls.Add(Me.TARGET_PATH_BLIND_FILETextBox) Me.TabPage5.Controls.Add(Me.lblDescription) @@ -1336,6 +1343,17 @@ Partial Class frmAdministration Me.TabPage5.Name = "TabPage5" Me.TabPage5.UseVisualStyleBackColor = True ' + 'lblTargetPath + ' + resources.ApplyResources(Me.lblTargetPath, "lblTargetPath") + Me.lblTargetPath.Name = "lblTargetPath" + ' + 'TARGET_PATH_BLIND_FILETextBox + ' + Me.TARGET_PATH_BLIND_FILETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "TARGET_PATH_BLIND_FILE", True)) + resources.ApplyResources(Me.TARGET_PATH_BLIND_FILETextBox, "TARGET_PATH_BLIND_FILETextBox") + Me.TARGET_PATH_BLIND_FILETextBox.Name = "TARGET_PATH_BLIND_FILETextBox" + ' 'lblDescription ' resources.ApplyResources(Me.lblDescription, "lblDescription") @@ -1939,16 +1957,23 @@ Partial Class frmAdministration Me.RibbonPage2.Name = "RibbonPage2" resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") ' - 'TARGET_PATH_BLIND_FILETextBox + 'TYPELabel ' - Me.TARGET_PATH_BLIND_FILETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "TARGET_PATH_BLIND_FILE", True)) - resources.ApplyResources(Me.TARGET_PATH_BLIND_FILETextBox, "TARGET_PATH_BLIND_FILETextBox") - Me.TARGET_PATH_BLIND_FILETextBox.Name = "TARGET_PATH_BLIND_FILETextBox" + resources.ApplyResources(TYPELabel, "TYPELabel") + TYPELabel.Name = "TYPELabel" ' - 'lblTargetPath + 'TYPEComboBox ' - resources.ApplyResources(Me.lblTargetPath, "lblTargetPath") - Me.lblTargetPath.Name = "lblTargetPath" + Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "TYPE", True)) + resources.ApplyResources(Me.TYPEComboBox, "TYPEComboBox") + Me.TYPEComboBox.FormattingEnabled = True + Me.TYPEComboBox.Items.AddRange(New Object() {resources.GetString("TYPEComboBox.Items"), resources.GetString("TYPEComboBox.Items1")}) + Me.TYPEComboBox.Name = "TYPEComboBox" + ' + 'Label15 + ' + resources.ApplyResources(Me.Label15, "Label15") + Me.Label15.Name = "Label15" ' 'frmAdministration ' @@ -2264,4 +2289,6 @@ Partial Class frmAdministration Friend WithEvents SHOW_DOCUMENTCheckBox As CheckBox Friend WithEvents TARGET_PATH_BLIND_FILETextBox As TextBox Friend WithEvents lblTargetPath As Label + Friend WithEvents Label15 As Label + Friend WithEvents TYPEComboBox As ComboBox End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index b18716d..3ae9bd0 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -1824,7 +1824,7 @@ TabPage5 - 18 + 21 False @@ -1857,7 +1857,7 @@ TabPage5 - 21 + 24 False @@ -1890,7 +1890,7 @@ TabPage5 - 28 + 31 False @@ -1923,7 +1923,7 @@ TabPage5 - 22 + 25 False @@ -2019,7 +2019,7 @@ TabPage5 - 10 + 13 1669, 17 @@ -2061,7 +2061,7 @@ TabPage5 - 14 + 17 Tahoma, 9.75pt @@ -2085,7 +2085,7 @@ TabPage5 - 16 + 19 Tahoma, 9.75pt @@ -2112,7 +2112,7 @@ TabPage5 - 9 + 12 Tahoma, 9.75pt @@ -2136,7 +2136,7 @@ TabPage5 - 8 + 11 1116, 17 @@ -2163,7 +2163,7 @@ TabPage5 - 27 + 30 Tahoma, 9.75pt @@ -2199,7 +2199,7 @@ TabPage5 - 26 + 29 Tahoma, 9.75pt @@ -2226,7 +2226,7 @@ TabPage5 - 23 + 26 192, 40 @@ -2313,7 +2313,7 @@ TabPage5 - 15 + 18 Tahoma, 9.75pt @@ -2337,7 +2337,7 @@ TabPage5 - 17 + 20 718, 13 @@ -2385,7 +2385,7 @@ TabPage5 - 20 + 23 Tahoma, 9.75pt @@ -2409,7 +2409,7 @@ TabPage5 - 24 + 27 Tahoma, 9.75pt @@ -2433,7 +2433,7 @@ TabPage5 - 25 + 28 Tahoma, 9.75pt @@ -2457,7 +2457,7 @@ TabPage5 - 19 + 22 959, 17 @@ -2507,6 +2507,99 @@ True + + True + + + Tahoma, 8.25pt + + + 754, 48 + + + 157, 13 + + + 95 + + + 1 - Default; 2 - AdHocWorkflow + + + Label15 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 0 + + + False + + + True + + + Tahoma, 9.75pt + + + 553, 45 + + + 33, 16 + + + 93 + + + Typ: + + + TYPELabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 1 + + + Tahoma, 9.75pt + + + 1 + + + 2 + + + 693, 42 + + + 55, 24 + + + 94 + + + TYPEComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 2 + True @@ -2538,7 +2631,7 @@ TabPage5 - 0 + 3 Tahoma, 9.75pt @@ -2565,7 +2658,7 @@ TabPage5 - 1 + 4 True @@ -2595,7 +2688,7 @@ TabPage5 - 2 + 5 Tahoma, 9.75pt @@ -2628,7 +2721,7 @@ TabPage5 - 3 + 6 True @@ -2658,7 +2751,7 @@ TabPage5 - 4 + 7 True @@ -2688,7 +2781,7 @@ TabPage5 - 5 + 8 True @@ -2718,7 +2811,7 @@ TabPage5 - 6 + 9 True @@ -2748,7 +2841,7 @@ TabPage5 - 7 + 10 Tahoma, 9.75pt @@ -2787,7 +2880,7 @@ TabPage5 - 11 + 14 Tahoma, 9.75pt @@ -2811,7 +2904,7 @@ TabPage5 - 12 + 15 Tahoma, 9.75pt @@ -2835,7 +2928,7 @@ TabPage5 - 13 + 16 Tahoma, 9.75pt, style=Bold diff --git a/app/DD_PM_WINDREAM/frmGhostMode.en-US.resx b/app/DD_PM_WINDREAM/frmGhostMode.en-US.resx new file mode 100644 index 0000000..08655b7 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmGhostMode.en-US.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Activate ghost mode + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAIEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJSb2xlIj4NCiAgICA8 + cGF0aCBkPSJNNCwydjE2YzAsNi42LDUuNCwxMiwxMiwxMnMxMi01LjQsMTItMTJWMkg0eiBNMTEsOWMx + LjcsMCwzLDEuMywzLDNIOEM4LDEwLjMsOS4zLDksMTEsOXogTTE2LDI0ICAgYy0zLjMsMC02LTIuNy02 + LTZjMCwxLjEsMi43LDIsNiwyczYtMC45LDYtMkMyMiwyMS4zLDE5LjMsMjQsMTYsMjR6IE0xOCwxMmMw + LTEuNywxLjMtMywzLTNzMywxLjMsMywzSDE4eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + Actions + + + + 965, 146 + + + 0, 146 + + + Please choose a ghost user + + + 965, 341 + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmGhostMode.resx b/app/DD_PM_WINDREAM/frmGhostMode.resx index b453bad..2cf849f 100644 --- a/app/DD_PM_WINDREAM/frmGhostMode.resx +++ b/app/DD_PM_WINDREAM/frmGhostMode.resx @@ -117,119 +117,42 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 965, 139 - - - Fill - - + - - GridControl1 - - - 6, 13 - - - Aktionen - - - $this - - - 0 - - - 0, 0 - - - - -1 - Bitte wählen Sie einen Ghost User - - 965, 348 - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - frmGhostMode - - - DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - - - - RibbonPage1 - - - DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Start - - - RibbonPageGroup1 - - - - Default - - - GridView1 - - - Ghost Modus aktivieren - - - - Center - - - 965, 22 - - - BarButtonItem1 - - - 0, 139 - - - -1 + + + 965, 509 2 - - + + 0, 0 - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RibbonPage1 - - 1 + + RibbonStatusBar1 - - RibbonControl1 + + GridView1 + + $this + + + DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAIEAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi @@ -252,65 +175,145 @@ dmc+Cw== + + + None + + + + + + 6, 13 + + + Fill + $this + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Calibri, 8.25pt + + + $this + + + + -1 + + + frmGhostMode + + + 1 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 965, 348 + + + 0, 487 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Default + + + BarButtonItem1 + + + 965, 22 + + + Top, Left + + + RibbonPageGroup1 + + + + + + GridControl1 + + + Ghost Modus aktivieren + + + + + + Start + + + Aktionen + + + RibbonControl1 + + + Inherit + + + 0, 139 + + + -1 + + + + + + + Center + + + DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + Tile - - 0, 0 - - - $this - 9 - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + - - 0, 487 - - - Inherit - - - - None - - - 965, 509 + + 0, 0 -1 - - Top, Left + + 965, 139 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Calibri, 8.25pt + + 0 - - RibbonStatusBar1 - - - - - + -1 True - - en-US - \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmGhostMode.vb b/app/DD_PM_WINDREAM/frmGhostMode.vb index b47d380..61d1e71 100644 --- a/app/DD_PM_WINDREAM/frmGhostMode.vb +++ b/app/DD_PM_WINDREAM/frmGhostMode.vb @@ -1,13 +1,14 @@ Public Class frmGhostMode Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load Dim oSQL = "SELECT [SQL_COMMAND] FROM TBDD_SQL_COMMANDS where TITLE = 'GHOST_SELECT'" - Dim DT_USER = DatabaseFallback.GetDatatableECM(oSQL) ',CONNECTION_STRING_IDB, "frmGhostMode_Load") + Dim DT_USER = DatabaseFallback.GetDatatableECM(oSQL) ' If IsNothing(DT_USER) Then + LOGGER.Info("GHOST Select 1 was nothing, now trying 2nd..") oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WHERE CONFIG_NAME = 'GHOST_SELECT'" If Not IsNothing(oSQL) Then - oSQL = DatabaseFallback.GetScalarValueIDB(oSQL) ', CONNECTION_STRING_ECM) - DT_USER = DatabaseFallback.GetDatatableIDB(oSQL) '(oSQL, "frmGhostMode_LoadDT2") + oSQL = DatabaseFallback.GetScalarValueIDB(oSQL) + DT_USER = DatabaseFallback.GetDatatableIDB(oSQL) Else MsgBox("No SQL for Ghostmode via IDB. Check Your configuration.", MsgBoxStyle.Exclamation) Exit Sub @@ -16,7 +17,10 @@ Try If Not IsNothing(DT_USER) Then + oSQL = DT_USER.Rows(0).Item(0) + DT_USER = DatabaseFallback.GetDatatableECM(oSQL) GridControl1.DataSource = DT_USER + LOGGER.Info($"Received [{DT_USER.Rows.Count}] Ghost-Users to select!") End If diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 1746a73..78cfdbf 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAbgBCQG4AQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAcABCQHAAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 560a9c6..3e01309 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -431,7 +431,7 @@ Public Class frmMain SOURCE_INIT = Init_IDB() If SOURCE_INIT = True Then Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'" - 'Dim DTIDB_DOC_DATA_SQL = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBDD_SQL_COMMANDS", "TITLE = 'PM_IDB_DOC_DATA'") + Dim DTIDB_DOC_DATA_SQL = DatabaseFallback.GetDatatable("TBDD_SQL_COMMANDS", New GetDatatableOptions(oSQL, DatabaseType.ECM) With { .FilterExpression = "TITLE = 'PM_IDB_DOC_DATA'" }) @@ -696,9 +696,9 @@ Public Class frmMain End Try End If - + Dim oReducedColName As String Try - Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") + oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") oReducedColName = oReducedColName.Replace("]", "") GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" @@ -708,7 +708,7 @@ Public Class frmMain GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex1 As Exception - LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") + LOGGER.Warn($"(ResetLayout)Column [{oReducedColName}] or [Zuletzt bearbeitet] not part of OverviewSQL") End Try End Try @@ -1422,8 +1422,9 @@ Public Class frmMain CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges) If CURRENT_DT_PROFILE.Rows.Count = 1 Then CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME") - CURRENT_WMObjecttype = CURRENT_DT_PROFILES.Rows(0).Item("WD_OBJECTTYPE") - PROFILE_SHOW_DOCUMENT = CURRENT_DT_PROFILES.Rows(0).Item("SHOW_DOCUMENT") + CURRENT_WMObjecttype = CURRENT_DT_PROFILE.Rows(0).Item("WD_OBJECTTYPE") + PROFILE_SHOW_DOCUMENT = Convert.ToBoolean(CURRENT_DT_PROFILE.Rows(0).Item("SHOW_DOCUMENT")) + ActiveWorkflowType = 1 Else MsgBox("Could not get a Profile - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) Exit Sub @@ -2130,6 +2131,7 @@ Public Class frmMain End Sub Private Async Function GridLayout_Reset() As Tasks.Task + FRONTEND_ACTION = "RESET_LAYOUT" Await Reset_GridLayout(False) Await Decide_Load(False, True) @@ -2335,12 +2337,12 @@ Public Class frmMain CURR_DT_VWPM_PROFILE_ACTIVE = DatabaseFallback.GetDatatableECM(oSQL) CURR_DT_VWPM_PROFILE_AH_WORKFLOW = CURR_DT_VWPM_PROFILE_ACTIVE.Copy CURR_DT_VWPM_PROFILE_AH_WORKFLOW.Clear() - Dim AHWFRows As DataRow() = CURR_DT_VWPM_PROFILE_ACTIVE.Select("DISPLAY_MODE like 'AdHoc BlindFile%'", "PRIORITY") + Dim AHWFRows As DataRow() = CURR_DT_VWPM_PROFILE_ACTIVE.Select($"TYPE = {ConstAHWorkflow_BlindFile}", "PRIORITY") If AHWFRows.Length > 0 Then LOGGER.Info($"...NUMBER OF ADHOC-WORKFLOW PROFILES ({AHWFRows.Length})") CURR_DT_VWPM_PROFILE_AH_WORKFLOW = AHWFRows.CopyToDataTable() Else - LOGGER.Info($"...NO ADHOC-WORKFLOW PROFILES!") + LOGGER.Debug($"...NO ADHOC-WORKFLOW PROFILES!") End If If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30) @@ -2351,11 +2353,16 @@ Public Class frmMain End If If pMode = "bwBasicData" Then bwBasicData.ReportProgress(40) oSQL = "select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX" + If SQL_VALIDATOR_SEARCHES <> String.Empty Then + SQL_VALIDATOR_SEARCHES = SQL_VALIDATOR_SEARCHES.Replace("@USR_LANG_CODE", User.Language) + oSQL = SQL_VALIDATOR_SEARCHES + End If 'BASEDATA_DT_PROFILES_SEARCHES_DOC = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX") - BASEDATA_DT_PROFILES_SEARCHES_DOC = DatabaseFallback.GetDatatable("TBPM_PROFILE_SEARCH", New GetDatatableOptions(oSQL, DatabaseType.ECM) With { - .FilterExpression = "TYPE = 'DOC'", - .SortByColumn = "PROFILE_ID,TAB_INDEX" - }) + BASEDATA_DT_PROFILES_SEARCHES_DOC = DatabaseECM.GetDatatable(oSQL) + '.GetDatatable("TBPM_PROFILE_SEARCH", New GetDatatableOptions(oSQL, DatabaseType.ECM) With { + ' .FilterExpression = "TYPE = 'DOC'", + ' .SortByColumn = "PROFILE_ID,TAB_INDEX" + '}) If pMode = "Load" Then DT_FILTERED_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone() End If @@ -2698,17 +2705,24 @@ where (CONVERT(DATE,GETDATE()) <= NOTE.DISPLAY_UNTIL or NOTE.DISPLAY_UNTIL IS NU frmGhostMode.ShowDialog() If USER_GHOST_MODE_ACTIVE = True And USER_GHOST_MODE_USRNAME <> String.Empty Then LOGGER.Info($"GHOST MODE for User {USER_GHOST_MODE_USRNAME} will now be initialized!") - + Dim oUserLanguage = User.Language 'BarButtonItemGhostMode.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("CaptionDeactivateDebugMode")} ({USER_GHOST_MODE_USRNAME})" BarButtonItemGhostMode.Caption = String.Format(S.Ghost_Modus___0___deaktivieren, USER_GHOST_MODE_USRNAME) - BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always _Init.InitBasics() _Init.InitUserLogin(USER_GHOST_MODE_USRNAME) _Init.InitBasics2() + Dim onewUserLanguage = User.Language GetBaseData("Load") LoadNavBar() - Await Decide_Load(False) + If oUserLanguage <> onewUserLanguage Then + MsgBox($"Layout will be reset as language changed from {oUserLanguage} to {onewUserLanguage}", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) + Await GridLayout_Reset() + Else + Await Decide_Load(False) + End If + + If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() End If End Sub @@ -3016,6 +3030,7 @@ where (CONVERT(DATE,GETDATE()) <= NOTE.DISPLAY_UNTIL or NOTE.DISPLAY_UNTIL IS NU If CURRENT_DT_PROFILE.Rows.Count = 1 Then CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME") PROFILE_SHOW_DOCUMENT = CURRENT_DT_PROFILE.Rows(0).Item("SHOW_DOCUMENT") + ActiveWorkflowType = 1 Else Exit Sub End If diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 551da25..c006c83 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -843,7 +843,7 @@ Public Class frmValidator oSQL = $"SELECT IIF(LANG.CAPTION IS NULL,T.SPALTEN_HEADER,LANG.CAPTION) SPALTEN_HEADER_LANG, T.* from TBPM_CONTROL_TABLE T INNER JOIN TBPM_PROFILE_CONTROLS T1 ON T.CONTROL_ID = T1.GUID LEFT JOIN (SELECT * FROM TBPM_CONTOL_TABLE_LANG WHERE LANG_CODE = '{USER_LANGUAGE}') LANG ON T.GUID = LANG.COL_ID WHERE T1.CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY T.SEQUENCE" DT_COLUMNS_GRID = DatabaseFallback.GetDatatable("TBPM_CONTROL_TABLE", New GetDatatableOptions(oSQL, DatabaseType.ECM) With { - .FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}", + .FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID} AND LANG_CODE = '{USER_LANGUAGE}' ", .SortByColumn = "SEQUENCE" }) @@ -3318,6 +3318,7 @@ Public Class frmValidator Dim oColValuesfromSource As String() LOGGER.Debug($"DevExpressGrid: {oDTColumnsPerDevExGrid.Rows.Count} Columns configured for control {oControlId}.") + If oDTColumnsPerDevExGrid.Rows.Count >= 1 Then Dim oDataSource As DataTable = oMyGridControl.DataSource oDataSource.Rows.Clear()