diff --git a/app/DD-Record-Organiser/ClassWindreamDocGrid.vb b/app/DD-Record-Organiser/ClassWindreamDocGrid.vb index 43c4636..5c033e3 100644 --- a/app/DD-Record-Organiser/ClassWindreamDocGrid.vb +++ b/app/DD-Record-Organiser/ClassWindreamDocGrid.vb @@ -156,7 +156,7 @@ Public Class ClassWindreamDocGrid Dim ds As New DataSet() Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " & - "FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE) + "FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}' AND T1.CONFIG_COLUMNS = 1", CURRENT_ENTITY_ID, USER_LANGUAGE) Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True) ' Tabellen zum DataSet hinzufügen ds.Tables.Add(DT_RESULT) diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb index ddeba1e..d1ffb5e 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb @@ -39,10 +39,10 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable - Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable - Private tableUSER_RIGHTS As USER_RIGHTSDataTable + Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + Private tableDT_VORSCHAU As DT_VORSCHAUDataTable Private tableTBAD_Users As TBAD_UsersDataTable @@ -103,12 +103,12 @@ Partial Public Class DD_ECMAdmin If (Not (ds.Tables("TBPMO_SAP_FUBA")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_SAP_FUBADataTable(ds.Tables("TBPMO_SAP_FUBA"))) End If - If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")) Is Nothing) Then - MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG"))) - End If If (Not (ds.Tables("USER_RIGHTS")) Is Nothing) Then MyBase.Tables.Add(New USER_RIGHTSDataTable(ds.Tables("USER_RIGHTS"))) End If + If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG"))) + End If If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU"))) End If @@ -212,9 +212,9 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ - Public ReadOnly Property TBPMO_DOCSEARCH_RESULTLIST_CONFIG() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + Public ReadOnly Property USER_RIGHTS() As USER_RIGHTSDataTable Get - Return Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG + Return Me.tableUSER_RIGHTS End Get End Property @@ -222,9 +222,9 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ - Public ReadOnly Property USER_RIGHTS() As USER_RIGHTSDataTable + Public ReadOnly Property TBPMO_DOCSEARCH_RESULTLIST_CONFIG() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable Get - Return Me.tableUSER_RIGHTS + Return Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG End Get End Property @@ -356,12 +356,12 @@ Partial Public Class DD_ECMAdmin If (Not (ds.Tables("TBPMO_SAP_FUBA")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_SAP_FUBADataTable(ds.Tables("TBPMO_SAP_FUBA"))) End If - If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")) Is Nothing) Then - MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG"))) - End If If (Not (ds.Tables("USER_RIGHTS")) Is Nothing) Then MyBase.Tables.Add(New USER_RIGHTSDataTable(ds.Tables("USER_RIGHTS"))) End If + If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG"))) + End If If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU"))) End If @@ -448,18 +448,18 @@ Partial Public Class DD_ECMAdmin Me.tableTBPMO_SAP_FUBA.InitVars End If End If - Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(MyBase.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG"),TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) - If (initTable = true) Then - If (Not (Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG) Is Nothing) Then - Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.InitVars - End If - End If Me.tableUSER_RIGHTS = CType(MyBase.Tables("USER_RIGHTS"),USER_RIGHTSDataTable) If (initTable = true) Then If (Not (Me.tableUSER_RIGHTS) Is Nothing) Then Me.tableUSER_RIGHTS.InitVars End If End If + Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(MyBase.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG"),TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG) Is Nothing) Then + Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.InitVars + End If + End If Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"),DT_VORSCHAUDataTable) If (initTable = true) Then If (Not (Me.tableDT_VORSCHAU) Is Nothing) Then @@ -509,10 +509,10 @@ Partial Public Class DD_ECMAdmin MyBase.Tables.Add(Me.tableTBWH_USER_GROUPS) Me.tableTBPMO_SAP_FUBA = New TBPMO_SAP_FUBADataTable() MyBase.Tables.Add(Me.tableTBPMO_SAP_FUBA) - Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() - MyBase.Tables.Add(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG) Me.tableUSER_RIGHTS = New USER_RIGHTSDataTable() MyBase.Tables.Add(Me.tableUSER_RIGHTS) + Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() + MyBase.Tables.Add(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG) Me.tableDT_VORSCHAU = New DT_VORSCHAUDataTable() MyBase.Tables.Add(Me.tableDT_VORSCHAU) Me.tableTBAD_Users = New TBAD_UsersDataTable() @@ -569,13 +569,13 @@ Partial Public Class DD_ECMAdmin _ - Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG() As Boolean + Private Function ShouldSerializeUSER_RIGHTS() As Boolean Return false End Function _ - Private Function ShouldSerializeUSER_RIGHTS() As Boolean + Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG() As Boolean Return false End Function @@ -683,10 +683,10 @@ Partial Public Class DD_ECMAdmin Public Delegate Sub TBPMO_SAP_FUBARowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_SAP_FUBARowChangeEvent) _ - Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent) + Public Delegate Sub USER_RIGHTSRowChangeEventHandler(ByVal sender As Object, ByVal e As USER_RIGHTSRowChangeEvent) _ - Public Delegate Sub USER_RIGHTSRowChangeEventHandler(ByVal sender As Object, ByVal e As USER_RIGHTSRowChangeEvent) + Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent) _ Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent) @@ -3593,441 +3593,6 @@ Partial Public Class DD_ECMAdmin End Function End Class - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnENTITY_ID As Global.System.Data.DataColumn - - Private columnLANGUAGE As Global.System.Data.DataColumn - - Private columnCOLUMN_VIEW As Global.System.Data.DataColumn - - Private columnHEADER_CAPTION As Global.System.Data.DataColumn - - Private columnWIDTH As Global.System.Data.DataColumn - - Private columnTYPE_ID 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 - - Private columnVISIBLE As Global.System.Data.DataColumn - - Private columnEDITABLE As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnENTITY_ID - End Get - End Property - - _ - Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLANGUAGE - End Get - End Property - - _ - Public ReadOnly Property COLUMN_VIEWColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCOLUMN_VIEW - End Get - End Property - - _ - Public ReadOnly Property HEADER_CAPTIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHEADER_CAPTION - End Get - End Property - - _ - Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWIDTH - End Get - End Property - - _ - Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTYPE_ID - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property VISIBLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnVISIBLE - End Get - End Property - - _ - Public ReadOnly Property EDITABLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEDITABLE - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow - Get - Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - End Get - End Property - - _ - Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler - - _ - Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler - - _ - Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler - - _ - Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler - - _ - Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow - Dim rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow = CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - Dim columnValuesArray() As Object = New Object() {Nothing, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE} - rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - Return rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") - Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") - Me.columnCOLUMN_VIEW = MyBase.Columns("COLUMN_VIEW") - Me.columnHEADER_CAPTION = MyBase.Columns("HEADER_CAPTION") - Me.columnWIDTH = MyBase.Columns("WIDTH") - Me.columnTYPE_ID = MyBase.Columns("TYPE_ID") - 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") - Me.columnVISIBLE = MyBase.Columns("VISIBLE") - Me.columnEDITABLE = MyBase.Columns("EDITABLE") - 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.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnENTITY_ID) - Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLANGUAGE) - Me.columnCOLUMN_VIEW = New Global.System.Data.DataColumn("COLUMN_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOLUMN_VIEW) - Me.columnHEADER_CAPTION = New Global.System.Data.DataColumn("HEADER_CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHEADER_CAPTION) - Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWIDTH) - Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTYPE_ID) - 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.columnVISIBLE = New Global.System.Data.DataColumn("VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVISIBLE) - Me.columnEDITABLE = New Global.System.Data.DataColumn("EDITABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEDITABLE) - 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.columnENTITY_ID.AllowDBNull = false - Me.columnLANGUAGE.AllowDBNull = false - Me.columnLANGUAGE.MaxLength = 5 - Me.columnCOLUMN_VIEW.AllowDBNull = false - Me.columnCOLUMN_VIEW.MaxLength = 100 - Me.columnHEADER_CAPTION.AllowDBNull = false - Me.columnHEADER_CAPTION.MaxLength = 100 - Me.columnWIDTH.AllowDBNull = false - Me.columnTYPE_ID.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnVISIBLE.AllowDBNull = false - Me.columnEDITABLE.AllowDBNull = false - End Sub - - _ - Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow - Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As DD_ECMAdmin = New DD_ECMAdmin() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - ''' '''Represents the strongly named DataTable class. ''' @@ -4475,6 +4040,455 @@ Partial Public Class DD_ECMAdmin End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnENTITY_ID As Global.System.Data.DataColumn + + Private columnLANGUAGE As Global.System.Data.DataColumn + + Private columnCOLUMN_VIEW As Global.System.Data.DataColumn + + Private columnHEADER_CAPTION As Global.System.Data.DataColumn + + Private columnWIDTH As Global.System.Data.DataColumn + + Private columnTYPE_ID 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 + + Private columnVISIBLE As Global.System.Data.DataColumn + + Private columnEDITABLE As Global.System.Data.DataColumn + + Private columnCONFIG_COLUMNS As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_ID + End Get + End Property + + _ + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANGUAGE + End Get + End Property + + _ + Public ReadOnly Property COLUMN_VIEWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLUMN_VIEW + End Get + End Property + + _ + Public ReadOnly Property HEADER_CAPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHEADER_CAPTION + End Get + End Property + + _ + Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWIDTH + End Get + End Property + + _ + Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property VISIBLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVISIBLE + End Get + End Property + + _ + Public ReadOnly Property EDITABLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEDITABLE + End Get + End Property + + _ + Public ReadOnly Property CONFIG_COLUMNSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONFIG_COLUMNS + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Get + Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + End Get + End Property + + _ + Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler + + _ + Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Dim rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow = CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS} + rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Return rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") + Me.columnCOLUMN_VIEW = MyBase.Columns("COLUMN_VIEW") + Me.columnHEADER_CAPTION = MyBase.Columns("HEADER_CAPTION") + Me.columnWIDTH = MyBase.Columns("WIDTH") + Me.columnTYPE_ID = MyBase.Columns("TYPE_ID") + 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") + Me.columnVISIBLE = MyBase.Columns("VISIBLE") + Me.columnEDITABLE = MyBase.Columns("EDITABLE") + Me.columnCONFIG_COLUMNS = MyBase.Columns("CONFIG_COLUMNS") + 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.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_ID) + Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANGUAGE) + Me.columnCOLUMN_VIEW = New Global.System.Data.DataColumn("COLUMN_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_VIEW) + Me.columnHEADER_CAPTION = New Global.System.Data.DataColumn("HEADER_CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHEADER_CAPTION) + Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWIDTH) + Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE_ID) + 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.columnVISIBLE = New Global.System.Data.DataColumn("VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVISIBLE) + Me.columnEDITABLE = New Global.System.Data.DataColumn("EDITABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEDITABLE) + Me.columnCONFIG_COLUMNS = New Global.System.Data.DataColumn("CONFIG_COLUMNS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONFIG_COLUMNS) + 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.columnENTITY_ID.AllowDBNull = false + Me.columnLANGUAGE.AllowDBNull = false + Me.columnLANGUAGE.MaxLength = 5 + Me.columnCOLUMN_VIEW.AllowDBNull = false + Me.columnCOLUMN_VIEW.MaxLength = 100 + Me.columnHEADER_CAPTION.AllowDBNull = false + Me.columnHEADER_CAPTION.MaxLength = 100 + Me.columnWIDTH.AllowDBNull = false + Me.columnTYPE_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnVISIBLE.AllowDBNull = false + Me.columnEDITABLE.AllowDBNull = false + Me.columnCONFIG_COLUMNS.AllowDBNull = false + End Sub + + _ + Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DD_ECMAdmin = New DD_ECMAdmin() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents the strongly named DataTable class. ''' @@ -7307,216 +7321,6 @@ Partial Public Class DD_ECMAdmin End Sub End Class - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow - Inherits Global.System.Data.DataRow - - Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn) = value - End Set - End Property - - _ - Public Property ENTITY_ID() As Integer - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn) = value - End Set - End Property - - _ - Public Property LANGUAGE() As String - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn) = value - End Set - End Property - - _ - Public Property COLUMN_VIEW() As String - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value - End Set - End Property - - _ - Public Property HEADER_CAPTION() As String - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value - End Set - End Property - - _ - Public Property WIDTH() As Integer - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn) = value - End Set - End Property - - _ - Public Property TYPE_ID() As Byte - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.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_DOCSEARCH_RESULTLIST_CONFIG ist D"& _ - "BNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist "& _ - "DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist"& _ - " DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property VISIBLE() As Boolean - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn),Boolean) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn) = value - End Set - End Property - - _ - Public Property EDITABLE() As Boolean - Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn),Boolean) - End Get - Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn) = value - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - ''' '''Represents strongly named DataRow class. ''' @@ -7767,6 +7571,227 @@ Partial Public Class DD_ECMAdmin End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn) = value + End Set + End Property + + _ + Public Property LANGUAGE() As String + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn) = value + End Set + End Property + + _ + Public Property COLUMN_VIEW() As String + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value + End Set + End Property + + _ + Public Property HEADER_CAPTION() As String + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value + End Set + End Property + + _ + Public Property WIDTH() As Integer + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn) = value + End Set + End Property + + _ + Public Property TYPE_ID() As Byte + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.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_DOCSEARCH_RESULTLIST_CONFIG ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property VISIBLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn) = value + End Set + End Property + + _ + Public Property EDITABLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn) = value + End Set + End Property + + _ + Public Property CONFIG_COLUMNS() As Boolean + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -8596,42 +8621,6 @@ Partial Public Class DD_ECMAdmin End Property End Class - ''' - '''Row event argument class - ''' - _ - Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow - 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 ''' @@ -8668,6 +8657,42 @@ Partial Public Class DD_ECMAdmin End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + 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 ''' @@ -11216,414 +11241,6 @@ Namespace DD_ECMAdminTableAdapters End Function End Class - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter - 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" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") - tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") - tableMapping.ColumnMappings.Add("COLUMN_VIEW", "COLUMN_VIEW") - tableMapping.ColumnMappings.Add("HEADER_CAPTION", "HEADER_CAPTION") - tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") - tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("VISIBLE", "VISIBLE") - tableMapping.ColumnMappings.Add("EDITABLE", "EDITABLE") - 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_DOCSEARCH_RESULTLIST_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.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.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_DOCSEARCH_RESULTLIST_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (ENTITY_I"& _ - "D, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN,"& _ - " CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@ENTITY_ID,@LANGU"& _ - "AGE,@COLUMN_VIEW,@HEADER_CAPTION,@WIDTH,@TYPE_ID,@ADDED_WHO,@ADDED_WHEN,@CHANGED"& _ - "_WHO,@CHANGED_WHEN,@VISIBLE,@EDITABLE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, LANGUAGE, COLU"& _ - "MN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ - "NGED_WHEN, VISIBLE, EDITABLE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID "& _ - "= SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", 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, 50, 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, 8, 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, 50, 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, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", 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_DOCSEARCH_RESULTLIST_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ENTITY_ID = @E"& _ - "NTITY_ID, LANGUAGE = @LANGUAGE, COLUMN_VIEW = @COLUMN_VIEW, HEADER_CAPTION = @HE"& _ - "ADER_CAPTION, WIDTH = @WIDTH, TYPE_ID = @TYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADD"& _ - "ED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANG"& _ - "ED_WHEN = @CHANGED_WHEN, VISIBLE = @VISIBLE, EDITABLE = @EDITABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - "(GUID = @GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION"& _ - ", WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDI"& _ - "TABLE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", 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, 50, 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, 8, 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, 50, 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, 8, 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("@VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, 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.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARC"& _ - "H_RESULTLIST_CONFIG" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) 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.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) 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_DOCSEARCH_RESULTLIST_CONFIG") - 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 GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(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 ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, 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 VISIBLE As Boolean, ByVal EDITABLE As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) - End If - If (COLUMN_VIEW Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_VIEW") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) - End If - If (HEADER_CAPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("HEADER_CAPTION") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH,Integer) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(TYPE_ID,Byte) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Me.Adapter.InsertCommand.Parameters(10).Value = CType(VISIBLE,Boolean) - Me.Adapter.InsertCommand.Parameters(11).Value = CType(EDITABLE,Boolean) - 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 ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, 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 VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) - End If - If (COLUMN_VIEW Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_VIEW") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) - End If - If (HEADER_CAPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("HEADER_CAPTION") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TYPE_ID,Byte) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VISIBLE,Boolean) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EDITABLE,Boolean) - Me.Adapter.UpdateCommand.Parameters(12).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 - End Class - ''' '''Represents the connection and commands used to retrieve and save data. ''' @@ -11831,6 +11448,629 @@ Namespace DD_ECMAdminTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter + 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" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("COLUMN_VIEW", "COLUMN_VIEW") + tableMapping.ColumnMappings.Add("HEADER_CAPTION", "HEADER_CAPTION") + tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") + tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("VISIBLE", "VISIBLE") + tableMapping.ColumnMappings.Add("EDITABLE", "EDITABLE") + tableMapping.ColumnMappings.Add("CONFIG_COLUMNS", "CONFIG_COLUMNS") + 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_DOCSEARCH_RESULTLIST_CONFIG] WHERE (([GUID] = @Original_GUID) "& _ + "AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AN"& _ + "D ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEAD"& _ + "ER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) "& _ + "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_W"& _ + "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN"& _ + "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O"& _ + "riginal_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Or"& _ + "iginal_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS))" + 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_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", 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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", 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_DOCSEARCH_RESULTLIST_CONFIG] ([ENTITY_ID], [LANGUAGE], [COLUMN"& _ + "_VIEW], [HEADER_CAPTION], [WIDTH], [TYPE_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGE"& _ + "D_WHO], [CHANGED_WHEN], [VISIBLE], [EDITABLE], [CONFIG_COLUMNS]) VALUES (@ENTITY"& _ + "_ID, @LANGUAGE, @COLUMN_VIEW, @HEADER_CAPTION, @WIDTH, @TYPE_ID, @ADDED_WHO, @AD"& _ + "DED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @VISIBLE, @EDITABLE, @CONFIG_COLUMNS);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ + "ELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, AD"& _ + "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMN"& _ + "S FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", 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_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAG"& _ + "E] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION"& _ + ", [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN]"& _ + " = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [V"& _ + "ISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS W"& _ + "HERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LA"& _ + "NGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND (["& _ + "HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND "& _ + "([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@I"& _ + "sNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDE"& _ + "D_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_W"& _ + "HO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] "& _ + "IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Origina"& _ + "l_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Origin"& _ + "al_CONFIG_COLUMNS));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPT"& _ + "ION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, "& _ + "EDITABLE, CONFIG_COLUMNS FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @G"& _ + "UID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", 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("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", 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_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", 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("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARC"& _ + "H_RESULTLIST_CONFIG" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) 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.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) 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_DOCSEARCH_RESULTLIST_CONFIG") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_ENTITY_ID As Integer, ByVal Original_LANGUAGE As String, ByVal Original_COLUMN_VIEW As String, ByVal Original_HEADER_CAPTION As String, ByVal Original_WIDTH As Integer, ByVal Original_TYPE_ID As Byte, 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 Original_VISIBLE As Boolean, ByVal Original_EDITABLE As Boolean, ByVal Original_CONFIG_COLUMNS As Boolean) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ENTITY_ID,Integer) + If (Original_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LANGUAGE,String) + End If + If (Original_COLUMN_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_COLUMN_VIEW") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COLUMN_VIEW,String) + End If + If (Original_HEADER_CAPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HEADER_CAPTION") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HEADER_CAPTION,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_WIDTH,Integer) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TYPE_ID,Byte) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_VISIBLE,Boolean) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_EDITABLE,Boolean) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CONFIG_COLUMNS,Boolean) + 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 ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, 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 VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) + End If + If (COLUMN_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_VIEW") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) + End If + If (HEADER_CAPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("HEADER_CAPTION") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH,Integer) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TYPE_ID,Byte) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(10).Value = CType(VISIBLE,Boolean) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(EDITABLE,Boolean) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(CONFIG_COLUMNS,Boolean) + 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 ENTITY_ID As Integer, _ + ByVal LANGUAGE As String, _ + ByVal COLUMN_VIEW As String, _ + ByVal HEADER_CAPTION As String, _ + ByVal WIDTH As Integer, _ + ByVal TYPE_ID As Byte, _ + 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 VISIBLE As Boolean, _ + ByVal EDITABLE As Boolean, _ + ByVal CONFIG_COLUMNS As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal Original_ENTITY_ID As Integer, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_COLUMN_VIEW As String, _ + ByVal Original_HEADER_CAPTION As String, _ + ByVal Original_WIDTH As Integer, _ + ByVal Original_TYPE_ID As Byte, _ + 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 Original_VISIBLE As Boolean, _ + ByVal Original_EDITABLE As Boolean, _ + ByVal Original_CONFIG_COLUMNS As Boolean, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) + End If + If (COLUMN_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_VIEW") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) + End If + If (HEADER_CAPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("HEADER_CAPTION") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TYPE_ID,Byte) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VISIBLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EDITABLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CONFIG_COLUMNS,Boolean) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ENTITY_ID,Integer) + If (Original_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_LANGUAGE,String) + End If + If (Original_COLUMN_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_COLUMN_VIEW") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_COLUMN_VIEW,String) + End If + If (Original_HEADER_CAPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HEADER_CAPTION") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_HEADER_CAPTION,String) + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_WIDTH,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_TYPE_ID,Byte) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_VISIBLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_EDITABLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_CONFIG_COLUMNS,Boolean) + Me.Adapter.UpdateCommand.Parameters(30).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 ENTITY_ID As Integer, _ + ByVal LANGUAGE As String, _ + ByVal COLUMN_VIEW As String, _ + ByVal HEADER_CAPTION As String, _ + ByVal WIDTH As Integer, _ + ByVal TYPE_ID As Byte, _ + 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 VISIBLE As Boolean, _ + ByVal EDITABLE As Boolean, _ + ByVal CONFIG_COLUMNS As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal Original_ENTITY_ID As Integer, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_COLUMN_VIEW As String, _ + ByVal Original_HEADER_CAPTION As String, _ + ByVal Original_WIDTH As Integer, _ + ByVal Original_TYPE_ID As Byte, _ + 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 Original_VISIBLE As Boolean, _ + ByVal Original_EDITABLE As Boolean, _ + ByVal Original_CONFIG_COLUMNS As Boolean) As Integer + Return Me.Update(ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS, Original_GUID, Original_ENTITY_ID, Original_LANGUAGE, Original_COLUMN_VIEW, Original_HEADER_CAPTION, Original_WIDTH, Original_TYPE_ID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_VISIBLE, Original_EDITABLE, Original_CONFIG_COLUMNS, Original_GUID) + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsc b/app/DD-Record-Organiser/DD_ECMAdmin.xsc index fddaa91..abc4d05 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsc +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsc @@ -59,29 +59,5 @@ - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsd b/app/DD-Record-Organiser/DD_ECMAdmin.xsd index aa44fbb..3773820 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsd @@ -453,90 +453,6 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - - - - - - DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG -WHERE (GUID = @GUID) - - - - - - - - INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG - (ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE) -VALUES (@ENTITY_ID,@LANGUAGE,@COLUMN_VIEW,@HEADER_CAPTION,@WIDTH,@TYPE_ID,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@VISIBLE,@EDITABLE); -SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - - - - SELECT TBPMO_DOCSEARCH_RESULTLIST_CONFIG.* -FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG - - - - - - UPDATE TBPMO_DOCSEARCH_RESULTLIST_CONFIG -SET ENTITY_ID = @ENTITY_ID, LANGUAGE = @LANGUAGE, COLUMN_VIEW = @COLUMN_VIEW, HEADER_CAPTION = @HEADER_CAPTION, WIDTH = @WIDTH, TYPE_ID = @TYPE_ID, - ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, VISIBLE = @VISIBLE, EDITABLE = @EDITABLE -WHERE (GUID = @GUID); -SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -575,6 +491,120 @@ WHERE (T2.GUID = @ENTITY_ID) + + + + + + DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) 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)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS)) + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] ([ENTITY_ID], [LANGUAGE], [COLUMN_VIEW], [HEADER_CAPTION], [WIDTH], [TYPE_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [VISIBLE], [EDITABLE], [CONFIG_COLUMNS]) VALUES (@ENTITY_ID, @LANGUAGE, @COLUMN_VIEW, @HEADER_CAPTION, @WIDTH, @TYPE_ID, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @VISIBLE, @EDITABLE, @CONFIG_COLUMNS); +SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + SELECT TBPMO_DOCSEARCH_RESULTLIST_CONFIG.* +FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG + + + + + + UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAGE] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION, [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [VISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS WHERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) 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)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS)); +SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -583,7 +613,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -629,7 +659,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -750,7 +780,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -823,14 +853,14 @@ WHERE (T2.GUID = @ENTITY_ID) - + - + @@ -859,7 +889,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -871,7 +901,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -892,7 +922,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -906,7 +936,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -918,7 +948,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -930,7 +960,7 @@ WHERE (T2.GUID = @ENTITY_ID) - + @@ -1045,6 +1075,50 @@ WHERE (T2.GUID = @ENTITY_ID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1091,50 +1165,7 @@ WHERE (T2.GUID = @ENTITY_ID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -1168,18 +1199,18 @@ WHERE (T2.GUID = @ENTITY_ID) - - - - + + + + - + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xss b/app/DD-Record-Organiser/DD_ECMAdmin.xss index e99f465..3b992c8 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xss +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + @@ -13,12 +13,12 @@ - - + + diff --git a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb index 1c766a6..844a106 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb @@ -1528,6 +1528,7 @@ Partial Class frmConstructor_Main Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organiser/frmConstructor_Main.resx index dc06871..d6f4758 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.resx +++ b/app/DD-Record-Organiser/frmConstructor_Main.resx @@ -1083,7 +1083,7 @@ Cyan - 1356, 340 + 1356, 347 0 @@ -1107,7 +1107,7 @@ 0, 25 - 1356, 340 + 1356, 347 2 @@ -1352,7 +1352,7 @@ - 1356, 365 + 1356, 372 Positionen @@ -1414,7 +1414,7 @@ Aqua - 1356, 340 + 1356, 347 7 @@ -1516,7 +1516,7 @@ 1 - 1356, 365 + 1356, 372 Dateien @@ -1947,7 +1947,7 @@ 2 - 1356, 365 + 1356, 372 Wiedervorlage @@ -2058,7 +2058,7 @@ 5 - 1356, 340 + 1356, 347 90 @@ -2130,7 +2130,7 @@ 1 - 1356, 365 + 1356, 372 Vorgängervarianten diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index c3e9e51..f47bee4 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -3631,7 +3631,14 @@ Public Class frmConstructor_Main Dim DatePicker As DateEdit = sender Dim value As DateTime = DatePicker.EditValue - If Date.Parse(DatePicker.OldEditValue) = DatePicker.EditValue Then + Dim oldValue As Date + Dim validDate As Boolean = Date.TryParse(DatePicker.OldEditValue, oldValue) + + If Not validDate Then + oldValue = Date.MinValue + End If + + If oldValue = DatePicker.EditValue Then Exit Sub End If @@ -6491,4 +6498,32 @@ Public Class frmConstructor_Main End Try End Sub + + 'Private Sub GridViewDoc_Search_MasterRowExpanded(sender As Object, e As CustomMasterRowEventArgs) Handles GridViewDoc_Search.MasterRowExpanded + ' Dim focusedRow = GridViewDoc_Search.GetDataRow(e.RowHandle) + ' Dim docID As Integer = focusedRow(3) + + + ' Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],{2},T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " & + ' "FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE, docID) + ' Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True) + + + 'End Sub + + 'Private Sub GridViewDoc_Search_MasterRowGetChildList(sender As Object, e As MasterRowGetChildListEventArgs) Handles GridViewDoc_Search.MasterRowGetChildList + ' Try + ' Dim focusedRow = GridViewDoc_Search.GetDataRow(e.RowHandle) + ' Dim docID As Integer = focusedRow(3) + + ' Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],{2},T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " & + ' "FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE, docID) + ' Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True) + + ' e.ChildList = DT_DETAILS + ' Catch ex As Exception + ' ClassHelper.MSGBOX_Handler("ERROR", "", ex.Message, ex.StackTrace) + ' End Try + + 'End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmWD_Resultlist_Config.Designer.vb b/app/DD-Record-Organiser/frmWD_Resultlist_Config.Designer.vb index 683b975..9e65cc6 100644 --- a/app/DD-Record-Organiser/frmWD_Resultlist_Config.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_Resultlist_Config.Designer.vb @@ -53,6 +53,7 @@ Partial Class frmWD_Resultlist_Config Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.colVISIBLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.CONFIG_CLOUMNSCheckbox = New System.Windows.Forms.CheckBox() Me.EDITABLECheckBox = New System.Windows.Forms.CheckBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Label4 = New System.Windows.Forms.Label() @@ -60,7 +61,6 @@ Partial Class frmWD_Resultlist_Config Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.labelSuccess = New System.Windows.Forms.Label() - Me.TYPE_IDComboBox = New System.Windows.Forms.ComboBox() Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox() Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.TBWH_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -91,6 +91,7 @@ Partial Class frmWD_Resultlist_Config Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() Me.TBWH_ENTITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter() Me.TableAdapterManager1 = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TextBox1 = New System.Windows.Forms.TextBox() GUIDLabel = New System.Windows.Forms.Label() LANGUAGELabel1 = New System.Windows.Forms.Label() ENTITY_IDLabel = New System.Windows.Forms.Label() @@ -134,10 +135,11 @@ Partial Class frmWD_Resultlist_Config 'SplitContainer1.Panel2 ' resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2") + Me.SplitContainer1.Panel2.Controls.Add(Me.TextBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.CONFIG_CLOUMNSCheckbox) Me.SplitContainer1.Panel2.Controls.Add(Me.EDITABLECheckBox) Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) Me.SplitContainer1.Panel2.Controls.Add(Me.labelSuccess) - Me.SplitContainer1.Panel2.Controls.Add(Me.TYPE_IDComboBox) Me.SplitContainer1.Panel2.Controls.Add(LANGUAGELabel1) Me.SplitContainer1.Panel2.Controls.Add(Me.LANGUAGEComboBox) Me.SplitContainer1.Panel2.Controls.Add(Me.ComboBox1) @@ -266,6 +268,13 @@ Partial Class frmWD_Resultlist_Config Me.colNAME.Name = "colNAME" Me.colNAME.UnboundType = DevExpress.Data.UnboundColumnType.[String] ' + 'CONFIG_CLOUMNSCheckbox + ' + resources.ApplyResources(Me.CONFIG_CLOUMNSCheckbox, "CONFIG_CLOUMNSCheckbox") + Me.CONFIG_CLOUMNSCheckbox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "CONFIG_COLUMNS", True)) + Me.CONFIG_CLOUMNSCheckbox.Name = "CONFIG_CLOUMNSCheckbox" + Me.CONFIG_CLOUMNSCheckbox.UseVisualStyleBackColor = True + ' 'EDITABLECheckBox ' Me.EDITABLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "EDITABLE", True)) @@ -309,16 +318,6 @@ Partial Class frmWD_Resultlist_Config Me.labelSuccess.BackColor = System.Drawing.Color.Yellow Me.labelSuccess.Name = "labelSuccess" ' - 'TYPE_IDComboBox - ' - Me.TYPE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "TYPE_ID", True)) - Me.TYPE_IDComboBox.DataSource = Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource - Me.TYPE_IDComboBox.DisplayMember = "TYPE_ID" - Me.TYPE_IDComboBox.FormattingEnabled = True - resources.ApplyResources(Me.TYPE_IDComboBox, "TYPE_IDComboBox") - Me.TYPE_IDComboBox.Name = "TYPE_IDComboBox" - Me.TYPE_IDComboBox.ValueMember = "TYPE_ID" - ' 'LANGUAGELabel1 ' resources.ApplyResources(LANGUAGELabel1, "LANGUAGELabel1") @@ -571,6 +570,7 @@ Partial Class frmWD_Resultlist_Config Me.TableAdapterManager1.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager1.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager1.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_APPOINTMENTSTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing @@ -584,6 +584,7 @@ Partial Class frmWD_Resultlist_Config Me.TableAdapterManager1.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_RECORDTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_RIGHT_GROUPTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_RIGHT_USERTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing @@ -598,6 +599,12 @@ Partial Class frmWD_Resultlist_Config Me.TableAdapterManager1.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' + 'TextBox1 + ' + Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "TYPE_ID", True)) + resources.ApplyResources(Me.TextBox1, "TextBox1") + Me.TextBox1.Name = "TextBox1" + ' 'frmWD_Resultlist_Config ' resources.ApplyResources(Me, "$this") @@ -656,7 +663,6 @@ Partial Class frmWD_Resultlist_Config Friend WithEvents TableAdapterManager1 As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox Friend WithEvents LANGUAGEComboBox As System.Windows.Forms.ComboBox - Friend WithEvents TYPE_IDComboBox As System.Windows.Forms.ComboBox Friend WithEvents labelSuccess As System.Windows.Forms.Label Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox @@ -681,4 +687,6 @@ Partial Class frmWD_Resultlist_Config Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents EDITABLECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents CONFIG_CLOUMNSCheckbox As System.Windows.Forms.CheckBox + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox End Class diff --git a/app/DD-Record-Organiser/frmWD_Resultlist_Config.resx b/app/DD-Record-Organiser/frmWD_Resultlist_Config.resx index e4648bc..530ef9e 100644 --- a/app/DD-Record-Organiser/frmWD_Resultlist_Config.resx +++ b/app/DD-Record-Organiser/frmWD_Resultlist_Config.resx @@ -147,7 +147,7 @@ SplitContainer1.Panel2 - 7 + 8 @@ -285,6 +285,54 @@ True + + 123, 172 + + + 178, 20 + + + 34 + + + TextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 0 + + + True + + + 15, 203 + + + 63, 17 + + + 33 + + + Manuell + + + CONFIG_CLOUMNSCheckbox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 1 + 223, 199 @@ -307,8 +355,692 @@ SplitContainer1.Panel2 + 2 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + 0 + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 2 + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 3 + + + 307, 172 + + + 148, 98 + + + 31 + + + Spaltentypen + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 3 + + + True + + + Microsoft Sans Serif, 9.75pt, style=Bold + + + 12, 342 + + + 177, 16 + + + 28 + + + Änderungen gespeichert + + + False + + + labelSuccess + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 4 + + + False + + + True + + + 12, 70 + + + 50, 13 + + + 25 + + + Sprache: + + + LANGUAGELabel1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 5 + + + de-DE + + + en-US + + + 123, 67 + + + 178, 21 + + + 25 + + + LANGUAGEComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 6 + + + 160, 56 + + + 123, 42 + + + 178, 21 + + + 24 + + + ComboBox1 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 7 + + + 123, 16 + + + 178, 20 + + + 1 + + + GUIDTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 9 + + + False + + + True + + + 12, 45 + + + 40, 13 + + + 2 + + + Entität: + + + ENTITY_IDLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 10 + + + False + + + True + + + 12, 97 + + + 87, 13 + + + 6 + + + COLUMN VIEW: + + + COLUMN_VIEWLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 11 + + + 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 + + + 12 + + + 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 + + + 13 + + + 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 + + + 14 + + + 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 + + + 15 + + + 123, 146 + + + 178, 20 + + + 28 + + + WIDTHTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 16 + + + 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 + + + 17 + + + False + + + True + + + 12, 232 + + + 78, 13 + + + 14 + + + ADDED WHO: + + + ADDED_WHOLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 18 + + + 123, 229 + + + 178, 20 + + + 15 + + + ADDED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 19 + + + False + + + True + + + 12, 258 + + + 85, 13 + + + 16 + + + ADDED WHEN: + + + ADDED_WHENLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 20 + + + 123, 255 + + + 178, 20 + + + 17 + + + ADDED_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 21 + + + False + + + True + + + 12, 284 + + + 93, 13 + + + 18 + + + CHANGED WHO: + + + CHANGED_WHOLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 22 + + + 123, 281 + + + 178, 20 + + + 19 + + + CHANGED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 23 + + + False + + + True + + + 12, 310 + + + 100, 13 + + + 20 + + + CHANGED WHEN: + + + CHANGED_WHENLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 24 + + + 123, 307 + + + 178, 20 + + + 21 + + + CHANGED_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 25 + + + 123, 199 + + + 68, 24 + + + 30 + + + Sichtbar + + + VISIBLECheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel2 + + + 26 + + + SplitContainer1.Panel2 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1 + + + 1 + + + 864, 693 + + + 308 + + + 0 + + + SplitContainer1 + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + + + 17, 17 + True @@ -417,663 +1149,15 @@ 3 - - 307, 172 - - - 148, 98 - - - 31 - - - Spaltentypen - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 1 - - - True - - - Microsoft Sans Serif, 9.75pt, style=Bold - - - 12, 342 - - - 177, 16 - - - 28 - - - Änderungen gespeichert - - - False - - - labelSuccess - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 2 - - - 123, 172 - - - 178, 21 - - - 29 - - - TYPE_IDComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 3 - - - False - - - True - - - 12, 70 - - - 50, 13 - - - 25 - - - Sprache: - - - LANGUAGELabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 4 - - - de-DE - - - en-US - - - 123, 67 - - - 178, 21 - - - 25 - - - LANGUAGEComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 5 - 160, 56 17, 56 - - 123, 42 - - - 178, 21 - - - 24 - - - ComboBox1 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 6 - - - 123, 16 - - - 178, 20 - - - 1 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 8 - - - False + + 17, 56 - - True - - - 12, 45 - - - 40, 13 - - - 2 - - - Entität: - - - ENTITY_IDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 9 - - - False - - - True - - - 12, 97 - - - 87, 13 - - - 6 - - - COLUMN VIEW: - - - COLUMN_VIEWLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 10 - - - 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 - - - 11 - - - 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 - - - 12 - - - 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 - - - 13 - - - 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 - - - 14 - - - 123, 146 - - - 178, 20 - - - 28 - - - WIDTHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 15 - - - 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 - - - 16 - - - False - - - True - - - 12, 232 - - - 78, 13 - - - 14 - - - ADDED WHO: - - - ADDED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 17 - - - 123, 229 - - - 178, 20 - - - 15 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 18 - - - False - - - True - - - 12, 258 - - - 85, 13 - - - 16 - - - ADDED WHEN: - - - ADDED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 19 - - - 123, 255 - - - 178, 20 - - - 17 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 20 - - - False - - - True - - - 12, 284 - - - 93, 13 - - - 18 - - - CHANGED WHO: - - - CHANGED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 21 - - - 123, 281 - - - 178, 20 - - - 19 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 22 - - - False - - - True - - - 12, 310 - - - 100, 13 - - - 20 - - - CHANGED WHEN: - - - CHANGED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 23 - - - 123, 307 - - - 178, 20 - - - 21 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 24 - - - 123, 199 - - - 68, 24 - - - 30 - - - Sichtbar - - - VISIBLECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 25 - - - SplitContainer1.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1 - - - 1 - - - 864, 693 - - - 308 - - - 0 - - - SplitContainer1 - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 1 - 516, 17 diff --git a/app/DD-Record-Organiser/frmWD_Resultlist_Config.vb b/app/DD-Record-Organiser/frmWD_Resultlist_Config.vb index 5bf6323..b45dc28 100644 --- a/app/DD-Record-Organiser/frmWD_Resultlist_Config.vb +++ b/app/DD-Record-Organiser/frmWD_Resultlist_Config.vb @@ -74,22 +74,4 @@ End If End If End Sub - - Private Sub TYPE_IDComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPE_IDComboBox.SelectedIndexChanged - Dim cmb As ComboBox = sender - Dim val = cmb.SelectedValue - Console.WriteLine(val) - End Sub - - Private Sub TYPE_IDComboBox_TextUpdate(sender As Object, e As EventArgs) Handles TYPE_IDComboBox.TextUpdate - Dim cmb As ComboBox = sender - Dim val = cmb.SelectedValue - Console.WriteLine(val) - End Sub - - Private Sub TYPE_IDComboBox_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles TYPE_IDComboBox.SelectionChangeCommitted - Dim cmb As ComboBox = sender - Dim val = cmb.SelectedValue - Console.WriteLine(val) - End Sub End Class \ No newline at end of file