diff --git a/MultiTool.Form/CREATE_DATABASE.sql b/MultiTool.Form/CREATE_DATABASE.sql index 9e6f8c9..2b909d1 100644 --- a/MultiTool.Form/CREATE_DATABASE.sql +++ b/MultiTool.Form/CREATE_DATABASE.sql @@ -56,11 +56,11 @@ ALTER TABLE [dbo].[TBEDI_XML_TEMPLATE_ITEMS] DROP CONSTRAINT [DF_TBEDI_XML_TEMPL GO ALTER TABLE [dbo].[TBEDI_XML_TEMPLATE_ITEMS] DROP CONSTRAINT [DF_TBEDI_XML_TEMPLATE_ITEMS_ORDER_KEY] GO -ALTER TABLE [dbo].[TBEDI_XML_FUNCTIONS] DROP CONSTRAINT [DF_TBEDI_XML_FUNCTIONS_ADDED_WHEN] +ALTER TABLE [dbo].[TBMT_FUNCTIONS] DROP CONSTRAINT [DF_TBMT_FUNCTIONS_ADDED_WHEN] GO -ALTER TABLE [dbo].[TBEDI_XML_FUNCTIONS] DROP CONSTRAINT [DF_TBEDI_XML_FUNCTIONS_ADDED_WHO] +ALTER TABLE [dbo].[TBMT_FUNCTIONS] DROP CONSTRAINT [DF_TBMT_FUNCTIONS_ADDED_WHO] GO -ALTER TABLE [dbo].[TBEDI_XML_FUNCTIONS] DROP CONSTRAINT [DF_TBEDI_XML_FUNCTIONS_ACTIVE] +ALTER TABLE [dbo].[TBMT_FUNCTIONS] DROP CONSTRAINT [DF_TBMT_FUNCTIONS_ACTIVE] GO ALTER TABLE [dbo].[TBMT_CONFIG] DROP CONSTRAINT [DF_TBMT_CONFIG_ADDED_WHEN] GO @@ -96,9 +96,9 @@ GO IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[TBEDI_XML_TEMPLATE_ITEMS]') AND type in (N'U')) DROP TABLE [dbo].[TBEDI_XML_TEMPLATE_ITEMS] GO -/****** Object: Table [dbo].[TBEDI_XML_FUNCTIONS] Script Date: 26.11.2021 16:07:58 ******/ -IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[TBEDI_XML_FUNCTIONS]') AND type in (N'U')) -DROP TABLE [dbo].[TBEDI_XML_FUNCTIONS] +/****** Object: Table [dbo].[TBMT_FUNCTIONS] Script Date: 26.11.2021 16:07:58 ******/ +IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[TBMT_FUNCTIONS]') AND type in (N'U')) +DROP TABLE [dbo].[TBMT_FUNCTIONS] GO /****** Object: Table [dbo].[TBMT_CONFIG] Script Date: 26.11.2021 16:07:58 ******/ IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[TBMT_CONFIG]') AND type in (N'U')) @@ -125,12 +125,12 @@ CREATE TABLE [dbo].[TBMT_CONFIG]( )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO -/****** Object: Table [dbo].[TBEDI_XML_FUNCTIONS] Script Date: 26.11.2021 16:07:58 ******/ +/****** Object: Table [dbo].[TBMT_FUNCTIONS] Script Date: 26.11.2021 16:07:58 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -CREATE TABLE [dbo].[TBEDI_XML_FUNCTIONS]( +CREATE TABLE [dbo].[TBMT_FUNCTIONS]( [GUID] [int] IDENTITY(1,1) NOT NULL, [NAME] [nvarchar](max) NOT NULL, [DESCRIPTION] [nvarchar](max) NOT NULL, @@ -329,15 +329,15 @@ INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_ GO SET IDENTITY_INSERT [dbo].[TBMT_CONFIG] OFF GO -SET IDENTITY_INSERT [dbo].[TBEDI_XML_FUNCTIONS] ON +SET IDENTITY_INSERT [dbo].[TBMT_FUNCTIONS] ON GO -INSERT [dbo].[TBEDI_XML_FUNCTIONS] ([GUID], [NAME], [DESCRIPTION], [PARAMETERS], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (1, N'GLN', N'Finds an WinLine Account Number by GLN', NULL, 1, NULL, N'DEFAULT', NULL, NULL, NULL) +INSERT [dbo].[TBMT_FUNCTIONS] ([GUID], [NAME], [DESCRIPTION], [PARAMETERS], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (1, N'GLN', N'Finds an WinLine Account Number by GLN', NULL, 1, NULL, N'DEFAULT', NULL, NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_FUNCTIONS] ([GUID], [NAME], [DESCRIPTION], [PARAMETERS], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (2, N'EAN', N'Finds an WinLine Article Number by EAN', NULL, 1, NULL, N'DEFAULT', NULL, NULL, NULL) +INSERT [dbo].[TBMT_FUNCTIONS] ([GUID], [NAME], [DESCRIPTION], [PARAMETERS], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (2, N'EAN', N'Finds an WinLine Article Number by EAN', NULL, 1, NULL, N'DEFAULT', NULL, NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_FUNCTIONS] ([GUID], [NAME], [DESCRIPTION], [PARAMETERS], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (3, N'SQL', N'Finds a Value by SQL Query', N'Query', 1, NULL, N'DEFAULT', NULL, NULL, NULL) +INSERT [dbo].[TBMT_FUNCTIONS] ([GUID], [NAME], [DESCRIPTION], [PARAMETERS], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (3, N'SQL', N'Finds a Value by SQL Query', N'Query', 1, NULL, N'DEFAULT', NULL, NULL, NULL) GO -SET IDENTITY_INSERT [dbo].[TBEDI_XML_FUNCTIONS] OFF +SET IDENTITY_INSERT [dbo].[TBMT_FUNCTIONS] OFF GO SET IDENTITY_INSERT [dbo].[TBEDI_XML_TEMPLATE_ITEMS] ON GO @@ -515,11 +515,11 @@ ALTER TABLE [dbo].[TBMT_CONFIG] ADD CONSTRAINT [DF_TBMT_CONFIG_ADDED_WHO] DEFA GO ALTER TABLE [dbo].[TBMT_CONFIG] ADD CONSTRAINT [DF_TBMT_CONFIG_ADDED_WHEN] DEFAULT (getdate()) FOR [ADDED_WHEN] GO -ALTER TABLE [dbo].[TBEDI_XML_FUNCTIONS] ADD CONSTRAINT [DF_TBEDI_XML_FUNCTIONS_ACTIVE] DEFAULT ((1)) FOR [ACTIVE] +ALTER TABLE [dbo].[TBMT_FUNCTIONS] ADD CONSTRAINT [DF_TBMT_FUNCTIONS_ACTIVE] DEFAULT ((1)) FOR [ACTIVE] GO -ALTER TABLE [dbo].[TBEDI_XML_FUNCTIONS] ADD CONSTRAINT [DF_TBEDI_XML_FUNCTIONS_ADDED_WHO] DEFAULT (N'DEFAULT') FOR [ADDED_WHO] +ALTER TABLE [dbo].[TBMT_FUNCTIONS] ADD CONSTRAINT [DF_TBMT_FUNCTIONS_ADDED_WHO] DEFAULT (N'DEFAULT') FOR [ADDED_WHO] GO -ALTER TABLE [dbo].[TBEDI_XML_FUNCTIONS] ADD CONSTRAINT [DF_TBEDI_XML_FUNCTIONS_ADDED_WHEN] DEFAULT (getdate()) FOR [ADDED_WHEN] +ALTER TABLE [dbo].[TBMT_FUNCTIONS] ADD CONSTRAINT [DF_TBMT_FUNCTIONS_ADDED_WHEN] DEFAULT (getdate()) FOR [ADDED_WHEN] GO ALTER TABLE [dbo].[TBEDI_XML_TEMPLATE_ITEMS] ADD CONSTRAINT [DF_TBEDI_XML_TEMPLATE_ITEMS_ORDER_KEY] DEFAULT ((0)) FOR [ORDER_KEY] GO diff --git a/MultiTool.Form/DS_DD_ECM.Designer.vb b/MultiTool.Form/DS_DD_ECM.Designer.vb index 046e4a9..6bbe53c 100644 --- a/MultiTool.Form/DS_DD_ECM.Designer.vb +++ b/MultiTool.Form/DS_DD_ECM.Designer.vb @@ -33,11 +33,11 @@ Partial Public Class DS_DD_ECM Private tableTBEDI_XML_NODES As TBEDI_XML_NODESDataTable - Private tableTBEDI_XML_FUNCTIONS As TBEDI_XML_FUNCTIONSDataTable + Private tableTBMT_FUNCTIONS As TBMT_FUNCTIONSDataTable Private tableTBMT_CONFIG As TBMT_CONFIGDataTable - Private relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS As Global.System.Data.DataRelation + Private relationTBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS As Global.System.Data.DataRelation Private relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES As Global.System.Data.DataRelation @@ -84,8 +84,8 @@ Partial Public Class DS_DD_ECM If (Not (ds.Tables("TBEDI_XML_NODES")) Is Nothing) Then MyBase.Tables.Add(New TBEDI_XML_NODESDataTable(ds.Tables("TBEDI_XML_NODES"))) End If - If (Not (ds.Tables("TBEDI_XML_FUNCTIONS")) Is Nothing) Then - MyBase.Tables.Add(New TBEDI_XML_FUNCTIONSDataTable(ds.Tables("TBEDI_XML_FUNCTIONS"))) + If (Not (ds.Tables("TBMT_FUNCTIONS")) Is Nothing) Then + MyBase.Tables.Add(New TBMT_FUNCTIONSDataTable(ds.Tables("TBMT_FUNCTIONS"))) End If If (Not (ds.Tables("TBMT_CONFIG")) Is Nothing) Then MyBase.Tables.Add(New TBMT_CONFIGDataTable(ds.Tables("TBMT_CONFIG"))) @@ -151,9 +151,9 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ - Public ReadOnly Property TBEDI_XML_FUNCTIONS() As TBEDI_XML_FUNCTIONSDataTable + Public ReadOnly Property TBMT_FUNCTIONS() As TBMT_FUNCTIONSDataTable Get - Return Me.tableTBEDI_XML_FUNCTIONS + Return Me.tableTBMT_FUNCTIONS End Get End Property @@ -246,8 +246,8 @@ Partial Public Class DS_DD_ECM If (Not (ds.Tables("TBEDI_XML_NODES")) Is Nothing) Then MyBase.Tables.Add(New TBEDI_XML_NODESDataTable(ds.Tables("TBEDI_XML_NODES"))) End If - If (Not (ds.Tables("TBEDI_XML_FUNCTIONS")) Is Nothing) Then - MyBase.Tables.Add(New TBEDI_XML_FUNCTIONSDataTable(ds.Tables("TBEDI_XML_FUNCTIONS"))) + If (Not (ds.Tables("TBMT_FUNCTIONS")) Is Nothing) Then + MyBase.Tables.Add(New TBMT_FUNCTIONSDataTable(ds.Tables("TBMT_FUNCTIONS"))) End If If (Not (ds.Tables("TBMT_CONFIG")) Is Nothing) Then MyBase.Tables.Add(New TBMT_CONFIGDataTable(ds.Tables("TBMT_CONFIG"))) @@ -308,10 +308,10 @@ Partial Public Class DS_DD_ECM Me.tableTBEDI_XML_NODES.InitVars End If End If - Me.tableTBEDI_XML_FUNCTIONS = CType(MyBase.Tables("TBEDI_XML_FUNCTIONS"),TBEDI_XML_FUNCTIONSDataTable) + Me.tableTBMT_FUNCTIONS = CType(MyBase.Tables("TBMT_FUNCTIONS"),TBMT_FUNCTIONSDataTable) If (initTable = true) Then - If (Not (Me.tableTBEDI_XML_FUNCTIONS) Is Nothing) Then - Me.tableTBEDI_XML_FUNCTIONS.InitVars + If (Not (Me.tableTBMT_FUNCTIONS) Is Nothing) Then + Me.tableTBMT_FUNCTIONS.InitVars End If End If Me.tableTBMT_CONFIG = CType(MyBase.Tables("TBMT_CONFIG"),TBMT_CONFIGDataTable) @@ -320,7 +320,7 @@ Partial Public Class DS_DD_ECM Me.tableTBMT_CONFIG.InitVars End If End If - Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS = Me.Relations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS") + Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS = Me.Relations("TBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS") Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES = Me.Relations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES") Me.relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES = Me.Relations("TBEDI_XML_NODES_TBEDI_XML_TEMPLATES") End Sub @@ -341,12 +341,12 @@ Partial Public Class DS_DD_ECM MyBase.Tables.Add(Me.tableTBEDI_XML_TEMPLATES) Me.tableTBEDI_XML_NODES = New TBEDI_XML_NODESDataTable() MyBase.Tables.Add(Me.tableTBEDI_XML_NODES) - Me.tableTBEDI_XML_FUNCTIONS = New TBEDI_XML_FUNCTIONSDataTable() - MyBase.Tables.Add(Me.tableTBEDI_XML_FUNCTIONS) + Me.tableTBMT_FUNCTIONS = New TBMT_FUNCTIONSDataTable() + MyBase.Tables.Add(Me.tableTBMT_FUNCTIONS) Me.tableTBMT_CONFIG = New TBMT_CONFIGDataTable() MyBase.Tables.Add(Me.tableTBMT_CONFIG) - Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS = New Global.System.Data.DataRelation("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_FUNCTIONS.GUIDColumn}, false) - Me.Relations.Add(Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS) + Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS = New Global.System.Data.DataRelation("TBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.FUNCTION_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBMT_FUNCTIONS.GUIDColumn}, false) + Me.Relations.Add(Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS) Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES = New Global.System.Data.DataRelation("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATE_ITEMS.XML_TYPE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TYPES.GUIDColumn}, false) Me.Relations.Add(Me.relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_TYPES) Me.relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES = New Global.System.Data.DataRelation("TBEDI_XML_NODES_TBEDI_XML_TEMPLATES", New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_NODES.TEMPLATE_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEDI_XML_TEMPLATES.GUIDColumn}, false) @@ -379,7 +379,7 @@ Partial Public Class DS_DD_ECM _ - Private Function ShouldSerializeTBEDI_XML_FUNCTIONS() As Boolean + Private Function ShouldSerializeTBMT_FUNCTIONS() As Boolean Return false End Function @@ -460,7 +460,7 @@ Partial Public Class DS_DD_ECM Public Delegate Sub TBEDI_XML_NODESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_NODESRowChangeEvent) _ - Public Delegate Sub TBEDI_XML_FUNCTIONSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_FUNCTIONSRowChangeEvent) + Public Delegate Sub TBMT_FUNCTIONSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMT_FUNCTIONSRowChangeEvent) _ Public Delegate Sub TBMT_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMT_CONFIGRowChangeEvent) @@ -1812,8 +1812,8 @@ Partial Public Class DS_DD_ECM ''' _ - Partial Public Class TBEDI_XML_FUNCTIONSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBEDI_XML_FUNCTIONSRow) + Partial Public Class TBMT_FUNCTIONSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBMT_FUNCTIONSRow) Private columnGUID As Global.System.Data.DataColumn @@ -1827,7 +1827,7 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBEDI_XML_FUNCTIONS" + Me.TableName = "TBMT_FUNCTIONS" Me.BeginInit Me.InitClass Me.EndInit @@ -1901,50 +1901,50 @@ Partial Public Class DS_DD_ECM _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBEDI_XML_FUNCTIONSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBMT_FUNCTIONSRow Get - Return CType(Me.Rows(index),TBEDI_XML_FUNCTIONSRow) + Return CType(Me.Rows(index),TBMT_FUNCTIONSRow) End Get End Property _ - Public Event TBEDI_XML_FUNCTIONSRowChanging As TBEDI_XML_FUNCTIONSRowChangeEventHandler + Public Event TBMT_FUNCTIONSRowChanging As TBMT_FUNCTIONSRowChangeEventHandler _ - Public Event TBEDI_XML_FUNCTIONSRowChanged As TBEDI_XML_FUNCTIONSRowChangeEventHandler + Public Event TBMT_FUNCTIONSRowChanged As TBMT_FUNCTIONSRowChangeEventHandler _ - Public Event TBEDI_XML_FUNCTIONSRowDeleting As TBEDI_XML_FUNCTIONSRowChangeEventHandler + Public Event TBMT_FUNCTIONSRowDeleting As TBMT_FUNCTIONSRowChangeEventHandler _ - Public Event TBEDI_XML_FUNCTIONSRowDeleted As TBEDI_XML_FUNCTIONSRowChangeEventHandler + Public Event TBMT_FUNCTIONSRowDeleted As TBMT_FUNCTIONSRowChangeEventHandler _ - Public Overloads Sub AddTBEDI_XML_FUNCTIONSRow(ByVal row As TBEDI_XML_FUNCTIONSRow) + Public Overloads Sub AddTBMT_FUNCTIONSRow(ByVal row As TBMT_FUNCTIONSRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBEDI_XML_FUNCTIONSRow(ByVal NAME As String, ByVal DESCRIPTION As String, ByVal PARAMETERS As String) As TBEDI_XML_FUNCTIONSRow - Dim rowTBEDI_XML_FUNCTIONSRow As TBEDI_XML_FUNCTIONSRow = CType(Me.NewRow,TBEDI_XML_FUNCTIONSRow) + Public Overloads Function AddTBMT_FUNCTIONSRow(ByVal NAME As String, ByVal DESCRIPTION As String, ByVal PARAMETERS As String) As TBMT_FUNCTIONSRow + Dim rowTBMT_FUNCTIONSRow As TBMT_FUNCTIONSRow = CType(Me.NewRow,TBMT_FUNCTIONSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, DESCRIPTION, PARAMETERS} - rowTBEDI_XML_FUNCTIONSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBEDI_XML_FUNCTIONSRow) - Return rowTBEDI_XML_FUNCTIONSRow + rowTBMT_FUNCTIONSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBMT_FUNCTIONSRow) + Return rowTBMT_FUNCTIONSRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBEDI_XML_FUNCTIONSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBEDI_XML_FUNCTIONSRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBMT_FUNCTIONSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBMT_FUNCTIONSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEDI_XML_FUNCTIONSDataTable = CType(MyBase.Clone,TBEDI_XML_FUNCTIONSDataTable) + Dim cln As TBMT_FUNCTIONSDataTable = CType(MyBase.Clone,TBMT_FUNCTIONSDataTable) cln.InitVars Return cln End Function @@ -1952,7 +1952,7 @@ Partial Public Class DS_DD_ECM _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBEDI_XML_FUNCTIONSDataTable() + Return New TBMT_FUNCTIONSDataTable() End Function _ - Public Function NewTBEDI_XML_FUNCTIONSRow() As TBEDI_XML_FUNCTIONSRow - Return CType(Me.NewRow,TBEDI_XML_FUNCTIONSRow) + Public Function NewTBMT_FUNCTIONSRow() As TBMT_FUNCTIONSRow + Return CType(Me.NewRow,TBMT_FUNCTIONSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBEDI_XML_FUNCTIONSRow(builder) + Return New TBMT_FUNCTIONSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBEDI_XML_FUNCTIONSRow) + Return GetType(TBMT_FUNCTIONSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBEDI_XML_FUNCTIONSRowChangedEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_FUNCTIONSRowChanged(Me, New TBEDI_XML_FUNCTIONSRowChangeEvent(CType(e.Row,TBEDI_XML_FUNCTIONSRow), e.Action)) + If (Not (Me.TBMT_FUNCTIONSRowChangedEvent) Is Nothing) Then + RaiseEvent TBMT_FUNCTIONSRowChanged(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row,TBMT_FUNCTIONSRow), e.Action)) End If End Sub @@ -2020,8 +2020,8 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBEDI_XML_FUNCTIONSRowChangingEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_FUNCTIONSRowChanging(Me, New TBEDI_XML_FUNCTIONSRowChangeEvent(CType(e.Row,TBEDI_XML_FUNCTIONSRow), e.Action)) + If (Not (Me.TBMT_FUNCTIONSRowChangingEvent) Is Nothing) Then + RaiseEvent TBMT_FUNCTIONSRowChanging(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row,TBMT_FUNCTIONSRow), e.Action)) End If End Sub @@ -2029,8 +2029,8 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBEDI_XML_FUNCTIONSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_FUNCTIONSRowDeleted(Me, New TBEDI_XML_FUNCTIONSRowChangeEvent(CType(e.Row,TBEDI_XML_FUNCTIONSRow), e.Action)) + If (Not (Me.TBMT_FUNCTIONSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBMT_FUNCTIONSRowDeleted(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row,TBMT_FUNCTIONSRow), e.Action)) End If End Sub @@ -2038,14 +2038,14 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBEDI_XML_FUNCTIONSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_FUNCTIONSRowDeleting(Me, New TBEDI_XML_FUNCTIONSRowChangeEvent(CType(e.Row,TBEDI_XML_FUNCTIONSRow), e.Action)) + If (Not (Me.TBMT_FUNCTIONSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBMT_FUNCTIONSRowDeleting(Me, New TBMT_FUNCTIONSRowChangeEvent(CType(e.Row,TBMT_FUNCTIONSRow), e.Action)) End If End Sub _ - Public Sub RemoveTBEDI_XML_FUNCTIONSRow(ByVal row As TBEDI_XML_FUNCTIONSRow) + Public Sub RemoveTBMT_FUNCTIONSRow(ByVal row As TBMT_FUNCTIONSRow) Me.Rows.Remove(row) End Sub @@ -2072,7 +2072,7 @@ Partial Public Class DS_DD_ECM type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBEDI_XML_FUNCTIONSDataTable" + attribute2.FixedValue = "TBMT_FUNCTIONSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2771,11 +2771,11 @@ Partial Public Class DS_DD_ECM _ - Public Function GetTBEDI_XML_FUNCTIONSRows() As TBEDI_XML_FUNCTIONSRow() - If (Me.Table.ChildRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS") Is Nothing) Then - Return New TBEDI_XML_FUNCTIONSRow(-1) {} + Public Function GetTBMT_FUNCTIONSRows() As TBMT_FUNCTIONSRow() + If (Me.Table.ChildRelations("TBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS") Is Nothing) Then + Return New TBMT_FUNCTIONSRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS")),TBEDI_XML_FUNCTIONSRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS")),TBMT_FUNCTIONSRow()) End If End Function @@ -2988,26 +2988,26 @@ Partial Public Class DS_DD_ECM ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBEDI_XML_FUNCTIONSRow + Partial Public Class TBMT_FUNCTIONSRow Inherits Global.System.Data.DataRow - Private tableTBEDI_XML_FUNCTIONS As TBEDI_XML_FUNCTIONSDataTable + Private tableTBMT_FUNCTIONS As TBMT_FUNCTIONSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEDI_XML_FUNCTIONS = CType(Me.Table,TBEDI_XML_FUNCTIONSDataTable) + Me.tableTBMT_FUNCTIONS = CType(Me.Table,TBMT_FUNCTIONSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBEDI_XML_FUNCTIONS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBMT_FUNCTIONS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBEDI_XML_FUNCTIONS.GUIDColumn) = value + Me(Me.tableTBMT_FUNCTIONS.GUIDColumn) = value End Set End Property @@ -3015,10 +3015,10 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get - Return CType(Me(Me.tableTBEDI_XML_FUNCTIONS.NAMEColumn),String) + Return CType(Me(Me.tableTBMT_FUNCTIONS.NAMEColumn),String) End Get Set - Me(Me.tableTBEDI_XML_FUNCTIONS.NAMEColumn) = value + Me(Me.tableTBMT_FUNCTIONS.NAMEColumn) = value End Set End Property @@ -3026,10 +3026,10 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DESCRIPTION() As String Get - Return CType(Me(Me.tableTBEDI_XML_FUNCTIONS.DESCRIPTIONColumn),String) + Return CType(Me(Me.tableTBMT_FUNCTIONS.DESCRIPTIONColumn),String) End Get Set - Me(Me.tableTBEDI_XML_FUNCTIONS.DESCRIPTIONColumn) = value + Me(Me.tableTBMT_FUNCTIONS.DESCRIPTIONColumn) = value End Set End Property @@ -3038,13 +3038,13 @@ Partial Public Class DS_DD_ECM Public Property PARAMETERS() As String Get Try - Return CType(Me(Me.tableTBEDI_XML_FUNCTIONS.PARAMETERSColumn),String) + Return CType(Me(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARAMETERS in Tabelle TBEDI_XML_FUNCTIONS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARAMETERS in Tabelle TBMT_FUNCTIONS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBEDI_XML_FUNCTIONS.PARAMETERSColumn) = value + Me(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn) = value End Set End Property @@ -3052,23 +3052,23 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBEDI_XML_TEMPLATE_ITEMSRow() As TBEDI_XML_TEMPLATE_ITEMSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS")),TBEDI_XML_TEMPLATE_ITEMSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS")),TBEDI_XML_TEMPLATE_ITEMSRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS")) + Me.SetParentRow(value, Me.Table.ParentRelations("TBEDI_XML_TEMPLATE_ITEMS_TBMT_FUNCTIONS")) End Set End Property _ Public Function IsPARAMETERSNull() As Boolean - Return Me.IsNull(Me.tableTBEDI_XML_FUNCTIONS.PARAMETERSColumn) + Return Me.IsNull(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn) End Function _ Public Sub SetPARAMETERSNull() - Me(Me.tableTBEDI_XML_FUNCTIONS.PARAMETERSColumn) = Global.System.Convert.DBNull + Me(Me.tableTBMT_FUNCTIONS.PARAMETERSColumn) = Global.System.Convert.DBNull End Sub End Class @@ -3426,16 +3426,16 @@ Partial Public Class DS_DD_ECM '''Row event argument class ''' _ - Public Class TBEDI_XML_FUNCTIONSRowChangeEvent + Public Class TBMT_FUNCTIONSRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBEDI_XML_FUNCTIONSRow + Private eventRow As TBMT_FUNCTIONSRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBEDI_XML_FUNCTIONSRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBMT_FUNCTIONSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -3443,7 +3443,7 @@ Partial Public Class DS_DD_ECM _ - Public ReadOnly Property Row() As TBEDI_XML_FUNCTIONSRow + Public ReadOnly Property Row() As TBMT_FUNCTIONSRow Get Return Me.eventRow End Get @@ -4915,7 +4915,7 @@ Namespace DS_DD_ECMTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBEDI_XML_FUNCTIONSTableAdapter + Partial Public Class TBMT_FUNCTIONSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -5032,7 +5032,7 @@ Namespace DS_DD_ECMTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBEDI_XML_FUNCTIONS" + tableMapping.DataSetTable = "TBMT_FUNCTIONS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") @@ -5040,23 +5040,23 @@ Namespace DS_DD_ECMTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBEDI_XML_FUNCTIONS] WHERE (([GUID] = @Original_GUID))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBMT_FUNCTIONS] WHERE (([GUID] = @Original_GUID))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBEDI_XML_FUNCTIONS] ([NAME], [DESCRIPTION], [PARAMETERS]) VAL"& _ - "UES (@NAME, @DESCRIPTION, @PARAMETERS);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, DESCRIPTION, PARAMET"& _ - "ERS FROM TBEDI_XML_FUNCTIONS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBMT_FUNCTIONS] ([NAME], [DESCRIPTION], [PARAMETERS]) VALUES ("& _ + "@NAME, @DESCRIPTION, @PARAMETERS);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, DESCRIPTION, PARAMETERS F"& _ + "ROM TBMT_FUNCTIONS WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARAMETERS", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARAMETERS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBEDI_XML_FUNCTIONS] SET [NAME] = @NAME, [DESCRIPTION] = @DESCRIPTI"& _ - "ON, [PARAMETERS] = @PARAMETERS WHERE (([GUID] = @Original_GUID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ - "NAME, DESCRIPTION, PARAMETERS FROM TBEDI_XML_FUNCTIONS WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBMT_FUNCTIONS] SET [NAME] = @NAME, [DESCRIPTION] = @DESCRIPTION, ["& _ + "PARAMETERS] = @PARAMETERS WHERE (([GUID] = @Original_GUID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME,"& _ + " DESCRIPTION, PARAMETERS FROM TBMT_FUNCTIONS WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -5078,7 +5078,7 @@ Namespace DS_DD_ECMTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM dbo.TBEDI_XML_FUNCTIONS" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM dbo.TBMT_FUNCTIONS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -5086,7 +5086,7 @@ Namespace DS_DD_ECMTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DS_DD_ECM.TBEDI_XML_FUNCTIONSDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DS_DD_ECM.TBMT_FUNCTIONSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -5099,9 +5099,9 @@ Namespace DS_DD_ECMTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DS_DD_ECM.TBEDI_XML_FUNCTIONSDataTable + Public Overloads Overridable Function GetData() As DS_DD_ECM.TBMT_FUNCTIONSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DS_DD_ECM.TBEDI_XML_FUNCTIONSDataTable = New DS_DD_ECM.TBEDI_XML_FUNCTIONSDataTable() + Dim dataTable As DS_DD_ECM.TBMT_FUNCTIONSDataTable = New DS_DD_ECM.TBMT_FUNCTIONSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -5109,7 +5109,7 @@ Namespace DS_DD_ECMTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DS_DD_ECM.TBEDI_XML_FUNCTIONSDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DS_DD_ECM.TBMT_FUNCTIONSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -5117,7 +5117,7 @@ Namespace DS_DD_ECMTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DS_DD_ECM) As Integer - Return Me.Adapter.Update(dataSet, "TBEDI_XML_FUNCTIONS") + Return Me.Adapter.Update(dataSet, "TBMT_FUNCTIONS") End Function _ - Public Property TBEDI_XML_FUNCTIONSTableAdapter() As TBEDI_XML_FUNCTIONSTableAdapter + Public Property TBMT_FUNCTIONSTableAdapter() As TBMT_FUNCTIONSTableAdapter Get - Return Me._tBEDI_XML_FUNCTIONSTableAdapter + Return Me._tBMT_FUNCTIONSTableAdapter End Get Set - Me._tBEDI_XML_FUNCTIONSTableAdapter = value + Me._tBMT_FUNCTIONSTableAdapter = value End Set End Property @@ -5788,9 +5788,9 @@ Namespace DS_DD_ECMTableAdapters AndAlso (Not (Me._tBEDI_XML_NODESTableAdapter.Connection) Is Nothing)) Then Return Me._tBEDI_XML_NODESTableAdapter.Connection End If - If ((Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection) Is Nothing)) Then - Return Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection + If ((Not (Me._tBMT_FUNCTIONSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBMT_FUNCTIONSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBMT_FUNCTIONSTableAdapter.Connection End If If ((Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBMT_CONFIGTableAdapter.Connection) Is Nothing)) Then @@ -5821,7 +5821,7 @@ Namespace DS_DD_ECMTableAdapters If (Not (Me._tBEDI_XML_NODESTableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) Then + If (Not (Me._tBMT_FUNCTIONSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then @@ -5874,12 +5874,12 @@ Namespace DS_DD_ECMTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_FUNCTIONS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBMT_FUNCTIONSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMT_FUNCTIONS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBEDI_XML_FUNCTIONSTableAdapter.Update(updatedRows)) + result = (result + Me._tBMT_FUNCTIONSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -5934,11 +5934,11 @@ Namespace DS_DD_ECMTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_FUNCTIONS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBMT_FUNCTIONSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMT_FUNCTIONS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBEDI_XML_FUNCTIONSTableAdapter.Update(addedRows)) + result = (result + Me._tBMT_FUNCTIONSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -5968,11 +5968,11 @@ Namespace DS_DD_ECMTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_FUNCTIONS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBMT_FUNCTIONSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMT_FUNCTIONS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBEDI_XML_FUNCTIONSTableAdapter.Update(deletedRows)) + result = (result + Me._tBMT_FUNCTIONSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -6069,8 +6069,8 @@ Namespace DS_DD_ECMTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If - If ((Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection) = false)) Then + If ((Not (Me._tBMT_FUNCTIONSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBMT_FUNCTIONSTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If @@ -6149,13 +6149,13 @@ Namespace DS_DD_ECMTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEDI_XML_NODESTableAdapter.Adapter) End If End If - If (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBEDI_XML_FUNCTIONSTableAdapter, Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection) - Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBEDI_XML_FUNCTIONSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBEDI_XML_FUNCTIONSTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBEDI_XML_FUNCTIONSTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEDI_XML_FUNCTIONSTableAdapter.Adapter) + If (Not (Me._tBMT_FUNCTIONSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBMT_FUNCTIONSTableAdapter, Me._tBMT_FUNCTIONSTableAdapter.Connection) + Me._tBMT_FUNCTIONSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBMT_FUNCTIONSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBMT_FUNCTIONSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBMT_FUNCTIONSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMT_FUNCTIONSTableAdapter.Adapter) End If End If If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then @@ -6243,9 +6243,9 @@ Namespace DS_DD_ECMTableAdapters Me._tBEDI_XML_NODESTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_NODESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEDI_XML_NODESTableAdapter.Transaction = Nothing End If - If (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) Then - Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_FUNCTIONSTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBEDI_XML_FUNCTIONSTableAdapter.Transaction = Nothing + If (Not (Me._tBMT_FUNCTIONSTableAdapter) Is Nothing) Then + Me._tBMT_FUNCTIONSTableAdapter.Connection = CType(revertConnections(Me._tBMT_FUNCTIONSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBMT_FUNCTIONSTableAdapter.Transaction = Nothing End If If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then Me._tBMT_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBMT_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) diff --git a/MultiTool.Form/DS_DD_ECM.xsd b/MultiTool.Form/DS_DD_ECM.xsd index 9ac6270..b1e004a 100644 --- a/MultiTool.Form/DS_DD_ECM.xsd +++ b/MultiTool.Form/DS_DD_ECM.xsd @@ -249,12 +249,12 @@ SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD FROM TBEDI_XML_NODES WHERE (GUID = @GUID - + - + - DELETE FROM [dbo].[TBEDI_XML_FUNCTIONS] WHERE (([GUID] = @Original_GUID)) + DELETE FROM [dbo].[TBMT_FUNCTIONS] WHERE (([GUID] = @Original_GUID)) @@ -262,8 +262,8 @@ SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD FROM TBEDI_XML_NODES WHERE (GUID = @GUID - INSERT INTO [dbo].[TBEDI_XML_FUNCTIONS] ([NAME], [DESCRIPTION], [PARAMETERS]) VALUES (@NAME, @DESCRIPTION, @PARAMETERS); -SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM TBEDI_XML_FUNCTIONS WHERE (GUID = SCOPE_IDENTITY()) + INSERT INTO [dbo].[TBMT_FUNCTIONS] ([NAME], [DESCRIPTION], [PARAMETERS]) VALUES (@NAME, @DESCRIPTION, @PARAMETERS); +SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM TBMT_FUNCTIONS WHERE (GUID = SCOPE_IDENTITY()) @@ -273,14 +273,14 @@ SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM TBEDI_XML_FUNCTIONS WHERE (GUID - SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM dbo.TBEDI_XML_FUNCTIONS + SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM dbo.TBMT_FUNCTIONS - UPDATE [dbo].[TBEDI_XML_FUNCTIONS] SET [NAME] = @NAME, [DESCRIPTION] = @DESCRIPTION, [PARAMETERS] = @PARAMETERS WHERE (([GUID] = @Original_GUID)); -SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM TBEDI_XML_FUNCTIONS WHERE (GUID = @GUID) + UPDATE [dbo].[TBMT_FUNCTIONS] SET [NAME] = @NAME, [DESCRIPTION] = @DESCRIPTION, [PARAMETERS] = @PARAMETERS WHERE (([GUID] = @Original_GUID)); +SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM TBMT_FUNCTIONS WHERE (GUID = @GUID) @@ -477,7 +477,7 @@ WHERE (GUID = @Original_GUID) - + @@ -569,8 +569,8 @@ WHERE (GUID = @Original_GUID) - - + + @@ -580,7 +580,7 @@ WHERE (GUID = @Original_GUID) - + diff --git a/MultiTool.Form/DS_DD_ECM.xss b/MultiTool.Form/DS_DD_ECM.xss index 0cce35e..155fce9 100644 --- a/MultiTool.Form/DS_DD_ECM.xss +++ b/MultiTool.Form/DS_DD_ECM.xss @@ -10,11 +10,11 @@ - + - + 240 diff --git a/MultiTool.Form/frmConfig.Designer.vb b/MultiTool.Form/frmConfig.Designer.vb index bfc5f3b..c318d7b 100644 --- a/MultiTool.Form/frmConfig.Designer.vb +++ b/MultiTool.Form/frmConfig.Designer.vb @@ -416,7 +416,7 @@ Partial Class frmConfig ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBMT_CONFIGTableAdapter = Me.TBMT_CONFIGTableAdapter - Me.TableAdapterManager.TBEDI_XML_FUNCTIONSTableAdapter = Nothing + Me.TableAdapterManager.TBMT_FUNCTIONSTableAdapter = Nothing Me.TableAdapterManager.TBEDI_XML_NODESTableAdapter = Nothing Me.TableAdapterManager.TBEDI_XML_TEMPLATE_ITEMSTableAdapter = Me.TBEDI_XML_TEMPLATE_ITEMSTableAdapter Me.TableAdapterManager.TBEDI_XML_TEMPLATESTableAdapter = Nothing