diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb index 1384159..a80aed2 100644 --- a/app/DD-Record-Organiser/ClassControlBuilder.vb +++ b/app/DD-Record-Organiser/ClassControlBuilder.vb @@ -482,6 +482,18 @@ Public Class ClassControlBuilder End If End Try End Sub + Public Sub OnComboBoxFocused(sender As Object, ByVal e As EventArgs) + If CURRENT_RECORD_ENABLED = False Then Exit Sub + + Try + Dim control As Control = DirectCast(sender, Control) + Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id + CURRENT_COMBOBOX_SELECTED_INDEX = DirectCast(control, CustomComboBox).SelectedIndex + Catch ex As Exception + MsgBox("Error in OnComboBoxFocused - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub Public Sub OnComboBoxValueChanged(sender As Object, ByVal e As EventArgs) If CURRENT_RECORD_ENABLED = False Then Exit Sub @@ -489,9 +501,21 @@ Public Class ClassControlBuilder Dim control As Control = DirectCast(sender, Control) Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id CONTROL_ID = controlId - If CONTROL_ID = 29 Then - Console.WriteLine("Obacht") - End If + + Dim expression As String + expression = "ENTITY_ID = " & CURRENT_FORM_ID + Dim foundControls() As DataRow + ' Use the Select method to find all rows matching the filter. + foundControls = CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS.Select(expression) + Dim i As Integer + Dim NODE_CONFIG_ID + ' Check if control is one of rightcontrols + For i = 0 To foundControls.GetUpperBound(0) + If foundControls(i)("CONTROL_ID") = CONTROL_ID Then + RIGHT_CONTROL_CHANGED = True + Exit For + End If + Next 'SQL für abhängige Auswahllisten Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1, CONTROL_TYPE_ID,FORMAT_TYPE FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId) Dim value @@ -526,6 +550,7 @@ Public Class ClassControlBuilder Enable_Controls(control, datatable1, value) Console.WriteLine("value changed") + Catch ex As Exception If ex.Message.Contains("Objektverweis") Or ex.Message.Contains("reference not set") Then @@ -542,9 +567,32 @@ Public Class ClassControlBuilder Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id CONTROL_ID = controlId control.Update() - If CONTROL_ID = 993 Then - Console.WriteLine("Obacht") - End If + + + Dim expression As String + expression = "ENTITY_ID = " & CURRENT_FORM_ID + Dim foundControls() As DataRow + ' Use the Select method to find all rows matching the filter. + foundControls = CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS.Select(expression) + Dim i As Integer + ' Check if control is one of rightcontrols + For i = 0 To foundControls.GetUpperBound(0) + If foundControls(i)("CONTROL_ID") = CONTROL_ID Then + RIGHT_CONTROL_CHANGED = True + Dim msg = MSG_RIGHTMODULE_DE + If USER_LANGUAGE <> "de-DE" Then + msg = MSG_RIGHTMODULE_EN_US + End If + Dim result As MsgBoxResult + result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.No Then + RIGHT_CONTROL_CHANGED = False + CtrlBuilder.ControlsChanged.Remove(controlId) + RECORD_CHANGED = False + Exit Sub + End If + End If + Next 'SQL für abhängige Auswahllisten Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1,CONTROL_TYPE_ID,FORMAT_TYPE FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId) 'SQL für enable control @@ -744,6 +792,7 @@ Public Class ClassControlBuilder Case "CustomComboBox" Dim combo As CustomComboBox = CType(control, CustomComboBox) + AddHandler combo.GotFocus, AddressOf OnComboBoxFocused AddHandler combo.SelectedValueChanged, AddressOf RecordChanged AddHandler combo.SelectedValueChanged, AddressOf OnComboBoxValueChanged AddHandler combo.TextChanged, AddressOf RecordChanged diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb index c5201df..49b306d 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb +++ b/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb @@ -121,6 +121,8 @@ Partial Public Class DD_DMSDataSet Private tableTBPMO_WORKFLOW_TASK_HISTORY As TBPMO_WORKFLOW_TASK_HISTORYDataTable + Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable + Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation @@ -334,6 +336,9 @@ Partial Public Class DD_DMSDataSet If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_HISTORYDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY"))) End If + 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 Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -831,6 +836,16 @@ Partial Public Class DD_DMSDataSet End Get End Property + _ + Public ReadOnly Property VWPMO_RIGHTS_2B_WORKED() As VWPMO_RIGHTS_2B_WORKEDDataTable + Get + Return Me.tableVWPMO_RIGHTS_2B_WORKED + End Get + End Property + _ + Private Function ShouldSerializeVWPMO_RIGHTS_2B_WORKED() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -2020,6 +2052,9 @@ Partial Public Class DD_DMSDataSet _ Public Delegate Sub TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent) + _ + Public Delegate Sub VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHTS_2B_WORKEDRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -21720,6 +21755,368 @@ Partial Public Class DD_DMSDataSet End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWPMO_RIGHTS_2B_WORKEDDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_RIGHTS_2B_WORKEDRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOC_ID As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnRIGHT_MODIFY As Global.System.Data.DataColumn + + Private columnFILE_RIGHT As Global.System.Data.DataColumn + + Private columnWORKING As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPMO_RIGHTS_2B_WORKED" + 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 DOC_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOC_ID + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property RIGHT_MODIFYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRIGHT_MODIFY + End Get + End Property + + _ + Public ReadOnly Property FILE_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE_RIGHT + End Get + End Property + + _ + Public ReadOnly Property WORKINGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWORKING + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_RIGHTS_2B_WORKEDRow + Get + Return CType(Me.Rows(index),VWPMO_RIGHTS_2B_WORKEDRow) + End Get + End Property + + _ + Public Event VWPMO_RIGHTS_2B_WORKEDRowChanging As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler + + _ + Public Event VWPMO_RIGHTS_2B_WORKEDRowChanged As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler + + _ + Public Event VWPMO_RIGHTS_2B_WORKEDRowDeleting As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler + + _ + Public Event VWPMO_RIGHTS_2B_WORKEDRowDeleted As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_RIGHTS_2B_WORKEDRow(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_RIGHTS_2B_WORKEDRow(ByVal GUID As Integer, ByVal DOC_ID As Integer, ByVal USERNAME As String, ByVal RIGHT_MODIFY As String, ByVal FILE_RIGHT As String, ByVal WORKING As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As VWPMO_RIGHTS_2B_WORKEDRow + Dim rowVWPMO_RIGHTS_2B_WORKEDRow As VWPMO_RIGHTS_2B_WORKEDRow = CType(Me.NewRow,VWPMO_RIGHTS_2B_WORKEDRow) + Dim columnValuesArray() As Object = New Object() {GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WHO, ADDED_WHEN} + rowVWPMO_RIGHTS_2B_WORKEDRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_RIGHTS_2B_WORKEDRow) + Return rowVWPMO_RIGHTS_2B_WORKEDRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_RIGHTS_2B_WORKEDRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_RIGHTS_2B_WORKEDRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_RIGHTS_2B_WORKEDDataTable = CType(MyBase.Clone,VWPMO_RIGHTS_2B_WORKEDDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_RIGHTS_2B_WORKEDDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOC_ID = MyBase.Columns("DOC_ID") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnRIGHT_MODIFY = MyBase.Columns("RIGHT_MODIFY") + Me.columnFILE_RIGHT = MyBase.Columns("FILE_RIGHT") + Me.columnWORKING = MyBase.Columns("WORKING") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_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.columnDOC_ID = New Global.System.Data.DataColumn("DOC_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOC_ID) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnRIGHT_MODIFY = New Global.System.Data.DataColumn("RIGHT_MODIFY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRIGHT_MODIFY) + Me.columnFILE_RIGHT = New Global.System.Data.DataColumn("FILE_RIGHT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE_RIGHT) + Me.columnWORKING = New Global.System.Data.DataColumn("WORKING", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKING) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnDOC_ID.AllowDBNull = false + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnRIGHT_MODIFY.AllowDBNull = false + Me.columnRIGHT_MODIFY.MaxLength = 30 + Me.columnFILE_RIGHT.ReadOnly = true + Me.columnFILE_RIGHT.MaxLength = 100 + Me.columnWORKING.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_RIGHTS_2B_WORKEDRow() As VWPMO_RIGHTS_2B_WORKEDRow + Return CType(Me.NewRow,VWPMO_RIGHTS_2B_WORKEDRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_RIGHTS_2B_WORKEDRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_RIGHTS_2B_WORKEDRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowChanged(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row,VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowChanging(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row,VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowDeleted(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row,VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowDeleting(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row,VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_RIGHTS_2B_WORKEDRow(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow) + 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 = "VWPMO_RIGHTS_2B_WORKEDDataTable" + 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. ''' @@ -32567,6 +32964,142 @@ Partial Public Class DD_DMSDataSet End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_RIGHTS_2B_WORKEDRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_RIGHTS_2B_WORKED = CType(Me.Table,VWPMO_RIGHTS_2B_WORKEDDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOC_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.DOC_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.DOC_IDColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.USERNAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property RIGHT_MODIFY() As String + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.RIGHT_MODIFYColumn),String) + End Get + Set + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.RIGHT_MODIFYColumn) = value + End Set + End Property + + _ + Public Property FILE_RIGHT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_RIGHT in Tabelle VWPMO_RIGHTS_2B_WORKED ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) = value + End Set + End Property + + _ + Public Property WORKING() As Boolean + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.WORKINGColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.WORKINGColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWPMO_RIGHTS_2B_WORKED ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsFILE_RIGHTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) + End Function + + _ + Public Sub SetFILE_RIGHTNull() + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Row event argument class ''' @@ -34294,6 +34827,42 @@ Partial Public Class DD_DMSDataSet End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_RIGHTS_2B_WORKEDRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_RIGHTS_2B_WORKEDRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_RIGHTS_2B_WORKEDRow + 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 @@ -51144,6 +51713,187 @@ Namespace DD_DMSDataSetTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_RIGHTS_2B_WORKEDTableAdapter + 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 = "VWPMO_RIGHTS_2B_WORKED" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOC_ID", "DOC_ID") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("RIGHT_MODIFY", "RIGHT_MODIFY") + tableMapping.ColumnMappings.Add("FILE_RIGHT", "FILE_RIGHT") + tableMapping.ColumnMappings.Add("WORKING", "WORKING") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WH"& _ + "O, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_RIGHTS_2B_WORKED" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_RIGHTS_2B_WORKEDDataTable) 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.VWPMO_RIGHTS_2B_WORKEDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.VWPMO_RIGHTS_2B_WORKEDDataTable = New DD_DMSDataSet.VWPMO_RIGHTS_2B_WORKEDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -52065,12 +52815,12 @@ 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._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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._tBPMO_TEMPLATE_ENTITYTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -52083,15 +52833,6 @@ Namespace DD_DMSDataSetTableAdapters 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) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) - 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) @@ -52101,57 +52842,21 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + 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) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) 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) + 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._tBDD_EMAIL_ACCOUNTTableAdapter.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)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -52173,6 +52878,24 @@ 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) @@ -52209,30 +52932,48 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.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) + 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_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_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_FILES_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_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_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -52272,6 +53013,15 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -52308,21 +53058,12 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.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_FILES_USERTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_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_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -52335,6 +53076,15 @@ Namespace DD_DMSDataSetTableAdapters 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) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -52385,11 +53135,11 @@ 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._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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._tBPMO_TEMPLATE_ENTITYTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -52401,14 +53151,6 @@ Namespace DD_DMSDataSetTableAdapters 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) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) - 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) _ @@ -52417,51 +53159,19 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + 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) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) 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 (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._tBDD_EMAIL_ACCOUNTTableAdapter.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)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -52481,6 +53191,22 @@ 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) _ @@ -52513,27 +53239,43 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(addedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.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 (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_FOLLOW_UP_EMAILTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -52569,6 +53311,14 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -52601,19 +53351,11 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -52625,6 +53367,14 @@ Namespace DD_DMSDataSetTableAdapters 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) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -52635,6 +53385,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_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) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(deletedRows)) + 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) _ @@ -52643,19 +53401,11 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + 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) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -52691,6 +53441,14 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -52723,27 +53481,43 @@ Namespace DD_DMSDataSetTableAdapters 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 (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.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 (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.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_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.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 + 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 @@ -52779,6 +53553,22 @@ 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) _ @@ -52795,59 +53585,11 @@ 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._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_LANGUAGE_OBJECTTableAdapter.Update(deletedRows)) - 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._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 - 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_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) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -52859,6 +53601,14 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.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) _ @@ -52867,11 +53617,11 @@ 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_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) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsc b/app/DD-Record-Organiser/DD_DMSDataSet.xsc index 05d603a..5065a8c 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsc +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsc @@ -99,46 +99,34 @@ - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd index 836311c..b17bb76 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd @@ -3395,6 +3395,30 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE + + + + + + SELECT GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WHO, ADDED_WHEN +FROM VWPMO_RIGHTS_2B_WORKED + + + + + + + + + + + + + + + + + @@ -3403,7 +3427,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3444,7 +3468,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3522,7 +3546,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3617,7 +3641,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3640,7 +3664,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3685,7 +3709,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3723,7 +3747,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3758,7 +3782,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3802,7 +3826,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3823,7 +3847,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3860,7 +3884,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3905,7 +3929,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -3972,7 +3996,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4009,7 +4033,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4065,7 +4089,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4104,7 +4128,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4228,7 +4252,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4319,7 +4343,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4349,7 +4373,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4386,7 +4410,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4423,7 +4447,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4455,7 +4479,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4475,7 +4499,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4521,7 +4545,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4579,7 +4603,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4609,7 +4633,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4766,7 +4790,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4791,7 +4815,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4826,7 +4850,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4855,7 +4879,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4915,7 +4939,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -4988,7 +5012,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5095,7 +5119,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5189,7 +5213,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5228,7 +5252,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5246,7 +5270,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5292,7 +5316,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5306,7 +5330,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5358,7 +5382,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5402,7 +5426,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5434,7 +5458,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5516,7 +5540,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5568,7 +5592,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5659,7 +5683,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5690,7 +5714,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5728,7 +5752,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5769,7 +5793,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5783,7 +5807,7 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE - + @@ -5812,6 +5836,44 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -5978,29 +6040,33 @@ SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHE + + + + - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + \ 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 0de9029..92f6dfa 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xss +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xss @@ -4,59 +4,60 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + 437 @@ -72,7 +73,7 @@ - + 1701 @@ -84,7 +85,7 @@ - + 1627 @@ -96,7 +97,7 @@ - + 710 @@ -112,7 +113,7 @@ - + 1374 @@ -128,7 +129,7 @@ - + 842 @@ -140,7 +141,7 @@ - + 107 @@ -160,7 +161,7 @@ - + 1632 @@ -172,7 +173,7 @@ - + 1358 @@ -184,7 +185,7 @@ - + 601 @@ -200,7 +201,7 @@ - + 618 @@ -212,7 +213,7 @@ - + 2461 @@ -228,7 +229,7 @@ - + 2358 @@ -240,7 +241,7 @@ - + 2134 @@ -256,7 +257,7 @@ - + 2142 @@ -272,7 +273,7 @@ - + 141 @@ -288,7 +289,7 @@ - + 22 @@ -308,7 +309,7 @@ - + 14 @@ -328,7 +329,7 @@ - + 158 @@ -348,7 +349,7 @@ - + 158 diff --git a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb b/app/DD-Record-Organiser/ModuleRuntimeVariables.vb index 933a51c..6847bc6 100644 --- a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb +++ b/app/DD-Record-Organiser/ModuleRuntimeVariables.vb @@ -77,6 +77,7 @@ Public CURRENT_CONTROL_VALUES As DataTable Public CURRENT_SQL_AUTO_VALUES_DT As DataTable Public CURRENT_TBPMO_INDEX_MAN As DataTable + Public CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS As DataTable Public CURRENT_DOC_RESULTS As DataTable @@ -97,4 +98,14 @@ Public CURRENT_CHECK_SUBFOLDER As Boolean = False Public CURRENT_SUBFOLDER As String = "" + + Public RECORD_CHANGED As Boolean = False + Public CURRENT_COMBOBOX_SELECTED_INDEX As Integer = 0 + Public RIGHT_CONTROL_CHANGED As Boolean = False + Public MSG_RIGHTMODULE_DE = "Achtung: " & vbNewLine & "Sie haben Änderungen an Rechte-relevanten Eingaben vorgenommen!" & vbNewLine & _ + "Alle Rechte der zu diesem Datensatz gespeicherten Dateien werden nach Speichern serverseitig und im Hintergrund überprüft!" & vbNewLine & _ + "Dies kann je nach Anzahl der Dateien bis zu 15 Minuten dauern!" & vbNewLine & "Wollen Sie fortfahren?" + Public MSG_RIGHTMODULE_EN_US = "Attention:" & "You applied changes to right-relevant data!" & vbNewLine & _ + "All rights of files belonging to this record will be checked and changed after Saving!" & vbNewLine & _ + "This might take up to 15 Minutes (related to the amount of files)!" & vbNewLine & "Would You like to continue?" End Module diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index f239861..c6e565f 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -51,7 +51,6 @@ Public Class frmConstructor_Main Private DT_TREEVIEW_PER_CONTROLS As DataTable Private DT_TREEVIEW_CONFIGURATION As DataTable - Private DT_TBPMO_ENTITY_RIGHT_CONTROLS As DataTable Private DT_CONTROL_SCREEN As DataTable Private TREEVIEW_IMAGELIST As ImageList Private NODE_NAVIGATION As Boolean = False @@ -98,7 +97,6 @@ Public Class frmConstructor_Main Private GRID_TYPE As GridType = GridType.Tiles Private GRID_TYPE_ID As Integer = 1 Private FORM_LOADED As Boolean = False - Private RECORD_CHANGED As Boolean = False Private SAVE_ROUTINE_ACTIVE As Boolean = False Private SP1 As String Private SP2 As String @@ -271,7 +269,7 @@ Public Class frmConstructor_Main DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL) - DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPMO_ENTITY_RIGHT_CONTROLS where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)) + CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPMO_ENTITY_RIGHT_CONTROLS where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)) SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID) Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) @@ -2040,6 +2038,23 @@ Public Class frmConstructor_Main End If + If RIGHT_CONTROL_CHANGED = True Then + Dim msg = MSG_RIGHTMODULE_DE + If USER_LANGUAGE <> "de-DE" Then + msg = MSG_RIGHTMODULE_EN_US + End If + Dim result As MsgBoxResult + result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.No Then + RIGHT_CONTROL_CHANGED = False + RECORD_CHANGED = False + DisableEditMode() + Show_Selected_Record_Data(SELECTED_RECORD_ID, False) + Return True + End If + End If + + If TrySave_User() = False Then ' Cursor zurücksetzen Me.Cursor = Cursors.Default @@ -3040,8 +3055,8 @@ Public Class frmConstructor_Main MsgBox("Error in Save Record Changes: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try Else - ' Wenn nicht gespeichert werden soll, den Record wieder löschen - If CtrlCommandUI.IsInsert = True Then + + If CtrlCommandUI.IsInsert = True Then ' Wenn nicht gespeichert werden soll, den Record wieder löschen ClassHelper.DeleteRecord(SELECTED_RECORD_ID) End If @@ -3358,6 +3373,7 @@ Public Class frmConstructor_Main End If End Select End If + RIGHT_CONTROL_CHANGED = False Select Case TCDetails.SelectedTabPageIndex Case 0 ENTITY_RELOAD_AFT_CONTROL_LOAD = False @@ -5819,18 +5835,6 @@ Public Class frmConstructor_Main Return True End If - Dim RightControlsChanged As Boolean = - Dim expression As String - expression = "TYPE_NODE = 0" - Dim foundRowsLevel0() As DataRow - ' Use the Select method to find all rows matching the filter. - foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression) - Dim i As Integer - Dim NODE_CONFIG_ID - ' For each row create a Node - For i = 0 To foundRowsLevel0.GetUpperBound(0) - - Next Dim RequiredControlsFilled As Boolean = TrySave_RequiredControlsFilled() If RequiredControlsFilled = True Then @@ -5875,6 +5879,26 @@ Public Class frmConstructor_Main ' Änderungen sollen gespeichert werden If ShouldSave = DialogResult.Yes Then + + If RIGHT_CONTROL_CHANGED = True Then + Dim msg = "Achtung: " & vbNewLine & "Sie haben Änderungen an Rechte-relevanten Eingaben vorgenommen!" & vbNewLine & _ + "Alle Rechte der zu diesem Datensatz gespeicherten Dateien werden nach Speichern serverseitig und im Hintergrund überprüft!" & vbNewLine & _ + "Dies kann je nach Anzahl der Dateien bis zu 15 Minuten dauern! Wollen Sie fortfahren?" + If USER_LANGUAGE <> "de-DE" Then + msg = "Attention:" & "You applied changes to right-relevant data!" & vbNewLine & _ + "All rights of files belonging to this record will be checked and changed after Saving!" & vbNewLine & _ + "This might take up to 15 Minutes (related to the amount of files)! Would You like to continue?" + End If + Dim result As MsgBoxResult + result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.No Then + RIGHT_CONTROL_CHANGED = False + RECORD_CHANGED = False + Return True + End If + End If + + If CtrlCommandUI.IsInsert Then EDIT_STATE = EditState.None diff --git a/app/RecordOrganizer_RightManager/App.config b/app/RecordOrganizer_RightManager/App.config index 99beff1..123b1b2 100644 --- a/app/RecordOrganizer_RightManager/App.config +++ b/app/RecordOrganizer_RightManager/App.config @@ -5,6 +5,11 @@
+ + + diff --git a/app/RecordOrganizer_RightManager/My Project/Resources.Designer.vb b/app/RecordOrganizer_RightManager/My Project/Resources.Designer.vb index 324d584..cd43000 100644 --- a/app/RecordOrganizer_RightManager/My Project/Resources.Designer.vb +++ b/app/RecordOrganizer_RightManager/My Project/Resources.Designer.vb @@ -99,5 +99,15 @@ Namespace My.Resources Return CType(obj,System.Drawing.Bitmap) End Get End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property refresh_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("refresh_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property End Module End Namespace diff --git a/app/RecordOrganizer_RightManager/My Project/Resources.resx b/app/RecordOrganizer_RightManager/My Project/Resources.resx index fc54ec8..739dece 100644 --- a/app/RecordOrganizer_RightManager/My Project/Resources.resx +++ b/app/RecordOrganizer_RightManager/My Project/Resources.resx @@ -124,10 +124,13 @@ ..\Resources\folder_Closed_16xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\cancel1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\112_RightArrowShort_Blue_24x24_72.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\cancel1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/app/RecordOrganizer_RightManager/My Project/Settings.Designer.vb b/app/RecordOrganizer_RightManager/My Project/Settings.Designer.vb index fa1a6f8..fbf7bce 100644 --- a/app/RecordOrganizer_RightManager/My Project/Settings.Designer.vb +++ b/app/RecordOrganizer_RightManager/My Project/Settings.Designer.vb @@ -66,6 +66,17 @@ Namespace My Me("MyConnectionString") = value End Set End Property + + _ + Public ReadOnly Property DD_ECMConnectionString() As String + Get + Return CType(Me("DD_ECMConnectionString"),String) + End Get + End Property End Class End Namespace diff --git a/app/RecordOrganizer_RightManager/My Project/Settings.settings b/app/RecordOrganizer_RightManager/My Project/Settings.settings index 9a8c44f..0f1d56a 100644 --- a/app/RecordOrganizer_RightManager/My Project/Settings.settings +++ b/app/RecordOrganizer_RightManager/My Project/Settings.settings @@ -5,5 +5,13 @@ + + <?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_RENOLIT;User ID=sa;Password=dd</ConnectionString> + <ProviderName>System.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;User ID=sa;Password=dd + \ No newline at end of file diff --git a/app/RecordOrganizer_RightManager/My Project/licenses.licx b/app/RecordOrganizer_RightManager/My Project/licenses.licx new file mode 100644 index 0000000..16b05ba --- /dev/null +++ b/app/RecordOrganizer_RightManager/My Project/licenses.licx @@ -0,0 +1 @@ +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/RecordOrganizer_RightManager/MyDataset.Designer.vb b/app/RecordOrganizer_RightManager/MyDataset.Designer.vb new file mode 100644 index 0000000..a54615f --- /dev/null +++ b/app/RecordOrganizer_RightManager/MyDataset.Designer.vb @@ -0,0 +1,1365 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34209 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class MyDataset + Inherits Global.System.Data.DataSet + + Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New() + Me.BeginInit() + Me.InitClass() + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit() + 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, False) + If (Me.IsBinarySerialized(info, context) = True) Then + Me.InitVars(False) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + 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 + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property VWPMO_RIGHTS_2B_WORKED() As VWPMO_RIGHTS_2B_WORKEDDataTable + Get + Return Me.tableVWPMO_RIGHTS_2B_WORKED + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set(value As Global.System.Data.SchemaSerializationMode) + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As MyDataset = CType(MyBase.Clone, MyDataset) + cln.InitVars() + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return False + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return False + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset() + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + 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 + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() + Else + Me.ReadXml(reader) + Me.InitVars() + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(True) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableVWPMO_RIGHTS_2B_WORKED = CType(MyBase.Tables("VWPMO_RIGHTS_2B_WORKED"), VWPMO_RIGHTS_2B_WORKEDDataTable) + If (initTable = True) Then + If (Not (Me.tableVWPMO_RIGHTS_2B_WORKED) Is Nothing) Then + Me.tableVWPMO_RIGHTS_2B_WORKED.InitVars() + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "MyDataset" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/MyDataset.xsd" + Me.EnforceConstraints = True + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableVWPMO_RIGHTS_2B_WORKED = New VWPMO_RIGHTS_2B_WORKEDDataTable() + MyBase.Tables.Add(Me.tableVWPMO_RIGHTS_2B_WORKED) + End Sub + + _ + Private Function ShouldSerializeVWPMO_RIGHTS_2B_WORKED() As Boolean + Return False + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars() + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As MyDataset = New MyDataset() + 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 any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + 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 + + _ + Public Delegate Sub VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHTS_2B_WORKEDRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWPMO_RIGHTS_2B_WORKEDDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_RIGHTS_2B_WORKEDRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOC_ID As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnRIGHT_MODIFY As Global.System.Data.DataColumn + + Private columnFILE_RIGHT As Global.System.Data.DataColumn + + Private columnWORKING As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "VWPMO_RIGHTS_2B_WORKED" + 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 DOC_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOC_ID + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property RIGHT_MODIFYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRIGHT_MODIFY + End Get + End Property + + _ + Public ReadOnly Property FILE_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE_RIGHT + End Get + End Property + + _ + Public ReadOnly Property WORKINGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWORKING + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As VWPMO_RIGHTS_2B_WORKEDRow + Get + Return CType(Me.Rows(index), VWPMO_RIGHTS_2B_WORKEDRow) + End Get + End Property + + _ + Public Event VWPMO_RIGHTS_2B_WORKEDRowChanging As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler + + _ + Public Event VWPMO_RIGHTS_2B_WORKEDRowChanged As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler + + _ + Public Event VWPMO_RIGHTS_2B_WORKEDRowDeleting As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler + + _ + Public Event VWPMO_RIGHTS_2B_WORKEDRowDeleted As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler + + _ + Public Overloads Sub AddVWPMO_RIGHTS_2B_WORKEDRow(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPMO_RIGHTS_2B_WORKEDRow(ByVal GUID As Integer, ByVal DOC_ID As Integer, ByVal USERNAME As String, ByVal RIGHT_MODIFY As String, ByVal FILE_RIGHT As String, ByVal WORKING As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As VWPMO_RIGHTS_2B_WORKEDRow + Dim rowVWPMO_RIGHTS_2B_WORKEDRow As VWPMO_RIGHTS_2B_WORKEDRow = CType(Me.NewRow, VWPMO_RIGHTS_2B_WORKEDRow) + Dim columnValuesArray() As Object = New Object() {GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WHO, ADDED_WHEN} + rowVWPMO_RIGHTS_2B_WORKEDRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_RIGHTS_2B_WORKEDRow) + Return rowVWPMO_RIGHTS_2B_WORKEDRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_RIGHTS_2B_WORKEDRow + Return CType(Me.Rows.Find(New Object() {GUID}), VWPMO_RIGHTS_2B_WORKEDRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPMO_RIGHTS_2B_WORKEDDataTable = CType(MyBase.Clone, VWPMO_RIGHTS_2B_WORKEDDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPMO_RIGHTS_2B_WORKEDDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOC_ID = MyBase.Columns("DOC_ID") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnRIGHT_MODIFY = MyBase.Columns("RIGHT_MODIFY") + Me.columnFILE_RIGHT = MyBase.Columns("FILE_RIGHT") + Me.columnWORKING = MyBase.Columns("WORKING") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_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.columnDOC_ID = New Global.System.Data.DataColumn("DOC_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOC_ID) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnRIGHT_MODIFY = New Global.System.Data.DataColumn("RIGHT_MODIFY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRIGHT_MODIFY) + Me.columnFILE_RIGHT = New Global.System.Data.DataColumn("FILE_RIGHT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE_RIGHT) + Me.columnWORKING = New Global.System.Data.DataColumn("WORKING", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKING) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AllowDBNull = False + Me.columnGUID.Unique = True + Me.columnDOC_ID.AllowDBNull = False + Me.columnUSERNAME.AllowDBNull = False + Me.columnUSERNAME.MaxLength = 50 + Me.columnRIGHT_MODIFY.AllowDBNull = False + Me.columnRIGHT_MODIFY.MaxLength = 30 + Me.columnFILE_RIGHT.ReadOnly = True + Me.columnFILE_RIGHT.MaxLength = 100 + Me.columnWORKING.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False + Me.columnADDED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWPMO_RIGHTS_2B_WORKEDRow() As VWPMO_RIGHTS_2B_WORKEDRow + Return CType(Me.NewRow, VWPMO_RIGHTS_2B_WORKEDRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPMO_RIGHTS_2B_WORKEDRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPMO_RIGHTS_2B_WORKEDRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowChanged(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row, VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowChanging(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row, VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowDeleted(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row, VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowDeleting(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row, VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPMO_RIGHTS_2B_WORKEDRow(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow) + 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 MyDataset = New MyDataset() + 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 = "VWPMO_RIGHTS_2B_WORKEDDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPMO_RIGHTS_2B_WORKEDRow + Inherits Global.System.Data.DataRow + + Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_RIGHTS_2B_WORKED = CType(Me.Table, VWPMO_RIGHTS_2B_WORKEDDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOC_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.DOC_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.DOC_IDColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.USERNAMEColumn), String) + End Get + Set(value As String) + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property RIGHT_MODIFY() As String + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.RIGHT_MODIFYColumn), String) + End Get + Set(value As String) + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.RIGHT_MODIFYColumn) = value + End Set + End Property + + _ + Public Property FILE_RIGHT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_RIGHT in Tabelle VWPMO_RIGHTS_2B_WORKED ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) = value + End Set + End Property + + _ + Public Property WORKING() As Boolean + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.WORKINGColumn), Boolean) + End Get + Set(value As Boolean) + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.WORKINGColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHOColumn), String) + End Get + Set(value As String) + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWPMO_RIGHTS_2B_WORKED ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsFILE_RIGHTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) + End Function + + _ + Public Sub SetFILE_RIGHTNull() + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_RIGHTS_2B_WORKEDRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_RIGHTS_2B_WORKEDRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_RIGHTS_2B_WORKEDRow + 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 MyDatasetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_RIGHTS_2B_WORKEDTableAdapter + 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(value As Global.System.Data.SqlClient.SqlConnection) + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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(value As Boolean) + 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 = "VWPMO_RIGHTS_2B_WORKED" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOC_ID", "DOC_ID") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("RIGHT_MODIFY", "RIGHT_MODIFY") + tableMapping.ColumnMappings.Add("FILE_RIGHT", "FILE_RIGHT") + tableMapping.ColumnMappings.Add("WORKING", "WORKING") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.RecordOrganizer_RightManager.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WH" & _ + "O, ADDED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWPMO_RIGHTS_2B_WORKED" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.VWPMO_RIGHTS_2B_WORKEDDataTable) 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 Overridable Overloads Function GetData() As MyDataset.VWPMO_RIGHTS_2B_WORKEDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.VWPMO_RIGHTS_2B_WORKEDDataTable = New MyDataset.VWPMO_RIGHTS_2B_WORKEDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set(value As UpdateOrderOption) + Me._updateOrder = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set(value As Boolean) + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + Return Nothing + End Get + Set(value As Global.System.Data.IDbConnection) + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = False) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = False) Then + Return 0 + 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" & _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ + "t.") + End If + Dim workConnOpened As Boolean = False + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close() + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open() + workConnOpened = True + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit() + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback() + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear() + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges() + row.SetAdded() + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close() + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = True + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return True + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return True + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return True + End If + Return False + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New() + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear() + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/app/RecordOrganizer_RightManager/MyDataset.xsc b/app/RecordOrganizer_RightManager/MyDataset.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/app/RecordOrganizer_RightManager/MyDataset.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/app/RecordOrganizer_RightManager/MyDataset.xsd b/app/RecordOrganizer_RightManager/MyDataset.xsd new file mode 100644 index 0000000..2c83330 --- /dev/null +++ b/app/RecordOrganizer_RightManager/MyDataset.xsd @@ -0,0 +1,87 @@ + + + + + + + + + + + + + + + SELECT GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WHO, ADDED_WHEN +FROM VWPMO_RIGHTS_2B_WORKED + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/RecordOrganizer_RightManager/MyDataset.xss b/app/RecordOrganizer_RightManager/MyDataset.xss new file mode 100644 index 0000000..4400e57 --- /dev/null +++ b/app/RecordOrganizer_RightManager/MyDataset.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/app/RecordOrganizer_RightManager/RecordOrganizer_RightManager.vbproj b/app/RecordOrganizer_RightManager/RecordOrganizer_RightManager.vbproj index 7eab038..f9a80e9 100644 --- a/app/RecordOrganizer_RightManager/RecordOrganizer_RightManager.vbproj +++ b/app/RecordOrganizer_RightManager/RecordOrganizer_RightManager.vbproj @@ -53,10 +53,21 @@ ..\..\..\DDLibraries\app\DD_Libraries\bin\Debug\DD_Rights.dll + + + + + + + + + + + @@ -119,6 +130,11 @@ Settings.settings True + + True + True + MyDataset.xsd + @@ -133,6 +149,7 @@ frmStart.vb + VbMyResourcesResXFileCodeGenerator Resources.Designer.vb @@ -153,6 +170,17 @@ + + MyDataset.xsd + + + Designer + MSDataSetGenerator + MyDataset.Designer.vb + + + MyDataset.xsd + @@ -163,6 +191,7 @@ + diff --git a/app/RecordOrganizer_RightManager/Resources/refresh_16xMD.png b/app/RecordOrganizer_RightManager/Resources/refresh_16xMD.png new file mode 100644 index 0000000..8612d8c Binary files /dev/null and b/app/RecordOrganizer_RightManager/Resources/refresh_16xMD.png differ diff --git a/app/RecordOrganizer_RightManager/frmStart.Designer.vb b/app/RecordOrganizer_RightManager/frmStart.Designer.vb index 8345c20..76d7e3d 100644 --- a/app/RecordOrganizer_RightManager/frmStart.Designer.vb +++ b/app/RecordOrganizer_RightManager/frmStart.Designer.vb @@ -27,12 +27,40 @@ Partial Class frmStart Me.btnWorkUserRights = New System.Windows.Forms.Button() Me.btnWorkUserRightsSV_ADD = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.btnrefreshJobs = New System.Windows.Forms.Button() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.VWPMO_RIGHTS_2B_WORKEDBindingSource = New System.Windows.Forms.BindingSource() + Me.MyDataset = New RecordOrganizer_RightManager.MyDataset() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDOC_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRIGHT_MODIFY = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFILE_RIGHT = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colWORKING = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label1 = New System.Windows.Forms.Label() + Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter = New RecordOrganizer_RightManager.MyDatasetTableAdapters.VWPMO_RIGHTS_2B_WORKEDTableAdapter() + Me.TableAdapterManager = New RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager() + Me.chkLogerrorsonly = New System.Windows.Forms.CheckBox() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + Me.XtraTabPage2.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_RIGHTS_2B_WORKEDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Button1 ' Me.Button1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button1.Location = New System.Drawing.Point(12, 12) + Me.Button1.Location = New System.Drawing.Point(3, 14) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(312, 45) Me.Button1.TabIndex = 0 @@ -43,7 +71,7 @@ Partial Class frmStart ' Me.btnWorkUserRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnWorkUserRights.ForeColor = System.Drawing.Color.DarkRed - Me.btnWorkUserRights.Location = New System.Drawing.Point(12, 63) + Me.btnWorkUserRights.Location = New System.Drawing.Point(3, 65) Me.btnWorkUserRights.Name = "btnWorkUserRights" Me.btnWorkUserRights.Size = New System.Drawing.Size(312, 45) Me.btnWorkUserRights.TabIndex = 2 @@ -54,7 +82,7 @@ Partial Class frmStart ' Me.btnWorkUserRightsSV_ADD.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnWorkUserRightsSV_ADD.ForeColor = System.Drawing.Color.DarkRed - Me.btnWorkUserRightsSV_ADD.Location = New System.Drawing.Point(12, 114) + Me.btnWorkUserRightsSV_ADD.Location = New System.Drawing.Point(3, 116) Me.btnWorkUserRightsSV_ADD.Name = "btnWorkUserRightsSV_ADD" Me.btnWorkUserRightsSV_ADD.Size = New System.Drawing.Size(312, 45) Me.btnWorkUserRightsSV_ADD.TabIndex = 3 @@ -63,9 +91,10 @@ Partial Class frmStart ' 'Button2 ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button2.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.folder_Closed_16xSM Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(706, 23) + Me.Button2.Location = New System.Drawing.Point(703, 14) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(111, 23) Me.Button2.TabIndex = 1 @@ -73,20 +102,213 @@ Partial Class frmStart Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.UseVisualStyleBackColor = True ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(827, 332) + Me.XtraTabControl1.TabIndex = 4 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.chkLogerrorsonly) + Me.XtraTabPage1.Controls.Add(Me.Button1) + Me.XtraTabPage1.Controls.Add(Me.Button2) + Me.XtraTabPage1.Controls.Add(Me.btnWorkUserRightsSV_ADD) + Me.XtraTabPage1.Controls.Add(Me.btnWorkUserRights) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(821, 304) + Me.XtraTabPage1.Text = "Jobs and Tools" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.AutoScroll = True + Me.XtraTabPage2.Controls.Add(Me.btnrefreshJobs) + Me.XtraTabPage2.Controls.Add(Me.GridControl1) + Me.XtraTabPage2.Controls.Add(Me.Label1) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(821, 304) + Me.XtraTabPage2.Text = "Rights 2b worked" + ' + 'btnrefreshJobs + ' + Me.btnrefreshJobs.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnrefreshJobs.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.refresh_16xMD + Me.btnrefreshJobs.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnrefreshJobs.Location = New System.Drawing.Point(739, 5) + Me.btnrefreshJobs.Name = "btnrefreshJobs" + Me.btnrefreshJobs.Size = New System.Drawing.Size(75, 23) + Me.btnrefreshJobs.TabIndex = 2 + Me.btnrefreshJobs.Text = "Refresh" + Me.btnrefreshJobs.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnrefreshJobs.UseVisualStyleBackColor = True + ' + 'GridControl1 + ' + Me.GridControl1.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.GridControl1.DataSource = Me.VWPMO_RIGHTS_2B_WORKEDBindingSource + Me.GridControl1.Location = New System.Drawing.Point(11, 34) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(803, 263) + Me.GridControl1.TabIndex = 1 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'VWPMO_RIGHTS_2B_WORKEDBindingSource + ' + Me.VWPMO_RIGHTS_2B_WORKEDBindingSource.DataMember = "VWPMO_RIGHTS_2B_WORKED" + Me.VWPMO_RIGHTS_2B_WORKEDBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GridView1 + ' + Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colDOC_ID, Me.colUSERNAME, Me.colRIGHT_MODIFY, Me.colFILE_RIGHT, Me.colWORKING, Me.colADDED_WHO, Me.colADDED_WHEN}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsBehavior.Editable = False + Me.GridView1.OptionsBehavior.ReadOnly = True + Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridView1.OptionsView.ColumnAutoWidth = False + Me.GridView1.OptionsView.EnableAppearanceEvenRow = True + Me.GridView1.OptionsView.ShowAutoFilterRow = True + ' + 'colGUID + ' + Me.colGUID.Caption = "ID" + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 0 + Me.colGUID.Width = 43 + ' + 'colDOC_ID + ' + Me.colDOC_ID.Caption = "DocID" + Me.colDOC_ID.FieldName = "DOC_ID" + Me.colDOC_ID.Name = "colDOC_ID" + Me.colDOC_ID.Visible = True + Me.colDOC_ID.VisibleIndex = 1 + Me.colDOC_ID.Width = 56 + ' + 'colUSERNAME + ' + Me.colUSERNAME.Caption = "Username" + Me.colUSERNAME.FieldName = "USERNAME" + Me.colUSERNAME.Name = "colUSERNAME" + Me.colUSERNAME.Visible = True + Me.colUSERNAME.VisibleIndex = 2 + Me.colUSERNAME.Width = 155 + ' + 'colRIGHT_MODIFY + ' + Me.colRIGHT_MODIFY.Caption = "Type" + Me.colRIGHT_MODIFY.FieldName = "RIGHT_MODIFY" + Me.colRIGHT_MODIFY.Name = "colRIGHT_MODIFY" + Me.colRIGHT_MODIFY.Visible = True + Me.colRIGHT_MODIFY.VisibleIndex = 3 + Me.colRIGHT_MODIFY.Width = 120 + ' + 'colFILE_RIGHT + ' + Me.colFILE_RIGHT.Caption = "file right" + Me.colFILE_RIGHT.FieldName = "FILE_RIGHT" + Me.colFILE_RIGHT.Name = "colFILE_RIGHT" + Me.colFILE_RIGHT.Visible = True + Me.colFILE_RIGHT.VisibleIndex = 4 + Me.colFILE_RIGHT.Width = 151 + ' + 'colWORKING + ' + Me.colWORKING.Caption = "working?" + Me.colWORKING.FieldName = "WORKING" + Me.colWORKING.Name = "colWORKING" + Me.colWORKING.Visible = True + Me.colWORKING.VisibleIndex = 5 + Me.colWORKING.Width = 52 + ' + 'colADDED_WHO + ' + Me.colADDED_WHO.Caption = "Added who" + Me.colADDED_WHO.FieldName = "ADDED_WHO" + Me.colADDED_WHO.Name = "colADDED_WHO" + Me.colADDED_WHO.Visible = True + Me.colADDED_WHO.VisibleIndex = 6 + Me.colADDED_WHO.Width = 73 + ' + 'colADDED_WHEN + ' + Me.colADDED_WHEN.Caption = "Added when" + Me.colADDED_WHEN.FieldName = "ADDED_WHEN" + Me.colADDED_WHEN.Name = "colADDED_WHEN" + Me.colADDED_WHEN.Visible = True + Me.colADDED_WHEN.VisibleIndex = 7 + Me.colADDED_WHEN.Width = 134 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(11, 10) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(536, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Following rights will be set within the next minutes. If not check wether Servic" & _ + "e DD Rights Manager is running." + ' + 'VWPMO_RIGHTS_2B_WORKEDTableAdapter + ' + Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.UpdateOrder = RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'chkLogerrorsonly + ' + Me.chkLogerrorsonly.AutoSize = True + Me.chkLogerrorsonly.Location = New System.Drawing.Point(624, 43) + Me.chkLogerrorsonly.Name = "chkLogerrorsonly" + Me.chkLogerrorsonly.Size = New System.Drawing.Size(190, 17) + Me.chkLogerrorsonly.TabIndex = 4 + Me.chkLogerrorsonly.Text = "Service DDRights - Log errors only" + Me.chkLogerrorsonly.UseVisualStyleBackColor = True + ' 'frmStart ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(829, 173) - Me.Controls.Add(Me.btnWorkUserRightsSV_ADD) - Me.Controls.Add(Me.btnWorkUserRights) - Me.Controls.Add(Me.Button2) - Me.Controls.Add(Me.Button1) + Me.ClientSize = New System.Drawing.Size(827, 332) + Me.Controls.Add(Me.XtraTabControl1) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmStart" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Rights Manager" + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + Me.XtraTabPage2.ResumeLayout(False) + Me.XtraTabPage2.PerformLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_RIGHTS_2B_WORKEDBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -94,5 +316,25 @@ Partial Class frmStart Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents btnWorkUserRights As System.Windows.Forms.Button Friend WithEvents btnWorkUserRightsSV_ADD As System.Windows.Forms.Button + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents MyDataset As RecordOrganizer_RightManager.MyDataset + Friend WithEvents VWPMO_RIGHTS_2B_WORKEDBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_RIGHTS_2B_WORKEDTableAdapter As RecordOrganizer_RightManager.MyDatasetTableAdapters.VWPMO_RIGHTS_2B_WORKEDTableAdapter + Friend WithEvents TableAdapterManager As RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents btnrefreshJobs As System.Windows.Forms.Button + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDOC_ID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRIGHT_MODIFY As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFILE_RIGHT As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colWORKING As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents chkLogerrorsonly As System.Windows.Forms.CheckBox End Class diff --git a/app/RecordOrganizer_RightManager/frmStart.resx b/app/RecordOrganizer_RightManager/frmStart.resx index 06848e7..5097f6d 100644 --- a/app/RecordOrganizer_RightManager/frmStart.resx +++ b/app/RecordOrganizer_RightManager/frmStart.resx @@ -117,6 +117,18 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 127, 17 + + + 17, 17 + + + 424, 17 + + + 716, 17 + diff --git a/app/RecordOrganizer_RightManager/frmStart.vb b/app/RecordOrganizer_RightManager/frmStart.vb index eaf4155..28e75ec 100644 --- a/app/RecordOrganizer_RightManager/frmStart.vb +++ b/app/RecordOrganizer_RightManager/frmStart.vb @@ -1,12 +1,14 @@ Imports DD_Rights Public Class frmStart Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load + Try DD_Rights.ClassLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName) If DD_Rights.ClassDatabase.Init(My.Settings.MyConnectionString) = False Then MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical) Me.Close() End If + chkLogerrorsonly.Checked = CBool(ClassDatabase.Execute_Scalar("SELECT LOG_ERR_ONLY_RIGHTS_MANAGER FROM TBPMO_KONFIGURATION WHERE GUID = 1")) Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName) ClassLogger.Add(">> Login at: " & Now.ToString, False) ClassLogger.Add(">> Username: " & Environment.UserName, False) @@ -109,4 +111,39 @@ Public Class frmStart frmSupervisorEntity.ShowDialog() Check_USER_REWORK() End Sub + + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + Select Case XtraTabControl1.SelectedTabPageIndex + Case 1 + Load_jobs() + End Select + End Sub + Sub Load_Jobs() + Try + Cursor = Cursors.WaitCursor + Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString + Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter.Fill(Me.MyDataset.VWPMO_RIGHTS_2B_WORKED) + If MyDataset.VWPMO_RIGHTS_2B_WORKED.Rows.Count > 0 Then + XtraTabPage2.Text = "Rights 2b worked (" & MyDataset.VWPMO_RIGHTS_2B_WORKED.Rows.Count.ToString & " rights waiting)" + End If + + Catch ex As Exception + ClassLogger.Add("Unexpected Error in Load_Jobs: " & ex.Message, True) + MsgBox("Unexpected Error in Load_Jobs: " & ex.Message, MsgBoxStyle.Critical) + End Try + Cursor = Cursors.Default + End Sub + + Private Sub btnrefreshJobs_Click(sender As Object, e As EventArgs) Handles btnrefreshJobs.Click + Load_Jobs() + End Sub + + Private Sub chkLogerrorsonly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogerrorsonly.CheckedChanged + Dim _set = 0 + If chkLogerrorsonly.Checked Then + _set = 1 + End If + Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET LOG_ERR_ONLY_RIGHTS_MANAGER = {0} where GUID = 1", _set) + ClassDatabase.Execute_non_Query(upd) + End Sub End Class