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)

26
MultiTool.Form/DS_DD_ECM.xsd
View File

@@ -7,7 +7,7 @@
<Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.MultiTool.Form.My.MySettings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
</Connections>
<Tables>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBEDI_XML_ITEMSTableAdapter" GeneratorDataComponentClassName="TBEDI_XML_ITEMSTableAdapter" Name="TBEDI_XML_ITEMS" UserDataComponentName="TBEDI_XML_ITEMSTableAdapter">
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBEDI_XML_TEMPLATE_ITEMSTableAdapter" GeneratorDataComponentClassName="TBEDI_XML_TEMPLATE_ITEMSTableAdapter" Name="TBEDI_XML_TEMPLATE_ITEMS" UserDataComponentName="TBEDI_XML_TEMPLATE_ITEMSTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBEDI_XML_ITEMS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
@@ -369,7 +369,7 @@ WHERE (GUID = @Original_GUID)</CommandText>
<xs:element name="DS_DD_ECM" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DS_DD_ECM" msprop:Generator_UserDSName="DS_DD_ECM">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBEDI_XML_ITEMS" msprop:Generator_TableClassName="TBEDI_XML_ITEMSDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_ITEMS" msprop:Generator_TablePropName="TBEDI_XML_ITEMS" msprop:Generator_RowDeletingName="TBEDI_XML_ITEMSRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_ITEMSRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_ITEMSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_ITEMSRowDeleted" msprop:Generator_UserTableName="TBEDI_XML_ITEMS" msprop:Generator_RowChangedName="TBEDI_XML_ITEMSRowChanged" msprop:Generator_RowEvArgName="TBEDI_XML_ITEMSRowChangeEvent" msprop:Generator_RowClassName="TBEDI_XML_ITEMSRow">
<xs:element name="TBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_TableClassName="TBEDI_XML_TEMPLATE_ITEMSDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_RowChangedName="TBEDI_XML_TEMPLATE_ITEMSRowChanged" msprop:Generator_TablePropName="TBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_RowDeletingName="TBEDI_XML_TEMPLATE_ITEMSRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_TEMPLATE_ITEMSRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_TEMPLATE_ITEMSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_TEMPLATE_ITEMSRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_TEMPLATE_ITEMSRow" msprop:Generator_UserTableName="TBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_RowEvArgName="TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -414,7 +414,7 @@ WHERE (GUID = @Original_GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_TYPES" msprop:Generator_TableClassName="TBEDI_XML_TYPESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_TYPES" msprop:Generator_TablePropName="TBEDI_XML_TYPES" msprop:Generator_RowDeletingName="TBEDI_XML_TYPESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_TYPESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_TYPESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_TYPESRowDeleted" msprop:Generator_UserTableName="TBEDI_XML_TYPES" msprop:Generator_RowChangedName="TBEDI_XML_TYPESRowChanged" msprop:Generator_RowEvArgName="TBEDI_XML_TYPESRowChangeEvent" msprop:Generator_RowClassName="TBEDI_XML_TYPESRow">
<xs:element name="TBEDI_XML_TYPES" msprop:Generator_TableClassName="TBEDI_XML_TYPESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_TYPES" msprop:Generator_RowChangedName="TBEDI_XML_TYPESRowChanged" msprop:Generator_TablePropName="TBEDI_XML_TYPES" msprop:Generator_RowDeletingName="TBEDI_XML_TYPESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_TYPESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_TYPESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_TYPESRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_TYPESRow" msprop:Generator_UserTableName="TBEDI_XML_TYPES" msprop:Generator_RowEvArgName="TBEDI_XML_TYPESRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -428,7 +428,7 @@ WHERE (GUID = @Original_GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_TEMPLATES" msprop:Generator_TableClassName="TBEDI_XML_TEMPLATESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_TEMPLATES" msprop:Generator_TablePropName="TBEDI_XML_TEMPLATES" msprop:Generator_RowDeletingName="TBEDI_XML_TEMPLATESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_TEMPLATESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_TEMPLATESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_TEMPLATESRowDeleted" msprop:Generator_UserTableName="TBEDI_XML_TEMPLATES" msprop:Generator_RowChangedName="TBEDI_XML_TEMPLATESRowChanged" msprop:Generator_RowEvArgName="TBEDI_XML_TEMPLATESRowChangeEvent" msprop:Generator_RowClassName="TBEDI_XML_TEMPLATESRow">
<xs:element name="TBEDI_XML_TEMPLATES" msprop:Generator_TableClassName="TBEDI_XML_TEMPLATESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_TEMPLATES" msprop:Generator_RowChangedName="TBEDI_XML_TEMPLATESRowChanged" msprop:Generator_TablePropName="TBEDI_XML_TEMPLATES" msprop:Generator_RowDeletingName="TBEDI_XML_TEMPLATESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_TEMPLATESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_TEMPLATESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_TEMPLATESRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_TEMPLATESRow" msprop:Generator_UserTableName="TBEDI_XML_TEMPLATES" msprop:Generator_RowEvArgName="TBEDI_XML_TEMPLATESRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -449,7 +449,7 @@ WHERE (GUID = @Original_GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_NODES" msprop:Generator_TableClassName="TBEDI_XML_NODESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_NODES" msprop:Generator_TablePropName="TBEDI_XML_NODES" msprop:Generator_RowDeletingName="TBEDI_XML_NODESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_NODESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_NODESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_NODESRowDeleted" msprop:Generator_UserTableName="TBEDI_XML_NODES" msprop:Generator_RowChangedName="TBEDI_XML_NODESRowChanged" msprop:Generator_RowEvArgName="TBEDI_XML_NODESRowChangeEvent" msprop:Generator_RowClassName="TBEDI_XML_NODESRow">
<xs:element name="TBEDI_XML_NODES" msprop:Generator_TableClassName="TBEDI_XML_NODESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_NODES" msprop:Generator_RowChangedName="TBEDI_XML_NODESRowChanged" msprop:Generator_TablePropName="TBEDI_XML_NODES" msprop:Generator_RowDeletingName="TBEDI_XML_NODESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_NODESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_NODESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_NODESRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_NODESRow" msprop:Generator_UserTableName="TBEDI_XML_NODES" msprop:Generator_RowEvArgName="TBEDI_XML_NODESRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -465,7 +465,7 @@ WHERE (GUID = @Original_GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_FUNCTIONS" msprop:Generator_TableClassName="TBEDI_XML_FUNCTIONSDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_FUNCTIONS" msprop:Generator_TablePropName="TBEDI_XML_FUNCTIONS" msprop:Generator_RowDeletingName="TBEDI_XML_FUNCTIONSRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_FUNCTIONSRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_FUNCTIONSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_FUNCTIONSRowDeleted" msprop:Generator_UserTableName="TBEDI_XML_FUNCTIONS" msprop:Generator_RowChangedName="TBEDI_XML_FUNCTIONSRowChanged" msprop:Generator_RowEvArgName="TBEDI_XML_FUNCTIONSRowChangeEvent" msprop:Generator_RowClassName="TBEDI_XML_FUNCTIONSRow">
<xs:element name="TBEDI_XML_FUNCTIONS" msprop:Generator_TableClassName="TBEDI_XML_FUNCTIONSDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_FUNCTIONS" msprop:Generator_RowChangedName="TBEDI_XML_FUNCTIONSRowChanged" msprop:Generator_TablePropName="TBEDI_XML_FUNCTIONS" msprop:Generator_RowDeletingName="TBEDI_XML_FUNCTIONSRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_FUNCTIONSRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_FUNCTIONSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_FUNCTIONSRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_FUNCTIONSRow" msprop:Generator_UserTableName="TBEDI_XML_FUNCTIONS" msprop:Generator_RowEvArgName="TBEDI_XML_FUNCTIONSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -493,7 +493,7 @@ WHERE (GUID = @Original_GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_CONFIG" msprop:Generator_TableClassName="TBEDI_XML_CONFIGDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_CONFIG" msprop:Generator_TablePropName="TBEDI_XML_CONFIG" msprop:Generator_RowDeletingName="TBEDI_XML_CONFIGRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_CONFIGRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_CONFIGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_CONFIGRowDeleted" msprop:Generator_UserTableName="TBEDI_XML_CONFIG" msprop:Generator_RowChangedName="TBEDI_XML_CONFIGRowChanged" msprop:Generator_RowEvArgName="TBEDI_XML_CONFIGRowChangeEvent" msprop:Generator_RowClassName="TBEDI_XML_CONFIGRow">
<xs:element name="TBEDI_XML_CONFIG" msprop:Generator_TableClassName="TBEDI_XML_CONFIGDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_CONFIG" msprop:Generator_RowChangedName="TBEDI_XML_CONFIGRowChanged" msprop:Generator_TablePropName="TBEDI_XML_CONFIG" msprop:Generator_RowDeletingName="TBEDI_XML_CONFIGRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_CONFIGRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_CONFIGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_CONFIGRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_CONFIGRow" msprop:Generator_UserTableName="TBEDI_XML_CONFIG" msprop:Generator_RowEvArgName="TBEDI_XML_CONFIGRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -533,7 +533,7 @@ WHERE (GUID = @Original_GUID)</CommandText>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBEDI_XML_ITEMS" />
<xs:selector xpath=".//mstns:TBEDI_XML_TEMPLATE_ITEMS" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBEDI_XML_TYPES_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
@@ -555,11 +555,11 @@ WHERE (GUID = @Original_GUID)</CommandText>
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_FUNCTIONS" msdata:parentkey="FUNCTION_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_FUNCTIONS" msprop:Generator_ChildPropName="GetTBEDI_XML_FUNCTIONSRows" msprop:Generator_UserRelationName="TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRow" msprop:Generator_RelationVarName="relationTBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" />
<msdata:Relationship name="TBEDI_XML_ITEMS_TBEDI_XML_TYPES" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_TYPES" msdata:parentkey="XML_TYPE_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_TYPES" msprop:Generator_ChildPropName="GetTBEDI_XML_TYPESRows" msprop:Generator_UserRelationName="TBEDI_XML_ITEMS_TBEDI_XML_TYPES" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRow" msprop:Generator_RelationVarName="relationTBEDI_XML_ITEMS_TBEDI_XML_TYPES" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" />
<msdata:Relationship name="TBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msdata:parent="TBEDI_XML_NODES" msdata:child="TBEDI_XML_TEMPLATES" msdata:parentkey="TEMPLATE_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_TEMPLATES" msprop:Generator_ChildPropName="GetTBEDI_XML_TEMPLATESRows" msprop:Generator_UserRelationName="TBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msprop:Generator_RelationVarName="relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msprop:Generator_UserParentTable="TBEDI_XML_NODES" msprop:Generator_ParentPropName="TBEDI_XML_NODESRow" />
<msdata:Relationship name="FK_TBEDI_XML_TYPES" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_ITEMS" msdata:parentkey="GUID" msdata:childkey="XML_TYPE_ID" msprop:Generator_UserChildTable="TBEDI_XML_ITEMS" msprop:Generator_ChildPropName="GetTBEDI_XML_ITEMSRowsByFK_TBEDI_XML_TYPES" msprop:Generator_UserRelationName="FK_TBEDI_XML_TYPES" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRowParentByFK_TBEDI_XML_TYPES" msprop:Generator_RelationVarName="relationFK_TBEDI_XML_TYPES" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" />
<msdata:Relationship name="FK_TBEDI_XML_NODES" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_ITEMS" msdata:parentkey="GUID" msdata:childkey="XML_TABLE_ID" msprop:Generator_UserChildTable="TBEDI_XML_ITEMS" msprop:Generator_ChildPropName="GetTBEDI_XML_ITEMSRowsByFK_TBEDI_XML_NODES" msprop:Generator_UserRelationName="FK_TBEDI_XML_NODES" msprop:Generator_RelationVarName="relationFK_TBEDI_XML_NODES" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRowParentByFK_TBEDI_XML_NODES" />
<msdata:Relationship name="TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msdata:parent="TBEDI_XML_TEMPLATE_ITEMS" msdata:child="TBEDI_XML_FUNCTIONS" msdata:parentkey="FUNCTION_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_FUNCTIONS" msprop:Generator_ChildPropName="GetTBEDI_XML_FUNCTIONSRows" msprop:Generator_UserRelationName="TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msprop:Generator_RelationVarName="relationTBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msprop:Generator_UserParentTable="TBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRow" />
<msdata:Relationship name="TBEDI_XML_ITEMS_TBEDI_XML_TYPES" msdata:parent="TBEDI_XML_TEMPLATE_ITEMS" msdata:child="TBEDI_XML_TYPES" msdata:parentkey="XML_TYPE_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_TYPES" msprop:Generator_ChildPropName="GetTBEDI_XML_TYPESRows" msprop:Generator_UserRelationName="TBEDI_XML_ITEMS_TBEDI_XML_TYPES" msprop:Generator_RelationVarName="relationTBEDI_XML_ITEMS_TBEDI_XML_TYPES" msprop:Generator_UserParentTable="TBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRow" />
<msdata:Relationship name="TBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msdata:parent="TBEDI_XML_NODES" msdata:child="TBEDI_XML_TEMPLATES" msdata:parentkey="TEMPLATE_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_TEMPLATES" msprop:Generator_ChildPropName="GetTBEDI_XML_TEMPLATESRows" msprop:Generator_UserRelationName="TBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msprop:Generator_ParentPropName="TBEDI_XML_NODESRow" msprop:Generator_RelationVarName="relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msprop:Generator_UserParentTable="TBEDI_XML_NODES" />
<msdata:Relationship name="FK_TBEDI_XML_TYPES" msdata:parent="TBEDI_XML_TEMPLATE_ITEMS" msdata:child="TBEDI_XML_TEMPLATE_ITEMS" msdata:parentkey="GUID" msdata:childkey="XML_TYPE_ID" msprop:Generator_UserChildTable="TBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_ChildPropName="GetTBEDI_XML_TEMPLATE_ITEMSRowsByFK_TBEDI_XML_TYPES" msprop:Generator_UserRelationName="FK_TBEDI_XML_TYPES" msprop:Generator_RelationVarName="relationFK_TBEDI_XML_TYPES" msprop:Generator_UserParentTable="TBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_TEMPLATE_ITEMSRowParentByFK_TBEDI_XML_TYPES" />
<msdata:Relationship name="FK_TBEDI_XML_NODES" msdata:parent="TBEDI_XML_TEMPLATE_ITEMS" msdata:child="TBEDI_XML_TEMPLATE_ITEMS" msdata:parentkey="GUID" msdata:childkey="XML_TABLE_ID" msprop:Generator_UserChildTable="TBEDI_XML_TEMPLATE_ITEMS" msprop:Generator_ChildPropName="GetTBEDI_XML_TEMPLATE_ITEMSRowsByFK_TBEDI_XML_NODES" msprop:Generator_UserRelationName="FK_TBEDI_XML_NODES" msprop:Generator_ParentPropName="TBEDI_XML_TEMPLATE_ITEMSRowParentByFK_TBEDI_XML_NODES" msprop:Generator_RelationVarName="relationFK_TBEDI_XML_NODES" msprop:Generator_UserParentTable="TBEDI_XML_TEMPLATE_ITEMS" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

