Improve frmConfig, Fix missing loop in ApplyItemFunctionsForExport, Add support for SQL function
This commit is contained in:
Jonathan Jenne
329
MultiTool.Form/DS_DD_ECM.Designer.vb
generated
329
MultiTool.Form/DS_DD_ECM.Designer.vb
generated
@@ -37,16 +37,12 @@ Partial Public Class DS_DD_ECM
|
||||
|
||||
Private tableTBEDI_XML_CONFIG As TBEDI_XML_CONFIGDataTable
|
||||
|
||||
Private relationTBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS As Global.System.Data.DataRelation
|
||||
Private relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS As Global.System.Data.DataRelation
|
||||
|
||||
Private relationTBEDI_XML_ITEMS_TBEDI_XML_TYPES As Global.System.Data.DataRelation
|
||||
Private relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES As Global.System.Data.DataRelation
|
||||
|
||||
Private relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES As Global.System.Data.DataRelation
|
||||
|
||||
Private relationFK_TBEDI_XML_TYPES As Global.System.Data.DataRelation
|
||||
|
||||
Private relationFK_TBEDI_XML_NODES As Global.System.Data.DataRelation
|
||||
|
||||
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -324,11 +320,9 @@ Partial Public Class DS_DD_ECM
|
||||
Me.tableTBEDI_XML_CONFIG.InitVars
|
||||
End If
|
||||
End If
|
||||
Me.relationTBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS = Me.Relations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS")
|
||||
Me.relationTBEDI_XML_ITEMS_TBEDI_XML_TYPES = Me.Relations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES")
|
||||
Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS = Me.Relations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS")
|
||||
Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES = Me.Relations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES")
|
||||
Me.relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES = Me.Relations("TBEDI_XML_NODES_TBEDI_XML_TEMPLATES")
|
||||
Me.relationFK_TBEDI_XML_TYPES = Me.Relations("FK_TBEDI_XML_TYPES")
|
||||
Me.relationFK_TBEDI_XML_NODES = Me.Relations("FK_TBEDI_XML_NODES")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -351,16 +345,12 @@ Partial Public Class DS_DD_ECM
|
||||
MyBase.Tables.Add(Me.tableTBEDI_XML_FUNCTIONS)
|
||||
Me.tableTBEDI_XML_CONFIG = New TBEDI_XML_CONFIGDataTable()
|
||||
MyBase.Tables.Add(Me.tableTBEDI_XML_CONFIG)
|
||||
Me.relationTBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS = New Global.System.Data.DataRelation("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_FUNCTIONS.GUIDColumn}, false)
|
||||
Me.Relations.Add(Me.relationTBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS)
|
||||
Me.relationTBEDI_XML_ITEMS_TBEDI_XML_TYPES = New Global.System.Data.DataRelation("TBEDI_XML_ITEMS_TBEDI_XML_TYPES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TYPE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TYPES.GUIDColumn}, false)
|
||||
Me.Relations.Add(Me.relationTBEDI_XML_ITEMS_TBEDI_XML_TYPES)
|
||||
Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS = New Global.System.Data.DataRelation("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_FUNCTIONS.GUIDColumn}, false)
|
||||
Me.Relations.Add(Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS)
|
||||
Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES = New Global.System.Data.DataRelation("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TYPE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TYPES.GUIDColumn}, false)
|
||||
Me.Relations.Add(Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES)
|
||||
Me.relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES = New Global.System.Data.DataRelation("TBEDI_XML_NODES_TBEDI_XML_TEMPLATES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_NODES.TEMPLATE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATES.GUIDColumn}, false)
|
||||
Me.Relations.Add(Me.relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES)
|
||||
Me.relationFK_TBEDI_XML_TYPES = New Global.System.Data.DataRelation("FK_TBEDI_XML_TYPES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TYPE_IDColumn}, false)
|
||||
Me.Relations.Add(Me.relationFK_TBEDI_XML_TYPES)
|
||||
Me.relationFK_TBEDI_XML_NODES = New Global.System.Data.DataRelation("FK_TBEDI_XML_NODES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TABLE_IDColumn}, false)
|
||||
Me.Relations.Add(Me.relationFK_TBEDI_XML_NODES)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -705,15 +695,9 @@ 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 AddTBEDI_XML_TEMPLATE_ITEMSRow(ByVal XML_NAME As String, ByVal parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_TYPES As TBEDI_XML_TEMPLATE_ITEMSRow, 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 parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_NODES As TBEDI_XML_TEMPLATE_ITEMSRow, 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 TBEDI_XML_TEMPLATE_ITEMSRow
|
||||
Public Overloads Function AddTBEDI_XML_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 TBEDI_XML_TEMPLATE_ITEMSRow
|
||||
Dim rowTBEDI_XML_TEMPLATE_ITEMSRow As TBEDI_XML_TEMPLATE_ITEMSRow = CType(Me.NewRow,TBEDI_XML_TEMPLATE_ITEMSRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, XML_NAME, Nothing, IS_READ_ONLY, IS_VISIBLE, ORDER_KEY, FUNCTION_ID, IS_REQUIRED, Nothing, IS_VIRTUAL, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
||||
If (Not (parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_TYPES) Is Nothing) Then
|
||||
columnValuesArray(2) = parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_TYPES(0)
|
||||
End If
|
||||
If (Not (parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_NODES) Is Nothing) Then
|
||||
columnValuesArray(8) = parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_NODES(0)
|
||||
End If
|
||||
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}
|
||||
rowTBEDI_XML_TEMPLATE_ITEMSRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBEDI_XML_TEMPLATE_ITEMSRow)
|
||||
Return rowTBEDI_XML_TEMPLATE_ITEMSRow
|
||||
@@ -2154,6 +2138,12 @@ Partial Public Class DS_DD_ECM
|
||||
|
||||
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
||||
|
||||
Private columnACTIVE As Global.System.Data.DataColumn
|
||||
|
||||
Private columnTEMPLATE_ID As Global.System.Data.DataColumn
|
||||
|
||||
Private columnCOMMENT As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -2245,6 +2235,30 @@ 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 TEMPLATE_IDColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnTEMPLATE_ID
|
||||
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"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -2282,14 +2296,20 @@ 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 AddTBEDI_XML_CONFIGRow(ByVal KEY As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEDI_XML_CONFIGRow
|
||||
Public Overloads Function AddTBEDI_XML_CONFIGRow(ByVal KEY As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal TEMPLATE_ID As Integer, ByVal COMMENT As String) As TBEDI_XML_CONFIGRow
|
||||
Dim rowTBEDI_XML_CONFIGRow As TBEDI_XML_CONFIGRow = CType(Me.NewRow,TBEDI_XML_CONFIGRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, KEY, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, KEY, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, TEMPLATE_ID, COMMENT}
|
||||
rowTBEDI_XML_CONFIGRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBEDI_XML_CONFIGRow)
|
||||
Return rowTBEDI_XML_CONFIGRow
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function FindByGUID(ByVal GUID As Integer) As TBEDI_XML_CONFIGRow
|
||||
Return CType(Me.Rows.Find(New Object() {GUID}),TBEDI_XML_CONFIGRow)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Overrides Function Clone() As Global.System.Data.DataTable
|
||||
@@ -2314,6 +2334,9 @@ 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.columnTEMPLATE_ID = MyBase.Columns("TEMPLATE_ID")
|
||||
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -2333,11 +2356,19 @@ 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.columnTEMPLATE_ID = New Global.System.Data.DataColumn("TEMPLATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnTEMPLATE_ID)
|
||||
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnCOMMENT)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AutoIncrementSeed = -1
|
||||
Me.columnGUID.AutoIncrementStep = -1
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
Me.columnGUID.ReadOnly = true
|
||||
Me.columnGUID.Unique = true
|
||||
Me.columnKEY.AllowDBNull = false
|
||||
Me.columnKEY.MaxLength = 100
|
||||
Me.columnVALUE.AllowDBNull = false
|
||||
@@ -2345,6 +2376,8 @@ 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
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -2675,28 +2708,6 @@ 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 TBEDI_XML_TEMPLATE_ITEMSRowParentByFK_TBEDI_XML_TYPES() As TBEDI_XML_TEMPLATE_ITEMSRow
|
||||
Get
|
||||
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEDI_XML_TYPES")),TBEDI_XML_TEMPLATE_ITEMSRow)
|
||||
End Get
|
||||
Set
|
||||
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBEDI_XML_TYPES"))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property TBEDI_XML_TEMPLATE_ITEMSRowParentByFK_TBEDI_XML_NODES() As TBEDI_XML_TEMPLATE_ITEMSRow
|
||||
Get
|
||||
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEDI_XML_NODES")),TBEDI_XML_TEMPLATE_ITEMSRow)
|
||||
End Get
|
||||
Set
|
||||
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBEDI_XML_NODES"))
|
||||
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
|
||||
@@ -2760,40 +2771,20 @@ Partial Public Class DS_DD_ECM
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function GetTBEDI_XML_FUNCTIONSRows() As TBEDI_XML_FUNCTIONSRow()
|
||||
If (Me.Table.ChildRelations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS") Is Nothing) Then
|
||||
If (Me.Table.ChildRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS") Is Nothing) Then
|
||||
Return New TBEDI_XML_FUNCTIONSRow(-1) {}
|
||||
Else
|
||||
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS")),TBEDI_XML_FUNCTIONSRow())
|
||||
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS")),TBEDI_XML_FUNCTIONSRow())
|
||||
End If
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function GetTBEDI_XML_TYPESRows() As TBEDI_XML_TYPESRow()
|
||||
If (Me.Table.ChildRelations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES") Is Nothing) Then
|
||||
If (Me.Table.ChildRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES") Is Nothing) Then
|
||||
Return New TBEDI_XML_TYPESRow(-1) {}
|
||||
Else
|
||||
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES")),TBEDI_XML_TYPESRow())
|
||||
End If
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function GetTBEDI_XML_TEMPLATE_ITEMSRowsByFK_TBEDI_XML_TYPES() As TBEDI_XML_TEMPLATE_ITEMSRow()
|
||||
If (Me.Table.ChildRelations("FK_TBEDI_XML_TYPES") Is Nothing) Then
|
||||
Return New TBEDI_XML_TEMPLATE_ITEMSRow(-1) {}
|
||||
Else
|
||||
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEDI_XML_TYPES")),TBEDI_XML_TEMPLATE_ITEMSRow())
|
||||
End If
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function GetTBEDI_XML_TEMPLATE_ITEMSRowsByFK_TBEDI_XML_NODES() As TBEDI_XML_TEMPLATE_ITEMSRow()
|
||||
If (Me.Table.ChildRelations("FK_TBEDI_XML_NODES") Is Nothing) Then
|
||||
Return New TBEDI_XML_TEMPLATE_ITEMSRow(-1) {}
|
||||
Else
|
||||
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEDI_XML_NODES")),TBEDI_XML_TEMPLATE_ITEMSRow())
|
||||
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES")),TBEDI_XML_TYPESRow())
|
||||
End If
|
||||
End Function
|
||||
End Class
|
||||
@@ -2837,12 +2828,12 @@ Partial Public Class DS_DD_ECM
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property TBEDI_XML_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow
|
||||
Public Property TBEDI_XML_TEMPLATE_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow
|
||||
Get
|
||||
Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES")),TBEDI_XML_TEMPLATE_ITEMSRow)
|
||||
Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES")),TBEDI_XML_TEMPLATE_ITEMSRow)
|
||||
End Get
|
||||
Set
|
||||
Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES"))
|
||||
Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES"))
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -3058,12 +3049,12 @@ Partial Public Class DS_DD_ECM
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property TBEDI_XML_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow
|
||||
Public Property TBEDI_XML_TEMPLATE_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow
|
||||
Get
|
||||
Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS")),TBEDI_XML_TEMPLATE_ITEMSRow)
|
||||
Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS")),TBEDI_XML_TEMPLATE_ITEMSRow)
|
||||
End Get
|
||||
Set
|
||||
Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS"))
|
||||
Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS"))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
@@ -3184,6 +3175,47 @@ 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.tableTBEDI_XML_CONFIG.ACTIVEColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBEDI_XML_CONFIG.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 TEMPLATE_ID() As Integer
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBEDI_XML_CONFIG.TEMPLATE_IDColumn),Integer)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEMPLATE_ID in Tabelle TBEDI_XML_CONFIG ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBEDI_XML_CONFIG.TEMPLATE_IDColumn) = 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.tableTBEDI_XML_CONFIG.COMMENTColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEDI_XML_CONFIG ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBEDI_XML_CONFIG.COMMENTColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsADDED_WHENNull() As Boolean
|
||||
@@ -3219,6 +3251,30 @@ Partial Public Class DS_DD_ECM
|
||||
Public Sub SetCHANGED_WHENNull()
|
||||
Me(Me.tableTBEDI_XML_CONFIG.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 IsTEMPLATE_IDNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBEDI_XML_CONFIG.TEMPLATE_IDColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetTEMPLATE_IDNull()
|
||||
Me(Me.tableTBEDI_XML_CONFIG.TEMPLATE_IDColumn) = 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.tableTBEDI_XML_CONFIG.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.tableTBEDI_XML_CONFIG.COMMENTColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -3585,20 +3641,20 @@ Namespace DS_DD_ECMTableAdapters
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBEDI_XML_ITEMS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
||||
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBEDI_XML_TEMPLATE_ITEMS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
||||
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBEDI_XML_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_W"& _
|
||||
"HO, @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_VIRTUAL, "& _
|
||||
"FUNCTION_ID, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH"& _
|
||||
"EN FROM TBEDI_XML_ITEMS WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBEDI_XML_TEMPLATE_ITEMS] ([ORDER_KEY], [XML_NAME], [XML_TABLE_ID], "& _
|
||||
"[XML_TYPE_ID], [IS_READ_ONLY], [IS_VISIBLE], [IS_REQUIRED], [IS_VIRTUAL], [FUNCT"& _
|
||||
"ION_ID], [FUNCTION_PARAMETERS], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANG"& _
|
||||
"ED_WHEN]) VALUES (@ORDER_KEY, @XML_NAME, @XML_TABLE_ID, @XML_TYPE_ID, @IS_READ_O"& _
|
||||
"NLY, @IS_VISIBLE, @IS_REQUIRED, @IS_VIRTUAL, @FUNCTION_ID, @FUNCTION_PARAMETERS,"& _
|
||||
" @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ORDER_KEY,"& _
|
||||
" XML_NAME, XML_TABLE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_"& _
|
||||
"VIRTUAL, FUNCTION_ID, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _
|
||||
"HANGED_WHEN FROM TBEDI_XML_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, "", "", ""))
|
||||
@@ -3616,16 +3672,16 @@ Namespace DS_DD_ECMTableAdapters
|
||||
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 TBEDI_XML_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_READ_"& _
|
||||
"ONLY = @IS_READ_ONLY, IS_VISIBLE = @IS_VISIBLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IS_RE"& _
|
||||
"QUIRED = @IS_REQUIRED, IS_VIRTUAL = @IS_VIRTUAL, FUNCTION_ID = @FUNCTION_ID, FUN"& _
|
||||
"CTION_PARAMETERS = @FUNCTION_PARAMETERS, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @A"& _
|
||||
"DDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN ="& _
|
||||
" @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_KEY, "& _
|
||||
"XML_NAME, XML_TABLE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUIRED, IS_V"& _
|
||||
"IRTUAL, FUNCTION_ID, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _
|
||||
"ANGED_WHEN FROM TBEDI_XML_ITEMS WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBEDI_XML_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_READ_ONLY = @IS_READ_ONLY, IS_VISIBLE = @IS_VISIBLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" IS_REQUIRED = @IS_REQUIRED, IS_VIRTUAL = @IS_VIRTUAL, FUNCTION_ID = @FUNCTIO"& _
|
||||
"N_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, CHANG"& _
|
||||
"ED_WHEN = @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, OR"& _
|
||||
"DER_KEY, XML_NAME, XML_TABLE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, IS_REQUI"& _
|
||||
"RED, IS_VIRTUAL, FUNCTION_ID, FUNCTION_PARAMETERS, ADDED_WHO, ADDED_WHEN, CHANGE"& _
|
||||
"D_WHO, CHANGED_WHEN FROM TBEDI_XML_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, "", "", ""))
|
||||
@@ -3658,7 +3714,8 @@ 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 TBEDI_XML_ITEMS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEDI_XML_ITEMS"
|
||||
Me._commandCollection(0).CommandText = "SELECT TBEDI_XML_TEMPLATE_ITEMS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEDI_XML_TEMPLATE_ITEM"& _
|
||||
"S"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -5312,6 +5369,9 @@ 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("TEMPLATE_ID", "TEMPLATE_ID")
|
||||
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -5320,21 +5380,26 @@ 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 [TBEDI_XML_CONFIG] ([KEY], [VALUE], [ADDED_WHO], [ADDED_WHEN], [CHANG"& _
|
||||
"ED_WHO], [CHANGED_WHEN]) VALUES (@KEY, @VALUE, @ADDED_WHO, @ADDED_WHEN, @CHANGED"& _
|
||||
"_WHO, @CHANGED_WHEN)"
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBEDI_XML_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ([KEY], VALUE, ADDED_WHO, "& _
|
||||
"ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, TEMPLATE_ID, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
|
||||
" (@KEY,@VALUE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@ACTIVE,@TEMP"& _
|
||||
"LATE_ID,@COMMENT)"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KEY", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", 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("@KEY", Global.System.Data.SqlDbType.NVarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.NVarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.NVarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, 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("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 4, 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("@COMMENT", Global.System.Data.SqlDbType.NVarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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 TBEDI_XML_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET [KEY] = @KEY, VALUE = @VALUE, A"& _
|
||||
"DDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHA"& _
|
||||
"NGED_WHEN = @CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
||||
"NGED_WHEN = @CHANGED_WHEN, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TEMPLATE"& _
|
||||
"_ID = @TEMPLATE_ID, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KEY", Global.System.Data.SqlDbType.NVarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.NVarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -5342,6 +5407,9 @@ 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("@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("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 4, 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("@COMMENT", Global.System.Data.SqlDbType.NVarChar, 100, 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
@@ -5359,7 +5427,7 @@ Namespace DS_DD_ECMTableAdapters
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, [KEY], VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _
|
||||
"N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEDI_XML_CONFIG"
|
||||
"N, ACTIVE, TEMPLATE_ID, COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEDI_XML_CONFIG"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -5440,7 +5508,7 @@ 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 KEY As String, ByVal VALUE 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 KEY As String, ByVal VALUE 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 ACTIVE As Boolean, ByVal TEMPLATE_ID As Global.System.Nullable(Of Integer), ByVal COMMENT As String) As Integer
|
||||
If (KEY Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("KEY")
|
||||
Else
|
||||
@@ -5471,6 +5539,17 @@ Namespace DS_DD_ECMTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(6).Value = CType(ACTIVE,Boolean)
|
||||
If (TEMPLATE_ID.HasValue = true) Then
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = CType(TEMPLATE_ID.Value,Integer)
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = CType(COMMENT,String)
|
||||
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
|
||||
@@ -5490,7 +5569,7 @@ 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.Update, true)> _
|
||||
Public Overloads Overridable Function Update(ByVal KEY As String, ByVal VALUE 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) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal KEY As String, ByVal VALUE 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 ACTIVE As Boolean, ByVal TEMPLATE_ID As Global.System.Nullable(Of Integer), ByVal COMMENT As String, ByVal Original_GUID As Integer) As Integer
|
||||
If (KEY Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("KEY")
|
||||
Else
|
||||
@@ -5521,7 +5600,18 @@ Namespace DS_DD_ECMTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ACTIVE,Boolean)
|
||||
If (TEMPLATE_ID.HasValue = true) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TEMPLATE_ID.Value,Integer)
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COMMENT,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_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
|
||||
@@ -5752,9 +5842,6 @@ Namespace DS_DD_ECMTableAdapters
|
||||
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
|
||||
If ((Not (updatedRows) Is Nothing) _
|
||||
AndAlso (0 < updatedRows.Length)) Then
|
||||
Me.SortSelfReferenceRows(updatedRows, dataSet.Relations("FK_TBEDI_XML_TYPES"), false)
|
||||
'Note: More than one self-referenced relation found. The generated code may not work correctly.
|
||||
Me.SortSelfReferenceRows(updatedRows, dataSet.Relations("FK_TBEDI_XML_NODES"), false)
|
||||
result = (result + Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(updatedRows))
|
||||
allChangedRows.AddRange(updatedRows)
|
||||
End If
|
||||
@@ -5818,9 +5905,6 @@ Namespace DS_DD_ECMTableAdapters
|
||||
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_TEMPLATE_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
||||
If ((Not (addedRows) Is Nothing) _
|
||||
AndAlso (0 < addedRows.Length)) Then
|
||||
Me.SortSelfReferenceRows(addedRows, dataSet.Relations("FK_TBEDI_XML_TYPES"), false)
|
||||
'Note: More than one self-referenced relation found. The generated code may not work correctly.
|
||||
Me.SortSelfReferenceRows(addedRows, dataSet.Relations("FK_TBEDI_XML_NODES"), false)
|
||||
result = (result + Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(addedRows))
|
||||
allAddedRows.AddRange(addedRows)
|
||||
End If
|
||||
@@ -5919,9 +6003,6 @@ Namespace DS_DD_ECMTableAdapters
|
||||
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_TEMPLATE_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
||||
If ((Not (deletedRows) Is Nothing) _
|
||||
AndAlso (0 < deletedRows.Length)) Then
|
||||
Me.SortSelfReferenceRows(deletedRows, dataSet.Relations("FK_TBEDI_XML_TYPES"), true)
|
||||
'Note: More than one self-referenced relation found. The generated code may not work correctly.
|
||||
Me.SortSelfReferenceRows(deletedRows, dataSet.Relations("FK_TBEDI_XML_NODES"), true)
|
||||
result = (result + Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(deletedRows))
|
||||
allChangedRows.AddRange(deletedRows)
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user