diff --git a/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb index 298b267..e5b28a8 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb @@ -49,6 +49,8 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_LOG_ESSENTIALS As TBPMO_LOG_ESSENTIALSDataTable + Private tableTBPMO_DOCRESULT_DROPDOWN_ITEMS As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable + Private tableDT_VORSCHAU As DT_VORSCHAUDataTable Private tableTBAD_Users As TBAD_UsersDataTable @@ -59,6 +61,8 @@ Partial Public Class DD_ECMAdmin Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation + Private relationFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID As Global.System.Data.DataRelation + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Public ReadOnly Property TBPMO_DOCRESULT_DROPDOWN_ITEMS() As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable + Get + Return Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS + End Get + End Property + _ + Private Function ShouldSerializeTBPMO_DOCRESULT_DROPDOWN_ITEMS() As Boolean + Return false + End Function + _ Private Function ShouldSerializeDT_VORSCHAU() As Boolean @@ -793,6 +830,9 @@ Partial Public Class DD_ECMAdmin _ Public Delegate Sub TBPMO_LOG_ESSENTIALSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_LOG_ESSENTIALSRowChangeEvent) + _ + Public Delegate Sub TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent) + _ Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent) @@ -5638,6 +5678,404 @@ Partial Public Class DD_ECMAdmin End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCONFIG_ID As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnDEFAULT As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_DOCRESULT_DROPDOWN_ITEMS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CONFIG_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONFIG_ID + End Get + End Property + + _ + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALUE + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property DEFAULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEFAULT + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow + Get + Return CType(Me.Rows(index),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + End Get + End Property + + _ + Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler + + _ + Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler + + _ + Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler + + _ + Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal parentTBPMO_DOCSEARCH_RESULTLIST_CONFIGRowByFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal VALUE As String, ByVal SEQUENCE As Byte, ByVal _DEFAULT As Boolean, ByVal COLOR As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow + Dim rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow = CType(Me.NewRow,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, VALUE, SEQUENCE, _DEFAULT, COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBPMO_DOCSEARCH_RESULTLIST_CONFIGRowByFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_DOCSEARCH_RESULTLIST_CONFIGRowByFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID(0) + End If + rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + Return rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable = CType(MyBase.Clone,TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCONFIG_ID = MyBase.Columns("CONFIG_ID") + Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnDEFAULT = MyBase.Columns("DEFAULT") + Me.columnCOLOR = MyBase.Columns("COLOR") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCONFIG_ID = New Global.System.Data.DataColumn("CONFIG_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONFIG_ID) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnDEFAULT = New Global.System.Data.DataColumn("DEFAULT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnDEFAULT.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DEFAULTColumn") + Me.columnDEFAULT.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDEFAULT") + Me.columnDEFAULT.ExtendedProperties.Add("Generator_UserColumnName", "DEFAULT") + MyBase.Columns.Add(Me.columnDEFAULT) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnCONFIG_ID.AllowDBNull = false + Me.columnVALUE.AllowDBNull = false + Me.columnVALUE.MaxLength = 100 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnDEFAULT.AllowDBNull = false + Me.columnCOLOR.AllowDBNull = false + Me.columnCOLOR.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_DOCRESULT_DROPDOWN_ITEMSRow() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow + Return CType(Me.NewRow,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged(Me, New TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent(CType(e.Row,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging(Me, New TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent(CType(e.Row,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted(Me, New TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent(CType(e.Row,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting(Me, New TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent(CType(e.Row,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DD_ECMAdmin = New DD_ECMAdmin() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents the strongly named DataTable class. ''' @@ -8950,6 +9388,16 @@ Partial Public Class DD_ECMAdmin Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function GetTBPMO_DOCRESULT_DROPDOWN_ITEMSRows() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow() + If (Me.Table.ChildRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID") Is Nothing) Then + Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID")),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow()) + End If + End Function End Class ''' @@ -9378,6 +9826,194 @@ Partial Public Class DD_ECMAdmin End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_DOCRESULT_DROPDOWN_ITEMS As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS = CType(Me.Table,TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.GUIDColumn) = value + End Set + End Property + + _ + Public Property CONFIG_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CONFIG_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CONFIG_IDColumn) = value + End Set + End Property + + _ + Public Property VALUE() As String + Get + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.VALUEColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.VALUEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Byte + Get + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.SEQUENCEColumn),Byte) + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property _DEFAULT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.DEFAULTColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.DEFAULTColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.COLORColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.COLORColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_DOCRESULT_DROPDOWN_ITEMS ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_DOCRESULT_DROPDOWN_ITEMS ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_DOCRESULT_DROPDOWN_ITEMS ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID")),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -10387,6 +11023,42 @@ Partial Public Class DD_ECMAdmin End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + ''' '''Row event argument class ''' @@ -14498,6 +15170,556 @@ Namespace DD_ECMAdminTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_DOCRESULT_DROPDOWN_ITEMS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONFIG_ID", "CONFIG_ID") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("DEFAULT", "DEFAULT") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_DOCRESULT_DROPDOWN_ITEMS] WHERE (([GUID] = @Original_GUID) AND"& _ + " ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUE"& _ + "NCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @O"& _ + "riginal_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN "& _ + "= 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@I"& _ + "sNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_C"& _ + "HANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHA"& _ + "NGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DEFAULT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_DOCRESULT_DROPDOWN_ITEMS] ([CONFIG_ID], [VALUE], [SEQUENCE], ["& _ + "DEFAULT], [COLOR], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VAL"& _ + "UES (@CONFIG_ID, @VALUE, @SEQUENCE, @DEFAULT, @COLOR, @ADDED_WHO, @ADDED_WHEN, @"& _ + "CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT]"& _ + ", COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_DOCRESULT_D"& _ + "ROPDOWN_ITEMS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_DOCRESULT_DROPDOWN_ITEMS] SET [CONFIG_ID] = @CONFIG_ID, [VALUE] = @"& _ + "VALUE, [SEQUENCE] = @SEQUENCE, [DEFAULT] = @DEFAULT, [COLOR] = @COLOR, [ADDED_WH"& _ + "O] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHAN"& _ + "GED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([CONFIG_ID] = @O"& _ + "riginal_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_S"& _ + "EQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND"& _ + " ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHE"& _ + "N] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO "& _ + "= 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ("& _ + "(@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Orig"& _ + "inal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR"& _ + ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_DOCRESULT_DROPDOWN"& _ + "_ITEMS WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DEFAULT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDE"& _ + "D_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCRESULT_DROPDOWN_ITEM"& _ + "S"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONFIG_ID = @CONFIG_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable, ByVal CONFIG_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONFIG_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal CONFIG_ID As Integer) As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONFIG_ID,Integer) + Dim dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable = New DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_DOCRESULT_DROPDOWN_ITEMS") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CONFIG_ID As Integer, ByVal Original_VALUE As String, ByVal Original_SEQUENCE As Byte, ByVal Original_DEFAULT As Boolean, ByVal Original_COLOR As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CONFIG_ID,Integer) + If (Original_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VALUE") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_VALUE,String) + End If + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SEQUENCE,Byte) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_DEFAULT,Boolean) + If (Original_COLOR Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_COLOR") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_COLOR,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal CONFIG_ID As Integer, ByVal VALUE As String, ByVal SEQUENCE As Byte, ByVal _DEFAULT As Boolean, ByVal COLOR As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONFIG_ID,Integer) + If (VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("VALUE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(VALUE,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Byte) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(_DEFAULT,Boolean) + If (COLOR Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLOR") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COLOR,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal CONFIG_ID As Integer, _ + ByVal VALUE As String, _ + ByVal SEQUENCE As Byte, _ + ByVal _DEFAULT As Boolean, _ + ByVal COLOR As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_CONFIG_ID As Integer, _ + ByVal Original_VALUE As String, _ + ByVal Original_SEQUENCE As Byte, _ + ByVal Original_DEFAULT As Boolean, _ + ByVal Original_COLOR As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONFIG_ID,Integer) + If (VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VALUE,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Byte) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(_DEFAULT,Boolean) + If (COLOR Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLOR") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COLOR,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CONFIG_ID,Integer) + If (Original_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_VALUE,String) + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_SEQUENCE,Byte) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_DEFAULT,Boolean) + If (Original_COLOR Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_COLOR") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_COLOR,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal CONFIG_ID As Integer, _ + ByVal VALUE As String, _ + ByVal SEQUENCE As Byte, _ + ByVal _DEFAULT As Boolean, _ + ByVal COLOR As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_CONFIG_ID As Integer, _ + ByVal Original_VALUE As String, _ + ByVal Original_SEQUENCE As Byte, _ + ByVal Original_DEFAULT As Boolean, _ + ByVal Original_COLOR As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(CONFIG_ID, VALUE, SEQUENCE, _DEFAULT, COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CONFIG_ID, Original_VALUE, Original_SEQUENCE, Original_DEFAULT, Original_COLOR, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -14523,6 +15745,8 @@ Namespace DD_ECMAdminTableAdapters Private _tBPMO_LOG_ESSENTIALSTableAdapter As TBPMO_LOG_ESSENTIALSTableAdapter + Private _tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter As TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -14622,6 +15846,20 @@ Namespace DD_ECMAdminTableAdapters End Set End Property + _ + Public Property TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter() As TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter + Get + Return Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter + End Get + Set + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -14665,6 +15903,10 @@ Namespace DD_ECMAdminTableAdapters AndAlso (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection End If + If ((Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection + End If Return Nothing End Get Set @@ -14696,6 +15938,9 @@ Namespace DD_ECMAdminTableAdapters If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -14716,21 +15961,12 @@ Namespace DD_ECMAdminTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -14743,15 +15979,6 @@ Namespace DD_ECMAdminTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -14761,6 +15988,33 @@ Namespace DD_ECMAdminTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -14779,19 +16033,11 @@ Namespace DD_ECMAdminTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -14803,14 +16049,6 @@ Namespace DD_ECMAdminTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -14819,6 +16057,30 @@ Namespace DD_ECMAdminTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -14829,27 +16091,19 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -14861,11 +16115,27 @@ Namespace DD_ECMAdminTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -14948,6 +16218,11 @@ Namespace DD_ECMAdminTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -15036,6 +16311,15 @@ Namespace DD_ECMAdminTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_LOG_ESSENTIALSTableAdapter.Adapter) End If End If + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter, Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection) + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -15120,6 +16404,10 @@ Namespace DD_ECMAdminTableAdapters Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection = CType(revertConnections(Me._tBPMO_LOG_ESSENTIALSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_LOG_ESSENTIALSTableAdapter.Transaction = Nothing End If + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection = CType(revertConnections(Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/app/DD-Record-Organizer/DD_ECMAdmin.xsd b/app/DD-Record-Organizer/DD_ECMAdmin.xsd index 7709bbd..845cbff 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organizer/DD_ECMAdmin.xsd @@ -724,6 +724,103 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM + + + + + + DELETE FROM [TBPMO_DOCRESULT_DROPDOWN_ITEMS] WHERE (([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBPMO_DOCRESULT_DROPDOWN_ITEMS] ([CONFIG_ID], [VALUE], [SEQUENCE], [DEFAULT], [COLOR], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@CONFIG_ID, @VALUE, @SEQUENCE, @DEFAULT, @COLOR, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBPMO_DOCRESULT_DROPDOWN_ITEMS +WHERE (CONFIG_ID = @CONFIG_ID) + + + + + + + + UPDATE [TBPMO_DOCRESULT_DROPDOWN_ITEMS] SET [CONFIG_ID] = @CONFIG_ID, [VALUE] = @VALUE, [SEQUENCE] = @SEQUENCE, [DEFAULT] = @DEFAULT, [COLOR] = @COLOR, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -732,7 +829,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -778,7 +875,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -899,7 +996,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -972,14 +1069,14 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + - + @@ -1008,7 +1105,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1020,7 +1117,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1041,7 +1138,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1055,7 +1152,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1067,7 +1164,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1079,7 +1176,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1194,7 +1291,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1238,7 +1335,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1289,7 +1386,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1349,7 +1446,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1363,7 +1460,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM - + @@ -1394,6 +1491,46 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1436,10 +1573,15 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM + + + + - + + \ No newline at end of file diff --git a/app/DD-Record-Organizer/DD_ECMAdmin.xss b/app/DD-Record-Organizer/DD_ECMAdmin.xss index c11450f..9c78d40 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.xss +++ b/app/DD-Record-Organizer/DD_ECMAdmin.xss @@ -4,35 +4,48 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + - + - 345 - 74 + 291 + 176 385 - 74 + 176 + + + + + + + 1048 + 146 + + + 1022 + 146 diff --git a/app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb b/app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb index 6c0ccfc..90e98b1 100644 --- a/app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb +++ b/app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb @@ -23,19 +23,18 @@ Partial Class frmWD_Resultlist_Config _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim GUIDLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_Resultlist_Config)) - Dim LANGUAGELabel1 As System.Windows.Forms.Label Dim ENTITY_IDLabel As System.Windows.Forms.Label - Dim COLUMN_VIEWLabel As System.Windows.Forms.Label - Dim HEADER_CAPTIONLabel As System.Windows.Forms.Label - Dim WIDTHLabel As System.Windows.Forms.Label - Dim TYPE_IDLabel As System.Windows.Forms.Label - Dim ADDED_WHOLabel As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim SEQUENCELabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim LANGUAGELabel1 As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim TYPE_IDLabel As System.Windows.Forms.Label + Dim COLUMN_VIEWLabel As System.Windows.Forms.Label + Dim WIDTHLabel As System.Windows.Forms.Label + Dim HEADER_CAPTIONLabel As System.Windows.Forms.Label Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.GridMain = New DevExpress.XtraGrid.GridControl() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -55,24 +54,38 @@ Partial Class frmWD_Resultlist_Config Me.colVISIBLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.colEDITABLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.labelSuccess = New System.Windows.Forms.Label() + Me.VISIBLECheckBox = New System.Windows.Forms.CheckBox() + Me.SEQUENCETextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.TYPE_IDComboBox = New System.Windows.Forms.ComboBox() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.CONFIG_CLOUMNSCheckbox = New System.Windows.Forms.CheckBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.EDITABLECheckBox = New System.Windows.Forms.CheckBox() - Me.labelSuccess = New System.Windows.Forms.Label() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.TBWH_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.WIDTHTextBox = New System.Windows.Forms.TextBox() Me.COLUMN_VIEWTextBox = New System.Windows.Forms.TextBox() Me.HEADER_CAPTIONTextBox = New System.Windows.Forms.TextBox() - Me.WIDTHTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.VISIBLECheckBox = New System.Windows.Forms.CheckBox() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.grvwCombobox = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCONFIG_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVALUE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSEQUENCE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDEFAULT = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCOLOR = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHO1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCHANGED_WHO1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCHANGED_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter() Me.TableAdapterManager = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) @@ -91,19 +104,18 @@ Partial Class frmWD_Resultlist_Config Me.TBWH_ENTITYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter() Me.TableAdapterManager1 = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter() - Me.SEQUENCETextBox = New System.Windows.Forms.TextBox() - GUIDLabel = New System.Windows.Forms.Label() - LANGUAGELabel1 = New System.Windows.Forms.Label() + Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter() ENTITY_IDLabel = New System.Windows.Forms.Label() - COLUMN_VIEWLabel = New System.Windows.Forms.Label() - HEADER_CAPTIONLabel = New System.Windows.Forms.Label() - WIDTHLabel = New System.Windows.Forms.Label() - TYPE_IDLabel = New System.Windows.Forms.Label() - ADDED_WHOLabel = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel = New System.Windows.Forms.Label() SEQUENCELabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + LANGUAGELabel1 = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + TYPE_IDLabel = New System.Windows.Forms.Label() + COLUMN_VIEWLabel = New System.Windows.Forms.Label() + WIDTHLabel = New System.Windows.Forms.Label() + HEADER_CAPTIONLabel = New System.Windows.Forms.Label() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() @@ -112,18 +124,18 @@ Partial Class frmWD_Resultlist_Config CType(Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.grvwMain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() CType(Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grvwCombobox, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator.SuspendLayout() Me.SuspendLayout() ' - 'GUIDLabel - ' - resources.ApplyResources(GUIDLabel, "GUIDLabel") - GUIDLabel.Name = "GUIDLabel" - ' 'SplitContainer1 ' resources.ApplyResources(Me.SplitContainer1, "SplitContainer1") @@ -136,34 +148,7 @@ Partial Class frmWD_Resultlist_Config 'SplitContainer1.Panel2 ' resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2") - Me.SplitContainer1.Panel2.Controls.Add(SEQUENCELabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.SEQUENCETextBox) - Me.SplitContainer1.Panel2.Controls.Add(Me.TYPE_IDComboBox) - Me.SplitContainer1.Panel2.Controls.Add(Me.CONFIG_CLOUMNSCheckbox) - Me.SplitContainer1.Panel2.Controls.Add(Me.EDITABLECheckBox) - Me.SplitContainer1.Panel2.Controls.Add(Me.labelSuccess) - Me.SplitContainer1.Panel2.Controls.Add(LANGUAGELabel1) - Me.SplitContainer1.Panel2.Controls.Add(Me.LANGUAGEComboBox) - Me.SplitContainer1.Panel2.Controls.Add(Me.ComboBox1) - Me.SplitContainer1.Panel2.Controls.Add(GUIDLabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.GUIDTextBox) - Me.SplitContainer1.Panel2.Controls.Add(ENTITY_IDLabel) - Me.SplitContainer1.Panel2.Controls.Add(COLUMN_VIEWLabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.COLUMN_VIEWTextBox) - Me.SplitContainer1.Panel2.Controls.Add(HEADER_CAPTIONLabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.HEADER_CAPTIONTextBox) - Me.SplitContainer1.Panel2.Controls.Add(WIDTHLabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.WIDTHTextBox) - Me.SplitContainer1.Panel2.Controls.Add(TYPE_IDLabel) - Me.SplitContainer1.Panel2.Controls.Add(ADDED_WHOLabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.ADDED_WHOTextBox) - Me.SplitContainer1.Panel2.Controls.Add(ADDED_WHENLabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.ADDED_WHENTextBox) - Me.SplitContainer1.Panel2.Controls.Add(CHANGED_WHOLabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.CHANGED_WHOTextBox) - Me.SplitContainer1.Panel2.Controls.Add(CHANGED_WHENLabel) - Me.SplitContainer1.Panel2.Controls.Add(Me.CHANGED_WHENTextBox) - Me.SplitContainer1.Panel2.Controls.Add(Me.VISIBLECheckBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainerControl1) ' 'GridMain ' @@ -276,6 +261,77 @@ Partial Class frmWD_Resultlist_Config Me.colNAME.Name = "colNAME" Me.colNAME.UnboundType = DevExpress.Data.UnboundColumnType.[String] ' + 'SplitContainerControl1 + ' + resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1") + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(ENTITY_IDLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.labelSuccess) + Me.SplitContainerControl1.Panel1.Controls.Add(SEQUENCELabel) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.VISIBLECheckBox) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.SEQUENCETextBox) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.TYPE_IDComboBox) + Me.SplitContainerControl1.Panel1.Controls.Add(CHANGED_WHENLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.CONFIG_CLOUMNSCheckbox) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.EDITABLECheckBox) + Me.SplitContainerControl1.Panel1.Controls.Add(CHANGED_WHOLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.ADDED_WHENTextBox) + Me.SplitContainerControl1.Panel1.Controls.Add(LANGUAGELabel1) + Me.SplitContainerControl1.Panel1.Controls.Add(ADDED_WHENLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.LANGUAGEComboBox) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.ADDED_WHOTextBox) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.ComboBox1) + Me.SplitContainerControl1.Panel1.Controls.Add(ADDED_WHOLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(TYPE_IDLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(COLUMN_VIEWLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.WIDTHTextBox) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.COLUMN_VIEWTextBox) + Me.SplitContainerControl1.Panel1.Controls.Add(WIDTHLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(HEADER_CAPTIONLabel) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.HEADER_CAPTIONTextBox) + resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1") + Me.SplitContainerControl1.Panel2.Controls.Add(Me.GridControl1) + resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2") + Me.SplitContainerControl1.SplitterPosition = 338 + ' + 'ENTITY_IDLabel + ' + resources.ApplyResources(ENTITY_IDLabel, "ENTITY_IDLabel") + ENTITY_IDLabel.Name = "ENTITY_IDLabel" + ' + 'labelSuccess + ' + resources.ApplyResources(Me.labelSuccess, "labelSuccess") + Me.labelSuccess.BackColor = System.Drawing.Color.Yellow + Me.labelSuccess.Name = "labelSuccess" + ' + 'SEQUENCELabel + ' + resources.ApplyResources(SEQUENCELabel, "SEQUENCELabel") + SEQUENCELabel.Name = "SEQUENCELabel" + ' + 'VISIBLECheckBox + ' + Me.VISIBLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "VISIBLE", True)) + resources.ApplyResources(Me.VISIBLECheckBox, "VISIBLECheckBox") + Me.VISIBLECheckBox.Name = "VISIBLECheckBox" + Me.VISIBLECheckBox.UseVisualStyleBackColor = True + ' + 'SEQUENCETextBox + ' + Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "SEQUENCE", True)) + resources.ApplyResources(Me.SEQUENCETextBox, "SEQUENCETextBox") + Me.SEQUENCETextBox.Name = "SEQUENCETextBox" + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + ' 'TYPE_IDComboBox ' Me.TYPE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "TYPE_ID", True)) @@ -291,6 +347,11 @@ Partial Class frmWD_Resultlist_Config Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDBindingSource.DataMember = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDBindingSource.DataSource = Me.DD_ECMAdmin ' + 'CHANGED_WHENLabel + ' + resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + ' 'CONFIG_CLOUMNSCheckbox ' resources.ApplyResources(Me.CONFIG_CLOUMNSCheckbox, "CONFIG_CLOUMNSCheckbox") @@ -298,6 +359,13 @@ Partial Class frmWD_Resultlist_Config Me.CONFIG_CLOUMNSCheckbox.Name = "CONFIG_CLOUMNSCheckbox" Me.CONFIG_CLOUMNSCheckbox.UseVisualStyleBackColor = True ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "CHANGED_WHO", True)) + resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + ' 'EDITABLECheckBox ' Me.EDITABLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "EDITABLE", True)) @@ -305,17 +373,28 @@ Partial Class frmWD_Resultlist_Config Me.EDITABLECheckBox.Name = "EDITABLECheckBox" Me.EDITABLECheckBox.UseVisualStyleBackColor = True ' - 'labelSuccess + 'CHANGED_WHOLabel ' - resources.ApplyResources(Me.labelSuccess, "labelSuccess") - Me.labelSuccess.BackColor = System.Drawing.Color.Yellow - Me.labelSuccess.Name = "labelSuccess" + resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "ADDED_WHEN", True)) + resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True ' 'LANGUAGELabel1 ' resources.ApplyResources(LANGUAGELabel1, "LANGUAGELabel1") LANGUAGELabel1.Name = "LANGUAGELabel1" ' + 'ADDED_WHENLabel + ' + resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ' 'LANGUAGEComboBox ' Me.LANGUAGEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "LANGUAGE", True)) @@ -324,6 +403,13 @@ Partial Class frmWD_Resultlist_Config resources.ApplyResources(Me.LANGUAGEComboBox, "LANGUAGEComboBox") Me.LANGUAGEComboBox.Name = "LANGUAGEComboBox" ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "ADDED_WHO", True)) + resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + ' 'ComboBox1 ' Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "ENTITY_ID", True)) @@ -344,29 +430,38 @@ Partial Class frmWD_Resultlist_Config Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'GUIDTextBox + 'ADDED_WHOLabel ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True + resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") + ADDED_WHOLabel.Name = "ADDED_WHOLabel" ' - 'ENTITY_IDLabel + 'TYPE_IDLabel ' - resources.ApplyResources(ENTITY_IDLabel, "ENTITY_IDLabel") - ENTITY_IDLabel.Name = "ENTITY_IDLabel" + resources.ApplyResources(TYPE_IDLabel, "TYPE_IDLabel") + TYPE_IDLabel.Name = "TYPE_IDLabel" ' 'COLUMN_VIEWLabel ' resources.ApplyResources(COLUMN_VIEWLabel, "COLUMN_VIEWLabel") COLUMN_VIEWLabel.Name = "COLUMN_VIEWLabel" ' + 'WIDTHTextBox + ' + Me.WIDTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "WIDTH", True)) + resources.ApplyResources(Me.WIDTHTextBox, "WIDTHTextBox") + Me.WIDTHTextBox.Name = "WIDTHTextBox" + ' 'COLUMN_VIEWTextBox ' Me.COLUMN_VIEWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "COLUMN_VIEW", True)) resources.ApplyResources(Me.COLUMN_VIEWTextBox, "COLUMN_VIEWTextBox") Me.COLUMN_VIEWTextBox.Name = "COLUMN_VIEWTextBox" ' + 'WIDTHLabel + ' + resources.ApplyResources(WIDTHLabel, "WIDTHLabel") + WIDTHLabel.Name = "WIDTHLabel" + ' 'HEADER_CAPTIONLabel ' resources.ApplyResources(HEADER_CAPTIONLabel, "HEADER_CAPTIONLabel") @@ -378,76 +473,84 @@ Partial Class frmWD_Resultlist_Config resources.ApplyResources(Me.HEADER_CAPTIONTextBox, "HEADER_CAPTIONTextBox") Me.HEADER_CAPTIONTextBox.Name = "HEADER_CAPTIONTextBox" ' - 'WIDTHLabel + 'GridControl1 ' - resources.ApplyResources(WIDTHLabel, "WIDTHLabel") - WIDTHLabel.Name = "WIDTHLabel" + Me.GridControl1.DataSource = Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource + resources.ApplyResources(Me.GridControl1, "GridControl1") + Me.GridControl1.MainView = Me.grvwCombobox + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCombobox}) ' - 'WIDTHTextBox + 'TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource ' - Me.WIDTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "WIDTH", True)) - resources.ApplyResources(Me.WIDTHTextBox, "WIDTHTextBox") - Me.WIDTHTextBox.Name = "WIDTHTextBox" + Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource.DataMember = "TBPMO_DOCRESULT_DROPDOWN_ITEMS" + Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource.DataSource = Me.DD_ECMAdmin ' - 'TYPE_IDLabel + 'grvwCombobox ' - resources.ApplyResources(TYPE_IDLabel, "TYPE_IDLabel") - TYPE_IDLabel.Name = "TYPE_IDLabel" + Me.grvwCombobox.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colCONFIG_ID, Me.colVALUE, Me.colSEQUENCE, Me.colDEFAULT, Me.colCOLOR, Me.colADDED_WHO1, Me.colADDED_WHEN1, Me.colCHANGED_WHO1, Me.colCHANGED_WHEN1}) + Me.grvwCombobox.GridControl = Me.GridControl1 + Me.grvwCombobox.Name = "grvwCombobox" ' - 'ADDED_WHOLabel + 'colGUID1 ' - resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") - ADDED_WHOLabel.Name = "ADDED_WHOLabel" + Me.colGUID1.FieldName = "GUID" + Me.colGUID1.Name = "colGUID1" + resources.ApplyResources(Me.colGUID1, "colGUID1") ' - 'ADDED_WHOTextBox + 'colCONFIG_ID ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") - Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - Me.ADDED_WHOTextBox.ReadOnly = True + Me.colCONFIG_ID.FieldName = "CONFIG_ID" + Me.colCONFIG_ID.Name = "colCONFIG_ID" + resources.ApplyResources(Me.colCONFIG_ID, "colCONFIG_ID") ' - 'ADDED_WHENLabel + 'colVALUE ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" + Me.colVALUE.FieldName = "VALUE" + Me.colVALUE.Name = "colVALUE" + resources.ApplyResources(Me.colVALUE, "colVALUE") ' - 'ADDED_WHENTextBox + 'colSEQUENCE ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.ReadOnly = True + Me.colSEQUENCE.FieldName = "SEQUENCE" + Me.colSEQUENCE.Name = "colSEQUENCE" + resources.ApplyResources(Me.colSEQUENCE, "colSEQUENCE") ' - 'CHANGED_WHOLabel + 'colDEFAULT ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + Me.colDEFAULT.FieldName = "DEFAULT" + Me.colDEFAULT.Name = "colDEFAULT" + resources.ApplyResources(Me.colDEFAULT, "colDEFAULT") ' - 'CHANGED_WHOTextBox + 'colCOLOR ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.ReadOnly = True + Me.colCOLOR.FieldName = "COLOR" + Me.colCOLOR.Name = "colCOLOR" + resources.ApplyResources(Me.colCOLOR, "colCOLOR") ' - 'CHANGED_WHENLabel + 'colADDED_WHO1 ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + Me.colADDED_WHO1.FieldName = "ADDED_WHO" + Me.colADDED_WHO1.Name = "colADDED_WHO1" + resources.ApplyResources(Me.colADDED_WHO1, "colADDED_WHO1") ' - 'CHANGED_WHENTextBox + 'colADDED_WHEN1 ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.ReadOnly = True + Me.colADDED_WHEN1.FieldName = "ADDED_WHEN" + Me.colADDED_WHEN1.Name = "colADDED_WHEN1" + resources.ApplyResources(Me.colADDED_WHEN1, "colADDED_WHEN1") ' - 'VISIBLECheckBox + 'colCHANGED_WHO1 ' - Me.VISIBLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "VISIBLE", True)) - resources.ApplyResources(Me.VISIBLECheckBox, "VISIBLECheckBox") - Me.VISIBLECheckBox.Name = "VISIBLECheckBox" - Me.VISIBLECheckBox.UseVisualStyleBackColor = True + Me.colCHANGED_WHO1.FieldName = "CHANGED_WHO" + Me.colCHANGED_WHO1.Name = "colCHANGED_WHO1" + resources.ApplyResources(Me.colCHANGED_WHO1, "colCHANGED_WHO1") + ' + 'colCHANGED_WHEN1 + ' + Me.colCHANGED_WHEN1.FieldName = "CHANGED_WHEN" + Me.colCHANGED_WHEN1.Name = "colCHANGED_WHEN1" + resources.ApplyResources(Me.colCHANGED_WHEN1, "colCHANGED_WHEN1") ' 'TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter ' @@ -457,6 +560,7 @@ Partial Class frmWD_Resultlist_Config ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter = Nothing Me.TableAdapterManager.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing @@ -597,16 +701,9 @@ Partial Class frmWD_Resultlist_Config ' Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter.ClearBeforeFill = True ' - 'SEQUENCELabel + 'TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter ' - resources.ApplyResources(SEQUENCELabel, "SEQUENCELabel") - SEQUENCELabel.Name = "SEQUENCELabel" - ' - 'SEQUENCETextBox - ' - Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "SEQUENCE", True)) - resources.ApplyResources(Me.SEQUENCETextBox, "SEQUENCETextBox") - Me.SEQUENCETextBox.Name = "SEQUENCETextBox" + Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.ClearBeforeFill = True ' 'frmWD_Resultlist_Config ' @@ -617,16 +714,20 @@ Partial Class frmWD_Resultlist_Config Me.Name = "frmWD_Resultlist_Config" Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False) - Me.SplitContainer1.Panel2.PerformLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) CType(Me.GridMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.grvwMain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) CType(Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grvwCombobox, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator.ResumeLayout(False) Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator.PerformLayout() @@ -654,7 +755,6 @@ Partial Class frmWD_Resultlist_Config Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton - Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox Friend WithEvents COLUMN_VIEWTextBox As System.Windows.Forms.TextBox Friend WithEvents HEADER_CAPTIONTextBox As System.Windows.Forms.TextBox Friend WithEvents WIDTHTextBox As System.Windows.Forms.TextBox @@ -690,4 +790,19 @@ Partial Class frmWD_Resultlist_Config Friend WithEvents colEDITABLE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents SEQUENCETextBox As System.Windows.Forms.TextBox + Friend WithEvents TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents grvwCombobox As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCONFIG_ID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVALUE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSEQUENCE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDEFAULT As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCOLOR As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHO1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHEN1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCHANGED_WHO1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCHANGED_WHEN1 As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/app/DD-Record-Organizer/frmWD_Resultlist_Config.resx b/app/DD-Record-Organizer/frmWD_Resultlist_Config.resx index e2a62ad..5898969 100644 --- a/app/DD-Record-Organizer/frmWD_Resultlist_Config.resx +++ b/app/DD-Record-Organizer/frmWD_Resultlist_Config.resx @@ -117,42 +117,11 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - - True - - - - 12, 19 - - - 37, 13 - - - 0 - - - GUID: - - - GUIDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 9 - Fill + 0, 0 @@ -171,6 +140,7 @@ 0, 28 + True @@ -291,134 +261,41 @@ True - + + Fill + + + 0, 0 + + False - + True - - 12, 202 + + 3, 14 - - 67, 13 + + 43, 13 - - 35 - - - Reihenfolge: - - - SEQUENCELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 0 - - - 123, 199 - - - 178, 20 - - - 36 - - - SEQUENCETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 1 - - - 750, 56 - - - 123, 172 - - - 178, 21 - - - 35 - - - TYPE_IDComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - + 2 - - True + + Entität: - - False + + ENTITY_IDLabel - - 15, 229 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 63, 17 + + SplitContainerControl1.Panel1 - - 33 - - - Manuell - - - CONFIG_CLOUMNSCheckbox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 3 - - - 223, 225 - - - 78, 24 - - - 32 - - - Editierbar - - - EDITABLECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 4 + + 0 True @@ -427,7 +304,7 @@ Microsoft Sans Serif, 9.75pt, style=Bold - 12, 375 + 5, 351 177, 16 @@ -448,535 +325,43 @@ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 5 - - - False - - - True - - - 12, 70 - - - 50, 13 - - - 25 - - - Sprache: - - - LANGUAGELabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 6 - - - de-DE - - - en-US - - - 123, 67 - - - 178, 21 - - - 25 - - - LANGUAGEComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 7 - - - 160, 56 - - - 17, 56 - - - 123, 42 - - - 178, 21 - - - 24 - - - ComboBox1 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 8 - - - 123, 16 - - - 178, 20 - - 1 - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 10 - - + False - + True - - 12, 45 + + 3, 171 - - 40, 13 + + 68, 13 - + + 35 + + + Reihenfolge: + + + SEQUENCELabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + 2 - - Entität: - - - ENTITY_IDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 11 - - - False - - - True - - - 12, 97 - - - 87, 13 - - - 6 - - - COLUMN VIEW: - - - COLUMN_VIEWLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 12 - - - 123, 94 - - - 178, 20 - - - 26 - - - COLUMN_VIEWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 13 - - - False - - - True - - - 12, 123 - - - 72, 13 - - - 8 - - - Spaltenname: - - - HEADER_CAPTIONLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 14 - - - 123, 120 - - - 178, 20 - - - 27 - - - HEADER_CAPTIONTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 15 - - - False - - - True - - - 12, 149 - - - 72, 13 - - - 10 - - - Spaltenbreite: - - - WIDTHLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 16 - - - 123, 146 - - - 178, 20 - - - 28 - - - WIDTHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 17 - - - False - - - True - - - 12, 175 - - - 60, 13 - - - 12 - - - Spaltentyp: - - - TYPE_IDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 18 - - - False - - - True - - - 12, 258 - - - 78, 13 - - - 14 - - - ADDED WHO: - - - ADDED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 19 - - - 123, 255 - - - 178, 20 - - - 15 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 20 - - - False - - - True - - - 12, 284 - - - 85, 13 - - - 16 - - - ADDED WHEN: - - - ADDED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 21 - - - 123, 281 - - - 178, 20 - - - 17 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 22 - - - False - - - True - - - 12, 310 - - - 93, 13 - - - 18 - - - CHANGED WHO: - - - CHANGED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 23 - - - 123, 307 - - - 178, 20 - - - 19 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 24 - - - False - - - True - - - 12, 336 - - - 100, 13 - - - 20 - - - CHANGED WHEN: - - - CHANGED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 25 - - - 123, 333 - - - 178, 20 - - - 21 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 26 - - 123, 225 + 114, 194 68, 24 @@ -994,11 +379,698 @@ System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 + 3 + + + 114, 168 + + + 178, 21 + + + 36 + + + SEQUENCETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 4 + + + 114, 302 + + + 178, 21 + + + 21 + + + CHANGED_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 5 + + + 750, 56 + + + 114, 141 + + + 178, 21 + + + 35 + + + TYPE_IDComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 6 + + + False + + + True + + + 3, 305 + + + 87, 13 + + + 20 + + + Geändert Wann: + + + CHANGED_WHENLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 7 + + + True + + + False + + + 6, 198 + + + 62, 17 + + + 33 + + + Manuell + + + CONFIG_CLOUMNSCheckbox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 8 + + + 114, 276 + + + 178, 21 + + + 19 + + + CHANGED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 9 + + + 214, 194 + + + 78, 24 + + + 32 + + + Editierbar + + + EDITABLECheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 10 + + + False + + + True + + + 3, 279 + + + 79, 13 + + + 18 + + + Geändert Wer: + + + CHANGED_WHOLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 11 + + + 114, 250 + + + 178, 21 + + + 17 + + + ADDED_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 12 + + + False + + + True + + + 3, 39 + + + 50, 13 + + + 25 + + + Sprache: + + + LANGUAGELabel1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 13 + + + False + + + True + + + 3, 253 + + + 75, 13 + + + 16 + + + Erstellt Wann: + + + ADDED_WHENLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 14 + + + de-DE + + + en-US + + + 114, 36 + + + 178, 21 + + + 25 + + + LANGUAGEComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 15 + + + 114, 224 + + + 178, 21 + + + 15 + + + ADDED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 16 + + + 160, 56 + + + 17, 56 + + + 114, 11 + + + 178, 21 + + + 24 + + + ComboBox1 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 17 + + + False + + + True + + + 3, 227 + + + 67, 13 + + + 14 + + + Erstellt Wer: + + + ADDED_WHOLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 18 + + + False + + + True + + + 3, 144 + + + 63, 13 + + + 12 + + + Spaltentyp: + + + TYPE_IDLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 19 + + + False + + + True + + + 3, 66 + + + 71, 13 + + + 6 + + + Name Intern: + + + COLUMN_VIEWLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 20 + + + 114, 115 + + + 178, 21 + + + 28 + + + WIDTHTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 21 + + + 114, 63 + + + 178, 21 + + + 26 + + + COLUMN_VIEWTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 22 + + + False + + + True + + + 3, 118 + + + 75, 13 + + + 10 + + + Spaltenbreite: + + + WIDTHLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 23 + + + False + + + True + + + 3, 92 + + + 73, 13 + + + 8 + + + Spaltenname: + + + HEADER_CAPTIONLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 24 + + + 114, 89 + + + 178, 21 + + 27 + + HEADER_CAPTIONTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 25 + + + Panel1 + + + 17, 95 + + + Fill + + + False + + + 0, 0 + + + True + + + 0 + + + True + + + 1 + + + True + + + 2 + + + True + + + 3 + + + True + + + 4 + + + True + + + 5 + + + True + + + 6 + + + True + + + 7 + + + True + + + 8 + + + True + + + 9 + + + 521, 400 + + + 0 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerControl1.Panel2 + + + 0 + + + Panel2 + + + 864, 400 + + + 37 + + + SplitContainerControl1 + + + SplitContainerControl1 + + + DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainer1.Panel2 + + + 0 + SplitContainer1.Panel2 @@ -1238,9 +1310,15 @@ 1163, 56 + + 375, 95 + True + + 184 + 6, 13 @@ -1370,6 +1448,78 @@ DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + TBPMO_DOCRESULT_DROPDOWN_ITEMSBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grvwCombobox + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colGUID1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCONFIG_ID + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colVALUE + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colSEQUENCE + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colDEFAULT + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCOLOR + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colADDED_WHO1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colADDED_WHEN1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCHANGED_WHO1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCHANGED_WHEN1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter @@ -1472,6 +1622,12 @@ DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter + + + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + frmWD_Resultlist_Config diff --git a/app/DD-Record-Organizer/frmWD_Resultlist_Config.vb b/app/DD-Record-Organizer/frmWD_Resultlist_Config.vb index c322315..c05baff 100644 --- a/app/DD-Record-Organizer/frmWD_Resultlist_Config.vb +++ b/app/DD-Record-Organizer/frmWD_Resultlist_Config.vb @@ -1,4 +1,7 @@ -Public Class frmWD_Resultlist_Config +Imports DevExpress.XtraEditors.Repository + +Public Class frmWD_Resultlist_Config + Private Sub frmWD_Resultlist_Config_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try @@ -6,9 +9,32 @@ Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID) Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG) + Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBWH_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBWH_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.TBWH_ENTITY, USER_LANGUAGE) + AddHandler DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting, AddressOf TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting + + Dim colorEdit As New RepositoryItemColorEdit() + colorEdit.ShowCustomColors = False + colorEdit.ShowSystemColors = False + colorEdit.ShowWebColors = True + colorEdit.StoreColorAsInteger = True + + AddHandler colorEdit.FormatEditValue, AddressOf colorEdit_Format + AddHandler colorEdit.ParseEditValue, AddressOf colorEdit_Parse + + + grvwCombobox.Columns.Item("GUID").Visible = False + grvwCombobox.Columns.Item("ADDED_WHO").Visible = False + grvwCombobox.Columns.Item("ADDED_WHEN").Visible = False + grvwCombobox.Columns.Item("CHANGED_WHO").Visible = False + grvwCombobox.Columns.Item("CHANGED_WHEN").Visible = False + grvwCombobox.Columns.Item("CONFIG_ID").Visible = False + grvwCombobox.Columns.Item("COLOR").ColumnEdit = colorEdit + + ' Gruppierung nach Entität und dann nach Sprache grvwMain.Columns.Item("NAME").GroupIndex = 0 grvwMain.Columns.Item("LANGUAGE").GroupIndex = 1 @@ -57,6 +83,19 @@ Private Sub grvwMain_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwMain.FocusedRowChanged labelSuccess.Visible = False + + Dim rowHandle = grvwMain.GetSelectedRows().FirstOrDefault() + If rowHandle >= 0 Then + Dim row = grvwMain.GetRow(rowHandle) + Dim configId As Integer = row.Item("GUID") + + TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Fill(DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMS, configId) + End If + + + + + End Sub Private Sub grvwMain_CustomUnboundColumnData(sender As Object, e As DevExpress.XtraGrid.Views.Base.CustomColumnDataEventArgs) Handles grvwMain.CustomUnboundColumnData @@ -69,4 +108,36 @@ End If End If End Sub + + Private Sub TYPE_IDComboBox_SelectedValueChanged(sender As Object, e As EventArgs) Handles TYPE_IDComboBox.SelectedValueChanged + Dim value = TYPE_IDComboBox.SelectedValue + + If value = 3 Then + 'show splitter + Else + 'hide splitter + End If + End Sub + + Private Sub colorEdit_Format(sender As Object, e As DevExpress.XtraEditors.Controls.ConvertEditValueEventArgs) + Console.WriteLine("") + End Sub + + Private Sub colorEdit_Parse(sender As Object, e As DevExpress.XtraEditors.Controls.ConvertEditValueEventArgs) + Console.WriteLine("") + End Sub + + Private Sub grvwCombobox_RowUpdated(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectEventArgs) Handles grvwCombobox.RowUpdated + TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(DD_ECMAdmin) + End Sub + + Private Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting(sender As Object, e As DD_Record_Organizer.DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent) + Dim isConfigColumn As Boolean = e.Row.Item("CONFIG_COLUMNS") + + If (isConfigColumn = False) Then + e.Row.RejectChanges() + End If + + End Sub + End Class \ No newline at end of file