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
Show Stats 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 Partial Public Class DS_DD_ECM
Inherits Global.System.Data.DataSet 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 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 If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() 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))) ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (Not (ds.Tables("TBEDI_XML_ITEMS")) Is Nothing) Then If (Not (ds.Tables("TBEDI_XML_TEMPLATE_ITEMS")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_ITEMSDataTable(ds.Tables("TBEDI_XML_ITEMS"))) MyBase.Tables.Add(New TBEDI_XML_TEMPLATE_ITEMSDataTable(ds.Tables("TBEDI_XML_TEMPLATE_ITEMS")))
End If End If
If (Not (ds.Tables("TBEDI_XML_TYPES")) Is Nothing) Then If (Not (ds.Tables("TBEDI_XML_TYPES")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_TYPESDataTable(ds.Tables("TBEDI_XML_TYPES"))) 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.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ 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 Get
Return Me.tableTBEDI_XML_ITEMS Return Me.tableTBEDI_XML_TEMPLATE_ITEMS
End Get End Get
End Property End Property
@ -238,8 +238,8 @@ Partial Public Class DS_DD_ECM
Me.Reset Me.Reset
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader) ds.ReadXml(reader)
If (Not (ds.Tables("TBEDI_XML_ITEMS")) Is Nothing) Then If (Not (ds.Tables("TBEDI_XML_TEMPLATE_ITEMS")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_ITEMSDataTable(ds.Tables("TBEDI_XML_ITEMS"))) MyBase.Tables.Add(New TBEDI_XML_TEMPLATE_ITEMSDataTable(ds.Tables("TBEDI_XML_TEMPLATE_ITEMS")))
End If End If
If (Not (ds.Tables("TBEDI_XML_TYPES")) Is Nothing) Then If (Not (ds.Tables("TBEDI_XML_TYPES")) Is Nothing) Then
MyBase.Tables.Add(New TBEDI_XML_TYPESDataTable(ds.Tables("TBEDI_XML_TYPES"))) 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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean) 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 (initTable = true) Then
If (Not (Me.tableTBEDI_XML_ITEMS) Is Nothing) Then If (Not (Me.tableTBEDI_XML_TEMPLATE_ITEMS) Is Nothing) Then
Me.tableTBEDI_XML_ITEMS.InitVars Me.tableTBEDI_XML_TEMPLATE_ITEMS.InitVars
End If End If
End If End If
Me.tableTBEDI_XML_TYPES = CType(MyBase.Tables("TBEDI_XML_TYPES"),TBEDI_XML_TYPESDataTable) 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.Namespace = "http://tempuri.org/DS_DD_ECM.xsd"
Me.EnforceConstraints = true Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBEDI_XML_ITEMS = New TBEDI_XML_ITEMSDataTable() Me.tableTBEDI_XML_TEMPLATE_ITEMS = New TBEDI_XML_TEMPLATE_ITEMSDataTable()
MyBase.Tables.Add(Me.tableTBEDI_XML_ITEMS) MyBase.Tables.Add(Me.tableTBEDI_XML_TEMPLATE_ITEMS)
Me.tableTBEDI_XML_TYPES = New TBEDI_XML_TYPESDataTable() Me.tableTBEDI_XML_TYPES = New TBEDI_XML_TYPESDataTable()
MyBase.Tables.Add(Me.tableTBEDI_XML_TYPES) MyBase.Tables.Add(Me.tableTBEDI_XML_TYPES)
Me.tableTBEDI_XML_TEMPLATES = New TBEDI_XML_TEMPLATESDataTable() 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) MyBase.Tables.Add(Me.tableTBEDI_XML_FUNCTIONS)
Me.tableTBEDI_XML_CONFIG = New TBEDI_XML_CONFIGDataTable() Me.tableTBEDI_XML_CONFIG = New TBEDI_XML_CONFIGDataTable()
MyBase.Tables.Add(Me.tableTBEDI_XML_CONFIG) 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.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.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.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.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.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) Me.Relations.Add(Me.relationFK_TBEDI_XML_NODES)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 Return false
End Function End Function
@ -458,7 +458,7 @@ Partial Public Class DS_DD_ECM
End Function End Function
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ <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")> _ <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) 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> '''</summary>
<Global.System.Serializable(), _ <Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBEDI_XML_ITEMSDataTable Partial Public Class TBEDI_XML_TEMPLATE_ITEMSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBEDI_XML_ITEMSRow) Inherits Global.System.Data.TypedTableBase(Of TBEDI_XML_TEMPLATE_ITEMSRow)
Private columnGUID As Global.System.Data.DataColumn 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New() Public Sub New()
MyBase.New MyBase.New
Me.TableName = "TBEDI_XML_ITEMS" Me.TableName = "TBEDI_XML_TEMPLATE_ITEMS"
Me.BeginInit Me.BeginInit
Me.InitClass Me.InitClass
Me.EndInit Me.EndInit
@ -679,56 +679,56 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 Get
Return CType(Me.Rows(index),TBEDI_XML_ITEMSRow) Return CType(Me.Rows(index),TBEDI_XML_TEMPLATE_ITEMSRow)
End Get End Get
End Property End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ <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")> _ <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")> _ <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")> _ <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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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) Me.Rows.Add(row)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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_ITEMSRow As TBEDI_XML_ITEMSRow = CType(Me.NewRow,TBEDI_XML_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} 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 If (Not (parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_TYPES) Is Nothing) Then
columnValuesArray(2) = parentTBEDI_XML_ITEMSRowByFK_TBEDI_XML_TYPES(0) columnValuesArray(2) = parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_TYPES(0)
End If End If
If (Not (parentTBEDI_XML_ITEMSRowByFK_TBEDI_XML_NODES) Is Nothing) Then If (Not (parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_NODES) Is Nothing) Then
columnValuesArray(8) = parentTBEDI_XML_ITEMSRowByFK_TBEDI_XML_NODES(0) columnValuesArray(8) = parentTBEDI_XML_TEMPLATE_ITEMSRowByFK_TBEDI_XML_NODES(0)
End If End If
rowTBEDI_XML_ITEMSRow.ItemArray = columnValuesArray rowTBEDI_XML_TEMPLATE_ITEMSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBEDI_XML_ITEMSRow) Me.Rows.Add(rowTBEDI_XML_TEMPLATE_ITEMSRow)
Return rowTBEDI_XML_ITEMSRow Return rowTBEDI_XML_TEMPLATE_ITEMSRow
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As 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_ITEMSRow) Return CType(Me.Rows.Find(New Object() {GUID}),TBEDI_XML_TEMPLATE_ITEMSRow)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable 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 cln.InitVars
Return cln Return cln
End Function End Function
@ -736,7 +736,7 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBEDI_XML_ITEMSDataTable() Return New TBEDI_XML_TEMPLATE_ITEMSDataTable()
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -816,28 +816,28 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function NewTBEDI_XML_ITEMSRow() As TBEDI_XML_ITEMSRow Public Function NewTBEDI_XML_TEMPLATE_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow
Return CType(Me.NewRow,TBEDI_XML_ITEMSRow) Return CType(Me.NewRow,TBEDI_XML_TEMPLATE_ITEMSRow)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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 End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBEDI_XML_ITEMSRow) Return GetType(TBEDI_XML_TEMPLATE_ITEMSRow)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e) MyBase.OnRowChanged(e)
If (Not (Me.TBEDI_XML_ITEMSRowChangedEvent) Is Nothing) Then If (Not (Me.TBEDI_XML_TEMPLATE_ITEMSRowChangedEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_ITEMSRowChanged(Me, New TBEDI_XML_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_ITEMSRow), e.Action)) RaiseEvent TBEDI_XML_TEMPLATE_ITEMSRowChanged(Me, New TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_TEMPLATE_ITEMSRow), e.Action))
End If End If
End Sub 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e) MyBase.OnRowChanging(e)
If (Not (Me.TBEDI_XML_ITEMSRowChangingEvent) Is Nothing) Then If (Not (Me.TBEDI_XML_TEMPLATE_ITEMSRowChangingEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_ITEMSRowChanging(Me, New TBEDI_XML_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_ITEMSRow), e.Action)) RaiseEvent TBEDI_XML_TEMPLATE_ITEMSRowChanging(Me, New TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_TEMPLATE_ITEMSRow), e.Action))
End If End If
End Sub 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e) MyBase.OnRowDeleted(e)
If (Not (Me.TBEDI_XML_ITEMSRowDeletedEvent) Is Nothing) Then If (Not (Me.TBEDI_XML_TEMPLATE_ITEMSRowDeletedEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_ITEMSRowDeleted(Me, New TBEDI_XML_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_ITEMSRow), e.Action)) RaiseEvent TBEDI_XML_TEMPLATE_ITEMSRowDeleted(Me, New TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_TEMPLATE_ITEMSRow), e.Action))
End If End If
End Sub 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e) MyBase.OnRowDeleting(e)
If (Not (Me.TBEDI_XML_ITEMSRowDeletingEvent) Is Nothing) Then If (Not (Me.TBEDI_XML_TEMPLATE_ITEMSRowDeletingEvent) Is Nothing) Then
RaiseEvent TBEDI_XML_ITEMSRowDeleting(Me, New TBEDI_XML_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_ITEMSRow), e.Action)) RaiseEvent TBEDI_XML_TEMPLATE_ITEMSRowDeleting(Me, New TBEDI_XML_TEMPLATE_ITEMSRowChangeEvent(CType(e.Row,TBEDI_XML_TEMPLATE_ITEMSRow), e.Action))
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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) Me.Rows.Remove(row)
End Sub End Sub
@ -897,7 +897,7 @@ Partial Public Class DS_DD_ECM
type.Attributes.Add(attribute1) type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName" attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBEDI_XML_ITEMSDataTable" attribute2.FixedValue = "TBEDI_XML_TEMPLATE_ITEMSDataTable"
type.Attributes.Add(attribute2) type.Attributes.Add(attribute2)
type.Particle = sequence type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
@ -2477,26 +2477,26 @@ Partial Public Class DS_DD_ECM
'''<summary> '''<summary>
'''Represents strongly named DataRow class. '''Represents strongly named DataRow class.
'''</summary> '''</summary>
Partial Public Class TBEDI_XML_ITEMSRow Partial Public Class TBEDI_XML_TEMPLATE_ITEMSRow
Inherits Global.System.Data.DataRow 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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb) 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 End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property GUID() As Integer Public Property GUID() As Integer
Get Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.GUIDColumn),Integer) Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.GUIDColumn),Integer)
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.GUIDColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.GUIDColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property XML_NAME() As String Public Property XML_NAME() As String
Get Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.XML_NAMEColumn),String) Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_NAMEColumn),String)
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.XML_NAMEColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_NAMEColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property XML_TYPE_ID() As Integer Public Property XML_TYPE_ID() As Integer
Get 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 End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.XML_TYPE_IDColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TYPE_IDColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IS_READ_ONLY() As Boolean Public Property IS_READ_ONLY() As Boolean
Get 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 End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.IS_READ_ONLYColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_READ_ONLYColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IS_VISIBLE() As Boolean Public Property IS_VISIBLE() As Boolean
Get Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.IS_VISIBLEColumn),Boolean) Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_VISIBLEColumn),Boolean)
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.IS_VISIBLEColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_VISIBLEColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ORDER_KEY() As Integer Public Property ORDER_KEY() As Integer
Get Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.ORDER_KEYColumn),Integer) Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ORDER_KEYColumn),Integer)
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.ORDER_KEYColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ORDER_KEYColumn) = value
End Set End Set
End Property End Property
@ -2560,13 +2560,13 @@ Partial Public Class DS_DD_ECM
Public Property FUNCTION_ID() As Integer Public Property FUNCTION_ID() As Integer
Get Get
Try 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 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 Try
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.FUNCTION_IDColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_IDColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IS_REQUIRED() As Boolean Public Property IS_REQUIRED() As Boolean
Get Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.IS_REQUIREDColumn),Boolean) Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_REQUIREDColumn),Boolean)
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.IS_REQUIREDColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_REQUIREDColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property XML_TABLE_ID() As Integer Public Property XML_TABLE_ID() As Integer
Get 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 End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.XML_TABLE_IDColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TABLE_IDColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IS_VIRTUAL() As Boolean Public Property IS_VIRTUAL() As Boolean
Get Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.IS_VIRTUALColumn),Boolean) Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_VIRTUALColumn),Boolean)
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.IS_VIRTUALColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.IS_VIRTUALColumn) = value
End Set End Set
End Property End Property
@ -2608,13 +2608,14 @@ Partial Public Class DS_DD_ECM
Public Property FUNCTION_PARAMETERS() As String Public Property FUNCTION_PARAMETERS() As String
Get Get
Try 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 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 Try
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.FUNCTION_PARAMETERSColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_PARAMETERSColumn) = value
End Set End Set
End Property 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ADDED_WHO() As String Public Property ADDED_WHO() As String
Get Get
Return CType(Me(Me.tableTBEDI_XML_ITEMS.ADDED_WHOColumn),String) Return CType(Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_WHOColumn),String)
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.ADDED_WHOColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_WHOColumn) = value
End Set End Set
End Property End Property
@ -2634,13 +2635,13 @@ Partial Public Class DS_DD_ECM
Public Property ADDED_WHEN() As Date Public Property ADDED_WHEN() As Date
Get Get
Try 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 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 Try
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.ADDED_WHENColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.ADDED_WHENColumn) = value
End Set End Set
End Property End Property
@ -2649,13 +2650,13 @@ Partial Public Class DS_DD_ECM
Public Property CHANGED_WHO() As String Public Property CHANGED_WHO() As String
Get Get
Try 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 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 Try
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.CHANGED_WHOColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHOColumn) = value
End Set End Set
End Property End Property
@ -2664,21 +2665,21 @@ Partial Public Class DS_DD_ECM
Public Property CHANGED_WHEN() As Date Public Property CHANGED_WHEN() As Date
Get Get
Try 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 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 Try
End Get End Get
Set Set
Me(Me.tableTBEDI_XML_ITEMS.CHANGED_WHENColumn) = value Me(Me.tableTBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHENColumn) = value
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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 End Get
Set Set
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBEDI_XML_TYPES")) 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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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 End Get
Set Set
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBEDI_XML_NODES")) 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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsFUNCTION_IDNull() As Boolean 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 End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetFUNCTION_IDNull() 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 End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsFUNCTION_PARAMETERSNull() As Boolean 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 End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetFUNCTION_PARAMETERSNull() 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 End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean 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 End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetADDED_WHENNull() 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 End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean 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 End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetCHANGED_WHONull() 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 End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean 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 End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetCHANGED_WHENNull() 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 End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -2778,21 +2779,21 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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 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 If
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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 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 If
End Function End Function
End Class End Class
@ -2836,9 +2837,9 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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 End Get
Set Set
Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_TYPES")) 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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 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 End Get
Set Set
Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS")) 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 '''Row event argument class
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ <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 Inherits Global.System.EventArgs
Private eventRow As TBEDI_XML_ITEMSRow Private eventRow As TBEDI_XML_TEMPLATE_ITEMSRow
Private eventAction As Global.System.Data.DataRowAction Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 MyBase.New
Me.eventRow = row Me.eventRow = row
Me.eventAction = action Me.eventAction = action
@ -3241,7 +3242,7 @@ Partial Public Class DS_DD_ECM
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 Get
Return Me.eventRow Return Me.eventRow
End Get End Get
@ -3448,7 +3449,7 @@ Namespace DS_DD_ECMTableAdapters
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ 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 Inherits Global.System.ComponentModel.Component
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter 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() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table" tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "TBEDI_XML_ITEMS" tableMapping.DataSetTable = "TBEDI_XML_TEMPLATE_ITEMS"
tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("XML_NAME", "XML_NAME") tableMapping.ColumnMappings.Add("XML_NAME", "XML_NAME")
tableMapping.ColumnMappings.Add("XML_TYPE_ID", "XML_TYPE_ID") 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.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ 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) Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then If (Me.ClearBeforeFill = true) Then
dataTable.Clear 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.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ 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) 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) Me.Adapter.Fill(dataTable)
Return dataTable Return dataTable
End Function End Function
@ -3688,7 +3689,7 @@ Namespace DS_DD_ECMTableAdapters
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ 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) Return Me.Adapter.Update(dataTable)
End Function 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.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DS_DD_ECM) As Integer 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 End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -5550,7 +5551,7 @@ Namespace DS_DD_ECMTableAdapters
Private _updateOrder As UpdateOrderOption 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 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"& _ Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _ "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _ "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 Get
Return Me._tBEDI_XML_ITEMSTableAdapter Return Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter
End Get End Get
Set Set
Me._tBEDI_XML_ITEMSTableAdapter = value Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter = value
End Set End Set
End Property End Property
@ -5680,9 +5681,9 @@ Namespace DS_DD_ECMTableAdapters
If (Not (Me._connection) Is Nothing) Then If (Not (Me._connection) Is Nothing) Then
Return Me._connection Return Me._connection
End If End If
If ((Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) _ If ((Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBEDI_XML_ITEMSTableAdapter.Connection) Is Nothing)) Then AndAlso (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection) Is Nothing)) Then
Return Me._tBEDI_XML_ITEMSTableAdapter.Connection Return Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection
End If End If
If ((Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) _ If ((Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBEDI_XML_TYPESTableAdapter.Connection) Is Nothing)) Then AndAlso (Not (Me._tBEDI_XML_TYPESTableAdapter.Connection) Is Nothing)) Then
@ -5717,7 +5718,7 @@ Namespace DS_DD_ECMTableAdapters
Public ReadOnly Property TableAdapterInstanceCount() As Integer Public ReadOnly Property TableAdapterInstanceCount() As Integer
Get Get
Dim count As Integer = 0 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) count = (count + 1)
End If End If
If (Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) Then 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")> _ 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 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 Dim result As Integer = 0
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) 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) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
If ((Not (updatedRows) Is Nothing) _ If ((Not (updatedRows) Is Nothing) _
AndAlso (0 < updatedRows.Length)) Then AndAlso (0 < updatedRows.Length)) Then
Me.SortSelfReferenceRows(updatedRows, dataSet.Relations("FK_TBEDI_XML_TYPES"), false) 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. '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) 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) allChangedRows.AddRange(updatedRows)
End If End If
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")> _ 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 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 Dim result As Integer = 0
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) 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) _ If ((Not (addedRows) Is Nothing) _
AndAlso (0 < addedRows.Length)) Then AndAlso (0 < addedRows.Length)) Then
Me.SortSelfReferenceRows(addedRows, dataSet.Relations("FK_TBEDI_XML_TYPES"), false) 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. '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) 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) allAddedRows.AddRange(addedRows)
End If End If
End If End If
@ -5914,14 +5915,14 @@ Namespace DS_DD_ECMTableAdapters
allChangedRows.AddRange(deletedRows) allChangedRows.AddRange(deletedRows)
End If End If
End If End If
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) 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) _ If ((Not (deletedRows) Is Nothing) _
AndAlso (0 < deletedRows.Length)) Then AndAlso (0 < deletedRows.Length)) Then
Me.SortSelfReferenceRows(deletedRows, dataSet.Relations("FK_TBEDI_XML_TYPES"), true) 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. '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) 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) allChangedRows.AddRange(deletedRows)
End If End If
End If End If
@ -5966,8 +5967,8 @@ Namespace DS_DD_ECMTableAdapters
If (dataSet.HasChanges = false) Then If (dataSet.HasChanges = false) Then
Return 0 Return 0
End If End If
If ((Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) _ If ((Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBEDI_XML_ITEMSTableAdapter.Connection) = false)) Then 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"& _ Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.") "s die gleiche Verbindungszeichenfolge verwendet werden.")
End If End If
@ -6030,13 +6031,13 @@ Namespace DS_DD_ECMTableAdapters
Try Try
'---- Prepare for update ----------- '---- Prepare for update -----------
' '
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBEDI_XML_ITEMSTableAdapter, Me._tBEDI_XML_ITEMSTableAdapter.Connection) revertConnections.Add(Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter, Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection)
Me._tBEDI_XML_ITEMSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBEDI_XML_ITEMSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBEDI_XML_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate Then If Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBEDI_XML_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate = false Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEDI_XML_ITEMSTableAdapter.Adapter) adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Adapter)
End If End If
End If End If
If (Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) Then If (Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) Then
@ -6144,9 +6145,9 @@ Namespace DS_DD_ECMTableAdapters
If workConnOpened Then If workConnOpened Then
workConnection.Close workConnection.Close
End If End If
If (Not (Me._tBEDI_XML_ITEMSTableAdapter) Is Nothing) Then If (Not (Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter) Is Nothing) Then
Me._tBEDI_XML_ITEMSTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_ITEMSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBEDI_XML_ITEMSTableAdapter.Transaction = Nothing Me._tBEDI_XML_TEMPLATE_ITEMSTableAdapter.Transaction = Nothing
End If End If
If (Not (Me._tBEDI_XML_TYPESTableAdapter) Is Nothing) Then 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) 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" /> <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> </Connections>
<Tables> <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> <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"> <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> <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: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:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded"> <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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:choice>
</xs:complexType> </xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true"> <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:field xpath="mstns:GUID" />
</xs:unique> </xs:unique>
<xs:unique name="TBEDI_XML_TYPES_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <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:element>
<xs:annotation> <xs:annotation>
<xs:appinfo> <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_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_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_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_RelationVarName="relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msprop:Generator_UserParentTable="TBEDI_XML_NODES" msprop:Generator_ParentPropName="TBEDI_XML_NODESRow" /> <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_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_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_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="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:appinfo>
</xs:annotation> </xs:annotation>
</xs:schema> </xs:schema>