2
MultiTool.Form/DS_DD_ECM.xss
View File

@@ -6,7 +6,7 @@
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-60" ViewPortY="-55" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBEDI_XML_ITEMS" ZOrder="1" X="5" Y="8" Height="305" Width="252" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBEDI_XML_TEMPLATE_ITEMS" ZOrder="1" X="5" Y="8" Height="305" Width="252" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBEDI_XML_TYPES" ZOrder="11" X="525" Y="204" Height="115" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBEDI_XML_TEMPLATES" ZOrder="9" X="1069" Y="27" Height="134" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBEDI_XML_NODES" ZOrder="7" X="513" Y="22" Height="153" Width="257" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />

8
MultiTool.Form/frmConfig.Designer.vb generated
View File

@@ -48,7 +48,7 @@ Partial Class frmConfig
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.TBEDI_XML_ITEMSTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBEDI_XML_ITEMSTableAdapter()
Me.TBEDI_XML_TEMPLATE_ITEMSTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBEDI_XML_TEMPLATE_ITEMSTableAdapter()
Me.TBEDI_XML_CONFIGTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBEDI_XML_CONFIGTableAdapter()
Me.TableAdapterManager = New MultiTool.Form.DS_DD_ECMTableAdapters.TableAdapterManager()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -250,7 +250,7 @@ Partial Class frmConfig
'
'TBEDI_XML_ITEMSTableAdapter
'
Me.TBEDI_XML_ITEMSTableAdapter.ClearBeforeFill = True
Me.TBEDI_XML_TEMPLATE_ITEMSTableAdapter.ClearBeforeFill = True
'
'TBEDI_XML_CONFIGTableAdapter
'
@@ -261,7 +261,7 @@ Partial Class frmConfig
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBEDI_XML_CONFIGTableAdapter = Me.TBEDI_XML_CONFIGTableAdapter
Me.TableAdapterManager.TBEDI_XML_FUNCTIONSTableAdapter = Nothing
Me.TableAdapterManager.TBEDI_XML_ITEMSTableAdapter = Me.TBEDI_XML_ITEMSTableAdapter
Me.TableAdapterManager.TBEDI_XML_TEMPLATE_ITEMSTableAdapter = Me.TBEDI_XML_TEMPLATE_ITEMSTableAdapter
Me.TableAdapterManager.TBEDI_XML_NODESTableAdapter = Nothing
Me.TableAdapterManager.TBEDI_XML_TEMPLATESTableAdapter = Nothing
Me.TableAdapterManager.TBEDI_XML_TYPESTableAdapter = Nothing
@@ -413,7 +413,7 @@ Partial Class frmConfig
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents DS_DD_ECM As DS_DD_ECM
Friend WithEvents TBEDIXMLITEMSBindingSource As BindingSource
Friend WithEvents TBEDI_XML_ITEMSTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_ITEMSTableAdapter
Friend WithEvents TBEDI_XML_TEMPLATE_ITEMSTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_TEMPLATE_ITEMSTableAdapter
Friend WithEvents TBEDI_XML_CONFIGBindingSource As BindingSource
Friend WithEvents TBEDI_XML_CONFIGTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_CONFIGTableAdapter
Friend WithEvents TableAdapterManager As DS_DD_ECMTableAdapters.TableAdapterManager

