diff --git a/app/DD-Record-Organiser/App.config b/app/DD-Record-Organiser/App.config index a676ba8..0bd6fb6 100644 --- a/app/DD-Record-Organiser/App.config +++ b/app/DD-Record-Organiser/App.config @@ -7,7 +7,7 @@ @@ -54,6 +54,9 @@ 332 + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb index b09e811..25fe607 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb +++ b/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb @@ -123,6 +123,8 @@ Partial Public Class DD_DMSDataSet Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable + Private tableTBPMO_RIGHT_USER As TBPMO_RIGHT_USERDataTable + Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation @@ -339,6 +341,9 @@ Partial Public Class DD_DMSDataSet If (Not (ds.Tables("VWPMO_RIGHTS_2B_WORKED")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_RIGHTS_2B_WORKEDDataTable(ds.Tables("VWPMO_RIGHTS_2B_WORKED"))) End If + If (Not (ds.Tables("TBPMO_RIGHT_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_RIGHT_USERDataTable(ds.Tables("TBPMO_RIGHT_USER"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -846,6 +851,16 @@ Partial Public Class DD_DMSDataSet End Get End Property + _ + Public ReadOnly Property TBPMO_RIGHT_USER() As TBPMO_RIGHT_USERDataTable + Get + Return Me.tableTBPMO_RIGHT_USER + End Get + End Property + _ + Private Function ShouldSerializeTBPMO_RIGHT_USER() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -2055,6 +2087,9 @@ Partial Public Class DD_DMSDataSet _ Public Delegate Sub VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHTS_2B_WORKEDRowChangeEvent) + _ + Public Delegate Sub TBPMO_RIGHT_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_USERRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -22150,6 +22185,423 @@ Partial Public Class DD_DMSDataSet End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_RIGHT_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_RIGHT_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnENTITY_ID As Global.System.Data.DataColumn + + Private columnEDIT_REC As Global.System.Data.DataColumn + + Private columnADD_REC As Global.System.Data.DataColumn + + Private columnDELETE_REC As Global.System.Data.DataColumn + + Private columnADD_DOC As Global.System.Data.DataColumn + + Private columnREAD_ONLY_DOC As Global.System.Data.DataColumn + + Private columnDELETE_DOC As Global.System.Data.DataColumn + + Private columnFILES_VISIBLE 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_RIGHT_USER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_ID + End Get + End Property + + _ + Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEDIT_REC + End Get + End Property + + _ + Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADD_REC + End Get + End Property + + _ + Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETE_REC + End Get + End Property + + _ + Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADD_DOC + End Get + End Property + + _ + Public ReadOnly Property READ_ONLY_DOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREAD_ONLY_DOC + End Get + End Property + + _ + Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETE_DOC + End Get + End Property + + _ + Public ReadOnly Property FILES_VISIBLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILES_VISIBLE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RIGHT_USERRow + Get + Return CType(Me.Rows(index),TBPMO_RIGHT_USERRow) + End Get + End Property + + _ + Public Event TBPMO_RIGHT_USERRowChanging As TBPMO_RIGHT_USERRowChangeEventHandler + + _ + Public Event TBPMO_RIGHT_USERRowChanged As TBPMO_RIGHT_USERRowChangeEventHandler + + _ + Public Event TBPMO_RIGHT_USERRowDeleting As TBPMO_RIGHT_USERRowChangeEventHandler + + _ + Public Event TBPMO_RIGHT_USERRowDeleted As TBPMO_RIGHT_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_RIGHT_USERRow(ByVal row As TBPMO_RIGHT_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_RIGHT_USERRow(ByVal USER_ID As Integer, ByVal ENTITY_ID As Integer, 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 TBPMO_RIGHT_USERRow + Dim rowTBPMO_RIGHT_USERRow As TBPMO_RIGHT_USERRow = CType(Me.NewRow,TBPMO_RIGHT_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN} + rowTBPMO_RIGHT_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_RIGHT_USERRow) + Return rowTBPMO_RIGHT_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RIGHT_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RIGHT_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_RIGHT_USERDataTable = CType(MyBase.Clone,TBPMO_RIGHT_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_RIGHT_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + 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_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_ID) + Me.columnEDIT_REC = New Global.System.Data.DataColumn("EDIT_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEDIT_REC) + Me.columnADD_REC = New Global.System.Data.DataColumn("ADD_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADD_REC) + Me.columnDELETE_REC = New Global.System.Data.DataColumn("DELETE_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETE_REC) + Me.columnADD_DOC = New Global.System.Data.DataColumn("ADD_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADD_DOC) + Me.columnREAD_ONLY_DOC = New Global.System.Data.DataColumn("READ_ONLY_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREAD_ONLY_DOC) + Me.columnDELETE_DOC = New Global.System.Data.DataColumn("DELETE_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETE_DOC) + Me.columnFILES_VISIBLE = New Global.System.Data.DataColumn("FILES_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILES_VISIBLE) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnENTITY_ID.AllowDBNull = false + 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 NewTBPMO_RIGHT_USERRow() As TBPMO_RIGHT_USERRow + Return CType(Me.NewRow,TBPMO_RIGHT_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_RIGHT_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_RIGHT_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_RIGHT_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_RIGHT_USERRowChanged(Me, New TBPMO_RIGHT_USERRowChangeEvent(CType(e.Row,TBPMO_RIGHT_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_RIGHT_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_RIGHT_USERRowChanging(Me, New TBPMO_RIGHT_USERRowChangeEvent(CType(e.Row,TBPMO_RIGHT_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_RIGHT_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_RIGHT_USERRowDeleted(Me, New TBPMO_RIGHT_USERRowChangeEvent(CType(e.Row,TBPMO_RIGHT_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_RIGHT_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_RIGHT_USERRowDeleting(Me, New TBPMO_RIGHT_USERRowChangeEvent(CType(e.Row,TBPMO_RIGHT_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_RIGHT_USERRow(ByVal row As TBPMO_RIGHT_USERRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DD_DMSDataSet = New DD_DMSDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBPMO_RIGHT_USERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -33138,6 +33590,186 @@ Partial Public Class DD_DMSDataSet End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_RIGHT_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_RIGHT_USER As TBPMO_RIGHT_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_RIGHT_USER = CType(Me.Table,TBPMO_RIGHT_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.USER_IDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.ENTITY_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.ENTITY_IDColumn) = value + End Set + End Property + + _ + Public Property EDIT_REC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.EDIT_RECColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.EDIT_RECColumn) = value + End Set + End Property + + _ + Public Property ADD_REC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.ADD_RECColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.ADD_RECColumn) = value + End Set + End Property + + _ + Public Property DELETE_REC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.DELETE_RECColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.DELETE_RECColumn) = value + End Set + End Property + + _ + Public Property ADD_DOC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.ADD_DOCColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.ADD_DOCColumn) = value + End Set + End Property + + _ + Public Property READ_ONLY_DOC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.READ_ONLY_DOCColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.READ_ONLY_DOCColumn) = value + End Set + End Property + + _ + Public Property DELETE_DOC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.DELETE_DOCColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.DELETE_DOCColumn) = value + End Set + End Property + + _ + Public Property FILES_VISIBLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_USER.FILES_VISIBLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.FILES_VISIBLEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RIGHT_USER.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_RIGHT_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RIGHT_USER.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_RIGHT_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RIGHT_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RIGHT_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_RIGHT_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RIGHT_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_RIGHT_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Row event argument class ''' @@ -34901,6 +35533,42 @@ Partial Public Class DD_DMSDataSet End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_RIGHT_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_RIGHT_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_RIGHT_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_RIGHT_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class End Class Namespace DD_DMSDataSetTableAdapters @@ -52022,6 +52690,509 @@ Namespace DD_DMSDataSetTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_RIGHT_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPMO_RIGHT_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + 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) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_RIGHT_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ + "@Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Or"& _ + "iginal_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Origin"& _ + "al_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Origi"& _ + "nal_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE"& _ + "] = @Original_FILES_VISIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU"& _ + "LL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND"& _ + " [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", 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_EDIT_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADD_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADD_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILES_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILES_VISIBLE", 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_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_RIGHT_USER] ([USER_ID], [ENTITY_ID], [EDIT_REC], [ADD_REC], [D"& _ + "ELETE_REC], [ADD_DOC], [READ_ONLY_DOC], [DELETE_DOC], [FILES_VISIBLE], [ADDED_WH"& _ + "EN], [CHANGED_WHEN]) VALUES (@USER_ID, @ENTITY_ID, @EDIT_REC, @ADD_REC, @DELETE_"& _ + "REC, @ADD_DOC, @READ_ONLY_DOC, @DELETE_DOC, @FILES_VISIBLE, @ADDED_WHEN, @CHANGE"& _ + "D_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DO"& _ + "C, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN FROM TBPMO"& _ + "_RIGHT_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", 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("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILES_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILES_VISIBLE", 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_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_RIGHT_USER] SET [USER_ID] = @USER_ID, [ENTITY_ID] = @ENTITY_ID, [ED"& _ + "IT_REC] = @EDIT_REC, [ADD_REC] = @ADD_REC, [DELETE_REC] = @DELETE_REC, [ADD_DOC]"& _ + " = @ADD_DOC, [READ_ONLY_DOC] = @READ_ONLY_DOC, [DELETE_DOC] = @DELETE_DOC, [FILE"& _ + "S_VISIBLE] = @FILES_VISIBLE, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHEN] = @CHANG"& _ + "ED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND"& _ + " ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ("& _ + "[ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([A"& _ + "DD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND"& _ + " ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VI"& _ + "SIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] ="& _ + " @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NUL"& _ + "L) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, ENTITY"& _ + "_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VI"& _ + "SIBLE, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_RIGHT_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, 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("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILES_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILES_VISIBLE", 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_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", 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_EDIT_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADD_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADD_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILES_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILES_VISIBLE", 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_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPMO_RIGHT_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RIGHT_USER" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RIGHT_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_RIGHT_USERDataTable = New DD_DMSDataSet.TBPMO_RIGHT_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_RIGHT_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_ENTITY_ID As Integer, ByVal Original_EDIT_REC As Boolean, ByVal Original_ADD_REC As Boolean, ByVal Original_DELETE_REC As Boolean, ByVal Original_ADD_DOC As Boolean, ByVal Original_READ_ONLY_DOC As Boolean, ByVal Original_DELETE_DOC As Boolean, ByVal Original_FILES_VISIBLE As Boolean, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ENTITY_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_EDIT_REC,Boolean) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADD_REC,Boolean) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_DELETE_REC,Boolean) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADD_DOC,Boolean) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_READ_ONLY_DOC,Boolean) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DELETE_DOC,Boolean) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_FILES_VISIBLE,Boolean) + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + 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 + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal ENTITY_ID As Integer, 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 Global.System.Nullable(Of Date), ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADD_REC,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(READ_ONLY_DOC,Boolean) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(FILES_VISIBLE,Boolean) + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal USER_ID As Integer, _ + ByVal ENTITY_ID As Integer, _ + 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 Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_USER_ID As Integer, _ + ByVal Original_ENTITY_ID As Integer, _ + ByVal Original_EDIT_REC As Boolean, _ + ByVal Original_ADD_REC As Boolean, _ + ByVal Original_DELETE_REC As Boolean, _ + ByVal Original_ADD_DOC As Boolean, _ + ByVal Original_READ_ONLY_DOC As Boolean, _ + ByVal Original_DELETE_DOC As Boolean, _ + ByVal Original_FILES_VISIBLE As Boolean, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADD_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(READ_ONLY_DOC,Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FILES_VISIBLE,Boolean) + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ENTITY_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_EDIT_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADD_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_DELETE_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADD_DOC,Boolean) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_READ_ONLY_DOC,Boolean) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_DELETE_DOC,Boolean) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_FILES_VISIBLE,Boolean) + 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_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal USER_ID As Integer, _ + ByVal ENTITY_ID As Integer, _ + 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 Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_USER_ID As Integer, _ + ByVal Original_ENTITY_ID As Integer, _ + ByVal Original_EDIT_REC As Boolean, _ + ByVal Original_ADD_REC As Boolean, _ + ByVal Original_DELETE_REC As Boolean, _ + ByVal Original_ADD_DOC As Boolean, _ + ByVal Original_READ_ONLY_DOC As Boolean, _ + ByVal Original_DELETE_DOC As Boolean, _ + ByVal Original_FILES_VISIBLE As Boolean, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_ENTITY_ID, Original_EDIT_REC, Original_ADD_REC, Original_DELETE_REC, Original_ADD_DOC, Original_READ_ONLY_DOC, Original_DELETE_DOC, Original_FILES_VISIBLE, Original_ADDED_WHEN, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -52105,6 +53276,8 @@ Namespace DD_DMSDataSetTableAdapters Private _tBPMO_WORKFLOW_TASK_HISTORYTableAdapter As TBPMO_WORKFLOW_TASK_HISTORYTableAdapter + Private _tBPMO_RIGHT_USERTableAdapter As TBPMO_RIGHT_USERTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -52610,6 +53783,20 @@ Namespace DD_DMSDataSetTableAdapters End Set End Property + _ + Public Property TBPMO_RIGHT_USERTableAdapter() As TBPMO_RIGHT_USERTableAdapter + Get + Return Me._tBPMO_RIGHT_USERTableAdapter + End Get + Set + Me._tBPMO_RIGHT_USERTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -52769,6 +53956,10 @@ Namespace DD_DMSDataSetTableAdapters AndAlso (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection End If + If ((Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_RIGHT_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_RIGHT_USERTableAdapter.Connection + End If Return Nothing End Get Set @@ -52887,6 +54078,9 @@ Namespace DD_DMSDataSetTableAdapters If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -52952,6 +54146,15 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -52961,15 +54164,6 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -52979,12 +54173,48 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -53006,24 +54236,6 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -53060,30 +54272,21 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -53195,15 +54398,6 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -53213,6 +54407,15 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_RIGHT_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -53271,6 +54474,14 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -53279,14 +54490,6 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -53295,11 +54498,43 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(addedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -53319,22 +54554,6 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -53367,27 +54586,19 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -53487,14 +54698,6 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -53503,6 +54706,14 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_RIGHT_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -53513,6 +54724,14 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 + If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_RIGHT_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -53521,14 +54740,6 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -53625,27 +54836,19 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -53681,22 +54884,6 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -53713,19 +54900,35 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -53737,6 +54940,14 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -53745,6 +54956,14 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -54009,6 +55228,11 @@ Namespace DD_DMSDataSetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RIGHT_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -54358,6 +55582,15 @@ Namespace DD_DMSDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Adapter) End If End If + If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_RIGHT_USERTableAdapter, Me._tBPMO_RIGHT_USERTableAdapter.Connection) + Me._tBPMO_RIGHT_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RIGHT_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_RIGHT_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_RIGHT_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RIGHT_USERTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -54558,6 +55791,10 @@ Namespace DD_DMSDataSetTableAdapters Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Transaction = Nothing End If + If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then + Me._tBPMO_RIGHT_USERTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RIGHT_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RIGHT_USERTableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd index 8cc1898..a085eb1 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd @@ -3453,6 +3453,108 @@ FROM VWPMO_RIGHTS_2B_WORKED + + + + + + DELETE FROM [TBPMO_RIGHT_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBPMO_RIGHT_USER] ([USER_ID], [ENTITY_ID], [EDIT_REC], [ADD_REC], [DELETE_REC], [ADD_DOC], [READ_ONLY_DOC], [DELETE_DOC], [FILES_VISIBLE], [ADDED_WHEN], [CHANGED_WHEN]) VALUES (@USER_ID, @ENTITY_ID, @EDIT_REC, @ADD_REC, @DELETE_REC, @ADD_DOC, @READ_ONLY_DOC, @DELETE_DOC, @FILES_VISIBLE, @ADDED_WHEN, @CHANGED_WHEN); +SELECT GUID, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_RIGHT_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT TBPMO_RIGHT_USER.* +FROM TBPMO_RIGHT_USER + + + + + + UPDATE [TBPMO_RIGHT_USER] SET [USER_ID] = @USER_ID, [ENTITY_ID] = @ENTITY_ID, [EDIT_REC] = @EDIT_REC, [ADD_REC] = @ADD_REC, [DELETE_REC] = @DELETE_REC, [ADD_DOC] = @ADD_DOC, [READ_ONLY_DOC] = @READ_ONLY_DOC, [DELETE_DOC] = @DELETE_DOC, [FILES_VISIBLE] = @FILES_VISIBLE, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_RIGHT_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -3461,7 +3563,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3502,7 +3604,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3580,7 +3682,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3675,7 +3777,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3698,7 +3800,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3743,7 +3845,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3781,7 +3883,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3816,7 +3918,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3860,7 +3962,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3881,7 +3983,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3918,7 +4020,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -3963,7 +4065,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4030,7 +4132,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4067,7 +4169,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4123,7 +4225,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4162,7 +4264,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4286,7 +4388,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4384,7 +4486,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4414,7 +4516,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4451,7 +4553,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4488,7 +4590,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4520,7 +4622,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4540,7 +4642,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4586,7 +4688,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4644,7 +4746,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4674,7 +4776,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4831,7 +4933,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4856,7 +4958,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4891,7 +4993,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4920,7 +5022,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -4980,7 +5082,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5053,7 +5155,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5160,7 +5262,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5254,7 +5356,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5293,7 +5395,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5311,7 +5413,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5357,7 +5459,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5371,7 +5473,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5423,7 +5525,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5467,7 +5569,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5499,7 +5601,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5581,7 +5683,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5633,7 +5735,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5724,7 +5826,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5755,7 +5857,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5793,7 +5895,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5835,7 +5937,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5849,7 +5951,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5878,7 +5980,7 @@ FROM VWPMO_RIGHTS_2B_WORKED - + @@ -5916,6 +6018,24 @@ FROM VWPMO_RIGHTS_2B_WORKED + + + + + + + + + + + + + + + + + + @@ -6086,29 +6206,33 @@ FROM VWPMO_RIGHTS_2B_WORKED + + + + - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xss b/app/DD-Record-Organiser/DD_DMSDataSet.xss index 8c49fa0..cbe2bf8 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xss +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xss @@ -4,60 +4,61 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + 437 @@ -73,7 +74,7 @@ - + 1701 @@ -85,7 +86,7 @@ - + 1627 @@ -97,7 +98,7 @@ - + 710 @@ -113,7 +114,7 @@ - + 1374 @@ -129,7 +130,7 @@ - + 842 @@ -141,7 +142,7 @@ - + 107 @@ -161,7 +162,7 @@ - + 1632 @@ -173,7 +174,7 @@ - + 1358 @@ -185,7 +186,7 @@ - + 601 @@ -201,7 +202,7 @@ - + 618 @@ -213,7 +214,7 @@ - + 2461 @@ -229,7 +230,7 @@ - + 2358 @@ -241,7 +242,7 @@ - + 2134 @@ -257,7 +258,7 @@ - + 2142 @@ -273,7 +274,7 @@ - + 141 @@ -289,7 +290,7 @@ - + 22 @@ -309,7 +310,7 @@ - + 14 @@ -329,7 +330,7 @@ - + 389 @@ -345,7 +346,7 @@ - + 158 diff --git a/app/DD-Record-Organiser/My Project/Settings.Designer.vb b/app/DD-Record-Organiser/My Project/Settings.Designer.vb index f0ad74c..8d0b742 100644 --- a/app/DD-Record-Organiser/My Project/Settings.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Settings.Designer.vb @@ -57,8 +57,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In"& _ + "fo=True;User ID=sa;Password=ddd")> _ Public ReadOnly Property DD_DMSConnectionString() As String Get Return CType(Me("DD_DMSConnectionString"),String) @@ -182,57 +182,69 @@ Namespace My End Set End Property - _ + _ Public Property Constructor_DetailsSplitter() As Integer Get - Return CType(Me("Constructor_DetailsSplitter"), Integer) + Return CType(Me("Constructor_DetailsSplitter"),Integer) End Get - Set(value As Integer) + Set Me("Constructor_DetailsSplitter") = value End Set End Property - - _ + + _ Public Property User_InBoxScan_NotinFront() As Boolean Get - Return CType(Me("User_InBoxScan_NotinFront"), Boolean) + Return CType(Me("User_InBoxScan_NotinFront"),Boolean) End Get - Set(value As Boolean) + Set Me("User_InBoxScan_NotinFront") = value End Set End Property - - _ + + _ Public Property TBPMO_RIGHT_GROUPDataGridView() As String Get - Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"), String) + Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"),String) End Get - Set(value As String) + Set Me("TBPMO_RIGHT_GROUPDataGridView") = value End Set End Property - - _ + + _ Public Property frmRecordViewSplitter() As Integer Get - Return CType(Me("frmRecordViewSplitter"), Integer) + Return CType(Me("frmRecordViewSplitter"),Integer) End Get - Set(value As Integer) + Set Me("frmRecordViewSplitter") = value End Set End Property + + _ + Public Property TBPMO_RIGHT_USERDataGridView() As String + Get + Return CType(Me("TBPMO_RIGHT_USERDataGridView"),String) + End Get + Set + Me("TBPMO_RIGHT_USERDataGridView") = value + End Set + End Property End Class End Namespace diff --git a/app/DD-Record-Organiser/My Project/Settings.Settings b/app/DD-Record-Organiser/My Project/Settings.Settings index 86d4982..6731d9c 100644 --- a/app/DD-Record-Organiser/My Project/Settings.Settings +++ b/app/DD-Record-Organiser/My Project/Settings.Settings @@ -5,10 +5,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=ddd</ConnectionString> + <ConnectionString>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=ddd</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=ddd + Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=ddd *.db @@ -49,5 +49,8 @@ 332 + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmRight_Management.Designer.vb b/app/DD-Record-Organiser/frmRight_Management.Designer.vb index d3d3d4b..4762e12 100644 --- a/app/DD-Record-Organiser/frmRight_Management.Designer.vb +++ b/app/DD-Record-Organiser/frmRight_Management.Designer.vb @@ -25,6 +25,7 @@ Partial Class frmRight_Management Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRight_Management)) Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBPMO_RIGHT_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -42,24 +43,12 @@ Partial Class frmRight_Management Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.TBPMO_RIGHT_GROUPDataGridView = New System.Windows.Forms.DataGridView() - Me.TBWH_ENTITIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() - Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBWH_ENTITIESTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter() - Me.TableAdapterManager1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() - Me.TBWH_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBWH_USER_GROUPSTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter() - Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBPMO_RIGHT_GROUPTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter() - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.tschangedlabel = New System.Windows.Forms.ToolStripStatusLabel() - Me.TabControl1 = New System.Windows.Forms.TabControl() - Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.TabPage2 = New System.Windows.Forms.TabPage() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.TBWH_ENTITIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.DataGridViewCheckBoxColumn2 = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.DataGridViewCheckBoxColumn3 = New System.Windows.Forms.DataGridViewCheckBoxColumn() @@ -70,6 +59,50 @@ Partial Class frmRight_Management Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tschangedlabel = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem1 = New System.Windows.Forms.ToolStripButton() + Me.TBPMO_RIGHT_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.TBPMO_RIGHT_USERDataGridView = New System.Windows.Forms.DataGridView() + Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBWH_ENTITIESTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBWH_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBWH_USER_GROUPSTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter() + Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() + Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_RIGHT_GROUPTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter() + Me.TBPMO_RIGHT_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_USERTableAdapter() + Me.TBDD_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter() + Me.FILES_VISIBLE = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.GUIDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.USERIDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.ENTITYIDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.EDITRECDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.ADDRECDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DELETERECDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.ADDDOCDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.READONLYDOCDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DELETEDOCDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.FILESVISIBLEDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.ADDEDWHENDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHENDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator1.SuspendLayout() CType(Me.TBPMO_RIGHT_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -78,10 +111,16 @@ Partial Class frmRight_Management CType(Me.TBWH_ENTITIESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.StatusStrip1.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator2.SuspendLayout() + CType(Me.TBPMO_RIGHT_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_RIGHT_USERDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'BindingNavigator1 @@ -98,7 +137,7 @@ Partial Class frmRight_Management Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem Me.BindingNavigator1.Name = "BindingNavigator1" Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem - Me.BindingNavigator1.Size = New System.Drawing.Size(1193, 25) + Me.BindingNavigator1.Size = New System.Drawing.Size(1255, 25) Me.BindingNavigator1.TabIndex = 4 Me.BindingNavigator1.Text = "BindingNavigator1" ' @@ -228,140 +267,9 @@ Partial Class frmRight_Management Me.TBPMO_RIGHT_GROUPDataGridView.DataSource = Me.TBPMO_RIGHT_GROUPBindingSource Me.TBPMO_RIGHT_GROUPDataGridView.Location = New System.Drawing.Point(6, 31) Me.TBPMO_RIGHT_GROUPDataGridView.Name = "TBPMO_RIGHT_GROUPDataGridView" - Me.TBPMO_RIGHT_GROUPDataGridView.Size = New System.Drawing.Size(1190, 506) + Me.TBPMO_RIGHT_GROUPDataGridView.Size = New System.Drawing.Size(1252, 506) Me.TBPMO_RIGHT_GROUPDataGridView.TabIndex = 4 ' - 'TBWH_ENTITIESBindingSource - ' - Me.TBWH_ENTITIESBindingSource.DataMember = "TBWH_ENTITIES" - Me.TBWH_ENTITIESBindingSource.DataSource = Me.DD_ECMAdmin - ' - 'DD_ECMAdmin - ' - Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" - Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'TBDD_USER_GROUPSBindingSource - ' - Me.TBDD_USER_GROUPSBindingSource.DataMember = "TBDD_USER_GROUPS" - Me.TBDD_USER_GROUPSBindingSource.DataSource = Me.DD_DMSDataSet - ' - 'TBWH_ENTITIESTableAdapter - ' - Me.TBWH_ENTITIESTableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager1 - ' - Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager1.Connection = Nothing - Me.TableAdapterManager1.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing - Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing - Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'TBWH_USER_GROUPSBindingSource - ' - Me.TBWH_USER_GROUPSBindingSource.DataMember = "TBWH_USER_GROUPS" - Me.TBWH_USER_GROUPSBindingSource.DataSource = Me.DD_ECMAdmin - ' - 'TBWH_USER_GROUPSTableAdapter - ' - Me.TBWH_USER_GROUPSTableAdapter.ClearBeforeFill = True - ' - 'TBDD_USER_GROUPSTableAdapter - ' - Me.TBDD_USER_GROUPSTableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing - Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing - Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Me.TBDD_USER_GROUPSTableAdapter - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'TBPMO_RIGHT_GROUPTableAdapter - ' - Me.TBPMO_RIGHT_GROUPTableAdapter.ClearBeforeFill = True - ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tschangedlabel}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 569) - Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(1207, 22) - Me.StatusStrip1.TabIndex = 5 - Me.StatusStrip1.Text = "StatusStrip1" - ' - 'tschangedlabel - ' - Me.tschangedlabel.BackColor = System.Drawing.Color.Yellow - Me.tschangedlabel.Name = "tschangedlabel" - Me.tschangedlabel.Size = New System.Drawing.Size(0, 17) - Me.tschangedlabel.Visible = False - ' - 'TabControl1 - ' - Me.TabControl1.Controls.Add(Me.TabPage1) - Me.TabControl1.Controls.Add(Me.TabPage2) - Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.TabControl1.Location = New System.Drawing.Point(0, 0) - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(1207, 569) - Me.TabControl1.TabIndex = 6 - ' - 'TabPage1 - ' - Me.TabPage1.Controls.Add(Me.BindingNavigator1) - Me.TabPage1.Controls.Add(Me.TBPMO_RIGHT_GROUPDataGridView) - Me.TabPage1.Location = New System.Drawing.Point(4, 22) - Me.TabPage1.Name = "TabPage1" - Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(1199, 543) - Me.TabPage1.TabIndex = 0 - Me.TabPage1.Text = "Gruppen Rechte" - Me.TabPage1.UseVisualStyleBackColor = True - ' - 'TabPage2 - ' - Me.TabPage2.Location = New System.Drawing.Point(4, 22) - Me.TabPage2.Name = "TabPage2" - Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(1199, 543) - Me.TabPage2.TabIndex = 1 - Me.TabPage2.Text = "TabPage2" - Me.TabPage2.UseVisualStyleBackColor = True - ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" @@ -382,6 +290,16 @@ Partial Class frmRight_Management Me.DataGridViewTextBoxColumn2.ValueMember = "GUID" Me.DataGridViewTextBoxColumn2.Width = 150 ' + 'TBWH_ENTITIESBindingSource + ' + Me.TBWH_ENTITIESBindingSource.DataMember = "TBWH_ENTITIES" + Me.TBWH_ENTITIESBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'DD_ECMAdmin + ' + Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" + Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' 'DataGridViewTextBoxColumn3 ' Me.DataGridViewTextBoxColumn3.DataPropertyName = "GROUP_ID" @@ -394,6 +312,11 @@ Partial Class frmRight_Management Me.DataGridViewTextBoxColumn3.ValueMember = "GUID" Me.DataGridViewTextBoxColumn3.Width = 150 ' + 'TBDD_USER_GROUPSBindingSource + ' + Me.TBDD_USER_GROUPSBindingSource.DataMember = "TBDD_USER_GROUPS" + Me.TBDD_USER_GROUPSBindingSource.DataSource = Me.DD_DMSDataSet + ' 'DataGridViewCheckBoxColumn1 ' Me.DataGridViewCheckBoxColumn1.DataPropertyName = "EDIT_REC" @@ -460,11 +383,381 @@ Partial Class frmRight_Management Me.DataGridViewTextBoxColumn7.HeaderText = "Changed when" Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tschangedlabel}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 569) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1269, 22) + Me.StatusStrip1.TabIndex = 5 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tschangedlabel + ' + Me.tschangedlabel.BackColor = System.Drawing.Color.Yellow + Me.tschangedlabel.Name = "tschangedlabel" + Me.tschangedlabel.Size = New System.Drawing.Size(0, 17) + Me.tschangedlabel.Visible = False + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl1.Location = New System.Drawing.Point(0, 0) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(1269, 569) + Me.TabControl1.TabIndex = 6 + ' + 'TabPage1 + ' + Me.TabPage1.AutoScroll = True + Me.TabPage1.Controls.Add(Me.BindingNavigator1) + Me.TabPage1.Controls.Add(Me.TBPMO_RIGHT_GROUPDataGridView) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(1261, 543) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Gruppen Rechte" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.AutoScroll = True + Me.TabPage2.Controls.Add(Me.BindingNavigator2) + Me.TabPage2.Controls.Add(Me.TBPMO_RIGHT_USERDataGridView) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(1261, 543) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Benutzer Rechte" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Me.BindingNavigatorAddNewItem1 + Me.BindingNavigator2.BindingSource = Me.TBPMO_RIGHT_USERBindingSource + Me.BindingNavigator2.CountItem = Me.BindingNavigatorCountItem1 + Me.BindingNavigator2.DeleteItem = Me.BindingNavigatorDeleteItem1 + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem1, Me.BindingNavigatorDeleteItem1, Me.ToolStripButton3, Me.ToolStripButton4}) + Me.BindingNavigator2.Location = New System.Drawing.Point(3, 3) + Me.BindingNavigator2.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 + Me.BindingNavigator2.MoveLastItem = Me.BindingNavigatorMoveLastItem1 + Me.BindingNavigator2.MoveNextItem = Me.BindingNavigatorMoveNextItem1 + Me.BindingNavigator2.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Me.BindingNavigatorPositionItem1 + Me.BindingNavigator2.Size = New System.Drawing.Size(1255, 25) + Me.BindingNavigator2.TabIndex = 1 + Me.BindingNavigator2.Text = "BindingNavigator2" + ' + 'BindingNavigatorAddNewItem1 + ' + Me.BindingNavigatorAddNewItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem1.Image = CType(resources.GetObject("BindingNavigatorAddNewItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem1.Name = "BindingNavigatorAddNewItem1" + Me.BindingNavigatorAddNewItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem1.Text = "Neu hinzufügen" + ' + 'TBPMO_RIGHT_USERBindingSource + ' + Me.TBPMO_RIGHT_USERBindingSource.DataMember = "TBPMO_RIGHT_USER" + Me.TBPMO_RIGHT_USERBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'BindingNavigatorCountItem1 + ' + Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" + Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem1.Text = "von {0}" + Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem1 + ' + Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem1.Image = CType(resources.GetObject("BindingNavigatorDeleteItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" + Me.BindingNavigatorDeleteItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem1.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem1 + ' + Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem1.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" + Me.BindingNavigatorMoveFirstItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem1.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem1 + ' + Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem1.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" + Me.BindingNavigatorMovePreviousItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem1.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator3 + ' + Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" + Me.BindingNavigatorSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem1 + ' + Me.BindingNavigatorPositionItem1.AccessibleName = "Position" + Me.BindingNavigatorPositionItem1.AutoSize = False + Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" + Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem1.Text = "0" + Me.BindingNavigatorPositionItem1.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator4 + ' + Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" + Me.BindingNavigatorSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem1 + ' + Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem1.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" + Me.BindingNavigatorMoveNextItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem1.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem1 + ' + Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem1.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" + Me.BindingNavigatorMoveLastItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem1.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator5 + ' + Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" + Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "ToolStripButton3" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "ToolStripButton4" + ' + 'TBPMO_RIGHT_USERDataGridView + ' + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Lime + Me.TBPMO_RIGHT_USERDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + Me.TBPMO_RIGHT_USERDataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TBPMO_RIGHT_USERDataGridView.AutoGenerateColumns = False + Me.TBPMO_RIGHT_USERDataGridView.ColumnHeadersHeight = 34 + Me.TBPMO_RIGHT_USERDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.FILES_VISIBLE, Me.GUIDDataGridViewTextBoxColumn, Me.USERIDDataGridViewTextBoxColumn, Me.ENTITYIDDataGridViewTextBoxColumn, Me.EDITRECDataGridViewCheckBoxColumn, Me.ADDRECDataGridViewCheckBoxColumn, Me.DELETERECDataGridViewCheckBoxColumn, Me.ADDDOCDataGridViewCheckBoxColumn, Me.READONLYDOCDataGridViewCheckBoxColumn, Me.DELETEDOCDataGridViewCheckBoxColumn, Me.FILESVISIBLEDataGridViewCheckBoxColumn, Me.ADDEDWHENDataGridViewTextBoxColumn, Me.CHANGEDWHENDataGridViewTextBoxColumn}) + Me.TBPMO_RIGHT_USERDataGridView.DataSource = Me.TBPMO_RIGHT_USERBindingSource + Me.TBPMO_RIGHT_USERDataGridView.Location = New System.Drawing.Point(3, 31) + Me.TBPMO_RIGHT_USERDataGridView.Name = "TBPMO_RIGHT_USERDataGridView" + Me.TBPMO_RIGHT_USERDataGridView.Size = New System.Drawing.Size(1255, 509) + Me.TBPMO_RIGHT_USERDataGridView.TabIndex = 0 + ' + 'TBDD_USERBindingSource + ' + Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" + Me.TBDD_USERBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'TBWH_ENTITIESTableAdapter + ' + Me.TBWH_ENTITIESTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.Connection = Nothing + Me.TableAdapterManager1.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_SAP_FUBATableAdapter = Nothing + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBWH_USER_GROUPSBindingSource + ' + Me.TBWH_USER_GROUPSBindingSource.DataMember = "TBWH_USER_GROUPS" + Me.TBWH_USER_GROUPSBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'TBWH_USER_GROUPSTableAdapter + ' + Me.TBWH_USER_GROUPSTableAdapter.ClearBeforeFill = True + ' + 'TBDD_USER_GROUPSTableAdapter + ' + Me.TBDD_USER_GROUPSTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Me.TBDD_USER_GROUPSTableAdapter + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RIGHT_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBPMO_RIGHT_GROUPTableAdapter + ' + Me.TBPMO_RIGHT_GROUPTableAdapter.ClearBeforeFill = True + ' + 'TBPMO_RIGHT_USERTableAdapter + ' + Me.TBPMO_RIGHT_USERTableAdapter.ClearBeforeFill = True + ' + 'TBDD_USERTableAdapter + ' + Me.TBDD_USERTableAdapter.ClearBeforeFill = True + ' + 'FILES_VISIBLE + ' + Me.FILES_VISIBLE.DataPropertyName = "FILES_VISIBLE" + Me.FILES_VISIBLE.HeaderText = "FILES_VISIBLE" + Me.FILES_VISIBLE.Name = "FILES_VISIBLE" + ' + 'GUIDDataGridViewTextBoxColumn + ' + Me.GUIDDataGridViewTextBoxColumn.DataPropertyName = "GUID" + Me.GUIDDataGridViewTextBoxColumn.HeaderText = "GUID" + Me.GUIDDataGridViewTextBoxColumn.Name = "GUIDDataGridViewTextBoxColumn" + Me.GUIDDataGridViewTextBoxColumn.ReadOnly = True + ' + 'USERIDDataGridViewTextBoxColumn + ' + Me.USERIDDataGridViewTextBoxColumn.DataPropertyName = "USER_ID" + Me.USERIDDataGridViewTextBoxColumn.DataSource = Me.TBDD_USERBindingSource + Me.USERIDDataGridViewTextBoxColumn.DisplayMember = "USERNAME" + Me.USERIDDataGridViewTextBoxColumn.HeaderText = "Benutzer" + Me.USERIDDataGridViewTextBoxColumn.Name = "USERIDDataGridViewTextBoxColumn" + Me.USERIDDataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.USERIDDataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.USERIDDataGridViewTextBoxColumn.ValueMember = "GUID" + ' + 'ENTITYIDDataGridViewTextBoxColumn + ' + Me.ENTITYIDDataGridViewTextBoxColumn.DataPropertyName = "ENTITY_ID" + Me.ENTITYIDDataGridViewTextBoxColumn.DataSource = Me.TBWH_ENTITIESBindingSource + Me.ENTITYIDDataGridViewTextBoxColumn.DisplayMember = "FORM_TITLE" + Me.ENTITYIDDataGridViewTextBoxColumn.HeaderText = "Entität" + Me.ENTITYIDDataGridViewTextBoxColumn.Name = "ENTITYIDDataGridViewTextBoxColumn" + Me.ENTITYIDDataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.ENTITYIDDataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.ENTITYIDDataGridViewTextBoxColumn.ValueMember = "GUID" + ' + 'EDITRECDataGridViewCheckBoxColumn + ' + Me.EDITRECDataGridViewCheckBoxColumn.DataPropertyName = "EDIT_REC" + Me.EDITRECDataGridViewCheckBoxColumn.HeaderText = "Edit Record" + Me.EDITRECDataGridViewCheckBoxColumn.Name = "EDITRECDataGridViewCheckBoxColumn" + ' + 'ADDRECDataGridViewCheckBoxColumn + ' + Me.ADDRECDataGridViewCheckBoxColumn.DataPropertyName = "ADD_REC" + Me.ADDRECDataGridViewCheckBoxColumn.HeaderText = "Add Record" + Me.ADDRECDataGridViewCheckBoxColumn.Name = "ADDRECDataGridViewCheckBoxColumn" + ' + 'DELETERECDataGridViewCheckBoxColumn + ' + Me.DELETERECDataGridViewCheckBoxColumn.DataPropertyName = "DELETE_REC" + Me.DELETERECDataGridViewCheckBoxColumn.HeaderText = "Delete Record" + Me.DELETERECDataGridViewCheckBoxColumn.Name = "DELETERECDataGridViewCheckBoxColumn" + ' + 'ADDDOCDataGridViewCheckBoxColumn + ' + Me.ADDDOCDataGridViewCheckBoxColumn.DataPropertyName = "ADD_DOC" + Me.ADDDOCDataGridViewCheckBoxColumn.HeaderText = "Add Doc" + Me.ADDDOCDataGridViewCheckBoxColumn.Name = "ADDDOCDataGridViewCheckBoxColumn" + ' + 'READONLYDOCDataGridViewCheckBoxColumn + ' + Me.READONLYDOCDataGridViewCheckBoxColumn.DataPropertyName = "READ_ONLY_DOC" + Me.READONLYDOCDataGridViewCheckBoxColumn.HeaderText = "View Doc" + Me.READONLYDOCDataGridViewCheckBoxColumn.Name = "READONLYDOCDataGridViewCheckBoxColumn" + ' + 'DELETEDOCDataGridViewCheckBoxColumn + ' + Me.DELETEDOCDataGridViewCheckBoxColumn.DataPropertyName = "DELETE_DOC" + Me.DELETEDOCDataGridViewCheckBoxColumn.HeaderText = "Delete Doc" + Me.DELETEDOCDataGridViewCheckBoxColumn.Name = "DELETEDOCDataGridViewCheckBoxColumn" + ' + 'FILESVISIBLEDataGridViewCheckBoxColumn + ' + Me.FILESVISIBLEDataGridViewCheckBoxColumn.DataPropertyName = "FILES_VISIBLE" + Me.FILESVISIBLEDataGridViewCheckBoxColumn.HeaderText = "View Docs" + Me.FILESVISIBLEDataGridViewCheckBoxColumn.Name = "FILESVISIBLEDataGridViewCheckBoxColumn" + ' + 'ADDEDWHENDataGridViewTextBoxColumn + ' + Me.ADDEDWHENDataGridViewTextBoxColumn.DataPropertyName = "ADDED_WHEN" + Me.ADDEDWHENDataGridViewTextBoxColumn.HeaderText = "ADDED_WHEN" + Me.ADDEDWHENDataGridViewTextBoxColumn.Name = "ADDEDWHENDataGridViewTextBoxColumn" + ' + 'CHANGEDWHENDataGridViewTextBoxColumn + ' + Me.CHANGEDWHENDataGridViewTextBoxColumn.DataPropertyName = "CHANGED_WHEN" + Me.CHANGEDWHENDataGridViewTextBoxColumn.HeaderText = "CHANGED_WHEN" + Me.CHANGEDWHENDataGridViewTextBoxColumn.Name = "CHANGEDWHENDataGridViewTextBoxColumn" + ' 'frmRight_Management ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1207, 591) + Me.ClientSize = New System.Drawing.Size(1269, 591) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.StatusStrip1) Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -480,12 +773,20 @@ Partial Class frmRight_Management CType(Me.TBWH_ENTITIESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator2.ResumeLayout(False) + Me.BindingNavigator2.PerformLayout() + CType(Me.TBPMO_RIGHT_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_RIGHT_USERDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -535,4 +836,37 @@ Partial Class frmRight_Management Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TBPMO_RIGHT_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_RIGHT_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_USERTableAdapter + Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPMO_RIGHT_USERDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents colFILES_VISIBLE As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents FILES_VISIBLE As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents GUIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents USERIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewComboBoxColumn + Friend WithEvents ENTITYIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewComboBoxColumn + Friend WithEvents EDITRECDataGridViewCheckBoxColumn As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents ADDRECDataGridViewCheckBoxColumn As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents DELETERECDataGridViewCheckBoxColumn As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents ADDDOCDataGridViewCheckBoxColumn As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents READONLYDOCDataGridViewCheckBoxColumn As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents DELETEDOCDataGridViewCheckBoxColumn As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents FILESVISIBLEDataGridViewCheckBoxColumn As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents ADDEDWHENDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn End Class diff --git a/app/DD-Record-Organiser/frmRight_Management.resx b/app/DD-Record-Organiser/frmRight_Management.resx index a8362f8..4fb3055 100644 --- a/app/DD-Record-Organiser/frmRight_Management.resx +++ b/app/DD-Record-Organiser/frmRight_Management.resx @@ -118,7 +118,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 405, 56 + 17, 56 @@ -192,25 +192,104 @@ - 694, 56 + 306, 56 - 559, 56 + 171, 56 160, 17 - - 911, 56 - - + 17, 95 + + 618, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + 134, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + True + + + 772, 95 + + + 523, 56 + + + 735, 56 + - 197, 95 + 915, 56 - 447, 95 + 1165, 56 407, 17 @@ -219,10 +298,16 @@ 649, 17 - 17, 56 + 1079, 17 - - 692, 95 + + 379, 95 + + + 967, 95 + + + 166 diff --git a/app/DD-Record-Organiser/frmRight_Management.vb b/app/DD-Record-Organiser/frmRight_Management.vb index ec17bea..d9294fc 100644 --- a/app/DD-Record-Organiser/frmRight_Management.vb +++ b/app/DD-Record-Organiser/frmRight_Management.vb @@ -8,7 +8,28 @@ _Instance.BringToFront() Return _Instance End Function - Private Sub Save_Data() + + Private Sub Save_User_Rights_Data() + Try + Me.Validate() + Me.TBPMO_RIGHT_USERBindingSource.EndEdit() + + If DD_DMSDataSet.TBPMO_RIGHT_USER.GetChanges() Is Nothing = False Then + 'Me.TBPMO_RIGHT_USERDataGridView.CurrentRow.Cells("colADDED_WHO").Value = Environment.UserName + Me.TBPMO_RIGHT_USERBindingSource.EndEdit() + Me.TBPMO_RIGHT_USERTableAdapter.Update(DD_DMSDataSet.TBPMO_RIGHT_USER) + tschangedlabel.Text = "Right User changed - " & Now + tschangedlabel.Visible = True + Else + tschangedlabel.Visible = False + End If + + Catch ex As Exception + MsgBox("Error in Save_User_Rights_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub Save_Group_Rights_Data() Try Me.Validate() Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit() @@ -23,37 +44,43 @@ tschangedlabel.Visible = False End If - Catch ex As Exception - MsgBox("Error in Save_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Error in Save_Group_Rights_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - - End Sub Sub Load_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String) - Dim settings() As String - If My.Settings(_settings_String) <> String.Empty Then - settings = My.Settings(_settings_String).Split("$"c) - For idx As Integer = 0 To _Datagrid.Columns.Count - 1 - Dim sv() As String = settings(idx).Split("/"c) - _Datagrid.Columns(idx).DisplayIndex = CInt(sv(0)) - _Datagrid.Columns(idx).Width = CInt(sv(1)) - Next - End If + Try + Dim settings() As String + If My.Settings(_settings_String) <> String.Empty Then + settings = My.Settings(_settings_String).Split("$"c) + For idx As Integer = 0 To _Datagrid.Columns.Count - 1 + Dim sv() As String = settings(idx).Split("/"c) + _Datagrid.Columns(idx).DisplayIndex = CInt(sv(0)) + _Datagrid.Columns(idx).Width = CInt(sv(1)) + Next + End If + Catch ex As Exception + + End Try End Sub Sub Save_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String) - Dim settings As String = String.Empty - For idx As Integer = 0 To _Datagrid.Columns.Count - 1 - settings += _Datagrid.Columns(idx).DisplayIndex.ToString() - settings += "/" - settings += _Datagrid.Columns(idx).Width.ToString - settings += "$" - Next - My.Settings(_settings_String) = settings + Try + Dim settings As String = String.Empty + For idx As Integer = 0 To _Datagrid.Columns.Count - 1 + settings += _Datagrid.Columns(idx).DisplayIndex.ToString() + settings += "/" + settings += _Datagrid.Columns(idx).Width.ToString + settings += "$" + Next + My.Settings(_settings_String) = settings + Catch ex As Exception + My.Settings(_settings_String) = String.Empty + End Try End Sub Private Sub frmRight_Management_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Save_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView") + Save_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView") End Sub Private Sub frmGroup_Rights_Load(sender As Object, e As EventArgs) Handles MyBase.Load Refresh_Entities() @@ -62,12 +89,28 @@ Me.TBWH_USER_GROUPSTableAdapter.Fill(Me.DD_ECMAdmin.TBWH_USER_GROUPS) Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS) + Me.TBPMO_RIGHT_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_RIGHT_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RIGHT_USER) + Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER) Catch ex As Exception MsgBox("Error in Loading Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try Refresh_Rights_Groups() + Refresh_Rights_Users() Load_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView") + Load_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView") End Sub + + Sub Refresh_Rights_Users() + Try + Me.TBPMO_RIGHT_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_RIGHT_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RIGHT_USER) + Catch ex As Exception + MsgBox("Error in Refresh_Users_Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Refresh_Rights_Groups() Try Me.TBPMO_RIGHT_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString @@ -83,7 +126,6 @@ Catch ex As System.Exception MsgBox("Error in Refresh_Entities:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - End Sub Private Sub TBPMO_RIGHT_GROUPBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.AddingNew @@ -91,14 +133,22 @@ End Sub Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click - Save_Data() + Save_Group_Rights_Data() End Sub - Private Sub TBPMO_RIGHT_GROUPBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.CurrentChanged + Private Sub TBPMO_RIGHT_GROUPBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.CurrentChanged, TBPMO_RIGHT_USERBindingSource.CurrentChanged tschangedlabel.Visible = False End Sub Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click Refresh_Rights_Groups() End Sub + + Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click + Save_User_Rights_Data() + End Sub + + Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click + Refresh_Rights_Users() + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb index e1151dd..2b0f6df 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb @@ -43,6 +43,7 @@ Partial Class frmWD_Dokumentart_Konfig Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim OBJEKTTYPLabel As System.Windows.Forms.Label Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -1115,6 +1116,14 @@ Partial Class frmWD_Dokumentart_Konfig Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9}) Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DataSource = Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!) + DataGridViewCellStyle2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(32, Byte), Integer), CType(CType(31, Byte), Integer), CType(CType(53, Byte), Integer)) + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DefaultCellStyle = DataGridViewCellStyle2 Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Name = "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView" Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ReadOnly = True ' diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx index 306b515..794e69b 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx @@ -2016,7 +2016,7 @@ 0, 25 - 305, 227 + 305, 210 2 @@ -2204,7 +2204,7 @@ 0, 0 - 1265, 25 + 1347, 25 1 @@ -2261,7 +2261,7 @@ 0, 25 - 305, 227 + 305, 224 3 @@ -2449,7 +2449,7 @@ 0, 0 - 1265, 25 + 1261, 25 2 @@ -2470,7 +2470,7 @@ 1 - 1265, 252 + 1261, 249 Manuelle Indexe @@ -2808,7 +2808,7 @@ 0, 0 - 1265, 25 + 1261, 25 2 @@ -2829,7 +2829,7 @@ 5 - 1265, 252 + 1261, 249 Zurodnung Dokumentart - Entität @@ -3213,7 +3213,7 @@ 4 - 1265, 252 + 1261, 249 Variabler Ordnerpfad