From 8971faa70efa29e15728f7e6dfde935d69576a17 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Tue, 21 Mar 2017 16:25:18 +0100 Subject: [PATCH] jj 21.03 resultlist config --- .../DD_ECMAdmin.Designer.vb | 2034 ++++++++++++++--- app/DD-Record-Organizer/DD_ECMAdmin.xsd | 176 +- app/DD-Record-Organizer/DD_ECMAdmin.xss | 55 +- .../frmWD_Resultlist_Config.Designer.vb | 375 +-- .../frmWD_Resultlist_Config.resx | 964 ++++---- .../frmWD_Resultlist_Config.vb | 73 +- 6 files changed, 2731 insertions(+), 946 deletions(-) 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) @@ -5643,16 +5683,34 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class DT_VORSCHAUDataTable - Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) + 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 = "DT_VORSCHAU" + Me.TableName = "TBPMO_DOCRESULT_DROPDOWN_ITEMS" Me.BeginInit Me.InitClass Me.EndInit @@ -5683,6 +5741,22 @@ Partial Public Class DD_ECMAdmin 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 @@ -5691,6 +5765,62 @@ Partial Public Class DD_ECMAdmin 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 + _ @@ -5702,44 +5832,53 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Get - Return CType(Me.Rows(index),DT_VORSCHAURow) + Return CType(Me.Rows(index),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Get End Property _ - Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler + Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ - Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler + Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ - Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler + Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ - Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler + Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ - Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) + Public Overloads Sub AddTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow - Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow,DT_VORSCHAURow) - Dim columnValuesArray() As Object = New Object() {VALUE} - rowDT_VORSCHAURow.ItemArray = columnValuesArray - Me.Rows.Add(rowDT_VORSCHAURow) - Return rowDT_VORSCHAURow + 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 DT_VORSCHAUDataTable = CType(MyBase.Clone,DT_VORSCHAUDataTable) + Dim cln As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable = CType(MyBase.Clone,TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) cln.InitVars Return cln End Function @@ -5747,46 +5886,93 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New DT_VORSCHAUDataTable() + 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 NewDT_VORSCHAURow() As DT_VORSCHAURow - Return CType(Me.NewRow,DT_VORSCHAURow) + 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 DT_VORSCHAURow(builder) + Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(DT_VORSCHAURow) + 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.DT_VORSCHAURowChangedEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) + 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 @@ -5794,8 +5980,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) + 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 @@ -5803,8 +5989,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) + 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 @@ -5812,14 +5998,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) + 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 RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) + Public Sub RemoveTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Me.Rows.Remove(row) End Sub @@ -5846,7 +6032,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "DT_VORSCHAUDataTable" + attribute2.FixedValue = "TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -5895,26 +6081,16 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class TBAD_UsersDataTable - Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) - - Private columnSelect As Global.System.Data.DataColumn - - Private columnUsername As Global.System.Data.DataColumn - - Private columnPrename As Global.System.Data.DataColumn - - Private columnSurname As Global.System.Data.DataColumn - - Private columnEmail As Global.System.Data.DataColumn + Partial Public Class DT_VORSCHAUDataTable + Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) - Private columnID As Global.System.Data.DataColumn + Private columnVALUE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBAD_Users" + Me.TableName = "DT_VORSCHAU" Me.BeginInit Me.InitClass Me.EndInit @@ -5947,49 +6123,9 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSelect - End Get - End Property - - _ - Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUsername - End Get - End Property - - _ - Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPrename - End Get - End Property - - _ - Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSurname - End Get - End Property - - _ - Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEmail - End Get - End Property - - _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get - Return Me.columnID + Return Me.columnVALUE End Get End Property @@ -6004,44 +6140,44 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow + Public Default ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow Get - Return CType(Me.Rows(index),TBAD_UsersRow) + Return CType(Me.Rows(index),DT_VORSCHAURow) End Get End Property _ - Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler + Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler _ - Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler + Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler _ - Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler + Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler _ - Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler + Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler _ - Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) + Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow - Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) - Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} - rowTBAD_UsersRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBAD_UsersRow) - Return rowTBAD_UsersRow + Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow + Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow,DT_VORSCHAURow) + Dim columnValuesArray() As Object = New Object() {VALUE} + rowDT_VORSCHAURow.ItemArray = columnValuesArray + Me.Rows.Add(rowDT_VORSCHAURow) + Return rowDT_VORSCHAURow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) + Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone,DT_VORSCHAUDataTable) cln.InitVars Return cln End Function @@ -6049,65 +6185,46 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBAD_UsersDataTable() + Return New DT_VORSCHAUDataTable() End Function _ Friend Sub InitVars() - Me.columnSelect = MyBase.Columns("Select") - Me.columnUsername = MyBase.Columns("Username") - Me.columnPrename = MyBase.Columns("Prename") - Me.columnSurname = MyBase.Columns("Surname") - Me.columnEmail = MyBase.Columns("Email") - Me.columnID = MyBase.Columns("ID") + Me.columnVALUE = MyBase.Columns("VALUE") End Sub _ Private Sub InitClass() - Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") - Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") - MyBase.Columns.Add(Me.columnSelect) - Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUsername) - Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPrename) - Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSurname) - Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEmail) - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) End Sub _ - Public Function NewTBAD_UsersRow() As TBAD_UsersRow - Return CType(Me.NewRow,TBAD_UsersRow) + Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow + Return CType(Me.NewRow,DT_VORSCHAURow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBAD_UsersRow(builder) + Return New DT_VORSCHAURow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBAD_UsersRow) + Return GetType(DT_VORSCHAURow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + If (Not (Me.DT_VORSCHAURowChangedEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub @@ -6115,8 +6232,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub @@ -6124,8 +6241,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub @@ -6133,14 +6250,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub _ - Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) + Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) Me.Rows.Remove(row) End Sub @@ -6167,7 +6284,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBAD_UsersDataTable" + attribute2.FixedValue = "DT_VORSCHAUDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6216,8 +6333,8 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class TBWH_Users1DataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_Users1Row) + Partial Public Class TBAD_UsersDataTable + Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) Private columnSelect As Global.System.Data.DataColumn @@ -6235,7 +6352,7 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBWH_Users1" + Me.TableName = "TBAD_Users" Me.BeginInit Me.InitClass Me.EndInit @@ -6325,44 +6442,44 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users1Row + Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow Get - Return CType(Me.Rows(index),TBWH_Users1Row) + Return CType(Me.Rows(index),TBAD_UsersRow) End Get End Property _ - Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler + Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler _ - Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler + Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler _ - Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler + Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler _ - Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler + Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler _ - Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row) + Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_Users1Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users1Row - Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow,TBWH_Users1Row) + Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow + Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} - rowTBWH_Users1Row.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_Users1Row) - Return rowTBWH_Users1Row + rowTBAD_UsersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBAD_UsersRow) + Return rowTBAD_UsersRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone,TBWH_Users1DataTable) + Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) cln.InitVars Return cln End Function @@ -6370,7 +6487,7 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_Users1DataTable() + Return New TBAD_UsersDataTable() End Function _ - Public Function NewTBWH_Users1Row() As TBWH_Users1Row - Return CType(Me.NewRow,TBWH_Users1Row) + Public Function NewTBAD_UsersRow() As TBAD_UsersRow + Return CType(Me.NewRow,TBAD_UsersRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_Users1Row(builder) + Return New TBAD_UsersRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_Users1Row) + Return GetType(TBAD_UsersRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_Users1RowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowChanged(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub @@ -6436,8 +6553,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_Users1RowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowChanging(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub @@ -6445,8 +6562,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_Users1RowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowDeleted(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub @@ -6454,14 +6571,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_Users1RowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowDeleting(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row) + Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Remove(row) End Sub @@ -6488,7 +6605,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_Users1DataTable" + attribute2.FixedValue = "TBAD_UsersDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6537,8 +6654,8 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class TBWH_Users2DataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_Users2Row) + Partial Public Class TBWH_Users1DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_Users1Row) Private columnSelect As Global.System.Data.DataColumn @@ -6556,7 +6673,7 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBWH_Users2" + Me.TableName = "TBWH_Users1" Me.BeginInit Me.InitClass Me.EndInit @@ -6646,44 +6763,44 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users2Row + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users1Row Get - Return CType(Me.Rows(index),TBWH_Users2Row) + Return CType(Me.Rows(index),TBWH_Users1Row) End Get End Property _ - Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler + Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler _ - Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler + Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler _ - Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler + Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler _ - Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler + Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler _ - Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row) + Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_Users2Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users2Row - Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow,TBWH_Users2Row) + Public Overloads Function AddTBWH_Users1Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users1Row + Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow,TBWH_Users1Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} - rowTBWH_Users2Row.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_Users2Row) - Return rowTBWH_Users2Row + rowTBWH_Users1Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_Users1Row) + Return rowTBWH_Users1Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone,TBWH_Users2DataTable) + Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone,TBWH_Users1DataTable) cln.InitVars Return cln End Function @@ -6691,7 +6808,7 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_Users2DataTable() + Return New TBWH_Users1DataTable() End Function _ - Public Function NewTBWH_Users2Row() As TBWH_Users2Row - Return CType(Me.NewRow,TBWH_Users2Row) + Public Function NewTBWH_Users1Row() As TBWH_Users1Row + Return CType(Me.NewRow,TBWH_Users1Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_Users2Row(builder) + Return New TBWH_Users1Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_Users2Row) + Return GetType(TBWH_Users1Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_Users2RowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowChanged(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + If (Not (Me.TBWH_Users1RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_Users1RowChanged(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub @@ -6757,8 +6874,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_Users2RowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowChanging(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + If (Not (Me.TBWH_Users1RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_Users1RowChanging(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub @@ -6766,8 +6883,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_Users2RowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowDeleted(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + If (Not (Me.TBWH_Users1RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_Users1RowDeleted(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub @@ -6775,14 +6892,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_Users2RowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowDeleting(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + If (Not (Me.TBWH_Users1RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_Users1RowDeleting(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row) + Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Remove(row) End Sub @@ -6809,7 +6926,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_Users2DataTable" + attribute2.FixedValue = "TBWH_Users1DataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6854,51 +6971,372 @@ Partial Public Class DD_ECMAdmin End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBPMO_FORM_CONSTRUCTORRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBWH_Users2DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_Users2Row) - Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + Private columnSelect As Global.System.Data.DataColumn + + Private columnUsername As Global.System.Data.DataColumn + + Private columnPrename As Global.System.Data.DataColumn + + Private columnSurname As Global.System.Data.DataColumn + + Private columnEmail As Global.System.Data.DataColumn + + Private columnID As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBWH_Users2" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property GUID() As Integer + 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 SelectColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) + Return Me.columnSelect End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value - End Set End Property _ - Public Property FORM_TITLE() As String + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnUsername End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value - End Set End Property _ - Public Property SEQUENCE_MENU() As Integer + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) + Return Me.columnPrename + End Get + End Property + + _ + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSurname + End Get + End Property + + _ + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEmail + End Get + End Property + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + 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 TBWH_Users2Row + Get + Return CType(Me.Rows(index),TBWH_Users2Row) + End Get + End Property + + _ + Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler + + _ + Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler + + _ + Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler + + _ + Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_Users2Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users2Row + Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow,TBWH_Users2Row) + Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} + rowTBWH_Users2Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_Users2Row) + Return rowTBWH_Users2Row + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone,TBWH_Users2DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_Users2DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSelect = MyBase.Columns("Select") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + Me.columnEmail = MyBase.Columns("Email") + Me.columnID = MyBase.Columns("ID") + End Sub + + _ + Private Sub InitClass() + Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnSelect.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewTBWH_Users2Row() As TBWH_Users2Row + Return CType(Me.NewRow,TBWH_Users2Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_Users2Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_Users2Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_Users2RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_Users2RowChanged(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_Users2RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_Users2RowChanging(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_Users2RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_Users2RowDeleted(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_Users2RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_Users2RowDeleting(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row) + 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 = "TBWH_Users2DataTable" + 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 strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTORRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_MENU() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value @@ -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 ''' @@ -9325,56 +9773,244 @@ Partial Public Class DD_ECMAdmin _ - Public Property ADDED_WHEN() As Date + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.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_LOG_ESSENTIALS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property Selection() As Boolean + Get + Try + Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Selection in Tabelle TBPMO_LOG_ESSENTIALS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSelectionNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) + End Function + + _ + Public Sub SetSelectionNull() + Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) = Global.System.Convert.DBNull + 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_LOG_ESSENTIALS.ADDED_WHENColumn),Date) + 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 ADDED_WHEN in Tabelle TBPMO_LOG_ESSENTIALS ist DBNull.", e) + 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_LOG_ESSENTIALS.ADDED_WHENColumn) = value + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) = value End Set End Property _ - Public Property Selection() As Boolean + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn),Boolean) + 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 Selection in Tabelle TBPMO_LOG_ESSENTIALS ist DBNull.", e) + 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_LOG_ESSENTIALS.SelectionColumn) = value + 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_LOG_ESSENTIALS.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSelectionNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) End Function _ - Public Sub SetSelectionNull() - Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) = Global.System.Convert.DBNull + 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 @@ -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 ''' @@ -13906,19 +14578,195 @@ Namespace DD_ECMAdminTableAdapters 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 = "VWDD_LOGIN_USER_HISTORY" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("MODULE", "MODULE") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("CLIENT_ID", "CLIENT_ID") - tableMapping.ColumnMappings.Add("CLIENT_NAME", "CLIENT_NAME") - tableMapping.ColumnMappings.Add("LOGIN", "LOGIN") - tableMapping.ColumnMappings.Add("LOGOUT", "LOGOUT") - tableMapping.ColumnMappings.Add("VERSION_CLIENT", "VERSION_CLIENT") - tableMapping.ColumnMappings.Add("MACHINE_NAME", "MACHINE_NAME") + tableMapping.DataSetTable = "VWDD_LOGIN_USER_HISTORY" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("MODULE", "MODULE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("CLIENT_ID", "CLIENT_ID") + tableMapping.ColumnMappings.Add("CLIENT_NAME", "CLIENT_NAME") + tableMapping.ColumnMappings.Add("LOGIN", "LOGIN") + tableMapping.ColumnMappings.Add("LOGOUT", "LOGOUT") + tableMapping.ColumnMappings.Add("VERSION_CLIENT", "VERSION_CLIENT") + tableMapping.ColumnMappings.Add("MACHINE_NAME", "MACHINE_NAME") + Me._adapter.TableMappings.Add(tableMapping) + 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, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_N"& _ + "AME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDD_LOGIN_USE"& _ + "R_HISTORY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE = 'Record-Organizer')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY GUID DESC" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + 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() As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable = New DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter + 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_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" + tableMapping.ColumnMappings.Add("Name", "Name") + tableMapping.ColumnMappings.Add("ID", "ID") Me._adapter.TableMappings.Add(tableMapping) End Sub @@ -13935,9 +14783,10 @@ Namespace DD_ECMAdminTableAdapters 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, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_N"& _ - "AME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDD_LOGIN_USE"& _ - "R_HISTORY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE = 'Record-Organizer')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY GUID DESC" + Me._commandCollection(0).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _ + "INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _ + "D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -13945,7 +14794,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -13958,9 +14807,9 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable + Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable = New DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable() + Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -13975,7 +14824,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter + Partial Public Class TBPMO_LOG_ESSENTIALSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -14092,10 +14941,48 @@ Namespace DD_ECMAdminTableAdapters 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_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" - tableMapping.ColumnMappings.Add("Name", "Name") - tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.DataSetTable = "TBPMO_LOG_ESSENTIALS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("REFERENCE_KEY", "REFERENCE_KEY") + tableMapping.ColumnMappings.Add("REFERENCE_STRING", "REFERENCE_STRING") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("Selection", "Selection") 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_LOG_ESSENTIALS] WHERE (([GUID] = @Original_GUID))" + 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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_LOG_ESSENTIALS] ([REFERENCE_KEY], [REFERENCE_STRING], [COMMENT"& _ + "], [ADDED_WHO], [ADDED_WHEN]) VALUES (@REFERENCE_KEY, @REFERENCE_STRING, @COMMEN"& _ + "T, @ADDED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERE"& _ + "NCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBPMO_LOG_ESSENTI"& _ + "ALS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY GUID DESC" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_KEY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_LOG_ESSENTIALS] SET [REFERENCE_KEY] = @REFERENCE_KEY, [REFERENCE_ST"& _ + "RING] = @REFERENCE_STRING, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDE"& _ + "D_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT (BIT, 0"& _ + ") AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED"& _ + "_WHEN FROM TBPMO_LOG_ESSENTIALS WHERE (GUID = @GUID) ORDER BY GUID DESC" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_KEY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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("@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("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -14135,12 +15021,153 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable + Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable() + Dim dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable = New DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable) 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_LOG_ESSENTIALS") + 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) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + 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 REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(REFERENCE_KEY,Integer) + If (REFERENCE_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("REFERENCE_STRING") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(REFERENCE_STRING,String) + End If + If (COMMENT Is Nothing) Then + Throw New Global.System.ArgumentNullException("COMMENT") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(4).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 REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(REFERENCE_KEY,Integer) + If (REFERENCE_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("REFERENCE_STRING") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(REFERENCE_STRING,String) + End If + If (COMMENT Is Nothing) Then + Throw New Global.System.ArgumentNullException("COMMENT") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).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 REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer) As Integer + Return Me.Update(REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_GUID) + End Function End Class ''' @@ -14152,7 +15179,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_LOG_ESSENTIALSTableAdapter + Partial Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -14269,47 +15296,98 @@ Namespace DD_ECMAdminTableAdapters 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_LOG_ESSENTIALS" + tableMapping.DataSetTable = "TBPMO_DOCRESULT_DROPDOWN_ITEMS" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("REFERENCE_KEY", "REFERENCE_KEY") - tableMapping.ColumnMappings.Add("REFERENCE_STRING", "REFERENCE_STRING") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + 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("Selection", "Selection") + 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_LOG_ESSENTIALS] WHERE (([GUID] = @Original_GUID))" + 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_LOG_ESSENTIALS] ([REFERENCE_KEY], [REFERENCE_STRING], [COMMENT"& _ - "], [ADDED_WHO], [ADDED_WHEN]) VALUES (@REFERENCE_KEY, @REFERENCE_STRING, @COMMEN"& _ - "T, @ADDED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERE"& _ - "NCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBPMO_LOG_ESSENTI"& _ - "ALS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY GUID DESC" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_KEY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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_LOG_ESSENTIALS] SET [REFERENCE_KEY] = @REFERENCE_KEY, [REFERENCE_ST"& _ - "RING] = @REFERENCE_STRING, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDE"& _ - "D_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT (BIT, 0"& _ - ") AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED"& _ - "_WHEN FROM TBPMO_LOG_ESSENTIALS WHERE (GUID = @GUID) ORDER BY GUID DESC" + 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("@REFERENCE_KEY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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 @@ -14326,18 +15404,20 @@ Namespace DD_ECMAdminTableAdapters 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 CONVERT(BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING"& _ - ", COMMENT, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_LOG_ESSENTIALS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY"& _ - " GUID DESC" + 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_LOG_ESSENTIALSDataTable) As Integer + 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 @@ -14349,9 +15429,10 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable + Public Overloads Overridable Function GetData(ByVal CONFIG_ID As Integer) As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable = New DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable() + 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 @@ -14359,7 +15440,7 @@ Namespace DD_ECMAdminTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -14367,7 +15448,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_LOG_ESSENTIALS") + Return Me.Adapter.Update(dataSet, "TBPMO_DOCRESULT_DROPDOWN_ITEMS") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + 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 @@ -14409,27 +15529,39 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(REFERENCE_KEY,Integer) - If (REFERENCE_STRING Is Nothing) Then - Throw New Global.System.ArgumentNullException("REFERENCE_STRING") + 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(REFERENCE_STRING,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(VALUE,String) End If - If (COMMENT Is Nothing) Then - Throw New Global.System.ArgumentNullException("COMMENT") + 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(2).Value = CType(COMMENT,String) + 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(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + 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) _ @@ -14450,30 +15582,101 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(REFERENCE_KEY,Integer) - If (REFERENCE_STRING Is Nothing) Then - Throw New Global.System.ArgumentNullException("REFERENCE_STRING") + 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(REFERENCE_STRING,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VALUE,String) End If - If (COMMENT Is Nothing) Then - Throw New Global.System.ArgumentNullException("COMMENT") + 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(2).Value = CType(COMMENT,String) + 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(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) + 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 @@ -14493,8 +15696,27 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer) As Integer - Return Me.Update(REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_GUID) + 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 @@ -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,48 +15961,57 @@ 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)) + result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.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) + If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.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_SAP_FUBATableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + 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) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(updatedRows)) 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) + 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._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.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) + 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_LOG_ESSENTIALSTableAdapter.Update(updatedRows)) + 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 @@ -14779,43 +16033,51 @@ 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)) + result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.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 (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.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_SAP_FUBATableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + 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) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(addedRows)) 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 (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._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.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 (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_LOG_ESSENTIALSTableAdapter.Update(addedRows)) + 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 @@ -14829,43 +16091,51 @@ 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)) + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.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 (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.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._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.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._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(deletedRows)) 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_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_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + 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 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 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 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() + 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() - 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() + 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 - ' - resources.ApplyResources(SEQUENCELabel, "SEQUENCELabel") - SEQUENCELabel.Name = "SEQUENCELabel" - ' - 'SEQUENCETextBox + 'TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter ' - 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,6 +261,75 @@ True + + Fill + + + 0, 0 + + + False + + + True + + + 3, 14 + + + 43, 13 + + + 2 + + + Entität: + + + ENTITY_IDLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 0 + + + True + + + Microsoft Sans Serif, 9.75pt, style=Bold + + + 5, 351 + + + 177, 16 + + + 28 + + + Änderungen gespeichert + + + False + + + labelSuccess + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 1 + False @@ -298,10 +337,10 @@ True - 12, 202 + 3, 171 - 67, 13 + 68, 13 35 @@ -316,16 +355,40 @@ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 0 + 2 + + + 114, 194 + + + 68, 24 + + + 30 + + + Sichtbar + + + VISIBLECheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerControl1.Panel1 + + + 3 - 123, 199 + 114, 168 - 178, 20 + 178, 21 36 @@ -337,16 +400,37 @@ System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 1 + 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 - 123, 172 + 114, 141 178, 21 @@ -361,10 +445,40 @@ System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 2 + 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 @@ -373,10 +487,10 @@ False - 15, 229 + 6, 198 - 63, 17 + 62, 17 33 @@ -391,13 +505,34 @@ System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 3 + 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 - 223, 225 + 214, 194 78, 24 @@ -415,43 +550,61 @@ System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 4 + 10 - + + False + + True - - Microsoft Sans Serif, 9.75pt, style=Bold + + 3, 279 - - 12, 375 + + 79, 13 - - 177, 16 + + 18 - - 28 + + Geändert Wer: - - Änderungen gespeichert + + CHANGED_WHOLabel - - False + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - labelSuccess + + SplitContainerControl1.Panel1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 11 - - SplitContainer1.Panel2 + + 114, 250 - - 5 + + 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 @@ -460,7 +613,7 @@ True - 12, 70 + 3, 39 50, 13 @@ -478,10 +631,40 @@ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 6 + 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 @@ -490,7 +673,7 @@ en-US - 123, 67 + 114, 36 178, 21 @@ -505,10 +688,31 @@ System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 7 + 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 @@ -517,7 +721,7 @@ 17, 56 - 123, 42 + 114, 11 178, 21 @@ -532,61 +736,70 @@ System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 8 + 17 - - 123, 16 + + False + + + True - - 178, 20 + + 3, 227 - - 1 + + 67, 13 - - GUIDTextBox + + 14 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Erstellt Wer: - - SplitContainer1.Panel2 + + ADDED_WHOLabel - - 10 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + SplitContainerControl1.Panel1 + + + 18 + + False - + True - - 12, 45 + + 3, 144 - - 40, 13 + + 63, 13 - - 2 + + 12 - - Entität: + + Spaltentyp: - - ENTITY_IDLabel + + TYPE_IDLabel - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SplitContainer1.Panel2 + + SplitContainerControl1.Panel1 - - 11 + + 19 False @@ -595,16 +808,16 @@ True - 12, 97 + 3, 66 - 87, 13 + 71, 13 6 - COLUMN VIEW: + Name Intern: COLUMN_VIEWLabel @@ -613,118 +826,16 @@ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - SplitContainer1.Panel2 + SplitContainerControl1.Panel1 - 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 + 20 - 123, 146 + 114, 115 - 178, 20 + 178, 21 28 @@ -736,268 +847,229 @@ 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 + SplitContainerControl1.Panel1 - - 18 + + 21 - - False - - - True + + 114, 63 - - 12, 258 + + 178, 21 - - 78, 13 + + 26 - - 14 + + COLUMN_VIEWTextBox - - ADDED WHO: + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ADDED_WHOLabel + + SplitContainerControl1.Panel1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 22 - - SplitContainer1.Panel2 + + False + + + True - - 19 + + 3, 118 - - 123, 255 + + 75, 13 - - 178, 20 + + 10 - - 15 + + Spaltenbreite: - - ADDED_WHOTextBox + + WIDTHLabel - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SplitContainer1.Panel2 + + SplitContainerControl1.Panel1 - - 20 + + 23 - + False - + True - - 12, 284 + + 3, 92 - - 85, 13 + + 73, 13 - - 16 + + 8 - - ADDED WHEN: + + Spaltenname: - - ADDED_WHENLabel + + HEADER_CAPTIONLabel - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SplitContainer1.Panel2 + + SplitContainerControl1.Panel1 - - 21 + + 24 - - 123, 281 + + 114, 89 - - 178, 20 + + 178, 21 - - 17 + + 27 - - ADDED_WHENTextBox + + HEADER_CAPTIONTextBox - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SplitContainer1.Panel2 - - - 22 - - - False - - - True + + SplitContainerControl1.Panel1 - - 12, 310 + + 25 - - 93, 13 + + Panel1 - - 18 + + 17, 95 + + + Fill - - CHANGED WHO: + + False - - CHANGED_WHOLabel + + 0, 0 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - SplitContainer1.Panel2 + + 0 - - 23 + + True - - 123, 307 + + 1 - - 178, 20 + + True - - 19 + + 2 - - CHANGED_WHOTextBox + + True - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3 - - SplitContainer1.Panel2 + + True - - 24 + + 4 - - False - - + True - - 12, 336 + + 5 - - 100, 13 + + True - - 20 + + 6 - - CHANGED WHEN: + + True - - CHANGED_WHENLabel + + 7 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - SplitContainer1.Panel2 + + 8 - - 25 + + True - - 123, 333 + + 9 - - 178, 20 + + 521, 400 - - 21 + + 0 - - CHANGED_WHENTextBox + + GridControl1 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - SplitContainer1.Panel2 + + SplitContainerControl1.Panel2 - - 26 + + 0 - - 123, 225 + + Panel2 - - 68, 24 + + 864, 400 - - 30 + + 37 - - Sichtbar + + SplitContainerControl1 - - VISIBLECheckBox + + SplitContainerControl1 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + SplitContainer1.Panel2 - - 27 + + 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