6
MultiTool.Form/frmConfig.vb
View File

@@ -29,8 +29,8 @@ Public Class frmConfig
.InitialCatalog = "DD_ECM"
}
TBEDI_XML_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBEDI_XML_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_ITEMS)
TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS)
TBEDI_XML_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBEDI_XML_CONFIGTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_CONFIG)
@@ -42,7 +42,7 @@ Public Class frmConfig
TBEDI_XML_CONFIGTableAdapter.Update(DS_DD_ECM.TBEDI_XML_CONFIG)
TBEDIXMLITEMSBindingSource.EndEdit()
TBEDI_XML_ITEMSTableAdapter.Update(DS_DD_ECM.TBEDI_XML_ITEMS)
TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS)
Catch ex As Exception
FormHelper.ShowError(ex, "Speichern der Konfiguration")
End Try

21
MultiTool.Form/frmExportMain.Designer.vb generated
View File

@@ -23,7 +23,6 @@ Partial Class frmExportMain
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmExportMain))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.txtResults = New DevExpress.XtraBars.BarStaticItem()
@@ -40,7 +39,6 @@ Partial Class frmExportMain
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.GridControlDocuments = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocuments = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colSelected = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colImported = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RepositoryItemImageComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemImageComboBox()
Me.BooleanImages = New DevExpress.Utils.SvgImageCollection(Me.components)
@@ -233,22 +231,12 @@ Partial Class frmExportMain
'
'GridViewDocuments
'
Me.GridViewDocuments.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelected, Me.colImported, Me.colNumber, Me.colAccount, Me.GridColumn7, Me.colDate, Me.GridColumn5, Me.GridColumn6})
Me.GridViewDocuments.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colImported, Me.colNumber, Me.colAccount, Me.GridColumn7, Me.colDate, Me.GridColumn5, Me.GridColumn6})
Me.GridViewDocuments.GridControl = Me.GridControlDocuments
Me.GridViewDocuments.Name = "GridViewDocuments"
'
'colSelected
'
Me.colSelected.FieldName = "IsSelected"
Me.colSelected.ImageOptions.SvgImage = CType(resources.GetObject("colSelected.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.colSelected.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
Me.colSelected.MaxWidth = 27
Me.colSelected.MinWidth = 27
Me.colSelected.Name = "colSelected"
Me.colSelected.ToolTip = "Ausgewählt"
Me.colSelected.Visible = True
Me.colSelected.VisibleIndex = 0
Me.colSelected.Width = 27
Me.GridViewDocuments.OptionsSelection.CheckBoxSelectorField = "IsSelected"
Me.GridViewDocuments.OptionsSelection.MultiSelect = True
Me.GridViewDocuments.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
'
'colImported
'
@@ -714,7 +702,6 @@ Partial Class frmExportMain
Friend WithEvents colNumber As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colAccount As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colDate As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem

22
MultiTool.Form/frmExportMain.resx
View File

@@ -117,28 +117,10 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="colSelected.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFUCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku
WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4
N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk
aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBvbHlnb24gcG9pbnRzPSIyNyw0
IDExLDIwIDUsMTQgMiwxNyAxMSwyNiAzMCw3ICIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<metadata name="BooleanImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>189, 17</value>
</metadata>
<metadata name="BooleanImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>189, 17</value>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>87</value>
</metadata>
</root>

45
MultiTool.Form/frmExportMain.vb
View File

@@ -6,6 +6,7 @@ Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Imports MultiTool.Shared
Imports MultiTool.Shared.Templates
Imports MultiTool.Shared.Exceptions
Imports MultiTool.Shared.Winline
Imports MultiTool.Shared.Winline.Entities
@@ -57,7 +58,7 @@ Public Class frmExportMain
Winline = My.Winline
FileEx = New DigitalData.Modules.Filesystem.File(LogConfig)
WebService = New WebServiceData(LogConfig, My.GeneralConfiguration.Webservice, My.GeneralConfiguration)
WebService = New WebServiceData(LogConfig, Winline, My.GeneralConfiguration.Webservice, My.GeneralConfiguration)
AddHandler WebService.WebServiceProgress, AddressOf WebService_Progress
Catch ex As Exception
@@ -79,6 +80,12 @@ Public Class frmExportMain
lookupDocumentKind.Properties.DataSource = Winline.DocumentKinds
lookupDocumentKind.ForceInitialize()
lookupDocumentKind.Properties.View.BestFitColumns()
If ConfigManager.Config.LastUsedMandator <> "" Then
lookupMandator.EditValue = Winline.Mandators.
Where(Function(mandator) mandator.Id = ConfigManager.Config.LastUsedMandator).
FirstOrDefault()
End If
Catch ex As Exception
FormHelper.ShowError(ex, "Initialisierung der Form")
End Try
@@ -96,6 +103,9 @@ Public Class frmExportMain
Dim oMandator As Mandator = lookupMandator.EditValue
lookupAccount.Properties.DataSource = Winline.Accounts.Where(Function(acc) acc.Mandator.Equals(oMandator))
lookupDocumentKind.Properties.DataSource = Winline.DocumentKinds.Where(Function(kind) kind.Mandator.Equals(oMandator))
ConfigManager.Config.LastUsedMandator = oMandator.Id
ConfigManager.Save()
End Sub
Private Sub lookup_Properties_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) _
@@ -156,16 +166,33 @@ Public Class frmExportMain
Try
SplashScreenManager.ShowWaitForm()
Dim oDocument As Document = GridViewDocuments.GetRow(GridViewDocuments.FocusedRowHandle)
Dim oMandator As Mandator = lookupMandator.EditValue
Dim oExportResult = False
Dim oRowHandles = GridViewDocuments.GetSelectedRows()
Dim oExportCount = 0
Dim oExportResult = Await WebService.ExportDocumentFromWinline(oDocument, CurrentTemplate, oMandator)
For Each oRowHandle In oRowHandles
oExportCount += 1
If oExportResult = True Then
'TODO: Execute the FinalSql before exiting
'TODO: Replace a few numbers like account numbers back to GLNs
MsgBox("Datei wurde ergfolgreich exportiert!", MsgBoxStyle.Information, Text)
End If
Dim oDocument As Document = GridViewDocuments.GetRow(oRowHandle)
Dim oMandator As Mandator = lookupMandator.EditValue
Dim oMessage = String.Format("Beleg {0} exportieren.. ({1}/{2})", oDocument.Number, oExportCount, oRowHandles.Length)
SplashScreenManager.SetWaitFormDescription(oMessage)
Await WebService.ExportDocumentFromWinline(oDocument, CurrentTemplate, oMandator)
Dim oFinalSqlResult = Await Winline.ExecuteFinalSQL(oDocument, CurrentTemplate, oMandator)
If oFinalSqlResult = False Then
Throw New DatabaseException("FinalSQL was not executed successfully!")
End If
oDocument.IsExported = True
Next
MsgBox($"{oExportCount} Dateien wurde erfolgreich exportiert!", MsgBoxStyle.Information, Text)
Catch ex As MissingAttributeException
FormHelper.ShowError(ex, "Exportieren der Daten")
Catch ex As Exception
FormHelper.ShowError(ex, "Exportieren der Daten")

10
MultiTool.Form/frmImportMain.Designer.vb generated
View File

@@ -36,7 +36,6 @@ Partial Class frmImportMain
Me.colCreatedAt = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.colMandator = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.cmbMandators = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BandedGridColumn1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.txtFilesLoaded = New DevExpress.XtraBars.BarStaticItem()
Me.btnLoadFiles = New DevExpress.XtraBars.BarButtonItem()
@@ -162,7 +161,7 @@ Partial Class frmImportMain
'GridViewFiles
'
Me.GridViewFiles.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.gridBand1, Me.GridBand2})
Me.GridViewFiles.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colSelected, Me.colFilename, Me.colMandator, Me.colCreatedAt, Me.BandedGridColumn1})
Me.GridViewFiles.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colSelected, Me.colFilename, Me.colMandator, Me.colCreatedAt})
Me.GridViewFiles.GridControl = Me.GridControlFiles
Me.GridViewFiles.Name = "GridViewFiles"
Me.GridViewFiles.OptionsView.ShowBands = False
@@ -228,12 +227,6 @@ Partial Class frmImportMain
Me.cmbMandators.Items.AddRange(New Object() {resources.GetString("cmbMandators.Items")})
Me.cmbMandators.Name = "cmbMandators"
'
'BandedGridColumn1
'
resources.ApplyResources(Me.BandedGridColumn1, "BandedGridColumn1")
Me.BandedGridColumn1.FieldName = "Mandator"
Me.BandedGridColumn1.Name = "BandedGridColumn1"
'
'RibbonControl
'
Me.RibbonControl.ExpandCollapseItem.Id = 0
@@ -734,7 +727,6 @@ Partial Class frmImportMain
Friend WithEvents BarWorkspaceMenuItem1 As DevExpress.XtraBars.BarWorkspaceMenuItem
Friend WithEvents WorkspaceManager1 As DevExpress.Utils.WorkspaceManager
Friend WithEvents btnTestTransferFile As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BandedGridColumn1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents gridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
Friend WithEvents GridBand2 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem

