From c9f2c6c8727cf94b06439945377155b757fdc490 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Fri, 20 Jan 2017 15:51:32 +0100 Subject: [PATCH] jj 20.01.17 --- .../ClassWindreamDocGrid.vb | 2 +- .../DD_ECMAdmin.Designer.vb | 1632 ++++++++++------- app/DD-Record-Organiser/DD_ECMAdmin.xsc | 24 - app/DD-Record-Organiser/DD_ECMAdmin.xsd | 287 +-- app/DD-Record-Organiser/DD_ECMAdmin.xss | 6 +- .../frmConstructor_Main.Designer.vb | 1 + .../frmConstructor_Main.resx | 16 +- .../frmConstructor_Main.vb | 37 +- .../frmWD_Resultlist_Config.Designer.vb | 34 +- .../frmWD_Resultlist_Config.resx | 302 +-- .../frmWD_Resultlist_Config.vb | 18 - 11 files changed, 1358 insertions(+), 1001 deletions(-) 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) @@ -3598,40 +3598,42 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Partial Public Class USER_RIGHTSDataTable + Inherits Global.System.Data.TypedTableBase(Of USER_RIGHTSRow) Private columnGUID As Global.System.Data.DataColumn - Private columnENTITY_ID As Global.System.Data.DataColumn + Private columnFORM_TITLE As Global.System.Data.DataColumn - Private columnLANGUAGE As Global.System.Data.DataColumn + Private columnUSERNAME As Global.System.Data.DataColumn - Private columnCOLUMN_VIEW As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnHEADER_CAPTION As Global.System.Data.DataColumn + Private columnPRENAME As Global.System.Data.DataColumn - Private columnWIDTH As Global.System.Data.DataColumn + Private columnEDIT_REC As Global.System.Data.DataColumn - Private columnTYPE_ID As Global.System.Data.DataColumn + Private columnADD_REC As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnDELETE_REC As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnADD_DOC As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnREAD_ONLY_DOC As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnDELETE_DOC As Global.System.Data.DataColumn - Private columnVISIBLE As Global.System.Data.DataColumn + Private columnFILES_VISIBLE As Global.System.Data.DataColumn - Private columnEDITABLE As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG" + Me.TableName = "USER_RIGHTS" Me.BeginInit Me.InitClass Me.EndInit @@ -3672,97 +3674,105 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnENTITY_ID + Return Me.columnFORM_TITLE End Get End Property _ - Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnLANGUAGE + Return Me.columnUSERNAME End Get End Property _ - Public ReadOnly Property COLUMN_VIEWColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOLUMN_VIEW + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property HEADER_CAPTIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnHEADER_CAPTION + Return Me.columnPRENAME End Get End Property _ - Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn Get - Return Me.columnWIDTH + Return Me.columnEDIT_REC End Get End Property _ - Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn Get - Return Me.columnTYPE_ID + Return Me.columnADD_REC End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnDELETE_REC End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnADD_DOC End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property READ_ONLY_DOCColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnREAD_ONLY_DOC End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnDELETE_DOC End Get End Property _ - Public ReadOnly Property VISIBLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FILES_VISIBLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnVISIBLE + Return Me.columnFILES_VISIBLE End Get End Property _ - Public ReadOnly Property EDITABLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnEDITABLE + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN End Get End Property @@ -3777,50 +3787,50 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Public Default ReadOnly Property Item(ByVal index As Integer) As USER_RIGHTSRow Get - Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Return CType(Me.Rows(index),USER_RIGHTSRow) End Get End Property _ - Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler + Public Event USER_RIGHTSRowChanging As USER_RIGHTSRowChangeEventHandler _ - Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler + Public Event USER_RIGHTSRowChanged As USER_RIGHTSRowChangeEventHandler _ - Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler + Public Event USER_RIGHTSRowDeleting As USER_RIGHTSRowChangeEventHandler _ - Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler + Public Event USER_RIGHTSRowDeleted As USER_RIGHTSRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Public Overloads Sub AddUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow) 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 + Public Overloads Function AddUSER_RIGHTSRow(ByVal FORM_TITLE As String, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal READ_ONLY_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal FILES_VISIBLE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As USER_RIGHTSRow + Dim rowUSER_RIGHTSRow As USER_RIGHTSRow = CType(Me.NewRow,USER_RIGHTSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, USERNAME, NAME, PRENAME, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN} + rowUSER_RIGHTSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowUSER_RIGHTSRow) + Return rowUSER_RIGHTSRow 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) + Public Function FindByGUID(ByVal GUID As Integer) As USER_RIGHTSRow + Return CType(Me.Rows.Find(New Object() {GUID}),USER_RIGHTSRow) 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) + Dim cln As USER_RIGHTSDataTable = CType(MyBase.Clone,USER_RIGHTSDataTable) cln.InitVars Return cln End Function @@ -3828,25 +3838,26 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() + Return New USER_RIGHTSDataTable() 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.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnEDIT_REC = MyBase.Columns("EDIT_REC") + Me.columnADD_REC = MyBase.Columns("ADD_REC") + Me.columnDELETE_REC = MyBase.Columns("DELETE_REC") + Me.columnADD_DOC = MyBase.Columns("ADD_DOC") + Me.columnREAD_ONLY_DOC = MyBase.Columns("READ_ONLY_DOC") + Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC") + Me.columnFILES_VISIBLE = MyBase.Columns("FILES_VISIBLE") 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 _ - 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) + Me.columnFORM_TITLE.ReadOnly = true + Me.columnFORM_TITLE.MaxLength = 100 + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnPRENAME.MaxLength = 50 + Me.columnEDIT_REC.AllowDBNull = false + Me.columnADD_REC.AllowDBNull = false + Me.columnDELETE_REC.AllowDBNull = false + Me.columnADD_DOC.AllowDBNull = false + Me.columnREAD_ONLY_DOC.AllowDBNull = false + Me.columnDELETE_DOC.AllowDBNull = false + Me.columnFILES_VISIBLE.AllowDBNull = false + End Sub + + _ + Public Function NewUSER_RIGHTSRow() As USER_RIGHTSRow + Return CType(Me.NewRow,USER_RIGHTSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New USER_RIGHTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Return GetType(USER_RIGHTSRow) 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)) + If (Not (Me.USER_RIGHTSRowChangedEvent) Is Nothing) Then + RaiseEvent USER_RIGHTSRowChanged(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) End If End Sub @@ -3932,8 +3944,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.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)) + If (Not (Me.USER_RIGHTSRowChangingEvent) Is Nothing) Then + RaiseEvent USER_RIGHTSRowChanging(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) End If End Sub @@ -3941,8 +3953,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.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)) + If (Not (Me.USER_RIGHTSRowDeletedEvent) Is Nothing) Then + RaiseEvent USER_RIGHTSRowDeleted(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) End If End Sub @@ -3950,14 +3962,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.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)) + If (Not (Me.USER_RIGHTSRowDeletingEvent) Is Nothing) Then + RaiseEvent USER_RIGHTSRowDeleting(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) + Public Sub RemoveUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow) Me.Rows.Remove(row) End Sub @@ -3984,7 +3996,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable" + attribute2.FixedValue = "USER_RIGHTSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -4033,42 +4045,42 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class USER_RIGHTSDataTable - Inherits Global.System.Data.TypedTableBase(Of USER_RIGHTSRow) + 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 columnFORM_TITLE As Global.System.Data.DataColumn + Private columnENTITY_ID As Global.System.Data.DataColumn - Private columnUSERNAME As Global.System.Data.DataColumn + Private columnLANGUAGE As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnCOLUMN_VIEW As Global.System.Data.DataColumn - Private columnPRENAME As Global.System.Data.DataColumn + Private columnHEADER_CAPTION As Global.System.Data.DataColumn - Private columnEDIT_REC As Global.System.Data.DataColumn + Private columnWIDTH As Global.System.Data.DataColumn - Private columnADD_REC As Global.System.Data.DataColumn + Private columnTYPE_ID As Global.System.Data.DataColumn - Private columnDELETE_REC As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn - Private columnADD_DOC As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnREAD_ONLY_DOC As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn - Private columnDELETE_DOC As Global.System.Data.DataColumn + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnFILES_VISIBLE As Global.System.Data.DataColumn + Private columnVISIBLE As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnEDITABLE As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnCONFIG_COLUMNS As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "USER_RIGHTS" + Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG" Me.BeginInit Me.InitClass Me.EndInit @@ -4109,105 +4121,105 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnFORM_TITLE + Return Me.columnENTITY_ID End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnLANGUAGE End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COLUMN_VIEWColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnCOLUMN_VIEW End Get End Property _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property HEADER_CAPTIONColumn() As Global.System.Data.DataColumn Get - Return Me.columnPRENAME + Return Me.columnHEADER_CAPTION End Get End Property _ - Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn Get - Return Me.columnEDIT_REC + Return Me.columnWIDTH End Get End Property _ - Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnADD_REC + Return Me.columnTYPE_ID End Get End Property _ - Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnDELETE_REC + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnADD_DOC + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property READ_ONLY_DOCColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnREAD_ONLY_DOC + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnDELETE_DOC + Return Me.columnCHANGED_WHEN End Get End Property _ - Public ReadOnly Property FILES_VISIBLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VISIBLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnFILES_VISIBLE + Return Me.columnVISIBLE End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EDITABLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnEDITABLE End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONFIG_COLUMNSColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnCONFIG_COLUMNS End Get End Property @@ -4222,50 +4234,50 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As USER_RIGHTSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Get - Return CType(Me.Rows(index),USER_RIGHTSRow) + Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Get End Property _ - Public Event USER_RIGHTSRowChanging As USER_RIGHTSRowChangeEventHandler + Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ - Public Event USER_RIGHTSRowChanged As USER_RIGHTSRowChangeEventHandler + Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ - Public Event USER_RIGHTSRowDeleting As USER_RIGHTSRowChangeEventHandler + Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ - Public Event USER_RIGHTSRowDeleted As USER_RIGHTSRowChangeEventHandler + Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ - Public Overloads Sub AddUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow) + Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddUSER_RIGHTSRow(ByVal FORM_TITLE As String, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal READ_ONLY_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal FILES_VISIBLE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As USER_RIGHTSRow - Dim rowUSER_RIGHTSRow As USER_RIGHTSRow = CType(Me.NewRow,USER_RIGHTSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, USERNAME, NAME, PRENAME, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN} - rowUSER_RIGHTSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowUSER_RIGHTSRow) - Return rowUSER_RIGHTSRow + 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 USER_RIGHTSRow - Return CType(Me.Rows.Find(New Object() {GUID}),USER_RIGHTSRow) + 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 USER_RIGHTSDataTable = CType(MyBase.Clone,USER_RIGHTSDataTable) + Dim cln As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) cln.InitVars Return cln End Function @@ -4273,26 +4285,26 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New USER_RIGHTSDataTable() + Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnPRENAME = MyBase.Columns("PRENAME") - Me.columnEDIT_REC = MyBase.Columns("EDIT_REC") - Me.columnADD_REC = MyBase.Columns("ADD_REC") - Me.columnDELETE_REC = MyBase.Columns("DELETE_REC") - Me.columnADD_DOC = MyBase.Columns("ADD_DOC") - Me.columnREAD_ONLY_DOC = MyBase.Columns("READ_ONLY_DOC") - Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC") - Me.columnFILES_VISIBLE = MyBase.Columns("FILES_VISIBLE") + 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 _ - Public Function NewUSER_RIGHTSRow() As USER_RIGHTSRow - Return CType(Me.NewRow,USER_RIGHTSRow) + 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 USER_RIGHTSRow(builder) + Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(USER_RIGHTSRow) + 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.USER_RIGHTSRowChangedEvent) Is Nothing) Then - RaiseEvent USER_RIGHTSRowChanged(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) + 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 @@ -4379,8 +4393,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.USER_RIGHTSRowChangingEvent) Is Nothing) Then - RaiseEvent USER_RIGHTSRowChanging(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) + 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 @@ -4388,8 +4402,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.USER_RIGHTSRowDeletedEvent) Is Nothing) Then - RaiseEvent USER_RIGHTSRowDeleted(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) + 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 @@ -4397,14 +4411,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.USER_RIGHTSRowDeletingEvent) Is Nothing) Then - RaiseEvent USER_RIGHTSRowDeleting(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) + 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 RemoveUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow) + Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Me.Rows.Remove(row) End Sub @@ -4431,7 +4445,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "USER_RIGHTSDataTable" + attribute2.FixedValue = "TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -7310,384 +7324,385 @@ Partial Public Class DD_ECMAdmin ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Partial Public Class USER_RIGHTSRow Inherits Global.System.Data.DataRow - Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + Private tableUSER_RIGHTS As USER_RIGHTSDataTable _ 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) + Me.tableUSER_RIGHTS = CType(Me.Table,USER_RIGHTSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer) + Return CType(Me(Me.tableUSER_RIGHTS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn) = value + Me(Me.tableUSER_RIGHTS.GUIDColumn) = value End Set End Property _ - Public Property ENTITY_ID() As Integer + Public Property FORM_TITLE() As String Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer) + Try + Return CType(Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn) = value + Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = value End Set End Property _ - Public Property LANGUAGE() As String + Public Property USERNAME() As String Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String) + Return CType(Me(Me.tableUSER_RIGHTS.USERNAMEColumn),String) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn) = value + Me(Me.tableUSER_RIGHTS.USERNAMEColumn) = value End Set End Property _ - Public Property COLUMN_VIEW() As String + Public Property NAME() As String Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String) + Try + Return CType(Me(Me.tableUSER_RIGHTS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value + Me(Me.tableUSER_RIGHTS.NAMEColumn) = value End Set End Property _ - Public Property HEADER_CAPTION() As String + Public Property PRENAME() As String Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String) + Try + Return CType(Me(Me.tableUSER_RIGHTS.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value + Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = value End Set End Property _ - Public Property WIDTH() As Integer + Public Property EDIT_REC() As Boolean Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer) + Return CType(Me(Me.tableUSER_RIGHTS.EDIT_RECColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn) = value + Me(Me.tableUSER_RIGHTS.EDIT_RECColumn) = value End Set End Property _ - Public Property TYPE_ID() As Byte + Public Property ADD_REC() As Boolean Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte) + Return CType(Me(Me.tableUSER_RIGHTS.ADD_RECColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn) = value + Me(Me.tableUSER_RIGHTS.ADD_RECColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property DELETE_REC() As Boolean Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String) + Return CType(Me(Me.tableUSER_RIGHTS.DELETE_RECColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn) = value + Me(Me.tableUSER_RIGHTS.DELETE_RECColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property ADD_DOC() As Boolean 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 + Return CType(Me(Me.tableUSER_RIGHTS.ADD_DOCColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = value + Me(Me.tableUSER_RIGHTS.ADD_DOCColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property READ_ONLY_DOC() As Boolean 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 + Return CType(Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value + Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property DELETE_DOC() As Boolean 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 + Return CType(Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value + Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn) = value End Set End Property _ - Public Property VISIBLE() As Boolean + Public Property FILES_VISIBLE() As Boolean Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn),Boolean) + Return CType(Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn) = value + Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn) = value End Set End Property _ - Public Property EDITABLE() As Boolean + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn),Boolean) + Try + Return CType(Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn) = value + Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = value End Set End Property _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsFORM_TITLENull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.FORM_TITLEColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetFORM_TITLENull() + Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.NAMEColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableUSER_RIGHTS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class USER_RIGHTSRow + Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Inherits Global.System.Data.DataRow - Private tableUSER_RIGHTS As USER_RIGHTSDataTable + Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableUSER_RIGHTS = CType(Me.Table,USER_RIGHTSDataTable) + Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableUSER_RIGHTS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableUSER_RIGHTS.GUIDColumn) = value - End Set - End Property - - _ - Public Property FORM_TITLE() As String - Get - Try - Return CType(Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle USER_RIGHTS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Return CType(Me(Me.tableUSER_RIGHTS.USERNAMEColumn),String) - End Get - Set - Me(Me.tableUSER_RIGHTS.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableUSER_RIGHTS.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle USER_RIGHTS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer) End Get Set - Me(Me.tableUSER_RIGHTS.NAMEColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn) = value End Set End Property _ - Public Property PRENAME() As String + Public Property ENTITY_ID() As Integer Get - Try - Return CType(Me(Me.tableUSER_RIGHTS.PRENAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle USER_RIGHTS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer) End Get Set - Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn) = value End Set End Property _ - Public Property EDIT_REC() As Boolean + Public Property LANGUAGE() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.EDIT_RECColumn),Boolean) + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.EDIT_RECColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn) = value End Set End Property _ - Public Property ADD_REC() As Boolean + Public Property COLUMN_VIEW() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.ADD_RECColumn),Boolean) + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.ADD_RECColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value End Set End Property _ - Public Property DELETE_REC() As Boolean + Public Property HEADER_CAPTION() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.DELETE_RECColumn),Boolean) + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.DELETE_RECColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value End Set End Property _ - Public Property ADD_DOC() As Boolean + Public Property WIDTH() As Integer Get - Return CType(Me(Me.tableUSER_RIGHTS.ADD_DOCColumn),Boolean) + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer) End Get Set - Me(Me.tableUSER_RIGHTS.ADD_DOCColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn) = value End Set End Property _ - Public Property READ_ONLY_DOC() As Boolean + Public Property TYPE_ID() As Byte Get - Return CType(Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn),Boolean) + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte) End Get Set - Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn) = value End Set End Property _ - Public Property DELETE_DOC() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn),Boolean) + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn) = value End Set End Property _ - Public Property FILES_VISIBLE() As Boolean + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn),Boolean) + 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.tableUSER_RIGHTS.FILES_VISIBLEColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn),Date) + 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 ADDED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) + 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.tableUSER_RIGHTS.ADDED_WHENColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value End Set End Property @@ -7696,74 +7711,84 @@ Partial Public Class DD_ECMAdmin Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn),Date) + 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 USER_RIGHTS ist DBNull.", e) + 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.tableUSER_RIGHTS.CHANGED_WHENColumn) = value + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value End Set End Property _ - Public Function IsFORM_TITLENull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.FORM_TITLEColumn) - End Function - - _ - Public Sub SetFORM_TITLENull() - Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.NAMEColumn) - End Function + 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 Sub SetNAMENull() - Me(Me.tableUSER_RIGHTS.NAMEColumn) = Global.System.Convert.DBNull - End Sub + 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 IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.PRENAMEColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) End Function _ - Public Sub SetPRENAMENull() - Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.ADDED_WHENColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = Global.System.Convert.DBNull + 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.tableUSER_RIGHTS.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class @@ -8600,16 +8625,16 @@ Partial Public Class DD_ECMAdmin '''Row event argument class ''' _ - Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent + Public Class USER_RIGHTSRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Private eventRow As USER_RIGHTSRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As USER_RIGHTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -8617,7 +8642,7 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Public ReadOnly Property Row() As USER_RIGHTSRow Get Return Me.eventRow End Get @@ -8636,16 +8661,16 @@ Partial Public Class DD_ECMAdmin '''Row event argument class ''' _ - Public Class USER_RIGHTSRowChangeEvent + Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As USER_RIGHTSRow + Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As USER_RIGHTSRow, ByVal action 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 @@ -8653,7 +8678,7 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property Row() As USER_RIGHTSRow + Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Get Return Me.eventRow End Get @@ -11216,6 +11241,213 @@ Namespace DD_ECMAdminTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class USER_RIGHTSTableAdapter + 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 = "USER_RIGHTS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") + tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") + tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") + tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") + tableMapping.ColumnMappings.Add("READ_ONLY_DOC", "READ_ONLY_DOC") + tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") + tableMapping.ColumnMappings.Add("FILES_VISIBLE", "FILES_VISIBLE") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + 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 T.GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CO"& _ + "NVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, "& _ + "T.EDIT_REC, T.ADD_REC, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T.DELETE_REC, T.ADD_DOC, T.REA"& _ + "D_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_RIGHT_USER AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS"& _ + " T1 ON T.USER_ID = T1.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM AS T2"& _ + " ON T.ENTITY_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW A"& _ + "S T3 ON T2.GUID = T3.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.GUID = @ENTITY_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.USER_RIGHTSDataTable, ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As DD_ECMAdmin.USER_RIGHTSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + Dim dataTable As DD_ECMAdmin.USER_RIGHTSDataTable = New DD_ECMAdmin.USER_RIGHTSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + ''' '''Represents the connection and commands used to retrieve and save data. ''' @@ -11356,59 +11588,114 @@ Namespace DD_ECMAdminTableAdapters 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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + 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("@GUID", Global.System.Data.SqlDbType.Int, 4, 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_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"&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.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, 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.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"&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.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, 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, "", "", "")) + 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 _ - Public Overloads Overridable Function Delete(ByVal GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(GUID,Integer) + 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 @@ -11506,7 +11840,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - 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 + 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") @@ -11547,6 +11881,7 @@ Namespace DD_ECMAdminTableAdapters 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 @@ -11566,7 +11901,35 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal 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 + 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") @@ -11607,7 +11970,56 @@ Namespace DD_ECMAdminTableAdapters 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) + 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 @@ -11622,212 +12034,40 @@ Namespace DD_ECMAdminTableAdapters End If End Try End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class USER_RIGHTSTableAdapter - 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 = "USER_RIGHTS" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") - tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") - tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") - tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") - tableMapping.ColumnMappings.Add("READ_ONLY_DOC", "READ_ONLY_DOC") - tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") - tableMapping.ColumnMappings.Add("FILES_VISIBLE", "FILES_VISIBLE") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - 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 T.GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CO"& _ - "NVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, "& _ - "T.EDIT_REC, T.ADD_REC, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T.DELETE_REC, T.ADD_DOC, T.REA"& _ - "D_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_RIGHT_USER AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS"& _ - " T1 ON T.USER_ID = T1.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM AS T2"& _ - " ON T.ENTITY_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW A"& _ - "S T3 ON T2.GUID = T3.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.GUID = @ENTITY_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.USER_RIGHTSDataTable, ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) - End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function _ - Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As DD_ECMAdmin.USER_RIGHTSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) - End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) - Dim dataTable As DD_ECMAdmin.USER_RIGHTSDataTable = New DD_ECMAdmin.USER_RIGHTSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + 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 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,37 +453,89 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C + + + + + + SELECT T.GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, T.EDIT_REC, T.ADD_REC, + T.DELETE_REC, T.ADD_DOC, T.READ_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN +FROM TBPMO_RIGHT_USER AS T INNER JOIN + TBDD_USER AS T1 ON T.USER_ID = T1.GUID INNER JOIN + TBPMO_FORM AS T2 ON T.ENTITY_ID = T2.GUID INNER JOIN + TBPMO_FORM_VIEW AS T3 ON T2.GUID = T3.FORM_ID +WHERE (T2.GUID = @ENTITY_ID) + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG -WHERE (GUID = @GUID) + + 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) -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()) + + 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()) - - - - - - - - - - - - + + + + + + + + + + + + + @@ -495,26 +547,41 @@ 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) + + 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) - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -534,44 +601,7 @@ SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, A - - - - - - - - - SELECT T.GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, T.EDIT_REC, T.ADD_REC, - T.DELETE_REC, T.ADD_DOC, T.READ_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN -FROM TBPMO_RIGHT_USER AS T INNER JOIN - TBDD_USER AS T1 ON T.USER_ID = T1.GUID INNER JOIN - TBPMO_FORM AS T2 ON T.ENTITY_ID = T2.GUID INNER JOIN - TBPMO_FORM_VIEW AS T3 ON T2.GUID = T3.FORM_ID -WHERE (T2.GUID = @ENTITY_ID) - - - - - - - - - - - - - - - - - - - - - - - + @@ -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,96 +1075,97 @@ 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,22 +355,7 @@ SplitContainer1.Panel2 - 0 - - - True - - - 6, 75 - - - 76, 13 - - - 3 - - - 4 = DropDown + 2 Label4 @@ -336,21 +369,6 @@ 0 - - True - - - 6, 54 - - - 78, 13 - - - 2 - - - 3 = DatePicker - Label3 @@ -363,21 +381,6 @@ 1 - - True - - - 6, 34 - - - 74, 13 - - - 1 - - - 2 = CheckBox - Label2 @@ -390,21 +393,6 @@ 2 - - True - - - 6, 16 - - - 64, 13 - - - 0 - - - 1 = TextBox - Label1 @@ -439,7 +427,7 @@ SplitContainer1.Panel2 - 1 + 3 True @@ -472,28 +460,7 @@ 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 + 4 False @@ -523,7 +490,7 @@ SplitContainer1.Panel2 - 4 + 5 de-DE @@ -550,14 +517,11 @@ SplitContainer1.Panel2 - 5 + 6 160, 56 - - 17, 56 - 123, 42 @@ -577,7 +541,7 @@ SplitContainer1.Panel2 - 6 + 7 123, 16 @@ -598,7 +562,7 @@ SplitContainer1.Panel2 - 8 + 9 False @@ -628,7 +592,7 @@ SplitContainer1.Panel2 - 9 + 10 False @@ -658,7 +622,7 @@ SplitContainer1.Panel2 - 10 + 11 123, 94 @@ -679,7 +643,7 @@ SplitContainer1.Panel2 - 11 + 12 False @@ -709,7 +673,7 @@ SplitContainer1.Panel2 - 12 + 13 123, 120 @@ -730,7 +694,7 @@ SplitContainer1.Panel2 - 13 + 14 False @@ -760,7 +724,7 @@ SplitContainer1.Panel2 - 14 + 15 123, 146 @@ -781,7 +745,7 @@ SplitContainer1.Panel2 - 15 + 16 False @@ -811,7 +775,7 @@ SplitContainer1.Panel2 - 16 + 17 False @@ -841,7 +805,7 @@ SplitContainer1.Panel2 - 17 + 18 123, 229 @@ -862,7 +826,7 @@ SplitContainer1.Panel2 - 18 + 19 False @@ -892,7 +856,7 @@ SplitContainer1.Panel2 - 19 + 20 123, 255 @@ -913,7 +877,7 @@ SplitContainer1.Panel2 - 20 + 21 False @@ -943,7 +907,7 @@ SplitContainer1.Panel2 - 21 + 22 123, 281 @@ -964,7 +928,7 @@ SplitContainer1.Panel2 - 22 + 23 False @@ -994,7 +958,7 @@ SplitContainer1.Panel2 - 23 + 24 123, 307 @@ -1015,7 +979,7 @@ SplitContainer1.Panel2 - 24 + 25 123, 199 @@ -1039,7 +1003,7 @@ SplitContainer1.Panel2 - 25 + 26 SplitContainer1.Panel2 @@ -1074,6 +1038,126 @@ 1 + + 17, 17 + + + True + + + 6, 75 + + + 76, 13 + + + 3 + + + 4 = DropDown + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 0 + + + True + + + 6, 54 + + + 78, 13 + + + 2 + + + 3 = DatePicker + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + + True + + + 6, 34 + + + 74, 13 + + + 1 + + + 2 = CheckBox + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 2 + + + True + + + 6, 16 + + + 64, 13 + + + 0 + + + 1 = TextBox + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 3 + + + 160, 56 + + + 17, 56 + + + 17, 56 + 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