2
MultiTool.Form/DS_DD_ECM.xss
View File

@ -6,7 +6,7 @@
</autogenerated>--> </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"> <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> <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_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_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" /> <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.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() 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.TBEDI_XML_CONFIGTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBEDI_XML_CONFIGTableAdapter()
Me.TableAdapterManager = New MultiTool.Form.DS_DD_ECMTableAdapters.TableAdapterManager() Me.TableAdapterManager = New MultiTool.Form.DS_DD_ECMTableAdapters.TableAdapterManager()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
@ -250,7 +250,7 @@ Partial Class frmConfig
' '
'TBEDI_XML_ITEMSTableAdapter 'TBEDI_XML_ITEMSTableAdapter
' '
Me.TBEDI_XML_ITEMSTableAdapter.ClearBeforeFill = True Me.TBEDI_XML_TEMPLATE_ITEMSTableAdapter.ClearBeforeFill = True
' '
'TBEDI_XML_CONFIGTableAdapter 'TBEDI_XML_CONFIGTableAdapter
' '
@ -261,7 +261,7 @@ Partial Class frmConfig
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBEDI_XML_CONFIGTableAdapter = Me.TBEDI_XML_CONFIGTableAdapter Me.TableAdapterManager.TBEDI_XML_CONFIGTableAdapter = Me.TBEDI_XML_CONFIGTableAdapter
Me.TableAdapterManager.TBEDI_XML_FUNCTIONSTableAdapter = Nothing 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_NODESTableAdapter = Nothing
Me.TableAdapterManager.TBEDI_XML_TEMPLATESTableAdapter = Nothing Me.TableAdapterManager.TBEDI_XML_TEMPLATESTableAdapter = Nothing
Me.TableAdapterManager.TBEDI_XML_TYPESTableAdapter = 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 GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents DS_DD_ECM As DS_DD_ECM Friend WithEvents DS_DD_ECM As DS_DD_ECM
Friend WithEvents TBEDIXMLITEMSBindingSource As BindingSource 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_CONFIGBindingSource As BindingSource
Friend WithEvents TBEDI_XML_CONFIGTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_CONFIGTableAdapter Friend WithEvents TBEDI_XML_CONFIGTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_CONFIGTableAdapter
Friend WithEvents TableAdapterManager As DS_DD_ECMTableAdapters.TableAdapterManager 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" .InitialCatalog = "DD_ECM"
} }
TBEDI_XML_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString() TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBEDI_XML_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_ITEMS) TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS)
TBEDI_XML_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString() TBEDI_XML_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBEDI_XML_CONFIGTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_CONFIG) 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) TBEDI_XML_CONFIGTableAdapter.Update(DS_DD_ECM.TBEDI_XML_CONFIG)
TBEDIXMLITEMSBindingSource.EndEdit() 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 Catch ex As Exception
FormHelper.ShowError(ex, "Speichern der Konfiguration") FormHelper.ShowError(ex, "Speichern der Konfiguration")
End Try End Try

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

