AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Finish FinalSQL, GLN/EAN for export, double click to open template, exporting multiple documents

Browse Source
This commit is contained in:
Jonathan Jenne
2022-01-20 16:34:52 +01:00
parent ff7c8c63ea
commit c315640d7d
25 changed files with 531 additions and 362 deletions
Download Patch File Download Diff File Expand all files Collapse all files

315
MultiTool.Form/DS_DD_ECM.Designer.vb generated
View File

@@ -25,7 +25,7 @@ Option Explicit On
Partial Public Class DS_DD_ECM
Inherits Global.System.Data.DataSet
Private tableTBEDI_XML_ITEMS As TBEDI_XML_ITEMSDataTable
Private tableTBEDI_XML_TEMPLATE_ITEMS As TBEDI_XML_TEMPLATE_ITEMSDataTable
Private tableTBEDI_XML_TYPES As TBEDI_XML_TYPESDataTable
@@ -76,8 +76,8 @@ Partial Public Class DS_DD_ECM
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (Not (ds.Tables("TBEDI_XML_ITEMS")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_ITEMSDataTable(ds.Tables("TBEDI_XML_ITEMS")))
If (Not (ds.Tables("TBEDI_XML_TEMPLATE_ITEMS")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_TEMPLATE_ITEMSDataTable(ds.Tables("TBEDI_XML_TEMPLATE_ITEMS")))
End If
If (Not (ds.Tables("TBEDI_XML_TYPES")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_TYPESDataTable(ds.Tables("TBEDI_XML_TYPES")))
@@ -115,9 +115,9 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBEDI_XML_ITEMS() As TBEDI_XML_ITEMSDataTable
Public ReadOnly Property TBEDI_XML_TEMPLATE_ITEMS() As TBEDI_XML_TEMPLATE_ITEMSDataTable
Get
Return Me.tableTBEDI_XML_ITEMS
Return Me.tableTBEDI_XML_TEMPLATE_ITEMS
End Get
End Property
@@ -238,8 +238,8 @@ Partial Public Class DS_DD_ECM
Me.Reset
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader)
If (Not (ds.Tables("TBEDI_XML_ITEMS")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_ITEMSDataTable(ds.Tables("TBEDI_XML_ITEMS")))
If (Not (ds.Tables("TBEDI_XML_TEMPLATE_ITEMS")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_TEMPLATE_ITEMSDataTable(ds.Tables("TBEDI_XML_TEMPLATE_ITEMS")))
End If
If (Not (ds.Tables("TBEDI_XML_TYPES")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_TYPESDataTable(ds.Tables("TBEDI_XML_TYPES")))
@@ -288,10 +288,10 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableTBEDI_XML_ITEMS = CType(MyBase.Tables("TBEDI_XML_ITEMS"),TBEDI_XML_ITEMSDataTable)
Me.tableTBEDI_XML_TEMPLATE_ITEMS = CType(MyBase.Tables("TBEDI_XML_TEMPLATE_ITEMS"),TBEDI_XML_TEMPLATE_ITEMSDataTable)
If (initTable = true) Then
If (Not (Me.tableTBEDI_XML_ITEMS) Is Nothing) Then
Me.tableTBEDI_XML_ITEMS.InitVars
If (Not (Me.tableTBEDI_XML_TEMPLATE_ITEMS) Is Nothing) Then
Me.tableTBEDI_XML_TEMPLATE_ITEMS.InitVars
End If
End If
Me.tableTBEDI_XML_TYPES = CType(MyBase.Tables("TBEDI_XML_TYPES"),TBEDI_XML_TYPESDataTable)
@@ -339,8 +339,8 @@ Partial Public Class DS_DD_ECM
Me.Namespace = "http://tempuri.org/DS_DD_ECM.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBEDI_XML_ITEMS = New TBEDI_XML_ITEMSDataTable()
MyBase.Tables.Add(Me.tableTBEDI_XML_ITEMS)
Me.tableTBEDI_XML_TEMPLATE_ITEMS = New TBEDI_XML_TEMPLATE_ITEMSDataTable()
MyBase.Tables.Add(Me.tableTBEDI_XML_TEMPLATE_ITEMS)
Me.tableTBEDI_XML_TYPES = New TBEDI_XML_TYPESDataTable()
MyBase.Tables.Add(Me.tableTBEDI_XML_TYPES)
Me.tableTBEDI_XML_TEMPLATES = New TBEDI_XML_TEMPLATESDataTable()
@@ -351,21 +351,21 @@ 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_ITEMS.FUNCTION_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_FUNCTIONS.GUIDColumn}, false)
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_ITEMS.XML_TYPE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TYPES.GUIDColumn}, false)
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_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_ITEMS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_ITEMS.XML_TYPE_IDColumn}, false)
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_ITEMS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_ITEMS.XML_TABLE_IDColumn}, false)
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(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBEDI_XML_ITEMS() As Boolean
Private Function ShouldSerializeTBEDI_XML_TEMPLATE_ITEMS() As Boolean
Return false
End Function
@@ -458,7 +458,7 @@ Partial Public Class DS_DD_ECM
End Function
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Delegate Sub TBEDI_XML_ITEMSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_ITEMSRowChangeEvent)
Public Delegate Sub TBEDI_XML_TEMPLATE_ITEMSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Delegate Sub TBEDI_XML_TYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_TYPESRowChangeEvent)
@@ -480,8 +480,8 @@ Partial Public Class DS_DD_ECM
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBEDI_XML_ITEMSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBEDI_XML_ITEMSRow)
Partial Public Class TBEDI_XML_TEMPLATE_ITEMSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBEDI_XML_TEMPLATE_ITEMSRow)
Private columnGUID As Global.System.Data.DataColumn
@@ -517,7 +517,7 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBEDI_XML_ITEMS"
Me.TableName = "TBEDI_XML_TEMPLATE_ITEMS"
Me.BeginInit
Me.InitClass
Me.EndInit
@@ -679,56 +679,56 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBEDI_XML_ITEMSRow
Public Default ReadOnly Property Item(ByVal index As Integer) As TBEDI_XML_TEMPLATE_ITEMSRow
Get
Return CType(Me.Rows(index),TBEDI_XML_ITEMSRow)
Return CType(Me.Rows(index),TBEDI_XML_TEMPLATE_ITEMSRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event TBEDI_XML_ITEMSRowChanging As TBEDI_XML_ITEMSRowChangeEventHandler
Public Event TBEDI_XML_TEMPLATE_ITEMSRowChanging As TBEDI_XML_TEMPLATE_ITEMSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event TBEDI_XML_ITEMSRowChanged As TBEDI_XML_ITEMSRowChangeEventHandler
Public Event TBEDI_XML_TEMPLATE_ITEMSRowChanged As TBEDI_XML_TEMPLATE_ITEMSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event TBEDI_XML_ITEMSRowDeleting As TBEDI_XML_ITEMSRowChangeEventHandler
Public Event TBEDI_XML_TEMPLATE_ITEMSRowDeleting As TBEDI_XML_TEMPLATE_ITEMSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event TBEDI_XML_ITEMSRowDeleted As TBEDI_XML_ITEMSRowChangeEventHandler
Public Event TBEDI_XML_TEMPLATE_ITEMSRowDeleted As TBEDI_XML_TEMPLATE_ITEMSRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Sub AddTBEDI_XML_ITEMSRow(ByVal row As TBEDI_XML_ITEMSRow)
Public Overloads Sub AddTBEDI_XML_TEMPLATE_ITEMSRow(ByVal row As TBEDI_XML_TEMPLATE_ITEMSRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Function AddTBEDI_XML_ITEMSRow(ByVal XML_NAME As String, ByVal parentTBEDI_XML_ITEMSRowByFK_TBEDI_XML_TYPES As TBEDI_XML_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_ITEMSRowByFK_TBEDI_XML_NODES As TBEDI_XML_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_ITEMSRow
Dim rowTBEDI_XML_ITEMSRow As TBEDI_XML_ITEMSRow = CType(Me.NewRow,TBEDI_XML_ITEMSRow)
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
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_ITEMSRowByFK_TBEDI_XML_TYPES) Is Nothing) Then
columnValuesArray(2) = parentTBEDI_XML_ITEMSRowByFK_TBEDI_XML_TYPES(0)
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_ITEMSRowByFK_TBEDI_XML_NODES) Is Nothing) Then
columnValuesArray(8) = parentTBEDI_XML_ITEMSRowByFK_TBEDI_XML_NODES(0)
If (Not (parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_NODES) Is Nothing) Then
columnValuesArray(8) = parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_NODES(0)
End If
rowTBEDI_XML_ITEMSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBEDI_XML_ITEMSRow)
Return rowTBEDI_XML_ITEMSRow
rowTBEDI_XML_TEMPLATE_ITEMSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBEDI_XML_TEMPLATE_ITEMSRow)
Return rowTBEDI_XML_TEMPLATE_ITEMSRow
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_ITEMSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBEDI_XML_ITEMSRow)
Public Function FindByGUID(ByVal GUID As Integer) As TBEDI_XML_TEMPLATE_ITEMSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBEDI_XML_TEMPLATE_ITEMSRow)
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
Dim cln As TBEDI_XML_ITEMSDataTable = CType(MyBase.Clone,TBEDI_XML_ITEMSDataTable)
Dim cln As TBEDI_XML_TEMPLATE_ITEMSDataTable = CType(MyBase.Clone,TBEDI_XML_TEMPLATE_ITEMSDataTable)
cln.InitVars
Return cln
End Function
@@ -736,7 +736,7 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBEDI_XML_ITEMSDataTable()
Return New TBEDI_XML_TEMPLATE_ITEMSDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -816,28 +816,28 @@ 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 NewTBEDI_XML_ITEMSRow() As TBEDI_XML_ITEMSRow
Return CType(Me.NewRow,TBEDI_XML_ITEMSRow)
Public Function NewTBEDI_XML_TEMPLATE_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow
Return CType(Me.NewRow,TBEDI_XML_TEMPLATE_ITEMSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBEDI_XML_ITEMSRow(builder)
Return New TBEDI_XML_TEMPLATE_ITEMSRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBEDI_XML_ITEMSRow)
Return GetType(TBEDI_XML_TEMPLATE_ITEMSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBEDI_XML_ITEMSRowChangedEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_ITEMSRowChanged(Me, New TBEDI_XML_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_ITEMSRow), e.Action))
If (Not (Me.TBEDI_XML_TEMPLATE_ITEMSRowChangedEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_TEMPLATE_ITEMSRowChanged(Me, New TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_TEMPLATE_ITEMSRow), e.Action))
End If
End Sub
@@ -845,8 +845,8 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBEDI_XML_ITEMSRowChangingEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_ITEMSRowChanging(Me, New TBEDI_XML_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_ITEMSRow), e.Action))
If (Not (Me.TBEDI_XML_TEMPLATE_ITEMSRowChangingEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_TEMPLATE_ITEMSRowChanging(Me, New TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_TEMPLATE_ITEMSRow), e.Action))
End If
End Sub
@@ -854,8 +854,8 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBEDI_XML_ITEMSRowDeletedEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_ITEMSRowDeleted(Me, New TBEDI_XML_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_ITEMSRow), e.Action))
If (Not (Me.TBEDI_XML_TEMPLATE_ITEMSRowDeletedEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_TEMPLATE_ITEMSRowDeleted(Me, New TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_TEMPLATE_ITEMSRow), e.Action))
End If
End Sub
@@ -863,14 +863,14 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBEDI_XML_ITEMSRowDeletingEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_ITEMSRowDeleting(Me, New TBEDI_XML_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_ITEMSRow), e.Action))
If (Not (Me.TBEDI_XML_TEMPLATE_ITEMSRowDeletingEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_TEMPLATE_ITEMSRowDeleting(Me, New TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_TEMPLATE_ITEMSRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub RemoveTBEDI_XML_ITEMSRow(ByVal row As TBEDI_XML_ITEMSRow)
Public Sub RemoveTBEDI_XML_TEMPLATE_ITEMSRow(ByVal row As TBEDI_XML_TEMPLATE_ITEMSRow)
Me.Rows.Remove(row)
End Sub
@@ -897,7 +897,7 @@ Partial Public Class DS_DD_ECM
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBEDI_XML_ITEMSDataTable"
attribute2.FixedValue = "TBEDI_XML_TEMPLATE_ITEMSDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
@@ -2477,26 +2477,26 @@ Partial Public Class DS_DD_ECM
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBEDI_XML_ITEMSRow
Partial Public Class TBEDI_XML_TEMPLATE_ITEMSRow
Inherits Global.System.Data.DataRow
Private tableTBEDI_XML_ITEMS As TBEDI_XML_ITEMSDataTable
Private tableTBEDI_XML_TEMPLATE_ITEMS As TBEDI_XML_TEMPLATE_ITEMSDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBEDI_XML_ITEMS = CType(Me.Table,TBEDI_XML_ITEMSDataTable)
Me.tableTBEDI_XML_TEMPLATE_ITEMS = CType(Me.Table,TBEDI_XML_TEMPLATE_ITEMSDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.GUIDColumn),Integer)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.GUIDColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.GUIDColumn) = value
End Set
End Property
@@ -2504,10 +2504,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property XML_NAME() As String
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.XML_NAMEColumn),String)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_NAMEColumn),String)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.XML_NAMEColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_NAMEColumn) = value
End Set
End Property
@@ -2515,10 +2515,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property XML_TYPE_ID() As Integer
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.XML_TYPE_IDColumn),Integer)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TYPE_IDColumn),Integer)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.XML_TYPE_IDColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TYPE_IDColumn) = value
End Set
End Property
@@ -2526,10 +2526,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IS_READ_ONLY() As Boolean
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.IS_READ_ONLYColumn),Boolean)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_READ_ONLYColumn),Boolean)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.IS_READ_ONLYColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_READ_ONLYColumn) = value
End Set
End Property
@@ -2537,10 +2537,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IS_VISIBLE() As Boolean
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.IS_VISIBLEColumn),Boolean)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_VISIBLEColumn),Boolean)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.IS_VISIBLEColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_VISIBLEColumn) = value
End Set
End Property
@@ -2548,10 +2548,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ORDER_KEY() As Integer
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.ORDER_KEYColumn),Integer)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ORDER_KEYColumn),Integer)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.ORDER_KEYColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ORDER_KEYColumn) = value
End Set
End Property
@@ -2560,13 +2560,13 @@ Partial Public Class DS_DD_ECM
Public Property FUNCTION_ID() As Integer
Get
Try
Return CType(Me(Me.tableTBEDI_XML_ITEMS.FUNCTION_IDColumn),Integer)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_IDColumn),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION_ID in Tabelle TBEDI_XML_ITEMS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION_ID in Tabelle TBEDI_XML_TEMPLATE_ITEMS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.FUNCTION_IDColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_IDColumn) = value
End Set
End Property
@@ -2574,10 +2574,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IS_REQUIRED() As Boolean
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.IS_REQUIREDColumn),Boolean)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_REQUIREDColumn),Boolean)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.IS_REQUIREDColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_REQUIREDColumn) = value
End Set
End Property
@@ -2585,10 +2585,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property XML_TABLE_ID() As Integer
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.XML_TABLE_IDColumn),Integer)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TABLE_IDColumn),Integer)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.XML_TABLE_IDColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TABLE_IDColumn) = value
End Set
End Property
@@ -2596,10 +2596,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IS_VIRTUAL() As Boolean
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.IS_VIRTUALColumn),Boolean)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_VIRTUALColumn),Boolean)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.IS_VIRTUALColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_VIRTUALColumn) = value
End Set
End Property
@@ -2608,13 +2608,14 @@ Partial Public Class DS_DD_ECM
Public Property FUNCTION_PARAMETERS() As String
Get
Try
Return CType(Me(Me.tableTBEDI_XML_ITEMS.FUNCTION_PARAMETERSColumn),String)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION_PARAMETERS in Tabelle TBEDI_XML_ITEMS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION_PARAMETERS in Tabelle TBEDI_XML_TEMPLATE_ITEMS ist D"& _
"BNull.", e)
End Try
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.FUNCTION_PARAMETERSColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn) = value
End Set
End Property
@@ -2622,10 +2623,10 @@ Partial Public Class DS_DD_ECM
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.ADDED_WHOColumn),String)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.ADDED_WHOColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_WHOColumn) = value
End Set
End Property
@@ -2634,13 +2635,13 @@ Partial Public Class DS_DD_ECM
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBEDI_XML_ITEMS.ADDED_WHENColumn),Date)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEDI_XML_ITEMS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEDI_XML_TEMPLATE_ITEMS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.ADDED_WHENColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_WHENColumn) = value
End Set
End Property
@@ -2649,13 +2650,13 @@ Partial Public Class DS_DD_ECM
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBEDI_XML_ITEMS.CHANGED_WHOColumn),String)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEDI_XML_ITEMS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEDI_XML_TEMPLATE_ITEMS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.CHANGED_WHOColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHOColumn) = value
End Set
End Property
@@ -2664,21 +2665,21 @@ Partial Public Class DS_DD_ECM
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBEDI_XML_ITEMS.CHANGED_WHENColumn),Date)
Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEDI_XML_ITEMS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEDI_XML_TEMPLATE_ITEMS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBEDI_XML_ITEMS.CHANGED_WHENColumn) = value
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHENColumn) = value
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_ITEMSRowParentByFK_TBEDI_XML_TYPES() As TBEDI_XML_ITEMSRow
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_ITEMSRow)
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"))
@@ -2687,9 +2688,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 Property TBEDI_XML_ITEMSRowParentByFK_TBEDI_XML_NODES() As TBEDI_XML_ITEMSRow
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_ITEMSRow)
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"))
@@ -2699,61 +2700,61 @@ 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 IsFUNCTION_IDNull() As Boolean
Return Me.IsNull(Me.tableTBEDI_XML_ITEMS.FUNCTION_IDColumn)
Return Me.IsNull(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetFUNCTION_IDNull()
Me(Me.tableTBEDI_XML_ITEMS.FUNCTION_IDColumn) = Global.System.Convert.DBNull
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_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 IsFUNCTION_PARAMETERSNull() As Boolean
Return Me.IsNull(Me.tableTBEDI_XML_ITEMS.FUNCTION_PARAMETERSColumn)
Return Me.IsNull(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetFUNCTION_PARAMETERSNull()
Me(Me.tableTBEDI_XML_ITEMS.FUNCTION_PARAMETERSColumn) = Global.System.Convert.DBNull
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn) = 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 IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBEDI_XML_ITEMS.ADDED_WHENColumn)
Return Me.IsNull(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBEDI_XML_ITEMS.ADDED_WHENColumn) = Global.System.Convert.DBNull
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_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 IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBEDI_XML_ITEMS.CHANGED_WHOColumn)
Return Me.IsNull(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBEDI_XML_ITEMS.CHANGED_WHOColumn) = Global.System.Convert.DBNull
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHOColumn) = 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 IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBEDI_XML_ITEMS.CHANGED_WHENColumn)
Return Me.IsNull(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBEDI_XML_ITEMS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -2778,21 +2779,21 @@ 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_ITEMSRowsByFK_TBEDI_XML_TYPES() As TBEDI_XML_ITEMSRow()
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_ITEMSRow(-1) {}
Return New TBEDI_XML_TEMPLATE_ITEMSRow(-1) {}
Else
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEDI_XML_TYPES")),TBEDI_XML_ITEMSRow())
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_ITEMSRowsByFK_TBEDI_XML_NODES() As TBEDI_XML_ITEMSRow()
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_ITEMSRow(-1) {}
Return New TBEDI_XML_TEMPLATE_ITEMSRow(-1) {}
Else
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEDI_XML_NODES")),TBEDI_XML_ITEMSRow())
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEDI_XML_NODES")),TBEDI_XML_TEMPLATE_ITEMSRow())
End If
End Function
End Class
@@ -2836,9 +2837,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 Property TBEDI_XML_ITEMSRow() As TBEDI_XML_ITEMSRow
Public Property TBEDI_XML_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow
Get
Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES")),TBEDI_XML_ITEMSRow)
Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES")),TBEDI_XML_TEMPLATE_ITEMSRow)
End Get
Set
Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES"))
@@ -3057,9 +3058,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 Property TBEDI_XML_ITEMSRow() As TBEDI_XML_ITEMSRow
Public Property TBEDI_XML_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow
Get
Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS")),TBEDI_XML_ITEMSRow)
Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS")),TBEDI_XML_TEMPLATE_ITEMSRow)
End Get
Set
Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS"))
@@ -3224,16 +3225,16 @@ Partial Public Class DS_DD_ECM
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Class TBEDI_XML_ITEMSRowChangeEvent
Public Class TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBEDI_XML_ITEMSRow
Private eventRow As TBEDI_XML_TEMPLATE_ITEMSRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New(ByVal row As TBEDI_XML_ITEMSRow, ByVal action As Global.System.Data.DataRowAction)
Public Sub New(ByVal row As TBEDI_XML_TEMPLATE_ITEMSRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
@@ -3241,7 +3242,7 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property Row() As TBEDI_XML_ITEMSRow
Public ReadOnly Property Row() As TBEDI_XML_TEMPLATE_ITEMSRow
Get
Return Me.eventRow
End Get
@@ -3448,7 +3449,7 @@ Namespace DS_DD_ECMTableAdapters
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class TBEDI_XML_ITEMSTableAdapter
Partial Public Class TBEDI_XML_TEMPLATE_ITEMSTableAdapter
Inherits Global.System.ComponentModel.Component
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
@@ -3565,7 +3566,7 @@ Namespace DS_DD_ECMTableAdapters
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 = "TBEDI_XML_ITEMS"
tableMapping.DataSetTable = "TBEDI_XML_TEMPLATE_ITEMS"
tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("XML_NAME", "XML_NAME")
tableMapping.ColumnMappings.Add("XML_TYPE_ID", "XML_TYPE_ID")
@@ -3665,7 +3666,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.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As DS_DD_ECM.TBEDI_XML_ITEMSDataTable) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMSDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
@@ -3678,9 +3679,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.TBEDI_XML_ITEMSDataTable
Public Overloads Overridable Function GetData() As DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMSDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As DS_DD_ECM.TBEDI_XML_ITEMSDataTable = New DS_DD_ECM.TBEDI_XML_ITEMSDataTable()
Dim dataTable As DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMSDataTable = New DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMSDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
@@ -3688,7 +3689,7 @@ Namespace DS_DD_ECMTableAdapters
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DS_DD_ECM.TBEDI_XML_ITEMSDataTable) As Integer
Public Overloads Overridable Function Update(ByVal dataTable As DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMSDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
@@ -3696,7 +3697,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")> _
Public Overloads Overridable Function Update(ByVal dataSet As DS_DD_ECM) As Integer
Return Me.Adapter.Update(dataSet, "TBEDI_XML_ITEMS")
Return Me.Adapter.Update(dataSet, "TBEDI_XML_TEMPLATE_ITEMS")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -5550,7 +5551,7 @@ Namespace DS_DD_ECMTableAdapters
Private _updateOrder As UpdateOrderOption
Private _tBEDI_XML_ITEMSTableAdapter As TBEDI_XML_ITEMSTableAdapter
Private _tBEDI_XML_TEMPLATE_ITEMSTableAdapter As TBEDI_XML_TEMPLATE_ITEMSTableAdapter
Private _tBEDI_XML_TYPESTableAdapter As TBEDI_XML_TYPESTableAdapter
@@ -5582,12 +5583,12 @@ Namespace DS_DD_ECMTableAdapters
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
Public Property TBEDI_XML_ITEMSTableAdapter() As TBEDI_XML_ITEMSTableAdapter
Public Property TBEDI_XML_TEMPLATE_ITEMSTableAdapter() As TBEDI_XML_TEMPLATE_ITEMSTableAdapter
Get
Return Me._tBEDI_XML_ITEMSTableAdapter
Return Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter
End Get
Set
Me._tBEDI_XML_ITEMSTableAdapter = value
Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter = value
End Set
End Property
@@ -5680,9 +5681,9 @@ Namespace DS_DD_ECMTableAdapters
If (Not (Me._connection) Is Nothing) Then
Return Me._connection
End If
If ((Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBEDI_XML_ITEMSTableAdapter.Connection) Is Nothing)) Then
Return Me._tBEDI_XML_ITEMSTableAdapter.Connection
If ((Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection) Is Nothing)) Then
Return Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection
End If
If ((Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBEDI_XML_TYPESTableAdapter.Connection) Is Nothing)) Then
@@ -5717,7 +5718,7 @@ Namespace DS_DD_ECMTableAdapters
Public ReadOnly Property TableAdapterInstanceCount() As Integer
Get
Dim count As Integer = 0
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then
If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) Then
@@ -5746,15 +5747,15 @@ Namespace DS_DD_ECMTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function UpdateUpdatedRows(ByVal dataSet As DS_DD_ECM, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
Dim result As Integer = 0
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_TEMPLATE_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
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_ITEMSTableAdapter.Update(updatedRows))
result = (result + Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(updatedRows))
allChangedRows.AddRange(updatedRows)
End If
End If
@@ -5813,14 +5814,14 @@ Namespace DS_DD_ECMTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function UpdateInsertedRows(ByVal dataSet As DS_DD_ECM, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
Dim result As Integer = 0
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
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_ITEMSTableAdapter.Update(addedRows))
result = (result + Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(addedRows))
allAddedRows.AddRange(addedRows)
End If
End If
@@ -5914,14 +5915,14 @@ Namespace DS_DD_ECMTableAdapters
allChangedRows.AddRange(deletedRows)
End If
End If
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
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_ITEMSTableAdapter.Update(deletedRows))
result = (result + Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(deletedRows))
allChangedRows.AddRange(deletedRows)
End If
End If
@@ -5966,8 +5967,8 @@ Namespace DS_DD_ECMTableAdapters
If (dataSet.HasChanges = false) Then
Return 0
End If
If ((Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBEDI_XML_ITEMSTableAdapter.Connection) = false)) Then
If ((Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.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
@@ -6030,13 +6031,13 @@ Namespace DS_DD_ECMTableAdapters
Try
'---- Prepare for update -----------
'
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBEDI_XML_ITEMSTableAdapter, Me._tBEDI_XML_ITEMSTableAdapter.Connection)
Me._tBEDI_XML_ITEMSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBEDI_XML_ITEMSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBEDI_XML_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBEDI_XML_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEDI_XML_ITEMSTableAdapter.Adapter)
If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter, Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection)
Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Adapter)
End If
End If
If (Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) Then
@@ -6144,9 +6145,9 @@ Namespace DS_DD_ECMTableAdapters
If workConnOpened Then
workConnection.Close
End If
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then
Me._tBEDI_XML_ITEMSTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_ITEMSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBEDI_XML_ITEMSTableAdapter.Transaction = Nothing
If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Transaction = Nothing
End If
If (Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) Then
Me._tBEDI_XML_TYPESTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_TYPESTableAdapter),Global.System.Data.SqlClient.SqlConnection)