12
MultiTool.Form/frmImportMain.resx
View File

@@ -196,12 +196,6 @@
<data name="GridBand2.Width" type="System.Int32, mscorlib">
<value>683</value>
</data>
<data name="BandedGridColumn1.Caption" xml:space="preserve">
<value>BandedGridColumn1</value>
</data>
<data name="BandedGridColumn1.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="txtFilesLoaded.Caption" xml:space="preserve">
<value>0 Dateien geladen</value>
</data>
@@ -356,12 +350,6 @@
<data name="&gt;&gt;cmbMandators.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BandedGridColumn1.Name" xml:space="preserve">
<value>BandedGridColumn1</value>
</data>
<data name="&gt;&gt;BandedGridColumn1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;txtFilesLoaded.Name" xml:space="preserve">
<value>txtFilesLoaded</value>
</data>

2
MultiTool.Form/frmImportMain.vb
View File

@@ -77,7 +77,7 @@ Public Class frmImportMain
Winline = My.Winline
FileEx = New DigitalData.Modules.Filesystem.File(LogConfig)
WebService = New WebServiceData(LogConfig, My.GeneralConfiguration.Webservice, My.GeneralConfiguration)
WebService = New WebServiceData(LogConfig, Winline, My.GeneralConfiguration.Webservice, My.GeneralConfiguration)
AddHandler WebService.WebServiceProgress, AddressOf WebService_Progress
Catch ex As Exception