@ -23,7 +23,6 @@ Partial Class frmExportMain
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() 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.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.txtResults = New DevExpress.XtraBars.BarStaticItem() Me.txtResults = New DevExpress.XtraBars.BarStaticItem()
@ -40,7 +39,6 @@ Partial Class frmExportMain
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.GridControlDocuments = New DevExpress.XtraGrid.GridControl() Me.GridControlDocuments = New DevExpress.XtraGrid.GridControl()
Me.GridViewDocuments = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewDocuments = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colSelected = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colImported = New DevExpress.XtraGrid.Columns.GridColumn() Me.colImported = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RepositoryItemImageComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemImageComboBox() Me.RepositoryItemImageComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemImageComboBox()
Me.BooleanImages = New DevExpress.Utils.SvgImageCollection(Me.components) Me.BooleanImages = New DevExpress.Utils.SvgImageCollection(Me.components)
@ -233,22 +231,12 @@ Partial Class frmExportMain
' '
'GridViewDocuments '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.GridControl = Me.GridControlDocuments
Me.GridViewDocuments.Name = "GridViewDocuments" Me.GridViewDocuments.Name = "GridViewDocuments"
' Me.GridViewDocuments.OptionsSelection.CheckBoxSelectorField = "IsSelected"
'colSelected Me.GridViewDocuments.OptionsSelection.MultiSelect = True
' Me.GridViewDocuments.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
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
' '
'colImported 'colImported
' '
@ -714,7 +702,6 @@ Partial Class frmExportMain
Friend WithEvents colNumber As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNumber As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colAccount As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colAccount As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colDate 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 LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem

