diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
index b1f06a4..a9f9add 100644
--- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
+++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
@@ -314,6 +314,12 @@
Form
+
+ frmWD_ResultlistConfig.vb
+
+
+ Form
+
frmWD_Import_Doc_Record.vb
@@ -694,6 +700,9 @@
frmStructureNodeConfig.vb
+
+ frmWD_ResultlistConfig.vb
+
frmWD_Import_Doc_Record.vb
@@ -997,7 +1006,7 @@
Designer
MSDataSetGenerator
- DD_ECMAdmin.Designer.vb
+ DD_ECMAdmin1.Designer.vb
DD_ECMAdmin.xsd
diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
index fcaa014..fb5339f 100644
--- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
+++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
@@ -39,6 +39,8 @@ Partial Public Class DD_ECMAdmin
Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable
+ Private tableTBPMO_RESULTLIST_CONFIG As TBPMO_RESULTLIST_CONFIGDataTable
+
Private tableDT_VORSCHAU As DT_VORSCHAUDataTable
Private tableTBAD_Users As TBAD_UsersDataTable
@@ -99,6 +101,9 @@ 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")))
+ End If
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
End If
@@ -198,6 +203,16 @@ Partial Public Class DD_ECMAdmin
End Get
End Property
+ _
+ Public ReadOnly Property TBPMO_RESULTLIST_CONFIG() As TBPMO_RESULTLIST_CONFIGDataTable
+ Get
+ Return Me.tableTBPMO_RESULTLIST_CONFIG
+ End Get
+ End Property
+
_
+ Private Function ShouldSerializeTBPMO_RESULTLIST_CONFIG() As Boolean
+ Return false
+ End Function
+
_
Private Function ShouldSerializeDT_VORSCHAU() As Boolean
@@ -618,6 +650,9 @@ Partial Public Class DD_ECMAdmin
_
Public Delegate Sub TBPMO_SAP_FUBARowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_SAP_FUBARowChangeEvent)
+ _
+ Public Delegate Sub TBPMO_RESULTLIST_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RESULTLIST_CONFIGRowChangeEvent)
+
_
Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent)
@@ -3018,25 +3053,25 @@ Partial Public Class DD_ECMAdmin
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
Private columnWHERE_CLAUSE As Global.System.Data.DataColumn
-
+
Private columnMethod As Global.System.Data.DataColumn
-
+
Private columnFuBa_SplitCharacter As Global.System.Data.DataColumn
-
- _
+
+ _
Public Sub New()
- MyBase.New()
+ MyBase.New
Me.TableName = "TBPMO_SAP_FUBA"
- Me.BeginInit()
- Me.InitClass()
- Me.EndInit()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
End Sub
-
- _
+
+ _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New()
+ MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
@@ -3050,251 +3085,251 @@ Partial Public Class DD_ECMAdmin
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
-
- _
+
+ _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
- Me.InitVars()
+ Me.InitVars
End Sub
-
- _
+
+ _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property TableNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTableName
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property HostColumn() As Global.System.Data.DataColumn
Get
Return Me.columnHost
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SystemNumberColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSystemNumber
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property UserNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUserName
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPassword
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property ClientColumn() As Global.System.Data.DataColumn
Get
Return Me.columnClient
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property LanguageColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLanguage
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property TempTableNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTempTableName
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnACTIVE
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
-
- _
+
+ _
Public ReadOnly Property WHERE_CLAUSEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWHERE_CLAUSE
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property MethodColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMethod
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property FuBa_SplitCharacterColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFuBa_SplitCharacter
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
-
- _
- Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_SAP_FUBARow
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_SAP_FUBARow
Get
- Return CType(Me.Rows(index), TBPMO_SAP_FUBARow)
+ Return CType(Me.Rows(index),TBPMO_SAP_FUBARow)
End Get
End Property
-
- _
+
+ _
Public Event TBPMO_SAP_FUBARowChanging As TBPMO_SAP_FUBARowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_SAP_FUBARowChanged As TBPMO_SAP_FUBARowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_SAP_FUBARowDeleting As TBPMO_SAP_FUBARowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_SAP_FUBARowDeleted As TBPMO_SAP_FUBARowChangeEventHandler
-
- _
+
+ _
Public Overloads Sub AddTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow)
Me.Rows.Add(row)
End Sub
-
- _
+
+ _
Public Overloads Function AddTBPMO_SAP_FUBARow( _
- ByVal NAME As String, _
- ByVal COMMENT As String, _
- ByVal TableName As String, _
- ByVal Host As String, _
- ByVal SystemNumber As String, _
- ByVal UserName As String, _
- ByVal Password As String, _
- ByVal Client As String, _
- ByVal Language As String, _
- ByVal TempTableName As String, _
- ByVal ACTIVE As Boolean, _
- ByVal ADDED_WHO As String, _
- ByVal ADDED_WHEN As Date, _
- ByVal CHANGED_WHO As String, _
- ByVal CHANGED_WHEN As Date, _
- ByVal WHERE_CLAUSE As String, _
- ByVal Method As String, _
+ ByVal NAME As String, _
+ ByVal COMMENT As String, _
+ ByVal TableName As String, _
+ ByVal Host As String, _
+ ByVal SystemNumber As String, _
+ ByVal UserName As String, _
+ ByVal Password As String, _
+ ByVal Client As String, _
+ ByVal Language As String, _
+ ByVal TempTableName As String, _
+ ByVal ACTIVE As Boolean, _
+ ByVal ADDED_WHO As String, _
+ ByVal ADDED_WHEN As Date, _
+ ByVal CHANGED_WHO As String, _
+ ByVal CHANGED_WHEN As Date, _
+ ByVal WHERE_CLAUSE As String, _
+ ByVal Method As String, _
ByVal FuBa_SplitCharacter As String) As TBPMO_SAP_FUBARow
- Dim rowTBPMO_SAP_FUBARow As TBPMO_SAP_FUBARow = CType(Me.NewRow, TBPMO_SAP_FUBARow)
+ Dim rowTBPMO_SAP_FUBARow As TBPMO_SAP_FUBARow = CType(Me.NewRow,TBPMO_SAP_FUBARow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WHERE_CLAUSE, Method, FuBa_SplitCharacter}
rowTBPMO_SAP_FUBARow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_SAP_FUBARow)
Return rowTBPMO_SAP_FUBARow
End Function
-
- _
+
+ _
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_SAP_FUBARow
- Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_SAP_FUBARow)
+ Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_SAP_FUBARow)
End Function
-
- _
+
+ _
Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As TBPMO_SAP_FUBADataTable = CType(MyBase.Clone, TBPMO_SAP_FUBADataTable)
- cln.InitVars()
+ Dim cln As TBPMO_SAP_FUBADataTable = CType(MyBase.Clone,TBPMO_SAP_FUBADataTable)
+ cln.InitVars
Return cln
End Function
-
- _
+
+ _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_SAP_FUBADataTable()
End Function
-
- _
+
+ _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnNAME = MyBase.Columns("NAME")
@@ -3316,9 +3351,9 @@ Partial Public Class DD_ECMAdmin
Me.columnMethod = MyBase.Columns("Method")
Me.columnFuBa_SplitCharacter = MyBase.Columns("FuBa_SplitCharacter")
End Sub
-
- _
+
+ _
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
@@ -3358,106 +3393,106 @@ Partial Public Class DD_ECMAdmin
MyBase.Columns.Add(Me.columnMethod)
Me.columnFuBa_SplitCharacter = New Global.System.Data.DataColumn("FuBa_SplitCharacter", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFuBa_SplitCharacter)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True))
- Me.columnGUID.AutoIncrement = True
- Me.columnGUID.AllowDBNull = False
- Me.columnGUID.ReadOnly = True
- Me.columnGUID.Unique = True
- Me.columnNAME.AllowDBNull = False
+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
+ Me.columnGUID.AutoIncrement = true
+ Me.columnGUID.AllowDBNull = false
+ Me.columnGUID.ReadOnly = true
+ Me.columnGUID.Unique = true
+ Me.columnNAME.AllowDBNull = false
Me.columnNAME.MaxLength = 100
Me.columnCOMMENT.MaxLength = 500
- Me.columnTableName.AllowDBNull = False
+ Me.columnTableName.AllowDBNull = false
Me.columnTableName.MaxLength = 100
- Me.columnHost.AllowDBNull = False
+ Me.columnHost.AllowDBNull = false
Me.columnHost.MaxLength = 100
- Me.columnSystemNumber.AllowDBNull = False
+ Me.columnSystemNumber.AllowDBNull = false
Me.columnSystemNumber.MaxLength = 30
- Me.columnUserName.AllowDBNull = False
+ Me.columnUserName.AllowDBNull = false
Me.columnUserName.MaxLength = 50
- Me.columnPassword.AllowDBNull = False
+ Me.columnPassword.AllowDBNull = false
Me.columnPassword.MaxLength = 100
- Me.columnClient.AllowDBNull = False
+ Me.columnClient.AllowDBNull = false
Me.columnClient.MaxLength = 100
- Me.columnLanguage.AllowDBNull = False
+ Me.columnLanguage.AllowDBNull = false
Me.columnLanguage.MaxLength = 20
- Me.columnTempTableName.AllowDBNull = False
+ Me.columnTempTableName.AllowDBNull = false
Me.columnTempTableName.MaxLength = 100
- Me.columnACTIVE.AllowDBNull = False
- Me.columnACTIVE.DefaultValue = CType(False, Boolean)
- Me.columnADDED_WHO.AllowDBNull = False
+ Me.columnACTIVE.AllowDBNull = false
+ Me.columnACTIVE.DefaultValue = CType(false,Boolean)
+ Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnWHERE_CLAUSE.MaxLength = 500
- Me.columnMethod.AllowDBNull = False
- Me.columnMethod.DefaultValue = CType("TABLE", String)
+ Me.columnMethod.AllowDBNull = false
+ Me.columnMethod.DefaultValue = CType("TABLE",String)
Me.columnMethod.MaxLength = 50
- Me.columnFuBa_SplitCharacter.AllowDBNull = False
- Me.columnFuBa_SplitCharacter.DefaultValue = CType(";", String)
+ Me.columnFuBa_SplitCharacter.AllowDBNull = false
+ Me.columnFuBa_SplitCharacter.DefaultValue = CType(";",String)
Me.columnFuBa_SplitCharacter.MaxLength = 1
End Sub
-
- _
+
+ _
Public Function NewTBPMO_SAP_FUBARow() As TBPMO_SAP_FUBARow
- Return CType(Me.NewRow, TBPMO_SAP_FUBARow)
+ Return CType(Me.NewRow,TBPMO_SAP_FUBARow)
End Function
-
- _
+
+ _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBPMO_SAP_FUBARow(builder)
End Function
-
- _
+
+ _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_SAP_FUBARow)
End Function
-
- _
+
+ _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBPMO_SAP_FUBARowChangedEvent) Is Nothing) Then
- RaiseEvent TBPMO_SAP_FUBARowChanged(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row, TBPMO_SAP_FUBARow), e.Action))
+ RaiseEvent TBPMO_SAP_FUBARowChanged(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row,TBPMO_SAP_FUBARow), e.Action))
End If
End Sub
-
- _
+
+ _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBPMO_SAP_FUBARowChangingEvent) Is Nothing) Then
- RaiseEvent TBPMO_SAP_FUBARowChanging(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row, TBPMO_SAP_FUBARow), e.Action))
+ RaiseEvent TBPMO_SAP_FUBARowChanging(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row,TBPMO_SAP_FUBARow), e.Action))
End If
End Sub
-
- _
+
+ _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBPMO_SAP_FUBARowDeletedEvent) Is Nothing) Then
- RaiseEvent TBPMO_SAP_FUBARowDeleted(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row, TBPMO_SAP_FUBARow), e.Action))
+ RaiseEvent TBPMO_SAP_FUBARowDeleted(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row,TBPMO_SAP_FUBARow), e.Action))
End If
End Sub
-
- _
+
+ _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBPMO_SAP_FUBARowDeletingEvent) Is Nothing) Then
- RaiseEvent TBPMO_SAP_FUBARowDeleting(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row, TBPMO_SAP_FUBARow), e.Action))
+ RaiseEvent TBPMO_SAP_FUBARowDeleting(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row,TBPMO_SAP_FUBARow), e.Action))
End If
End Sub
-
- _
+
+ _
Public Sub RemoveTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow)
Me.Rows.Remove(row)
End Sub
-
- _
+
+ _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
@@ -3486,35 +3521,35 @@ Partial Public Class DD_ECMAdmin
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
+ 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)
+ 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) _
+
+ 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()
+ s1.Close
End If
If (Not (s2) Is Nothing) Then
- s2.Close()
+ s2.Close
End If
End Try
End If
@@ -3522,31 +3557,53 @@ Partial Public Class DD_ECMAdmin
Return type
End Function
End Class
-
+
'''
'''Represents the strongly named DataTable class.
'''
- _
- Partial Public Class DT_VORSCHAUDataTable
- Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow)
-
- Private columnVALUE As Global.System.Data.DataColumn
-
- _
+ _
+ Partial Public Class TBPMO_RESULTLIST_CONFIGDataTable
+ Inherits Global.System.Data.TypedTableBase(Of TBPMO_RESULTLIST_CONFIGRow)
+
+ Private columnGUID As Global.System.Data.DataColumn
+
+ Private columnNAME As Global.System.Data.DataColumn
+
+ Private columnLANGUAGE As Global.System.Data.DataColumn
+
+ Private columnCOLUMN_VIEW As Global.System.Data.DataColumn
+
+ Private columnHEADER_CAPTION As Global.System.Data.DataColumn
+
+ Private columnWIDTH As Global.System.Data.DataColumn
+
+ Private columnTYPE_ID 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
+
+ Private columnVISIBLE As Global.System.Data.DataColumn
+
+ _
Public Sub New()
- MyBase.New()
- Me.TableName = "DT_VORSCHAU"
- Me.BeginInit()
- Me.InitClass()
- Me.EndInit()
+ MyBase.New
+ Me.TableName = "TBPMO_RESULTLIST_CONFIG"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
End Sub
-
- _
+
+ _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New()
+ MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
@@ -3560,156 +3617,556 @@ Partial Public Class DD_ECMAdmin
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
-
- _
+
+ _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
- Me.InitVars()
+ Me.InitVars
End Sub
-
- _
- Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn
+
+ _
+ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
- Return Me.columnVALUE
+ Return Me.columnGUID
End Get
End Property
-
- _
+
+ _
+ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnNAME
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnLANGUAGE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property COLUMN_VIEWColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCOLUMN_VIEW
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property HEADER_CAPTIONColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnHEADER_CAPTION
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWIDTH
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnTYPE_ID
+ 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
+
+ _
+ Public ReadOnly Property VISIBLEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnVISIBLE
+ End Get
+ End Property
+
+ _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
-
- _
- Default Public ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RESULTLIST_CONFIGRow
Get
- Return CType(Me.Rows(index), DT_VORSCHAURow)
+ Return CType(Me.Rows(index),TBPMO_RESULTLIST_CONFIGRow)
End Get
End Property
-
- _
+
+ _
+ Public Event TBPMO_RESULTLIST_CONFIGRowChanging As TBPMO_RESULTLIST_CONFIGRowChangeEventHandler
+
+ _
+ Public Event TBPMO_RESULTLIST_CONFIGRowChanged As TBPMO_RESULTLIST_CONFIGRowChangeEventHandler
+
+ _
+ Public Event TBPMO_RESULTLIST_CONFIGRowDeleting As TBPMO_RESULTLIST_CONFIGRowChangeEventHandler
+
+ _
+ Public Event TBPMO_RESULTLIST_CONFIGRowDeleted As TBPMO_RESULTLIST_CONFIGRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddTBPMO_RESULTLIST_CONFIGRow(ByVal row As TBPMO_RESULTLIST_CONFIGRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ 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
+ End Function
+
+ _
+ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RESULTLIST_CONFIGRow
+ Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RESULTLIST_CONFIGRow)
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As TBPMO_RESULTLIST_CONFIGDataTable = CType(MyBase.Clone,TBPMO_RESULTLIST_CONFIGDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New TBPMO_RESULTLIST_CONFIGDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnGUID = MyBase.Columns("GUID")
+ Me.columnNAME = MyBase.Columns("NAME")
+ Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
+ Me.columnCOLUMN_VIEW = MyBase.Columns("COLUMN_VIEW")
+ Me.columnHEADER_CAPTION = MyBase.Columns("HEADER_CAPTION")
+ Me.columnWIDTH = MyBase.Columns("WIDTH")
+ Me.columnTYPE_ID = MyBase.Columns("TYPE_ID")
+ Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
+ Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
+ Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
+ Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
+ Me.columnVISIBLE = MyBase.Columns("VISIBLE")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnGUID)
+ Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnNAME)
+ 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)
+ MyBase.Columns.Add(Me.columnCOLUMN_VIEW)
+ Me.columnHEADER_CAPTION = New Global.System.Data.DataColumn("HEADER_CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnHEADER_CAPTION)
+ Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWIDTH)
+ Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnTYPE_ID)
+ 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.columnVISIBLE = New Global.System.Data.DataColumn("VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnVISIBLE)
+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
+ Me.columnGUID.AutoIncrement = true
+ Me.columnGUID.AutoIncrementSeed = -1
+ Me.columnGUID.AutoIncrementStep = -1
+ Me.columnGUID.AllowDBNull = false
+ Me.columnGUID.ReadOnly = true
+ Me.columnGUID.Unique = true
+ Me.columnNAME.AllowDBNull = false
+ Me.columnNAME.MaxLength = 100
+ Me.columnLANGUAGE.AllowDBNull = false
+ Me.columnLANGUAGE.MaxLength = 5
+ Me.columnCOLUMN_VIEW.AllowDBNull = false
+ Me.columnCOLUMN_VIEW.MaxLength = 100
+ Me.columnHEADER_CAPTION.AllowDBNull = false
+ Me.columnHEADER_CAPTION.MaxLength = 100
+ Me.columnWIDTH.AllowDBNull = false
+ Me.columnTYPE_ID.AllowDBNull = false
+ Me.columnADDED_WHO.AllowDBNull = false
+ Me.columnADDED_WHO.MaxLength = 50
+ Me.columnCHANGED_WHO.MaxLength = 50
+ Me.columnVISIBLE.AllowDBNull = false
+ End Sub
+
+ _
+ Public Function NewTBPMO_RESULTLIST_CONFIGRow() As TBPMO_RESULTLIST_CONFIGRow
+ Return CType(Me.NewRow,TBPMO_RESULTLIST_CONFIGRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New TBPMO_RESULTLIST_CONFIGRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(TBPMO_RESULTLIST_CONFIGRow)
+ End Function
+
+ _
+ 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))
+ End If
+ End Sub
+
+ _
+ 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))
+ End If
+ End Sub
+
+ _
+ 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))
+ End If
+ End Sub
+
+ _
+ 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))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveTBPMO_RESULTLIST_CONFIGRow(ByVal row As TBPMO_RESULTLIST_CONFIGRow)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As DD_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 = "TBPMO_RESULTLIST_CONFIGDataTable"
+ 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 the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class DT_VORSCHAUDataTable
+ Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow)
+
+ Private columnVALUE As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "DT_VORSCHAU"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnVALUE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow
+ Get
+ Return CType(Me.Rows(index),DT_VORSCHAURow)
+ End Get
+ End Property
+
+ _
Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler
-
- _
+
+ _
Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler
-
- _
+
+ _
Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler
-
- _
+
+ _
Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler
-
- _
+
+ _
Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow)
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 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 DT_VORSCHAUDataTable = CType(MyBase.Clone, DT_VORSCHAUDataTable)
- cln.InitVars()
+ Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone,DT_VORSCHAUDataTable)
+ cln.InitVars
Return cln
End Function
-
- _
+
+ _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New DT_VORSCHAUDataTable()
End Function
-
- _
+
+ _
Friend Sub InitVars()
Me.columnVALUE = MyBase.Columns("VALUE")
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)
End Sub
-
- _
+
+ _
Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow
- Return CType(Me.NewRow, 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 DT_VORSCHAURow(builder)
End Function
-
- _
+
+ _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(DT_VORSCHAURow)
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))
+ RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action))
End If
End Sub
-
- _
+
+ _
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))
+ RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action))
End If
End Sub
-
- _
+
+ _
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))
+ RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action))
End If
End Sub
-
- _
+
+ _
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))
+ RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action))
End If
End Sub
-
- _
+
+ _
Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow)
Me.Rows.Remove(row)
End Sub
-
- _
+
+ _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
@@ -3738,35 +4195,35 @@ Partial Public Class DD_ECMAdmin
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
+ 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)
+ 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) _
+
+ 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()
+ s1.Close
End If
If (Not (s2) Is Nothing) Then
- s2.Close()
+ s2.Close
End If
End Try
End If
@@ -3774,41 +4231,41 @@ Partial Public Class DD_ECMAdmin
Return type
End Function
End Class
-
+
'''
'''Represents the strongly named DataTable class.
'''
- _
+ _
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
-
+
Private columnID As Global.System.Data.DataColumn
-
- _
+
+ _
Public Sub New()
- MyBase.New()
+ MyBase.New
Me.TableName = "TBAD_Users"
- Me.BeginInit()
- Me.InitClass()
- Me.EndInit()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
End Sub
-
- _
+
+ _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New()
+ MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
@@ -3822,123 +4279,123 @@ Partial Public Class DD_ECMAdmin
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
-
- _
+
+ _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
- Me.InitVars()
+ Me.InitVars
End Sub
-
- _
+
+ _
Public ReadOnly Property SelectColumn() 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
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
-
- _
- Default Public ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow
Get
- Return CType(Me.Rows(index), TBAD_UsersRow)
+ Return CType(Me.Rows(index),TBAD_UsersRow)
End Get
End Property
-
- _
+
+ _
Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler
-
- _
+
+ _
Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler
-
- _
+
+ _
Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler
-
- _
+
+ _
Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler
-
- _
+
+ _
Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow)
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 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
End Function
-
- _
+
+ _
Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone, TBAD_UsersDataTable)
- cln.InitVars()
+ Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable)
+ cln.InitVars
Return cln
End Function
-
- _
+
+ _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBAD_UsersDataTable()
End Function
-
- _
+
+ _
Friend Sub InitVars()
Me.columnSelect = MyBase.Columns("Select")
Me.columnUsername = MyBase.Columns("Username")
@@ -3947,9 +4404,9 @@ Partial Public Class DD_ECMAdmin
Me.columnEmail = MyBase.Columns("Email")
Me.columnID = MyBase.Columns("ID")
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")
@@ -3966,71 +4423,71 @@ Partial Public Class DD_ECMAdmin
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.columnSelect.DefaultValue = CType(false,Boolean)
End Sub
-
- _
+
+ _
Public Function NewTBAD_UsersRow() As TBAD_UsersRow
- Return CType(Me.NewRow, 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 TBAD_UsersRow(builder)
End Function
-
- _
+
+ _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBAD_UsersRow)
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))
+ RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action))
End If
End Sub
-
- _
+
+ _
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))
+ RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action))
End If
End Sub
-
- _
+
+ _
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))
+ RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action))
End If
End Sub
-
- _
+
+ _
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))
+ RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action))
End If
End Sub
-
- _
+
+ _
Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow)
Me.Rows.Remove(row)
End Sub
-
- _
+
+ _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
@@ -4059,35 +4516,35 @@ Partial Public Class DD_ECMAdmin
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
+ 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)
+ 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) _
+
+ 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()
+ s1.Close
End If
If (Not (s2) Is Nothing) Then
- s2.Close()
+ s2.Close
End If
End Try
End If
@@ -4095,41 +4552,41 @@ Partial Public Class DD_ECMAdmin
Return type
End Function
End Class
-
+
'''
'''Represents the strongly named DataTable class.
'''
- _
+ _
Partial Public Class TBWH_Users1DataTable
Inherits Global.System.Data.TypedTableBase(Of TBWH_Users1Row)
-
+
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
-
- _
+
+ _
Public Sub New()
- MyBase.New()
+ MyBase.New
Me.TableName = "TBWH_Users1"
- Me.BeginInit()
- Me.InitClass()
- Me.EndInit()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
End Sub
-
- _
+
+ _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New()
+ MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
@@ -4143,123 +4600,123 @@ Partial Public Class DD_ECMAdmin
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
-
-