From a5ae2118b3e0220d9db9d6041cb8c6f3492ffdd5 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 25 Oct 2023 16:07:57 +0200 Subject: [PATCH] Fix Language Module deprecation, Fix updated Tables, Fix missing null check for Config form --- MultiTool.Common/Templates/TemplateLoader.vb | 2 +- MultiTool.Form/DS_DD_ECM.Designer.vb | 3965 +++++++++--------- MultiTool.Form/DS_DD_ECM.xsd | 213 +- MultiTool.Form/DS_DD_ECM.xss | 24 +- MultiTool.Form/frmConfig.Designer.vb | 108 +- MultiTool.Form/frmConfig.resx | 2 +- MultiTool.Form/frmConfig.vb | 31 +- 7 files changed, 2096 insertions(+), 2249 deletions(-) diff --git a/MultiTool.Common/Templates/TemplateLoader.vb b/MultiTool.Common/Templates/TemplateLoader.vb index cafd67d..b3a8865 100644 --- a/MultiTool.Common/Templates/TemplateLoader.vb +++ b/MultiTool.Common/Templates/TemplateLoader.vb @@ -1,7 +1,7 @@ Imports System.IO Imports DigitalData.Modules.Database Imports DigitalData.Modules.Logging -Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Base Namespace Templates Public Class TemplateLoader diff --git a/MultiTool.Form/DS_DD_ECM.Designer.vb b/MultiTool.Form/DS_DD_ECM.Designer.vb index d077618..7a50ccd 100644 --- a/MultiTool.Form/DS_DD_ECM.Designer.vb +++ b/MultiTool.Form/DS_DD_ECM.Designer.vb @@ -38,39 +38,37 @@ Partial Public Class DS_DD_ECM Private tableTBMT_CONFIG As TBMT_CONFIGDataTable Private tableTBMT_TABLES As TBMT_TABLESDataTable - - Private relationTBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS As Global.System.Data.DataRelation - + Private relationTBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES As Global.System.Data.DataRelation - + Private relationTBEDI_XML_NODES_TBMT_TEMPLATES As Global.System.Data.DataRelation - + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - - _ + + Public Sub New() MyBase.New - Me.BeginInit - Me.InitClass + Me.BeginInit() + Me.InitClass() Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler - Me.EndInit + Me.EndInit() End Sub - - _ + + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context, false) - If (Me.IsBinarySerialized(info, context) = true) Then - Me.InitVars(false) + MyBase.New(info, context, False) + If (Me.IsBinarySerialized(info, context) = True) Then + Me.InitVars(False) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If - Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) @@ -101,8 +99,8 @@ Partial Public Class DS_DD_ECM Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If @@ -111,142 +109,142 @@ Partial Public Class DS_DD_ECM AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub - - _ + + Public ReadOnly Property TBMT_TEMPLATE_ITEMS() As TBMT_TEMPLATE_ITEMSDataTable Get Return Me.tableTBMT_TEMPLATE_ITEMS End Get End Property - - _ + + Public ReadOnly Property TBEDI_XML_TYPES() As TBEDI_XML_TYPESDataTable Get Return Me.tableTBEDI_XML_TYPES End Get End Property - - _ + + Public ReadOnly Property TBMT_TEMPLATES() As TBMT_TEMPLATESDataTable Get Return Me.tableTBMT_TEMPLATES End Get End Property - - _ + + Public ReadOnly Property TBEDI_XML_NODES() As TBEDI_XML_NODESDataTable Get Return Me.tableTBEDI_XML_NODES End Get End Property - - _ + + Public ReadOnly Property TBMT_FUNCTIONS() As TBMT_FUNCTIONSDataTable Get Return Me.tableTBMT_FUNCTIONS End Get End Property - - _ + + Public ReadOnly Property TBMT_CONFIG() As TBMT_CONFIGDataTable Get Return Me.tableTBMT_CONFIG End Get End Property - - _ + + Public ReadOnly Property TBMT_TABLES() As TBMT_TABLESDataTable Get Return Me.tableTBMT_TABLES End Get End Property - - _ + + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set - Me._schemaSerializationMode = value + Me._schemaSerializationMode = Value End Set End Property - - _ + + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property - - _ + + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property - - _ + + Protected Overrides Sub InitializeDerivedDataSet() - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As DS_DD_ECM = CType(MyBase.Clone,DS_DD_ECM) - cln.InitVars + Dim cln As DS_DD_ECM = CType(MyBase.Clone, DS_DD_ECM) + cln.InitVars() cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function - - _ + + Protected Overrides Function ShouldSerializeTables() As Boolean - Return false + Return False End Function - - _ + + Protected Overrides Function ShouldSerializeRelations() As Boolean - Return false + Return False End Function - - _ + + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then - Me.Reset + Me.Reset() Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TBMT_TEMPLATE_ITEMS")) Is Nothing) Then @@ -276,86 +274,85 @@ Partial Public Class DS_DD_ECM Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() Else Me.ReadXml(reader) - Me.InitVars + Me.InitVars() End If End Sub - - _ + + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function - - _ + + Friend Overloads Sub InitVars() - Me.InitVars(true) + Me.InitVars(True) End Sub - - _ + + Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBMT_TEMPLATE_ITEMS = CType(MyBase.Tables("TBMT_TEMPLATE_ITEMS"),TBMT_TEMPLATE_ITEMSDataTable) - If (initTable = true) Then + Me.tableTBMT_TEMPLATE_ITEMS = CType(MyBase.Tables("TBMT_TEMPLATE_ITEMS"), TBMT_TEMPLATE_ITEMSDataTable) + If (initTable = True) Then If (Not (Me.tableTBMT_TEMPLATE_ITEMS) Is Nothing) Then - Me.tableTBMT_TEMPLATE_ITEMS.InitVars + Me.tableTBMT_TEMPLATE_ITEMS.InitVars() End If End If - Me.tableTBEDI_XML_TYPES = CType(MyBase.Tables("TBEDI_XML_TYPES"),TBEDI_XML_TYPESDataTable) - If (initTable = true) Then + Me.tableTBEDI_XML_TYPES = CType(MyBase.Tables("TBEDI_XML_TYPES"), TBEDI_XML_TYPESDataTable) + If (initTable = True) Then If (Not (Me.tableTBEDI_XML_TYPES) Is Nothing) Then - Me.tableTBEDI_XML_TYPES.InitVars + Me.tableTBEDI_XML_TYPES.InitVars() End If End If - Me.tableTBMT_TEMPLATES = CType(MyBase.Tables("TBMT_TEMPLATES"),TBMT_TEMPLATESDataTable) - If (initTable = true) Then + Me.tableTBMT_TEMPLATES = CType(MyBase.Tables("TBMT_TEMPLATES"), TBMT_TEMPLATESDataTable) + If (initTable = True) Then If (Not (Me.tableTBMT_TEMPLATES) Is Nothing) Then - Me.tableTBMT_TEMPLATES.InitVars + Me.tableTBMT_TEMPLATES.InitVars() End If End If - Me.tableTBEDI_XML_NODES = CType(MyBase.Tables("TBEDI_XML_NODES"),TBEDI_XML_NODESDataTable) - If (initTable = true) Then + Me.tableTBEDI_XML_NODES = CType(MyBase.Tables("TBEDI_XML_NODES"), TBEDI_XML_NODESDataTable) + If (initTable = True) Then If (Not (Me.tableTBEDI_XML_NODES) Is Nothing) Then - Me.tableTBEDI_XML_NODES.InitVars + Me.tableTBEDI_XML_NODES.InitVars() End If End If - Me.tableTBMT_FUNCTIONS = CType(MyBase.Tables("TBMT_FUNCTIONS"),TBMT_FUNCTIONSDataTable) - If (initTable = true) Then + Me.tableTBMT_FUNCTIONS = CType(MyBase.Tables("TBMT_FUNCTIONS"), TBMT_FUNCTIONSDataTable) + If (initTable = True) Then If (Not (Me.tableTBMT_FUNCTIONS) Is Nothing) Then - Me.tableTBMT_FUNCTIONS.InitVars + Me.tableTBMT_FUNCTIONS.InitVars() End If End If - Me.tableTBMT_CONFIG = CType(MyBase.Tables("TBMT_CONFIG"),TBMT_CONFIGDataTable) - If (initTable = true) Then + Me.tableTBMT_CONFIG = CType(MyBase.Tables("TBMT_CONFIG"), TBMT_CONFIGDataTable) + If (initTable = True) Then If (Not (Me.tableTBMT_CONFIG) Is Nothing) Then - Me.tableTBMT_CONFIG.InitVars + Me.tableTBMT_CONFIG.InitVars() End If End If - Me.tableTBMT_TABLES = CType(MyBase.Tables("TBMT_TABLES"),TBMT_TABLESDataTable) - If (initTable = true) Then + Me.tableTBMT_TABLES = CType(MyBase.Tables("TBMT_TABLES"), TBMT_TABLESDataTable) + If (initTable = True) Then If (Not (Me.tableTBMT_TABLES) Is Nothing) Then - Me.tableTBMT_TABLES.InitVars + Me.tableTBMT_TABLES.InitVars() End If End If - Me.relationTBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS = Me.Relations("TBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS") Me.relationTBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES = Me.Relations("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES") Me.relationTBEDI_XML_NODES_TBMT_TEMPLATES = Me.Relations("TBEDI_XML_NODES_TBMT_TEMPLATES") End Sub - - _ + + Private Sub InitClass() Me.DataSetName = "DS_DD_ECM" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DS_DD_ECM.xsd" - Me.EnforceConstraints = true + Me.EnforceConstraints = True Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBMT_TEMPLATE_ITEMS = New TBMT_TEMPLATE_ITEMSDataTable() MyBase.Tables.Add(Me.tableTBMT_TEMPLATE_ITEMS) @@ -371,66 +368,64 @@ Partial Public Class DS_DD_ECM MyBase.Tables.Add(Me.tableTBMT_CONFIG) Me.tableTBMT_TABLES = New TBMT_TABLESDataTable() MyBase.Tables.Add(Me.tableTBMT_TABLES) - Me.relationTBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS = New Global.System.Data.DataRelation("TBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS", New Global.System.Data.DataColumn() {Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBMT_FUNCTIONS.GUIDColumn}, false) - Me.Relations.Add(Me.relationTBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS) - Me.relationTBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES = New Global.System.Data.DataRelation("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES", New Global.System.Data.DataColumn() {Me.tableTBMT_TEMPLATE_ITEMS.TYPE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TYPES.GUIDColumn}, false) + Me.relationTBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES = New Global.System.Data.DataRelation("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES", New Global.System.Data.DataColumn() {Me.tableTBMT_TEMPLATE_ITEMS.TYPE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TYPES.GUIDColumn}, False) Me.Relations.Add(Me.relationTBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES) - Me.relationTBEDI_XML_NODES_TBMT_TEMPLATES = New Global.System.Data.DataRelation("TBEDI_XML_NODES_TBMT_TEMPLATES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_NODES.TEMPLATE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBMT_TEMPLATES.GUIDColumn}, false) + Me.relationTBEDI_XML_NODES_TBMT_TEMPLATES = New Global.System.Data.DataRelation("TBEDI_XML_NODES_TBMT_TEMPLATES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_NODES.TEMPLATE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBMT_TEMPLATES.GUIDColumn}, False) Me.Relations.Add(Me.relationTBEDI_XML_NODES_TBMT_TEMPLATES) End Sub - - _ + + Private Function ShouldSerializeTBMT_TEMPLATE_ITEMS() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBEDI_XML_TYPES() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBMT_TEMPLATES() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBEDI_XML_NODES() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBMT_FUNCTIONS() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBMT_CONFIG() As Boolean - Return false + Return False End Function - - _ + + Private Function ShouldSerializeTBMT_TABLES() As Boolean - Return false + Return False End Function - - _ + + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then - Me.InitVars + Me.InitVars() End If End Sub - - _ + + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DS_DD_ECM = New DS_DD_ECM() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -443,123 +438,119 @@ Partial Public Class DS_DD_ECM 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 xs.Add(dsSchema) Return type End Function - - _ + + Public Delegate Sub TBMT_TEMPLATE_ITEMSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMT_TEMPLATE_ITEMSRowChangeEvent) - - _ + + Public Delegate Sub TBEDI_XML_TYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_TYPESRowChangeEvent) - - _ + + Public Delegate Sub TBMT_TEMPLATESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMT_TEMPLATESRowChangeEvent) - - _ + + Public Delegate Sub TBEDI_XML_NODESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_NODESRowChangeEvent) - - _ + + Public Delegate Sub TBMT_FUNCTIONSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMT_FUNCTIONSRowChangeEvent) - - _ + + Public Delegate Sub TBMT_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMT_CONFIGRowChangeEvent) - - _ + + Public Delegate Sub TBMT_TABLESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMT_TABLESRowChangeEvent) - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBMT_TEMPLATE_ITEMSDataTable Inherits Global.System.Data.TypedTableBase(Of TBMT_TEMPLATE_ITEMSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - + Private columnTYPE_ID As Global.System.Data.DataColumn - + Private columnIS_READ_ONLY As Global.System.Data.DataColumn - + Private columnIS_VISIBLE As Global.System.Data.DataColumn - + Private columnORDER_KEY As Global.System.Data.DataColumn - - Private columnFUNCTION_ID As Global.System.Data.DataColumn - + Private columnIS_REQUIRED As Global.System.Data.DataColumn - + Private columnTABLE_ID As Global.System.Data.DataColumn - + Private columnIS_VIRTUAL As Global.System.Data.DataColumn - - Private columnFUNCTION_PARAMETERS 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 columnACTIVE As Global.System.Data.DataColumn - + Private columnCOMMENT As Global.System.Data.DataColumn - + Private columnTEMPLATE_NAME As Global.System.Data.DataColumn - + Private columnTABLE_NAME As Global.System.Data.DataColumn - + Private columnPREFER_EXTERNAL As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBMT_TEMPLATE_ITEMS" - 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 Me.TableName = table.TableName @@ -575,260 +566,242 @@ Partial Public Class DS_DD_ECM 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 TYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_ID End Get End Property - - _ + + Public ReadOnly Property IS_READ_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_READ_ONLY End Get End Property - - _ + + Public ReadOnly Property IS_VISIBLEColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_VISIBLE End Get End Property - - _ + + Public ReadOnly Property ORDER_KEYColumn() As Global.System.Data.DataColumn Get Return Me.columnORDER_KEY End Get End Property - - _ - Public ReadOnly Property FUNCTION_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFUNCTION_ID - End Get - End Property - - _ + + Public ReadOnly Property IS_REQUIREDColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_REQUIRED End Get End Property - - _ + + Public ReadOnly Property TABLE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTABLE_ID End Get End Property - - _ + + Public ReadOnly Property IS_VIRTUALColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_VIRTUAL End Get End Property - - _ - Public ReadOnly Property FUNCTION_PARAMETERSColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFUNCTION_PARAMETERS - 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 ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - _ + + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property - - _ + + Public ReadOnly Property TEMPLATE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnTEMPLATE_NAME End Get End Property - - _ + + Public ReadOnly Property TABLE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnTABLE_NAME End Get End Property - - _ + + Public ReadOnly Property PREFER_EXTERNALColumn() As Global.System.Data.DataColumn Get Return Me.columnPREFER_EXTERNAL 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 TBMT_TEMPLATE_ITEMSRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBMT_TEMPLATE_ITEMSRow Get - Return CType(Me.Rows(index),TBMT_TEMPLATE_ITEMSRow) + Return CType(Me.Rows(index), TBMT_TEMPLATE_ITEMSRow) End Get End Property - - _ + + Public Event TBMT_TEMPLATE_ITEMSRowChanging As TBMT_TEMPLATE_ITEMSRowChangeEventHandler - - _ + + Public Event TBMT_TEMPLATE_ITEMSRowChanged As TBMT_TEMPLATE_ITEMSRowChangeEventHandler - - _ + + Public Event TBMT_TEMPLATE_ITEMSRowDeleting As TBMT_TEMPLATE_ITEMSRowChangeEventHandler - - _ + + Public Event TBMT_TEMPLATE_ITEMSRowDeleted As TBMT_TEMPLATE_ITEMSRowChangeEventHandler - - _ + + Public Overloads Sub AddTBMT_TEMPLATE_ITEMSRow(ByVal row As TBMT_TEMPLATE_ITEMSRow) Me.Rows.Add(row) End Sub - - _ - Public Overloads Function AddTBMT_TEMPLATE_ITEMSRow( _ - ByVal NAME As String, _ - ByVal TYPE_ID As Integer, _ - ByVal IS_READ_ONLY As Boolean, _ - ByVal IS_VISIBLE As Boolean, _ - ByVal ORDER_KEY As Integer, _ - ByVal FUNCTION_ID As Integer, _ - ByVal IS_REQUIRED As Boolean, _ - ByVal TABLE_ID As Integer, _ - ByVal IS_VIRTUAL As Boolean, _ - ByVal FUNCTION_PARAMETERS As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal ACTIVE As Boolean, _ - ByVal COMMENT As String, _ - ByVal TEMPLATE_NAME As String, _ - ByVal TABLE_NAME As String, _ + + + Public Overloads Function AddTBMT_TEMPLATE_ITEMSRow( + ByVal NAME As String, + ByVal TYPE_ID As Integer, + ByVal IS_READ_ONLY As Boolean, + ByVal IS_VISIBLE As Boolean, + ByVal ORDER_KEY As Integer, + ByVal IS_REQUIRED As Boolean, + ByVal TABLE_ID As Integer, + ByVal IS_VIRTUAL As Boolean, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Date, + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Date, + ByVal ACTIVE As Boolean, + ByVal COMMENT As String, + ByVal TEMPLATE_NAME As String, + ByVal TABLE_NAME As String, ByVal PREFER_EXTERNAL As Boolean) As TBMT_TEMPLATE_ITEMSRow - Dim rowTBMT_TEMPLATE_ITEMSRow As TBMT_TEMPLATE_ITEMSRow = CType(Me.NewRow,TBMT_TEMPLATE_ITEMSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TYPE_ID, IS_READ_ONLY, IS_VISIBLE, ORDER_KEY, FUNCTION_ID, IS_REQUIRED, TABLE_ID, IS_VIRTUAL, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, COMMENT, TEMPLATE_NAME, TABLE_NAME, PREFER_EXTERNAL} + Dim rowTBMT_TEMPLATE_ITEMSRow As TBMT_TEMPLATE_ITEMSRow = CType(Me.NewRow, TBMT_TEMPLATE_ITEMSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TYPE_ID, IS_READ_ONLY, IS_VISIBLE, ORDER_KEY, IS_REQUIRED, TABLE_ID, IS_VIRTUAL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, COMMENT, TEMPLATE_NAME, TABLE_NAME, PREFER_EXTERNAL} rowTBMT_TEMPLATE_ITEMSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBMT_TEMPLATE_ITEMSRow) Return rowTBMT_TEMPLATE_ITEMSRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBMT_TEMPLATE_ITEMSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBMT_TEMPLATE_ITEMSRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBMT_TEMPLATE_ITEMSRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBMT_TEMPLATE_ITEMSDataTable = CType(MyBase.Clone,TBMT_TEMPLATE_ITEMSDataTable) - cln.InitVars + Dim cln As TBMT_TEMPLATE_ITEMSDataTable = CType(MyBase.Clone, TBMT_TEMPLATE_ITEMSDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMT_TEMPLATE_ITEMSDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -836,11 +809,9 @@ Partial Public Class DS_DD_ECM Me.columnIS_READ_ONLY = MyBase.Columns("IS_READ_ONLY") Me.columnIS_VISIBLE = MyBase.Columns("IS_VISIBLE") Me.columnORDER_KEY = MyBase.Columns("ORDER_KEY") - Me.columnFUNCTION_ID = MyBase.Columns("FUNCTION_ID") Me.columnIS_REQUIRED = MyBase.Columns("IS_REQUIRED") Me.columnTABLE_ID = MyBase.Columns("TABLE_ID") Me.columnIS_VIRTUAL = MyBase.Columns("IS_VIRTUAL") - Me.columnFUNCTION_PARAMETERS = MyBase.Columns("FUNCTION_PARAMETERS") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") @@ -851,9 +822,9 @@ Partial Public Class DS_DD_ECM Me.columnTABLE_NAME = MyBase.Columns("TABLE_NAME") Me.columnPREFER_EXTERNAL = MyBase.Columns("PREFER_EXTERNAL") 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) @@ -867,16 +838,12 @@ Partial Public Class DS_DD_ECM MyBase.Columns.Add(Me.columnIS_VISIBLE) Me.columnORDER_KEY = New Global.System.Data.DataColumn("ORDER_KEY", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnORDER_KEY) - Me.columnFUNCTION_ID = New Global.System.Data.DataColumn("FUNCTION_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFUNCTION_ID) Me.columnIS_REQUIRED = New Global.System.Data.DataColumn("IS_REQUIRED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIS_REQUIRED) Me.columnTABLE_ID = New Global.System.Data.DataColumn("TABLE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTABLE_ID) Me.columnIS_VIRTUAL = New Global.System.Data.DataColumn("IS_VIRTUAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIS_VIRTUAL) - Me.columnFUNCTION_PARAMETERS = New Global.System.Data.DataColumn("FUNCTION_PARAMETERS", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFUNCTION_PARAMETERS) 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) @@ -895,97 +862,96 @@ Partial Public Class DS_DD_ECM MyBase.Columns.Add(Me.columnTABLE_NAME) Me.columnPREFER_EXTERNAL = New Global.System.Data.DataColumn("PREFER_EXTERNAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPREFER_EXTERNAL) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 50 - Me.columnTYPE_ID.AllowDBNull = false - Me.columnIS_READ_ONLY.AllowDBNull = false - Me.columnIS_VISIBLE.AllowDBNull = false - Me.columnORDER_KEY.AllowDBNull = false - Me.columnIS_REQUIRED.AllowDBNull = false - Me.columnTABLE_ID.AllowDBNull = false - Me.columnIS_VIRTUAL.AllowDBNull = false - Me.columnFUNCTION_PARAMETERS.MaxLength = 2147483647 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnTYPE_ID.AllowDBNull = False + Me.columnIS_READ_ONLY.AllowDBNull = False + Me.columnIS_VISIBLE.AllowDBNull = False + Me.columnORDER_KEY.AllowDBNull = False + Me.columnIS_REQUIRED.AllowDBNull = False + Me.columnTABLE_ID.AllowDBNull = False + Me.columnIS_VIRTUAL.AllowDBNull = False + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = False Me.columnCOMMENT.MaxLength = 100 - Me.columnTEMPLATE_NAME.AllowDBNull = false + Me.columnTEMPLATE_NAME.AllowDBNull = False Me.columnTEMPLATE_NAME.MaxLength = 20 - Me.columnTABLE_NAME.AllowDBNull = false + Me.columnTABLE_NAME.AllowDBNull = False Me.columnTABLE_NAME.MaxLength = 2147483647 - Me.columnPREFER_EXTERNAL.AllowDBNull = false + Me.columnPREFER_EXTERNAL.AllowDBNull = False End Sub - - _ + + Public Function NewTBMT_TEMPLATE_ITEMSRow() As TBMT_TEMPLATE_ITEMSRow - Return CType(Me.NewRow,TBMT_TEMPLATE_ITEMSRow) + Return CType(Me.NewRow, TBMT_TEMPLATE_ITEMSRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMT_TEMPLATE_ITEMSRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMT_TEMPLATE_ITEMSRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMT_TEMPLATE_ITEMSRowChangedEvent) Is Nothing) Then - RaiseEvent TBMT_TEMPLATE_ITEMSRowChanged(Me, New TBMT_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBMT_TEMPLATE_ITEMSRow), e.Action)) + RaiseEvent TBMT_TEMPLATE_ITEMSRowChanged(Me, New TBMT_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row, TBMT_TEMPLATE_ITEMSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMT_TEMPLATE_ITEMSRowChangingEvent) Is Nothing) Then - RaiseEvent TBMT_TEMPLATE_ITEMSRowChanging(Me, New TBMT_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBMT_TEMPLATE_ITEMSRow), e.Action)) + RaiseEvent TBMT_TEMPLATE_ITEMSRowChanging(Me, New TBMT_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row, TBMT_TEMPLATE_ITEMSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMT_TEMPLATE_ITEMSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBMT_TEMPLATE_ITEMSRowDeleted(Me, New TBMT_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBMT_TEMPLATE_ITEMSRow), e.Action)) + RaiseEvent TBMT_TEMPLATE_ITEMSRowDeleted(Me, New TBMT_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row, TBMT_TEMPLATE_ITEMSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMT_TEMPLATE_ITEMSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBMT_TEMPLATE_ITEMSRowDeleting(Me, New TBMT_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBMT_TEMPLATE_ITEMSRow), e.Action)) + RaiseEvent TBMT_TEMPLATE_ITEMSRowDeleting(Me, New TBMT_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row, TBMT_TEMPLATE_ITEMSRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBMT_TEMPLATE_ITEMSRow(ByVal row As TBMT_TEMPLATE_ITEMSRow) 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() @@ -1014,35 +980,35 @@ Partial Public Class DS_DD_ECM 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 @@ -1050,31 +1016,31 @@ Partial Public Class DS_DD_ECM Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBEDI_XML_TYPESDataTable Inherits Global.System.Data.TypedTableBase(Of TBEDI_XML_TYPESRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBEDI_XML_TYPES" - 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 Me.TableName = table.TableName @@ -1090,182 +1056,182 @@ Partial Public Class DS_DD_ECM 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 Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBEDI_XML_TYPESRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBEDI_XML_TYPESRow Get - Return CType(Me.Rows(index),TBEDI_XML_TYPESRow) + Return CType(Me.Rows(index), TBEDI_XML_TYPESRow) End Get End Property - - _ + + Public Event TBEDI_XML_TYPESRowChanging As TBEDI_XML_TYPESRowChangeEventHandler - - _ + + Public Event TBEDI_XML_TYPESRowChanged As TBEDI_XML_TYPESRowChangeEventHandler - - _ + + Public Event TBEDI_XML_TYPESRowDeleting As TBEDI_XML_TYPESRowChangeEventHandler - - _ + + Public Event TBEDI_XML_TYPESRowDeleted As TBEDI_XML_TYPESRowChangeEventHandler - - _ + + Public Overloads Sub AddTBEDI_XML_TYPESRow(ByVal row As TBEDI_XML_TYPESRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBEDI_XML_TYPESRow(ByVal NAME As String) As TBEDI_XML_TYPESRow - Dim rowTBEDI_XML_TYPESRow As TBEDI_XML_TYPESRow = CType(Me.NewRow,TBEDI_XML_TYPESRow) + Dim rowTBEDI_XML_TYPESRow As TBEDI_XML_TYPESRow = CType(Me.NewRow, TBEDI_XML_TYPESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} rowTBEDI_XML_TYPESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEDI_XML_TYPESRow) Return rowTBEDI_XML_TYPESRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBEDI_XML_TYPESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBEDI_XML_TYPESRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBEDI_XML_TYPESRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEDI_XML_TYPESDataTable = CType(MyBase.Clone,TBEDI_XML_TYPESDataTable) - cln.InitVars + Dim cln As TBEDI_XML_TYPESDataTable = CType(MyBase.Clone, TBEDI_XML_TYPESDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEDI_XML_TYPESDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 20 End Sub - - _ + + Public Function NewTBEDI_XML_TYPESRow() As TBEDI_XML_TYPESRow - Return CType(Me.NewRow,TBEDI_XML_TYPESRow) + Return CType(Me.NewRow, TBEDI_XML_TYPESRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEDI_XML_TYPESRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEDI_XML_TYPESRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEDI_XML_TYPESRowChangedEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_TYPESRowChanged(Me, New TBEDI_XML_TYPESRowChangeEvent(CType(e.Row,TBEDI_XML_TYPESRow), e.Action)) + RaiseEvent TBEDI_XML_TYPESRowChanged(Me, New TBEDI_XML_TYPESRowChangeEvent(CType(e.Row, TBEDI_XML_TYPESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEDI_XML_TYPESRowChangingEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_TYPESRowChanging(Me, New TBEDI_XML_TYPESRowChangeEvent(CType(e.Row,TBEDI_XML_TYPESRow), e.Action)) + RaiseEvent TBEDI_XML_TYPESRowChanging(Me, New TBEDI_XML_TYPESRowChangeEvent(CType(e.Row, TBEDI_XML_TYPESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEDI_XML_TYPESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_TYPESRowDeleted(Me, New TBEDI_XML_TYPESRowChangeEvent(CType(e.Row,TBEDI_XML_TYPESRow), e.Action)) + RaiseEvent TBEDI_XML_TYPESRowDeleted(Me, New TBEDI_XML_TYPESRowChangeEvent(CType(e.Row, TBEDI_XML_TYPESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEDI_XML_TYPESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_TYPESRowDeleting(Me, New TBEDI_XML_TYPESRowChangeEvent(CType(e.Row,TBEDI_XML_TYPESRow), e.Action)) + RaiseEvent TBEDI_XML_TYPESRowDeleting(Me, New TBEDI_XML_TYPESRowChangeEvent(CType(e.Row, TBEDI_XML_TYPESRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBEDI_XML_TYPESRow(ByVal row As TBEDI_XML_TYPESRow) 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() @@ -1294,35 +1260,35 @@ Partial Public Class DS_DD_ECM 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 @@ -1330,33 +1296,33 @@ Partial Public Class DS_DD_ECM Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBMT_TEMPLATESDataTable Inherits Global.System.Data.TypedTableBase(Of TBMT_TEMPLATESRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - + Private columnDESCRIPTION As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBMT_TEMPLATES" - 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 Me.TableName = table.TableName @@ -1372,113 +1338,113 @@ Partial Public Class DS_DD_ECM 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 DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION 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 TBMT_TEMPLATESRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBMT_TEMPLATESRow Get - Return CType(Me.Rows(index),TBMT_TEMPLATESRow) + Return CType(Me.Rows(index), TBMT_TEMPLATESRow) End Get End Property - - _ + + Public Event TBMT_TEMPLATESRowChanging As TBMT_TEMPLATESRowChangeEventHandler - - _ + + Public Event TBMT_TEMPLATESRowChanged As TBMT_TEMPLATESRowChangeEventHandler - - _ + + Public Event TBMT_TEMPLATESRowDeleting As TBMT_TEMPLATESRowChangeEventHandler - - _ + + Public Event TBMT_TEMPLATESRowDeleted As TBMT_TEMPLATESRowChangeEventHandler - - _ + + Public Overloads Sub AddTBMT_TEMPLATESRow(ByVal row As TBMT_TEMPLATESRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBMT_TEMPLATESRow(ByVal NAME As String, ByVal DESCRIPTION As String) As TBMT_TEMPLATESRow - Dim rowTBMT_TEMPLATESRow As TBMT_TEMPLATESRow = CType(Me.NewRow,TBMT_TEMPLATESRow) + Dim rowTBMT_TEMPLATESRow As TBMT_TEMPLATESRow = CType(Me.NewRow, TBMT_TEMPLATESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, DESCRIPTION} rowTBMT_TEMPLATESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBMT_TEMPLATESRow) Return rowTBMT_TEMPLATESRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBMT_TEMPLATESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBMT_TEMPLATESRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBMT_TEMPLATESRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBMT_TEMPLATESDataTable = CType(MyBase.Clone,TBMT_TEMPLATESDataTable) - cln.InitVars + Dim cln As TBMT_TEMPLATESDataTable = CType(MyBase.Clone, TBMT_TEMPLATESDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMT_TEMPLATESDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") 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) @@ -1486,80 +1452,80 @@ Partial Public Class DS_DD_ECM MyBase.Columns.Add(Me.columnNAME) Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDESCRIPTION) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 20 Me.columnDESCRIPTION.MaxLength = 2147483647 End Sub - - _ + + Public Function NewTBMT_TEMPLATESRow() As TBMT_TEMPLATESRow - Return CType(Me.NewRow,TBMT_TEMPLATESRow) + Return CType(Me.NewRow, TBMT_TEMPLATESRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMT_TEMPLATESRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMT_TEMPLATESRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMT_TEMPLATESRowChangedEvent) Is Nothing) Then - RaiseEvent TBMT_TEMPLATESRowChanged(Me, New TBMT_TEMPLATESRowChangeEvent(CType(e.Row,TBMT_TEMPLATESRow), e.Action)) + RaiseEvent TBMT_TEMPLATESRowChanged(Me, New TBMT_TEMPLATESRowChangeEvent(CType(e.Row, TBMT_TEMPLATESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMT_TEMPLATESRowChangingEvent) Is Nothing) Then - RaiseEvent TBMT_TEMPLATESRowChanging(Me, New TBMT_TEMPLATESRowChangeEvent(CType(e.Row,TBMT_TEMPLATESRow), e.Action)) + RaiseEvent TBMT_TEMPLATESRowChanging(Me, New TBMT_TEMPLATESRowChangeEvent(CType(e.Row, TBMT_TEMPLATESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMT_TEMPLATESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBMT_TEMPLATESRowDeleted(Me, New TBMT_TEMPLATESRowChangeEvent(CType(e.Row,TBMT_TEMPLATESRow), e.Action)) + RaiseEvent TBMT_TEMPLATESRowDeleted(Me, New TBMT_TEMPLATESRowChangeEvent(CType(e.Row, TBMT_TEMPLATESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMT_TEMPLATESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBMT_TEMPLATESRowDeleting(Me, New TBMT_TEMPLATESRowChangeEvent(CType(e.Row,TBMT_TEMPLATESRow), e.Action)) + RaiseEvent TBMT_TEMPLATESRowDeleting(Me, New TBMT_TEMPLATESRowChangeEvent(CType(e.Row, TBMT_TEMPLATESRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBMT_TEMPLATESRow(ByVal row As TBMT_TEMPLATESRow) 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() @@ -1588,35 +1554,35 @@ Partial Public Class DS_DD_ECM 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 @@ -1624,35 +1590,35 @@ Partial Public Class DS_DD_ECM Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBEDI_XML_NODESDataTable Inherits Global.System.Data.TypedTableBase(Of TBEDI_XML_NODESRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - + Private columnTEMPLATE_ID As Global.System.Data.DataColumn - + Private columnIS_HEAD As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBEDI_XML_NODES" - 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 Me.TableName = table.TableName @@ -1668,122 +1634,122 @@ Partial Public Class DS_DD_ECM 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 TEMPLATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTEMPLATE_ID End Get End Property - - _ + + Public ReadOnly Property IS_HEADColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_HEAD 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 TBEDI_XML_NODESRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBEDI_XML_NODESRow Get - Return CType(Me.Rows(index),TBEDI_XML_NODESRow) + Return CType(Me.Rows(index), TBEDI_XML_NODESRow) End Get End Property - - _ + + Public Event TBEDI_XML_NODESRowChanging As TBEDI_XML_NODESRowChangeEventHandler - - _ + + Public Event TBEDI_XML_NODESRowChanged As TBEDI_XML_NODESRowChangeEventHandler - - _ + + Public Event TBEDI_XML_NODESRowDeleting As TBEDI_XML_NODESRowChangeEventHandler - - _ + + Public Event TBEDI_XML_NODESRowDeleted As TBEDI_XML_NODESRowChangeEventHandler - - _ + + Public Overloads Sub AddTBEDI_XML_NODESRow(ByVal row As TBEDI_XML_NODESRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBEDI_XML_NODESRow(ByVal NAME As String, ByVal TEMPLATE_ID As Integer, ByVal IS_HEAD As Boolean) As TBEDI_XML_NODESRow - Dim rowTBEDI_XML_NODESRow As TBEDI_XML_NODESRow = CType(Me.NewRow,TBEDI_XML_NODESRow) + Dim rowTBEDI_XML_NODESRow As TBEDI_XML_NODESRow = CType(Me.NewRow, TBEDI_XML_NODESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TEMPLATE_ID, IS_HEAD} rowTBEDI_XML_NODESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEDI_XML_NODESRow) Return rowTBEDI_XML_NODESRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBEDI_XML_NODESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBEDI_XML_NODESRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBEDI_XML_NODESRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEDI_XML_NODESDataTable = CType(MyBase.Clone,TBEDI_XML_NODESDataTable) - cln.InitVars + Dim cln As TBEDI_XML_NODESDataTable = CType(MyBase.Clone, TBEDI_XML_NODESDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEDI_XML_NODESDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnTEMPLATE_ID = MyBase.Columns("TEMPLATE_ID") Me.columnIS_HEAD = MyBase.Columns("IS_HEAD") 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) @@ -1793,81 +1759,81 @@ Partial Public Class DS_DD_ECM MyBase.Columns.Add(Me.columnTEMPLATE_ID) Me.columnIS_HEAD = New Global.System.Data.DataColumn("IS_HEAD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIS_HEAD) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 2147483647 - Me.columnTEMPLATE_ID.AllowDBNull = false - Me.columnIS_HEAD.AllowDBNull = false + Me.columnTEMPLATE_ID.AllowDBNull = False + Me.columnIS_HEAD.AllowDBNull = False End Sub - - _ + + Public Function NewTBEDI_XML_NODESRow() As TBEDI_XML_NODESRow - Return CType(Me.NewRow,TBEDI_XML_NODESRow) + Return CType(Me.NewRow, TBEDI_XML_NODESRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEDI_XML_NODESRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEDI_XML_NODESRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEDI_XML_NODESRowChangedEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_NODESRowChanged(Me, New TBEDI_XML_NODESRowChangeEvent(CType(e.Row,TBEDI_XML_NODESRow), e.Action)) + RaiseEvent TBEDI_XML_NODESRowChanged(Me, New TBEDI_XML_NODESRowChangeEvent(CType(e.Row, TBEDI_XML_NODESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEDI_XML_NODESRowChangingEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_NODESRowChanging(Me, New TBEDI_XML_NODESRowChangeEvent(CType(e.Row,TBEDI_XML_NODESRow), e.Action)) + RaiseEvent TBEDI_XML_NODESRowChanging(Me, New TBEDI_XML_NODESRowChangeEvent(CType(e.Row, TBEDI_XML_NODESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEDI_XML_NODESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_NODESRowDeleted(Me, New TBEDI_XML_NODESRowChangeEvent(CType(e.Row,TBEDI_XML_NODESRow), e.Action)) + RaiseEvent TBEDI_XML_NODESRowDeleted(Me, New TBEDI_XML_NODESRowChangeEvent(CType(e.Row, TBEDI_XML_NODESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEDI_XML_NODESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_NODESRowDeleting(Me, New TBEDI_XML_NODESRowChangeEvent(CType(e.Row,TBEDI_XML_NODESRow), e.Action)) + RaiseEvent TBEDI_XML_NODESRowDeleting(Me, New TBEDI_XML_NODESRowChangeEvent(CType(e.Row, TBEDI_XML_NODESRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBEDI_XML_NODESRow(ByVal row As TBEDI_XML_NODESRow) 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() @@ -1896,35 +1862,35 @@ Partial Public Class DS_DD_ECM 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 @@ -1932,35 +1898,35 @@ Partial Public Class DS_DD_ECM Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBMT_FUNCTIONSDataTable Inherits Global.System.Data.TypedTableBase(Of TBMT_FUNCTIONSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - + Private columnDESCRIPTION As Global.System.Data.DataColumn - + Private columnPARAMETERS As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBMT_FUNCTIONS" - 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 Me.TableName = table.TableName @@ -1976,122 +1942,122 @@ Partial Public Class DS_DD_ECM 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 DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION End Get End Property - - _ + + Public ReadOnly Property PARAMETERSColumn() As Global.System.Data.DataColumn Get Return Me.columnPARAMETERS 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 TBMT_FUNCTIONSRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBMT_FUNCTIONSRow Get - Return CType(Me.Rows(index),TBMT_FUNCTIONSRow) + Return CType(Me.Rows(index), TBMT_FUNCTIONSRow) End Get End Property - - _ + + Public Event TBMT_FUNCTIONSRowChanging As TBMT_FUNCTIONSRowChangeEventHandler - - _ + + Public Event TBMT_FUNCTIONSRowChanged As TBMT_FUNCTIONSRowChangeEventHandler - - _ + + Public Event TBMT_FUNCTIONSRowDeleting As TBMT_FUNCTIONSRowChangeEventHandler - - _ + + Public Event TBMT_FUNCTIONSRowDeleted As TBMT_FUNCTIONSRowChangeEventHandler - - _ + + Public Overloads Sub AddTBMT_FUNCTIONSRow(ByVal row As TBMT_FUNCTIONSRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBMT_FUNCTIONSRow(ByVal NAME As String, ByVal DESCRIPTION As String, ByVal PARAMETERS As String) As TBMT_FUNCTIONSRow - Dim rowTBMT_FUNCTIONSRow As TBMT_FUNCTIONSRow = CType(Me.NewRow,TBMT_FUNCTIONSRow) + Dim rowTBMT_FUNCTIONSRow As TBMT_FUNCTIONSRow = CType(Me.NewRow, TBMT_FUNCTIONSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, DESCRIPTION, PARAMETERS} rowTBMT_FUNCTIONSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBMT_FUNCTIONSRow) Return rowTBMT_FUNCTIONSRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBMT_FUNCTIONSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBMT_FUNCTIONSRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBMT_FUNCTIONSRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBMT_FUNCTIONSDataTable = CType(MyBase.Clone,TBMT_FUNCTIONSDataTable) - cln.InitVars + Dim cln As TBMT_FUNCTIONSDataTable = CType(MyBase.Clone, TBMT_FUNCTIONSDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMT_FUNCTIONSDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") Me.columnPARAMETERS = MyBase.Columns("PARAMETERS") 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) @@ -2101,82 +2067,82 @@ Partial Public Class DS_DD_ECM MyBase.Columns.Add(Me.columnDESCRIPTION) Me.columnPARAMETERS = New Global.System.Data.DataColumn("PARAMETERS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPARAMETERS) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 2147483647 - Me.columnDESCRIPTION.AllowDBNull = false + Me.columnDESCRIPTION.AllowDBNull = False Me.columnDESCRIPTION.MaxLength = 2147483647 Me.columnPARAMETERS.MaxLength = 2147483647 End Sub - - _ + + Public Function NewTBMT_FUNCTIONSRow() As TBMT_FUNCTIONSRow - Return CType(Me.NewRow,TBMT_FUNCTIONSRow) + Return CType(Me.NewRow, TBMT_FUNCTIONSRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMT_FUNCTIONSRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMT_FUNCTIONSRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMT_FUNCTIONSRowChangedEvent) Is Nothing) Then - RaiseEvent TBMT_FUNCTIONSRowChanged(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row,TBMT_FUNCTIONSRow), e.Action)) + RaiseEvent TBMT_FUNCTIONSRowChanged(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row, TBMT_FUNCTIONSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMT_FUNCTIONSRowChangingEvent) Is Nothing) Then - RaiseEvent TBMT_FUNCTIONSRowChanging(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row,TBMT_FUNCTIONSRow), e.Action)) + RaiseEvent TBMT_FUNCTIONSRowChanging(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row, TBMT_FUNCTIONSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMT_FUNCTIONSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBMT_FUNCTIONSRowDeleted(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row,TBMT_FUNCTIONSRow), e.Action)) + RaiseEvent TBMT_FUNCTIONSRowDeleted(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row, TBMT_FUNCTIONSRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMT_FUNCTIONSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBMT_FUNCTIONSRowDeleting(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row,TBMT_FUNCTIONSRow), e.Action)) + RaiseEvent TBMT_FUNCTIONSRowDeleting(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row, TBMT_FUNCTIONSRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBMT_FUNCTIONSRow(ByVal row As TBMT_FUNCTIONSRow) 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() @@ -2205,35 +2171,35 @@ Partial Public Class DS_DD_ECM 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 @@ -2241,47 +2207,47 @@ Partial Public Class DS_DD_ECM Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBMT_CONFIGDataTable Inherits Global.System.Data.TypedTableBase(Of TBMT_CONFIGRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnKEY As Global.System.Data.DataColumn - + Private columnVALUE 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 columnACTIVE As Global.System.Data.DataColumn - + Private columnTEMPLATE_ID As Global.System.Data.DataColumn - + Private columnCOMMENT As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBMT_CONFIG" - 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 Me.TableName = table.TableName @@ -2297,161 +2263,161 @@ Partial Public Class DS_DD_ECM 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 KEYColumn() As Global.System.Data.DataColumn Get Return Me.columnKEY End Get End Property - - _ + + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE 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 ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - _ + + Public ReadOnly Property TEMPLATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTEMPLATE_ID End Get End Property - - _ + + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT 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 TBMT_CONFIGRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBMT_CONFIGRow Get - Return CType(Me.Rows(index),TBMT_CONFIGRow) + Return CType(Me.Rows(index), TBMT_CONFIGRow) End Get End Property - - _ + + Public Event TBMT_CONFIGRowChanging As TBMT_CONFIGRowChangeEventHandler - - _ + + Public Event TBMT_CONFIGRowChanged As TBMT_CONFIGRowChangeEventHandler - - _ + + Public Event TBMT_CONFIGRowDeleting As TBMT_CONFIGRowChangeEventHandler - - _ + + Public Event TBMT_CONFIGRowDeleted As TBMT_CONFIGRowChangeEventHandler - - _ + + Public Overloads Sub AddTBMT_CONFIGRow(ByVal row As TBMT_CONFIGRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBMT_CONFIGRow(ByVal KEY As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal TEMPLATE_ID As Integer, ByVal COMMENT As String) As TBMT_CONFIGRow - Dim rowTBMT_CONFIGRow As TBMT_CONFIGRow = CType(Me.NewRow,TBMT_CONFIGRow) + Dim rowTBMT_CONFIGRow As TBMT_CONFIGRow = CType(Me.NewRow, TBMT_CONFIGRow) Dim columnValuesArray() As Object = New Object() {Nothing, KEY, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, TEMPLATE_ID, COMMENT} rowTBMT_CONFIGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBMT_CONFIGRow) Return rowTBMT_CONFIGRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBMT_CONFIGRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBMT_CONFIGRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBMT_CONFIGRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBMT_CONFIGDataTable = CType(MyBase.Clone,TBMT_CONFIGDataTable) - cln.InitVars + Dim cln As TBMT_CONFIGDataTable = CType(MyBase.Clone, TBMT_CONFIGDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMT_CONFIGDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnKEY = MyBase.Columns("KEY") @@ -2464,9 +2430,9 @@ Partial Public Class DS_DD_ECM Me.columnTEMPLATE_ID = MyBase.Columns("TEMPLATE_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") 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) @@ -2488,87 +2454,87 @@ Partial Public Class DS_DD_ECM MyBase.Columns.Add(Me.columnTEMPLATE_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnKEY.AllowDBNull = false + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnKEY.AllowDBNull = False Me.columnKEY.MaxLength = 100 - Me.columnVALUE.AllowDBNull = false + Me.columnVALUE.AllowDBNull = False Me.columnVALUE.MaxLength = 500 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnACTIVE.AllowDBNull = false - Me.columnACTIVE.DefaultValue = CType(false,Boolean) + Me.columnACTIVE.AllowDBNull = False + Me.columnACTIVE.DefaultValue = CType(False, Boolean) Me.columnCOMMENT.MaxLength = 100 End Sub - - _ + + Public Function NewTBMT_CONFIGRow() As TBMT_CONFIGRow - Return CType(Me.NewRow,TBMT_CONFIGRow) + Return CType(Me.NewRow, TBMT_CONFIGRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMT_CONFIGRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMT_CONFIGRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMT_CONFIGRowChangedEvent) Is Nothing) Then - RaiseEvent TBMT_CONFIGRowChanged(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row,TBMT_CONFIGRow), e.Action)) + RaiseEvent TBMT_CONFIGRowChanged(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row, TBMT_CONFIGRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMT_CONFIGRowChangingEvent) Is Nothing) Then - RaiseEvent TBMT_CONFIGRowChanging(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row,TBMT_CONFIGRow), e.Action)) + RaiseEvent TBMT_CONFIGRowChanging(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row, TBMT_CONFIGRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMT_CONFIGRowDeletedEvent) Is Nothing) Then - RaiseEvent TBMT_CONFIGRowDeleted(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row,TBMT_CONFIGRow), e.Action)) + RaiseEvent TBMT_CONFIGRowDeleted(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row, TBMT_CONFIGRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMT_CONFIGRowDeletingEvent) Is Nothing) Then - RaiseEvent TBMT_CONFIGRowDeleting(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row,TBMT_CONFIGRow), e.Action)) + RaiseEvent TBMT_CONFIGRowDeleting(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row, TBMT_CONFIGRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBMT_CONFIGRow(ByVal row As TBMT_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() @@ -2597,35 +2563,35 @@ Partial Public Class DS_DD_ECM 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 @@ -2633,47 +2599,47 @@ Partial Public Class DS_DD_ECM Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + Partial Public Class TBMT_TABLESDataTable Inherits Global.System.Data.TypedTableBase(Of TBMT_TABLESRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - + Private columnTEMPLATE_ID As Global.System.Data.DataColumn - + Private columnIS_HEAD As Global.System.Data.DataColumn - + Private columnACTIVE As Global.System.Data.DataColumn - + Private columnCOMMENT As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ + + Public Sub New() MyBase.New Me.TableName = "TBMT_TABLES" - 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 Me.TableName = table.TableName @@ -2689,161 +2655,161 @@ Partial Public Class DS_DD_ECM 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 TEMPLATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTEMPLATE_ID End Get End Property - - _ + + Public ReadOnly Property IS_HEADColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_HEAD End Get End Property - - _ + + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - _ + + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT 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 Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBMT_TABLESRow + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBMT_TABLESRow Get - Return CType(Me.Rows(index),TBMT_TABLESRow) + Return CType(Me.Rows(index), TBMT_TABLESRow) End Get End Property - - _ + + Public Event TBMT_TABLESRowChanging As TBMT_TABLESRowChangeEventHandler - - _ + + Public Event TBMT_TABLESRowChanged As TBMT_TABLESRowChangeEventHandler - - _ + + Public Event TBMT_TABLESRowDeleting As TBMT_TABLESRowChangeEventHandler - - _ + + Public Event TBMT_TABLESRowDeleted As TBMT_TABLESRowChangeEventHandler - - _ + + Public Overloads Sub AddTBMT_TABLESRow(ByVal row As TBMT_TABLESRow) Me.Rows.Add(row) End Sub - - _ + + Public Overloads Function AddTBMT_TABLESRow(ByVal NAME As String, ByVal TEMPLATE_ID As Integer, ByVal IS_HEAD As Boolean, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBMT_TABLESRow - Dim rowTBMT_TABLESRow As TBMT_TABLESRow = CType(Me.NewRow,TBMT_TABLESRow) + Dim rowTBMT_TABLESRow As TBMT_TABLESRow = CType(Me.NewRow, TBMT_TABLESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBMT_TABLESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBMT_TABLESRow) Return rowTBMT_TABLESRow End Function - - _ + + Public Function FindByGUID(ByVal GUID As Integer) As TBMT_TABLESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBMT_TABLESRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBMT_TABLESRow) End Function - - _ + + Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBMT_TABLESDataTable = CType(MyBase.Clone,TBMT_TABLESDataTable) - cln.InitVars + Dim cln As TBMT_TABLESDataTable = CType(MyBase.Clone, TBMT_TABLESDataTable) + cln.InitVars() Return cln End Function - - _ + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMT_TABLESDataTable() End Function - - _ + + Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -2856,9 +2822,9 @@ Partial Public Class DS_DD_ECM Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub - - _ + + Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2880,86 +2846,86 @@ Partial Public Class DS_DD_ECM MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true + 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.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 2147483647 - Me.columnTEMPLATE_ID.AllowDBNull = false - Me.columnIS_HEAD.AllowDBNull = false - Me.columnACTIVE.AllowDBNull = false + Me.columnTEMPLATE_ID.AllowDBNull = False + Me.columnIS_HEAD.AllowDBNull = False + Me.columnACTIVE.AllowDBNull = False Me.columnCOMMENT.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + Public Function NewTBMT_TABLESRow() As TBMT_TABLESRow - Return CType(Me.NewRow,TBMT_TABLESRow) + Return CType(Me.NewRow, TBMT_TABLESRow) End Function - - _ + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMT_TABLESRow(builder) End Function - - _ + + Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMT_TABLESRow) End Function - - _ + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMT_TABLESRowChangedEvent) Is Nothing) Then - RaiseEvent TBMT_TABLESRowChanged(Me, New TBMT_TABLESRowChangeEvent(CType(e.Row,TBMT_TABLESRow), e.Action)) + RaiseEvent TBMT_TABLESRowChanged(Me, New TBMT_TABLESRowChangeEvent(CType(e.Row, TBMT_TABLESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMT_TABLESRowChangingEvent) Is Nothing) Then - RaiseEvent TBMT_TABLESRowChanging(Me, New TBMT_TABLESRowChangeEvent(CType(e.Row,TBMT_TABLESRow), e.Action)) + RaiseEvent TBMT_TABLESRowChanging(Me, New TBMT_TABLESRowChangeEvent(CType(e.Row, TBMT_TABLESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMT_TABLESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBMT_TABLESRowDeleted(Me, New TBMT_TABLESRowChangeEvent(CType(e.Row,TBMT_TABLESRow), e.Action)) + RaiseEvent TBMT_TABLESRowDeleted(Me, New TBMT_TABLESRowChangeEvent(CType(e.Row, TBMT_TABLESRow), e.Action)) End If End Sub - - _ + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMT_TABLESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBMT_TABLESRowDeleting(Me, New TBMT_TABLESRowChangeEvent(CType(e.Row,TBMT_TABLESRow), e.Action)) + RaiseEvent TBMT_TABLESRowDeleting(Me, New TBMT_TABLESRowChangeEvent(CType(e.Row, TBMT_TABLESRow), e.Action)) End If End Sub - - _ + + Public Sub RemoveTBMT_TABLESRow(ByVal row As TBMT_TABLESRow) 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() @@ -2988,35 +2954,35 @@ Partial Public Class DS_DD_ECM 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 @@ -3024,1283 +2990,1207 @@ Partial Public Class DS_DD_ECM Return type End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBMT_TEMPLATE_ITEMSRow Inherits Global.System.Data.DataRow - + Private tableTBMT_TEMPLATE_ITEMS As TBMT_TEMPLATE_ITEMSDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBMT_TEMPLATE_ITEMS = CType(Me.Table,TBMT_TEMPLATE_ITEMSDataTable) + Me.tableTBMT_TEMPLATE_ITEMS = CType(Me.Table, TBMT_TEMPLATE_ITEMSDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.GUIDColumn), Integer) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.GUIDColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.NAMEColumn),String) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.NAMEColumn), String) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.NAMEColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.NAMEColumn) = Value End Set End Property - - _ + + Public Property TYPE_ID() As Integer Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TYPE_IDColumn),Integer) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TYPE_IDColumn), Integer) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.TYPE_IDColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.TYPE_IDColumn) = Value End Set End Property - - _ + + Public Property IS_READ_ONLY() As Boolean Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_READ_ONLYColumn),Boolean) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_READ_ONLYColumn), Boolean) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_READ_ONLYColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_READ_ONLYColumn) = Value End Set End Property - - _ + + Public Property IS_VISIBLE() As Boolean Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_VISIBLEColumn),Boolean) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_VISIBLEColumn), Boolean) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_VISIBLEColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_VISIBLEColumn) = Value End Set End Property - - _ + + Public Property ORDER_KEY() As Integer Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ORDER_KEYColumn),Integer) - End Get - Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.ORDER_KEYColumn) = value - End Set - End Property - - _ - Public Property FUNCTION_ID() As Integer - Get - Try - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_IDColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION_ID in Tabelle TBMT_TEMPLATE_ITEMS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ORDER_KEYColumn), Integer) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_IDColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.ORDER_KEYColumn) = Value End Set End Property - - _ + + Public Property IS_REQUIRED() As Boolean Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_REQUIREDColumn),Boolean) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_REQUIREDColumn), Boolean) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_REQUIREDColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_REQUIREDColumn) = Value End Set End Property - - _ + + Public Property TABLE_ID() As Integer Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_IDColumn),Integer) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_IDColumn), Integer) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_IDColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_IDColumn) = Value End Set End Property - - _ + + Public Property IS_VIRTUAL() As Boolean Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_VIRTUALColumn),Boolean) - End Get - Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_VIRTUALColumn) = value - End Set - End Property - - _ - Public Property FUNCTION_PARAMETERS() As String - Get - Try - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION_PARAMETERS in Tabelle TBMT_TEMPLATE_ITEMS ist DBNull"& _ - ".", e) - End Try + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_VIRTUALColumn), Boolean) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.IS_VIRTUALColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHOColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBMT_TEMPLATE_ITEMS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHENColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBMT_TEMPLATE_ITEMS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBMT_TEMPLATE_ITEMS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHENColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.ACTIVEColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.ACTIVEColumn) = Value End Set End Property - - _ + + Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn),String) + Try + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBMT_TEMPLATE_ITEMS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn) = Value End Set End Property - - _ + + Public Property TEMPLATE_NAME() As String Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TEMPLATE_NAMEColumn),String) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TEMPLATE_NAMEColumn), String) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.TEMPLATE_NAMEColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.TEMPLATE_NAMEColumn) = Value End Set End Property - - _ + + Public Property TABLE_NAME() As String Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_NAMEColumn),String) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_NAMEColumn), String) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_NAMEColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_NAMEColumn) = Value End Set End Property - - _ + + Public Property PREFER_EXTERNAL() As Boolean Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.PREFER_EXTERNALColumn),Boolean) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.PREFER_EXTERNALColumn), Boolean) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.PREFER_EXTERNALColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.PREFER_EXTERNALColumn) = Value End Set End Property - - _ - Public Function IsFUNCTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_IDColumn) - End Function - - _ - Public Sub SetFUNCTION_IDNull() - Me(Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_IDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFUNCTION_PARAMETERSNull() As Boolean - Return Me.IsNull(Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn) - End Function - - _ - Public Sub SetFUNCTION_PARAMETERSNull() - Me(Me.tableTBMT_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn) = Global.System.Convert.DBNull - End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBMT_TEMPLATE_ITEMS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn) End Function - - _ + + Public Sub SetCOMMENTNull() Me(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetTBMT_FUNCTIONSRows() As TBMT_FUNCTIONSRow() - If (Me.Table.ChildRelations("TBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS") Is Nothing) Then - Return New TBMT_FUNCTIONSRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS")),TBMT_FUNCTIONSRow()) - End If - End Function - - _ + + Public Function GetTBEDI_XML_TYPESRows() As TBEDI_XML_TYPESRow() If (Me.Table.ChildRelations("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES") Is Nothing) Then Return New TBEDI_XML_TYPESRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES")),TBEDI_XML_TYPESRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES")), TBEDI_XML_TYPESRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEDI_XML_TYPESRow Inherits Global.System.Data.DataRow - + Private tableTBEDI_XML_TYPES As TBEDI_XML_TYPESDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEDI_XML_TYPES = CType(Me.Table,TBEDI_XML_TYPESDataTable) + Me.tableTBEDI_XML_TYPES = CType(Me.Table, TBEDI_XML_TYPESDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBEDI_XML_TYPES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBEDI_XML_TYPES.GUIDColumn), Integer) End Get Set - Me(Me.tableTBEDI_XML_TYPES.GUIDColumn) = value + Me(Me.tableTBEDI_XML_TYPES.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBEDI_XML_TYPES.NAMEColumn),String) + Return CType(Me(Me.tableTBEDI_XML_TYPES.NAMEColumn), String) End Get Set - Me(Me.tableTBEDI_XML_TYPES.NAMEColumn) = value + Me(Me.tableTBEDI_XML_TYPES.NAMEColumn) = Value End Set End Property - - _ + + Public Property TBMT_TEMPLATE_ITEMSRow() As TBMT_TEMPLATE_ITEMSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES")),TBMT_TEMPLATE_ITEMSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES")), TBMT_TEMPLATE_ITEMSRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES")) + Me.SetParentRow(Value, Me.Table.ParentRelations("TBMT_TEMPLATE_ITEMS_TBEDI_XML_TYPES")) End Set End Property End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBMT_TEMPLATESRow Inherits Global.System.Data.DataRow - + Private tableTBMT_TEMPLATES As TBMT_TEMPLATESDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBMT_TEMPLATES = CType(Me.Table,TBMT_TEMPLATESDataTable) + Me.tableTBMT_TEMPLATES = CType(Me.Table, TBMT_TEMPLATESDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBMT_TEMPLATES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBMT_TEMPLATES.GUIDColumn), Integer) End Get Set - Me(Me.tableTBMT_TEMPLATES.GUIDColumn) = value + Me(Me.tableTBMT_TEMPLATES.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBMT_TEMPLATES.NAMEColumn),String) + Return CType(Me(Me.tableTBMT_TEMPLATES.NAMEColumn), String) End Get Set - Me(Me.tableTBMT_TEMPLATES.NAMEColumn) = value + Me(Me.tableTBMT_TEMPLATES.NAMEColumn) = Value End Set End Property - - _ + + Public Property DESCRIPTION() As String Get - Try - Return CType(Me(Me.tableTBMT_TEMPLATES.DESCRIPTIONColumn),String) + Try + Return CType(Me(Me.tableTBMT_TEMPLATES.DESCRIPTIONColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBMT_TEMPLATES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TEMPLATES.DESCRIPTIONColumn) = value + Me(Me.tableTBMT_TEMPLATES.DESCRIPTIONColumn) = Value End Set End Property - - _ + + Public Property TBEDI_XML_NODESRow() As TBEDI_XML_NODESRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_NODES_TBMT_TEMPLATES")),TBEDI_XML_NODESRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_NODES_TBMT_TEMPLATES")), TBEDI_XML_NODESRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_NODES_TBMT_TEMPLATES")) + Me.SetParentRow(Value, Me.Table.ParentRelations("TBEDI_XML_NODES_TBMT_TEMPLATES")) End Set End Property - - _ + + Public Function IsDESCRIPTIONNull() As Boolean Return Me.IsNull(Me.tableTBMT_TEMPLATES.DESCRIPTIONColumn) End Function - - _ + + Public Sub SetDESCRIPTIONNull() Me(Me.tableTBMT_TEMPLATES.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEDI_XML_NODESRow Inherits Global.System.Data.DataRow - + Private tableTBEDI_XML_NODES As TBEDI_XML_NODESDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEDI_XML_NODES = CType(Me.Table,TBEDI_XML_NODESDataTable) + Me.tableTBEDI_XML_NODES = CType(Me.Table, TBEDI_XML_NODESDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBEDI_XML_NODES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBEDI_XML_NODES.GUIDColumn), Integer) End Get Set - Me(Me.tableTBEDI_XML_NODES.GUIDColumn) = value + Me(Me.tableTBEDI_XML_NODES.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBEDI_XML_NODES.NAMEColumn),String) + Return CType(Me(Me.tableTBEDI_XML_NODES.NAMEColumn), String) End Get Set - Me(Me.tableTBEDI_XML_NODES.NAMEColumn) = value + Me(Me.tableTBEDI_XML_NODES.NAMEColumn) = Value End Set End Property - - _ + + Public Property TEMPLATE_ID() As Integer Get - Return CType(Me(Me.tableTBEDI_XML_NODES.TEMPLATE_IDColumn),Integer) + Return CType(Me(Me.tableTBEDI_XML_NODES.TEMPLATE_IDColumn), Integer) End Get Set - Me(Me.tableTBEDI_XML_NODES.TEMPLATE_IDColumn) = value + Me(Me.tableTBEDI_XML_NODES.TEMPLATE_IDColumn) = Value End Set End Property - - _ + + Public Property IS_HEAD() As Boolean Get - Return CType(Me(Me.tableTBEDI_XML_NODES.IS_HEADColumn),Boolean) + Return CType(Me(Me.tableTBEDI_XML_NODES.IS_HEADColumn), Boolean) End Get Set - Me(Me.tableTBEDI_XML_NODES.IS_HEADColumn) = value + Me(Me.tableTBEDI_XML_NODES.IS_HEADColumn) = Value End Set End Property - - _ + + Public Function GetTBMT_TEMPLATESRows() As TBMT_TEMPLATESRow() If (Me.Table.ChildRelations("TBEDI_XML_NODES_TBMT_TEMPLATES") Is Nothing) Then Return New TBMT_TEMPLATESRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBEDI_XML_NODES_TBMT_TEMPLATES")),TBMT_TEMPLATESRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBEDI_XML_NODES_TBMT_TEMPLATES")), TBMT_TEMPLATESRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBMT_FUNCTIONSRow Inherits Global.System.Data.DataRow - + Private tableTBMT_FUNCTIONS As TBMT_FUNCTIONSDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBMT_FUNCTIONS = CType(Me.Table,TBMT_FUNCTIONSDataTable) + Me.tableTBMT_FUNCTIONS = CType(Me.Table, TBMT_FUNCTIONSDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBMT_FUNCTIONS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBMT_FUNCTIONS.GUIDColumn), Integer) End Get Set - Me(Me.tableTBMT_FUNCTIONS.GUIDColumn) = value + Me(Me.tableTBMT_FUNCTIONS.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBMT_FUNCTIONS.NAMEColumn),String) + Return CType(Me(Me.tableTBMT_FUNCTIONS.NAMEColumn), String) End Get Set - Me(Me.tableTBMT_FUNCTIONS.NAMEColumn) = value + Me(Me.tableTBMT_FUNCTIONS.NAMEColumn) = Value End Set End Property - - _ + + Public Property DESCRIPTION() As String Get - Return CType(Me(Me.tableTBMT_FUNCTIONS.DESCRIPTIONColumn),String) + Return CType(Me(Me.tableTBMT_FUNCTIONS.DESCRIPTIONColumn), String) End Get Set - Me(Me.tableTBMT_FUNCTIONS.DESCRIPTIONColumn) = value + Me(Me.tableTBMT_FUNCTIONS.DESCRIPTIONColumn) = Value End Set End Property - - _ + + Public Property PARAMETERS() As String Get - Try - Return CType(Me(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn),String) + Try + Return CType(Me(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARAMETERS in Tabelle TBMT_FUNCTIONS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn) = value - End Set - End Property - - _ - Public Property TBMT_TEMPLATE_ITEMSRow() As TBMT_TEMPLATE_ITEMSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS")),TBMT_TEMPLATE_ITEMSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("TBMT_TEMPLATE_ITEMS_TBMT_FUNCTIONS")) + Me(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn) = Value End Set End Property - - _ + + Public Function IsPARAMETERSNull() As Boolean Return Me.IsNull(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn) End Function - - _ + + Public Sub SetPARAMETERSNull() Me(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBMT_CONFIGRow Inherits Global.System.Data.DataRow - + Private tableTBMT_CONFIG As TBMT_CONFIGDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBMT_CONFIG = CType(Me.Table,TBMT_CONFIGDataTable) + Me.tableTBMT_CONFIG = CType(Me.Table, TBMT_CONFIGDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBMT_CONFIG.GUIDColumn),Integer) + Return CType(Me(Me.tableTBMT_CONFIG.GUIDColumn), Integer) End Get Set - Me(Me.tableTBMT_CONFIG.GUIDColumn) = value + Me(Me.tableTBMT_CONFIG.GUIDColumn) = Value End Set End Property - - _ + + Public Property KEY() As String Get - Return CType(Me(Me.tableTBMT_CONFIG.KEYColumn),String) + Return CType(Me(Me.tableTBMT_CONFIG.KEYColumn), String) End Get Set - Me(Me.tableTBMT_CONFIG.KEYColumn) = value + Me(Me.tableTBMT_CONFIG.KEYColumn) = Value End Set End Property - - _ + + Public Property VALUE() As String Get - Return CType(Me(Me.tableTBMT_CONFIG.VALUEColumn),String) + Return CType(Me(Me.tableTBMT_CONFIG.VALUEColumn), String) End Get Set - Me(Me.tableTBMT_CONFIG.VALUEColumn) = value + Me(Me.tableTBMT_CONFIG.VALUEColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBMT_CONFIG.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBMT_CONFIG.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBMT_CONFIG.ADDED_WHOColumn) = value + Me(Me.tableTBMT_CONFIG.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBMT_CONFIG.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBMT_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 TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_CONFIG.ADDED_WHENColumn) = value + Me(Me.tableTBMT_CONFIG.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBMT_CONFIG.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBMT_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 TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_CONFIG.CHANGED_WHOColumn) = value + Me(Me.tableTBMT_CONFIG.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBMT_CONFIG.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBMT_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 TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_CONFIG.CHANGED_WHENColumn) = value + Me(Me.tableTBMT_CONFIG.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBMT_CONFIG.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBMT_CONFIG.ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBMT_CONFIG.ACTIVEColumn) = value + Me(Me.tableTBMT_CONFIG.ACTIVEColumn) = Value End Set End Property - - _ + + Public Property TEMPLATE_ID() As Integer Get - Try - Return CType(Me(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn),Integer) + Try + Return CType(Me(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn), Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEMPLATE_ID in Tabelle TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn) = value + Me(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn) = Value End Set End Property - - _ + + Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBMT_CONFIG.COMMENTColumn),String) + Try + Return CType(Me(Me.tableTBMT_CONFIG.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_CONFIG.COMMENTColumn) = value + Me(Me.tableTBMT_CONFIG.COMMENTColumn) = Value End Set End Property - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBMT_CONFIG.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBMT_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBMT_CONFIG.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBMT_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBMT_CONFIG.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBMT_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsTEMPLATE_IDNull() As Boolean Return Me.IsNull(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn) End Function - - _ + + Public Sub SetTEMPLATE_IDNull() Me(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBMT_CONFIG.COMMENTColumn) End Function - - _ + + Public Sub SetCOMMENTNull() Me(Me.tableTBMT_CONFIG.COMMENTColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBMT_TABLESRow Inherits Global.System.Data.DataRow - + Private tableTBMT_TABLES As TBMT_TABLESDataTable - - _ + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBMT_TABLES = CType(Me.Table,TBMT_TABLESDataTable) + Me.tableTBMT_TABLES = CType(Me.Table, TBMT_TABLESDataTable) End Sub - - _ + + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBMT_TABLES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBMT_TABLES.GUIDColumn), Integer) End Get Set - Me(Me.tableTBMT_TABLES.GUIDColumn) = value + Me(Me.tableTBMT_TABLES.GUIDColumn) = Value End Set End Property - - _ + + Public Property NAME() As String Get - Return CType(Me(Me.tableTBMT_TABLES.NAMEColumn),String) + Return CType(Me(Me.tableTBMT_TABLES.NAMEColumn), String) End Get Set - Me(Me.tableTBMT_TABLES.NAMEColumn) = value + Me(Me.tableTBMT_TABLES.NAMEColumn) = Value End Set End Property - - _ + + Public Property TEMPLATE_ID() As Integer Get - Return CType(Me(Me.tableTBMT_TABLES.TEMPLATE_IDColumn),Integer) + Return CType(Me(Me.tableTBMT_TABLES.TEMPLATE_IDColumn), Integer) End Get Set - Me(Me.tableTBMT_TABLES.TEMPLATE_IDColumn) = value + Me(Me.tableTBMT_TABLES.TEMPLATE_IDColumn) = Value End Set End Property - - _ + + Public Property IS_HEAD() As Boolean Get - Return CType(Me(Me.tableTBMT_TABLES.IS_HEADColumn),Boolean) + Return CType(Me(Me.tableTBMT_TABLES.IS_HEADColumn), Boolean) End Get Set - Me(Me.tableTBMT_TABLES.IS_HEADColumn) = value + Me(Me.tableTBMT_TABLES.IS_HEADColumn) = Value End Set End Property - - _ + + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBMT_TABLES.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBMT_TABLES.ACTIVEColumn), Boolean) End Get Set - Me(Me.tableTBMT_TABLES.ACTIVEColumn) = value + Me(Me.tableTBMT_TABLES.ACTIVEColumn) = Value End Set End Property - - _ + + Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBMT_TABLES.COMMENTColumn),String) + Try + Return CType(Me(Me.tableTBMT_TABLES.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBMT_TABLES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TABLES.COMMENTColumn) = value + Me(Me.tableTBMT_TABLES.COMMENTColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBMT_TABLES.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBMT_TABLES.ADDED_WHOColumn), String) End Get Set - Me(Me.tableTBMT_TABLES.ADDED_WHOColumn) = value + Me(Me.tableTBMT_TABLES.ADDED_WHOColumn) = Value End Set End Property - - _ + + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBMT_TABLES.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBMT_TABLES.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBMT_TABLES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TABLES.ADDED_WHENColumn) = value + Me(Me.tableTBMT_TABLES.ADDED_WHENColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBMT_TABLES.CHANGED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBMT_TABLES.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBMT_TABLES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TABLES.CHANGED_WHOColumn) = value + Me(Me.tableTBMT_TABLES.CHANGED_WHOColumn) = Value End Set End Property - - _ + + Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBMT_TABLES.CHANGED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBMT_TABLES.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBMT_TABLES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBMT_TABLES.CHANGED_WHENColumn) = value + Me(Me.tableTBMT_TABLES.CHANGED_WHENColumn) = Value End Set End Property - - _ + + Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBMT_TABLES.COMMENTColumn) End Function - - _ + + Public Sub SetCOMMENTNull() Me(Me.tableTBMT_TABLES.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBMT_TABLES.ADDED_WHENColumn) End Function - - _ + + Public Sub SetADDED_WHENNull() Me(Me.tableTBMT_TABLES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBMT_TABLES.CHANGED_WHOColumn) End Function - - _ + + Public Sub SetCHANGED_WHONull() Me(Me.tableTBMT_TABLES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBMT_TABLES.CHANGED_WHENColumn) End Function - - _ + + Public Sub SetCHANGED_WHENNull() Me(Me.tableTBMT_TABLES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Row event argument class ''' - _ + Public Class TBMT_TEMPLATE_ITEMSRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBMT_TEMPLATE_ITEMSRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBMT_TEMPLATE_ITEMSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBMT_TEMPLATE_ITEMSRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + Public Class TBEDI_XML_TYPESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBEDI_XML_TYPESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBEDI_XML_TYPESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBEDI_XML_TYPESRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + Public Class TBMT_TEMPLATESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBMT_TEMPLATESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBMT_TEMPLATESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBMT_TEMPLATESRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + Public Class TBEDI_XML_NODESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBEDI_XML_NODESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBEDI_XML_NODESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBEDI_XML_NODESRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + Public Class TBMT_FUNCTIONSRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBMT_FUNCTIONSRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBMT_FUNCTIONSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBMT_FUNCTIONSRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + Public Class TBMT_CONFIGRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBMT_CONFIGRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBMT_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBMT_CONFIGRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + Public Class TBMT_TABLESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBMT_TABLESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + Public Sub New(ByVal row As TBMT_TABLESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + Public ReadOnly Property Row() As TBMT_TABLESRow Get Return Me.eventRow End Get End Property - - _ + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4310,129 +4200,129 @@ Partial Public Class DS_DD_ECM End Class Namespace DS_DD_ECMTableAdapters - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + Partial Public Class TBMT_TEMPLATE_ITEMSTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + Public Sub New() MyBase.New - Me.ClearBeforeFill = true + Me.ClearBeforeFill = True End Sub - - _ + + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get Set - Me._connection = value + Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value + Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value + Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + Me.Adapter.UpdateCommand.Connection = Value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = Value End If i = (i + 1) Loop End Set End Property - - _ + + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set - Me._transaction = value + Me._transaction = Value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set - Me._clearBeforeFill = value + Me._clearBeforeFill = Value End Set End Property - - _ + + Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -4444,11 +4334,9 @@ Namespace DS_DD_ECMTableAdapters tableMapping.ColumnMappings.Add("IS_READ_ONLY", "IS_READ_ONLY") tableMapping.ColumnMappings.Add("IS_VISIBLE", "IS_VISIBLE") tableMapping.ColumnMappings.Add("ORDER_KEY", "ORDER_KEY") - tableMapping.ColumnMappings.Add("FUNCTION_ID", "FUNCTION_ID") tableMapping.ColumnMappings.Add("IS_REQUIRED", "IS_REQUIRED") tableMapping.ColumnMappings.Add("XML_TABLE_ID", "TABLE_ID") tableMapping.ColumnMappings.Add("IS_VIRTUAL", "IS_VIRTUAL") - tableMapping.ColumnMappings.Add("FUNCTION_PARAMETERS", "FUNCTION_PARAMETERS") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") @@ -4464,306 +4352,277 @@ Namespace DS_DD_ECMTableAdapters 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 TBMT_TEMPLATE_ITEMS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBMT_TEMPLATE_ITEMS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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 TBMT_TEMPLATE_ITEMS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (ORDER_KEY, NAME, TABLE"& _ - "_ID, TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID, FU"& _ - "NCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@ORDER_KEY,@NAME,@TABLE_ID,@TYPE_ID,@IS_READ_ONLY,@IS_VISIBLE,@IS_REQUIRED,"& _ - "@IS_VIRTUAL,@FUNCTION_ID,@FUNCTION_PARAMETERS,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WH"& _ - "O,@CHANGED_WHEN); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_ID, XML_TYPE_ID,"& _ - " IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID, FUNCTION_PARAME"& _ - "TERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_TEMPLATE_ITEMS "& _ - "WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBMT_TEMPLATE_ITEMS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (ORDER_KEY, NAME, TABLE" & + "_ID, TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, ADDED_WHO, ADDE" & + "D_WHEN, CHANGED_WHO, CHANGED_WHEN)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@ORDER_KEY,@NAME,@TABLE_ID,@T" & + "YPE_ID,@IS_READ_ONLY,@IS_VISIBLE,@IS_REQUIRED,@IS_VIRTUAL,@ADDED_WHO,@ADDED_WHEN" & + ",@CHANGED_WHO,@CHANGED_WHEN); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_I" & + "D, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID, " & + "FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_" & + "TEMPLATE_ITEMS WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORDER_KEY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ORDER_KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TABLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TABLE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.Int, 4, 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("@IS_READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_REQUIRED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_REQUIRED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_VIRTUAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_VIRTUAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION_PARAMETERS", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION_PARAMETERS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.NVarChar, 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("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORDER_KEY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ORDER_KEY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TABLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TABLE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.Int, 4, 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("@IS_READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_READ_ONLY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_VISIBLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_REQUIRED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_REQUIRED", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_VIRTUAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_VIRTUAL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.NVarChar, 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("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBMT_TEMPLATE_ITEMS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ORDER_KEY = @ORDER_KEY, NAME"& _ - " = @XML_NAME, TABLE_ID = @XML_TABLE_ID, TYPE_ID = @XML_TYPE_ID, IS_READ_ONLY = @"& _ - "IS_READ_ONLY, IS_VISIBLE = @IS_VISIBLE, IS_REQUIRED = @IS_REQUIRED, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " IS_VIRTUAL = @IS_VIRTUAL, FUNCTION_ID = @FUNCTION_ID, FUNCTION_PA"& _ - "RAMETERS = @FUNCTION_PARAMETERS, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHE"& _ - "N, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGE"& _ - "D_WHEN, PREFER_EXTERNAL = @PREFER_EXTERNAL, ACTIVE = @ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID"& _ - " = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_ID, XML_TY"& _ - "PE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID, FUNCTION_"& _ - "PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_TEMPLATE_"& _ - "ITEMS WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBMT_TEMPLATE_ITEMS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET ORDER_KEY = @ORDER_KEY, NAME" & + " = @XML_NAME, TABLE_ID = @XML_TABLE_ID, TYPE_ID = @XML_TYPE_ID, IS_READ_ONLY = @" & + "IS_READ_ONLY, IS_VISIBLE = @IS_VISIBLE, IS_REQUIRED = @IS_REQUIRED, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " IS_VIRTUAL = @IS_VIRTUAL, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @A" & + "DDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, PREFER_EXTE" & + "RNAL = @PREFER_EXTERNAL, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " ACTIVE = @ACTIVE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE " & + " (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_I" & + "D, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID, " & + "FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_" & + "TEMPLATE_ITEMS WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORDER_KEY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ORDER_KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@XML_NAME", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@XML_TABLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TABLE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@XML_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, 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("@IS_READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_REQUIRED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_REQUIRED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_VIRTUAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_VIRTUAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION_PARAMETERS", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION_PARAMETERS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.NVarChar, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PREFER_EXTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "PREFER_EXTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 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("@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("@ORDER_KEY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ORDER_KEY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@XML_NAME", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@XML_TABLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TABLE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@XML_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, 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("@IS_READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_READ_ONLY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_VISIBLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_REQUIRED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_REQUIRED", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_VIRTUAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_VIRTUAL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.NVarChar, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PREFER_EXTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "PREFER_EXTERNAL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 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("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub - - _ + + Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.MultiTool.Form.My.MySettings.Default.DD_ECMConnectionString End Sub - - _ + + Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBMT_TEMPLATE_ITEMS.GUID, TBMT_TEMPLATE_ITEMS.ORDER_KEY, TBMT_TEMPL"& _ - "ATE_ITEMS.NAME, TBMT_TEMPLATE_ITEMS.TABLE_ID, TBMT_TEMPLATE_ITEMS.TYPE_ID, TBMT_"& _ - "TEMPLATE_ITEMS.IS_READ_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMT_TEMPLATE_ITEMS.IS_V"& _ - "ISIBLE, TBMT_TEMPLATE_ITEMS.IS_REQUIRED, TBMT_TEMPLATE_ITEMS.IS_VIRTUAL, TBMT_TE"& _ - "MPLATE_ITEMS.FUNCTION_ID, TBMT_TEMPLATE_ITEMS.FUNCTION_PARAMETERS, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBMT_TEMPLATE_ITEMS.ACTIVE, TBMT_TEMPLATE_ITEMS.COMMENT, TBMT_TEMP"& _ - "LATE_ITEMS.ADDED_WHO, TBMT_TEMPLATE_ITEMS.ADDED_WHEN, TBMT_TEMPLATE_ITEMS.CHANGE"& _ - "D_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMT_TEMPLATE_ITEMS.CHANGED_WHEN, TBTEMPLATES."& _ - "NAME AS TEMPLATE_NAME, TBTABLES.NAME AS TABLE_NAME, TBMT_TEMPLATE_ITEMS.PREFER_E"& _ - "XTERNAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMT_TEMPLATE_ITEMS INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBMT_TABLES AS TBTABLES ON TBMT_TEMPLATE_ITEMS.TABLE_ID = TBTABLES.GUID INNER "& _ - "JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMT_TEMPLATES AS TBTEMPLATES ON TBTABLES.TEMPLAT"& _ - "E_ID = TBTEMPLATES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBMT_TEMPLATE_ITEMS.TABLE_ID = @TABLE_ID)"& _ - "" + Me._commandCollection(0).CommandText = "SELECT TBMT_TEMPLATE_ITEMS.GUID, TBMT_TEMPLATE_ITEMS.ORDER_KEY, TBMT_TEMPL" & + "ATE_ITEMS.NAME, TBMT_TEMPLATE_ITEMS.TABLE_ID, TBMT_TEMPLATE_ITEMS.TYPE_ID, TBMT_" & + "TEMPLATE_ITEMS.IS_READ_ONLY, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBMT_TEMPLATE_ITEMS.IS_V" & + "ISIBLE, TBMT_TEMPLATE_ITEMS.IS_REQUIRED, TBMT_TEMPLATE_ITEMS.IS_VIRTUAL, TBMT_TE" & + "MPLATE_ITEMS.ACTIVE, TBMT_TEMPLATE_ITEMS.COMMENT, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBM" & + "T_TEMPLATE_ITEMS.ADDED_WHO, TBMT_TEMPLATE_ITEMS.ADDED_WHEN, TBMT_TEMPLATE_ITEMS." & + "CHANGED_WHO, TBMT_TEMPLATE_ITEMS.CHANGED_WHEN, TBTEMPLATES.NAME AS TEMPLATE_NAME" & + ", " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBTABLES.NAME AS TABLE_NAME, TBMT_TEMPLATE_ITEMS.PR" & + "EFER_EXTERNAL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBMT_TEMPLATE_ITEMS INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & + " TBMT_TABLES AS TBTABLES ON TBMT_TEMPLATE_ITEMS.TABLE_ID = TBTABLES.GUID " & + "INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBMT_TEMPLATES AS TBTEMPLATES ON TBTABLES.T" & + "EMPLATE_ID = TBTEMPLATES.GUID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (TBMT_TEMPLATE_ITEMS.TABLE_ID = @TAB" & + "LE_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TABLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TABLE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TABLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TABLE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable, ByVal TABLE_ID As Integer) As Integer + + + Public Overridable Overloads Function Fill(ByVal dataTable As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable, ByVal TABLE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TABLE_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TABLE_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal TABLE_ID As Integer) As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable + + + Public Overridable Overloads Function GetData(ByVal TABLE_ID As Integer) As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TABLE_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TABLE_ID, Integer) Dim dataTable As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable = New DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DS_DD_ECM) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As DS_DD_ECM) As Integer Return Me.Adapter.Update(dataSet, "TBMT_TEMPLATE_ITEMS") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + 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 - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + 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 + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal ORDER_KEY As Integer, ByVal NAME As String, ByVal TABLE_ID As Integer, ByVal TYPE_ID As Integer, ByVal IS_READ_ONLY As Boolean, ByVal IS_VISIBLE As Boolean, ByVal IS_REQUIRED As Boolean, ByVal IS_VIRTUAL As Boolean, ByVal FUNCTION_ID As Global.System.Nullable(Of Integer), ByVal FUNCTION_PARAMETERS As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ORDER_KEY,Integer) + + + Public Overridable Overloads Function Insert(ByVal ORDER_KEY As Integer, ByVal NAME As String, ByVal TABLE_ID As Integer, ByVal TYPE_ID As Integer, ByVal IS_READ_ONLY As Boolean, ByVal IS_VISIBLE As Boolean, ByVal IS_REQUIRED As Boolean, ByVal IS_VIRTUAL As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ORDER_KEY, Integer) If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(TABLE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(TYPE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(IS_READ_ONLY,Boolean) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(IS_VISIBLE,Boolean) - Me.Adapter.InsertCommand.Parameters(6).Value = CType(IS_REQUIRED,Boolean) - Me.Adapter.InsertCommand.Parameters(7).Value = CType(IS_VIRTUAL,Boolean) - If (FUNCTION_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(8).Value = CType(FUNCTION_ID.Value,Integer) - Else - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - End If - If (FUNCTION_PARAMETERS Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(FUNCTION_PARAMETERS,String) - End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME, String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(TABLE_ID, Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TYPE_ID, Integer) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(IS_READ_ONLY, Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(IS_VISIBLE, Boolean) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(IS_REQUIRED, Boolean) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(IS_VIRTUAL, Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHEN.Value, Date) Else - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(CHANGED_WHEN.Value, Date) Else - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal ORDER_KEY As Integer, _ - ByVal XML_NAME As String, _ - ByVal XML_TABLE_ID As Integer, _ - ByVal XML_TYPE_ID As Integer, _ - ByVal IS_READ_ONLY As Boolean, _ - ByVal IS_VISIBLE As Boolean, _ - ByVal IS_REQUIRED As Boolean, _ - ByVal IS_VIRTUAL As Boolean, _ - ByVal FUNCTION_ID As Global.System.Nullable(Of Integer), _ - ByVal FUNCTION_PARAMETERS As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal PREFER_EXTERNAL As Boolean, _ - ByVal ACTIVE As Boolean, _ - ByVal Original_GUID As Integer, _ + + + Public Overridable Overloads Function Update( + ByVal ORDER_KEY As Integer, + ByVal XML_NAME As String, + ByVal XML_TABLE_ID As Integer, + ByVal XML_TYPE_ID As Integer, + ByVal IS_READ_ONLY As Boolean, + ByVal IS_VISIBLE As Boolean, + ByVal IS_REQUIRED As Boolean, + ByVal IS_VIRTUAL As Boolean, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal PREFER_EXTERNAL As Boolean, + ByVal ACTIVE As Boolean, + ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ORDER_KEY,Integer) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ORDER_KEY, Integer) If (XML_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("XML_NAME") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(XML_NAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(XML_TABLE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(XML_TYPE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IS_READ_ONLY,Boolean) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IS_VISIBLE,Boolean) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(IS_REQUIRED,Boolean) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IS_VIRTUAL,Boolean) - If (FUNCTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FUNCTION_ID.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - End If - If (FUNCTION_PARAMETERS Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(FUNCTION_PARAMETERS,String) - End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(XML_NAME, String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(XML_TABLE_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(XML_TYPE_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IS_READ_ONLY, Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IS_VISIBLE, Boolean) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(IS_REQUIRED, Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IS_VIRTUAL, Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHO, String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADDED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO, String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHEN.Value, Date) Else - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PREFER_EXTERNAL,Boolean) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ACTIVE,Boolean) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PREFER_EXTERNAL, Boolean) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ACTIVE, Boolean) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(15).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 diff --git a/MultiTool.Form/DS_DD_ECM.xsd b/MultiTool.Form/DS_DD_ECM.xsd index 449a740..8a70b43 100644 --- a/MultiTool.Form/DS_DD_ECM.xsd +++ b/MultiTool.Form/DS_DD_ECM.xsd @@ -20,35 +20,33 @@ WHERE (GUID = @Original_GUID) - + INSERT INTO TBMT_TEMPLATE_ITEMS - (ORDER_KEY, NAME, TABLE_ID, TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN) -VALUES (@ORDER_KEY,@NAME,@TABLE_ID,@TYPE_ID,@IS_READ_ONLY,@IS_VISIBLE,@IS_REQUIRED,@IS_VIRTUAL,@FUNCTION_ID,@FUNCTION_PARAMETERS,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN); + (ORDER_KEY, NAME, TABLE_ID, TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN) +VALUES (@ORDER_KEY,@NAME,@TABLE_ID,@TYPE_ID,@IS_READ_ONLY,@IS_VISIBLE,@IS_REQUIRED,@IS_VIRTUAL,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN); SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_TEMPLATE_ITEMS WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - + + + + + + + + + + + + SELECT TBMT_TEMPLATE_ITEMS.GUID, TBMT_TEMPLATE_ITEMS.ORDER_KEY, TBMT_TEMPLATE_ITEMS.NAME, TBMT_TEMPLATE_ITEMS.TABLE_ID, TBMT_TEMPLATE_ITEMS.TYPE_ID, TBMT_TEMPLATE_ITEMS.IS_READ_ONLY, - TBMT_TEMPLATE_ITEMS.IS_VISIBLE, TBMT_TEMPLATE_ITEMS.IS_REQUIRED, TBMT_TEMPLATE_ITEMS.IS_VIRTUAL, TBMT_TEMPLATE_ITEMS.FUNCTION_ID, TBMT_TEMPLATE_ITEMS.FUNCTION_PARAMETERS, - TBMT_TEMPLATE_ITEMS.ACTIVE, TBMT_TEMPLATE_ITEMS.COMMENT, TBMT_TEMPLATE_ITEMS.ADDED_WHO, TBMT_TEMPLATE_ITEMS.ADDED_WHEN, TBMT_TEMPLATE_ITEMS.CHANGED_WHO, - TBMT_TEMPLATE_ITEMS.CHANGED_WHEN, TBTEMPLATES.NAME AS TEMPLATE_NAME, TBTABLES.NAME AS TABLE_NAME, TBMT_TEMPLATE_ITEMS.PREFER_EXTERNAL + TBMT_TEMPLATE_ITEMS.IS_VISIBLE, TBMT_TEMPLATE_ITEMS.IS_REQUIRED, TBMT_TEMPLATE_ITEMS.IS_VIRTUAL, TBMT_TEMPLATE_ITEMS.ACTIVE, TBMT_TEMPLATE_ITEMS.COMMENT, + TBMT_TEMPLATE_ITEMS.ADDED_WHO, TBMT_TEMPLATE_ITEMS.ADDED_WHEN, TBMT_TEMPLATE_ITEMS.CHANGED_WHO, TBMT_TEMPLATE_ITEMS.CHANGED_WHEN, TBTEMPLATES.NAME AS TEMPLATE_NAME, + TBTABLES.NAME AS TABLE_NAME, TBMT_TEMPLATE_ITEMS.PREFER_EXTERNAL FROM TBMT_TEMPLATE_ITEMS INNER JOIN TBMT_TABLES AS TBTABLES ON TBMT_TEMPLATE_ITEMS.TABLE_ID = TBTABLES.GUID INNER JOIN TBMT_TEMPLATES AS TBTEMPLATES ON TBTABLES.TEMPLATE_ID = TBTEMPLATES.GUID @@ -59,32 +57,30 @@ WHERE (TBMT_TEMPLATE_ITEMS.TABLE_ID = @TABLE_ID) - + UPDATE TBMT_TEMPLATE_ITEMS SET ORDER_KEY = @ORDER_KEY, NAME = @XML_NAME, TABLE_ID = @XML_TABLE_ID, TYPE_ID = @XML_TYPE_ID, IS_READ_ONLY = @IS_READ_ONLY, IS_VISIBLE = @IS_VISIBLE, IS_REQUIRED = @IS_REQUIRED, - IS_VIRTUAL = @IS_VIRTUAL, FUNCTION_ID = @FUNCTION_ID, FUNCTION_PARAMETERS = @FUNCTION_PARAMETERS, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, - CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, PREFER_EXTERNAL = @PREFER_EXTERNAL, ACTIVE = @ACTIVE -WHERE (GUID = @Original_GUID); + IS_VIRTUAL = @IS_VIRTUAL, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, PREFER_EXTERNAL = @PREFER_EXTERNAL, + ACTIVE = @ACTIVE +WHERE (GUID = @Original_GUID); SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_TEMPLATE_ITEMS WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + @@ -97,11 +93,9 @@ SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VI - - @@ -504,82 +498,74 @@ SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, - + - + - - + + - - - - - - - - - - - - - - - - + + + + + + + + - - + + - - - + + + - + - + - + - + - - + + @@ -589,18 +575,18 @@ SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, - + - - + + - + @@ -610,41 +596,41 @@ SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, - + - - + + - - + + - + - - + + - + - + @@ -654,43 +640,43 @@ SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, - + - - + + - + - + - - + + - - - - + + + + @@ -700,43 +686,43 @@ SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, - + - - + + - - - - + + + + - + - - + + - + @@ -773,9 +759,8 @@ SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, - - - + + \ No newline at end of file diff --git a/MultiTool.Form/DS_DD_ECM.xss b/MultiTool.Form/DS_DD_ECM.xss index 4d1def1..807e179 100644 --- a/MultiTool.Form/DS_DD_ECM.xss +++ b/MultiTool.Form/DS_DD_ECM.xss @@ -4,33 +4,17 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - + + - + - - - - 240 - 313 - - - 240 - 364 - - - 472 - 364 - - - diff --git a/MultiTool.Form/frmConfig.Designer.vb b/MultiTool.Form/frmConfig.Designer.vb index d8e6666..2a2ed8b 100644 --- a/MultiTool.Form/frmConfig.Designer.vb +++ b/MultiTool.Form/frmConfig.Designer.vb @@ -73,6 +73,8 @@ Partial Class frmConfig Me.CheckEdit4 = New DevExpress.XtraEditors.CheckEdit() Me.CheckEdit5 = New DevExpress.XtraEditors.CheckEdit() Me.CheckEdit6 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() Me.LayoutControlGroup4 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlGroup5 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() @@ -81,6 +83,8 @@ Partial Class frmConfig Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() Me.tabPageConfig = New DevExpress.XtraTab.XtraTabPage() Me.GridConfig = New DevExpress.XtraGrid.GridControl() @@ -120,10 +124,6 @@ Partial Class frmConfig Me.TBMT_CONFIGTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBMT_CONFIGTableAdapter() Me.TableAdapterManager = New MultiTool.Form.DS_DD_ECMTableAdapters.TableAdapterManager() Me.TBMT_TABLESTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBMT_TABLESTableAdapter() - Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() - Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.tabPageSchema.SuspendLayout() @@ -148,6 +148,8 @@ Partial Class frmConfig CType(Me.CheckEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CheckEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CheckEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() @@ -156,6 +158,8 @@ Partial Class frmConfig CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit() Me.tabPageConfig.SuspendLayout() CType(Me.GridConfig, System.ComponentModel.ISupportInitialize).BeginInit() @@ -181,10 +185,6 @@ Partial Class frmConfig CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'XtraTabControl1 @@ -583,6 +583,26 @@ Partial Class frmConfig Me.CheckEdit6.StyleController = Me.LayoutControl2 Me.CheckEdit6.TabIndex = 9 ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "ORDER_KEY", True)) + Me.TextEdit1.Location = New System.Drawing.Point(32, 309) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(198, 20) + Me.TextEdit1.StyleController = Me.LayoutControl2 + Me.TextEdit1.TabIndex = 10 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "TYPE_ID", True)) + Me.TextEdit2.Location = New System.Drawing.Point(32, 365) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(198, 20) + Me.TextEdit2.StyleController = Me.LayoutControl2 + Me.TextEdit2.TabIndex = 11 + ' 'LayoutControlGroup4 ' Me.LayoutControlGroup4.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] @@ -660,6 +680,28 @@ Partial Class frmConfig Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem7.TextVisible = False ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.TextEdit1 + Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 240) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem13.Size = New System.Drawing.Size(218, 56) + Me.LayoutControlItem13.Text = "Sortierung" + Me.LayoutControlItem13.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(55, 13) + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.TextEdit2 + Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 296) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem14.Size = New System.Drawing.Size(218, 56) + Me.LayoutControlItem14.Text = "Typ" + Me.LayoutControlItem14.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(55, 13) + ' 'EmptySpaceItem2 ' Me.EmptySpaceItem2.AllowHotTrack = False @@ -976,48 +1018,6 @@ Partial Class frmConfig ' Me.TBMT_TABLESTableAdapter.ClearBeforeFill = True ' - 'TextEdit1 - ' - Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "ORDER_KEY", True)) - Me.TextEdit1.Location = New System.Drawing.Point(32, 309) - Me.TextEdit1.MenuManager = Me.RibbonControl1 - Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Size = New System.Drawing.Size(198, 20) - Me.TextEdit1.StyleController = Me.LayoutControl2 - Me.TextEdit1.TabIndex = 10 - ' - 'LayoutControlItem13 - ' - Me.LayoutControlItem13.Control = Me.TextEdit1 - Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 240) - Me.LayoutControlItem13.Name = "LayoutControlItem13" - Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem13.Size = New System.Drawing.Size(218, 56) - Me.LayoutControlItem13.Text = "Sortierung" - Me.LayoutControlItem13.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem13.TextSize = New System.Drawing.Size(55, 13) - ' - 'TextEdit2 - ' - Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "TYPE_ID", True)) - Me.TextEdit2.Location = New System.Drawing.Point(32, 365) - Me.TextEdit2.MenuManager = Me.RibbonControl1 - Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.Size = New System.Drawing.Size(198, 20) - Me.TextEdit2.StyleController = Me.LayoutControl2 - Me.TextEdit2.TabIndex = 11 - ' - 'LayoutControlItem14 - ' - Me.LayoutControlItem14.Control = Me.TextEdit2 - Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 296) - Me.LayoutControlItem14.Name = "LayoutControlItem14" - Me.LayoutControlItem14.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem14.Size = New System.Drawing.Size(218, 56) - Me.LayoutControlItem14.Text = "Typ" - Me.LayoutControlItem14.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem14.TextSize = New System.Drawing.Size(55, 13) - ' 'frmConfig ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1055,6 +1055,8 @@ Partial Class frmConfig CType(Me.CheckEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CheckEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CheckEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() @@ -1063,6 +1065,8 @@ Partial Class frmConfig CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit() Me.tabPageConfig.ResumeLayout(False) CType(Me.GridConfig, System.ComponentModel.ISupportInitialize).EndInit() @@ -1088,10 +1092,6 @@ Partial Class frmConfig CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() diff --git a/MultiTool.Form/frmConfig.resx b/MultiTool.Form/frmConfig.resx index e1b5df5..f8ac689 100644 --- a/MultiTool.Form/frmConfig.resx +++ b/MultiTool.Form/frmConfig.resx @@ -124,7 +124,7 @@ 17, 17 - 1202, 17 + 1210, 16 diff --git a/MultiTool.Form/frmConfig.vb b/MultiTool.Form/frmConfig.vb index eae58c3..893991f 100644 --- a/MultiTool.Form/frmConfig.vb +++ b/MultiTool.Form/frmConfig.vb @@ -4,10 +4,11 @@ Imports DevExpress.XtraGrid.Views.Grid Imports DigitalData.Modules.Config Imports DigitalData.Modules.Database Imports DigitalData.Modules.Logging -Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Base Imports DigitalData.GUIs.Common Public Class frmConfig + Private ReadOnly TBMT_CONFIG_GENERAL As New DS_DD_ECM.TBMT_CONFIGDataTable Private ReadOnly ConfigManager As ConfigManager(Of MultiTool.Common.Config) Private ReadOnly FormHelper As FormHelper @@ -15,6 +16,7 @@ Public Class frmConfig Private BindingSource As BindingSource = TBEDIXMLITEMSBindingSource Private View As GridView = GridViewItems + Private Logger As Logger Private ReadOnly Property Config As Common.Config @@ -31,6 +33,7 @@ Public Class frmConfig FormHelper = New FormHelper(pLogConfig, Me) ConfigManager = pConfigManager GridBuilder = New GridBuilder(GridViewTables, GridViewItems) + Logger = pLogConfig.GetLogger() End Sub Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -42,27 +45,34 @@ Public Class frmConfig Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString) With { .InitialCatalog = "DD_ECM" } + oConnectionString = oBuilder.ToString() + Logger.Debug("Connection String: [{0}]", oConnectionString) + Logger.Debug("Setting default values") ' Default Values DS_DD_ECM.TBMT_CONFIG.ADDED_WHOColumn.DefaultValue = Environment.UserName DS_DD_ECM.TBMT_CONFIG.CHANGED_WHOColumn.DefaultValue = Environment.UserName DS_DD_ECM.TBMT_TEMPLATE_ITEMS.ADDED_WHOColumn.DefaultValue = Environment.UserName DS_DD_ECM.TBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn.DefaultValue = Environment.UserName - TBMT_TABLESTableAdapter.Connection.ConnectionString = oBuilder.ToString() - TBMT_TABLESTableAdapter.Fill(Me.DS_DD_ECM.TBMT_TABLES) - - TBMT_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString() + Logger.Debug("Initializing Tables Adapter") + TBMT_TABLESTableAdapter.Connection.ConnectionString = oConnectionString + TBMT_TABLESTableAdapter.Fill(DS_DD_ECM.TBMT_TABLES) + Logger.Debug("Initializing Templates Adapter") + TBMT_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oConnectionString - TBMT_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString() + Logger.Debug("Initializing Config Adapter") + TBMT_CONFIGTableAdapter.Connection.ConnectionString = oConnectionString TBMT_CONFIGTableAdapter.Fill(DS_DD_ECM.TBMT_CONFIG) TBMT_CONFIGTableAdapter.FillGeneral(TBMT_CONFIG_GENERAL) + Logger.Debug("Loading general config") LoadGeneralConfig(TBMT_CONFIG_GENERAL) BindingSource = TBEDIXMLITEMSBindingSource Catch ex As Exception + Logger.Error(ex) FormHelper.ShowError(ex, "Laden des Formulars") End Try End Sub @@ -181,7 +191,16 @@ Public Class frmConfig Private Sub GridViewTables_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewTables.FocusedRowChanged Try + If GridViewTables.FocusedRowHandle < 0 Then + Exit Sub + End If + Dim oRow As DataRow = GridViewTables.GetDataRow(GridViewTables.FocusedRowHandle) + + If oRow Is Nothing Then + Exit Sub + End If + Dim oTableId = oRow.Item("GUID") TBMT_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBMT_TEMPLATE_ITEMS, oTableId) Catch ex As Exception