22
MultiTool.Form/frmExportMain.resx
View File

@ -117,28 +117,10 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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"> <metadata name="BooleanImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>189, 17</value> <value>189, 17</value>
</metadata> </metadata>
<metadata name="BooleanImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>189, 17</value> <value>87</value>
</metadata> </metadata>
</root> </root>

45
MultiTool.Form/frmExportMain.vb
View File

@ -6,6 +6,7 @@ Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports MultiTool.Shared Imports MultiTool.Shared
Imports MultiTool.Shared.Templates Imports MultiTool.Shared.Templates
Imports MultiTool.Shared.Exceptions
Imports MultiTool.Shared.Winline Imports MultiTool.Shared.Winline
Imports MultiTool.Shared.Winline.Entities Imports MultiTool.Shared.Winline.Entities
@ -57,7 +58,7 @@ Public Class frmExportMain
Winline = My.Winline Winline = My.Winline
FileEx = New DigitalData.Modules.Filesystem.File(LogConfig) 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 AddHandler WebService.WebServiceProgress, AddressOf WebService_Progress
Catch ex As Exception Catch ex As Exception
@ -79,6 +80,12 @@ Public Class frmExportMain
lookupDocumentKind.Properties.DataSource = Winline.DocumentKinds lookupDocumentKind.Properties.DataSource = Winline.DocumentKinds
lookupDocumentKind.ForceInitialize() lookupDocumentKind.ForceInitialize()
lookupDocumentKind.Properties.View.BestFitColumns() 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 Catch ex As Exception
FormHelper.ShowError(ex, "Initialisierung der Form") FormHelper.ShowError(ex, "Initialisierung der Form")
End Try End Try
@ -96,6 +103,9 @@ Public Class frmExportMain
Dim oMandator As Mandator = lookupMandator.EditValue Dim oMandator As Mandator = lookupMandator.EditValue
lookupAccount.Properties.DataSource = Winline.Accounts.Where(Function(acc) acc.Mandator.Equals(oMandator)) lookupAccount.Properties.DataSource = Winline.Accounts.Where(Function(acc) acc.Mandator.Equals(oMandator))
lookupDocumentKind.Properties.DataSource = Winline.DocumentKinds.Where(Function(kind) kind.Mandator.Equals(oMandator)) lookupDocumentKind.Properties.DataSource = Winline.DocumentKinds.Where(Function(kind) kind.Mandator.Equals(oMandator))
ConfigManager.Config.LastUsedMandator = oMandator.Id
ConfigManager.Save()
End Sub End Sub
Private Sub lookup_Properties_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) _ Private Sub lookup_Properties_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) _
@ -156,16 +166,33 @@ Public Class frmExportMain
Try Try
SplashScreenManager.ShowWaitForm() SplashScreenManager.ShowWaitForm()
Dim oDocument As Document = GridViewDocuments.GetRow(GridViewDocuments.FocusedRowHandle) Dim oExportResult = False
Dim oMandator As Mandator = lookupMandator.EditValue 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 Dim oDocument As Document = GridViewDocuments.GetRow(oRowHandle)
'TODO: Execute the FinalSql before exiting Dim oMandator As Mandator = lookupMandator.EditValue
'TODO: Replace a few numbers like account numbers back to GLNs
MsgBox("Datei wurde ergfolgreich exportiert!", MsgBoxStyle.Information, Text) Dim oMessage = String.Format("Beleg {0} exportieren.. ({1}/{2})", oDocument.Number, oExportCount, oRowHandles.Length)
End If 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 Catch ex As Exception
FormHelper.ShowError(ex, "Exportieren der Daten") 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.colCreatedAt = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.colMandator = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() Me.colMandator = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.cmbMandators = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.cmbMandators = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BandedGridColumn1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.txtFilesLoaded = New DevExpress.XtraBars.BarStaticItem() Me.txtFilesLoaded = New DevExpress.XtraBars.BarStaticItem()
Me.btnLoadFiles = New DevExpress.XtraBars.BarButtonItem() Me.btnLoadFiles = New DevExpress.XtraBars.BarButtonItem()
@ -162,7 +161,7 @@ Partial Class frmImportMain
'GridViewFiles 'GridViewFiles
' '
Me.GridViewFiles.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.gridBand1, Me.GridBand2}) 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.GridControl = Me.GridControlFiles
Me.GridViewFiles.Name = "GridViewFiles" Me.GridViewFiles.Name = "GridViewFiles"
Me.GridViewFiles.OptionsView.ShowBands = False Me.GridViewFiles.OptionsView.ShowBands = False
@ -228,12 +227,6 @@ Partial Class frmImportMain
Me.cmbMandators.Items.AddRange(New Object() {resources.GetString("cmbMandators.Items")}) Me.cmbMandators.Items.AddRange(New Object() {resources.GetString("cmbMandators.Items")})
Me.cmbMandators.Name = "cmbMandators" Me.cmbMandators.Name = "cmbMandators"
' '
'BandedGridColumn1
'
resources.ApplyResources(Me.BandedGridColumn1, "BandedGridColumn1")
Me.BandedGridColumn1.FieldName = "Mandator"
Me.BandedGridColumn1.Name = "BandedGridColumn1"
'
'RibbonControl 'RibbonControl
' '
Me.RibbonControl.ExpandCollapseItem.Id = 0 Me.RibbonControl.ExpandCollapseItem.Id = 0
@ -734,7 +727,6 @@ Partial Class frmImportMain
Friend WithEvents BarWorkspaceMenuItem1 As DevExpress.XtraBars.BarWorkspaceMenuItem Friend WithEvents BarWorkspaceMenuItem1 As DevExpress.XtraBars.BarWorkspaceMenuItem
Friend WithEvents WorkspaceManager1 As DevExpress.Utils.WorkspaceManager Friend WithEvents WorkspaceManager1 As DevExpress.Utils.WorkspaceManager
Friend WithEvents btnTestTransferFile As DevExpress.XtraBars.BarButtonItem 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 gridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
Friend WithEvents GridBand2 As DevExpress.XtraGrid.Views.BandedGrid.GridBand Friend WithEvents GridBand2 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem 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"> <data name="GridBand2.Width" type="System.Int32, mscorlib">
<value>683</value> <value>683</value>
</data> </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"> <data name="txtFilesLoaded.Caption" xml:space="preserve">
<value>0 Dateien geladen</value> <value>0 Dateien geladen</value>
</data> </data>
@ -356,12 +350,6 @@
<data name="&gt;&gt;cmbMandators.Type" xml:space="preserve"> <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> <value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <data name="&gt;&gt;txtFilesLoaded.Name" xml:space="preserve">
<value>txtFilesLoaded</value> <value>txtFilesLoaded</value>
</data> </data>

