Small config form improvements

MultiTool.Form/DS_DD_ECM.Designer.vb

@@ -503,6 +503,14 @@ Partial Public Class DS_DD_ECM
         
         Private columnCHANGED_WHEN As Global.System.Data.DataColumn
         
+        Private columnACTIVE As Global.System.Data.DataColumn
+        
+        Private columnCOMMENT As Global.System.Data.DataColumn
+        
+        Private columnTEMPLATE_NAME As Global.System.Data.DataColumn
+        
+        Private columnTABLE_NAME As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Sub New()
@@ -658,6 +666,38 @@ Partial Public Class DS_DD_ECM
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnACTIVE
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnCOMMENT
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property TEMPLATE_NAMEColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnTEMPLATE_NAME
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property TABLE_NAMEColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnTABLE_NAME
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -695,9 +735,27 @@ Partial Public Class DS_DD_ECM
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Overloads Function AddTBMT_TEMPLATE_ITEMSRow(ByVal XML_NAME As String, ByVal XML_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 IS_VIRTUAL As Boolean, ByVal FUNCTION_PARAMETERS As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBMT_TEMPLATE_ITEMSRow
+        Public Overloads Function AddTBMT_TEMPLATE_ITEMSRow( _
+                    ByVal XML_NAME As String,  _
+                    ByVal XML_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 IS_VIRTUAL As Boolean,  _
+                    ByVal FUNCTION_PARAMETERS As String,  _
+                    ByVal ADDED_WHO As String,  _
+                    ByVal ADDED_WHEN As Date,  _
+                    ByVal CHANGED_WHO As String,  _
+                    ByVal CHANGED_WHEN As Date,  _
+                    ByVal ACTIVE As Boolean,  _
+                    ByVal COMMENT As String,  _
+                    ByVal TEMPLATE_NAME As String,  _
+                    ByVal TABLE_NAME As String) 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}
+            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}
             rowTBMT_TEMPLATE_ITEMSRow.ItemArray = columnValuesArray
             Me.Rows.Add(rowTBMT_TEMPLATE_ITEMSRow)
             Return rowTBMT_TEMPLATE_ITEMSRow
@@ -741,6 +799,10 @@ Partial Public Class DS_DD_ECM
             Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
             Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
             Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
+            Me.columnACTIVE = MyBase.Columns("ACTIVE")
+            Me.columnCOMMENT = MyBase.Columns("COMMENT")
+            Me.columnTEMPLATE_NAME = MyBase.Columns("TEMPLATE_NAME")
+            Me.columnTABLE_NAME = MyBase.Columns("TABLE_NAME")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -776,6 +838,14 @@ Partial Public Class DS_DD_ECM
             MyBase.Columns.Add(Me.columnCHANGED_WHO)
             Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnCHANGED_WHEN)
+            Me.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.columnTEMPLATE_NAME = New Global.System.Data.DataColumn("TEMPLATE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnTEMPLATE_NAME)
+            Me.columnTABLE_NAME = New Global.System.Data.DataColumn("TABLE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnTABLE_NAME)
             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
@@ -796,6 +866,12 @@ Partial Public Class DS_DD_ECM
             Me.columnADDED_WHO.AllowDBNull = false
             Me.columnADDED_WHO.MaxLength = 50
             Me.columnCHANGED_WHO.MaxLength = 50
+            Me.columnACTIVE.AllowDBNull = false
+            Me.columnCOMMENT.MaxLength = 100
+            Me.columnTEMPLATE_NAME.AllowDBNull = false
+            Me.columnTEMPLATE_NAME.MaxLength = 20
+            Me.columnTABLE_NAME.AllowDBNull = false
+            Me.columnTABLE_NAME.MaxLength = 2147483647
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -2709,6 +2785,54 @@ Partial Public Class DS_DD_ECM
             End Set
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Property ACTIVE() As Boolean
+            Get
+                Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.ACTIVEColumn),Boolean)
+            End Get
+            Set
+                Me(Me.tableTBMT_TEMPLATE_ITEMS.ACTIVEColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Property COMMENT() As String
+            Get
+                Try 
+                    Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn),String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBMT_TEMPLATE_ITEMS ist DBNull.", e)
+                End Try
+            End Get
+            Set
+                Me(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Property TEMPLATE_NAME() As String
+            Get
+                Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TEMPLATE_NAMEColumn),String)
+            End Get
+            Set
+                Me(Me.tableTBMT_TEMPLATE_ITEMS.TEMPLATE_NAMEColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Property TABLE_NAME() As String
+            Get
+                Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_NAMEColumn),String)
+            End Get
+            Set
+                Me(Me.tableTBMT_TEMPLATE_ITEMS.TABLE_NAMEColumn) = value
+            End Set
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Function IsFUNCTION_IDNull() As Boolean
@@ -2769,6 +2893,18 @@ Partial Public Class DS_DD_ECM
             Me(Me.tableTBMT_TEMPLATE_ITEMS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
         End Sub
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Function IsCOMMENTNull() As Boolean
+            Return Me.IsNull(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Sub SetCOMMENTNull()
+            Me(Me.tableTBMT_TEMPLATE_ITEMS.COMMENTColumn) = Global.System.Convert.DBNull
+        End Sub
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Function GetTBMT_FUNCTIONSRows() As TBMT_FUNCTIONSRow()
@@ -3639,6 +3775,10 @@ Namespace DS_DD_ECMTableAdapters
             tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
             tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
             tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
+            tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
+            tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
+            tableMapping.ColumnMappings.Add("TEMPLATE_NAME", "TEMPLATE_NAME")
+            tableMapping.ColumnMappings.Add("TABLE_NAME", "TABLE_NAME")
             Me._adapter.TableMappings.Add(tableMapping)
             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -3715,7 +3855,19 @@ Namespace DS_DD_ECMTableAdapters
             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
             Me._commandCollection(0).Connection = Me.Connection
-            Me._commandCollection(0).CommandText = "SELECT        TBMT_TEMPLATE_ITEMS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBMT_TEMPLATE_ITEMS"
+            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"&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 = TBTABLES.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"               "& _ 
+                "          TBMT_TEMPLATES AS TBTEMPLATES ON TBTABLES.TEMPLATE_ID = TBTEMPLATES.GU"& _ 
+                "ID"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
         End Sub