Autoload template, ask for reload on selecting mandator
This commit is contained in:
Jonathan Jenne
60
MultiTool.Form/DS_DD_ECM.Designer.vb
generated
60
MultiTool.Form/DS_DD_ECM.Designer.vb
generated
@@ -511,6 +511,8 @@ Partial Public Class DS_DD_ECM
|
||||
|
||||
Private columnTABLE_NAME As Global.System.Data.DataColumn
|
||||
|
||||
Private columnPREFER_EXTERNAL 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()
|
||||
@@ -698,6 +700,14 @@ 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 PREFER_EXTERNALColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnPREFER_EXTERNAL
|
||||
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)> _
|
||||
@@ -753,9 +763,10 @@ Partial Public Class DS_DD_ECM
|
||||
ByVal ACTIVE As Boolean, _
|
||||
ByVal COMMENT As String, _
|
||||
ByVal TEMPLATE_NAME As String, _
|
||||
ByVal TABLE_NAME As String) As TBMT_TEMPLATE_ITEMSRow
|
||||
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}
|
||||
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}
|
||||
rowTBMT_TEMPLATE_ITEMSRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBMT_TEMPLATE_ITEMSRow)
|
||||
Return rowTBMT_TEMPLATE_ITEMSRow
|
||||
@@ -803,6 +814,7 @@ Partial Public Class DS_DD_ECM
|
||||
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
||||
Me.columnTEMPLATE_NAME = MyBase.Columns("TEMPLATE_NAME")
|
||||
Me.columnTABLE_NAME = MyBase.Columns("TABLE_NAME")
|
||||
Me.columnPREFER_EXTERNAL = MyBase.Columns("PREFER_EXTERNAL")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -846,6 +858,8 @@ Partial Public Class DS_DD_ECM
|
||||
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.columnPREFER_EXTERNAL = New Global.System.Data.DataColumn("PREFER_EXTERNAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnPREFER_EXTERNAL)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AutoIncrementSeed = -1
|
||||
@@ -872,6 +886,7 @@ Partial Public Class DS_DD_ECM
|
||||
Me.columnTEMPLATE_NAME.MaxLength = 20
|
||||
Me.columnTABLE_NAME.AllowDBNull = false
|
||||
Me.columnTABLE_NAME.MaxLength = 2147483647
|
||||
Me.columnPREFER_EXTERNAL.AllowDBNull = false
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -2833,6 +2848,17 @@ 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 PREFER_EXTERNAL() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBMT_TEMPLATE_ITEMS.PREFER_EXTERNALColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBMT_TEMPLATE_ITEMS.PREFER_EXTERNALColumn) = 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
|
||||
@@ -3779,6 +3805,7 @@ Namespace DS_DD_ECMTableAdapters
|
||||
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
||||
tableMapping.ColumnMappings.Add("TEMPLATE_NAME", "TEMPLATE_NAME")
|
||||
tableMapping.ColumnMappings.Add("TABLE_NAME", "TABLE_NAME")
|
||||
tableMapping.ColumnMappings.Add("PREFER_EXTERNAL", "PREFER_EXTERNAL")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -3819,10 +3846,11 @@ Namespace DS_DD_ECMTableAdapters
|
||||
"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"&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_K"& _
|
||||
"EY, 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)"
|
||||
"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.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, "", "", ""))
|
||||
@@ -3838,6 +3866,8 @@ Namespace DS_DD_ECMTableAdapters
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PREFER_EXTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "PREFER_EXTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -3863,11 +3893,11 @@ Namespace DS_DD_ECMTableAdapters
|
||||
"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"
|
||||
"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"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -4025,6 +4055,8 @@ Namespace DS_DD_ECMTableAdapters
|
||||
ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _
|
||||
ByVal CHANGED_WHO As String, _
|
||||
ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _
|
||||
ByVal PREFER_EXTERNAL As Boolean, _
|
||||
ByVal ACTIVE As Boolean, _
|
||||
ByVal Original_GUID As Integer, _
|
||||
ByVal GUID As Integer) As Integer
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ORDER_KEY,Integer)
|
||||
@@ -4069,8 +4101,10 @@ Namespace DS_DD_ECMTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PREFER_EXTERNAL,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ACTIVE,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer)
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user