2
MultiTool.Form/frmImportMain.vb
View File

@ -77,7 +77,7 @@ Public Class frmImportMain
Winline = My.Winline Winline = My.Winline
FileEx = New DigitalData.Modules.Filesystem.File(LogConfig) 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 AddHandler WebService.WebServiceProgress, AddressOf WebService_Progress
Catch ex As Exception Catch ex As Exception

98
MultiTool.Form/frmMain.vb
View File

@ -74,9 +74,9 @@ Public Class frmMain
' Initialize Schemas ' Initialize Schemas
TemplateLoader = New TemplateLoader(LogConfig, Database) TemplateLoader = New TemplateLoader(LogConfig, Database)
Await TemplateLoader.LoadGeneralConfiguration()
Await TemplateLoader.LoadTemplates() Await TemplateLoader.LoadTemplates()
Await TemplateLoader.LoadTemplateConfiguration() Await TemplateLoader.LoadTemplateConfiguration()
Await TemplateLoader.LoadGeneralConfiguration()
Await TemplateLoader.LoadMappingConfiguration() Await TemplateLoader.LoadMappingConfiguration()
Await TemplateLoader.LoadMandatorConfiguration() Await TemplateLoader.LoadMandatorConfiguration()
@ -123,49 +123,8 @@ Public Class frmMain
End Sub End Sub
Private Sub btnOpenImportExportForm_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenImportExportForm.ItemClick Private Sub btnOpenImportExportForm_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenImportExportForm.ItemClick
Try Dim oTemplate As Template = GridViewTemplates.GetRow(GridViewTemplates.FocusedRowHandle)
Dim oTemplate As Template = GridViewTemplates.GetRow(GridViewTemplates.FocusedRowHandle) OpenImportExportForm(oTemplate)
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
End Sub End Sub
Private Function TryCreateTemplateDirectories(pDirectories As List(Of String)) As Boolean 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 Private Sub btnOpenSchemaDirectory_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenSchemaDirectory.ItemClick
FormHelper.TryOpenDirectory(My.GeneralConfiguration.TemplateDirectory, My.Resources.frmImportMainExtra.Vorlagenverzeichnis) FormHelper.TryOpenDirectory(My.GeneralConfiguration.TemplateDirectory, My.Resources.frmImportMainExtra.Vorlagenverzeichnis)
End Sub 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 End Class

1
MultiTool.Shared/Config.vb
View File

@ -3,5 +3,6 @@
Public Class Config Public Class Config
<ConnectionString> <ConnectionString>
Public Property ConnectionString As String = "" Public Property ConnectionString As String = ""
Public Property LastUsedMandator As String = ""
Public Property Debug As Boolean = False Public Property Debug As Boolean = False
End Class End Class

8
MultiTool.Shared/Documents/DocumentLoader.vb
View File

@ -241,15 +241,15 @@ Namespace Documents
If oMandator Is Nothing Then If oMandator Is Nothing Then
Logger.Warn("Mandator not found for File [{0}]", pDocument.File.Name) Logger.Warn("Mandator not found for File [{0}]", pDocument.File.Name)
Else Else
pDocument = MatchDocumentDataFromHardcodedMappings(pDocument, oMandator, pTemplate) pDocument = ApplyDefinedItemFunctionsForImport(pDocument, oMandator, pTemplate)
pDocument = MatchDocumentDataFromDynamicMappings(pDocument, oMandator) pDocument = ApplyDynamicItemFunctionsForImport(pDocument, oMandator)
End If End If
pDocument.Mandator = oMandator pDocument.Mandator = oMandator
Return pDocument Return pDocument
End Function End Function
Private Function MatchDocumentDataFromHardcodedMappings(pDocument As Document, pMandator As Mandator, pTemplate As Template) As Document Private Function ApplyDefinedItemFunctionsForImport(pDocument As Document, pMandator As Mandator, pTemplate As Template) As Document
If pMandator Is Nothing Then If pMandator Is Nothing Then
Return pDocument Return pDocument
End If End If
@ -284,7 +284,7 @@ Namespace Documents
Return pDocument Return pDocument
End Function End Function
Private Function MatchDocumentDataFromDynamicMappings(pDocument As Document, pMandator As Mandator) As Document Private Function ApplyDynamicItemFunctionsForImport(pDocument As Document, pMandator As Mandator) As Document
If pMandator Is Nothing Then If pMandator Is Nothing Then
Return pDocument Return pDocument
End If End If