98
MultiTool.Form/frmMain.vb
View File

@@ -74,9 +74,9 @@ Public Class frmMain
' Initialize Schemas
TemplateLoader = New TemplateLoader(LogConfig, Database)
Await TemplateLoader.LoadGeneralConfiguration()
Await TemplateLoader.LoadTemplates()
Await TemplateLoader.LoadTemplateConfiguration()
Await TemplateLoader.LoadGeneralConfiguration()
Await TemplateLoader.LoadMappingConfiguration()
Await TemplateLoader.LoadMandatorConfiguration()
@@ -123,49 +123,8 @@ Public Class frmMain
End Sub
Private Sub btnOpenImportExportForm_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenImportExportForm.ItemClick
Try
Dim oTemplate As Template = GridViewTemplates.GetRow(GridViewTemplates.FocusedRowHandle)
If oTemplate Is Nothing Then
MsgBox("Keine Vorlage ausgewählt! Bitte wählen Sie eine Vorlage aus!", MsgBoxStyle.Exclamation, Text)
Exit Sub
End If
' Initialize template tables
oTemplate.Tables = New List(Of Template.Table)
' Fill tables
oTemplate = TemplateLoader.UpdateTemplateFromFile(oTemplate, My.GeneralConfiguration.TemplateDirectory)
oTemplate = TemplateLoader.UpdateTemplateFromDatabase(oTemplate)
oTemplate = TemplateLoader.UpdateTemplateTablesFromDatabase(oTemplate, TemplateLoader.TemplateConfiguration)
Dim oBaseDirectories As New List(Of String) From {
oTemplate.InputDirectory,
oTemplate.OutputDirectory,
oTemplate.ArchiveDirectory
}
Dim oOutputDirectories As New List(Of String) From {
oTemplate.OutputReportDirectory,
oTemplate.OutputWebserviceDirectory,
oTemplate.OutputXmlFileDirectory
}
If TryCreateTemplateDirectories(oBaseDirectories) Then
If TryCreateTemplateDirectories(oOutputDirectories) Then
If oTemplate.IsImport Then
Dim oForm As New frmImportMain(LogConfig, ConfigManager, oTemplate)
oForm.ShowDialog()
Else
Dim oForm As New frmExportMain(LogConfig, ConfigManager, oTemplate)
oForm.ShowDialog()
End If
End If
End If
Catch ex As Exception
FormHelper.ShowError(ex, My.Resources.frmMainExtra.Laden_der_Vorlage)
End Try
Dim oTemplate As Template = GridViewTemplates.GetRow(GridViewTemplates.FocusedRowHandle)
OpenImportExportForm(oTemplate)
End Sub
Private Function TryCreateTemplateDirectories(pDirectories As List(Of String)) As Boolean
@@ -207,4 +166,55 @@ Public Class frmMain
Private Sub btnOpenSchemaDirectory_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenSchemaDirectory.ItemClick
FormHelper.TryOpenDirectory(My.GeneralConfiguration.TemplateDirectory, My.Resources.frmImportMainExtra.Vorlagenverzeichnis)
End Sub
Private Sub GridViewTemplates_DoubleClick(sender As Object, e As EventArgs) Handles GridViewTemplates.DoubleClick
Dim oTemplate As Template = GridViewTemplates.GetRow(GridViewTemplates.FocusedRowHandle)
OpenImportExportForm(oTemplate)
End Sub
Private Sub OpenImportExportForm(pTemplate As Template)
Try
If pTemplate Is Nothing Then
MsgBox("Keine Vorlage ausgewählt! Bitte wählen Sie eine Vorlage aus!", MsgBoxStyle.Exclamation, Text)
Exit Sub
End If
' Initialize template tables
pTemplate.Tables = New List(Of Template.Table)
' Fill tables
pTemplate = TemplateLoader.UpdateTemplateFromFile(pTemplate, My.GeneralConfiguration.TemplateDirectory)
pTemplate = TemplateLoader.UpdateTemplateFromDatabase(pTemplate)
pTemplate = TemplateLoader.UpdateTemplateTablesFromDatabase(pTemplate, TemplateLoader.TemplateConfiguration)
Dim oBaseDirectories As New List(Of String) From {
pTemplate.InputDirectory,
pTemplate.OutputDirectory,
pTemplate.ArchiveDirectory
}
Dim oOutputDirectories As New List(Of String) From {
pTemplate.OutputReportDirectory,
pTemplate.OutputWebserviceDirectory,
pTemplate.OutputXmlFileDirectory
}
If TryCreateTemplateDirectories(oBaseDirectories) Then
If TryCreateTemplateDirectories(oOutputDirectories) Then
If pTemplate.IsImport Then
Dim oForm As New frmImportMain(LogConfig, ConfigManager, pTemplate)
oForm.ShowDialog()
Else
Dim oForm As New frmExportMain(LogConfig, ConfigManager, pTemplate)
oForm.ShowDialog()
End If
End If
End If
Catch ex As Exception
FormHelper.ShowError(ex, My.Resources.frmMainExtra.Laden_der_Vorlage)
End Try
End Sub
End Class