From bd084a007201c6c97b7da7779c2aba7d0a9f0c12 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Thu, 23 May 2024 17:14:14 +0200 Subject: [PATCH] MS V 3.1.3 Beta RightGroups und NodeConfig-Adding --- app/DD-Record-Organizer/App.config | 2 +- .../DD_ECMAdmin.Designer.vb | 3518 +++++++++++------ app/DD-Record-Organizer/DD_ECMAdmin.xsc | 31 +- app/DD-Record-Organizer/DD_ECMAdmin.xsd | 441 ++- app/DD-Record-Organizer/DD_ECMAdmin.xss | 43 +- .../My Project/AssemblyInfo.vb | 2 +- .../My Project/Settings.Designer.vb | 4 +- .../My Project/Settings.Settings | 4 +- app/DD-Record-Organizer/OrgFlow.vbproj | 9 + .../frmDoc_Links.Designer.vb | 34 +- app/DD-Record-Organizer/frmDoc_Links.resx | 100 +- app/DD-Record-Organizer/frmDoc_Links.vb | 69 + .../frmNodeConfigAdd.Designer.vb | 163 + app/DD-Record-Organizer/frmNodeConfigAdd.resx | 120 + app/DD-Record-Organizer/frmNodeConfigAdd.vb | 23 + app/DD-Record-Organizer/frmNodeNavigation.vb | 7 +- .../frmRight_Management.Designer.vb | 736 ++-- .../frmRight_Management.resx | 1357 ++++--- .../frmRight_Management.vb | 166 +- .../frmStructureNodeConfig.Designer.vb | 67 +- .../frmStructureNodeConfig.resx | 33 +- .../frmStructureNodeConfig.vb | 27 +- 22 files changed, 4416 insertions(+), 2540 deletions(-) create mode 100644 app/DD-Record-Organizer/frmNodeConfigAdd.Designer.vb create mode 100644 app/DD-Record-Organizer/frmNodeConfigAdd.resx create mode 100644 app/DD-Record-Organizer/frmNodeConfigAdd.vb diff --git a/app/DD-Record-Organizer/App.config b/app/DD-Record-Organizer/App.config index d2e7afe..7c092e0 100644 --- a/app/DD-Record-Organizer/App.config +++ b/app/DD-Record-Organizer/App.config @@ -11,7 +11,7 @@ diff --git a/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb index 26384df..c399aa3 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb @@ -53,6 +53,8 @@ Partial Public Class DD_ECMAdmin Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + Private tableVWPMO_RIGHT_GROUP As VWPMO_RIGHT_GROUPDataTable + Private tableDT_VORSCHAU As DT_VORSCHAUDataTable Private tableTBAD_Users As TBAD_UsersDataTable @@ -136,6 +138,9 @@ Partial Public Class DD_ECMAdmin If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS"))) End If + If (Not (ds.Tables("VWPMO_RIGHT_GROUP")) Is Nothing) Then + MyBase.Tables.Add(New VWPMO_RIGHT_GROUPDataTable(ds.Tables("VWPMO_RIGHT_GROUP"))) + End If If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU"))) End If @@ -305,6 +310,16 @@ Partial Public Class DD_ECMAdmin End Get End Property + _ + Public ReadOnly Property VWPMO_RIGHT_GROUP() As VWPMO_RIGHT_GROUPDataTable + Get + Return Me.tableVWPMO_RIGHT_GROUP + End Get + End Property + _ + Private Function ShouldSerializeVWPMO_RIGHT_GROUP() As Boolean + Return false + End Function + _ Private Function ShouldSerializeDT_VORSCHAU() As Boolean @@ -868,6 +900,9 @@ Partial Public Class DD_ECMAdmin _ Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent) + _ + Public Delegate Sub VWPMO_RIGHT_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHT_GROUPRowChangeEvent) + _ Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent) @@ -6462,16 +6497,44 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class DT_VORSCHAUDataTable - Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) + Partial Public Class VWPMO_RIGHT_GROUPDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_RIGHT_GROUPRow) - Private columnVALUE As Global.System.Data.DataColumn + Private columnID As Global.System.Data.DataColumn + + Private columnENTITY_ID As Global.System.Data.DataColumn + + Private columnENTITY_NAME As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnGROUP_NAME As Global.System.Data.DataColumn + + Private columnEDIT_REC As Global.System.Data.DataColumn + + Private columnADD_REC As Global.System.Data.DataColumn + + Private columnDELETE_REC As Global.System.Data.DataColumn + + Private columnADD_DOC As Global.System.Data.DataColumn + + Private columnVIEW_DOC As Global.System.Data.DataColumn + + Private columnDELETE_DOC As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "DT_VORSCHAU" + Me.TableName = "VWPMO_RIGHT_GROUP" Me.BeginInit Me.InitClass Me.EndInit @@ -6504,9 +6567,121 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnVALUE + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_ID + End Get + End Property + + _ + Public ReadOnly Property ENTITY_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_NAME + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_NAME + End Get + End Property + + _ + Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEDIT_REC + End Get + End Property + + _ + Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADD_REC + End Get + End Property + + _ + Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETE_REC + End Get + End Property + + _ + Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADD_DOC + End Get + End Property + + _ + Public ReadOnly Property VIEW_DOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVIEW_DOC + End Get + End Property + + _ + Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETE_DOC + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN End Get End Property @@ -6521,44 +6696,50 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_RIGHT_GROUPRow Get - Return CType(Me.Rows(index),DT_VORSCHAURow) + Return CType(Me.Rows(index),VWPMO_RIGHT_GROUPRow) End Get End Property _ - Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler + Public Event VWPMO_RIGHT_GROUPRowChanging As VWPMO_RIGHT_GROUPRowChangeEventHandler _ - Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler + Public Event VWPMO_RIGHT_GROUPRowChanged As VWPMO_RIGHT_GROUPRowChangeEventHandler _ - Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler + Public Event VWPMO_RIGHT_GROUPRowDeleting As VWPMO_RIGHT_GROUPRowChangeEventHandler _ - Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler + Public Event VWPMO_RIGHT_GROUPRowDeleted As VWPMO_RIGHT_GROUPRowChangeEventHandler _ - Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) + Public Overloads Sub AddVWPMO_RIGHT_GROUPRow(ByVal row As VWPMO_RIGHT_GROUPRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow - Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow,DT_VORSCHAURow) - Dim columnValuesArray() As Object = New Object() {VALUE} - rowDT_VORSCHAURow.ItemArray = columnValuesArray - Me.Rows.Add(rowDT_VORSCHAURow) - Return rowDT_VORSCHAURow + Public Overloads Function AddVWPMO_RIGHT_GROUPRow(ByVal ID As Integer, ByVal ENTITY_ID As Integer, ByVal ENTITY_NAME As String, ByVal GROUP_ID As Integer, ByVal GROUP_NAME As String, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_RIGHT_GROUPRow + Dim rowVWPMO_RIGHT_GROUPRow As VWPMO_RIGHT_GROUPRow = CType(Me.NewRow,VWPMO_RIGHT_GROUPRow) + Dim columnValuesArray() As Object = New Object() {ID, ENTITY_ID, ENTITY_NAME, GROUP_ID, GROUP_NAME, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowVWPMO_RIGHT_GROUPRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_RIGHT_GROUPRow) + Return rowVWPMO_RIGHT_GROUPRow + End Function + + _ + Public Function FindByIDENTITY_IDGROUP_ID(ByVal ID As Integer, ByVal ENTITY_ID As Integer, ByVal GROUP_ID As Integer) As VWPMO_RIGHT_GROUPRow + Return CType(Me.Rows.Find(New Object() {ID, ENTITY_ID, GROUP_ID}),VWPMO_RIGHT_GROUPRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone,DT_VORSCHAUDataTable) + Dim cln As VWPMO_RIGHT_GROUPDataTable = CType(MyBase.Clone,VWPMO_RIGHT_GROUPDataTable) cln.InitVars Return cln End Function @@ -6566,46 +6747,103 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New DT_VORSCHAUDataTable() + Return New VWPMO_RIGHT_GROUPDataTable() End Function _ Friend Sub InitVars() - Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnID = MyBase.Columns("ID") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + Me.columnENTITY_NAME = MyBase.Columns("ENTITY_NAME") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnGROUP_NAME = MyBase.Columns("GROUP_NAME") + Me.columnEDIT_REC = MyBase.Columns("EDIT_REC") + Me.columnADD_REC = MyBase.Columns("ADD_REC") + Me.columnDELETE_REC = MyBase.Columns("DELETE_REC") + Me.columnADD_DOC = MyBase.Columns("ADD_DOC") + Me.columnVIEW_DOC = MyBase.Columns("VIEW_DOC") + Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() - Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVALUE) + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_ID) + Me.columnENTITY_NAME = New Global.System.Data.DataColumn("ENTITY_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_NAME) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnGROUP_NAME = New Global.System.Data.DataColumn("GROUP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_NAME) + Me.columnEDIT_REC = New Global.System.Data.DataColumn("EDIT_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEDIT_REC) + Me.columnADD_REC = New Global.System.Data.DataColumn("ADD_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADD_REC) + Me.columnDELETE_REC = New Global.System.Data.DataColumn("DELETE_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETE_REC) + Me.columnADD_DOC = New Global.System.Data.DataColumn("ADD_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADD_DOC) + Me.columnVIEW_DOC = New Global.System.Data.DataColumn("VIEW_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVIEW_DOC) + Me.columnDELETE_DOC = New Global.System.Data.DataColumn("DELETE_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETE_DOC) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID, Me.columnENTITY_ID, Me.columnGROUP_ID}, true)) + Me.columnID.AllowDBNull = false + Me.columnENTITY_ID.AllowDBNull = false + Me.columnENTITY_NAME.AllowDBNull = false + Me.columnENTITY_NAME.MaxLength = 100 + Me.columnGROUP_ID.AllowDBNull = false + Me.columnGROUP_NAME.MaxLength = 50 + Me.columnEDIT_REC.AllowDBNull = false + Me.columnADD_REC.AllowDBNull = false + Me.columnDELETE_REC.AllowDBNull = false + Me.columnADD_DOC.AllowDBNull = false + Me.columnVIEW_DOC.AllowDBNull = false + Me.columnDELETE_DOC.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow - Return CType(Me.NewRow,DT_VORSCHAURow) + Public Function NewVWPMO_RIGHT_GROUPRow() As VWPMO_RIGHT_GROUPRow + Return CType(Me.NewRow,VWPMO_RIGHT_GROUPRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New DT_VORSCHAURow(builder) + Return New VWPMO_RIGHT_GROUPRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(DT_VORSCHAURow) + Return GetType(VWPMO_RIGHT_GROUPRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.DT_VORSCHAURowChangedEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) + If (Not (Me.VWPMO_RIGHT_GROUPRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHT_GROUPRowChanged(Me, New VWPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,VWPMO_RIGHT_GROUPRow), e.Action)) End If End Sub @@ -6613,8 +6851,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) + If (Not (Me.VWPMO_RIGHT_GROUPRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHT_GROUPRowChanging(Me, New VWPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,VWPMO_RIGHT_GROUPRow), e.Action)) End If End Sub @@ -6622,8 +6860,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) + If (Not (Me.VWPMO_RIGHT_GROUPRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHT_GROUPRowDeleted(Me, New VWPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,VWPMO_RIGHT_GROUPRow), e.Action)) End If End Sub @@ -6631,14 +6869,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) + If (Not (Me.VWPMO_RIGHT_GROUPRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_RIGHT_GROUPRowDeleting(Me, New VWPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,VWPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ - Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) + Public Sub RemoveVWPMO_RIGHT_GROUPRow(ByVal row As VWPMO_RIGHT_GROUPRow) Me.Rows.Remove(row) End Sub @@ -6665,7 +6903,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "DT_VORSCHAUDataTable" + attribute2.FixedValue = "VWPMO_RIGHT_GROUPDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6714,26 +6952,16 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class TBAD_UsersDataTable - Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) - - Private columnSelect As Global.System.Data.DataColumn - - Private columnUsername As Global.System.Data.DataColumn - - Private columnPrename As Global.System.Data.DataColumn - - Private columnSurname As Global.System.Data.DataColumn - - Private columnEmail As Global.System.Data.DataColumn + Partial Public Class DT_VORSCHAUDataTable + Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) - Private columnID As Global.System.Data.DataColumn + Private columnVALUE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBAD_Users" + Me.TableName = "DT_VORSCHAU" Me.BeginInit Me.InitClass Me.EndInit @@ -6766,49 +6994,9 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSelect - End Get - End Property - - _ - Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUsername - End Get - End Property - - _ - Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPrename - End Get - End Property - - _ - Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSurname - End Get - End Property - - _ - Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEmail - End Get - End Property - - _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnID + Return Me.columnVALUE End Get End Property @@ -6823,44 +7011,44 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow + Public Default ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow Get - Return CType(Me.Rows(index),TBAD_UsersRow) + Return CType(Me.Rows(index),DT_VORSCHAURow) End Get End Property _ - Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler + Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler _ - Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler + Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler _ - Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler + Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler _ - Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler + Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler _ - Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) + Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow - Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) - Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} - rowTBAD_UsersRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBAD_UsersRow) - Return rowTBAD_UsersRow + Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow + Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow,DT_VORSCHAURow) + Dim columnValuesArray() As Object = New Object() {VALUE} + rowDT_VORSCHAURow.ItemArray = columnValuesArray + Me.Rows.Add(rowDT_VORSCHAURow) + Return rowDT_VORSCHAURow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) + Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone,DT_VORSCHAUDataTable) cln.InitVars Return cln End Function @@ -6868,65 +7056,46 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBAD_UsersDataTable() + Return New DT_VORSCHAUDataTable() End Function _ Friend Sub InitVars() - Me.columnSelect = MyBase.Columns("Select") - Me.columnUsername = MyBase.Columns("Username") - Me.columnPrename = MyBase.Columns("Prename") - Me.columnSurname = MyBase.Columns("Surname") - Me.columnEmail = MyBase.Columns("Email") - Me.columnID = MyBase.Columns("ID") + Me.columnVALUE = MyBase.Columns("VALUE") End Sub _ Private Sub InitClass() - Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") - Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") - MyBase.Columns.Add(Me.columnSelect) - Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUsername) - Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPrename) - Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSurname) - Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEmail) - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) End Sub _ - Public Function NewTBAD_UsersRow() As TBAD_UsersRow - Return CType(Me.NewRow,TBAD_UsersRow) + Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow + Return CType(Me.NewRow,DT_VORSCHAURow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBAD_UsersRow(builder) + Return New DT_VORSCHAURow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBAD_UsersRow) + Return GetType(DT_VORSCHAURow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + If (Not (Me.DT_VORSCHAURowChangedEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub @@ -6934,8 +7103,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub @@ -6943,8 +7112,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub @@ -6952,14 +7121,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub _ - Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) + Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) Me.Rows.Remove(row) End Sub @@ -6986,7 +7155,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBAD_UsersDataTable" + attribute2.FixedValue = "DT_VORSCHAUDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -7035,8 +7204,8 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class TBWH_Users1DataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_Users1Row) + Partial Public Class TBAD_UsersDataTable + Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) Private columnSelect As Global.System.Data.DataColumn @@ -7054,7 +7223,7 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBWH_Users1" + Me.TableName = "TBAD_Users" Me.BeginInit Me.InitClass Me.EndInit @@ -7144,44 +7313,44 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users1Row + Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow Get - Return CType(Me.Rows(index),TBWH_Users1Row) + Return CType(Me.Rows(index),TBAD_UsersRow) End Get End Property _ - Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler + Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler _ - Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler + Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler _ - Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler + Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler _ - Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler + Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler _ - Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row) + Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_Users1Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users1Row - Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow,TBWH_Users1Row) + Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow + Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} - rowTBWH_Users1Row.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_Users1Row) - Return rowTBWH_Users1Row + rowTBAD_UsersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBAD_UsersRow) + Return rowTBAD_UsersRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone,TBWH_Users1DataTable) + Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) cln.InitVars Return cln End Function @@ -7189,7 +7358,7 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_Users1DataTable() + Return New TBAD_UsersDataTable() End Function _ - Public Function NewTBWH_Users1Row() As TBWH_Users1Row - Return CType(Me.NewRow,TBWH_Users1Row) + Public Function NewTBAD_UsersRow() As TBAD_UsersRow + Return CType(Me.NewRow,TBAD_UsersRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_Users1Row(builder) + Return New TBAD_UsersRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_Users1Row) + Return GetType(TBAD_UsersRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_Users1RowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowChanged(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub @@ -7255,8 +7424,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_Users1RowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowChanging(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub @@ -7264,8 +7433,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_Users1RowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowDeleted(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub @@ -7273,14 +7442,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_Users1RowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowDeleting(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row) + Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Remove(row) End Sub @@ -7307,7 +7476,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_Users1DataTable" + attribute2.FixedValue = "TBAD_UsersDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -7356,8 +7525,8 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class TBWH_Users2DataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_Users2Row) + Partial Public Class TBWH_Users1DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_Users1Row) Private columnSelect As Global.System.Data.DataColumn @@ -7375,7 +7544,7 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBWH_Users2" + Me.TableName = "TBWH_Users1" Me.BeginInit Me.InitClass Me.EndInit @@ -7465,44 +7634,44 @@ Partial Public Class DD_ECMAdmin _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users2Row + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users1Row Get - Return CType(Me.Rows(index),TBWH_Users2Row) + Return CType(Me.Rows(index),TBWH_Users1Row) End Get End Property _ - Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler + Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler _ - Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler + Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler _ - Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler + Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler _ - Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler + Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler _ - Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row) + Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_Users2Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users2Row - Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow,TBWH_Users2Row) + Public Overloads Function AddTBWH_Users1Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users1Row + Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow,TBWH_Users1Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} - rowTBWH_Users2Row.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_Users2Row) - Return rowTBWH_Users2Row + rowTBWH_Users1Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_Users1Row) + Return rowTBWH_Users1Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone,TBWH_Users2DataTable) + Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone,TBWH_Users1DataTable) cln.InitVars Return cln End Function @@ -7510,7 +7679,7 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_Users2DataTable() + Return New TBWH_Users1DataTable() End Function _ - Public Function NewTBWH_Users2Row() As TBWH_Users2Row - Return CType(Me.NewRow,TBWH_Users2Row) + Public Function NewTBWH_Users1Row() As TBWH_Users1Row + Return CType(Me.NewRow,TBWH_Users1Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_Users2Row(builder) + Return New TBWH_Users1Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_Users2Row) + Return GetType(TBWH_Users1Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_Users2RowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowChanged(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + If (Not (Me.TBWH_Users1RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_Users1RowChanged(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub @@ -7576,8 +7745,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_Users2RowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowChanging(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + If (Not (Me.TBWH_Users1RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_Users1RowChanging(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub @@ -7585,8 +7754,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_Users2RowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowDeleted(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + If (Not (Me.TBWH_Users1RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_Users1RowDeleted(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub @@ -7594,14 +7763,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_Users2RowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowDeleting(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + If (Not (Me.TBWH_Users1RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_Users1RowDeleting(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row) + Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Remove(row) End Sub @@ -7628,7 +7797,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_Users2DataTable" + attribute2.FixedValue = "TBWH_Users1DataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -7673,1476 +7842,1466 @@ Partial Public Class DD_ECMAdmin End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBPMO_FORM_CONSTRUCTORRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBWH_Users2DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_Users2Row) - Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + Private columnSelect As Global.System.Data.DataColumn + + Private columnUsername As Global.System.Data.DataColumn + + Private columnPrename As Global.System.Data.DataColumn + + Private columnSurname As Global.System.Data.DataColumn + + Private columnEmail As Global.System.Data.DataColumn + + Private columnID As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBWH_Users2" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value - End Set - End Property + 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 _ - Public Property FORM_TITLE() As String - Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value - End Set - End Property + 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 Property SEQUENCE_MENU() As Integer + Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) + Return Me.columnSelect End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String) + Return Me.columnUsername End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value - End Set End Property _ - Public Property ADDED_WHEN() As Date + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) + Return Me.columnPrename End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value - End Set End Property _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnSurname End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnEmail End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value - End Set End Property _ - Public Property MENU_IMG() As Byte() + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn),Byte()) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnID End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value - End Set End Property _ - Public Property SHORT_TITLE() As String + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.Rows.Count End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value - End Set End Property _ - Public Property LANGUAGE() As String + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users2Row Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn),String) + Return CType(Me.Rows(index),TBWH_Users2Row) End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn) = value - End Set End Property + _ + Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler + + _ + Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler + + _ + Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler + + _ + Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler + _ - Public Property NODE_NAVIGATION() As Boolean - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.NODE_NAVIGATIONColumn),Boolean) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.NODE_NAVIGATIONColumn) = value - End Set - End Property + Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row) + Me.Rows.Add(row) + End Sub _ - Public Function IsFORM_TITLENull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) + Public Overloads Function AddTBWH_Users2Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users2Row + Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow,TBWH_Users2Row) + Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} + rowTBWH_Users2Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_Users2Row) + Return rowTBWH_Users2Row End Function _ - Public Sub SetFORM_TITLENull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull - End Sub + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone,TBWH_Users2DataTable) + cln.InitVars + Return cln + End Function _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_Users2DataTable() End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnSelect = MyBase.Columns("Select") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + Me.columnEmail = MyBase.Columns("Email") + Me.columnID = MyBase.Columns("ID") End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Private Sub InitClass() + Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnSelect.DefaultValue = CType(false,Boolean) End Sub _ - Public Function IsMENU_IMGNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) + Public Function NewTBWH_Users2Row() As TBWH_Users2Row + Return CType(Me.NewRow,TBWH_Users2Row) End Function _ - Public Sub SetMENU_IMGNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_Users2Row(builder) + End Function _ - Public Function IsSHORT_TITLENull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_Users2Row) End Function _ - Public Sub SetSHORT_TITLENull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_Users2RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_Users2RowChanged(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + End If End Sub _ - Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() - If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then - Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_Users2RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_Users2RowChanging(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow - Inherits Global.System.Data.DataRow - - Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + End Sub _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) - End Sub + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_Users2RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_Users2RowDeleted(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + End If + End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value - End Set - End Property + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_Users2RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_Users2RowDeleting(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + End If + End Sub _ - Public Property CONSTRUCT_ID() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value - End Set - End Property + Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row) + Me.Rows.Remove(row) + End Sub _ - Public Property FORM_ID() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value - End Set - End Property + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DD_ECMAdmin = New DD_ECMAdmin() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_Users2DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTORRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable _ - Public Property PARENT_ID() As Integer + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn),Integer) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value End Set End Property _ - Public Property LEVEL1_SELECT() As Boolean + Public Property FORM_TITLE() As String Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn),Boolean) + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value End Set End Property _ - Public Property SEQUENCE() As Integer + Public Property SEQUENCE_MENU() As Integer Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value End Set End Property _ - Public Property SQL_SELECT_EBENE1() As String + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value End Set End Property _ - Public Property SQL_SELECT_EBENE2() As String + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column),String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull"& _ - ".", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNul"& _ - "l.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property MENU_IMG() As Byte() Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn),Byte()) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu"& _ - "ll.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property SHORT_TITLE() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN"& _ - "ull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value End Set End Property _ - Public Property COLUMN_NAME1() As String + Public Property LANGUAGE() As String Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column),String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn),String) End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn) = value End Set End Property _ - Public Property COLUMN_NAME2() As String + Public Property NODE_NAVIGATION() As Boolean Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column),String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.NODE_NAVIGATIONColumn),Boolean) End Get Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.NODE_NAVIGATIONColumn) = value End Set End Property _ - Public Property LOAD_DIRECT() As Boolean - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn),Boolean) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn) = value - End Set - End Property + Public Function IsFORM_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) + End Function _ - Public Property SQL_QUICK_VIEW() As String - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn),String) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value - End Set - End Property + Public Sub SetFORM_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property CONTROL_DOCTYPE_MATCH() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn) = value - End Set - End Property + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) + End Function _ - Public Property SQL_RIGHT_READ_AND_VIEW_ONLY() As String - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn),String) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn) = value - End Set - End Property + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property SQL_RIGHT_WINDREAM_VIEW() As String - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_VIEWColumn),String) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_VIEWColumn) = value - End Set - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) + End Function _ - Public Property ADD_RECORDS() As Boolean - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADD_RECORDSColumn),Boolean) - End Get - Set - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADD_RECORDSColumn) = value - End Set - End Property - - _ - Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTORRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) - End Set - End Property - - _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) - End Function - - _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) + Public Function IsMENU_IMGNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetMENU_IMGNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) + Public Function IsSHORT_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetSHORT_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) + Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + End If End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_CONNECTIONRow + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow Inherits Global.System.Data.DataRow - Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) End Sub _ - Public Property GUID() As Short + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value End Set End Property _ - Public Property BEZEICHNUNG() As String + Public Property CONSTRUCT_ID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value End Set End Property _ - Public Property SQL_PROVIDER() As String + Public Property FORM_ID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value End Set End Property _ - Public Property SERVER() As String + Public Property PARENT_ID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value End Set End Property _ - Public Property DATENBANK() As String + Public Property LEVEL1_SELECT() As Boolean Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn),Boolean) End Get Set - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property SEQUENCE() As Integer Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value End Set End Property _ - Public Property PASSWORD() As String + Public Property SQL_SELECT_EBENE1() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String) End Get Set - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value End Set End Property _ - Public Property BEMERKUNG() As String + Public Property SQL_SELECT_EBENE2() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column),String) End Get Set - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value End Set End Property _ - Public Property AKTIV() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull"& _ + ".", e) + End Try End Get Set - Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value End Set End Property _ - Public Property ERSTELLTWER() As String + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNul"& _ + "l.", e) + End Try End Get Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value End Set End Property _ - Public Property ERSTELLTWANN() As Date + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu"& _ + "ll.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value End Set End Property _ - Public Property GEANDERTWER() As String + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN"& _ + "ull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property COLUMN_NAME1() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column),String) End Get Set - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value End Set End Property _ - Public Function IsBEZEICHNUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) - End Function - - _ - Public Sub SetBEZEICHNUNGNull() - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull - End Sub + Public Property COLUMN_NAME2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value + End Set + End Property _ - Public Function IsSQL_PROVIDERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) - End Function + Public Property LOAD_DIRECT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn) = value + End Set + End Property _ - Public Sub SetSQL_PROVIDERNull() - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull - End Sub + Public Property SQL_QUICK_VIEW() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value + End Set + End Property _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) - End Function + Public Property CONTROL_DOCTYPE_MATCH() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn) = value + End Set + End Property _ - Public Sub SetSERVERNull() - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull - End Sub + Public Property SQL_RIGHT_READ_AND_VIEW_ONLY() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn) = value + End Set + End Property _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) - End Function - - _ - Public Sub SetDATENBANKNull() - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) - End Function - - _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property SQL_RIGHT_WINDREAM_VIEW() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_VIEWColumn),String) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_VIEWColumn) = value + End Set + End Property _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) - End Function + Public Property ADD_RECORDS() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADD_RECORDSColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADD_RECORDSColumn) = value + End Set + End Property _ - Public Sub SetPASSWORDNull() - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull - End Sub + Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTORRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) + End Set + End Property _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) End Function _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsERSTELLTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) End Function _ - Public Sub SetERSTELLTWANNNull() - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) End Function _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class VWTEMPQUICKVIEWRow + Partial Public Class TBDD_CONNECTIONRow Inherits Global.System.Data.DataRow - Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWTEMPQUICKVIEW = CType(Me.Table,VWTEMPQUICKVIEWDataTable) + Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) End Sub _ - Public Property _Record_ID() As Integer + Public Property GUID() As Short Get - Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) End Get Set - Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn) = value + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value End Set End Property _ - Public Property Aktenzeichen() As String + Public Property BEZEICHNUNG() As String Get Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzeichen in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = value + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ - Public Property _Wiedergabe_der_Marke__Bild_() As Byte() + Public Property SQL_PROVIDER() As String Get Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column),Byte()) + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wiedergabe der Marke (Bild) in Tabelle VWTEMPQUICKVIEW ist DB"& _ - "Null.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = value + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ - Public Property Tag_der_Eintragung_im_Register() As String + Public Property SERVER() As String Get Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tag der Eintragung im Register in Tabelle VWTEMPQUICKVIEW ist"& _ - " DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = value + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property _ - Public Property Aktenzustand() As String + Public Property DATENBANK() As String Get Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzustand in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = value + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property _ - Public Function IsAktenzeichenNull() As Boolean - Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) - End Function - - _ - Public Sub SetAktenzeichenNull() - Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Is_Wiedergabe_der_Marke__Bild_Null() As Boolean - Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) - End Function - - _ - Public Sub Set_Wiedergabe_der_Marke__Bild_Null() - Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTag_der_Eintragung_im_RegisterNull() As Boolean - Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) - End Function + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + End Set + End Property _ - Public Sub SetTag_der_Eintragung_im_RegisterNull() - Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull - End Sub + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + End Set + End Property _ - Public Function IsAktenzustandNull() As Boolean - Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) - End Function + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + End Set + End Property _ - Public Sub SetAktenzustandNull() - Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_ENTITIESRow - Inherits Global.System.Data.DataRow - - Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + End Set + End Property _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_ENTITIES = CType(Me.Table,TBWH_ENTITIESDataTable) - End Sub + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + End Set + End Property _ - Public Property GUID() As Integer + Public Property ERSTELLTWANN() As Date Get - Return CType(Me(Me.tableTBWH_ENTITIES.GUIDColumn),Integer) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBWH_ENTITIES.GUIDColumn) = value + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property _ - Public Property FORM_TITLE() As String + Public Property GEANDERTWER() As String Get - Return CType(Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn) = value + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ - Public Property CAPTION() As String + Public Property GEAENDERTWANN() As Date Get Try - Return CType(Me(Me.tableTBWH_ENTITIES.CAPTIONColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAPTION in Tabelle TBWH_ENTITIES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = value + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property _ - Public Function IsCAPTIONNull() As Boolean - Return Me.IsNull(Me.tableTBWH_ENTITIES.CAPTIONColumn) + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ - Public Sub SetCAPTIONNull() - Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = Global.System.Convert.DBNull + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_USER_GROUPSRow - Inherits Global.System.Data.DataRow - Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_USER_GROUPS = CType(Me.Table,TBWH_USER_GROUPSDataTable) + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBWH_USER_GROUPS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBWH_USER_GROUPS.GUIDColumn) = value - End Set - End Property + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) + End Function _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableTBWH_USER_GROUPS.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_USER_GROUPS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = value - End Set - End Property + Public Sub SetSERVERNull() + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_USER_GROUPS.NAMEColumn) + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ - Public Sub SetNAMENull() - Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetDATENBANKNull() + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPMO_SAP_FUBARow - Inherits Global.System.Data.DataRow - Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPMO_SAP_FUBA = CType(Me.Table,TBPMO_SAP_FUBADataTable) + Public Sub SetUSERNAMENull() + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn) = value - End Set - End Property + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) + End Function _ - Public Property NAME() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn) = value - End Set - End Property + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property COMMENT() As String - Get - Try - Return CType(Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = value - End Set - End Property + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) + End Function _ - Public Property TableName() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn) = value - End Set - End Property + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property Host() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.HostColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.HostColumn) = value - End Set - End Property + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + End Function _ - Public Property SystemNumber() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn) = value - End Set - End Property + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property UserName() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn) = value - End Set - End Property + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) + End Function _ - Public Property Password() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn) = value - End Set - End Property + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property Client() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.ClientColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.ClientColumn) = value - End Set - End Property + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + End Function _ - Public Property Language() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn) = value - End Set - End Property + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWTEMPQUICKVIEWRow + Inherits Global.System.Data.DataRow + + Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable _ - Public Property TempTableName() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn) = value - End Set - End Property + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWTEMPQUICKVIEW = CType(Me.Table,VWTEMPQUICKVIEWDataTable) + End Sub _ - Public Property ACTIVE() As Boolean + Public Property _Record_ID() As Integer Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn),Integer) End Get Set - Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn) = value + Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property Aktenzeichen() As String Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzeichen in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn) = value + Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property _Wiedergabe_der_Marke__Bild_() As Byte() Get Try - Return CType(Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column),Byte()) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wiedergabe der Marke (Bild) in Tabelle VWTEMPQUICKVIEW ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = value + Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property Tag_der_Eintragung_im_Register() As String Get Try - Return CType(Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tag der Eintragung im Register in Tabelle VWTEMPQUICKVIEW ist"& _ + " DBNull.", e) End Try End Get Set - Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = value + Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property Aktenzustand() As String Get Try - Return CType(Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzustand in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = value + Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = value End Set End Property _ - Public Property WHERE_CLAUSE() As String - Get - Try - Return CType(Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WHERE_CLAUSE in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = value - End Set - End Property + Public Function IsAktenzeichenNull() As Boolean + Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) + End Function _ - Public Property Method() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.MethodColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.MethodColumn) = value - End Set - End Property + Public Sub SetAktenzeichenNull() + Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property FuBa_SplitCharacter() As String - Get - Return CType(Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn),String) - End Get - Set - Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn) = value - End Set - End Property + Public Function Is_Wiedergabe_der_Marke__Bild_Null() As Boolean + Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) + End Function _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) + Public Sub Set_Wiedergabe_der_Marke__Bild_Null() + Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTag_der_Eintragung_im_RegisterNull() As Boolean + Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetTag_der_Eintragung_im_RegisterNull() + Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) + Public Function IsAktenzustandNull() As Boolean + Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetAktenzustandNull() + Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_ENTITIESRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) - End Function + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_ENTITIES = CType(Me.Table,TBWH_ENTITIESDataTable) + End Sub _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_ENTITIES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_ENTITIES.GUIDColumn) = value + End Set + End Property _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) - End Function + Public Property FORM_TITLE() As String + Get + Return CType(Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn),String) + End Get + Set + Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn) = value + End Set + End Property _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public Property CAPTION() As String + Get + Try + Return CType(Me(Me.tableTBWH_ENTITIES.CAPTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAPTION in Tabelle TBWH_ENTITIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = value + End Set + End Property _ - Public Function IsWHERE_CLAUSENull() As Boolean - Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) + Public Function IsCAPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBWH_ENTITIES.CAPTIONColumn) End Function _ - Public Sub SetWHERE_CLAUSENull() - Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = Global.System.Convert.DBNull + Public Sub SetCAPTIONNull() + Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class USER_RIGHTSRow + Partial Public Class TBWH_USER_GROUPSRow Inherits Global.System.Data.DataRow - Private tableUSER_RIGHTS As USER_RIGHTSDataTable + Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableUSER_RIGHTS = CType(Me.Table,USER_RIGHTSDataTable) + Me.tableTBWH_USER_GROUPS = CType(Me.Table,TBWH_USER_GROUPSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableUSER_RIGHTS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBWH_USER_GROUPS.GUIDColumn),Integer) End Get Set - Me(Me.tableUSER_RIGHTS.GUIDColumn) = value + Me(Me.tableTBWH_USER_GROUPS.GUIDColumn) = value End Set End Property _ - Public Property FORM_TITLE() As String + Public Property NAME() As String Get Try - Return CType(Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn),String) + Return CType(Me(Me.tableTBWH_USER_GROUPS.NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle USER_RIGHTS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = value + Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_USER_GROUPS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_SAP_FUBARow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_SAP_FUBA = CType(Me.Table,TBPMO_SAP_FUBADataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Return CType(Me(Me.tableUSER_RIGHTS.USERNAMEColumn),String) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn),Integer) End Get Set - Me(Me.tableUSER_RIGHTS.USERNAMEColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn) = value End Set End Property @@ -9150,387 +9309,718 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get - Try - Return CType(Me(Me.tableUSER_RIGHTS.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle USER_RIGHTS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.NAMEColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn) = value End Set End Property _ - Public Property PRENAME() As String + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableUSER_RIGHTS.PRENAMEColumn),String) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle USER_RIGHTS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) End Try End Get Set - Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = value End Set End Property _ - Public Property EDIT_REC() As Boolean + Public Property TableName() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.EDIT_RECColumn),Boolean) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.EDIT_RECColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn) = value End Set End Property _ - Public Property ADD_REC() As Boolean + Public Property Host() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.ADD_RECColumn),Boolean) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.HostColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.ADD_RECColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.HostColumn) = value End Set End Property _ - Public Property DELETE_REC() As Boolean + Public Property SystemNumber() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.DELETE_RECColumn),Boolean) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.DELETE_RECColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn) = value End Set End Property _ - Public Property ADD_DOC() As Boolean + Public Property UserName() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.ADD_DOCColumn),Boolean) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.ADD_DOCColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn) = value End Set End Property _ - Public Property READ_ONLY_DOC() As Boolean + Public Property Password() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn),Boolean) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn) = value End Set End Property _ - Public Property DELETE_DOC() As Boolean + Public Property Client() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn),Boolean) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.ClientColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.ClientColumn) = value End Set End Property _ - Public Property FILES_VISIBLE() As Boolean + Public Property Language() As String Get - Return CType(Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn),Boolean) + Return CType(Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property TempTableName() As String Get - Try - Return CType(Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn),String) End Get Set - Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property ACTIVE() As Boolean Get - Try - Return CType(Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = value + Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn) = value End Set End Property _ - Public Function IsFORM_TITLENull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.FORM_TITLEColumn) - End Function - - _ - Public Sub SetFORM_TITLENull() - Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = Global.System.Convert.DBNull - End Sub + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn) = value + End Set + End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.NAMEColumn) - End Function + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = value + End Set + End Property _ - Public Sub SetNAMENull() - Me(Me.tableUSER_RIGHTS.NAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = value + End Set + End Property _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.PRENAMEColumn) + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property WHERE_CLAUSE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WHERE_CLAUSE in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = value + End Set + End Property + + _ + Public Property Method() As String + Get + Return CType(Me(Me.tableTBPMO_SAP_FUBA.MethodColumn),String) + End Get + Set + Me(Me.tableTBPMO_SAP_FUBA.MethodColumn) = value + End Set + End Property + + _ + Public Property FuBa_SplitCharacter() As String + Get + Return CType(Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn),String) + End Get + Set + Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) End Function _ - Public Sub SetPRENAMENull() - Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWHERE_CLAUSENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) + End Function + + _ + Public Sub SetWHERE_CLAUSENull() + Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Partial Public Class USER_RIGHTSRow Inherits Global.System.Data.DataRow - Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + Private tableUSER_RIGHTS As USER_RIGHTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) + Me.tableUSER_RIGHTS = CType(Me.Table,USER_RIGHTSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer) + Return CType(Me(Me.tableUSER_RIGHTS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn) = value + Me(Me.tableUSER_RIGHTS.GUIDColumn) = value End Set End Property _ - Public Property ENTITY_ID() As Integer + Public Property FORM_TITLE() As String Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer) + Try + Return CType(Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn) = value + Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = value End Set End Property _ - Public Property LANGUAGE() As String + Public Property USERNAME() As String Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String) + Return CType(Me(Me.tableUSER_RIGHTS.USERNAMEColumn),String) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn) = value + Me(Me.tableUSER_RIGHTS.USERNAMEColumn) = value End Set End Property _ - Public Property COLUMN_VIEW() As String + Public Property NAME() As String Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String) + Try + Return CType(Me(Me.tableUSER_RIGHTS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value + Me(Me.tableUSER_RIGHTS.NAMEColumn) = value End Set End Property _ - Public Property HEADER_CAPTION() As String + Public Property PRENAME() As String Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String) + Try + Return CType(Me(Me.tableUSER_RIGHTS.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value + Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = value End Set End Property _ - Public Property WIDTH() As Integer + Public Property EDIT_REC() As Boolean Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer) + Return CType(Me(Me.tableUSER_RIGHTS.EDIT_RECColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn) = value + Me(Me.tableUSER_RIGHTS.EDIT_RECColumn) = value End Set End Property _ - Public Property TYPE_ID() As Byte + Public Property ADD_REC() As Boolean Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte) + Return CType(Me(Me.tableUSER_RIGHTS.ADD_RECColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn) = value + Me(Me.tableUSER_RIGHTS.ADD_RECColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property DELETE_REC() As Boolean Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String) + Return CType(Me(Me.tableUSER_RIGHTS.DELETE_RECColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn) = value + Me(Me.tableUSER_RIGHTS.DELETE_RECColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property ADD_DOC() As Boolean Get - Try - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist D"& _ - "BNull.", e) - End Try + Return CType(Me(Me.tableUSER_RIGHTS.ADD_DOCColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = value + Me(Me.tableUSER_RIGHTS.ADD_DOCColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property READ_ONLY_DOC() As Boolean Get - Try - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist "& _ - "DBNull.", e) - End Try + Return CType(Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value + Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property DELETE_DOC() As Boolean Get - Try - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist"& _ - " DBNull.", e) - End Try + Return CType(Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value + Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn) = value End Set End Property _ - Public Property VISIBLE() As Boolean + Public Property FILES_VISIBLE() As Boolean Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn),Boolean) + Return CType(Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn),Boolean) End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn) = value + Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn) = value End Set End Property _ - Public Property EDITABLE() As Boolean + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn),Boolean) + Try + Return CType(Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn) = value + Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = value End Set End Property _ - Public Property CONFIG_COLUMNS() As Boolean + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn),Boolean) + Try + Return CType(Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn) = value + Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = value End Set End Property _ - Public Property SEQUENCE() As Integer + Public Function IsFORM_TITLENull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.FORM_TITLEColumn) + End Function + + _ + Public Sub SetFORM_TITLENull() + Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableUSER_RIGHTS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn) = value + End Set + End Property + + _ + Public Property LANGUAGE() As String + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn) = value + End Set + End Property + + _ + Public Property COLUMN_VIEW() As String + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value + End Set + End Property + + _ + Public Property HEADER_CAPTION() As String + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value + End Set + End Property + + _ + Public Property WIDTH() As Integer + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn) = value + End Set + End Property + + _ + Public Property TYPE_ID() As Byte + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property VISIBLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn) = value + End Set + End Property + + _ + Public Property EDITABLE() As Boolean + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn) = value + End Set + End Property + + _ + Public Property CONFIG_COLUMNS() As Boolean + Get + Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.SEQUENCEColumn),Integer) End Get @@ -10436,30 +10926,291 @@ Partial Public Class DD_ECMAdmin ''' '''Represents strongly named DataRow class. ''' - Partial Public Class DT_VORSCHAURow + Partial Public Class VWPMO_RIGHT_GROUPRow Inherits Global.System.Data.DataRow - Private tableDT_VORSCHAU As DT_VORSCHAUDataTable + Private tableVWPMO_RIGHT_GROUP As VWPMO_RIGHT_GROUPDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableDT_VORSCHAU = CType(Me.Table,DT_VORSCHAUDataTable) + Me.tableVWPMO_RIGHT_GROUP = CType(Me.Table,VWPMO_RIGHT_GROUPDataTable) End Sub _ - Public Property VALUE() As String + Public Property ID() As Integer Get - Try - Return CType(Me(Me.tableDT_VORSCHAU.VALUEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle DT_VORSCHAU ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.IDColumn),Integer) End Get Set - Me(Me.tableDT_VORSCHAU.VALUEColumn) = value + Me(Me.tableVWPMO_RIGHT_GROUP.IDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ENTITY_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.ENTITY_IDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_NAME() As String + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ENTITY_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.ENTITY_NAMEColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_NAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP_NAME in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn) = value + End Set + End Property + + _ + Public Property EDIT_REC() As Boolean + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.EDIT_RECColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.EDIT_RECColumn) = value + End Set + End Property + + _ + Public Property ADD_REC() As Boolean + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ADD_RECColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.ADD_RECColumn) = value + End Set + End Property + + _ + Public Property DELETE_REC() As Boolean + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.DELETE_RECColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.DELETE_RECColumn) = value + End Set + End Property + + _ + Public Property ADD_DOC() As Boolean + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ADD_DOCColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.ADD_DOCColumn) = value + End Set + End Property + + _ + Public Property VIEW_DOC() As Boolean + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.VIEW_DOCColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.VIEW_DOCColumn) = value + End Set + End Property + + _ + Public Property DELETE_DOC() As Boolean + Get + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.DELETE_DOCColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.DELETE_DOCColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.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_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsGROUP_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn) + End Function + + _ + Public Sub SetGROUP_NAMENull() + Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class DT_VORSCHAURow + Inherits Global.System.Data.DataRow + + Private tableDT_VORSCHAU As DT_VORSCHAUDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableDT_VORSCHAU = CType(Me.Table,DT_VORSCHAUDataTable) + End Sub + + _ + Public Property VALUE() As String + Get + Try + Return CType(Me(Me.tableDT_VORSCHAU.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle DT_VORSCHAU ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableDT_VORSCHAU.VALUEColumn) = value End Set End Property @@ -11514,6 +12265,42 @@ Partial Public Class DD_ECMAdmin End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_RIGHT_GROUPRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_RIGHT_GROUPRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_RIGHT_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_RIGHT_GROUPRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + ''' '''Row event argument class ''' @@ -16503,154 +17290,341 @@ Namespace DD_ECMAdminTableAdapters _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal ECM_FK_ID As Integer, _ - ByVal AD_SYNC As Boolean, _ - ByVal INTERNAL As Boolean, _ - ByVal ACTIVE As Boolean, _ - ByVal COMMENT As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_ECM_FK_ID As Integer, _ - ByVal Original_AD_SYNC As Boolean, _ - ByVal Original_INTERNAL As Boolean, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_COMMENT As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ECM_FK_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AD_SYNC,Boolean) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(INTERNAL,Boolean) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) - End If - If (ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_NAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ECM_FK_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_AD_SYNC,Boolean) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_INTERNAL,Boolean) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ACTIVE,Boolean) - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_COMMENT,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal ECM_FK_ID As Integer, _ + ByVal AD_SYNC As Boolean, _ + ByVal INTERNAL As Boolean, _ + ByVal ACTIVE As Boolean, _ + ByVal COMMENT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_ECM_FK_ID As Integer, _ + ByVal Original_AD_SYNC As Boolean, _ + ByVal Original_INTERNAL As Boolean, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ECM_FK_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AD_SYNC,Boolean) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(INTERNAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ECM_FK_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_AD_SYNC,Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_INTERNAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ACTIVE,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal ECM_FK_ID As Integer, _ + ByVal AD_SYNC As Boolean, _ + ByVal INTERNAL As Boolean, _ + ByVal ACTIVE As Boolean, _ + ByVal COMMENT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_ECM_FK_ID As Integer, _ + ByVal Original_AD_SYNC As Boolean, _ + ByVal Original_INTERNAL As Boolean, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_ECM_FK_ID, Original_AD_SYNC, Original_INTERNAL, Original_ACTIVE, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPMO_RIGHT_GROUPTableAdapter + 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_RIGHT_GROUP" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + tableMapping.ColumnMappings.Add("ENTITY_NAME", "ENTITY_NAME") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("GROUP_NAME", "GROUP_NAME") + tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") + tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") + tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") + tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") + tableMapping.ColumnMappings.Add("VIEW_DOC", "VIEW_DOC") + tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT * FROM VWPMO_RIGHT_GROUP" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWPMO_RIGHT_GROUPDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal ECM_FK_ID As Integer, _ - ByVal AD_SYNC As Boolean, _ - ByVal INTERNAL As Boolean, _ - ByVal ACTIVE As Boolean, _ - ByVal COMMENT As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_ECM_FK_ID As Integer, _ - ByVal Original_AD_SYNC As Boolean, _ - ByVal Original_INTERNAL As Boolean, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_COMMENT As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_ECM_FK_ID, Original_AD_SYNC, Original_INTERNAL, Original_ACTIVE, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWPMO_RIGHT_GROUPDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_ECMAdmin.VWPMO_RIGHT_GROUPDataTable = New DD_ECMAdmin.VWPMO_RIGHT_GROUPDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -16927,57 +17901,57 @@ Namespace DD_ECMAdminTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_GROUPSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + 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_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.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._tBDD_GROUPSTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -17007,6 +17981,14 @@ Namespace DD_ECMAdminTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -17023,6 +18005,14 @@ Namespace DD_ECMAdminTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_GROUPSTableAdapter.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) _ @@ -17039,22 +18029,6 @@ Namespace DD_ECMAdminTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_GROUPSTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If Return result End Function @@ -17065,22 +18039,6 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_GROUPSTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.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) _ @@ -17097,6 +18055,14 @@ Namespace DD_ECMAdminTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_GROUPSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -17113,6 +18079,14 @@ Namespace DD_ECMAdminTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ diff --git a/app/DD-Record-Organizer/DD_ECMAdmin.xsc b/app/DD-Record-Organizer/DD_ECMAdmin.xsc index 1ddd6e7..d79c4ab 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.xsc +++ b/app/DD-Record-Organizer/DD_ECMAdmin.xsc @@ -9,11 +9,9 @@ - - + - - + @@ -59,5 +57,30 @@ + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organizer/DD_ECMAdmin.xsd b/app/DD-Record-Organizer/DD_ECMAdmin.xsd index 99c403e..734ccd9 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organizer/DD_ECMAdmin.xsd @@ -910,241 +910,271 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD + + + + + + SELECT * FROM VWPMO_RIGHT_GROUP + + + + + + + + + + + + + + + + + + + + + + + + - + - + - - + + - - + + - - + + - - - + + + - + - + - + - - - - - - - + + + + + + + - + - + - - + + - - + + - + - - + + - - + + - + - + - + - - + + - + - + - + - + - + - + - - + + - - + + - + - + - + - + - - + + - - + + - + @@ -1154,30 +1184,30 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD - + - - - - - - + + + + + + - + - - + + - + @@ -1187,11 +1217,11 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD - + - - + + @@ -1201,136 +1231,136 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD - + - - - - - - + + + + + + - + - - - - - - + + + + + + - + - - + + - + - + - + - + - + - + - + - + - + - - + + - - + + - - + + - + - + @@ -1340,152 +1370,152 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD - + - - + + - + - + - + - - - - - - - - - + + + + + + + + + - + - - - + + + - + - + - - - + + + - - + + - - - - - + + + + + - + - - + + - + - + - + - - - + + + - - - + + + - + @@ -1495,113 +1525,158 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD - + - + - + - + - - - + + + - + - + - - + + - + - - - + + + - - - + + + - + - - + + - + - + - - + + - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1671,11 +1746,17 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD + + + + + + - - + + \ No newline at end of file diff --git a/app/DD-Record-Organizer/DD_ECMAdmin.xss b/app/DD-Record-Organizer/DD_ECMAdmin.xss index dadd7e3..afd569a 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.xss +++ b/app/DD-Record-Organizer/DD_ECMAdmin.xss @@ -4,29 +4,30 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + - + 292 @@ -38,7 +39,7 @@ - + 1048 diff --git a/app/DD-Record-Organizer/My Project/AssemblyInfo.vb b/app/DD-Record-Organizer/My Project/AssemblyInfo.vb index 1ae3bca..8478eb6 100644 --- a/app/DD-Record-Organizer/My Project/AssemblyInfo.vb +++ b/app/DD-Record-Organizer/My Project/AssemblyInfo.vb @@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + \ No newline at end of file diff --git a/app/DD-Record-Organizer/My Project/Settings.Designer.vb b/app/DD-Record-Organizer/My Project/Settings.Designer.vb index 8f6a8ad..b096639 100644 --- a/app/DD-Record-Organizer/My Project/Settings.Designer.vb +++ b/app/DD-Record-Organizer/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -260,7 +260,7 @@ Namespace My Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True"& _ - ";User ID=sa;Password=dd")> _ + ";User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True")> _ Public ReadOnly Property DD_DMSConnectionString() As String Get Return CType(Me("DD_DMSConnectionString"),String) diff --git a/app/DD-Record-Organizer/My Project/Settings.Settings b/app/DD-Record-Organizer/My Project/Settings.Settings index eb1c95e..1ffeaf9 100644 --- a/app/DD-Record-Organizer/My Project/Settings.Settings +++ b/app/DD-Record-Organizer/My Project/Settings.Settings @@ -53,10 +53,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> - <ConnectionString>Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ConnectionString>Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd + Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True False diff --git a/app/DD-Record-Organizer/OrgFlow.vbproj b/app/DD-Record-Organizer/OrgFlow.vbproj index 03b14ed..3ffe481 100644 --- a/app/DD-Record-Organizer/OrgFlow.vbproj +++ b/app/DD-Record-Organizer/OrgFlow.vbproj @@ -424,6 +424,12 @@ Form + + frmNodeConfigAdd.vb + + + Form + frmNodeNavigation.vb @@ -894,6 +900,9 @@ frmNewVariant.vb + + frmNodeConfigAdd.vb + frmNodeNavigation.vb Designer diff --git a/app/DD-Record-Organizer/frmDoc_Links.Designer.vb b/app/DD-Record-Organizer/frmDoc_Links.Designer.vb index d68524d..5b483e9 100644 --- a/app/DD-Record-Organizer/frmDoc_Links.Designer.vb +++ b/app/DD-Record-Organizer/frmDoc_Links.Designer.vb @@ -37,6 +37,9 @@ Partial Class frmDoc_Links Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit() @@ -92,9 +95,9 @@ Partial Class frmDoc_Links 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnitmdeletelink, Me.BarStaticItemStatus, Me.BarButtonItem2, Me.bsiSource}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnitmdeletelink, Me.BarStaticItemStatus, Me.BarButtonItem2, Me.bsiSource, Me.BarButtonItem1, Me.BarButtonItem3}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.MaxItemId = 7 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -130,7 +133,7 @@ Partial Class frmDoc_Links ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Name = "RibbonPage1" resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") ' @@ -154,6 +157,28 @@ Partial Class frmDoc_Links Me.RibbonPage2.Name = "RibbonPage2" resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") + ' + 'BarButtonItem1 + ' + resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") + Me.BarButtonItem1.Id = 5 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem3 + ' + resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3") + Me.BarButtonItem3.Id = 6 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' 'frmDoc_Links ' resources.ApplyResources(Me, "$this") @@ -186,4 +211,7 @@ Partial Class frmDoc_Links Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem Friend WithEvents bsiSource As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD-Record-Organizer/frmDoc_Links.resx b/app/DD-Record-Organizer/frmDoc_Links.resx index 77e6033..e5c33c9 100644 --- a/app/DD-Record-Organizer/frmDoc_Links.resx +++ b/app/DD-Record-Organizer/frmDoc_Links.resx @@ -121,12 +121,6 @@ 241, 17 - - 149, 22 - - - Ordner öffnen - 150, 26 @@ -141,10 +135,10 @@ Fill - 0, 158 + 0, 147 - 1251, 426 + 908, 334 @@ -162,6 +156,12 @@ 1 + + 149, 22 + + + Ordner öffnen + Ausgewählte Links löschen @@ -216,23 +216,69 @@ Source: VWPMO_CUST_DOC_OBJECT_LINKS + + ...speichern + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTmV3VGFibGVTdHlsZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5l + dyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3 + O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFj + aXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGNsYXNzPSJzdDAiPg0KICAgIDxwYXRoIGQ9Ik0wLDIwaDh2 + NkgwVjIweiBNMTAsMjZoOHYtNmgtOFYyNnogTTIwLDEydjZoOHYtNkgyMHogTTIwLDI2aDh2LTZoLThW + MjZ6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCiAgPHBhdGggZD0iTTAsNGg4djZIMFY0eiBNMCwx + OGg4di02SDBWMTh6IE0xMCwxMGg4VjRoLThWMTB6IE0xMCwxOGg4di02aC04VjE4eiIgY2xhc3M9IkJs + dWUiIC8+DQogIDxwb2x5Z29uIHBvaW50cz0iMjUsMiAyNywwIDI3LDMgMzAsMyAyOCw1IDMwLDcgMjcs + NyAyNywxMCAyNSw4IDIzLDEwIDIzLDcgMjAsNyAyMiw1IDIwLDMgMjMsMyAyMywwICIgY2xhc3M9Illl + bGxvdyIgLz4NCjwvc3ZnPgs= + + + + ...zurücksetzen + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKIDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJUYWJsZVN0eWxlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6 + bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgY2xhc3M9InN0MCI+DQogICAgPHBhdGggZD0iTTI4LDEwaC04 + VjRoOFYxMHogTTI0LjYsMTQuOWMwLjYtMC42LDEuNC0wLjksMi4yLTAuOWMwLjQsMCwwLjgsMC4xLDEu + MiwwLjJWMTJoLTh2NmgxLjVMMjQuNiwxNC45eiBNMCwyNiAgIGg4di02SDBWMjZ6IE0xNC45LDI0LjZs + My4xLTMuMVYyMGgtOHY2aDQuMUMxNC4zLDI1LjUsMTQuNSwyNSwxNC45LDI0LjZ6IiBjbGFzcz0iQmxh + Y2siIC8+DQogIDwvZz4NCiAgPHBhdGggZD0iTTAsNGg4djZIMFY0eiBNMCwxOGg4di02SDBWMTh6IE0x + MCwxMGg4VjRoLThWMTB6IE0xMCwxOGg4di02aC04VjE4eiBNMTksMjMuM0wxNi4zLDI2ICBjLTAuNCww + LjQtMC40LDEuMiwwLDEuNmw0LDRjMC40LDAuNCwxLjIsMC40LDEuNiwwbDIuNy0yLjdMMTksMjMuM3oi + IGNsYXNzPSJCbHVlIiAvPg0KICA8cGF0aCBkPSJNMzEuNywyMC40bC00LTRjLTAuNC0wLjQtMS4yLTAu + NC0xLjYsMGwtNi4xLDYuMWw1LjYsNS42bDYuMS02LjFDMzIuMSwyMS41LDMyLjEsMjAuOCwzMS43LDIw + LjR6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw== + + 0, 0 - - Aktionen - Doc-Links - 1251, 158 + 908, 147 - 0, 584 + 0, 481 - 1251, 22 + 908, 23 RibbonStatusBar1 @@ -258,9 +304,15 @@ 3 + + Aktionen + RibbonPage2 + + Layout + True @@ -268,7 +320,7 @@ 6, 13 - 1251, 606 + 908, 504 @@ -503,6 +555,24 @@ DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RibbonPageGroup2 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem1 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem3 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmDoc_Links diff --git a/app/DD-Record-Organizer/frmDoc_Links.vb b/app/DD-Record-Organizer/frmDoc_Links.vb index 7848cef..4cc6ab7 100644 --- a/app/DD-Record-Organizer/frmDoc_Links.vb +++ b/app/DD-Record-Organizer/frmDoc_Links.vb @@ -1,15 +1,19 @@ Imports System.IO Imports DD_LIB_Standards +Imports System.Text Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraPrinting Imports Microsoft.Office.Interop.Outlook Public Class frmDoc_Links + + Private ENTITY_ID As Integer = 0 Public Property Documents As New List(Of ClassWindreamDocGrid.WindreamDoc) Private Sub frmDoc_DocLinks_Load(sender As Object, e As EventArgs) Handles Me.Load Try Refresh_Grid_Data(Documents) + Load_DocGrid_Layout() If USER_IS_ADMIN Then bsiSource.Visibility = DevExpress.XtraBars.BarItemVisibility.Always @@ -150,7 +154,20 @@ Public Class frmDoc_Links End If End Sub + Sub Save_DocGrid_Layout() + Try + Dim XMLPath = Get_DocGrid_Layout_Filename() + grvwGrid.SaveLayoutToXml(XMLPath) + BarStaticItemStatus.Caption = "Grid-Layout saved - " + Now.ToShortTimeString + Catch ex As System.Exception + ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Save_DocGrid_Layout", ex.Message, ex.StackTrace) + End Try + End Sub + Private Function Get_DocGrid_Layout_Filename() + Dim Filename As String = String.Format("GridViewDocLinks-{0}-UserLayout.xml", CURRENT_ENTITY_ID) + Return System.IO.Path.Combine(System.Windows.Forms.Application.UserAppDataPath(), Filename) + End Function Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick Try Dim saveFileDialogDocSearchResult As New SaveFileDialog With { @@ -209,4 +226,56 @@ Public Class frmDoc_Links End If End Sub + + Private Sub BarButtonItem1_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Save_DocGrid_Layout() + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + Reset_View_layout() + End Sub + Sub Reset_View_layout() + Me.Cursor = Cursors.WaitCursor + Try + Dim XMLPath = Get_DocGrid_Layout_Filename() + If File.Exists(XMLPath) Then + File.Delete(XMLPath) + Refresh_Grid_Data(Documents) + Else + MsgBox("Resetting the layout was not successful - File not existing!", MsgBoxStyle.Information) + End If + Catch ex As System.Exception + ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Reset_View_layout: ", ex.Message) + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub grvwGrid_ColumnPositionChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnPositionChanged + Save_DocGrid_Layout() + End Sub + + Private Sub grvwGrid_ColumnWidthChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.ColumnEventArgs) Handles grvwGrid.ColumnWidthChanged + Save_DocGrid_Layout() + End Sub + + Private Sub grvwGrid_ColumnFilterChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnFilterChanged + Save_DocGrid_Layout() + End Sub + + Private Sub grvwGrid_EndSorting(sender As Object, e As EventArgs) Handles grvwGrid.EndSorting + Save_DocGrid_Layout() + End Sub + Sub Load_DocGrid_Layout() + Try + Dim XMLPath = Get_DocGrid_Layout_Filename() + If File.Exists(XMLPath) Then + grvwGrid.RestoreLayoutFromXml(XMLPath) + grvwGrid.GuessAutoFilterRowValuesFromFilter() + BarStaticItemStatus.Caption = "Grid-Layout loaded - " + Now.ToShortTimeString + + End If + Catch ex As System.Exception + ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_DocGrid_Layout", ex.Message, ex.StackTrace) + End Try + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organizer/frmNodeConfigAdd.Designer.vb b/app/DD-Record-Organizer/frmNodeConfigAdd.Designer.vb new file mode 100644 index 0000000..88fc5bf --- /dev/null +++ b/app/DD-Record-Organizer/frmNodeConfigAdd.Designer.vb @@ -0,0 +1,163 @@ + _ +Partial Class frmNodeConfigAdd + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtNodeParentID = New System.Windows.Forms.TextBox() + Me.txtEntityName = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtName = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtComment = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 18) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(78, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Node ParentID" + ' + 'txtNodeParentID + ' + Me.txtNodeParentID.Location = New System.Drawing.Point(96, 15) + Me.txtNodeParentID.Name = "txtNodeParentID" + Me.txtNodeParentID.ReadOnly = True + Me.txtNodeParentID.Size = New System.Drawing.Size(100, 21) + Me.txtNodeParentID.TabIndex = 1 + ' + 'txtEntityName + ' + Me.txtEntityName.Location = New System.Drawing.Point(270, 15) + Me.txtEntityName.Name = "txtEntityName" + Me.txtEntityName.ReadOnly = True + Me.txtEntityName.Size = New System.Drawing.Size(292, 21) + Me.txtEntityName.TabIndex = 3 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(202, 18) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(62, 13) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "EntityName" + ' + 'txtName + ' + Me.txtName.Location = New System.Drawing.Point(190, 25) + Me.txtName.Name = "txtName" + Me.txtName.Size = New System.Drawing.Size(249, 21) + Me.txtName.TabIndex = 5 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(6, 28) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(172, 13) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "Interner Name des neuen Knotens" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.txtComment) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.txtName) + Me.GroupBox1.Location = New System.Drawing.Point(15, 57) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(547, 92) + Me.GroupBox1.TabIndex = 6 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Notwendige Angaben" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(6, 57) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(104, 13) + Me.Label4.TabIndex = 6 + Me.Label4.Text = "Interner Kommentar" + ' + 'txtComment + ' + Me.txtComment.Location = New System.Drawing.Point(190, 54) + Me.txtComment.Name = "txtComment" + Me.txtComment.Size = New System.Drawing.Size(249, 21) + Me.txtComment.TabIndex = 7 + ' + 'Button1 + ' + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(15, 155) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(547, 23) + Me.Button1.TabIndex = 7 + Me.Button1.Text = "Knoten hinzufügen" + Me.Button1.UseVisualStyleBackColor = True + ' + 'frmNodeConfigAdd + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(581, 204) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.txtEntityName) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtNodeParentID) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmNodeConfigAdd" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Neuen Knoten hinzufügen" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents txtNodeParentID As TextBox + Friend WithEvents txtEntityName As TextBox + Friend WithEvents Label2 As Label + Friend WithEvents txtName As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents Label4 As Label + Friend WithEvents txtComment As TextBox + Friend WithEvents Button1 As Button +End Class diff --git a/app/DD-Record-Organizer/frmNodeConfigAdd.resx b/app/DD-Record-Organizer/frmNodeConfigAdd.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app/DD-Record-Organizer/frmNodeConfigAdd.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/app/DD-Record-Organizer/frmNodeConfigAdd.vb b/app/DD-Record-Organizer/frmNodeConfigAdd.vb new file mode 100644 index 0000000..090d0d8 --- /dev/null +++ b/app/DD-Record-Organizer/frmNodeConfigAdd.vb @@ -0,0 +1,23 @@ + +Public Class frmNodeConfigAdd + Private pENTITYD As Integer + Public Sub New(pParentID As Integer, pEntID As Integer, pEntity As String) + MyBase.New() + pENTITYD = pEntID + + InitializeComponent() + ' Add any initialization after the InitializeComponent() call. + Me.txtNodeParentID.Text = pParentID + Me.txtEntityName.Text = pEntity + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim oInsert = $"INSERT INTO TBPMO_STRUCTURE_NODES_CONFIGURATION ([PARENT_NODE],[NAME],[ENTITY_ID],[COMMENT],[ADDED_WHO]) VALUES + ({txtNodeParentID.Text},'{txtName.Text}',{pENTITYD},'{txtComment.Text}','{Environment.UserName}')" + If MYDB_ECM.ExecuteNonQuery(oInsert) Then + Me.Close() + Else + MsgBox("An error occured on insert! Check Your log!", MsgBoxStyle.Exclamation) + End If + End Sub +End Class \ No newline at end of file diff --git a/app/DD-Record-Organizer/frmNodeNavigation.vb b/app/DD-Record-Organizer/frmNodeNavigation.vb index 75bce36..62a4b8f 100644 --- a/app/DD-Record-Organizer/frmNodeNavigation.vb +++ b/app/DD-Record-Organizer/frmNodeNavigation.vb @@ -379,7 +379,7 @@ Public Class frmNodeNavigation ClassControlValues.LoadControlValuesListWithPlaceholders(_EntityId, CURRENT_RECORD_ID, 0, CtrlBuilder.AllControls, _EntityId) CtrlBuilder.WatchRecordChanges = True Await Show_Selected_Record_Data(CURRENT_RECORD_ID) - + Show_SelectedDoc() ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId) CONTROL_HANDLING() @@ -2985,17 +2985,20 @@ Public Class frmNodeNavigation End Sub Private Sub GridViewDoc_Search_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles GridViewDoc_Search.SelectionChanged + Show_SelectedDoc() + End Sub + Private Sub Show_SelectedDoc() Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search) If oSelectedDocs.Count = 1 Then Dim oDocument As ClassWindreamDocGrid.WindreamDoc = oSelectedDocs.First() Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath) DocumentViewer.LoadFile(oPath) + Refresh_DocID() Else DocumentViewer.CloseDocument() End If End Sub - Private Async Sub btnCreateNewNode_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateNewNode.ItemClick Dim oForm As New frmNewNode() With { .NodeConfigTypes = AvailableConfigNodes diff --git a/app/DD-Record-Organizer/frmRight_Management.Designer.vb b/app/DD-Record-Organizer/frmRight_Management.Designer.vb index a44b762..f5352cb 100644 --- a/app/DD-Record-Organizer/frmRight_Management.Designer.vb +++ b/app/DD-Record-Organizer/frmRight_Management.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmRight_Management Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,22 +20,20 @@ Partial Class frmRight_Management 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() + Dim IDLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRight_Management)) - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim GUIDLabel As System.Windows.Forms.Label - Dim ENTITY_IDLabel As System.Windows.Forms.Label - Dim GROUP_IDLabel As System.Windows.Forms.Label + Dim ENTITY_NAMELabel As System.Windows.Forms.Label + Dim GROUP_NAMELabel As System.Windows.Forms.Label Dim ADDED_WHOLabel As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() - Me.TBPMO_RIGHT_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() + Me.VWPMO_RIGHT_GROUPBindingSource2 = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() @@ -46,31 +44,50 @@ Partial Class frmRight_Management Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() - Me.TBPMO_RIGHT_GROUPDataGridView = New System.Windows.Forms.DataGridView() - Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.TBPMO_RIGHT_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.TBWH_ENTITIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() - Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewComboBoxColumn() Me.TBDD_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewCheckBoxColumn2 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewCheckBoxColumn3 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewCheckBoxColumn4 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewCheckBoxColumn5 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewCheckBoxColumn6 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tschangedlabel = New System.Windows.Forms.ToolStripStatusLabel() Me.statelbl = New System.Windows.Forms.ToolStripStatusLabel() + Me.InfoLabel = New System.Windows.Forms.ToolStripStatusLabel() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.cmbGroupNew = New System.Windows.Forms.ComboBox() + Me.cmbSicht = New System.Windows.Forms.ComboBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.DELETE_DOCCheckBox = New System.Windows.Forms.CheckBox() + Me.VIEW_DOCCheckBox = New System.Windows.Forms.CheckBox() + Me.ADD_DOCCheckBox = New System.Windows.Forms.CheckBox() + Me.DELETE_RECCheckBox = New System.Windows.Forms.CheckBox() + Me.ADD_RECCheckBox = New System.Windows.Forms.CheckBox() + Me.EDIT_RECCheckBox = New System.Windows.Forms.CheckBox() + Me.GROUP_NAMETextBox = New System.Windows.Forms.TextBox() + Me.ENTITY_NAMETextBox = New System.Windows.Forms.TextBox() + Me.IDTextBox = New System.Windows.Forms.TextBox() + Me.VWPMO_RIGHT_GROUPDataGridView = New System.Windows.Forms.DataGridView() + Me.IDDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ENTITYNAMEDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.GROUPNAMEDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.EDITRECDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.ADDRECDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DELETERECDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.ADDDOCDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.VIEWDOCDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DELETEDOCDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.ADDEDWHODataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ADDEDWHENDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHODataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CHANGEDWHENDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.btndeleteUserRight = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() @@ -125,38 +142,28 @@ Partial Class frmRight_Management Me.TBDD_USERTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter() Me.USER_RIGHTSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter() Me.TBDD_GROUPSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBDD_GROUPSTableAdapter() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.ENTITY_IDComboBox = New System.Windows.Forms.ComboBox() - Me.GROUP_IDComboBox = New System.Windows.Forms.ComboBox() - Me.EDIT_RECCheckBox = New System.Windows.Forms.CheckBox() - Me.ADD_RECCheckBox = New System.Windows.Forms.CheckBox() - Me.DELETE_RECCheckBox = New System.Windows.Forms.CheckBox() - Me.ADD_DOCCheckBox = New System.Windows.Forms.CheckBox() - Me.VIEW_DOCCheckBox = New System.Windows.Forms.CheckBox() - Me.DELETE_DOCCheckBox = New System.Windows.Forms.CheckBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - GUIDLabel = New System.Windows.Forms.Label() - ENTITY_IDLabel = New System.Windows.Forms.Label() - GROUP_IDLabel = New System.Windows.Forms.Label() + Me.VWPMO_RIGHT_GROUPTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + IDLabel = New System.Windows.Forms.Label() + ENTITY_NAMELabel = New System.Windows.Forms.Label() + GROUP_NAMELabel = New System.Windows.Forms.Label() ADDED_WHOLabel = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator1.SuspendLayout() + CType(Me.VWPMO_RIGHT_GROUPBindingSource2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPMO_RIGHT_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPMO_RIGHT_GROUPDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_ENTITIESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.StatusStrip1.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() + CType(Me.VWPMO_RIGHT_GROUPDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -168,16 +175,52 @@ Partial Class frmRight_Management CType(Me.USER_RIGHTSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() Me.SuspendLayout() ' + 'IDLabel + ' + resources.ApplyResources(IDLabel, "IDLabel") + IDLabel.Name = "IDLabel" + ' + 'ENTITY_NAMELabel + ' + resources.ApplyResources(ENTITY_NAMELabel, "ENTITY_NAMELabel") + ENTITY_NAMELabel.Name = "ENTITY_NAMELabel" + ' + 'GROUP_NAMELabel + ' + resources.ApplyResources(GROUP_NAMELabel, "GROUP_NAMELabel") + GROUP_NAMELabel.Name = "GROUP_NAMELabel" + ' + 'ADDED_WHOLabel + ' + resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ' + 'CHANGED_WHOLabel + ' + resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + ' + 'ADDED_WHENLabel + ' + resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ' + 'CHANGED_WHENLabel + ' + resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + ' 'BindingNavigator1 ' - Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem - Me.BindingNavigator1.BindingSource = Me.TBPMO_RIGHT_GROUPBindingSource + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.BindingSource = Me.VWPMO_RIGHT_GROUPBindingSource2 Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem - Me.BindingNavigator1.CountItemFormat = "of {0} GroupRights" + Me.BindingNavigator1.CountItemFormat = "von {0} Gruppenrechten" Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem - Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButton1, Me.ToolStripButton2}) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorDeleteItem, Me.ToolStripButton2}) resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem @@ -186,21 +229,15 @@ Partial Class frmRight_Management Me.BindingNavigator1.Name = "BindingNavigator1" Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem ' - 'BindingNavigatorAddNewItem + 'VWPMO_RIGHT_GROUPBindingSource2 ' - Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") - Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.VWPMO_RIGHT_GROUPBindingSource2.DataMember = "VWPMO_RIGHT_GROUP" + Me.VWPMO_RIGHT_GROUPBindingSource2.DataSource = Me.DD_ECMAdmin ' - 'TBPMO_RIGHT_GROUPBindingSource - ' - Me.TBPMO_RIGHT_GROUPBindingSource.DataMember = "TBPMO_RIGHT_GROUP" - Me.TBPMO_RIGHT_GROUPBindingSource.DataSource = Me.DD_DMSDataSet - ' - 'DD_DMSDataSet + 'DD_ECMAdmin ' - Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" - Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" + Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' 'BindingNavigatorCountItem ' @@ -257,13 +294,6 @@ Partial Class frmRight_Management Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2") ' - 'ToolStripButton1 - ' - Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.save - resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Name = "ToolStripButton1" - ' 'ToolStripButton2 ' Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image @@ -271,136 +301,26 @@ Partial Class frmRight_Management resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") Me.ToolStripButton2.Name = "ToolStripButton2" ' - 'TBPMO_RIGHT_GROUPDataGridView - ' - Me.TBPMO_RIGHT_GROUPDataGridView.AllowUserToAddRows = False - Me.TBPMO_RIGHT_GROUPDataGridView.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Lime - Me.TBPMO_RIGHT_GROUPDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - resources.ApplyResources(Me.TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView") - Me.TBPMO_RIGHT_GROUPDataGridView.AutoGenerateColumns = False - Me.TBPMO_RIGHT_GROUPDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.TBPMO_RIGHT_GROUPDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewCheckBoxColumn1, Me.DataGridViewCheckBoxColumn2, Me.DataGridViewCheckBoxColumn3, Me.DataGridViewCheckBoxColumn4, Me.DataGridViewCheckBoxColumn5, Me.DataGridViewCheckBoxColumn6, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7}) - Me.TBPMO_RIGHT_GROUPDataGridView.DataSource = Me.TBPMO_RIGHT_GROUPBindingSource - Me.TBPMO_RIGHT_GROUPDataGridView.Name = "TBPMO_RIGHT_GROUPDataGridView" - Me.TBPMO_RIGHT_GROUPDataGridView.ReadOnly = True - ' - 'DataGridViewTextBoxColumn1 - ' - Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" - resources.ApplyResources(Me.DataGridViewTextBoxColumn1, "DataGridViewTextBoxColumn1") - Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" - Me.DataGridViewTextBoxColumn1.ReadOnly = True - ' - 'DataGridViewTextBoxColumn2 - ' - Me.DataGridViewTextBoxColumn2.DataPropertyName = "ENTITY_ID" - Me.DataGridViewTextBoxColumn2.DataSource = Me.TBWH_ENTITIESBindingSource - Me.DataGridViewTextBoxColumn2.DisplayMember = "CAPTION" - resources.ApplyResources(Me.DataGridViewTextBoxColumn2, "DataGridViewTextBoxColumn2") - Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" - Me.DataGridViewTextBoxColumn2.ReadOnly = True - Me.DataGridViewTextBoxColumn2.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic - Me.DataGridViewTextBoxColumn2.ValueMember = "GUID" - ' - 'TBWH_ENTITIESBindingSource + 'TBPMO_RIGHT_GROUPBindingSource ' - Me.TBWH_ENTITIESBindingSource.DataMember = "TBWH_ENTITIES" - Me.TBWH_ENTITIESBindingSource.DataSource = Me.DD_ECMAdmin + Me.TBPMO_RIGHT_GROUPBindingSource.DataMember = "TBPMO_RIGHT_GROUP" + Me.TBPMO_RIGHT_GROUPBindingSource.DataSource = Me.DD_DMSDataSet ' - 'DD_ECMAdmin + 'DD_DMSDataSet ' - Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" - Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'DataGridViewTextBoxColumn3 + 'TBWH_ENTITIESBindingSource ' - Me.DataGridViewTextBoxColumn3.DataPropertyName = "GROUP_ID" - Me.DataGridViewTextBoxColumn3.DataSource = Me.TBDD_GROUPSBindingSource - Me.DataGridViewTextBoxColumn3.DisplayMember = "NAME" - resources.ApplyResources(Me.DataGridViewTextBoxColumn3, "DataGridViewTextBoxColumn3") - Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" - Me.DataGridViewTextBoxColumn3.ReadOnly = True - Me.DataGridViewTextBoxColumn3.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridViewTextBoxColumn3.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic - Me.DataGridViewTextBoxColumn3.ValueMember = "GUID" + Me.TBWH_ENTITIESBindingSource.DataMember = "TBWH_ENTITIES" + Me.TBWH_ENTITIESBindingSource.DataSource = Me.DD_ECMAdmin ' 'TBDD_GROUPSBindingSource ' Me.TBDD_GROUPSBindingSource.DataMember = "TBDD_GROUPS" Me.TBDD_GROUPSBindingSource.DataSource = Me.DD_ECMAdmin ' - 'DataGridViewCheckBoxColumn1 - ' - Me.DataGridViewCheckBoxColumn1.DataPropertyName = "EDIT_REC" - resources.ApplyResources(Me.DataGridViewCheckBoxColumn1, "DataGridViewCheckBoxColumn1") - Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1" - Me.DataGridViewCheckBoxColumn1.ReadOnly = True - ' - 'DataGridViewCheckBoxColumn2 - ' - Me.DataGridViewCheckBoxColumn2.DataPropertyName = "ADD_REC" - resources.ApplyResources(Me.DataGridViewCheckBoxColumn2, "DataGridViewCheckBoxColumn2") - Me.DataGridViewCheckBoxColumn2.Name = "DataGridViewCheckBoxColumn2" - Me.DataGridViewCheckBoxColumn2.ReadOnly = True - ' - 'DataGridViewCheckBoxColumn3 - ' - Me.DataGridViewCheckBoxColumn3.DataPropertyName = "DELETE_REC" - resources.ApplyResources(Me.DataGridViewCheckBoxColumn3, "DataGridViewCheckBoxColumn3") - Me.DataGridViewCheckBoxColumn3.Name = "DataGridViewCheckBoxColumn3" - Me.DataGridViewCheckBoxColumn3.ReadOnly = True - ' - 'DataGridViewCheckBoxColumn4 - ' - Me.DataGridViewCheckBoxColumn4.DataPropertyName = "ADD_DOC" - resources.ApplyResources(Me.DataGridViewCheckBoxColumn4, "DataGridViewCheckBoxColumn4") - Me.DataGridViewCheckBoxColumn4.Name = "DataGridViewCheckBoxColumn4" - Me.DataGridViewCheckBoxColumn4.ReadOnly = True - ' - 'DataGridViewCheckBoxColumn5 - ' - Me.DataGridViewCheckBoxColumn5.DataPropertyName = "VIEW_DOC" - resources.ApplyResources(Me.DataGridViewCheckBoxColumn5, "DataGridViewCheckBoxColumn5") - Me.DataGridViewCheckBoxColumn5.Name = "DataGridViewCheckBoxColumn5" - Me.DataGridViewCheckBoxColumn5.ReadOnly = True - ' - 'DataGridViewCheckBoxColumn6 - ' - Me.DataGridViewCheckBoxColumn6.DataPropertyName = "DELETE_DOC" - resources.ApplyResources(Me.DataGridViewCheckBoxColumn6, "DataGridViewCheckBoxColumn6") - Me.DataGridViewCheckBoxColumn6.Name = "DataGridViewCheckBoxColumn6" - Me.DataGridViewCheckBoxColumn6.ReadOnly = True - ' - 'DataGridViewTextBoxColumn4 - ' - Me.DataGridViewTextBoxColumn4.DataPropertyName = "ADDED_WHO" - resources.ApplyResources(Me.DataGridViewTextBoxColumn4, "DataGridViewTextBoxColumn4") - Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" - Me.DataGridViewTextBoxColumn4.ReadOnly = True - ' - 'DataGridViewTextBoxColumn5 - ' - Me.DataGridViewTextBoxColumn5.DataPropertyName = "ADDED_WHEN" - resources.ApplyResources(Me.DataGridViewTextBoxColumn5, "DataGridViewTextBoxColumn5") - Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" - Me.DataGridViewTextBoxColumn5.ReadOnly = True - ' - 'DataGridViewTextBoxColumn6 - ' - Me.DataGridViewTextBoxColumn6.DataPropertyName = "CHANGED_WHO" - resources.ApplyResources(Me.DataGridViewTextBoxColumn6, "DataGridViewTextBoxColumn6") - Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" - Me.DataGridViewTextBoxColumn6.ReadOnly = True - ' - 'DataGridViewTextBoxColumn7 - ' - Me.DataGridViewTextBoxColumn7.DataPropertyName = "CHANGED_WHEN" - resources.ApplyResources(Me.DataGridViewTextBoxColumn7, "DataGridViewTextBoxColumn7") - Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" - Me.DataGridViewTextBoxColumn7.ReadOnly = True - ' 'TBDD_USER_GROUPSBindingSource ' Me.TBDD_USER_GROUPSBindingSource.DataMember = "TBDD_USER_GROUPS" @@ -408,7 +328,7 @@ Partial Class frmRight_Management ' 'StatusStrip1 ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tschangedlabel, Me.statelbl}) + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tschangedlabel, Me.statelbl, Me.InfoLabel}) resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") Me.StatusStrip1.Name = "StatusStrip1" ' @@ -423,6 +343,11 @@ Partial Class frmRight_Management Me.statelbl.Name = "statelbl" resources.ApplyResources(Me.statelbl, "statelbl") ' + 'InfoLabel + ' + Me.InfoLabel.Name = "InfoLabel" + resources.ApplyResources(Me.InfoLabel, "InfoLabel") + ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage1) @@ -434,12 +359,13 @@ Partial Class frmRight_Management 'TabPage1 ' resources.ApplyResources(Me.TabPage1, "TabPage1") + Me.TabPage1.Controls.Add(Me.GroupBox1) Me.TabPage1.Controls.Add(CHANGED_WHENLabel) Me.TabPage1.Controls.Add(Me.CHANGED_WHENTextBox) - Me.TabPage1.Controls.Add(CHANGED_WHOLabel) - Me.TabPage1.Controls.Add(Me.CHANGED_WHOTextBox) Me.TabPage1.Controls.Add(ADDED_WHENLabel) Me.TabPage1.Controls.Add(Me.ADDED_WHENTextBox) + Me.TabPage1.Controls.Add(CHANGED_WHOLabel) + Me.TabPage1.Controls.Add(Me.CHANGED_WHOTextBox) Me.TabPage1.Controls.Add(ADDED_WHOLabel) Me.TabPage1.Controls.Add(Me.ADDED_WHOTextBox) Me.TabPage1.Controls.Add(Me.DELETE_DOCCheckBox) @@ -448,17 +374,237 @@ Partial Class frmRight_Management Me.TabPage1.Controls.Add(Me.DELETE_RECCheckBox) Me.TabPage1.Controls.Add(Me.ADD_RECCheckBox) Me.TabPage1.Controls.Add(Me.EDIT_RECCheckBox) - Me.TabPage1.Controls.Add(GROUP_IDLabel) - Me.TabPage1.Controls.Add(Me.GROUP_IDComboBox) - Me.TabPage1.Controls.Add(ENTITY_IDLabel) - Me.TabPage1.Controls.Add(Me.ENTITY_IDComboBox) - Me.TabPage1.Controls.Add(GUIDLabel) - Me.TabPage1.Controls.Add(Me.GUIDTextBox) + Me.TabPage1.Controls.Add(GROUP_NAMELabel) + Me.TabPage1.Controls.Add(Me.GROUP_NAMETextBox) + Me.TabPage1.Controls.Add(ENTITY_NAMELabel) + Me.TabPage1.Controls.Add(Me.ENTITY_NAMETextBox) + Me.TabPage1.Controls.Add(IDLabel) + Me.TabPage1.Controls.Add(Me.IDTextBox) + Me.TabPage1.Controls.Add(Me.VWPMO_RIGHT_GROUPDataGridView) Me.TabPage1.Controls.Add(Me.BindingNavigator1) - Me.TabPage1.Controls.Add(Me.TBPMO_RIGHT_GROUPDataGridView) Me.TabPage1.Name = "TabPage1" Me.TabPage1.UseVisualStyleBackColor = True ' + 'Button1 + ' + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG + resources.ApplyResources(Me.Button1, "Button1") + Me.Button1.Name = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label4 + ' + resources.ApplyResources(Me.Label4, "Label4") + Me.Label4.Name = "Label4" + ' + 'Label3 + ' + resources.ApplyResources(Me.Label3, "Label3") + Me.Label3.Name = "Label3" + ' + 'cmbGroupNew + ' + Me.cmbGroupNew.DataSource = Me.TBDD_GROUPSBindingSource + Me.cmbGroupNew.DisplayMember = "NAME" + Me.cmbGroupNew.FormattingEnabled = True + resources.ApplyResources(Me.cmbGroupNew, "cmbGroupNew") + Me.cmbGroupNew.Name = "cmbGroupNew" + Me.cmbGroupNew.ValueMember = "GUID" + ' + 'cmbSicht + ' + Me.cmbSicht.DataSource = Me.TBWH_ENTITIESBindingSource + Me.cmbSicht.DisplayMember = "FORM_TITLE" + Me.cmbSicht.FormattingEnabled = True + resources.ApplyResources(Me.cmbSicht, "cmbSicht") + Me.cmbSicht.Name = "cmbSicht" + Me.cmbSicht.ValueMember = "GUID" + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_RIGHT_GROUPBindingSource2, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_RIGHT_GROUPBindingSource2, "ADDED_WHEN", True)) + resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_RIGHT_GROUPBindingSource2, "CHANGED_WHO", True)) + resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_RIGHT_GROUPBindingSource2, "ADDED_WHO", True)) + resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + ' + 'DELETE_DOCCheckBox + ' + Me.DELETE_DOCCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.VWPMO_RIGHT_GROUPBindingSource2, "DELETE_DOC", True)) + resources.ApplyResources(Me.DELETE_DOCCheckBox, "DELETE_DOCCheckBox") + Me.DELETE_DOCCheckBox.Name = "DELETE_DOCCheckBox" + Me.DELETE_DOCCheckBox.UseVisualStyleBackColor = True + ' + 'VIEW_DOCCheckBox + ' + Me.VIEW_DOCCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.VWPMO_RIGHT_GROUPBindingSource2, "VIEW_DOC", True)) + resources.ApplyResources(Me.VIEW_DOCCheckBox, "VIEW_DOCCheckBox") + Me.VIEW_DOCCheckBox.Name = "VIEW_DOCCheckBox" + Me.VIEW_DOCCheckBox.UseVisualStyleBackColor = True + ' + 'ADD_DOCCheckBox + ' + Me.ADD_DOCCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.VWPMO_RIGHT_GROUPBindingSource2, "ADD_DOC", True)) + resources.ApplyResources(Me.ADD_DOCCheckBox, "ADD_DOCCheckBox") + Me.ADD_DOCCheckBox.Name = "ADD_DOCCheckBox" + Me.ADD_DOCCheckBox.UseVisualStyleBackColor = True + ' + 'DELETE_RECCheckBox + ' + Me.DELETE_RECCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.VWPMO_RIGHT_GROUPBindingSource2, "DELETE_REC", True)) + resources.ApplyResources(Me.DELETE_RECCheckBox, "DELETE_RECCheckBox") + Me.DELETE_RECCheckBox.Name = "DELETE_RECCheckBox" + Me.DELETE_RECCheckBox.UseVisualStyleBackColor = True + ' + 'ADD_RECCheckBox + ' + Me.ADD_RECCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.VWPMO_RIGHT_GROUPBindingSource2, "ADD_REC", True)) + resources.ApplyResources(Me.ADD_RECCheckBox, "ADD_RECCheckBox") + Me.ADD_RECCheckBox.Name = "ADD_RECCheckBox" + Me.ADD_RECCheckBox.UseVisualStyleBackColor = True + ' + 'EDIT_RECCheckBox + ' + Me.EDIT_RECCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.VWPMO_RIGHT_GROUPBindingSource2, "EDIT_REC", True)) + resources.ApplyResources(Me.EDIT_RECCheckBox, "EDIT_RECCheckBox") + Me.EDIT_RECCheckBox.Name = "EDIT_RECCheckBox" + Me.EDIT_RECCheckBox.UseVisualStyleBackColor = True + ' + 'GROUP_NAMETextBox + ' + Me.GROUP_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_RIGHT_GROUPBindingSource2, "GROUP_NAME", True)) + resources.ApplyResources(Me.GROUP_NAMETextBox, "GROUP_NAMETextBox") + Me.GROUP_NAMETextBox.Name = "GROUP_NAMETextBox" + Me.GROUP_NAMETextBox.ReadOnly = True + ' + 'ENTITY_NAMETextBox + ' + Me.ENTITY_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_RIGHT_GROUPBindingSource2, "ENTITY_NAME", True)) + resources.ApplyResources(Me.ENTITY_NAMETextBox, "ENTITY_NAMETextBox") + Me.ENTITY_NAMETextBox.Name = "ENTITY_NAMETextBox" + Me.ENTITY_NAMETextBox.ReadOnly = True + ' + 'IDTextBox + ' + Me.IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_RIGHT_GROUPBindingSource2, "ID", True)) + resources.ApplyResources(Me.IDTextBox, "IDTextBox") + Me.IDTextBox.Name = "IDTextBox" + Me.IDTextBox.ReadOnly = True + ' + 'VWPMO_RIGHT_GROUPDataGridView + ' + Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToAddRows = False + Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToDeleteRows = False + Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToOrderColumns = True + Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToResizeColumns = False + Me.VWPMO_RIGHT_GROUPDataGridView.AllowUserToResizeRows = False + resources.ApplyResources(Me.VWPMO_RIGHT_GROUPDataGridView, "VWPMO_RIGHT_GROUPDataGridView") + Me.VWPMO_RIGHT_GROUPDataGridView.AutoGenerateColumns = False + Me.VWPMO_RIGHT_GROUPDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.VWPMO_RIGHT_GROUPDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.IDDataGridViewTextBoxColumn, Me.ENTITYNAMEDataGridViewTextBoxColumn, Me.GROUPNAMEDataGridViewTextBoxColumn, Me.EDITRECDataGridViewCheckBoxColumn, Me.ADDRECDataGridViewCheckBoxColumn, Me.DELETERECDataGridViewCheckBoxColumn, Me.ADDDOCDataGridViewCheckBoxColumn, Me.VIEWDOCDataGridViewCheckBoxColumn, Me.DELETEDOCDataGridViewCheckBoxColumn, Me.ADDEDWHODataGridViewTextBoxColumn, Me.ADDEDWHENDataGridViewTextBoxColumn, Me.CHANGEDWHODataGridViewTextBoxColumn, Me.CHANGEDWHENDataGridViewTextBoxColumn}) + Me.VWPMO_RIGHT_GROUPDataGridView.DataSource = Me.VWPMO_RIGHT_GROUPBindingSource2 + Me.VWPMO_RIGHT_GROUPDataGridView.Name = "VWPMO_RIGHT_GROUPDataGridView" + ' + 'IDDataGridViewTextBoxColumn + ' + Me.IDDataGridViewTextBoxColumn.DataPropertyName = "ID" + resources.ApplyResources(Me.IDDataGridViewTextBoxColumn, "IDDataGridViewTextBoxColumn") + Me.IDDataGridViewTextBoxColumn.Name = "IDDataGridViewTextBoxColumn" + ' + 'ENTITYNAMEDataGridViewTextBoxColumn + ' + Me.ENTITYNAMEDataGridViewTextBoxColumn.DataPropertyName = "ENTITY_NAME" + Me.ENTITYNAMEDataGridViewTextBoxColumn.FillWeight = 150.0! + resources.ApplyResources(Me.ENTITYNAMEDataGridViewTextBoxColumn, "ENTITYNAMEDataGridViewTextBoxColumn") + Me.ENTITYNAMEDataGridViewTextBoxColumn.Name = "ENTITYNAMEDataGridViewTextBoxColumn" + ' + 'GROUPNAMEDataGridViewTextBoxColumn + ' + Me.GROUPNAMEDataGridViewTextBoxColumn.DataPropertyName = "GROUP_NAME" + Me.GROUPNAMEDataGridViewTextBoxColumn.FillWeight = 150.0! + resources.ApplyResources(Me.GROUPNAMEDataGridViewTextBoxColumn, "GROUPNAMEDataGridViewTextBoxColumn") + Me.GROUPNAMEDataGridViewTextBoxColumn.Name = "GROUPNAMEDataGridViewTextBoxColumn" + ' + 'EDITRECDataGridViewCheckBoxColumn + ' + Me.EDITRECDataGridViewCheckBoxColumn.DataPropertyName = "EDIT_REC" + resources.ApplyResources(Me.EDITRECDataGridViewCheckBoxColumn, "EDITRECDataGridViewCheckBoxColumn") + Me.EDITRECDataGridViewCheckBoxColumn.Name = "EDITRECDataGridViewCheckBoxColumn" + ' + 'ADDRECDataGridViewCheckBoxColumn + ' + Me.ADDRECDataGridViewCheckBoxColumn.DataPropertyName = "ADD_REC" + resources.ApplyResources(Me.ADDRECDataGridViewCheckBoxColumn, "ADDRECDataGridViewCheckBoxColumn") + Me.ADDRECDataGridViewCheckBoxColumn.Name = "ADDRECDataGridViewCheckBoxColumn" + ' + 'DELETERECDataGridViewCheckBoxColumn + ' + Me.DELETERECDataGridViewCheckBoxColumn.DataPropertyName = "DELETE_REC" + resources.ApplyResources(Me.DELETERECDataGridViewCheckBoxColumn, "DELETERECDataGridViewCheckBoxColumn") + Me.DELETERECDataGridViewCheckBoxColumn.Name = "DELETERECDataGridViewCheckBoxColumn" + ' + 'ADDDOCDataGridViewCheckBoxColumn + ' + Me.ADDDOCDataGridViewCheckBoxColumn.DataPropertyName = "ADD_DOC" + resources.ApplyResources(Me.ADDDOCDataGridViewCheckBoxColumn, "ADDDOCDataGridViewCheckBoxColumn") + Me.ADDDOCDataGridViewCheckBoxColumn.Name = "ADDDOCDataGridViewCheckBoxColumn" + ' + 'VIEWDOCDataGridViewCheckBoxColumn + ' + Me.VIEWDOCDataGridViewCheckBoxColumn.DataPropertyName = "VIEW_DOC" + resources.ApplyResources(Me.VIEWDOCDataGridViewCheckBoxColumn, "VIEWDOCDataGridViewCheckBoxColumn") + Me.VIEWDOCDataGridViewCheckBoxColumn.Name = "VIEWDOCDataGridViewCheckBoxColumn" + ' + 'DELETEDOCDataGridViewCheckBoxColumn + ' + Me.DELETEDOCDataGridViewCheckBoxColumn.DataPropertyName = "DELETE_DOC" + resources.ApplyResources(Me.DELETEDOCDataGridViewCheckBoxColumn, "DELETEDOCDataGridViewCheckBoxColumn") + Me.DELETEDOCDataGridViewCheckBoxColumn.Name = "DELETEDOCDataGridViewCheckBoxColumn" + ' + 'ADDEDWHODataGridViewTextBoxColumn + ' + Me.ADDEDWHODataGridViewTextBoxColumn.DataPropertyName = "ADDED_WHO" + resources.ApplyResources(Me.ADDEDWHODataGridViewTextBoxColumn, "ADDEDWHODataGridViewTextBoxColumn") + Me.ADDEDWHODataGridViewTextBoxColumn.Name = "ADDEDWHODataGridViewTextBoxColumn" + ' + 'ADDEDWHENDataGridViewTextBoxColumn + ' + Me.ADDEDWHENDataGridViewTextBoxColumn.DataPropertyName = "ADDED_WHEN" + resources.ApplyResources(Me.ADDEDWHENDataGridViewTextBoxColumn, "ADDEDWHENDataGridViewTextBoxColumn") + Me.ADDEDWHENDataGridViewTextBoxColumn.Name = "ADDEDWHENDataGridViewTextBoxColumn" + ' + 'CHANGEDWHODataGridViewTextBoxColumn + ' + Me.CHANGEDWHODataGridViewTextBoxColumn.DataPropertyName = "CHANGED_WHO" + resources.ApplyResources(Me.CHANGEDWHODataGridViewTextBoxColumn, "CHANGEDWHODataGridViewTextBoxColumn") + Me.CHANGEDWHODataGridViewTextBoxColumn.Name = "CHANGEDWHODataGridViewTextBoxColumn" + ' + 'CHANGEDWHENDataGridViewTextBoxColumn + ' + Me.CHANGEDWHENDataGridViewTextBoxColumn.DataPropertyName = "CHANGED_WHEN" + resources.ApplyResources(Me.CHANGEDWHENDataGridViewTextBoxColumn, "CHANGEDWHENDataGridViewTextBoxColumn") + Me.CHANGEDWHENDataGridViewTextBoxColumn.Name = "CHANGEDWHENDataGridViewTextBoxColumn" + ' 'TabPage2 ' resources.ApplyResources(Me.TabPage2, "TabPage2") @@ -854,132 +1000,20 @@ Partial Class frmRight_Management ' Me.TBDD_GROUPSTableAdapter.ClearBeforeFill = True ' - 'GUIDLabel - ' - resources.ApplyResources(GUIDLabel, "GUIDLabel") - GUIDLabel.Name = "GUIDLabel" - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RIGHT_GROUPBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") - Me.GUIDTextBox.Name = "GUIDTextBox" - ' - 'ENTITY_IDLabel + 'VWPMO_RIGHT_GROUPTableAdapter ' - resources.ApplyResources(ENTITY_IDLabel, "ENTITY_IDLabel") - ENTITY_IDLabel.Name = "ENTITY_IDLabel" + Me.VWPMO_RIGHT_GROUPTableAdapter.ClearBeforeFill = True ' - 'ENTITY_IDComboBox + 'GroupBox1 ' - Me.ENTITY_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RIGHT_GROUPBindingSource, "ENTITY_ID", True)) - Me.ENTITY_IDComboBox.DataSource = Me.TBWH_ENTITIESBindingSource - Me.ENTITY_IDComboBox.DisplayMember = "FORM_TITLE" - Me.ENTITY_IDComboBox.FormattingEnabled = True - resources.ApplyResources(Me.ENTITY_IDComboBox, "ENTITY_IDComboBox") - Me.ENTITY_IDComboBox.Name = "ENTITY_IDComboBox" - Me.ENTITY_IDComboBox.ValueMember = "GUID" - ' - 'GROUP_IDLabel - ' - resources.ApplyResources(GROUP_IDLabel, "GROUP_IDLabel") - GROUP_IDLabel.Name = "GROUP_IDLabel" - ' - 'GROUP_IDComboBox - ' - Me.GROUP_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RIGHT_GROUPBindingSource, "GROUP_ID", True)) - Me.GROUP_IDComboBox.DataSource = Me.TBDD_GROUPSBindingSource - Me.GROUP_IDComboBox.DisplayMember = "NAME" - Me.GROUP_IDComboBox.FormattingEnabled = True - resources.ApplyResources(Me.GROUP_IDComboBox, "GROUP_IDComboBox") - Me.GROUP_IDComboBox.Name = "GROUP_IDComboBox" - Me.GROUP_IDComboBox.ValueMember = "GUID" - ' - 'EDIT_RECCheckBox - ' - Me.EDIT_RECCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_RIGHT_GROUPBindingSource, "EDIT_REC", True)) - resources.ApplyResources(Me.EDIT_RECCheckBox, "EDIT_RECCheckBox") - Me.EDIT_RECCheckBox.Name = "EDIT_RECCheckBox" - Me.EDIT_RECCheckBox.UseVisualStyleBackColor = True - ' - 'ADD_RECCheckBox - ' - Me.ADD_RECCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_RIGHT_GROUPBindingSource, "ADD_REC", True)) - resources.ApplyResources(Me.ADD_RECCheckBox, "ADD_RECCheckBox") - Me.ADD_RECCheckBox.Name = "ADD_RECCheckBox" - Me.ADD_RECCheckBox.UseVisualStyleBackColor = True - ' - 'DELETE_RECCheckBox - ' - Me.DELETE_RECCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_RIGHT_GROUPBindingSource, "DELETE_REC", True)) - resources.ApplyResources(Me.DELETE_RECCheckBox, "DELETE_RECCheckBox") - Me.DELETE_RECCheckBox.Name = "DELETE_RECCheckBox" - Me.DELETE_RECCheckBox.UseVisualStyleBackColor = True - ' - 'ADD_DOCCheckBox - ' - Me.ADD_DOCCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_RIGHT_GROUPBindingSource, "ADD_DOC", True)) - resources.ApplyResources(Me.ADD_DOCCheckBox, "ADD_DOCCheckBox") - Me.ADD_DOCCheckBox.Name = "ADD_DOCCheckBox" - Me.ADD_DOCCheckBox.UseVisualStyleBackColor = True - ' - 'VIEW_DOCCheckBox - ' - Me.VIEW_DOCCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_RIGHT_GROUPBindingSource, "VIEW_DOC", True)) - resources.ApplyResources(Me.VIEW_DOCCheckBox, "VIEW_DOCCheckBox") - Me.VIEW_DOCCheckBox.Name = "VIEW_DOCCheckBox" - Me.VIEW_DOCCheckBox.UseVisualStyleBackColor = True - ' - 'DELETE_DOCCheckBox - ' - Me.DELETE_DOCCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_RIGHT_GROUPBindingSource, "DELETE_DOC", True)) - resources.ApplyResources(Me.DELETE_DOCCheckBox, "DELETE_DOCCheckBox") - Me.DELETE_DOCCheckBox.Name = "DELETE_DOCCheckBox" - Me.DELETE_DOCCheckBox.UseVisualStyleBackColor = True - ' - 'ADDED_WHOLabel - ' - resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") - ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RIGHT_GROUPBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") - Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - ' - 'ADDED_WHENLabel - ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RIGHT_GROUPBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - ' - 'CHANGED_WHOLabel - ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RIGHT_GROUPBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - ' - 'CHANGED_WHENLabel - ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_RIGHT_GROUPBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.GroupBox1.Controls.Add(Me.cmbSicht) + Me.GroupBox1.Controls.Add(Me.Button1) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.cmbGroupNew) + Me.GroupBox1.Controls.Add(Me.Label4) + resources.ApplyResources(Me.GroupBox1, "GroupBox1") + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.TabStop = False ' 'frmRight_Management ' @@ -991,11 +1025,11 @@ Partial Class frmRight_Management CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() Me.BindingNavigator1.ResumeLayout(False) Me.BindingNavigator1.PerformLayout() + CType(Me.VWPMO_RIGHT_GROUPBindingSource2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPMO_RIGHT_GROUPBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPMO_RIGHT_GROUPDataGridView, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_ENTITIESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.StatusStrip1.ResumeLayout(False) @@ -1003,6 +1037,7 @@ Partial Class frmRight_Management Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + CType(Me.VWPMO_RIGHT_GROUPDataGridView, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() @@ -1016,6 +1051,8 @@ Partial Class frmRight_Management CType(Me.USER_RIGHTSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -1027,7 +1064,6 @@ Partial Class frmRight_Management Friend WithEvents TBPMO_RIGHT_GROUPBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPMO_RIGHT_GROUPTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator - Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton @@ -1038,14 +1074,12 @@ Partial Class frmRight_Management Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents TBPMO_RIGHT_GROUPDataGridView As System.Windows.Forms.DataGridView Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBWH_ENTITIESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBWH_ENTITIESTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter Friend WithEvents TableAdapterManager1 As DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager Friend WithEvents TBWH_USER_GROUPSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBWH_USER_GROUPSTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter - Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage @@ -1101,30 +1135,40 @@ Partial Class frmRight_Management Friend WithEvents statelbl As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents TBDD_GROUPSBindingSource As BindingSource Friend WithEvents TBDD_GROUPSTableAdapter As DD_ECMAdminTableAdapters.TBDD_GROUPSTableAdapter - Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewComboBoxColumn - Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewComboBoxColumn - Friend WithEvents DataGridViewCheckBoxColumn1 As DataGridViewCheckBoxColumn - Friend WithEvents DataGridViewCheckBoxColumn2 As DataGridViewCheckBoxColumn - Friend WithEvents DataGridViewCheckBoxColumn3 As DataGridViewCheckBoxColumn - Friend WithEvents DataGridViewCheckBoxColumn4 As DataGridViewCheckBoxColumn - Friend WithEvents DataGridViewCheckBoxColumn5 As DataGridViewCheckBoxColumn - Friend WithEvents DataGridViewCheckBoxColumn6 As DataGridViewCheckBoxColumn - Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn - Friend WithEvents CHANGED_WHENTextBox As TextBox - Friend WithEvents CHANGED_WHOTextBox As TextBox - Friend WithEvents ADDED_WHENTextBox As TextBox - Friend WithEvents ADDED_WHOTextBox As TextBox + Friend WithEvents VWPMO_RIGHT_GROUPTableAdapter As DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter + Friend WithEvents VWPMO_RIGHT_GROUPDataGridView As DataGridView + Friend WithEvents VWPMO_RIGHT_GROUPBindingSource2 As BindingSource + Friend WithEvents IDDataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents ENTITYNAMEDataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents GROUPNAMEDataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents EDITRECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn + Friend WithEvents ADDRECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn + Friend WithEvents DELETERECDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn + Friend WithEvents ADDDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn + Friend WithEvents VIEWDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn + Friend WithEvents DELETEDOCDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn + Friend WithEvents ADDEDWHODataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents ADDEDWHENDataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHODataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn As DataGridViewTextBoxColumn Friend WithEvents DELETE_DOCCheckBox As CheckBox Friend WithEvents VIEW_DOCCheckBox As CheckBox Friend WithEvents ADD_DOCCheckBox As CheckBox Friend WithEvents DELETE_RECCheckBox As CheckBox Friend WithEvents ADD_RECCheckBox As CheckBox Friend WithEvents EDIT_RECCheckBox As CheckBox - Friend WithEvents GROUP_IDComboBox As ComboBox - Friend WithEvents ENTITY_IDComboBox As ComboBox - Friend WithEvents GUIDTextBox As TextBox + Friend WithEvents GROUP_NAMETextBox As TextBox + Friend WithEvents ENTITY_NAMETextBox As TextBox + Friend WithEvents IDTextBox As TextBox + Friend WithEvents InfoLabel As ToolStripStatusLabel + Friend WithEvents CHANGED_WHOTextBox As TextBox + Friend WithEvents ADDED_WHOTextBox As TextBox + Friend WithEvents CHANGED_WHENTextBox As TextBox + Friend WithEvents ADDED_WHENTextBox As TextBox + Friend WithEvents Button1 As Button + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents cmbGroupNew As ComboBox + Friend WithEvents cmbSicht As ComboBox + Friend WithEvents GroupBox1 As GroupBox End Class diff --git a/app/DD-Record-Organizer/frmRight_Management.resx b/app/DD-Record-Organizer/frmRight_Management.resx index b32eb28..2a73733 100644 --- a/app/DD-Record-Organizer/frmRight_Management.resx +++ b/app/DD-Record-Organizer/frmRight_Management.resx @@ -117,43 +117,232 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1330, 17 + + False + + + True + - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - + + 9, 44 - - + + 21, 13 + + + 23 + + + ID: + + + IDLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 19 + + + False + + True - - 23, 22 + + 9, 73 - - Add new + + 32, 13 - - 822, 17 + + 24 + + + Sicht + + + ENTITY_NAMELabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 17 + + + False - - 17, 17 + + True + + + 9, 99 + + + 46, 13 + + + 25 + + + Gruppe + + + GROUP_NAMELabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 15 + + + False + + + True + + + 568, 44 + + + 64, 13 + + + 32 + + + Erstellt wer + + + ADDED_WHOLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 7 + + + False + + + True + + + 828, 44 + + + 77, 13 + + + 34 + + + Geändert wer + + + CHANGED_WHOLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 5 + + + False + + + True + + + 568, 73 + + + 74, 13 + + + 35 + + + Erstellt wann + + + ADDED_WHENLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 3 + + + False + + + True + + + 828, 73 + + + 87, 13 + + + 36 + + + Geändert wann + + + CHANGED_WHENLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 1 + + + 262, 54 + + + 525, 165 + + + 415, 54 - 104, 22 + 133, 22 - of {0} GroupRights + von {0} Gruppenrechten Die Gesamtanzahl der Elemente. @@ -161,7 +350,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + vAAADrwBlbxySQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG @@ -182,7 +371,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA @@ -202,7 +391,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC @@ -244,7 +433,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f oAc0QjgAAAAASUVORK5CYII= @@ -262,7 +451,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG @@ -282,15 +471,6 @@ 6, 25 - - Magenta - - - 23, 22 - - - Save Group Rights - Magenta @@ -322,123 +502,32 @@ TabPage1 - 20 - - - - Top, Bottom, Left, Right - - - ID - - - 40 + 22 - - 152, 56 - - 17, 56 + 415, 54 + + + 822, 17 + + + 17, 17 + + + 17, 17 + + + 551, 54 - - Entität - - - 150 - - 1155, 95 + 606, 128 - - Gruppe - - - 150 - - - Edit Record - - - 60 - - - Add Record - - - 60 - - - Delete Record - - - 60 - - - Add Doc - - - 60 - - - View Doc - - - 60 - - - Delete Doc - - - 60 - - - Added who - - - Added when - - - Changed who - - - Changed when - - - 6, 140 - - - 1152, 252 - - - 4 - - - TBPMO_RIGHT_GROUPDataGridView - - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 21 - 160, 17 - 1256, 56 + 501, 91 - - 0, 17 - - - False - - - 0, 17 - 0, 424 @@ -463,149 +552,210 @@ 1 + + 0, 17 + + + False + + + 0, 17 + + + 36, 17 + + + None + True - - False - - + + 74, 27 + + + 231, 21 + + + 38 + + + cmbSicht + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 0 + + + MiddleLeft + + + 611, 25 + + + 98, 23 + + + 42 + + + Hinzufügen + + + MiddleRight + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + True - - 745, 89 + + 16, 30 - - 98, 13 + + 35, 13 - - 22 + + 40 - - CHANGED WHEN: + + Sicht: - - CHANGED_WHENLabel + + Label3 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage1 + + GroupBox1 - - 0 + + 2 - - 849, 86 + + 374, 27 - - 100, 22 + + 231, 21 - - 23 + + 39 - - CHANGED_WHENTextBox + + cmbGroupNew - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage1 + + GroupBox1 - - 1 + + 3 - - False - - + True - - 750, 61 + + + NoControl - - 93, 13 + + 319, 30 - - 21 + + 49, 13 - - CHANGED WHO: + + 41 - - CHANGED_WHOLabel + + Gruppe: - + + Label4 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage1 + + GroupBox1 - - 2 + + 4 - - 849, 58 + + Segoe UI, 8.25pt, style=Bold, Italic - - 100, 22 + + 12, 133 - - 22 + + 731, 57 - - CHANGED_WHOTextBox + + 43 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Neues Gruppenrecht hinzufügen: - - TabPage1 + + GroupBox1 - - 3 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - True + + TabPage1 - - 548, 90 + + 0 - - 83, 13 + + 921, 68 - - 20 + + 118, 22 - - ADDED WHEN: + + 37 - - ADDED_WHENLabel + + CHANGED_WHENTextBox - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage1 - - 4 + + 2 - 637, 87 + 673, 70 - 100, 22 + 149, 22 - 21 + 36 ADDED_WHENTextBox @@ -617,46 +767,37 @@ TabPage1 - 5 - - - False - - - True - - - 553, 62 + 4 - - 78, 13 + + 921, 39 - - 19 + + 118, 22 - - ADDED WHO: + + 35 - - ADDED_WHOLabel + + CHANGED_WHOTextBox - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage1 - + 6 - 637, 59 + 673, 41 - 100, 22 + 149, 22 - 20 + 33 ADDED_WHOTextBox @@ -668,16 +809,16 @@ TabPage1 - 7 + 8 - 379, 107 + 458, 94 104, 24 - 19 + 32 Delete Doc @@ -692,16 +833,16 @@ TabPage1 - 8 + 9 - 379, 83 + 458, 68 104, 24 - 17 + 31 View Doc @@ -716,16 +857,16 @@ TabPage1 - 9 + 10 - 379, 59 + 458, 39 104, 24 - 15 + 30 Add Doc @@ -740,16 +881,16 @@ TabPage1 - 10 + 11 - 260, 107 + 334, 94 104, 24 - 13 + 29 Delete Record @@ -764,16 +905,16 @@ TabPage1 - 11 + 12 - 260, 83 + 334, 68 104, 24 - 11 + 28 Add Record @@ -788,16 +929,16 @@ TabPage1 - 12 + 13 - 260, 57 + 334, 39 104, 24 - 9 + 27 Edit Record @@ -812,191 +953,332 @@ TabPage1 - 13 + 14 - - False - - - True + + 72, 96 - - 9, 89 + + 231, 22 - - 49, 13 + + 26 - - 6 + + GROUP_NAMETextBox - - Gruppe: + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GROUP_IDLabel + + TabPage1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 16 + + + 72, 70 + + + 231, 22 + + + 25 + + + ENTITY_NAMETextBox - + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage1 - - 14 + + 18 - - 61, 86 + + 72, 44 - - 171, 21 + + 100, 22 - - 7 + + 24 - - GROUP_IDComboBox + + IDTextBox - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage1 - - 15 + + 20 - - False + + Top, Bottom, Left, Right + + + ID + + + 50 + + + Sicht Name + + + Gruppen Name + + + Edit Record + + + Add Record + + + Delete Record + + + Add Doc + + + View Doc + + + Delete Doc + + + Erstellt wer + + + Erstellt wann + + + Geändert wer + + + Geändert wann + + + 12, 196 + + + 1088, 196 + + + 23 + + + VWPMO_RIGHT_GROUPDataGridView + + + System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 21 + + + 4, 22 + + + 3, 3, 3, 3 + + + 1161, 398 + + + 0 + + + Gruppen Rechte + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + + + 617, 91 - + True - - 8, 62 + + btndeleteUserRight + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 0 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 1 + + + cmbEntity + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 2 + + + Label1 - - 50, 13 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 3 - - 5 + + btnAddUser2ConstructorREL - - EntityID: + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ENTITY_IDLabel + + TabPage2 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 4 - - TabPage1 + + GridControlUsers2Menue - - 16 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 61, 59 + + TabPage2 - - 171, 21 + + 5 - - 6 + + lblUsers - - ENTITY_IDComboBox + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage2 - - TabPage1 + + 6 - - 17 + + GridControl1 - - False - - - True + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 8, 34 + + TabPage2 - - 21, 13 + + 7 - - 4 + + BindingNavigator2 - - ID: + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GUIDLabel + + TabPage2 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 8 - - TabPage1 + + Tahoma, 8.25pt - - 18 + + 4, 22 - - 61, 31 + + 3, 3, 3, 3 - - 100, 22 + + 1161, 398 - - 5 + + 1 - - GUIDTextBox + + Benutzer Rechte - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage2 - - TabPage1 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 19 + + TabControl1 - - 4, 22 + + 1 - - 3, 3, 3, 3 + + Fill - - 1161, 398 + + 0, 0 - - 0 + + 1169, 424 - - Gruppen Rechte + + 6 - - TabPage1 + + TabControl1 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl1 + + $this - + 0 - - True - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m @@ -1130,7 +1412,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wgAADsIBFShKgAAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf + vAAADrwBlbxySQAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= @@ -1173,7 +1455,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende Top, Bottom, Left - 555, 95 + 17, 128 11, 120 @@ -1218,7 +1500,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende 102 - 256, 272 + 256, 281 90 @@ -1443,7 +1725,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende 99 - 880, 272 + 880, 281 2 @@ -1461,10 +1743,10 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende 7 - 17, 95 + 617, 91 - 750, 95 + 210, 128 68, 22 @@ -1478,7 +1760,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA @@ -1498,7 +1780,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC @@ -1540,7 +1822,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f oAc0QjgAAAAASUVORK5CYII= @@ -1558,7 +1840,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wQAADsEBuJFr7QAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG @@ -1611,74 +1893,20 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende 8 - - Tahoma, 8.25pt - - - 4, 22 - - - 3, 3, 3, 3 - - - 1161, 398 - - - 1 - - - Benutzer Rechte - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - Fill - - - 0, 0 - - - 1169, 424 - - - 6 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 0 - - 171, 95 + 770, 91 - 369, 56 + 765, 54 - 581, 56 + 971, 54 - 761, 56 + 17, 91 - 1011, 56 + 263, 91 407, 17 @@ -1687,16 +1915,19 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende 649, 17 - 1079, 17 + 17, 54 - 366, 95 + 962, 91 - 955, 95 + 412, 128 - 17, 134 + 816, 128 + + + 275, 165 True @@ -1749,23 +1980,17 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende Rechte Designer - Recordmanagement und Dateihandling - - BindingNavigatorAddNewItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBPMO_RIGHT_GROUPBindingSource + + VWPMO_RIGHT_GROUPBindingSource2 - + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DD_DMSDataSet + + DD_ECMAdmin - - DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorCountItem @@ -1827,29 +2052,23 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ToolStripButton1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ToolStripButton2 System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewTextBoxColumn1 + + TBPMO_RIGHT_GROUPBindingSource - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewTextBoxColumn2 + + DD_DMSDataSet - - System.Windows.Forms.DataGridViewComboBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBWH_ENTITIESBindingSource @@ -1857,101 +2076,113 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DD_ECMAdmin - - - DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - DataGridViewTextBoxColumn3 - - - System.Windows.Forms.DataGridViewComboBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TBDD_GROUPSBindingSource System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewCheckBoxColumn1 + + TBDD_USER_GROUPSBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + tschangedlabel - - System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewCheckBoxColumn2 + + statelbl - - System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewCheckBoxColumn3 + + InfoLabel - - System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewCheckBoxColumn4 + + IDDataGridViewTextBoxColumn - + + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ENTITYNAMEDataGridViewTextBoxColumn + + + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GROUPNAMEDataGridViewTextBoxColumn + + + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + EDITRECDataGridViewCheckBoxColumn + + System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewCheckBoxColumn5 + + ADDRECDataGridViewCheckBoxColumn - + System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewCheckBoxColumn6 + + DELETERECDataGridViewCheckBoxColumn - + System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewTextBoxColumn4 + + ADDDOCDataGridViewCheckBoxColumn - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewTextBoxColumn5 + + VIEWDOCDataGridViewCheckBoxColumn - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewTextBoxColumn6 + + DELETEDOCDataGridViewCheckBoxColumn - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.DataGridViewCheckBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DataGridViewTextBoxColumn7 + + ADDEDWHODataGridViewTextBoxColumn - + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TBDD_USER_GROUPSBindingSource + + ADDEDWHENDataGridViewTextBoxColumn - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - tschangedlabel + + CHANGEDWHODataGridViewTextBoxColumn - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - statelbl + + CHANGEDWHENDataGridViewTextBoxColumn - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 TBAD_UsersBindingSource @@ -2217,6 +2448,12 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende DD_Record_Organizer.DD_ECMAdminTableAdapters.TBDD_GROUPSTableAdapter, DD_ECMAdmin.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + VWPMO_RIGHT_GROUPTableAdapter + + + DD_Record_Organizer.DD_ECMAdminTableAdapters.VWPMO_RIGHT_GROUPTableAdapter, DD_ECMAdmin.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + frmRight_Management diff --git a/app/DD-Record-Organizer/frmRight_Management.vb b/app/DD-Record-Organizer/frmRight_Management.vb index efd0df3..04f19a3 100644 --- a/app/DD-Record-Organizer/frmRight_Management.vb +++ b/app/DD-Record-Organizer/frmRight_Management.vb @@ -1,6 +1,10 @@ Public Class frmRight_Management Private Shared _Instance As frmRight_Management = Nothing Private insert As Boolean = False + Private formloaded As Boolean = False + Private updateIP As Boolean = False + Private DGSelection As Boolean = False + Private ID_CURR As Integer = 0 Public Shared Function Instance() As frmRight_Management If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then _Instance = New frmRight_Management @@ -28,71 +32,14 @@ MsgBox("Error in Save_User_Rights_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub - - Private Sub Save_Group_Rights_Data() - Try - Me.Validate() - Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit() - - If DD_DMSDataSet.TBPMO_RIGHT_GROUP.GetChanges Is Nothing = False Then - Try - - Me.TBPMO_RIGHT_GROUPDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn6").Value = USER_USERNAME - Catch ex As Exception - - End Try - Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit() - Me.TBPMO_RIGHT_GROUPTableAdapter.Update(DD_DMSDataSet.TBPMO_RIGHT_GROUP) - tschangedlabel.Text = "Right Group changed - " & Now - tschangedlabel.Visible = True - Else - tschangedlabel.Visible = False - End If - - Catch ex As Exception - MsgBox("Error in Save_Group_Rights_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Sub Load_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String) - Try - Dim settings() As String - If My.Settings(_settings_String) <> String.Empty Then - settings = My.Settings(_settings_String).Split("$"c) - For idx As Integer = 0 To _Datagrid.Columns.Count - 1 - Dim sv() As String = settings(idx).Split("/"c) - _Datagrid.Columns(idx).DisplayIndex = CInt(sv(0)) - _Datagrid.Columns(idx).Width = CInt(sv(1)) - Next - End If - Catch ex As Exception - - End Try - End Sub - Sub Save_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String) - Try - Dim settings As String = String.Empty - For idx As Integer = 0 To _Datagrid.Columns.Count - 1 - settings += _Datagrid.Columns(idx).DisplayIndex.ToString() - settings += "/" - settings += _Datagrid.Columns(idx).Width.ToString - settings += "$" - Next - My.Settings(_settings_String) = settings - Catch ex As Exception - My.Settings(_settings_String) = String.Empty - End Try - End Sub - Private Sub frmRight_Management_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - Save_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView") + If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then MessageBox.Show("If You changed some data here, be aware that this data needs to be synchronized with Your proxy-data!" & vbNewLine & "The regualar processing-time are 30 minutes", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Information) End If 'Save_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView") End Sub Private Sub frmGroup_Rights_Load(sender As Object, e As EventArgs) Handles MyBase.Load - 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMAdmin.TBDD_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen. - Refresh_Entities() Try Me.TBWH_USER_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString @@ -103,13 +50,14 @@ Me.TBDD_GROUPSTableAdapter.Fill(Me.DD_ECMAdmin.TBDD_GROUPS) Me.TBDD_USERTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER) + VWPMO_RIGHT_GROUPTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString + Catch ex As Exception MsgBox("Error in Loading Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try Refresh_Rights_Groups() - Load_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView") - 'Load_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView") + End Sub Sub Refresh_Rights_Users(ENTITY_ID As Integer) @@ -123,8 +71,7 @@ Sub Refresh_Rights_Groups() Try - Me.TBPMO_RIGHT_GROUPTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString - Me.TBPMO_RIGHT_GROUPTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP) + Me.VWPMO_RIGHT_GROUPTableAdapter.Fill(Me.DD_ECMAdmin.VWPMO_RIGHT_GROUP) Catch ex As Exception MsgBox("Error in Refresh_Rights_Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -142,16 +89,15 @@ Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP.ADDED_WHOColumn.DefaultValue = USER_USERNAME Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP.ENTITY_IDColumn.DefaultValue = MYDB_ECM.GetScalarValue("SELECT MIN(GUID) FROM TBPMO_FORM") End Sub - Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click - Save_Group_Rights_Data() - End Sub Private Sub TBPMO_RIGHT_GROUPBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.CurrentChanged tschangedlabel.Visible = False End Sub Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click + updateIP = True Refresh_Rights_Groups() + updateIP = False End Sub Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) @@ -301,4 +247,94 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH End Try End Sub + Private Sub EDIT_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles EDIT_RECCheckBox.CheckedChanged + If updateIP = False Then + Update_RightGroup_VALUE("EDIT_REC", EDIT_RECCheckBox.Checked, IDTextBox.Text) + End If + + End Sub + + Private Sub Update_RightGroup_VALUE(pItem As String, obit As Boolean, pID As String) + If formloaded = False Or pID = "" Or DGSelection = True Then + Exit Sub + End If + updateIP = True + ID_CURR = pID + Dim oupdate = $"UPDATE TBPMO_RIGHT_GROUP SET {pItem} = '{obit}', CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {pID} + and {pItem} <> '{obit}'" + If MYDB_ECM.ExecuteNonQuery(oupdate) Then + InfoLabel.Text = $"{pItem} updated successfully - {Now.ToLongTimeString}" + Refresh_Rights_Groups() + VWPMO_RIGHT_GROUPBindingSource2.Position = VWPMO_RIGHT_GROUPBindingSource2.Find("ID", ID_CURR) + updateIP = False + End If + End Sub + + Private Sub ADD_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ADD_RECCheckBox.CheckedChanged + If updateIP = False Then + Update_RightGroup_VALUE("ADD_REC", ADD_RECCheckBox.Checked, IDTextBox.Text) + End If + + End Sub + + Private Sub DELETE_RECCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles DELETE_RECCheckBox.CheckedChanged + If updateIP = False Then + Update_RightGroup_VALUE("DELETE_REC", DELETE_RECCheckBox.Checked, IDTextBox.Text) + End If + + End Sub + + Private Sub ADD_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ADD_DOCCheckBox.CheckedChanged + If updateIP = False Then + Update_RightGroup_VALUE("ADD_DOC", ADD_DOCCheckBox.Checked, IDTextBox.Text) + End If + + + End Sub + + Private Sub VIEW_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles VIEW_DOCCheckBox.CheckedChanged + If updateIP = False Then + Update_RightGroup_VALUE("VIEW_DOC", VIEW_DOCCheckBox.Checked, IDTextBox.Text) + End If + + + End Sub + + Private Sub DELETE_DOCCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles DELETE_DOCCheckBox.CheckedChanged + If updateIP = False Then + Update_RightGroup_VALUE("DELETE_DOC", DELETE_DOCCheckBox.Checked, IDTextBox.Text) + End If + + + End Sub + + Private Sub frmRight_Management_Shown(sender As Object, e As EventArgs) Handles Me.Shown + formloaded = True + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If cmbSicht.SelectedIndex <> -1 And cmbGroupNew.SelectedIndex <> -1 Then + Dim oinsert = $"INSERT INTO [dbo].[TBPMO_RIGHT_GROUP] ([ENTITY_ID],[GROUP_ID],[ADDED_WHO]) + VALUES ({cmbSicht.SelectedValue},{cmbGroupNew.SelectedValue},'{Environment.UserName}')" + If MYDB_ECM.ExecuteNonQuery(oinsert) Then + InfoLabel.Text = $"New rightGroup Added successfully - {Now.ToLongTimeString}" + updateIP = True + Refresh_Rights_Groups() + updateIP = False + End If + End If + + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click + If MessageBox.Show("Do You really want to delete this relation", "Question", MessageBoxButtons.YesNo) _ + = Windows.Forms.DialogResult.Yes Then + Dim odelete = $"DELETE FROM [dbo].[TBPMO_RIGHT_GROUP] WHERE GUID = {IDTextBox.Text}" + If MYDB_ECM.ExecuteNonQuery(odelete) Then + updateIP = True + Refresh_Rights_Groups() + updateIP = False + End If + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb b/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb index 54ae1e3..6f6d652 100644 --- a/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb +++ b/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb @@ -39,7 +39,6 @@ Partial Class frmStructureNodeConfig Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() @@ -62,7 +61,7 @@ Partial Class frmStructureNodeConfig Me.btnSelectBackground = New System.Windows.Forms.Button() Me.pbBackground = New System.Windows.Forms.PictureBox() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.ComboBoxEntity = New System.Windows.Forms.ComboBox() Me.TBWH_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.NAMETextBox = New System.Windows.Forms.TextBox() Me.COMMENTTextBox = New System.Windows.Forms.TextBox() @@ -131,9 +130,9 @@ Partial Class frmStructureNodeConfig ADDED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) ADDED_WHOLabel.Location = New System.Drawing.Point(398, 267) ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ADDED_WHOLabel.Size = New System.Drawing.Size(74, 13) + ADDED_WHOLabel.Size = New System.Drawing.Size(61, 13) ADDED_WHOLabel.TabIndex = 9 - ADDED_WHOLabel.Text = "ADDED WHO:" + ADDED_WHOLabel.Text = "Erstellt Wer" ' 'ADDED_WHENLabel ' @@ -141,9 +140,9 @@ Partial Class frmStructureNodeConfig ADDED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) ADDED_WHENLabel.Location = New System.Drawing.Point(525, 267) ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ADDED_WHENLabel.Size = New System.Drawing.Size(79, 13) + ADDED_WHENLabel.Size = New System.Drawing.Size(68, 13) ADDED_WHENLabel.TabIndex = 11 - ADDED_WHENLabel.Text = "ADDED WHEN:" + ADDED_WHENLabel.Text = "Erstellt wann" ' 'CHANGED_WHOLabel ' @@ -151,9 +150,9 @@ Partial Class frmStructureNodeConfig CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) CHANGED_WHOLabel.Location = New System.Drawing.Point(655, 267) CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - CHANGED_WHOLabel.Size = New System.Drawing.Size(89, 13) + CHANGED_WHOLabel.Size = New System.Drawing.Size(71, 13) CHANGED_WHOLabel.TabIndex = 13 - CHANGED_WHOLabel.Text = "CHANGED WHO:" + CHANGED_WHOLabel.Text = "Geändert wer" ' 'CHANGED_WHENLabel ' @@ -161,9 +160,9 @@ Partial Class frmStructureNodeConfig CHANGED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) CHANGED_WHENLabel.Location = New System.Drawing.Point(782, 267) CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - CHANGED_WHENLabel.Size = New System.Drawing.Size(94, 13) + CHANGED_WHENLabel.Size = New System.Drawing.Size(80, 13) CHANGED_WHENLabel.TabIndex = 15 - CHANGED_WHENLabel.Text = "CHANGED WHEN:" + CHANGED_WHENLabel.Text = "Geändert wann" ' 'NAMELabel ' @@ -198,8 +197,8 @@ Partial Class frmStructureNodeConfig Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.BindingSource = Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.CountItem = Me.BindingNavigatorCountItem Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.CountItemFormat = "von {0} Node Configurations" - Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem - Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigatorSaveItem}) + Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.DeleteItem = Nothing + Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigatorSaveItem}) Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.Location = New System.Drawing.Point(0, 0) Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem @@ -237,15 +236,6 @@ Partial Class frmStructureNodeConfig Me.BindingNavigatorCountItem.Text = "von {0} Node Configurations" Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." ' - 'BindingNavigatorDeleteItem - ' - Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) - Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" - Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorDeleteItem.Text = "Löschen" - ' 'BindingNavigatorMoveFirstItem ' Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image @@ -330,7 +320,7 @@ Partial Class frmStructureNodeConfig 'TYPE_NODENumericUpDown ' Me.TYPE_NODENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource, "TYPE_NODE", True)) - Me.TYPE_NODENumericUpDown.Location = New System.Drawing.Point(659, 153) + Me.TYPE_NODENumericUpDown.Location = New System.Drawing.Point(659, 150) Me.TYPE_NODENumericUpDown.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) Me.TYPE_NODENumericUpDown.Name = "TYPE_NODENumericUpDown" Me.TYPE_NODENumericUpDown.Size = New System.Drawing.Size(55, 22) @@ -340,11 +330,11 @@ Partial Class frmStructureNodeConfig 'CREATE_RECORDCheckBox ' Me.CREATE_RECORDCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource, "CREATE_RECORD", True)) - Me.CREATE_RECORDCheckBox.Location = New System.Drawing.Point(764, 150) + Me.CREATE_RECORDCheckBox.Location = New System.Drawing.Point(764, 149) Me.CREATE_RECORDCheckBox.Name = "CREATE_RECORDCheckBox" - Me.CREATE_RECORDCheckBox.Size = New System.Drawing.Size(185, 24) + Me.CREATE_RECORDCheckBox.Size = New System.Drawing.Size(142, 24) Me.CREATE_RECORDCheckBox.TabIndex = 8 - Me.CREATE_RECORDCheckBox.Text = "Create Record? (Yes/No)" + Me.CREATE_RECORDCheckBox.Text = "Create Record?" Me.CREATE_RECORDCheckBox.UseVisualStyleBackColor = True ' 'ADDED_WHOTextBox @@ -445,7 +435,7 @@ Partial Class frmStructureNodeConfig Me.pbBackground.Location = New System.Drawing.Point(6, 21) Me.pbBackground.Name = "pbBackground" Me.pbBackground.Size = New System.Drawing.Size(76, 51) - Me.pbBackground.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.pbBackground.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.pbBackground.TabIndex = 80 Me.pbBackground.TabStop = False ' @@ -453,17 +443,17 @@ Partial Class frmStructureNodeConfig ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' - 'ComboBox1 + 'ComboBoxEntity ' - Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource, "ENTITY_ID", True)) - Me.ComboBox1.DataSource = Me.TBWH_ENTITYBindingSource - Me.ComboBox1.DisplayMember = "FORM_TITLE" - Me.ComboBox1.FormattingEnabled = True - Me.ComboBox1.Location = New System.Drawing.Point(401, 151) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(252, 21) - Me.ComboBox1.TabIndex = 85 - Me.ComboBox1.ValueMember = "FORM_ID" + Me.ComboBoxEntity.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource, "ENTITY_ID", True)) + Me.ComboBoxEntity.DataSource = Me.TBWH_ENTITYBindingSource + Me.ComboBoxEntity.DisplayMember = "FORM_TITLE" + Me.ComboBoxEntity.FormattingEnabled = True + Me.ComboBoxEntity.Location = New System.Drawing.Point(401, 151) + Me.ComboBoxEntity.Name = "ComboBoxEntity" + Me.ComboBoxEntity.Size = New System.Drawing.Size(252, 21) + Me.ComboBoxEntity.TabIndex = 85 + Me.ComboBoxEntity.ValueMember = "FORM_ID" ' 'TBWH_ENTITYBindingSource ' @@ -594,7 +584,7 @@ Partial Class frmStructureNodeConfig Me.Controls.Add(Me.COMMENTTextBox) Me.Controls.Add(NAMELabel) Me.Controls.Add(Me.NAMETextBox) - Me.Controls.Add(Me.ComboBox1) + Me.Controls.Add(Me.ComboBoxEntity) Me.Controls.Add(Me.GroupBoxNodeIcon) Me.Controls.Add(Me.lblSave) Me.Controls.Add(GUIDLabel) @@ -640,7 +630,6 @@ Partial Class frmStructureNodeConfig Friend WithEvents TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel - Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator @@ -665,7 +654,7 @@ Partial Class frmStructureNodeConfig Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Friend WithEvents TBWH_ENTITYBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBWH_ENTITYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter - Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox + Friend WithEvents ComboBoxEntity As System.Windows.Forms.ComboBox Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox Friend WithEvents TreeView1 As System.Windows.Forms.TreeView diff --git a/app/DD-Record-Organizer/frmStructureNodeConfig.resx b/app/DD-Record-Organizer/frmStructureNodeConfig.resx index 57b9b93..4ef6793 100644 --- a/app/DD-Record-Organizer/frmStructureNodeConfig.resx +++ b/app/DD-Record-Organizer/frmStructureNodeConfig.resx @@ -154,7 +154,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wAAADsABataJCQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + vQAADr0BR/uQrQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA @@ -169,22 +169,10 @@ 17, 17 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wAAADsABataJCQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wAAADsABataJCQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + vQAADr0BR/uQrQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA @@ -195,7 +183,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wAAADsABataJCQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + vQAADr0BR/uQrQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC @@ -204,7 +192,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wAAADsABataJCQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + vQAADr0BR/uQrQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f oAc0QjgAAAAASUVORK5CYII= @@ -213,7 +201,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wAAADsABataJCQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + vQAADr0BR/uQrQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG @@ -224,16 +212,22 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wAAADsABataJCQAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + vQAADr0BR/uQrQAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + 17, 17 + 422, 56 564, 56 + + 564, 56 + 548, 17 @@ -249,6 +243,9 @@ 974, 56 + + 974, 56 + 318, 95 diff --git a/app/DD-Record-Organizer/frmStructureNodeConfig.vb b/app/DD-Record-Organizer/frmStructureNodeConfig.vb index f0c01e2..d4cd942 100644 --- a/app/DD-Record-Organizer/frmStructureNodeConfig.vb +++ b/app/DD-Record-Organizer/frmStructureNodeConfig.vb @@ -378,9 +378,7 @@ End Sub - Private Sub TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.CurrentChanged - Load_image() - End Sub + Sub Load_Image() If GUIDTextBox.Text <> "" Then Try @@ -416,6 +414,7 @@ Dim ID = SelectedNode.Tag If IsNumeric(ID) Then TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.Filter = "GUID = " & ID + Load_Image() End If End If Me.lblSave.Visible = False @@ -438,12 +437,22 @@ End Sub Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click - Try - TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.AddNew() - GroupBoxNodeIcon.Enabled = False - Catch ex As Exception - MsgBox("Error in AddNode:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try + 'Try + ' TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.AddNew() + ' GroupBoxNodeIcon.Enabled = False + 'Catch ex As Exception + ' MsgBox("Error in AddNode:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + 'End Try + Dim oParentID = GUIDTextBox.Text + If oParentID = "" Then + oParentID = 0 + End If + Dim NewAddForm As New frmNodeConfigAdd(GUIDTextBox.Text, ComboBoxEntity.SelectedValue, ComboBoxEntity.Text) + NewAddForm.ShowDialog() + LoadData() + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) End Sub End Class \ No newline at end of file