96
MultiTool.Shared/Exceptions.vb
View File

@ -20,49 +20,57 @@
End Sub End Sub
End Class End Class
Public Class WebServiceException Public Class DatabaseException
Inherits MultiToolException Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class MissingAttributeException
Inherits MultiToolException
Public Sub New(attributeName As String)
MyBase.New(attributeName)
End Sub
End Class
Public Class MultipleAccountsException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class NoAccountException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class NoMandatorException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class MalformedXmlException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class End Class
Public Class WebServiceException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class MissingAttributeException
Inherits MultiToolException
Public Sub New(attributeName As String)
MyBase.New(attributeName)
End Sub
End Class
Public Class MultipleAccountsException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class NoAccountException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class NoMandatorException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class MalformedXmlException
Inherits MultiToolException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
End Class

59
MultiTool.Shared/Patterns.vb
View File

@ -2,6 +2,7 @@
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports MultiTool.Shared.Documents Imports MultiTool.Shared.Documents
Imports MultiTool.Shared.Templates Imports MultiTool.Shared.Templates
Imports MultiTool.Shared.Winline.Entities
Public Class Patterns Public Class Patterns
Inherits BaseClass Inherits BaseClass
@ -13,7 +14,7 @@ Public Class Patterns
GeneralConfig = pGeneralConfig GeneralConfig = pGeneralConfig
End Sub End Sub
Public Function Replace(pDocument As Document, pRow As DocumentRow, oString As String) Public Function ReplaceForImport(pDocument As Documents.Document, pRow As DocumentRow, oString As String)
Dim oRegex = New Regex("{#(\w+)#([\w\s_-]+)}+") Dim oRegex = New Regex("{#(\w+)#([\w\s_-]+)}+")
Dim oMatches As MatchCollection = oRegex.Matches(oString) Dim oMatches As MatchCollection = oRegex.Matches(oString)
@ -34,7 +35,7 @@ Public Class Patterns
Case "CONST" Case "CONST"
Dim oValue = "" Dim oValue = ""
Select Case oMatch.Groups.Item(2).Value.ToUpper Select Case oPlaceholderValue.ToUpper
Case "MESOYEAR" Case "MESOYEAR"
oValue = GeneralConfig.GetWinLineYear() oValue = GeneralConfig.GetWinLineYear()
@ -56,7 +57,59 @@ Public Class Patterns
End Select End Select
If oValue <> "" Then If oValue <> "" Then
oString = oString.Replace(oPlaceholderValue, oValue) oString = oString.Replace(oPlaceholderString, oValue)
End If
End Select
Next
Return oString
End Function
Public Function ReplaceForExport(pTemplate As Template, pDocument As Winline.Entities.Document, pMandator As Mandator, oString As String)
Dim oRegex = New Regex("{#(\w+)#([\w\s_-]+)}+")
Dim oMatches As MatchCollection = oRegex.Matches(oString)
For Each oMatch As Match In oMatches
Dim oPlaceholderString As String = oMatch.Groups.Item(0)?.Value
Dim oPlaceholderType As String = oMatch.Groups.Item(1)?.Value
Dim oPlaceholderValue As String = oMatch.Groups.Item(2)?.Value
Select Case oPlaceholderType.ToUpper
Case "CONST"
Dim oValue = ""
Select Case oPlaceholderValue.ToUpper
Case "MESOYEAR"
oValue = GeneralConfig.GetWinLineYear()
Case "MESOCOMP"
oValue = pMandator.Id
Case "USERNAME"
oValue = Environment.UserName
Case "CURRENTDATE"
oValue = Now.ToString()
Case "FILENAME"
oValue = pDocument.FilenameExport
Case "ACCOUNTNUMBER"
oValue = pDocument.Account.Id
Case "RUNNINGNUMBER"
oValue = pDocument.RunningNumber
Case "MANDATORDB"
oValue = pMandator.Database
Case Else
oValue = ""
End Select
If oValue <> "" Then
oString = oString.Replace(oPlaceholderString, oValue)
End If End If
End Select End Select
Next Next

2
MultiTool.Shared/Report/ReportGenerator.vb
View File

@ -116,7 +116,7 @@ Public Class ReportGenerator(Of TReport As IReport)
SingleOrDefault() SingleOrDefault()
Dim oSQL = oSQLConfigItem.Function.Params Dim oSQL = oSQLConfigItem.Function.Params
oSQL = Patterns.Replace(pDocument, oRow, oSQL) oSQL = Patterns.ReplaceForImport(pDocument, oRow, oSQL)
Dim oValue = Database.GetScalarValue(oSQL) Dim oValue = Database.GetScalarValue(oSQL)

2
MultiTool.Shared/Templates/GeneralConfig.vb
View File

@ -2,8 +2,6 @@
Public Class GeneralConfig Public Class GeneralConfig
Public Property TemplateDirectory As String = "" Public Property TemplateDirectory As String = ""
Public Property Templates As New List(Of TemplateConfig)
Public Property Webservice As New WebServiceConfig() Public Property Webservice As New WebServiceConfig()
Public Property DefaultYearOverride As Integer = 0 Public Property DefaultYearOverride As Integer = 0

4
MultiTool.Shared/Templates/Template.vb
View File

@ -46,6 +46,10 @@
''' </summary> ''' </summary>
Public Property IsRequired As Boolean Public Property IsRequired As Boolean
Public Property Config As TemplateConfigItem Public Property Config As TemplateConfigItem
Public Overrides Function ToString() As String
Return Name
End Function
End Class End Class
End Class End Class
End Namespace End Namespace

4
MultiTool.Shared/Templates/TemplateConfig.vb
View File

@ -8,9 +8,9 @@ Namespace Templates
Public Class TemplateConfig Public Class TemplateConfig
Public Property Items As List(Of TemplateConfigItem) Public Property Items As List(Of TemplateConfigItem)
Public Function GetColumn(pName As String) As TemplateConfigItem Public Function GetColumn(pName As String, pTable As String) As TemplateConfigItem
Return Items. Return Items.
Where(Function(c) c.Name = pName). Where(Function(c) c.Name = pName And c.Table = pTable).
FirstOrDefault() FirstOrDefault()
End Function End Function
End Class End Class

2
MultiTool.Shared/Templates/TemplateLoader.vb
View File

