jj 15.09 frmWD_Resultlist_Config

This commit is contained in:
JenneJ
2016-09-15 16:42:00 +02:00
parent d2191158d8
commit 7103438c83
11 changed files with 1368 additions and 968 deletions

View File

@@ -39,7 +39,7 @@ Partial Public Class DD_ECMAdmin
Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable
Private tableTBPMO_RESULTLIST_CONFIG As TBPMO_RESULTLIST_CONFIGDataTable
Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
Private tableDT_VORSCHAU As DT_VORSCHAUDataTable
@@ -101,8 +101,8 @@ Partial Public Class DD_ECMAdmin
If (Not (ds.Tables("TBPMO_SAP_FUBA")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_SAP_FUBADataTable(ds.Tables("TBPMO_SAP_FUBA")))
End If
If (Not (ds.Tables("TBPMO_RESULTLIST_CONFIG")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_RESULTLIST_CONFIG")))
If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")))
End If
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
@@ -207,9 +207,9 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_RESULTLIST_CONFIG() As TBPMO_RESULTLIST_CONFIGDataTable
Public ReadOnly Property TBPMO_DOCSEARCH_RESULTLIST_CONFIG() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
Get
Return Me.tableTBPMO_RESULTLIST_CONFIG
Return Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG
End Get
End Property
@@ -341,8 +341,8 @@ Partial Public Class DD_ECMAdmin
If (Not (ds.Tables("TBPMO_SAP_FUBA")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_SAP_FUBADataTable(ds.Tables("TBPMO_SAP_FUBA")))
End If
If (Not (ds.Tables("TBPMO_RESULTLIST_CONFIG")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_RESULTLIST_CONFIG")))
If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")))
End If
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
@@ -430,10 +430,10 @@ Partial Public Class DD_ECMAdmin
Me.tableTBPMO_SAP_FUBA.InitVars
End If
End If
Me.tableTBPMO_RESULTLIST_CONFIG = CType(MyBase.Tables("TBPMO_RESULTLIST_CONFIG"),TBPMO_RESULTLIST_CONFIGDataTable)
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(MyBase.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG"),TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable)
If (initTable = true) Then
If (Not (Me.tableTBPMO_RESULTLIST_CONFIG) Is Nothing) Then
Me.tableTBPMO_RESULTLIST_CONFIG.InitVars
If (Not (Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG) Is Nothing) Then
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.InitVars
End If
End If
Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"),DT_VORSCHAUDataTable)
@@ -485,8 +485,8 @@ Partial Public Class DD_ECMAdmin
MyBase.Tables.Add(Me.tableTBWH_USER_GROUPS)
Me.tableTBPMO_SAP_FUBA = New TBPMO_SAP_FUBADataTable()
MyBase.Tables.Add(Me.tableTBPMO_SAP_FUBA)
Me.tableTBPMO_RESULTLIST_CONFIG = New TBPMO_RESULTLIST_CONFIGDataTable()
MyBase.Tables.Add(Me.tableTBPMO_RESULTLIST_CONFIG)
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable()
MyBase.Tables.Add(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG)
Me.tableDT_VORSCHAU = New DT_VORSCHAUDataTable()
MyBase.Tables.Add(Me.tableDT_VORSCHAU)
Me.tableTBAD_Users = New TBAD_UsersDataTable()
@@ -543,7 +543,7 @@ Partial Public Class DD_ECMAdmin
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Function ShouldSerializeTBPMO_RESULTLIST_CONFIG() As Boolean
Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG() As Boolean
Return false
End Function
@@ -651,7 +651,7 @@ Partial Public Class DD_ECMAdmin
Public Delegate Sub TBPMO_SAP_FUBARowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_SAP_FUBARowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Delegate Sub TBPMO_RESULTLIST_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RESULTLIST_CONFIGRowChangeEvent)
Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent)
@@ -3563,12 +3563,12 @@ Partial Public Class DD_ECMAdmin
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBPMO_RESULTLIST_CONFIGDataTable
Inherits Global.System.Data.TypedTableBase(Of TBPMO_RESULTLIST_CONFIGRow)
Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnNAME As Global.System.Data.DataColumn
Private columnENTITY_ID As Global.System.Data.DataColumn
Private columnLANGUAGE As Global.System.Data.DataColumn
@@ -3594,7 +3594,7 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_RESULTLIST_CONFIG"
Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG"
Me.BeginInit
Me.InitClass
Me.EndInit
@@ -3635,9 +3635,9 @@ Partial Public Class DD_ECMAdmin
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
Return Me.columnENTITY_ID
End Get
End Property
@@ -3732,50 +3732,50 @@ Partial Public Class DD_ECMAdmin
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RESULTLIST_CONFIGRow
Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Get
Return CType(Me.Rows(index),TBPMO_RESULTLIST_CONFIGRow)
Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Event TBPMO_RESULTLIST_CONFIGRowChanging As TBPMO_RESULTLIST_CONFIGRowChangeEventHandler
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Event TBPMO_RESULTLIST_CONFIGRowChanged As TBPMO_RESULTLIST_CONFIGRowChangeEventHandler
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Event TBPMO_RESULTLIST_CONFIGRowDeleting As TBPMO_RESULTLIST_CONFIGRowChangeEventHandler
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Event TBPMO_RESULTLIST_CONFIGRowDeleted As TBPMO_RESULTLIST_CONFIGRowChangeEventHandler
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overloads Sub AddTBPMO_RESULTLIST_CONFIGRow(ByVal row As TBPMO_RESULTLIST_CONFIGRow)
Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overloads Function AddTBPMO_RESULTLIST_CONFIGRow(ByVal NAME As String, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VISIBLE As Boolean) As TBPMO_RESULTLIST_CONFIGRow
Dim rowTBPMO_RESULTLIST_CONFIGRow As TBPMO_RESULTLIST_CONFIGRow = CType(Me.NewRow,TBPMO_RESULTLIST_CONFIGRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE}
rowTBPMO_RESULTLIST_CONFIGRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_RESULTLIST_CONFIGRow)
Return rowTBPMO_RESULTLIST_CONFIGRow
Public Overloads Function AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VISIBLE As Boolean) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Dim rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow = CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
Dim columnValuesArray() As Object = New Object() {Nothing, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE}
rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
Return rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RESULTLIST_CONFIGRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RESULTLIST_CONFIGRow)
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBPMO_RESULTLIST_CONFIGDataTable = CType(MyBase.Clone,TBPMO_RESULTLIST_CONFIGDataTable)
Dim cln As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable)
cln.InitVars
Return cln
End Function
@@ -3783,14 +3783,14 @@ Partial Public Class DD_ECMAdmin
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_RESULTLIST_CONFIGDataTable()
Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnNAME = MyBase.Columns("NAME")
Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID")
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
Me.columnCOLUMN_VIEW = MyBase.Columns("COLUMN_VIEW")
Me.columnHEADER_CAPTION = MyBase.Columns("HEADER_CAPTION")
@@ -3808,8 +3808,8 @@ Partial Public Class DD_ECMAdmin
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNAME)
Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnENTITY_ID)
Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLANGUAGE)
Me.columnCOLUMN_VIEW = New Global.System.Data.DataColumn("COLUMN_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element)
@@ -3837,8 +3837,7 @@ Partial Public Class DD_ECMAdmin
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnNAME.AllowDBNull = false
Me.columnNAME.MaxLength = 100
Me.columnENTITY_ID.AllowDBNull = false
Me.columnLANGUAGE.AllowDBNull = false
Me.columnLANGUAGE.MaxLength = 5
Me.columnCOLUMN_VIEW.AllowDBNull = false
@@ -3855,28 +3854,28 @@ Partial Public Class DD_ECMAdmin
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function NewTBPMO_RESULTLIST_CONFIGRow() As TBPMO_RESULTLIST_CONFIGRow
Return CType(Me.NewRow,TBPMO_RESULTLIST_CONFIGRow)
Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBPMO_RESULTLIST_CONFIGRow(builder)
Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_RESULTLIST_CONFIGRow)
Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBPMO_RESULTLIST_CONFIGRowChangedEvent) Is Nothing) Then
RaiseEvent TBPMO_RESULTLIST_CONFIGRowChanged(Me, New TBPMO_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RESULTLIST_CONFIGRow), e.Action))
If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangedEvent) Is Nothing) Then
RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action))
End If
End Sub
@@ -3884,8 +3883,8 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBPMO_RESULTLIST_CONFIGRowChangingEvent) Is Nothing) Then
RaiseEvent TBPMO_RESULTLIST_CONFIGRowChanging(Me, New TBPMO_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RESULTLIST_CONFIGRow), e.Action))
If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangingEvent) Is Nothing) Then
RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action))
End If
End Sub
@@ -3893,8 +3892,8 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBPMO_RESULTLIST_CONFIGRowDeletedEvent) Is Nothing) Then
RaiseEvent TBPMO_RESULTLIST_CONFIGRowDeleted(Me, New TBPMO_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RESULTLIST_CONFIGRow), e.Action))
If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletedEvent) Is Nothing) Then
RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action))
End If
End Sub
@@ -3902,14 +3901,14 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBPMO_RESULTLIST_CONFIGRowDeletingEvent) Is Nothing) Then
RaiseEvent TBPMO_RESULTLIST_CONFIGRowDeleting(Me, New TBPMO_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RESULTLIST_CONFIGRow), e.Action))
If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletingEvent) Is Nothing) Then
RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub RemoveTBPMO_RESULTLIST_CONFIGRow(ByVal row As TBPMO_RESULTLIST_CONFIGRow)
Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
Me.Rows.Remove(row)
End Sub
@@ -3936,7 +3935,7 @@ Partial Public Class DD_ECMAdmin
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBPMO_RESULTLIST_CONFIGDataTable"
attribute2.FixedValue = "TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
@@ -6815,37 +6814,37 @@ Partial Public Class DD_ECMAdmin
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBPMO_RESULTLIST_CONFIGRow
Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Inherits Global.System.Data.DataRow
Private tableTBPMO_RESULTLIST_CONFIG As TBPMO_RESULTLIST_CONFIGDataTable
Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBPMO_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_RESULTLIST_CONFIGDataTable)
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.GUIDColumn),Integer)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.GUIDColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property NAME() As String
Public Property ENTITY_ID() As Integer
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.NAMEColumn),String)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.NAMEColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn) = value
End Set
End Property
@@ -6853,10 +6852,10 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property LANGUAGE() As String
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.LANGUAGEColumn),String)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.LANGUAGEColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn) = value
End Set
End Property
@@ -6864,10 +6863,10 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property COLUMN_VIEW() As String
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value
End Set
End Property
@@ -6875,10 +6874,10 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property HEADER_CAPTION() As String
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value
End Set
End Property
@@ -6886,10 +6885,10 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property WIDTH() As Integer
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.WIDTHColumn),Integer)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.WIDTHColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn) = value
End Set
End Property
@@ -6897,10 +6896,10 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property TYPE_ID() As Byte
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.TYPE_IDColumn),Byte)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.TYPE_IDColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn) = value
End Set
End Property
@@ -6908,10 +6907,10 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.ADDED_WHOColumn),String)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.ADDED_WHOColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn) = value
End Set
End Property
@@ -6920,13 +6919,14 @@ Partial Public Class DD_ECMAdmin
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.ADDED_WHENColumn),Date)
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_RESULTLIST_CONFIG ist DBNull.", e)
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_RESULTLIST_CONFIG.ADDED_WHENColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = value
End Set
End Property
@@ -6935,13 +6935,14 @@ Partial Public Class DD_ECMAdmin
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.CHANGED_WHOColumn),String)
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_RESULTLIST_CONFIG ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist "& _
"DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value
End Set
End Property
@@ -6950,13 +6951,14 @@ Partial Public Class DD_ECMAdmin
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.CHANGED_WHENColumn),Date)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_RESULTLIST_CONFIG ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist"& _
" DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value
End Set
End Property
@@ -6964,47 +6966,47 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property VISIBLE() As Boolean
Get
Return CType(Me(Me.tableTBPMO_RESULTLIST_CONFIG.VISIBLEColumn),Boolean)
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn),Boolean)
End Get
Set
Me(Me.tableTBPMO_RESULTLIST_CONFIG.VISIBLEColumn) = value
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_RESULTLIST_CONFIG.ADDED_WHENColumn)
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBPMO_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBPMO_RESULTLIST_CONFIG.CHANGED_WHOColumn)
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBPMO_RESULTLIST_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_RESULTLIST_CONFIG.CHANGED_WHENColumn)
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBPMO_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
@@ -7841,16 +7843,16 @@ Partial Public Class DD_ECMAdmin
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Class TBPMO_RESULTLIST_CONFIGRowChangeEvent
Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBPMO_RESULTLIST_CONFIGRow
Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New(ByVal row As TBPMO_RESULTLIST_CONFIGRow, ByVal action As Global.System.Data.DataRowAction)
Public Sub New(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
@@ -7858,7 +7860,7 @@ Partial Public Class DD_ECMAdmin
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property Row() As TBPMO_RESULTLIST_CONFIGRow
Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Get
Return Me.eventRow
End Get
@@ -10430,7 +10432,7 @@ Namespace DD_ECMAdminTableAdapters
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class TBPMO_RESULTLIST_CONFIGTableAdapter
Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter
Inherits Global.System.ComponentModel.Component
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
@@ -10547,9 +10549,9 @@ Namespace DD_ECMAdminTableAdapters
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "TBPMO_RESULTLIST_CONFIG"
tableMapping.DataSetTable = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG"
tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("NAME", "NAME")
tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID")
tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE")
tableMapping.ColumnMappings.Add("COLUMN_VIEW", "COLUMN_VIEW")
tableMapping.ColumnMappings.Add("HEADER_CAPTION", "HEADER_CAPTION")
@@ -10561,101 +10563,228 @@ Namespace DD_ECMAdminTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("VISIBLE", "VISIBLE")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @GUID)"
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_DOCSEARCH_RESULTLIST_CONFIG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (ENTITY_I" & _
"D, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, VISIBLE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "V" & _
"ALUES (@ENTITY_ID,@LANGUAGE,@COLUMN_VIEW,@HEADER_CAPTION,@WIDTH,@TYPE_ID," & _
"@ADDED_WHO,@VISIBLE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CA" & _
"PTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE" & _
" FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_DOCSEARCH_RESULTLIST_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ENTITY_ID = @E"& _
"NTITY_ID, LANGUAGE = @LANGUAGE, COLUMN_VIEW = @COLUMN_VIEW, HEADER_CAPTION = @HE"& _
"ADER_CAPTION, WIDTH = @WIDTH, TYPE_ID = @TYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHA"& _
"NGED_WHO = @CHANGED_WHO, VISIBLE = @VISIBLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_DOCSEARCH_RESULTLIST_CONFIG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET ENTITY_ID = @E" & _
"NTITY_ID, LANGUAGE = @LANGUAGE, COLUMN_VIEW = @COLUMN_VIEW, HEADER_CAPTION = @HE" & _
"ADER_CAPTION, WIDTH = @WIDTH, TYPE_ID = @TYPE_ID, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHA" & _
"NGED_WHO = @CHANGED_WHO, VISIBLE = @VISIBLE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SE" & _
"LECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADD" & _
"ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE FROM TBPMO_DOCSEARCH_RESU" & _
"LTLIST_CONFIG WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT TBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUID, TBPMO_FORM.NAME, TBPMO_DOCS"& _
"EARCH_RESULTLIST_CONFIG.LANGUAGE, TBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEW,"& _
" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTION, TB"& _
"PMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTH, TBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_ID"& _
", "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHO, TBPMO_"& _
"DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHEN, TBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGE"& _
"D_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHEN"& _
", TBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RES"& _
"ULTLIST_CONFIG INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM ON TBPMO_DOCSEARC"& _
"H_RESULTLIST_CONFIG.ENTITY_ID = TBPMO_FORM.GUID"
Me._commandCollection(0).CommandText = "SELECT TBPMO_DOCSEARCH_RESULTLIST_CONFIG.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_DOCSEARC" & _
"H_RESULTLIST_CONFIG"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_RESULTLIST_CONFIGDataTable) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
If (Me.ClearBeforeFill = True) Then
dataTable.Clear()
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_RESULTLIST_CONFIGDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], True)> _
Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As DD_ECMAdmin.TBPMO_RESULTLIST_CONFIGDataTable = New DD_ECMAdmin.TBPMO_RESULTLIST_CONFIGDataTable()
Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_RESULTLIST_CONFIGDataTable) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBPMO_RESULTLIST_CONFIG")
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBPMO_DOCSEARCH_RESULTLIST_CONFIG")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, True)> _
Public Overridable Overloads Function Delete(ByVal GUID As Integer) As Integer
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(GUID, Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.DeleteCommand.Connection.Open()
End If
Try
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.DeleteCommand.Connection.Close()
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, True)> _
Public Overridable Overloads Function Insert(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal VISIBLE As Boolean) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID, Integer)
If (LANGUAGE Is Nothing) Then
Throw New Global.System.ArgumentNullException("LANGUAGE")
Else
Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE, String)
End If
If (COLUMN_VIEW Is Nothing) Then
Throw New Global.System.ArgumentNullException("COLUMN_VIEW")
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(COLUMN_VIEW, String)
End If
If (HEADER_CAPTION Is Nothing) Then
Throw New Global.System.ArgumentNullException("HEADER_CAPTION")
Else
Me.Adapter.InsertCommand.Parameters(3).Value = CType(HEADER_CAPTION, String)
End If
Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH, Integer)
Me.Adapter.InsertCommand.Parameters(5).Value = CType(TYPE_ID, Byte)
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO, String)
End If
Me.Adapter.InsertCommand.Parameters(7).Value = CType(VISIBLE, Boolean)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.InsertCommand.Connection.Open()
End If
Try
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.InsertCommand.Connection.Close()
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, True)> _
Public Overridable Overloads Function Update(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal CHANGED_WHO As String, ByVal VISIBLE As Boolean, ByVal GUID As Integer) As Integer
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID, Integer)
If (LANGUAGE Is Nothing) Then
Throw New Global.System.ArgumentNullException("LANGUAGE")
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE, String)
End If
If (COLUMN_VIEW Is Nothing) Then
Throw New Global.System.ArgumentNullException("COLUMN_VIEW")
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLUMN_VIEW, String)
End If
If (HEADER_CAPTION Is Nothing) Then
Throw New Global.System.ArgumentNullException("HEADER_CAPTION")
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HEADER_CAPTION, String)
End If
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH, Integer)
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TYPE_ID, Byte)
If (CHANGED_WHO Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO, String)
End If
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(VISIBLE, Boolean)
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID, Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.UpdateCommand.Connection.Open()
End If
Try
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.UpdateCommand.Connection.Close()
End If
End Try
End Function
End Class
'''<summary>
@@ -10679,7 +10808,7 @@ Namespace DD_ECMAdminTableAdapters
Private _tBPMO_SAP_FUBATableAdapter As TBPMO_SAP_FUBATableAdapter
Private _tBPMO_RESULTLIST_CONFIGTableAdapter As TBPMO_RESULTLIST_CONFIGTableAdapter
Private _tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter As TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter
Private _backupDataSetBeforeUpdate As Boolean
@@ -10757,12 +10886,12 @@ Namespace DD_ECMAdminTableAdapters
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
Public Property TBPMO_RESULTLIST_CONFIGTableAdapter() As TBPMO_RESULTLIST_CONFIGTableAdapter
Public Property TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter
Get
Return Me._tBPMO_RESULTLIST_CONFIGTableAdapter
Return Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter
End Get
Set
Me._tBPMO_RESULTLIST_CONFIGTableAdapter = value
Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = value
End Set
End Property
@@ -10801,9 +10930,9 @@ Namespace DD_ECMAdminTableAdapters
AndAlso (Not (Me._tBPMO_SAP_FUBATableAdapter.Connection) Is Nothing)) Then
Return Me._tBPMO_SAP_FUBATableAdapter.Connection
End If
If ((Not (Me._tBPMO_RESULTLIST_CONFIGTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Connection) Is Nothing)) Then
Return Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Connection
If ((Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection) Is Nothing)) Then
Return Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection
End If
Return Nothing
End Get
@@ -10830,7 +10959,7 @@ Namespace DD_ECMAdminTableAdapters
If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._tBPMO_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
count = (count + 1)
End If
Return count
@@ -10880,12 +11009,12 @@ Namespace DD_ECMAdminTableAdapters
allChangedRows.AddRange(updatedRows)
End If
End If
If (Not (Me._tBPMO_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
If ((Not (updatedRows) Is Nothing) _
AndAlso (0 < updatedRows.Length)) Then
result = (result + Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Update(updatedRows))
result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(updatedRows))
allChangedRows.AddRange(updatedRows)
End If
End If
@@ -10931,11 +11060,11 @@ Namespace DD_ECMAdminTableAdapters
allAddedRows.AddRange(addedRows)
End If
End If
If (Not (Me._tBPMO_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If ((Not (addedRows) Is Nothing) _
AndAlso (0 < addedRows.Length)) Then
result = (result + Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Update(addedRows))
result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(addedRows))
allAddedRows.AddRange(addedRows)
End If
End If
@@ -10949,11 +11078,11 @@ Namespace DD_ECMAdminTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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._tBPMO_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
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) _
AndAlso (0 < deletedRows.Length)) Then
result = (result + Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Update(deletedRows))
result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(deletedRows))
allChangedRows.AddRange(deletedRows)
End If
End If
@@ -11050,8 +11179,8 @@ Namespace DD_ECMAdminTableAdapters
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.")
End If
If ((Not (Me._tBPMO_RESULTLIST_CONFIGTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Connection) = false)) Then
If ((Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection) = false)) Then
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.")
End If
@@ -11125,13 +11254,13 @@ Namespace DD_ECMAdminTableAdapters
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_SAP_FUBATableAdapter.Adapter)
End If
End If
If (Not (Me._tBPMO_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBPMO_RESULTLIST_CONFIGTableAdapter, Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Connection)
Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Adapter)
If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter, Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection)
Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Adapter)
End If
End If
'
@@ -11210,9 +11339,9 @@ Namespace DD_ECMAdminTableAdapters
Me._tBPMO_SAP_FUBATableAdapter.Connection = CType(revertConnections(Me._tBPMO_SAP_FUBATableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBPMO_SAP_FUBATableAdapter.Transaction = Nothing
End If
If (Not (Me._tBPMO_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RESULTLIST_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBPMO_RESULTLIST_CONFIGTableAdapter.Transaction = Nothing
If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then
Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Transaction = Nothing
End If
If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter