diff --git a/MultiTool.Common/Templates/FilterConfigItem.vb b/MultiTool.Common/Templates/FilterConfigItem.vb index b16f1f7..4a3c9de 100644 --- a/MultiTool.Common/Templates/FilterConfigItem.vb +++ b/MultiTool.Common/Templates/FilterConfigItem.vb @@ -3,6 +3,8 @@ Public Property Guid As Integer Public Property SQLCommand As String Public Property TableId As Integer + Public Property TableName As String + Public Property ColumnId As Integer Public Property ColumnName As String End Class End Namespace \ No newline at end of file diff --git a/MultiTool.Common/Templates/TemplateLoader.vb b/MultiTool.Common/Templates/TemplateLoader.vb index 6df3f08..bb4843a 100644 --- a/MultiTool.Common/Templates/TemplateLoader.vb +++ b/MultiTool.Common/Templates/TemplateLoader.vb @@ -17,7 +17,7 @@ Namespace Templates Public Property GeneralConfiguration As New GeneralConfig Public Property FilterConfiguration As New FilterConfig - Private Const SQL_TBMT_FILTERS = "SELECT * FROM [DD_ECM].[dbo].[TBMT_FILTERS]" + Private Const SQL_TBMT_FILTERS = "SELECT * FROM [DD_ECM].[dbo].[VWMT_FILTERS]" Private Const SQL_VWMT_ITEMS = "SELECT * FROM [DD_ECM].[dbo].[VWMT_ITEMS]" Private Const SQL_VWMT_MAPPING = "SELECT * FROM [DD_ECM].[dbo].[VWMT_MAPPING]" Private Const SQL_TBMT_MANDATORS = "SELECT * FROM [DD_ECM].[dbo].[TBMT_MANDATORS] ORDER BY ORDER_KEY" @@ -38,7 +38,9 @@ Namespace Templates .Guid = oRow.Item("GUID"), .SQLCommand = oRow.ItemEx("SQL_COMMAND", String.Empty), .TableId = oRow.ItemEx("TABLE_ID", 0), - .ColumnName = oRow.ItemEx("COLUMN_NAME", String.Empty) + .TableName = oRow.ItemEx("TABLE_NAME", String.Empty), + .ColumnId = oRow.ItemEx("ITEM_ID", 0), + .ColumnName = oRow.ItemEx("ITEM_NAME", String.Empty) } oFilters.Add(oFilter) @@ -188,8 +190,8 @@ Namespace Templates For Each oRow As DataRow In oTable.Rows Dim oColumn As New FieldConfig() With { .Template = oRow.ItemEx("TEMPLATE_NAME", String.Empty), - .Table = oRow.ItemEx("XML_TABLE", String.Empty), - .Name = oRow.ItemEx("XML_ITEM", String.Empty), + .Table = oRow.ItemEx("TABLE_NAME", String.Empty), + .Name = oRow.ItemEx("ITEM_NAME", String.Empty), .Type = FieldConfig.ConvertType(ItemEx(oRow, "DATA_TYPE", String.Empty)), .OrderKey = oRow.ItemEx("ORDER_KEY", 0), .IsReadOnly = oRow.ItemEx("IS_READ_ONLY", False), diff --git a/MultiTool.Common/Winline/WebServiceData.vb b/MultiTool.Common/Winline/WebServiceData.vb index 7aadc2c..72d0d8e 100644 --- a/MultiTool.Common/Winline/WebServiceData.vb +++ b/MultiTool.Common/Winline/WebServiceData.vb @@ -5,6 +5,7 @@ Imports System.Xml Imports DigitalData.Modules.Database Imports DigitalData.Modules.Filesystem Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language Imports MultiTool.Common.Documents Imports MultiTool.Common.Exceptions Imports MultiTool.Common.Templates @@ -16,6 +17,7 @@ Namespace Winline Inherits BaseClass Private ReadOnly Config As WebServiceConfig + Private ReadOnly Filters As FilterConfig Private ReadOnly Serializer As Serializer Private ReadOnly Winline As WinlineData Private ReadOnly FileEx As File @@ -23,10 +25,11 @@ Namespace Winline Public Event WebServiceProgress As EventHandler(Of String) - Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pWinline As WinlineData, pWebserviceConfig As WebServiceConfig, pGeneralConfig As GeneralConfig) + Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pWinline As WinlineData, pWebserviceConfig As WebServiceConfig, pGeneralConfig As GeneralConfig, pFilterConfig As FilterConfig) MyBase.New(pLogConfig, pDatabase) Serializer = New Serializer(pLogConfig) Config = pWebserviceConfig + Filters = pFilterConfig Patterns = New Patterns(pLogConfig, pGeneralConfig) FileEx = New File(LogConfig) Winline = pWinline @@ -320,17 +323,29 @@ Namespace Winline RaiseEvent WebServiceProgress(Me, "Antwort verarbeiten") - Logger.Debug("Postprocessing response.") - oResponseBody = ApplyItemFunctionsForExport(pDocument, pTemplate, pMandator, oResponseBody) + Logger.Debug("Processing response with type '{0}'", oContentType) Select Case oContentType Case "text/xml" + Dim oXmlResponse = oResponseBody + Dim oDoc = ConvertStringToDocument(oXmlResponse) + + Logger.Debug("Applying Item Filters") + oDoc = ApplyItemFiltersForExport(pDocument, pTemplate, pMandator, oDoc) + + Logger.Debug("Applying Item Functions") + oDoc = ApplyItemFunctionsForExport(pDocument, pTemplate, pMandator, oDoc) + + 'TODO: Load filters and apply + + Dim oXml = ConvertDocumentToString(oDoc) + ' Webservice - WriteResponseFile(pTemplate.OutputWebserviceDirectory, oResponseBody, $"{pTemplate.Name}-{pBaseFileName}-Response.xml") + WriteResponseFile(pTemplate.OutputWebserviceDirectory, oXml, $"{pTemplate.Name}-{pBaseFileName}-Response.xml") ' XML - WriteResponseFile(pTemplate.OutputXmlFileDirectory, oResponseBody, $"{pTemplate.Name}-{pBaseFileName}.xml") + WriteResponseFile(pTemplate.OutputXmlFileDirectory, oXml, $"{pTemplate.Name}-{pBaseFileName}.xml") ' Archive - WriteResponseFile(FileEx.CreateDateDirectory(pTemplate.ArchiveDirectory), oResponseBody, $"{pTemplate.Name}-{pBaseFileName}.xml") + WriteResponseFile(FileEx.CreateDateDirectory(pTemplate.ArchiveDirectory), oXml, $"{pTemplate.Name}-{pBaseFileName}.xml") Case "text/html" WriteResponseFile(pTemplate.OutputWebserviceDirectory, oResponseBody, $"{pTemplate.Name}-{pBaseFileName}-Response.txt") @@ -342,10 +357,23 @@ Namespace Winline End Select End Function - Private Function ApplyItemFunctionsForExport(pDocument As Entities.ExportDocument, pTemplate As Template, pMandator As Mandator, oResponseBody As String) As String + Private Function ConvertStringToDocument(pXmlString As String) As XmlDocument Dim oDoc As New XmlDocument() - oDoc.LoadXml(oResponseBody) + oDoc.LoadXml(pXmlString) + Return oDoc + End Function + Private Function ConvertDocumentToString(pXmlDocument As XmlDocument) As String + Dim oArray As Byte() + Using oStream As New IO.MemoryStream + pXmlDocument.Save(oStream) + oArray = oStream.ToArray() + End Using + + Return System.Text.Encoding.UTF8.GetString(oArray) + End Function + + Private Function ApplyItemFunctionsForExport(pDocument As Entities.ExportDocument, pTemplate As Template, pMandator As Mandator, oXMLDocument As XmlDocument) As XmlDocument For Each oTable In pTemplate.Tables Logger.Debug("Processing Table [{0}]", oTable.Name) @@ -362,7 +390,7 @@ Namespace Winline Dim oFunction = oItem.Config.Function.Name Dim oPath = $"//MESOWebService/{oTableName}/{oItemName}" - Dim oNodes As XmlNodeList = oDoc.SelectNodes(oPath) + Dim oNodes As XmlNodeList = oXMLDocument.SelectNodes(oPath) Logger.Debug("Calling function [{0}] on note [{1}]", oFunction, oPath) @@ -404,32 +432,49 @@ Namespace Winline Next Next - Dim oArray As Byte() - Using oStream As New IO.MemoryStream - oDoc.Save(oStream) - oArray = oStream.ToArray() - End Using - - Dim oXml = Text.Encoding.UTF8.GetString(oArray) - oResponseBody = oXml - Return oResponseBody + Return oXMLDocument End Function - Private Function ApplyItemFiltersForExport(pDocument As Entities.ExportDocument, pTemplate As Template, pMandator As Mandator, oResponseBody As String) As String - Dim oDoc As New XmlDocument() - oDoc.LoadXml(oResponseBody) + Private Function ApplyItemFiltersForExport(pDocument As ExportDocument, pTemplate As Template, pMandator As Mandator, oXMLDocument As XmlDocument) As XmlDocument + Dim oTableNames = pDocument.Schema.Tables. + Select(Function(table) table.Name). + ToList() + Dim oFilters = Filters.Items. + Where(Function(filter) oTableNames.Contains(filter.TableName)). + ToList() - 'TODO: Load filters and apply + For Each oFilter As FilterConfigItem In oFilters + Dim oTableName = oFilter.TableName - Dim oArray As Byte() - Using oStream As New IO.MemoryStream - oDoc.Save(oStream) - oArray = oStream.ToArray() - End Using + If String.IsNullOrEmpty(oFilter.SQLCommand) Then + Logger.Warn("SQL Command for filter is empty. Continuing.") + Continue For + End If - Dim oXml = Text.Encoding.UTF8.GetString(oArray) - oResponseBody = oXml - Return oResponseBody + Dim oSQLResult = Database.GetDatatable(oFilter.SQLCommand) + + If oSQLResult Is Nothing Then + Logger.Warn("SQL Command for filter returned nothing: {0}. Continuing.", oFilter.SQLCommand) + Continue For + End If + + Dim oResultList = oSQLResult.AsEnumerable. + Select(Of String)(Function(row) row.Item(0)). + ToList() + + Dim oNodes = oXMLDocument.SelectNodes($"//{oTableName}") + + For Each oNode As XmlNode In oNodes + Dim oSubNode = oNode.SelectSingleNode($"//{oFilter.ColumnName}") + + If oSubNode IsNot Nothing AndAlso oResultList.Contains(oSubNode.InnerText) Then + oNode.ParentNode.RemoveChild(oNode) + 'oDoc.RemoveChild(oNode) + End If + Next + Next + + Return oXMLDocument End Function #End Region diff --git a/MultiTool.Form/DS_DD_ECM.Designer.vb b/MultiTool.Form/DS_DD_ECM.Designer.vb index ce4f25e..af39fa1 100644 --- a/MultiTool.Form/DS_DD_ECM.Designer.vb +++ b/MultiTool.Form/DS_DD_ECM.Designer.vb @@ -37,6 +37,8 @@ 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 @@ -90,6 +92,9 @@ Partial Public Class DS_DD_ECM If (Not (ds.Tables("TBMT_CONFIG")) Is Nothing) Then MyBase.Tables.Add(New TBMT_CONFIGDataTable(ds.Tables("TBMT_CONFIG"))) End If + If (Not (ds.Tables("TBMT_TABLES")) Is Nothing) Then + MyBase.Tables.Add(New TBMT_TABLESDataTable(ds.Tables("TBMT_TABLES"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -167,6 +172,16 @@ Partial Public Class DS_DD_ECM End Get End Property + _ + Public ReadOnly Property TBMT_TABLES() As TBMT_TABLESDataTable + Get + Return Me.tableTBMT_TABLES + End Get + End Property + _ + Private Function ShouldSerializeTBMT_TABLES() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -465,6 +497,9 @@ Partial Public Class DS_DD_ECM _ 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. ''' @@ -475,9 +510,9 @@ Partial Public Class DS_DD_ECM Private columnGUID As Global.System.Data.DataColumn - Private columnXML_NAME As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnXML_TYPE_ID As Global.System.Data.DataColumn + Private columnTYPE_ID As Global.System.Data.DataColumn Private columnIS_READ_ONLY As Global.System.Data.DataColumn @@ -489,7 +524,7 @@ Partial Public Class DS_DD_ECM Private columnIS_REQUIRED As Global.System.Data.DataColumn - Private columnXML_TABLE_ID As Global.System.Data.DataColumn + Private columnTABLE_ID As Global.System.Data.DataColumn Private columnIS_VIRTUAL As Global.System.Data.DataColumn @@ -558,17 +593,17 @@ Partial Public Class DS_DD_ECM _ - Public ReadOnly Property XML_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnXML_NAME + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property XML_TYPE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnXML_TYPE_ID + Return Me.columnTYPE_ID End Get End Property @@ -614,9 +649,9 @@ Partial Public Class DS_DD_ECM _ - Public ReadOnly Property XML_TABLE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TABLE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnXML_TABLE_ID + Return Me.columnTABLE_ID End Get End Property @@ -746,14 +781,14 @@ Partial Public Class DS_DD_ECM _ Public Overloads Function AddTBMT_TEMPLATE_ITEMSRow( _ - ByVal XML_NAME As String, _ - ByVal XML_TYPE_ID As Integer, _ + 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 XML_TABLE_ID As Integer, _ + ByVal TABLE_ID As Integer, _ ByVal IS_VIRTUAL As Boolean, _ ByVal FUNCTION_PARAMETERS As String, _ ByVal ADDED_WHO As String, _ @@ -766,7 +801,7 @@ Partial Public Class DS_DD_ECM 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, XML_NAME, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, ORDER_KEY, FUNCTION_ID, IS_REQUIRED, XML_TABLE_ID, IS_VIRTUAL, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, COMMENT, TEMPLATE_NAME, TABLE_NAME, PREFER_EXTERNAL} + 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} rowTBMT_TEMPLATE_ITEMSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBMT_TEMPLATE_ITEMSRow) Return rowTBMT_TEMPLATE_ITEMSRow @@ -796,14 +831,14 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnXML_NAME = MyBase.Columns("XML_NAME") - Me.columnXML_TYPE_ID = MyBase.Columns("XML_TYPE_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnTYPE_ID = MyBase.Columns("TYPE_ID") 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.columnXML_TABLE_ID = MyBase.Columns("XML_TABLE_ID") + 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") @@ -822,10 +857,10 @@ Partial Public Class DS_DD_ECM 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.columnXML_NAME = New Global.System.Data.DataColumn("XML_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnXML_NAME) - Me.columnXML_TYPE_ID = New Global.System.Data.DataColumn("XML_TYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnXML_TYPE_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE_ID) Me.columnIS_READ_ONLY = New Global.System.Data.DataColumn("IS_READ_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIS_READ_ONLY) Me.columnIS_VISIBLE = New Global.System.Data.DataColumn("IS_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) @@ -836,8 +871,8 @@ Partial Public Class DS_DD_ECM 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.columnXML_TABLE_ID = New Global.System.Data.DataColumn("XML_TABLE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnXML_TABLE_ID) + 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) @@ -867,14 +902,14 @@ Partial Public Class DS_DD_ECM Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnXML_NAME.AllowDBNull = false - Me.columnXML_NAME.MaxLength = 50 - Me.columnXML_TYPE_ID.AllowDBNull = false + 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.columnXML_TABLE_ID.AllowDBNull = false + Me.columnTABLE_ID.AllowDBNull = false Me.columnIS_VIRTUAL.AllowDBNull = false Me.columnFUNCTION_PARAMETERS.MaxLength = 2147483647 Me.columnADDED_WHO.AllowDBNull = false @@ -2599,6 +2634,397 @@ Partial Public Class DS_DD_ECM 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 + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property 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 + Get + 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 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) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + 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") + Me.columnTEMPLATE_ID = MyBase.Columns("TEMPLATE_ID") + Me.columnIS_HEAD = MyBase.Columns("IS_HEAD") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.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.columnTEMPLATE_ID = New Global.System.Data.DataColumn("TEMPLATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + 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.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 2147483647 + 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.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBMT_TABLESRow() As 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)) + 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)) + 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)) + 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)) + 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() + Dim ds As DS_DD_ECM = New DS_DD_ECM() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBMT_TABLESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -2627,23 +3053,23 @@ Partial Public Class DS_DD_ECM _ - Public Property XML_NAME() As String + Public Property NAME() As String Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.XML_NAMEColumn),String) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.NAMEColumn),String) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.XML_NAMEColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.NAMEColumn) = value End Set End Property _ - Public Property XML_TYPE_ID() As Integer + Public Property TYPE_ID() As Integer Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.XML_TYPE_IDColumn),Integer) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TYPE_IDColumn),Integer) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.XML_TYPE_IDColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.TYPE_IDColumn) = value End Set End Property @@ -2708,12 +3134,12 @@ Partial Public Class DS_DD_ECM _ - Public Property XML_TABLE_ID() As Integer + Public Property TABLE_ID() As Integer Get - Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.XML_TABLE_IDColumn),Integer) + Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_IDColumn),Integer) End Get Set - Me(Me.tableTBMT_TEMPLATE_ITEMS.XML_TABLE_IDColumn) = value + Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_IDColumn) = value End Set End Property @@ -3440,6 +3866,196 @@ Partial Public Class DS_DD_ECM 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) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBMT_TABLES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBMT_TABLES.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBMT_TABLES.NAMEColumn),String) + End Get + Set + 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) + End Get + Set + 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) + End Get + Set + 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) + End Get + Set + 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) + 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 + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBMT_TABLES.ADDED_WHOColumn),String) + End Get + Set + 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) + 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 + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + 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 + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + 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 + 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 ''' @@ -3655,6 +4271,42 @@ Partial Public Class DS_DD_ECM 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 + End Get + End Property + End Class End Class Namespace DS_DD_ECMTableAdapters @@ -3787,14 +4439,14 @@ Namespace DS_DD_ECMTableAdapters tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBMT_TEMPLATE_ITEMS" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("XML_NAME", "XML_NAME") - tableMapping.ColumnMappings.Add("XML_TYPE_ID", "XML_TYPE_ID") + tableMapping.ColumnMappings.Add("XML_NAME", "NAME") + tableMapping.ColumnMappings.Add("XML_TYPE_ID", "TYPE_ID") 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", "XML_TABLE_ID") + 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") @@ -3806,6 +4458,9 @@ Namespace DS_DD_ECMTableAdapters tableMapping.ColumnMappings.Add("TEMPLATE_NAME", "TEMPLATE_NAME") tableMapping.ColumnMappings.Add("TABLE_NAME", "TABLE_NAME") tableMapping.ColumnMappings.Add("PREFER_EXTERNAL", "PREFER_EXTERNAL") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("TABLE_ID", "TABLE_ID") + tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -3814,48 +4469,48 @@ Namespace DS_DD_ECMTableAdapters 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] ([ORDER_KEY], [XML_NAME], [XML_TABLE_ID], [XML_"& _ - "TYPE_ID], [IS_READ_ONLY], [IS_VISIBLE], [IS_REQUIRED], [IS_VIRTUAL], [FUNCTION_I"& _ - "D], [FUNCTION_PARAMETERS], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WH"& _ - "EN]) VALUES (@ORDER_KEY, @XML_NAME, @XML_TABLE_ID, @XML_TYPE_ID, @IS_READ_ONLY, "& _ - "@IS_VISIBLE, @IS_REQUIRED, @IS_VIRTUAL, @FUNCTION_ID, @FUNCTION_PARAMETERS, @ADD"& _ - "ED_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_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTU"& _ - "AL, FUNCTION_ID, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ - "D_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, 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.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ORDER_KEY", Global.System.Data.SqlDbType.Int, 0, 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("@XML_NAME", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "XML_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@XML_TABLE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "XML_TABLE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@XML_TYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "XML_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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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("@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.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, XML_"& _ - "NAME = @XML_NAME, XML_TABLE_ID = @XML_TABLE_ID, XML_TYPE_ID = @XML_TYPE_ID, IS_R"& _ - "EAD_ONLY = @IS_READ_ONLY, IS_VISIBLE = @IS_VISIBLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" I"& _ - "S_REQUIRED = @IS_REQUIRED, IS_VIRTUAL = @IS_VIRTUAL, FUNCTION_ID = @FUNCTION_ID,"& _ - " FUNCTION_PARAMETERS = @FUNCTION_PARAMETERS, ADDED_WHO = @ADDED_WHO, ADDED_WHEN "& _ - "= @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, CHANGED_WH"& _ - "EN = @CHANGED_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_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_VIRTUAL, FUNCTION_ID"& _ - ", FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBM"& _ - "T_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, 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.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, "XML_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, "XML_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, "XML_TYPE_ID", 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, "", "", "")) @@ -3886,27 +4541,30 @@ Namespace DS_DD_ECMTableAdapters 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.XML_NAME, TBMT_TEMPLATE_ITEMS.XML_TABLE_ID, TBMT_TEMPLATE_ITEMS.XML_TY"& _ - "PE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMT_TEMPLATE_ITEMS.IS_READ_ONLY, TBMT_TEMPLAT"& _ - "E_ITEMS.IS_VISIBLE, TBMT_TEMPLATE_ITEMS.IS_REQUIRED, TBMT_TEMPLATE_ITEMS.IS_VIRT"& _ - "UAL, TBMT_TEMPLATE_ITEMS.FUNCTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMT_TEMPLATE_I"& _ - "TEMS.FUNCTION_PARAMETERS, TBMT_TEMPLATE_ITEMS.ACTIVE, TBMT_TEMPLATE_ITEMS.COMMEN"& _ - "T, TBMT_TEMPLATE_ITEMS.ADDED_WHO, TBMT_TEMPLATE_ITEMS.ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBMT_TEMPLATE_ITEMS.CHANGED_WHO, TBMT_TEMPLATE_ITEMS.CHANGED_WHEN, "& _ - "TBTEMPLATES.NAME AS TEMPLATE_NAME, TBTABLES.NAME AS TABLE_NAME, TBMT_TEMPLATE_IT"& _ - "EMS.PREFER_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.XML_TABLE_ID = TBTA"& _ - "BLES.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMT_TEMPLATES AS TBTEMPLATES ON "& _ - "TBTABLES.TEMPLATE_ID = TBTEMPLATES.GUID" + "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).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, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable) As Integer + Public Overloads Overridable 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 End If @@ -3918,8 +4576,9 @@ Namespace DS_DD_ECMTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable + Public Overloads Overridable 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) Dim dataTable As DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable = New DS_DD_ECM.TBMT_TEMPLATE_ITEMSDataTable() Me.Adapter.Fill(dataTable) Return dataTable @@ -3978,15 +4637,15 @@ Namespace DS_DD_ECMTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(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)) As Integer + 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) - If (XML_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("XML_NAME") + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(XML_NAME,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(XML_TABLE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(XML_TYPE_ID,Integer) + 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) @@ -5845,6 +6504,543 @@ Namespace DS_DD_ECMTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBMT_TABLESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBMT_TABLES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("TEMPLATE_ID", "TEMPLATE_ID") + tableMapping.ColumnMappings.Add("IS_HEAD", "IS_HEAD") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBMT_TABLES] WHERE (([GUID] = @Original_GUID) AND ([TEMPLATE_ID] = @"& _ + "Original_TEMPLATE_ID) AND ([IS_HEAD] = @Original_IS_HEAD) AND ([ACTIVE] = @Origi"& _ + "nal_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Or"& _ + "iginal_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHE"& _ + "N = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (("& _ + "@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original"& _ + "_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([C"& _ + "HANGED_WHEN] = @Original_CHANGED_WHEN)))" + 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, 0, 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_TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_HEAD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_HEAD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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_TABLES] ([NAME], [TEMPLATE_ID], [IS_HEAD], [ACTIVE], [COMMENT],"& _ + " [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @TEMPL"& _ + "ATE_ID, @IS_HEAD, @ACTIVE, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHA"& _ + "NGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_TABLES WHERE (GUID = SCOPE_IDE"& _ + "NTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.NVarChar, 0, 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("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_HEAD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_HEAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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, 0, 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, 0, 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, 0, 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, 0, 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_TABLES] SET [NAME] = @NAME, [TEMPLATE_ID] = @TEMPLATE_ID, [IS_HEAD] "& _ + "= @IS_HEAD, [ACTIVE] = @ACTIVE, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, "& _ + "[ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHAN"& _ + "GED_WHEN WHERE (([GUID] = @Original_GUID) AND ([TEMPLATE_ID] = @Original_TEMPLAT"& _ + "E_ID) AND ([IS_HEAD] = @Original_IS_HEAD) AND ([ACTIVE] = @Original_ACTIVE) AND "& _ + "((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT))"& _ + " AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED"& _ + "_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_"& _ + "WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) A"& _ + "ND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @"& _ + "Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMM"& _ + "ENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_TABLES WHERE (GU"& _ + "ID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.NVarChar, 0, 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("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_HEAD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_HEAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@COMMENT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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, 0, 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, 0, 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, 0, 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, 0, 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, 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("@Original_TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_HEAD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_HEAD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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.Current, 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_TABLES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMT_TABLES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_DD_ECM.TBMT_TABLESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_DD_ECM.TBMT_TABLESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_DD_ECM.TBMT_TABLESDataTable = New DS_DD_ECM.TBMT_TABLESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS_DD_ECM.TBMT_TABLESDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS_DD_ECM) As Integer + Return Me.Adapter.Update(dataSet, "TBMT_TABLES") + End Function + + _ + Public Overloads Overridable 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 + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_TEMPLATE_ID As Integer, ByVal Original_IS_HEAD As Boolean, ByVal Original_ACTIVE As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TEMPLATE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_IS_HEAD,Boolean) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ACTIVE,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(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 Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TEMPLATE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(IS_HEAD,Boolean) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(8).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) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + 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 Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_TEMPLATE_ID As Integer, _ + ByVal Original_IS_HEAD As Boolean, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TEMPLATE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IS_HEAD,Boolean) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_TEMPLATE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_IS_HEAD,Boolean) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ACTIVE,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal 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 Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_TEMPLATE_ID As Integer, _ + ByVal Original_IS_HEAD As Boolean, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_TEMPLATE_ID, Original_IS_HEAD, Original_ACTIVE, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -5870,6 +7066,8 @@ Namespace DS_DD_ECMTableAdapters Private _tBMT_CONFIGTableAdapter As TBMT_CONFIGTableAdapter + Private _tBMT_TABLESTableAdapter As TBMT_TABLESTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -5969,6 +7167,20 @@ Namespace DS_DD_ECMTableAdapters End Set End Property + _ + Public Property TBMT_TABLESTableAdapter() As TBMT_TABLESTableAdapter + Get + Return Me._tBMT_TABLESTableAdapter + End Get + Set + Me._tBMT_TABLESTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -6012,6 +7224,10 @@ Namespace DS_DD_ECMTableAdapters AndAlso (Not (Me._tBMT_CONFIGTableAdapter.Connection) Is Nothing)) Then Return Me._tBMT_CONFIGTableAdapter.Connection End If + If ((Not (Me._tBMT_TABLESTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBMT_TABLESTableAdapter.Connection) Is Nothing)) Then + Return Me._tBMT_TABLESTableAdapter.Connection + End If Return Nothing End Get Set @@ -6043,6 +7259,9 @@ Namespace DS_DD_ECMTableAdapters If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBMT_TABLESTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -6108,6 +7327,15 @@ Namespace DS_DD_ECMTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBMT_TABLESTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMT_TABLES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBMT_TABLESTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -6166,6 +7394,14 @@ Namespace DS_DD_ECMTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBMT_TABLESTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMT_TABLES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBMT_TABLESTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -6176,6 +7412,14 @@ Namespace DS_DD_ECMTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DS_DD_ECM, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 + If (Not (Me._tBMT_TABLESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMT_TABLES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBMT_TABLESTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMT_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -6295,6 +7539,11 @@ Namespace DS_DD_ECMTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBMT_TABLESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBMT_TABLESTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -6383,6 +7632,15 @@ Namespace DS_DD_ECMTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMT_CONFIGTableAdapter.Adapter) End If End If + If (Not (Me._tBMT_TABLESTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBMT_TABLESTableAdapter, Me._tBMT_TABLESTableAdapter.Connection) + Me._tBMT_TABLESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBMT_TABLESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBMT_TABLESTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBMT_TABLESTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMT_TABLESTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -6467,6 +7725,10 @@ Namespace DS_DD_ECMTableAdapters Me._tBMT_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBMT_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBMT_CONFIGTableAdapter.Transaction = Nothing End If + If (Not (Me._tBMT_TABLESTableAdapter) Is Nothing) Then + Me._tBMT_TABLESTableAdapter.Connection = CType(revertConnections(Me._tBMT_TABLESTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBMT_TABLESTableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/MultiTool.Form/DS_DD_ECM.xsd b/MultiTool.Form/DS_DD_ECM.xsd index 072037a..449a740 100644 --- a/MultiTool.Form/DS_DD_ECM.xsd +++ b/MultiTool.Form/DS_DD_ECM.xsd @@ -21,65 +21,70 @@ WHERE (GUID = @Original_GUID) - INSERT INTO [TBMT_TEMPLATE_ITEMS] ([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]) VALUES (@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); + 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); 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.XML_NAME, TBMT_TEMPLATE_ITEMS.XML_TABLE_ID, TBMT_TEMPLATE_ITEMS.XML_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 + 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 FROM TBMT_TEMPLATE_ITEMS INNER JOIN - TBMT_TABLES AS TBTABLES ON TBMT_TEMPLATE_ITEMS.XML_TABLE_ID = TBTABLES.GUID INNER JOIN - TBMT_TEMPLATES AS TBTEMPLATES ON TBTABLES.TEMPLATE_ID = TBTEMPLATES.GUID - + TBMT_TABLES AS TBTABLES ON TBMT_TEMPLATE_ITEMS.TABLE_ID = TBTABLES.GUID INNER JOIN + TBMT_TEMPLATES AS TBTEMPLATES ON TBTABLES.TEMPLATE_ID = TBTEMPLATES.GUID +WHERE (TBMT_TEMPLATE_ITEMS.TABLE_ID = @TABLE_ID) + + + - + UPDATE TBMT_TEMPLATE_ITEMS -SET ORDER_KEY = @ORDER_KEY, XML_NAME = @XML_NAME, XML_TABLE_ID = @XML_TABLE_ID, XML_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, +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); +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) - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + @@ -87,14 +92,14 @@ SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VI - - + + - + @@ -106,6 +111,9 @@ SELECT GUID, ORDER_KEY, XML_NAME, XML_TABLE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VI + + + @@ -397,6 +405,100 @@ WHERE (TEMPLATE_ID IS NULL) + + + + + + DELETE FROM [TBMT_TABLES] WHERE (([GUID] = @Original_GUID) AND ([TEMPLATE_ID] = @Original_TEMPLATE_ID) AND ([IS_HEAD] = @Original_IS_HEAD) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBMT_TABLES] ([NAME], [TEMPLATE_ID], [IS_HEAD], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @TEMPLATE_ID, @IS_HEAD, @ACTIVE, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_TABLES WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT TBMT_TABLES.* +FROM TBMT_TABLES + + + + + + UPDATE [TBMT_TABLES] SET [NAME] = @NAME, [TEMPLATE_ID] = @TEMPLATE_ID, [IS_HEAD] = @IS_HEAD, [ACTIVE] = @ACTIVE, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([TEMPLATE_ID] = @Original_TEMPLATE_ID) AND ([IS_HEAD] = @Original_IS_HEAD) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBMT_TABLES WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -405,24 +507,24 @@ WHERE (TEMPLATE_ID IS NULL) - + - + - + - + @@ -473,7 +575,7 @@ WHERE (TEMPLATE_ID IS NULL) - + @@ -487,7 +589,7 @@ WHERE (TEMPLATE_ID IS NULL) - + @@ -508,7 +610,7 @@ WHERE (TEMPLATE_ID IS NULL) - + @@ -524,7 +626,7 @@ WHERE (TEMPLATE_ID IS NULL) - + @@ -552,7 +654,7 @@ WHERE (TEMPLATE_ID IS NULL) - + @@ -598,6 +700,46 @@ WHERE (TEMPLATE_ID IS NULL) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -624,12 +766,16 @@ WHERE (TEMPLATE_ID IS NULL) + + + + - - - + + + \ No newline at end of file diff --git a/MultiTool.Form/DS_DD_ECM.xss b/MultiTool.Form/DS_DD_ECM.xss index 12639e6..4d1def1 100644 --- a/MultiTool.Form/DS_DD_ECM.xss +++ b/MultiTool.Form/DS_DD_ECM.xss @@ -6,15 +6,16 @@ --> - - - - - - + + + + + + + - + 240 @@ -30,7 +31,7 @@ - + 257 @@ -42,7 +43,7 @@ - + 770 diff --git a/MultiTool.Form/frmConfig.Designer.vb b/MultiTool.Form/frmConfig.Designer.vb index cbaaf90..beba14c 100644 --- a/MultiTool.Form/frmConfig.Designer.vb +++ b/MultiTool.Form/frmConfig.Designer.vb @@ -7,7 +7,7 @@ Partial Class frmConfig Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Form overrides dispose to clean up the component list. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() @@ -21,16 +21,16 @@ Partial Class frmConfig 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig)) Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.tabPageSchema = New DevExpress.XtraTab.XtraTabPage() - Me.GridSchema = New DevExpress.XtraGrid.GridControl() + Me.GridControlItems = New DevExpress.XtraGrid.GridControl() Me.TBEDIXMLITEMSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DS_DD_ECM = New MultiTool.Form.DS_DD_ECM() - Me.GridViewSchema = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridViewItems = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colACTIVE2 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colXML_NAME = New DevExpress.XtraGrid.Columns.GridColumn() @@ -53,9 +53,10 @@ Partial Class frmConfig Me.colTABLE_NAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTEMPLATE_NAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.RepositoryItemMemoEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemMemoEdit() - Me.SidePanel1 = New DevExpress.XtraEditors.SidePanel() - Me.LayoutControl2 = New DevExpress.XtraLayout.LayoutControl() - Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() + Me.SidePanel3 = New DevExpress.XtraEditors.SidePanel() + Me.GridControlTables = New DevExpress.XtraGrid.GridControl() + Me.GridViewTables = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() @@ -63,16 +64,23 @@ Partial Class frmConfig Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.SidePanel1 = New DevExpress.XtraEditors.SidePanel() + Me.LayoutControl2 = New DevExpress.XtraLayout.LayoutControl() + Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit() Me.CheckEdit3 = New DevExpress.XtraEditors.CheckEdit() Me.CheckEdit4 = New DevExpress.XtraEditors.CheckEdit() Me.CheckEdit5 = New DevExpress.XtraEditors.CheckEdit() + Me.CheckEdit6 = New DevExpress.XtraEditors.CheckEdit() Me.LayoutControlGroup4 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup5 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() Me.tabPageConfig = New DevExpress.XtraTab.XtraTabPage() Me.GridConfig = New DevExpress.XtraGrid.GridControl() Me.TBMT_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -87,6 +95,7 @@ Partial Class frmConfig Me.colCOMMENT = New DevExpress.XtraGrid.Columns.GridColumn() Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTEMPLATE_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.SidePanel2 = New DevExpress.XtraEditors.SidePanel() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.txtYearOverride = New DevExpress.XtraEditors.TextEdit() Me.txtWebserviceBaseurl = New DevExpress.XtraEditors.TextEdit() @@ -109,38 +118,45 @@ Partial Class frmConfig Me.TBMT_TEMPLATE_ITEMSTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBMT_TEMPLATE_ITEMSTableAdapter() Me.TBMT_CONFIGTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBMT_CONFIGTableAdapter() Me.TableAdapterManager = New MultiTool.Form.DS_DD_ECMTableAdapters.TableAdapterManager() - Me.CheckEdit6 = New DevExpress.XtraEditors.CheckEdit() - Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() - Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.TBMT_TABLESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBMT_TABLESTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBMT_TABLESTableAdapter() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.tabPageSchema.SuspendLayout() - CType(Me.GridSchema, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlItems, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBEDIXMLITEMSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DS_DD_ECM, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewSchema, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewItems, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemMemoExEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemMemoEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SidePanel3.SuspendLayout() + CType(Me.GridControlTables, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewTables, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SidePanel1.SuspendLayout() CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl2.SuspendLayout() CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CheckEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() 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.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit() Me.tabPageConfig.SuspendLayout() CType(Me.GridConfig, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBMT_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewConfig, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SidePanel2.SuspendLayout() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() CType(Me.txtYearOverride.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -160,9 +176,7 @@ 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.CheckEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBMT_TABLESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'XtraTabControl1 @@ -171,29 +185,30 @@ Partial Class frmConfig Me.XtraTabControl1.Location = New System.Drawing.Point(0, 63) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.tabPageSchema - Me.XtraTabControl1.Size = New System.Drawing.Size(1132, 607) + Me.XtraTabControl1.Size = New System.Drawing.Size(1151, 626) Me.XtraTabControl1.TabIndex = 1 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tabPageSchema, Me.tabPageConfig}) ' 'tabPageSchema ' - Me.tabPageSchema.Controls.Add(Me.GridSchema) + Me.tabPageSchema.Controls.Add(Me.GridControlItems) + Me.tabPageSchema.Controls.Add(Me.SidePanel3) Me.tabPageSchema.Controls.Add(Me.SidePanel1) Me.tabPageSchema.Name = "tabPageSchema" - Me.tabPageSchema.Size = New System.Drawing.Size(1130, 582) + Me.tabPageSchema.Size = New System.Drawing.Size(1149, 601) Me.tabPageSchema.Text = "Schema" ' - 'GridSchema + 'GridControlItems ' - Me.GridSchema.DataSource = Me.TBEDIXMLITEMSBindingSource - Me.GridSchema.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridSchema.Location = New System.Drawing.Point(0, 0) - Me.GridSchema.MainView = Me.GridViewSchema - Me.GridSchema.Name = "GridSchema" - Me.GridSchema.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemMemoEdit1, Me.RepositoryItemSpinEdit1, Me.RepositoryItemMemoExEdit1}) - Me.GridSchema.Size = New System.Drawing.Size(796, 582) - Me.GridSchema.TabIndex = 0 - Me.GridSchema.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSchema}) + Me.GridControlItems.DataSource = Me.TBEDIXMLITEMSBindingSource + Me.GridControlItems.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlItems.Location = New System.Drawing.Point(229, 0) + Me.GridControlItems.MainView = Me.GridViewItems + Me.GridControlItems.Name = "GridControlItems" + Me.GridControlItems.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemMemoEdit1, Me.RepositoryItemSpinEdit1, Me.RepositoryItemMemoExEdit1}) + Me.GridControlItems.Size = New System.Drawing.Size(657, 601) + Me.GridControlItems.TabIndex = 0 + Me.GridControlItems.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewItems}) ' 'TBEDIXMLITEMSBindingSource ' @@ -205,13 +220,11 @@ Partial Class frmConfig Me.DS_DD_ECM.DataSetName = "DS_DD_ECM" Me.DS_DD_ECM.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'GridViewSchema + 'GridViewItems ' - Me.GridViewSchema.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colACTIVE2, Me.colXML_NAME, Me.colXML_TYPE_ID, Me.colIS_READ_ONLY, Me.colIS_VISIBLE, Me.colORDER_KEY, Me.colIS_REQUIRED, Me.colIS_VIRTUAL, Me.colFUNCTION_ID, Me.colFUNCTION_PARAMETERS, Me.colPREFER_EXTERNAL, Me.colXML_TABLE_ID, Me.colADDED_WHO1, Me.colADDED_WHEN1, Me.colCHANGED_WHO1, Me.colCHANGED_WHEN1, Me.colTABLE_NAME, Me.colTEMPLATE_NAME}) - Me.GridViewSchema.GridControl = Me.GridSchema - Me.GridViewSchema.GroupCount = 2 - Me.GridViewSchema.Name = "GridViewSchema" - Me.GridViewSchema.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colTEMPLATE_NAME, DevExpress.Data.ColumnSortOrder.Ascending), New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colTABLE_NAME, DevExpress.Data.ColumnSortOrder.Ascending)}) + Me.GridViewItems.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colACTIVE2, Me.colXML_NAME, Me.colXML_TYPE_ID, Me.colIS_READ_ONLY, Me.colIS_VISIBLE, Me.colORDER_KEY, Me.colIS_REQUIRED, Me.colIS_VIRTUAL, Me.colFUNCTION_ID, Me.colFUNCTION_PARAMETERS, Me.colPREFER_EXTERNAL, Me.colXML_TABLE_ID, Me.colADDED_WHO1, Me.colADDED_WHEN1, Me.colCHANGED_WHO1, Me.colCHANGED_WHEN1, Me.colTABLE_NAME, Me.colTEMPLATE_NAME}) + Me.GridViewItems.GridControl = Me.GridControlItems + Me.GridViewItems.Name = "GridViewItems" ' 'colGUID ' @@ -240,7 +253,7 @@ Partial Class frmConfig Me.colXML_TYPE_ID.FieldName = "XML_TYPE_ID" Me.colXML_TYPE_ID.Name = "colXML_TYPE_ID" Me.colXML_TYPE_ID.Visible = True - Me.colXML_TYPE_ID.VisibleIndex = 2 + Me.colXML_TYPE_ID.VisibleIndex = 1 Me.colXML_TYPE_ID.Width = 55 ' 'colIS_READ_ONLY @@ -293,7 +306,7 @@ Partial Class frmConfig Me.colFUNCTION_ID.FieldName = "FUNCTION_ID" Me.colFUNCTION_ID.Name = "colFUNCTION_ID" Me.colFUNCTION_ID.Visible = True - Me.colFUNCTION_ID.VisibleIndex = 9 + Me.colFUNCTION_ID.VisibleIndex = 5 Me.colFUNCTION_ID.Width = 80 ' 'colFUNCTION_PARAMETERS @@ -303,7 +316,7 @@ Partial Class frmConfig Me.colFUNCTION_PARAMETERS.FieldName = "FUNCTION_PARAMETERS" Me.colFUNCTION_PARAMETERS.Name = "colFUNCTION_PARAMETERS" Me.colFUNCTION_PARAMETERS.Visible = True - Me.colFUNCTION_PARAMETERS.VisibleIndex = 5 + Me.colFUNCTION_PARAMETERS.VisibleIndex = 3 Me.colFUNCTION_PARAMETERS.Width = 401 ' 'RepositoryItemMemoExEdit1 @@ -318,7 +331,7 @@ Partial Class frmConfig Me.colPREFER_EXTERNAL.FieldName = "PREFER_EXTERNAL" Me.colPREFER_EXTERNAL.Name = "colPREFER_EXTERNAL" Me.colPREFER_EXTERNAL.Visible = True - Me.colPREFER_EXTERNAL.VisibleIndex = 8 + Me.colPREFER_EXTERNAL.VisibleIndex = 4 ' 'colXML_TABLE_ID ' @@ -351,7 +364,7 @@ Partial Class frmConfig Me.colTABLE_NAME.FieldName = "TABLE_NAME" Me.colTABLE_NAME.Name = "colTABLE_NAME" Me.colTABLE_NAME.Visible = True - Me.colTABLE_NAME.VisibleIndex = 9 + Me.colTABLE_NAME.VisibleIndex = 6 ' 'colTEMPLATE_NAME ' @@ -359,49 +372,50 @@ Partial Class frmConfig Me.colTEMPLATE_NAME.FieldName = "TEMPLATE_NAME" Me.colTEMPLATE_NAME.Name = "colTEMPLATE_NAME" Me.colTEMPLATE_NAME.Visible = True - Me.colTEMPLATE_NAME.VisibleIndex = 9 + Me.colTEMPLATE_NAME.VisibleIndex = 7 ' 'RepositoryItemMemoEdit1 ' Me.RepositoryItemMemoEdit1.LinesCount = 5 Me.RepositoryItemMemoEdit1.Name = "RepositoryItemMemoEdit1" ' - 'SidePanel1 + 'SidePanel3 ' - Me.SidePanel1.Controls.Add(Me.LayoutControl2) - Me.SidePanel1.Dock = System.Windows.Forms.DockStyle.Right - Me.SidePanel1.Location = New System.Drawing.Point(796, 0) - Me.SidePanel1.Name = "SidePanel1" - Me.SidePanel1.Size = New System.Drawing.Size(334, 582) - Me.SidePanel1.TabIndex = 2 - Me.SidePanel1.Text = "SidePanel1" + Me.SidePanel3.Controls.Add(Me.GridControlTables) + Me.SidePanel3.Dock = System.Windows.Forms.DockStyle.Left + Me.SidePanel3.Location = New System.Drawing.Point(0, 0) + Me.SidePanel3.Name = "SidePanel3" + Me.SidePanel3.Size = New System.Drawing.Size(229, 601) + Me.SidePanel3.TabIndex = 3 + Me.SidePanel3.Text = "SidePanel3" ' - 'LayoutControl2 + 'GridControlTables ' - Me.LayoutControl2.Controls.Add(Me.CheckEdit1) - Me.LayoutControl2.Controls.Add(Me.CheckEdit2) - Me.LayoutControl2.Controls.Add(Me.CheckEdit3) - Me.LayoutControl2.Controls.Add(Me.CheckEdit4) - Me.LayoutControl2.Controls.Add(Me.CheckEdit5) - Me.LayoutControl2.Controls.Add(Me.CheckEdit6) - Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl2.Location = New System.Drawing.Point(1, 0) - Me.LayoutControl2.Name = "LayoutControl2" - Me.LayoutControl2.Root = Me.LayoutControlGroup4 - Me.LayoutControl2.Size = New System.Drawing.Size(333, 582) - Me.LayoutControl2.TabIndex = 0 - Me.LayoutControl2.Text = "LayoutControl2" + Me.GridControlTables.DataSource = Me.TBMT_TABLESBindingSource + Me.GridControlTables.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlTables.Location = New System.Drawing.Point(0, 0) + Me.GridControlTables.MainView = Me.GridViewTables + Me.GridControlTables.MenuManager = Me.RibbonControl1 + Me.GridControlTables.Name = "GridControlTables" + Me.GridControlTables.Size = New System.Drawing.Size(228, 601) + Me.GridControlTables.TabIndex = 0 + Me.GridControlTables.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewTables}) ' - 'CheckEdit1 + 'GridViewTables ' - Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "ACTIVE", True)) - Me.CheckEdit1.Location = New System.Drawing.Point(20, 53) - Me.CheckEdit1.MenuManager = Me.RibbonControl1 - Me.CheckEdit1.Name = "CheckEdit1" - Me.CheckEdit1.Properties.Caption = "Aktiv" - Me.CheckEdit1.Size = New System.Drawing.Size(293, 20) - Me.CheckEdit1.StyleController = Me.LayoutControl2 - Me.CheckEdit1.TabIndex = 4 + Me.GridViewTables.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName}) + Me.GridViewTables.GridControl = Me.GridControlTables + Me.GridViewTables.Name = "GridViewTables" + Me.GridViewTables.OptionsView.ShowGroupPanel = False + Me.GridViewTables.OptionsView.ShowIndicator = False + ' + 'colName + ' + Me.colName.Caption = "Tabelle" + Me.colName.FieldName = "NAME" + Me.colName.Name = "colName" + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 ' 'RibbonControl1 ' @@ -415,7 +429,7 @@ Partial Class frmConfig Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide Me.RibbonControl1.ShowToolbarCustomizeItem = False - Me.RibbonControl1.Size = New System.Drawing.Size(1132, 63) + Me.RibbonControl1.Size = New System.Drawing.Size(1151, 63) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' @@ -456,131 +470,204 @@ Partial Class frmConfig ' 'RibbonStatusBar1 ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 670) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 689) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1132, 24) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1151, 24) + ' + 'SidePanel1 + ' + Me.SidePanel1.Controls.Add(Me.LayoutControl2) + Me.SidePanel1.Dock = System.Windows.Forms.DockStyle.Right + Me.SidePanel1.Location = New System.Drawing.Point(886, 0) + Me.SidePanel1.Name = "SidePanel1" + Me.SidePanel1.Size = New System.Drawing.Size(263, 601) + Me.SidePanel1.TabIndex = 2 + Me.SidePanel1.Text = "SidePanel1" + ' + 'LayoutControl2 + ' + Me.LayoutControl2.Controls.Add(Me.CheckEdit1) + Me.LayoutControl2.Controls.Add(Me.CheckEdit2) + Me.LayoutControl2.Controls.Add(Me.CheckEdit3) + Me.LayoutControl2.Controls.Add(Me.CheckEdit4) + Me.LayoutControl2.Controls.Add(Me.CheckEdit5) + Me.LayoutControl2.Controls.Add(Me.CheckEdit6) + Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl2.Location = New System.Drawing.Point(1, 0) + Me.LayoutControl2.Name = "LayoutControl2" + Me.LayoutControl2.Root = Me.LayoutControlGroup4 + Me.LayoutControl2.Size = New System.Drawing.Size(262, 601) + Me.LayoutControl2.TabIndex = 0 + Me.LayoutControl2.Text = "LayoutControl2" + ' + 'CheckEdit1 + ' + Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "ACTIVE", True)) + Me.CheckEdit1.Location = New System.Drawing.Point(32, 53) + Me.CheckEdit1.MenuManager = Me.RibbonControl1 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.Caption = "Aktiv" + Me.CheckEdit1.Size = New System.Drawing.Size(198, 20) + Me.CheckEdit1.StyleController = Me.LayoutControl2 + Me.CheckEdit1.TabIndex = 4 ' 'CheckEdit2 ' Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "IS_READ_ONLY", True)) - Me.CheckEdit2.Location = New System.Drawing.Point(20, 93) + Me.CheckEdit2.Location = New System.Drawing.Point(32, 93) Me.CheckEdit2.MenuManager = Me.RibbonControl1 Me.CheckEdit2.Name = "CheckEdit2" Me.CheckEdit2.Properties.Caption = "Read-Only" - Me.CheckEdit2.Size = New System.Drawing.Size(293, 20) + Me.CheckEdit2.Size = New System.Drawing.Size(198, 20) Me.CheckEdit2.StyleController = Me.LayoutControl2 Me.CheckEdit2.TabIndex = 5 ' 'CheckEdit3 ' Me.CheckEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "IS_VISIBLE", True)) - Me.CheckEdit3.Location = New System.Drawing.Point(20, 133) + Me.CheckEdit3.Location = New System.Drawing.Point(32, 133) Me.CheckEdit3.MenuManager = Me.RibbonControl1 Me.CheckEdit3.Name = "CheckEdit3" Me.CheckEdit3.Properties.Caption = "Sichbar" - Me.CheckEdit3.Size = New System.Drawing.Size(293, 20) + Me.CheckEdit3.Size = New System.Drawing.Size(198, 20) Me.CheckEdit3.StyleController = Me.LayoutControl2 Me.CheckEdit3.TabIndex = 6 ' 'CheckEdit4 ' Me.CheckEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "IS_REQUIRED", True)) - Me.CheckEdit4.Location = New System.Drawing.Point(20, 173) + Me.CheckEdit4.Location = New System.Drawing.Point(32, 173) Me.CheckEdit4.MenuManager = Me.RibbonControl1 Me.CheckEdit4.Name = "CheckEdit4" Me.CheckEdit4.Properties.Caption = "Pflichtfeld" - Me.CheckEdit4.Size = New System.Drawing.Size(293, 20) + Me.CheckEdit4.Size = New System.Drawing.Size(198, 20) Me.CheckEdit4.StyleController = Me.LayoutControl2 Me.CheckEdit4.TabIndex = 7 ' 'CheckEdit5 ' Me.CheckEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEDIXMLITEMSBindingSource, "PREFER_EXTERNAL", True)) - Me.CheckEdit5.Location = New System.Drawing.Point(20, 213) + Me.CheckEdit5.Location = New System.Drawing.Point(32, 213) Me.CheckEdit5.MenuManager = Me.RibbonControl1 Me.CheckEdit5.Name = "CheckEdit5" Me.CheckEdit5.Properties.Caption = "Externen Wert bevorzugen" - Me.CheckEdit5.Size = New System.Drawing.Size(293, 20) + Me.CheckEdit5.Size = New System.Drawing.Size(198, 20) Me.CheckEdit5.StyleController = Me.LayoutControl2 Me.CheckEdit5.TabIndex = 8 ' + 'CheckEdit6 + ' + Me.CheckEdit6.Location = New System.Drawing.Point(32, 253) + Me.CheckEdit6.MenuManager = Me.RibbonControl1 + Me.CheckEdit6.Name = "CheckEdit6" + Me.CheckEdit6.Properties.Caption = "Virtuell" + Me.CheckEdit6.Size = New System.Drawing.Size(198, 20) + Me.CheckEdit6.StyleController = Me.LayoutControl2 + Me.CheckEdit6.TabIndex = 9 + ' 'LayoutControlGroup4 ' Me.LayoutControlGroup4.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup4.GroupBordersVisible = False - Me.LayoutControlGroup4.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9, Me.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem12, Me.SimpleLabelItem1}) + Me.LayoutControlGroup4.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup5, Me.EmptySpaceItem2}) Me.LayoutControlGroup4.Name = "LayoutControlGroup4" - Me.LayoutControlGroup4.Size = New System.Drawing.Size(333, 582) + Me.LayoutControlGroup4.Size = New System.Drawing.Size(262, 601) Me.LayoutControlGroup4.TextVisible = False ' - 'LayoutControlItem7 + 'LayoutControlGroup5 ' - Me.LayoutControlItem7.Control = Me.CheckEdit1 - Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 33) - Me.LayoutControlItem7.Name = "LayoutControlItem7" - Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem7.Size = New System.Drawing.Size(313, 40) - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem7.TextVisible = False + Me.LayoutControlGroup5.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem12, Me.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem8, Me.LayoutControlItem7}) + Me.LayoutControlGroup5.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlGroup5.Name = "LayoutControlGroup5" + Me.LayoutControlGroup5.Size = New System.Drawing.Size(242, 285) + Me.LayoutControlGroup5.Text = "Einstellungen" ' - 'LayoutControlItem8 + 'LayoutControlItem12 ' - Me.LayoutControlItem8.Control = Me.CheckEdit2 - Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 73) - Me.LayoutControlItem8.Name = "LayoutControlItem8" - Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem8.Size = New System.Drawing.Size(313, 40) - Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem8.TextVisible = False - ' - 'LayoutControlItem9 - ' - Me.LayoutControlItem9.Control = Me.CheckEdit3 - Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 113) - Me.LayoutControlItem9.Name = "LayoutControlItem9" - Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem9.Size = New System.Drawing.Size(313, 40) - Me.LayoutControlItem9.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem9.TextVisible = False + Me.LayoutControlItem12.Control = Me.CheckEdit6 + Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 200) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem12.Size = New System.Drawing.Size(218, 40) + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem12.TextVisible = False ' 'LayoutControlItem10 ' Me.LayoutControlItem10.Control = Me.CheckEdit4 - Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 153) + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 120) Me.LayoutControlItem10.Name = "LayoutControlItem10" Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem10.Size = New System.Drawing.Size(313, 40) + Me.LayoutControlItem10.Size = New System.Drawing.Size(218, 40) Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem10.TextVisible = False ' 'LayoutControlItem11 ' Me.LayoutControlItem11.Control = Me.CheckEdit5 - Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 193) + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 160) Me.LayoutControlItem11.Name = "LayoutControlItem11" Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem11.Size = New System.Drawing.Size(313, 40) + Me.LayoutControlItem11.Size = New System.Drawing.Size(218, 40) Me.LayoutControlItem11.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem11.TextVisible = False ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.CheckEdit3 + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem9.Size = New System.Drawing.Size(218, 40) + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem9.TextVisible = False + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.CheckEdit2 + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(218, 40) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem8.TextVisible = False + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.CheckEdit1 + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(218, 40) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False + ' + 'EmptySpaceItem2 + ' + Me.EmptySpaceItem2.AllowHotTrack = False + Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 285) + Me.EmptySpaceItem2.Name = "EmptySpaceItem2" + Me.EmptySpaceItem2.Size = New System.Drawing.Size(242, 296) + Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) + ' 'tabPageConfig ' Me.tabPageConfig.Controls.Add(Me.GridConfig) - Me.tabPageConfig.Controls.Add(Me.LayoutControl1) + Me.tabPageConfig.Controls.Add(Me.SidePanel2) Me.tabPageConfig.Name = "tabPageConfig" - Me.tabPageConfig.Size = New System.Drawing.Size(1130, 582) + Me.tabPageConfig.Size = New System.Drawing.Size(1149, 601) Me.tabPageConfig.Text = "Konfiguration" ' 'GridConfig ' Me.GridConfig.DataSource = Me.TBMT_CONFIGBindingSource Me.GridConfig.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridConfig.Location = New System.Drawing.Point(419, 0) + Me.GridConfig.Location = New System.Drawing.Point(0, 0) Me.GridConfig.MainView = Me.GridViewConfig Me.GridConfig.MenuManager = Me.RibbonControl1 Me.GridConfig.Name = "GridConfig" - Me.GridConfig.Size = New System.Drawing.Size(711, 582) + Me.GridConfig.Size = New System.Drawing.Size(841, 601) Me.GridConfig.TabIndex = 0 Me.GridConfig.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewConfig}) ' @@ -667,6 +754,16 @@ Partial Class frmConfig Me.colTEMPLATE_ID.VisibleIndex = 3 Me.colTEMPLATE_ID.Width = 87 ' + 'SidePanel2 + ' + Me.SidePanel2.Controls.Add(Me.LayoutControl1) + Me.SidePanel2.Dock = System.Windows.Forms.DockStyle.Right + Me.SidePanel2.Location = New System.Drawing.Point(841, 0) + Me.SidePanel2.Name = "SidePanel2" + Me.SidePanel2.Size = New System.Drawing.Size(308, 601) + Me.SidePanel2.TabIndex = 2 + Me.SidePanel2.Text = "SidePanel2" + ' 'LayoutControl1 ' Me.LayoutControl1.Controls.Add(Me.txtYearOverride) @@ -675,11 +772,11 @@ Partial Class frmConfig Me.LayoutControl1.Controls.Add(Me.txtWebservicePassword) Me.LayoutControl1.Controls.Add(Me.txtWebserviceImportRelativePath) Me.LayoutControl1.Controls.Add(Me.txtWebserviceImportBasePath) - Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Left - Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(1, 0) Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(419, 582) + Me.LayoutControl1.Size = New System.Drawing.Size(307, 601) Me.LayoutControl1.TabIndex = 1 Me.LayoutControl1.Text = "LayoutControl1" ' @@ -688,7 +785,7 @@ Partial Class frmConfig Me.txtYearOverride.Location = New System.Drawing.Point(152, 45) Me.txtYearOverride.MenuManager = Me.RibbonControl1 Me.txtYearOverride.Name = "txtYearOverride" - Me.txtYearOverride.Size = New System.Drawing.Size(243, 20) + Me.txtYearOverride.Size = New System.Drawing.Size(131, 20) Me.txtYearOverride.StyleController = Me.LayoutControl1 Me.txtYearOverride.TabIndex = 4 ' @@ -697,7 +794,7 @@ Partial Class frmConfig Me.txtWebserviceBaseurl.Location = New System.Drawing.Point(152, 114) Me.txtWebserviceBaseurl.MenuManager = Me.RibbonControl1 Me.txtWebserviceBaseurl.Name = "txtWebserviceBaseurl" - Me.txtWebserviceBaseurl.Size = New System.Drawing.Size(243, 20) + Me.txtWebserviceBaseurl.Size = New System.Drawing.Size(131, 20) Me.txtWebserviceBaseurl.StyleController = Me.LayoutControl1 Me.txtWebserviceBaseurl.TabIndex = 5 ' @@ -706,7 +803,7 @@ Partial Class frmConfig Me.txtWebserviceUsername.Location = New System.Drawing.Point(152, 138) Me.txtWebserviceUsername.MenuManager = Me.RibbonControl1 Me.txtWebserviceUsername.Name = "txtWebserviceUsername" - Me.txtWebserviceUsername.Size = New System.Drawing.Size(243, 20) + Me.txtWebserviceUsername.Size = New System.Drawing.Size(131, 20) Me.txtWebserviceUsername.StyleController = Me.LayoutControl1 Me.txtWebserviceUsername.TabIndex = 6 ' @@ -716,16 +813,16 @@ Partial Class frmConfig Me.txtWebservicePassword.MenuManager = Me.RibbonControl1 Me.txtWebservicePassword.Name = "txtWebservicePassword" Me.txtWebservicePassword.Properties.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) - Me.txtWebservicePassword.Size = New System.Drawing.Size(243, 20) + Me.txtWebservicePassword.Size = New System.Drawing.Size(131, 20) Me.txtWebservicePassword.StyleController = Me.LayoutControl1 Me.txtWebservicePassword.TabIndex = 7 ' 'txtWebserviceImportRelativePath ' - Me.txtWebserviceImportRelativePath.Location = New System.Drawing.Point(152, 299) + Me.txtWebserviceImportRelativePath.Location = New System.Drawing.Point(152, 306) Me.txtWebserviceImportRelativePath.MenuManager = Me.RibbonControl1 Me.txtWebserviceImportRelativePath.Name = "txtWebserviceImportRelativePath" - Me.txtWebserviceImportRelativePath.Size = New System.Drawing.Size(243, 20) + Me.txtWebserviceImportRelativePath.Size = New System.Drawing.Size(131, 20) Me.txtWebserviceImportRelativePath.StyleController = Me.LayoutControl1 Me.txtWebserviceImportRelativePath.TabIndex = 9 ' @@ -734,7 +831,7 @@ Partial Class frmConfig Me.txtWebserviceImportBasePath.Location = New System.Drawing.Point(152, 231) Me.txtWebserviceImportBasePath.MenuManager = Me.RibbonControl1 Me.txtWebserviceImportBasePath.Name = "txtWebserviceImportBasePath" - Me.txtWebserviceImportBasePath.Size = New System.Drawing.Size(243, 64) + Me.txtWebserviceImportBasePath.Size = New System.Drawing.Size(131, 71) Me.txtWebserviceImportBasePath.StyleController = Me.LayoutControl1 Me.txtWebserviceImportBasePath.TabIndex = 8 ' @@ -744,7 +841,7 @@ Partial Class frmConfig Me.Root.GroupBordersVisible = False Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1, Me.LayoutControlGroup2, Me.LayoutControlGroup3, Me.EmptySpaceItem1}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(419, 582) + Me.Root.Size = New System.Drawing.Size(307, 601) Me.Root.TextVisible = False ' 'LayoutControlGroup1 @@ -752,7 +849,7 @@ Partial Class frmConfig Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4}) Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 69) Me.LayoutControlGroup1.Name = "LayoutControlGroup1" - Me.LayoutControlGroup1.Size = New System.Drawing.Size(399, 117) + Me.LayoutControlGroup1.Size = New System.Drawing.Size(287, 117) Me.LayoutControlGroup1.Text = "Webservice / EWL" ' 'LayoutControlItem2 @@ -760,7 +857,7 @@ Partial Class frmConfig Me.LayoutControlItem2.Control = Me.txtWebserviceBaseurl Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem2.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Size = New System.Drawing.Size(375, 24) + Me.LayoutControlItem2.Size = New System.Drawing.Size(263, 24) Me.LayoutControlItem2.Text = "Server Adresse" Me.LayoutControlItem2.TextSize = New System.Drawing.Size(116, 13) ' @@ -769,7 +866,7 @@ Partial Class frmConfig Me.LayoutControlItem3.Control = Me.txtWebserviceUsername Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 24) Me.LayoutControlItem3.Name = "LayoutControlItem3" - Me.LayoutControlItem3.Size = New System.Drawing.Size(375, 24) + Me.LayoutControlItem3.Size = New System.Drawing.Size(263, 24) Me.LayoutControlItem3.Text = "Webservice Username" Me.LayoutControlItem3.TextSize = New System.Drawing.Size(116, 13) ' @@ -778,7 +875,7 @@ Partial Class frmConfig Me.LayoutControlItem4.Control = Me.txtWebservicePassword Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 48) Me.LayoutControlItem4.Name = "LayoutControlItem4" - Me.LayoutControlItem4.Size = New System.Drawing.Size(375, 24) + Me.LayoutControlItem4.Size = New System.Drawing.Size(263, 24) Me.LayoutControlItem4.Text = "Webservice Passwort" Me.LayoutControlItem4.TextSize = New System.Drawing.Size(116, 13) ' @@ -787,7 +884,7 @@ Partial Class frmConfig Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1}) Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup2.Name = "LayoutControlGroup2" - Me.LayoutControlGroup2.Size = New System.Drawing.Size(399, 69) + Me.LayoutControlGroup2.Size = New System.Drawing.Size(287, 69) Me.LayoutControlGroup2.Text = "Programmeinstellungen" ' 'LayoutControlItem1 @@ -795,7 +892,7 @@ Partial Class frmConfig Me.LayoutControlItem1.Control = Me.txtYearOverride Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem1.Name = "LayoutControlItem1" - Me.LayoutControlItem1.Size = New System.Drawing.Size(375, 24) + Me.LayoutControlItem1.Size = New System.Drawing.Size(263, 24) Me.LayoutControlItem1.Text = "Wirtschaftsjahr" Me.LayoutControlItem1.TextSize = New System.Drawing.Size(116, 13) ' @@ -804,7 +901,7 @@ Partial Class frmConfig Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5, Me.LayoutControlItem6}) Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 186) Me.LayoutControlGroup3.Name = "LayoutControlGroup3" - Me.LayoutControlGroup3.Size = New System.Drawing.Size(399, 137) + Me.LayoutControlGroup3.Size = New System.Drawing.Size(287, 144) Me.LayoutControlGroup3.Text = "Import/Export Pfade" ' 'LayoutControlItem5 @@ -812,25 +909,25 @@ Partial Class frmConfig Me.LayoutControlItem5.Control = Me.txtWebserviceImportBasePath Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem5.Name = "LayoutControlItem5" - Me.LayoutControlItem5.Size = New System.Drawing.Size(375, 68) + Me.LayoutControlItem5.Size = New System.Drawing.Size(263, 75) Me.LayoutControlItem5.Text = "WinLine Pfad (absolut)" Me.LayoutControlItem5.TextSize = New System.Drawing.Size(116, 13) ' 'LayoutControlItem6 ' Me.LayoutControlItem6.Control = Me.txtWebserviceImportRelativePath - Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 68) + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 75) Me.LayoutControlItem6.Name = "LayoutControlItem6" - Me.LayoutControlItem6.Size = New System.Drawing.Size(375, 24) + Me.LayoutControlItem6.Size = New System.Drawing.Size(263, 24) Me.LayoutControlItem6.Text = "Multiool Pfad (relativ)" Me.LayoutControlItem6.TextSize = New System.Drawing.Size(116, 13) ' 'EmptySpaceItem1 ' Me.EmptySpaceItem1.AllowHotTrack = False - Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 323) + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 330) Me.EmptySpaceItem1.Name = "EmptySpaceItem1" - Me.EmptySpaceItem1.Size = New System.Drawing.Size(399, 239) + Me.EmptySpaceItem1.Size = New System.Drawing.Size(287, 251) Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) ' 'RibbonPage2 @@ -853,45 +950,25 @@ Partial Class frmConfig Me.TableAdapterManager.TBEDI_XML_TYPESTableAdapter = Nothing Me.TableAdapterManager.TBMT_CONFIGTableAdapter = Me.TBMT_CONFIGTableAdapter Me.TableAdapterManager.TBMT_FUNCTIONSTableAdapter = Nothing + Me.TableAdapterManager.TBMT_TABLESTableAdapter = Nothing Me.TableAdapterManager.TBMT_TEMPLATE_ITEMSTableAdapter = Me.TBMT_TEMPLATE_ITEMSTableAdapter Me.TableAdapterManager.TBMT_TEMPLATESTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = MultiTool.Form.DS_DD_ECMTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'CheckEdit6 + 'TBMT_TABLESBindingSource ' - Me.CheckEdit6.Location = New System.Drawing.Point(20, 253) - Me.CheckEdit6.MenuManager = Me.RibbonControl1 - Me.CheckEdit6.Name = "CheckEdit6" - Me.CheckEdit6.Properties.Caption = "Virtuell" - Me.CheckEdit6.Size = New System.Drawing.Size(293, 20) - Me.CheckEdit6.StyleController = Me.LayoutControl2 - Me.CheckEdit6.TabIndex = 9 + Me.TBMT_TABLESBindingSource.DataMember = "TBMT_TABLES" + Me.TBMT_TABLESBindingSource.DataSource = Me.DS_DD_ECM ' - 'LayoutControlItem12 + 'TBMT_TABLESTableAdapter ' - Me.LayoutControlItem12.Control = Me.CheckEdit6 - Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 233) - Me.LayoutControlItem12.Name = "LayoutControlItem12" - Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem12.Size = New System.Drawing.Size(313, 329) - Me.LayoutControlItem12.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem12.TextVisible = False - ' - 'SimpleLabelItem1 - ' - Me.SimpleLabelItem1.AllowHotTrack = False - Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 0) - Me.SimpleLabelItem1.Name = "SimpleLabelItem1" - Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.SimpleLabelItem1.Size = New System.Drawing.Size(313, 33) - Me.SimpleLabelItem1.Text = "Weitere Einstellungen" - Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(114, 13) + Me.TBMT_TABLESTableAdapter.ClearBeforeFill = True ' 'frmConfig ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1132, 694) + Me.ClientSize = New System.Drawing.Size(1151, 713) Me.Controls.Add(Me.XtraTabControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) @@ -903,32 +980,40 @@ Partial Class frmConfig CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.tabPageSchema.ResumeLayout(False) - CType(Me.GridSchema, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlItems, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBEDIXMLITEMSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DS_DD_ECM, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewSchema, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewItems, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemMemoExEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemMemoEdit1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SidePanel3.ResumeLayout(False) + CType(Me.GridControlTables, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewTables, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.SidePanel1.ResumeLayout(False) CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControl2.ResumeLayout(False) CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CheckEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() 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.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit() Me.tabPageConfig.ResumeLayout(False) CType(Me.GridConfig, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBMT_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewConfig, System.ComponentModel.ISupportInitialize).EndInit() + Me.SidePanel2.ResumeLayout(False) CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControl1.ResumeLayout(False) CType(Me.txtYearOverride.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -948,9 +1033,7 @@ 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.CheckEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBMT_TABLESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -963,8 +1046,8 @@ Partial Class frmConfig Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents tabPageSchema As XtraTabPage - Friend WithEvents GridSchema As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewSchema As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControlItems As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewItems As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents DS_DD_ECM As DS_DD_ECM Friend WithEvents TBEDIXMLITEMSBindingSource As BindingSource Friend WithEvents TBMT_TEMPLATE_ITEMSTableAdapter As DS_DD_ECMTableAdapters.TBMT_TEMPLATE_ITEMSTableAdapter @@ -1041,5 +1124,13 @@ Partial Class frmConfig Friend WithEvents LayoutControlItem11 As LayoutControlItem Friend WithEvents CheckEdit6 As CheckEdit Friend WithEvents LayoutControlItem12 As LayoutControlItem - Friend WithEvents SimpleLabelItem1 As SimpleLabelItem + Friend WithEvents LayoutControlGroup5 As LayoutControlGroup + Friend WithEvents EmptySpaceItem2 As EmptySpaceItem + Friend WithEvents SidePanel2 As SidePanel + Friend WithEvents SidePanel3 As SidePanel + Friend WithEvents GridControlTables As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewTables As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents TBMT_TABLESBindingSource As BindingSource + Friend WithEvents TBMT_TABLESTableAdapter As DS_DD_ECMTableAdapters.TBMT_TABLESTableAdapter + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/MultiTool.Form/frmConfig.resx b/MultiTool.Form/frmConfig.resx index 4b0f83e..99e3734 100644 --- a/MultiTool.Form/frmConfig.resx +++ b/MultiTool.Form/frmConfig.resx @@ -118,10 +118,13 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 313, 17 + 136, 17 - 194, 17 + 17, 17 + + + 1202, 17 @@ -141,18 +144,24 @@ - 194, 17 + 17, 17 - 758, 17 + 613, 17 - 533, 17 + 356, 17 - 999, 17 + 824, 17 - 1234, 17 + 1029, 17 + + + 17, 56 + + + 121 \ No newline at end of file diff --git a/MultiTool.Form/frmConfig.vb b/MultiTool.Form/frmConfig.vb index 247db12..e834272 100644 --- a/MultiTool.Form/frmConfig.vb +++ b/MultiTool.Form/frmConfig.vb @@ -5,14 +5,16 @@ Imports DigitalData.Modules.Config Imports DigitalData.Modules.Database Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Language +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 + Private ReadOnly GridBuilder As GridBuilder Private BindingSource As BindingSource = TBEDIXMLITEMSBindingSource - Private View As GridView = GridViewSchema + Private View As GridView = GridViewItems Private ReadOnly Property Config As Common.Config @@ -28,10 +30,14 @@ Public Class frmConfig ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. FormHelper = New FormHelper(pLogConfig, Me) ConfigManager = pConfigManager + GridBuilder = New GridBuilder(GridViewTables, GridViewItems) End Sub Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try + GridBuilder.WithDefaults() + GridBuilder.WithReadOnlyOptions(GridViewTables) + Dim oConnectionString = MSSQLServer.DecryptConnectionString(Config.ConnectionString) Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString) With { .InitialCatalog = "DD_ECM" @@ -43,8 +49,11 @@ Public Class frmConfig 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() - TBMT_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBMT_TEMPLATE_ITEMS) + TBMT_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString() TBMT_CONFIGTableAdapter.Fill(DS_DD_ECM.TBMT_CONFIG) @@ -114,7 +123,7 @@ Public Class frmConfig End Sub Private Sub Save() - GridViewSchema.PostEditor() + GridViewItems.PostEditor() TBMT_CONFIGTableAdapter.Update(DS_DD_ECM.TBMT_CONFIG) DS_DD_ECM.TBMT_CONFIG.AcceptChanges() @@ -146,7 +155,7 @@ Public Class frmConfig Select Case e.Page.Name Case tabPageSchema.Name BindingSource = TBEDIXMLITEMSBindingSource - View = GridViewSchema + View = GridViewItems Case tabPageConfig.Name BindingSource = TBMT_CONFIGBindingSource @@ -169,4 +178,10 @@ Public Class frmConfig End If End If End Sub + + Private Sub GridViewTables_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewTables.FocusedRowChanged + Dim oRow As DataRow = GridViewTables.GetDataRow(GridViewTables.FocusedRowHandle) + Dim oTableId = oRow.Item("TABLE_ID") + TBMT_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBMT_TEMPLATE_ITEMS, oTableId) + End Sub End Class \ No newline at end of file diff --git a/MultiTool.Form/frmExportMain.vb b/MultiTool.Form/frmExportMain.vb index 0dbfc46..3e1a4b9 100644 --- a/MultiTool.Form/frmExportMain.vb +++ b/MultiTool.Form/frmExportMain.vb @@ -51,7 +51,7 @@ Public Class frmExportMain Winline = My.Winline FileEx = New DigitalData.Modules.Filesystem.File(LogConfig) - WebService = New WebServiceData(LogConfig, Database, Winline, My.GeneralConfiguration.Webservice, My.GeneralConfiguration) + WebService = New WebServiceData(LogConfig, Database, Winline, My.GeneralConfiguration.Webservice, My.GeneralConfiguration, My.FilterConfiguration) AddHandler WebService.WebServiceProgress, AddressOf WebService_Progress Catch ex As Exception diff --git a/MultiTool.Form/frmImportMain.vb b/MultiTool.Form/frmImportMain.vb index 927672b..1beee27 100644 --- a/MultiTool.Form/frmImportMain.vb +++ b/MultiTool.Form/frmImportMain.vb @@ -72,7 +72,7 @@ Public Class frmImportMain Winline = My.Winline FileEx = New DigitalData.Modules.Filesystem.File(LogConfig) - WebService = New WebServiceData(LogConfig, Database, Winline, My.GeneralConfiguration.Webservice, My.GeneralConfiguration) + WebService = New WebServiceData(LogConfig, Database, Winline, My.GeneralConfiguration.Webservice, My.GeneralConfiguration, My.FilterConfiguration) AddHandler WebService.WebServiceProgress, AddressOf WebService_Progress Catch ex As Exception