@ -242,7 +242,7 @@ Namespace Templates
For Each oTable In pTemplate.Tables For Each oTable In pTemplate.Tables
For Each oColumn As Template.Column In oTable.Columns For Each oColumn As Template.Column In oTable.Columns
Dim oConfig = pTemplateConfig.GetColumn(oColumn.Name) Dim oConfig = pTemplateConfig.GetColumn(oColumn.Name, oTable.Name)
If oConfig Is Nothing Then If oConfig Is Nothing Then
oConfig = New TemplateConfigItem With { oConfig = New TemplateConfigItem With {

6
MultiTool.Shared/Winline/Entities/Article.vb
View File

@ -1,8 +1,8 @@
Namespace Winline.Entities Namespace Winline.Entities
Public Class Article Public Class Article
Public Property Id Public Property Id As String
Public Property Name Public Property Name As String
Public Property EAN Public Property EAN As String
Public Property Mandator As Mandator Public Property Mandator As Mandator
Public Overrides Function GetHashCode() As Integer Public Overrides Function GetHashCode() As Integer

2
MultiTool.Shared/Winline/Entities/Document.vb
View File

@ -19,6 +19,8 @@
Public Property IsSelected As Boolean = False Public Property IsSelected As Boolean = False
Public Property IsExported As Boolean = False Public Property IsExported As Boolean = False
Public Property FilenameExport As String
End Class End Class
End Namespace End Namespace

65
MultiTool.Shared/Winline/WebServiceData.vb
View File

@ -15,16 +15,18 @@ Namespace Winline
Private ReadOnly Config As WebServiceConfig Private ReadOnly Config As WebServiceConfig
Private ReadOnly Serializer As Serializer Private ReadOnly Serializer As Serializer
Private ReadOnly GeneralConfig As GeneralConfig Private ReadOnly GeneralConfig As GeneralConfig
Private ReadOnly Winline As WinlineData
Private ReadOnly FileEx As File Private ReadOnly FileEx As File
Public Event WebServiceProgress As EventHandler(Of String) Public Event WebServiceProgress As EventHandler(Of String)
Public Sub New(pLogConfig As LogConfig, pWebserviceConfig As WebServiceConfig, pGeneralConfig As GeneralConfig) Public Sub New(pLogConfig As LogConfig, pWinline As WinlineData, pWebserviceConfig As WebServiceConfig, pGeneralConfig As GeneralConfig)
MyBase.New(pLogConfig) MyBase.New(pLogConfig)
Serializer = New Serializer(pLogConfig) Serializer = New Serializer(pLogConfig)
Config = pWebserviceConfig Config = pWebserviceConfig
GeneralConfig = pGeneralConfig GeneralConfig = pGeneralConfig
FileEx = New DigitalData.Modules.Filesystem.File(LogConfig) FileEx = New DigitalData.Modules.Filesystem.File(LogConfig)
Winline = pWinline
End Sub End Sub
Public Sub RaiseWebServiceProgress(pMessage As String) Public Sub RaiseWebServiceProgress(pMessage As String)
@ -208,6 +210,9 @@ Namespace Winline
Dim oBaseFileName As String = FileEx.GetDateTimeString() Dim oBaseFileName As String = FileEx.GetDateTimeString()
Dim oFileName = FileEx.GetFilenameWithSuffix(oBaseFileName, "Request", "xml") Dim oFileName = FileEx.GetFilenameWithSuffix(oBaseFileName, "Request", "xml")
' Save the filename to the document
pDocument.FilenameExport = oFileName
' Absolute Path to copy Request file ' Absolute Path to copy Request file
Dim oImportAbsolutePath = IO.Path.Combine(oWS.ImportBasePath, oWS.ImportRelativePath) Dim oImportAbsolutePath = IO.Path.Combine(oWS.ImportBasePath, oWS.ImportRelativePath)
Dim oImportAbsoluteFilePath = IO.Path.Combine(FileEx.GetDateDirectory(oImportAbsolutePath), oFileName) Dim oImportAbsoluteFilePath = IO.Path.Combine(FileEx.GetDateDirectory(oImportAbsolutePath), oFileName)
@ -242,18 +247,21 @@ Namespace Winline
' --- Bring the action! ' --- Bring the action!
Try Try
Dim oResponse As HttpResponseMessage = Await oClient.GetAsync(oURL) Dim oResponse As HttpResponseMessage = Await oClient.GetAsync(oURL)
Await HandleExportResponse(oResponse, pTemplate, oBaseFileName) Await HandleExportResponse(oResponse, pTemplate, pMandator, oBaseFileName)
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
Throw ex Throw ex
Finally Finally
oClient.Dispose() oClient.Dispose()
End Try End Try
End Function End Function
Private Async Function HandleExportResponse(pResponse As HttpResponseMessage, pTemplate As Template, pBaseFileNAme As String) As Task Private Async Function HandleExportResponse(pResponse As HttpResponseMessage, pTemplate As Template, pMandator As Mandator, pBaseFileNAme As String) As Task
pResponse.EnsureSuccessStatusCode() pResponse.EnsureSuccessStatusCode()
Dim oResponseBody As String = Await pResponse.Content.ReadAsStringAsync() Dim oResponseBody As String = Await pResponse.Content.ReadAsStringAsync()
Dim oContentType = pResponse.Content.Headers.ContentType.MediaType Dim oContentType = pResponse.Content.Headers.ContentType.MediaType
@ -261,11 +269,13 @@ Namespace Winline
RaiseEvent WebServiceProgress(Me, "Antwort verarbeiten") RaiseEvent WebServiceProgress(Me, "Antwort verarbeiten")
oResponseBody = ApplyItemFunctionsForExport(pTemplate, pMandator, oResponseBody)
Select Case oContentType Select Case oContentType
Case "text/xml" Case "text/xml"
WriteResponseFile(pTemplate.OutputWebserviceDirectory, pBaseFileNAme, oResponseBody, "xml") WriteResponseFile(pTemplate.OutputWebserviceDirectory, pBaseFileNAme, oResponseBody, "xml")
WriteResponseFile(pTemplate.OutputXmlFileDirectory, pBaseFileNAme, oResponseBody, "xml") WriteResponseFile(pTemplate.OutputXmlFileDirectory, pBaseFileNAme, oResponseBody, "xml")
WriteResponseFile(FileEx.GetDateDirectory(pTemplate.ArchiveDirectory), pBaseFileNAme, oResponseBody, "xml") WriteResponseFile(FileEx.CreateDateDirectory(pTemplate.ArchiveDirectory), pBaseFileNAme, oResponseBody, "xml")
Case "text/html" Case "text/html"
WriteResponseFile(pTemplate.OutputWebserviceDirectory, pBaseFileNAme, oResponseBody, "txt") WriteResponseFile(pTemplate.OutputWebserviceDirectory, pBaseFileNAme, oResponseBody, "txt")
@ -276,9 +286,54 @@ Namespace Winline
Throw New ApplicationException(oResponseBody) Throw New ApplicationException(oResponseBody)
End Select End Select
End Function End Function
Private Function ApplyItemFunctionsForExport(pTemplate As Template, pMandator As Mandator, oResponseBody As String) As String
Dim oDoc As New XmlDocument()
oDoc.LoadXml(oResponseBody)
For Each oTable In pTemplate.Tables
For Each oItem As Template.Column In oTable.Columns
Dim oTableName As String = oTable.Name
Dim oItemName As String = oItem.Name
If oItem.Config.Function Is Nothing Then
Continue For
End If
Dim oFunction = oItem.Config.Function.Name
Dim oNode = oDoc.SelectSingleNode($"//MESOWebService/{oTableName}/{oItemName}")
If oItem.Config.Function.Name = "GLN" Then
Dim oGLN = Winline.TryGetGLN(oNode.InnerText, pMandator)
If oGLN Is Nothing Then
Throw New Exceptions.MissingAttributeException("GLN")
End If
oNode.InnerText = oGLN
ElseIf oItem.Config.Function.Name = "EAN" Then
Dim oEAN = Winline.TryGetEAN(oNode.InnerText, pMandator)
If oEAN Is Nothing Then
Throw New Exceptions.MissingAttributeException("EAN")
End If
oNode.InnerText = oEAN
End If
Next
Next
Dim oArray As Byte()
Using oStream As New IO.MemoryStream
oDoc.Save(oStream)
oArray = oStream.ToArray()
End Using
Dim oXml = Text.Encoding.UTF8.GetString(oArray)
oResponseBody = oXml
Return oResponseBody
End Function
#End Region #End Region
Private Function WriteResponseFile(pPath As String, pBaseFileName As String, pResponseBody As String, pExtension As String) Private Function WriteResponseFile(pPath As String, pBaseFileName As String, pResponseBody As String, pExtension As String) As Boolean
Try Try
Dim oRequestFileName As String = FileEx.GetFilenameWithSuffix(pBaseFileName, "Response", pExtension) Dim oRequestFileName As String = FileEx.GetFilenameWithSuffix(pBaseFileName, "Response", pExtension)
Dim oFilePath As String = IO.Path.Combine(pPath, oRequestFileName) Dim oFilePath As String = IO.Path.Combine(pPath, oRequestFileName)

75
MultiTool.Shared/Winline/WinlineData.vb
View File

@ -13,6 +13,7 @@ Namespace Winline
Private ReadOnly Property Config As GeneralConfig Private ReadOnly Property Config As GeneralConfig
Private ReadOnly Property MandatorConfig As MandatorConfig Private ReadOnly Property MandatorConfig As MandatorConfig
Private ReadOnly Property MappingConfig As MappingConfig Private ReadOnly Property MappingConfig As MappingConfig
Private ReadOnly Property Patterns As Patterns
Public Property Articles As New List(Of Article) Public Property Articles As New List(Of Article)
Public Property Accounts As New List(Of Account) Public Property Accounts As New List(Of Account)
@ -23,6 +24,7 @@ Namespace Winline
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pConfig As GeneralConfig, pMappingConfig As MappingConfig, pMandatorConfig As MandatorConfig) Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pConfig As GeneralConfig, pMappingConfig As MappingConfig, pMandatorConfig As MandatorConfig)
MyBase.New(pLogConfig) MyBase.New(pLogConfig)
Patterns = New Patterns(pLogConfig, pConfig)
Database = pDatabase Database = pDatabase
Config = pConfig Config = pConfig
MandatorConfig = pMandatorConfig MandatorConfig = pMandatorConfig
@ -223,7 +225,7 @@ Namespace Winline
[c052], -- Ort [c052], -- Ort
[c051] -- PLZ [c051] -- PLZ
FROM [{pMandator.Database}].[dbo].[v050] FROM [{pMandator.Database}].[dbo].[v050]
WHERE [c004] = 2 -- KontoTyp WHERE [c004] IN (2, 3) -- KontoTyp Debitor/Kreditor
AND [c260] = '{pGLN}' AND [c260] = '{pGLN}'
AND [mesocomp] = '{pMandator.Id}' and [mesoyear] = {oYear}" AND [mesocomp] = '{pMandator.Id}' and [mesoyear] = {oYear}"
Dim oTable As DataTable = Database.GetDatatable(oSQL) Dim oTable As DataTable = Database.GetDatatable(oSQL)
@ -264,6 +266,37 @@ Namespace Winline
End Try End Try
End Function End Function
Public Function TryGetGLN(pAccountId As String, pMandator As Mandator) As String
Try
If pAccountId Is Nothing OrElse pAccountId = String.Empty Then
Return Nothing
End If
Dim oYear As Integer = Config.GetWinLineYear()
Dim oSQL = $"
SELECT
[c260] -- GLN
FROM [{pMandator.Database}].[dbo].[v050]
WHERE [c004] IN (2, 3) -- KontoTyp Debitor/Kreditor
AND [c002] = '{pAccountId}'
AND [mesocomp] = '{pMandator.Id}' and [mesoyear] = {oYear}"
Dim oGLN As String = Database.GetScalarValue(oSQL)
' GLN not found in this Mandator, continue to next one
If oGLN Is Nothing Then
Logger.Debug("Account [{0}] was not found in Mandator: [{1}]", pAccountId, pMandator.Id)
Return Nothing
End If
Return oGLN
Catch ex As Exception
Logger.Warn("Error while trying to get GLN for Account [{0}]", pAccountId)
Logger.Error(ex)
Return Nothing
End Try
End Function
Public Function TryGetArticleNumber(pEAN As String, pMandator As Mandator) As String Public Function TryGetArticleNumber(pEAN As String, pMandator As Mandator) As String
Try Try
Dim oYear As Integer = Config.GetWinLineYear() Dim oYear As Integer = Config.GetWinLineYear()
@ -303,6 +336,33 @@ Namespace Winline
End Try End Try
End Function End Function
Public Function TryGetEAN(pArticleNumber As String, pMandator As Mandator) As String
Try
Dim oYear As Integer = Config.GetWinLineYear()
Dim oSQL As String = $"
SELECT
[c075] -- EAN-Nummer
FROM [{pMandator.Database}].[dbo].[v021]
WHERE [c011] = '{pArticleNumber}'
AND [mesocomp] = '{pMandator.Id}' AND [mesoyear] = {oYear}"
Dim oEAN As String = Database.GetScalarValue(oSQL)
' EAN not found in this Mandator, continue to next one
If oEAN Is Nothing Then
Logger.Debug("ArticleNumber [{0}] was not found in Mandator: [{1}]", pArticleNumber, pMandator.Id)
Return Nothing
End If
Return oEAN
Catch ex As Exception
Logger.Error(ex)
Return Nothing
End Try
End Function
Public Function GetContacts(pAccountNumber As String, pMandator As Mandator) As List(Of Contact) Public Function GetContacts(pAccountNumber As String, pMandator As Mandator) As List(Of Contact)
Try Try
Dim oContacts As New List(Of Contact) Dim oContacts As New List(Of Contact)
@ -480,7 +540,7 @@ Namespace Winline
oDateConstraint = $"" oDateConstraint = $""
End If End If
Dim oExportedConstraint = "c111 = 0 AND" Dim oExportedConstraint = "U010 = 0 AND"
If pOptions.ShowExported Then If pOptions.ShowExported Then
oExportedConstraint = "" oExportedConstraint = ""
End If End If
@ -509,7 +569,7 @@ Namespace Winline
c100 GROSS_AMOUNT, c100 GROSS_AMOUNT,
c114 NET_AMOUNT, c114 NET_AMOUNT,
c111 ALREADY_EXPORTED U010 ALREADY_EXPORTED
FROM [{pMandator.Database}].[dbo].[T025] FROM [{pMandator.Database}].[dbo].[T025]
WHERE WHERE
@ -543,13 +603,14 @@ Namespace Winline
End Try End Try
End Function End Function
Public Async Function ExecuteFinalSQL(pDocument As Document, pTemplate As Template) As Task(Of Boolean) Public Async Function ExecuteFinalSQL(pDocument As Document, pTemplate As Template, pMandator As Mandator) As Task(Of Boolean)
Try Try
Dim oSql As String = pTemplate.FinalSQL Dim oSql As String = Patterns.ReplaceForExport(pTemplate, pDocument, pMandator, pTemplate.FinalSQL)
Return Await Database.ExecuteNonQueryAsync(oSql)
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
Return False
End Try End Try
End Function End Function