diff --git a/MultiTool.Form/CREATE_DATABASE.sql b/MultiTool.Form/CREATE_DATABASE.sql index 99db8d6..9e6f8c9 100644 --- a/MultiTool.Form/CREATE_DATABASE.sql +++ b/MultiTool.Form/CREATE_DATABASE.sql @@ -62,11 +62,11 @@ ALTER TABLE [dbo].[TBEDI_XML_FUNCTIONS] DROP CONSTRAINT [DF_TBEDI_XML_FUNCTIONS_ GO ALTER TABLE [dbo].[TBEDI_XML_FUNCTIONS] DROP CONSTRAINT [DF_TBEDI_XML_FUNCTIONS_ACTIVE] GO -ALTER TABLE [dbo].[TBEDI_XML_CONFIG] DROP CONSTRAINT [DF_TBEDI_XML_CONFIG_ADDED_WHEN] +ALTER TABLE [dbo].[TBMT_CONFIG] DROP CONSTRAINT [DF_TBMT_CONFIG_ADDED_WHEN] GO -ALTER TABLE [dbo].[TBEDI_XML_CONFIG] DROP CONSTRAINT [DF_TBEDI_XML_CONFIG_ADDED_WHO] +ALTER TABLE [dbo].[TBMT_CONFIG] DROP CONSTRAINT [DF_TBMT_CONFIG_ADDED_WHO] GO -ALTER TABLE [dbo].[TBEDI_XML_CONFIG] DROP CONSTRAINT [DF_TBEDI_XML_CONFIG_ACTIVE] +ALTER TABLE [dbo].[TBMT_CONFIG] DROP CONSTRAINT [DF_TBMT_CONFIG_ACTIVE] GO /****** Object: Table [dbo].[TBEDI_XML_TYPES] Script Date: 26.11.2021 16:07:58 ******/ IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[TBEDI_XML_TYPES]') AND type in (N'U')) @@ -100,16 +100,16 @@ GO 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] GO -/****** Object: Table [dbo].[TBEDI_XML_CONFIG] Script Date: 26.11.2021 16:07:58 ******/ -IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[TBEDI_XML_CONFIG]') AND type in (N'U')) -DROP TABLE [dbo].[TBEDI_XML_CONFIG] +/****** 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')) +DROP TABLE [dbo].[TBMT_CONFIG] GO -/****** Object: Table [dbo].[TBEDI_XML_CONFIG] Script Date: 26.11.2021 16:07:58 ******/ +/****** Object: Table [dbo].[TBMT_CONFIG] Script Date: 26.11.2021 16:07:58 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -CREATE TABLE [dbo].[TBEDI_XML_CONFIG]( +CREATE TABLE [dbo].[TBMT_CONFIG]( [GUID] [int] IDENTITY(1,1) NOT NULL, [KEY] [nvarchar](100) NOT NULL, [VALUE] [nvarchar](500) NOT NULL, @@ -119,7 +119,7 @@ CREATE TABLE [dbo].[TBEDI_XML_CONFIG]( [ADDED_WHEN] [datetime] NULL, [CHANGED_WHO] [nvarchar](50) NULL, [CHANGED_WHEN] [datetime] NULL, - CONSTRAINT [PK_TBEDI_XML_CONFIG] PRIMARY KEY CLUSTERED + CONSTRAINT [PK_TBMT_CONFIG] PRIMARY KEY CLUSTERED ( [GUID] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] @@ -307,27 +307,27 @@ CREATE TABLE [dbo].[TBEDI_XML_TYPES]( )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO -SET IDENTITY_INSERT [dbo].[TBEDI_XML_CONFIG] ON +SET IDENTITY_INSERT [dbo].[TBMT_CONFIG] ON GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (2, N'YEAR_OVERRIDE', N'2020', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:33:12.413' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (2, N'YEAR_OVERRIDE', N'2020', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:33:12.413' AS DateTime), NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (3, N'WEBSERVICE_BASEURL', N'http://sDD-VMP05-VM01:8181', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:34:07.760' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (3, N'WEBSERVICE_BASEURL', N'http://sDD-VMP05-VM01:8181', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:34:07.760' AS DateTime), NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (4, N'WEBSERVICE_USERNAME', N'DigitalData', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:34:22.930' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (4, N'WEBSERVICE_USERNAME', N'DigitalData', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:34:22.930' AS DateTime), NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (5, N'WEBSERIVCE_PASSWORD', N'dd', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:34:45.617' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (5, N'WEBSERIVCE_PASSWORD', N'dd', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:34:45.617' AS DateTime), NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (6, N'WEBSERVICE_IMPORT_BASE_PATH', N'\\172.24.12.51\mesonic$\WinLine', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:35:09.290' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (6, N'WEBSERVICE_IMPORT_BASE_PATH', N'\\172.24.12.51\mesonic$\WinLine', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:35:09.290' AS DateTime), NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (8, N'WEBSERVICE_IMPORT_RELATIVE_PATH', N'', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:35:32.977' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (8, N'WEBSERVICE_IMPORT_RELATIVE_PATH', N'', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:35:32.977' AS DateTime), NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (10, N'INPUT_DIRECTORY', N'P:\Projekte DIGITAL DATA\Schaum\mesonic Projekt\Werks EDI Import\Input', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:37:16.697' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (10, N'INPUT_DIRECTORY', N'P:\Projekte DIGITAL DATA\Schaum\mesonic Projekt\Werks EDI Import\Input', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:37:16.697' AS DateTime), NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (11, N'OUTPUT_DIRECTORY', N'', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:37:22.447' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (11, N'OUTPUT_DIRECTORY', N'', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:37:22.447' AS DateTime), NULL, NULL) GO -INSERT [dbo].[TBEDI_XML_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (12, N'TEMPLATE_DIRECTORY', N'P:\Projekte DIGITAL DATA\Schaum\mesonic Projekt\Werks EDI Import\Schemata', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:37:48.697' AS DateTime), NULL, NULL) +INSERT [dbo].[TBMT_CONFIG] ([GUID], [KEY], [VALUE], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (12, N'TEMPLATE_DIRECTORY', N'P:\Projekte DIGITAL DATA\Schaum\mesonic Projekt\Werks EDI Import\Schemata', 1, NULL, N'DEFAULT', CAST(N'2021-11-22T10:37:48.697' AS DateTime), NULL, NULL) GO -SET IDENTITY_INSERT [dbo].[TBEDI_XML_CONFIG] OFF +SET IDENTITY_INSERT [dbo].[TBMT_CONFIG] OFF GO SET IDENTITY_INSERT [dbo].[TBEDI_XML_FUNCTIONS] ON GO @@ -509,11 +509,11 @@ INSERT [dbo].[TBEDI_XML_TYPES] ([GUID], [NAME], [ACTIVE], [COMMENT], [ADDED_WHO] GO SET IDENTITY_INSERT [dbo].[TBEDI_XML_TYPES] OFF GO -ALTER TABLE [dbo].[TBEDI_XML_CONFIG] ADD CONSTRAINT [DF_TBEDI_XML_CONFIG_ACTIVE] DEFAULT ((1)) FOR [ACTIVE] +ALTER TABLE [dbo].[TBMT_CONFIG] ADD CONSTRAINT [DF_TBMT_CONFIG_ACTIVE] DEFAULT ((1)) FOR [ACTIVE] GO -ALTER TABLE [dbo].[TBEDI_XML_CONFIG] ADD CONSTRAINT [DF_TBEDI_XML_CONFIG_ADDED_WHO] DEFAULT (N'DEFAULT') FOR [ADDED_WHO] +ALTER TABLE [dbo].[TBMT_CONFIG] ADD CONSTRAINT [DF_TBMT_CONFIG_ADDED_WHO] DEFAULT (N'DEFAULT') FOR [ADDED_WHO] GO -ALTER TABLE [dbo].[TBEDI_XML_CONFIG] ADD CONSTRAINT [DF_TBEDI_XML_CONFIG_ADDED_WHEN] DEFAULT (getdate()) FOR [ADDED_WHEN] +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] GO diff --git a/MultiTool.Form/DS_DD_ECM.Designer.vb b/MultiTool.Form/DS_DD_ECM.Designer.vb index 0133e62..046e4a9 100644 --- a/MultiTool.Form/DS_DD_ECM.Designer.vb +++ b/MultiTool.Form/DS_DD_ECM.Designer.vb @@ -35,7 +35,7 @@ Partial Public Class DS_DD_ECM Private tableTBEDI_XML_FUNCTIONS As TBEDI_XML_FUNCTIONSDataTable - Private tableTBEDI_XML_CONFIG As TBEDI_XML_CONFIGDataTable + Private tableTBMT_CONFIG As TBMT_CONFIGDataTable Private relationTBEDI_XML_TEMPLATE_ITEMS_TBEDI_XML_FUNCTIONS As Global.System.Data.DataRelation @@ -87,8 +87,8 @@ Partial Public Class DS_DD_ECM If (Not (ds.Tables("TBEDI_XML_FUNCTIONS")) Is Nothing) Then MyBase.Tables.Add(New TBEDI_XML_FUNCTIONSDataTable(ds.Tables("TBEDI_XML_FUNCTIONS"))) End If - If (Not (ds.Tables("TBEDI_XML_CONFIG")) Is Nothing) Then - MyBase.Tables.Add(New TBEDI_XML_CONFIGDataTable(ds.Tables("TBEDI_XML_CONFIG"))) + If (Not (ds.Tables("TBMT_CONFIG")) Is Nothing) Then + MyBase.Tables.Add(New TBMT_CONFIGDataTable(ds.Tables("TBMT_CONFIG"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix @@ -161,9 +161,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_CONFIG() As TBEDI_XML_CONFIGDataTable + Public ReadOnly Property TBMT_CONFIG() As TBMT_CONFIGDataTable Get - Return Me.tableTBEDI_XML_CONFIG + Return Me.tableTBMT_CONFIG End Get End Property @@ -249,8 +249,8 @@ Partial Public Class DS_DD_ECM If (Not (ds.Tables("TBEDI_XML_FUNCTIONS")) Is Nothing) Then MyBase.Tables.Add(New TBEDI_XML_FUNCTIONSDataTable(ds.Tables("TBEDI_XML_FUNCTIONS"))) End If - If (Not (ds.Tables("TBEDI_XML_CONFIG")) Is Nothing) Then - MyBase.Tables.Add(New TBEDI_XML_CONFIGDataTable(ds.Tables("TBEDI_XML_CONFIG"))) + If (Not (ds.Tables("TBMT_CONFIG")) Is Nothing) Then + MyBase.Tables.Add(New TBMT_CONFIGDataTable(ds.Tables("TBMT_CONFIG"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix @@ -314,10 +314,10 @@ Partial Public Class DS_DD_ECM Me.tableTBEDI_XML_FUNCTIONS.InitVars End If End If - Me.tableTBEDI_XML_CONFIG = CType(MyBase.Tables("TBEDI_XML_CONFIG"),TBEDI_XML_CONFIGDataTable) + Me.tableTBMT_CONFIG = CType(MyBase.Tables("TBMT_CONFIG"),TBMT_CONFIGDataTable) If (initTable = true) Then - If (Not (Me.tableTBEDI_XML_CONFIG) Is Nothing) Then - Me.tableTBEDI_XML_CONFIG.InitVars + If (Not (Me.tableTBMT_CONFIG) Is Nothing) Then + 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") @@ -343,8 +343,8 @@ Partial Public Class DS_DD_ECM MyBase.Tables.Add(Me.tableTBEDI_XML_NODES) Me.tableTBEDI_XML_FUNCTIONS = New TBEDI_XML_FUNCTIONSDataTable() MyBase.Tables.Add(Me.tableTBEDI_XML_FUNCTIONS) - Me.tableTBEDI_XML_CONFIG = New TBEDI_XML_CONFIGDataTable() - MyBase.Tables.Add(Me.tableTBEDI_XML_CONFIG) + 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_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) @@ -385,7 +385,7 @@ Partial Public Class DS_DD_ECM _ - Private Function ShouldSerializeTBEDI_XML_CONFIG() As Boolean + Private Function ShouldSerializeTBMT_CONFIG() As Boolean Return false End Function @@ -463,7 +463,7 @@ Partial Public Class DS_DD_ECM Public Delegate Sub TBEDI_XML_FUNCTIONSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_FUNCTIONSRowChangeEvent) _ - Public Delegate Sub TBEDI_XML_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEDI_XML_CONFIGRowChangeEvent) + Public Delegate Sub TBMT_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMT_CONFIGRowChangeEvent) ''' '''Represents the strongly named DataTable class. @@ -2121,8 +2121,8 @@ Partial Public Class DS_DD_ECM ''' _ - Partial Public Class TBEDI_XML_CONFIGDataTable - Inherits Global.System.Data.TypedTableBase(Of TBEDI_XML_CONFIGRow) + Partial Public Class TBMT_CONFIGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBMT_CONFIGRow) Private columnGUID As Global.System.Data.DataColumn @@ -2148,7 +2148,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_CONFIG" + Me.TableName = "TBMT_CONFIG" Me.BeginInit Me.InitClass Me.EndInit @@ -2270,50 +2270,50 @@ Partial Public Class DS_DD_ECM _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBEDI_XML_CONFIGRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBMT_CONFIGRow Get - Return CType(Me.Rows(index),TBEDI_XML_CONFIGRow) + Return CType(Me.Rows(index),TBMT_CONFIGRow) End Get End Property _ - Public Event TBEDI_XML_CONFIGRowChanging As TBEDI_XML_CONFIGRowChangeEventHandler + Public Event TBMT_CONFIGRowChanging As TBMT_CONFIGRowChangeEventHandler _ - Public Event TBEDI_XML_CONFIGRowChanged As TBEDI_XML_CONFIGRowChangeEventHandler + Public Event TBMT_CONFIGRowChanged As TBMT_CONFIGRowChangeEventHandler _ - Public Event TBEDI_XML_CONFIGRowDeleting As TBEDI_XML_CONFIGRowChangeEventHandler + Public Event TBMT_CONFIGRowDeleting As TBMT_CONFIGRowChangeEventHandler _ - Public Event TBEDI_XML_CONFIGRowDeleted As TBEDI_XML_CONFIGRowChangeEventHandler + Public Event TBMT_CONFIGRowDeleted As TBMT_CONFIGRowChangeEventHandler _ - Public Overloads Sub AddTBEDI_XML_CONFIGRow(ByVal row As TBEDI_XML_CONFIGRow) + Public Overloads Sub AddTBMT_CONFIGRow(ByVal row As TBMT_CONFIGRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBEDI_XML_CONFIGRow(ByVal KEY As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal TEMPLATE_ID As Integer, ByVal COMMENT As String) As TBEDI_XML_CONFIGRow - Dim rowTBEDI_XML_CONFIGRow As TBEDI_XML_CONFIGRow = CType(Me.NewRow,TBEDI_XML_CONFIGRow) + Public Overloads Function AddTBMT_CONFIGRow(ByVal KEY As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal TEMPLATE_ID As Integer, ByVal COMMENT As String) As TBMT_CONFIGRow + Dim rowTBMT_CONFIGRow As TBMT_CONFIGRow = CType(Me.NewRow,TBMT_CONFIGRow) Dim columnValuesArray() As Object = New Object() {Nothing, KEY, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, TEMPLATE_ID, COMMENT} - rowTBEDI_XML_CONFIGRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBEDI_XML_CONFIGRow) - Return rowTBEDI_XML_CONFIGRow + rowTBMT_CONFIGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBMT_CONFIGRow) + Return rowTBMT_CONFIGRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBEDI_XML_CONFIGRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBEDI_XML_CONFIGRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBMT_CONFIGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBMT_CONFIGRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEDI_XML_CONFIGDataTable = CType(MyBase.Clone,TBEDI_XML_CONFIGDataTable) + Dim cln As TBMT_CONFIGDataTable = CType(MyBase.Clone,TBMT_CONFIGDataTable) cln.InitVars Return cln End Function @@ -2321,7 +2321,7 @@ Partial Public Class DS_DD_ECM _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBEDI_XML_CONFIGDataTable() + Return New TBMT_CONFIGDataTable() End Function _ - Public Function NewTBEDI_XML_CONFIGRow() As TBEDI_XML_CONFIGRow - Return CType(Me.NewRow,TBEDI_XML_CONFIGRow) + Public Function NewTBMT_CONFIGRow() As TBMT_CONFIGRow + Return CType(Me.NewRow,TBMT_CONFIGRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBEDI_XML_CONFIGRow(builder) + Return New TBMT_CONFIGRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBEDI_XML_CONFIGRow) + Return GetType(TBMT_CONFIGRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBEDI_XML_CONFIGRowChangedEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_CONFIGRowChanged(Me, New TBEDI_XML_CONFIGRowChangeEvent(CType(e.Row,TBEDI_XML_CONFIGRow), e.Action)) + If (Not (Me.TBMT_CONFIGRowChangedEvent) Is Nothing) Then + RaiseEvent TBMT_CONFIGRowChanged(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row,TBMT_CONFIGRow), e.Action)) End If End Sub @@ -2412,8 +2412,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_CONFIGRowChangingEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_CONFIGRowChanging(Me, New TBEDI_XML_CONFIGRowChangeEvent(CType(e.Row,TBEDI_XML_CONFIGRow), e.Action)) + If (Not (Me.TBMT_CONFIGRowChangingEvent) Is Nothing) Then + RaiseEvent TBMT_CONFIGRowChanging(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row,TBMT_CONFIGRow), e.Action)) End If End Sub @@ -2421,8 +2421,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_CONFIGRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_CONFIGRowDeleted(Me, New TBEDI_XML_CONFIGRowChangeEvent(CType(e.Row,TBEDI_XML_CONFIGRow), e.Action)) + If (Not (Me.TBMT_CONFIGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBMT_CONFIGRowDeleted(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row,TBMT_CONFIGRow), e.Action)) End If End Sub @@ -2430,14 +2430,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_CONFIGRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEDI_XML_CONFIGRowDeleting(Me, New TBEDI_XML_CONFIGRowChangeEvent(CType(e.Row,TBEDI_XML_CONFIGRow), e.Action)) + If (Not (Me.TBMT_CONFIGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBMT_CONFIGRowDeleting(Me, New TBMT_CONFIGRowChangeEvent(CType(e.Row,TBMT_CONFIGRow), e.Action)) End If End Sub _ - Public Sub RemoveTBEDI_XML_CONFIGRow(ByVal row As TBEDI_XML_CONFIGRow) + Public Sub RemoveTBMT_CONFIGRow(ByVal row As TBMT_CONFIGRow) Me.Rows.Remove(row) End Sub @@ -2464,7 +2464,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_CONFIGDataTable" + attribute2.FixedValue = "TBMT_CONFIGDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3075,26 +3075,26 @@ Partial Public Class DS_DD_ECM ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBEDI_XML_CONFIGRow + Partial Public Class TBMT_CONFIGRow Inherits Global.System.Data.DataRow - Private tableTBEDI_XML_CONFIG As TBEDI_XML_CONFIGDataTable + Private tableTBMT_CONFIG As TBMT_CONFIGDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEDI_XML_CONFIG = CType(Me.Table,TBEDI_XML_CONFIGDataTable) + Me.tableTBMT_CONFIG = CType(Me.Table,TBMT_CONFIGDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBEDI_XML_CONFIG.GUIDColumn),Integer) + Return CType(Me(Me.tableTBMT_CONFIG.GUIDColumn),Integer) End Get Set - Me(Me.tableTBEDI_XML_CONFIG.GUIDColumn) = value + Me(Me.tableTBMT_CONFIG.GUIDColumn) = value End Set End Property @@ -3102,10 +3102,10 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KEY() As String Get - Return CType(Me(Me.tableTBEDI_XML_CONFIG.KEYColumn),String) + Return CType(Me(Me.tableTBMT_CONFIG.KEYColumn),String) End Get Set - Me(Me.tableTBEDI_XML_CONFIG.KEYColumn) = value + Me(Me.tableTBMT_CONFIG.KEYColumn) = value End Set End Property @@ -3113,10 +3113,10 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VALUE() As String Get - Return CType(Me(Me.tableTBEDI_XML_CONFIG.VALUEColumn),String) + Return CType(Me(Me.tableTBMT_CONFIG.VALUEColumn),String) End Get Set - Me(Me.tableTBEDI_XML_CONFIG.VALUEColumn) = value + Me(Me.tableTBMT_CONFIG.VALUEColumn) = value End Set End Property @@ -3124,10 +3124,10 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBEDI_XML_CONFIG.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBMT_CONFIG.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBEDI_XML_CONFIG.ADDED_WHOColumn) = value + Me(Me.tableTBMT_CONFIG.ADDED_WHOColumn) = value End Set End Property @@ -3136,13 +3136,13 @@ Partial Public Class DS_DD_ECM Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBEDI_XML_CONFIG.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBMT_CONFIG.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEDI_XML_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBEDI_XML_CONFIG.ADDED_WHENColumn) = value + Me(Me.tableTBMT_CONFIG.ADDED_WHENColumn) = value End Set End Property @@ -3151,13 +3151,13 @@ Partial Public Class DS_DD_ECM Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBEDI_XML_CONFIG.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBMT_CONFIG.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEDI_XML_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBEDI_XML_CONFIG.CHANGED_WHOColumn) = value + Me(Me.tableTBMT_CONFIG.CHANGED_WHOColumn) = value End Set End Property @@ -3166,13 +3166,13 @@ Partial Public Class DS_DD_ECM Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBEDI_XML_CONFIG.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBMT_CONFIG.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEDI_XML_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBEDI_XML_CONFIG.CHANGED_WHENColumn) = value + Me(Me.tableTBMT_CONFIG.CHANGED_WHENColumn) = value End Set End Property @@ -3180,10 +3180,10 @@ Partial Public Class DS_DD_ECM Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBEDI_XML_CONFIG.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBMT_CONFIG.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBEDI_XML_CONFIG.ACTIVEColumn) = value + Me(Me.tableTBMT_CONFIG.ACTIVEColumn) = value End Set End Property @@ -3192,13 +3192,13 @@ Partial Public Class DS_DD_ECM Public Property TEMPLATE_ID() As Integer Get Try - Return CType(Me(Me.tableTBEDI_XML_CONFIG.TEMPLATE_IDColumn),Integer) + Return CType(Me(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEMPLATE_ID in Tabelle TBEDI_XML_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEMPLATE_ID in Tabelle TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBEDI_XML_CONFIG.TEMPLATE_IDColumn) = value + Me(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn) = value End Set End Property @@ -3207,74 +3207,74 @@ Partial Public Class DS_DD_ECM Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBEDI_XML_CONFIG.COMMENTColumn),String) + Return CType(Me(Me.tableTBMT_CONFIG.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEDI_XML_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBMT_CONFIG ist DBNull.", e) End Try End Get Set - Me(Me.tableTBEDI_XML_CONFIG.COMMENTColumn) = value + Me(Me.tableTBMT_CONFIG.COMMENTColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBEDI_XML_CONFIG.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBMT_CONFIG.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBEDI_XML_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBMT_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBEDI_XML_CONFIG.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBMT_CONFIG.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBEDI_XML_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBMT_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBEDI_XML_CONFIG.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBMT_CONFIG.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBEDI_XML_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBMT_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTEMPLATE_IDNull() As Boolean - Return Me.IsNull(Me.tableTBEDI_XML_CONFIG.TEMPLATE_IDColumn) + Return Me.IsNull(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn) End Function _ Public Sub SetTEMPLATE_IDNull() - Me(Me.tableTBEDI_XML_CONFIG.TEMPLATE_IDColumn) = Global.System.Convert.DBNull + Me(Me.tableTBMT_CONFIG.TEMPLATE_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBEDI_XML_CONFIG.COMMENTColumn) + Return Me.IsNull(Me.tableTBMT_CONFIG.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() - Me(Me.tableTBEDI_XML_CONFIG.COMMENTColumn) = Global.System.Convert.DBNull + Me(Me.tableTBMT_CONFIG.COMMENTColumn) = Global.System.Convert.DBNull End Sub End Class @@ -3462,16 +3462,16 @@ Partial Public Class DS_DD_ECM '''Row event argument class ''' _ - Public Class TBEDI_XML_CONFIGRowChangeEvent + Public Class TBMT_CONFIGRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBEDI_XML_CONFIGRow + Private eventRow As TBMT_CONFIGRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBEDI_XML_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBMT_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -3479,7 +3479,7 @@ Partial Public Class DS_DD_ECM _ - Public ReadOnly Property Row() As TBEDI_XML_CONFIGRow + Public ReadOnly Property Row() As TBMT_CONFIGRow Get Return Me.eventRow End Get @@ -5245,7 +5245,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_CONFIGTableAdapter + Partial Public Class TBMT_CONFIGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -5362,7 +5362,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_CONFIG" + tableMapping.DataSetTable = "TBMT_CONFIG" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("KEY", "KEY") tableMapping.ColumnMappings.Add("VALUE", "VALUE") @@ -5376,15 +5376,15 @@ Namespace DS_DD_ECMTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBEDI_XML_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBMT_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBEDI_XML_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ([KEY], VALUE, ADDED_WHO, "& _ - "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, TEMPLATE_ID, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@KEY,@VALUE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@ACTIVE,@TEMP"& _ - "LATE_ID,@COMMENT)" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBMT_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ([KEY], VALUE, ADDED_WHO, ADDED"& _ + "_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, TEMPLATE_ID, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ("& _ + "@KEY,@VALUE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@ACTIVE,@TEMPLATE_"& _ + "ID,@COMMENT)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KEY", Global.System.Data.SqlDbType.NVarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.NVarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -5397,10 +5397,10 @@ Namespace DS_DD_ECMTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.NVarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBEDI_XML_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET [KEY] = @KEY, VALUE = @VALUE, A"& _ - "DDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHA"& _ - "NGED_WHEN = @CHANGED_WHEN, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TEMPLATE"& _ - "_ID = @TEMPLATE_ID, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBMT_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET [KEY] = @KEY, VALUE = @VALUE, ADDED_"& _ + "WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_"& _ + "WHEN = @CHANGED_WHEN, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TEMPLATE_ID ="& _ + " @TEMPLATE_ID, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KEY", Global.System.Data.SqlDbType.NVarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.NVarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -5428,7 +5428,7 @@ Namespace DS_DD_ECMTableAdapters Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, [KEY], VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ - "N, ACTIVE, TEMPLATE_ID, COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEDI_XML_CONFIG" + "N, ACTIVE, TEMPLATE_ID, COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMT_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -5436,7 +5436,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_CONFIGDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DS_DD_ECM.TBMT_CONFIGDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -5449,9 +5449,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_CONFIGDataTable + Public Overloads Overridable Function GetData() As DS_DD_ECM.TBMT_CONFIGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DS_DD_ECM.TBEDI_XML_CONFIGDataTable = New DS_DD_ECM.TBEDI_XML_CONFIGDataTable() + Dim dataTable As DS_DD_ECM.TBMT_CONFIGDataTable = New DS_DD_ECM.TBMT_CONFIGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -5459,7 +5459,7 @@ Namespace DS_DD_ECMTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DS_DD_ECM.TBEDI_XML_CONFIGDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DS_DD_ECM.TBMT_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -5467,7 +5467,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_CONFIG") + Return Me.Adapter.Update(dataSet, "TBMT_CONFIG") End Function _ - Public Property TBEDI_XML_CONFIGTableAdapter() As TBEDI_XML_CONFIGTableAdapter + Public Property TBMT_CONFIGTableAdapter() As TBMT_CONFIGTableAdapter Get - Return Me._tBEDI_XML_CONFIGTableAdapter + Return Me._tBMT_CONFIGTableAdapter End Get Set - Me._tBEDI_XML_CONFIGTableAdapter = value + Me._tBMT_CONFIGTableAdapter = value End Set End Property @@ -5792,9 +5792,9 @@ Namespace DS_DD_ECMTableAdapters AndAlso (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection) Is Nothing)) Then Return Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection End If - If ((Not (Me._tBEDI_XML_CONFIGTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBEDI_XML_CONFIGTableAdapter.Connection) Is Nothing)) Then - Return Me._tBEDI_XML_CONFIGTableAdapter.Connection + If ((Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBMT_CONFIGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBMT_CONFIGTableAdapter.Connection End If Return Nothing End Get @@ -5824,7 +5824,7 @@ Namespace DS_DD_ECMTableAdapters If (Not (Me._tBEDI_XML_FUNCTIONSTableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBEDI_XML_CONFIGTableAdapter) Is Nothing) Then + If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then count = (count + 1) End If Return count @@ -5883,12 +5883,12 @@ Namespace DS_DD_ECMTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBEDI_XML_CONFIGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMT_CONFIG.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_CONFIGTableAdapter.Update(updatedRows)) + result = (result + Me._tBMT_CONFIGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -5942,11 +5942,11 @@ Namespace DS_DD_ECMTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBEDI_XML_CONFIGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMT_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBEDI_XML_CONFIGTableAdapter.Update(addedRows)) + result = (result + Me._tBMT_CONFIGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -5960,11 +5960,11 @@ Namespace DS_DD_ECMTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DS_DD_ECM, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBEDI_XML_CONFIGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEDI_XML_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMT_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBEDI_XML_CONFIGTableAdapter.Update(deletedRows)) + result = (result + Me._tBMT_CONFIGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -6074,8 +6074,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_CONFIGTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBEDI_XML_CONFIGTableAdapter.Connection) = false)) Then + If ((Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBMT_CONFIGTableAdapter.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 @@ -6158,13 +6158,13 @@ Namespace DS_DD_ECMTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEDI_XML_FUNCTIONSTableAdapter.Adapter) End If End If - If (Not (Me._tBEDI_XML_CONFIGTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBEDI_XML_CONFIGTableAdapter, Me._tBEDI_XML_CONFIGTableAdapter.Connection) - Me._tBEDI_XML_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBEDI_XML_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBEDI_XML_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBEDI_XML_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEDI_XML_CONFIGTableAdapter.Adapter) + If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBMT_CONFIGTableAdapter, Me._tBMT_CONFIGTableAdapter.Connection) + Me._tBMT_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBMT_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBMT_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBMT_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMT_CONFIGTableAdapter.Adapter) End If End If ' @@ -6247,9 +6247,9 @@ Namespace DS_DD_ECMTableAdapters Me._tBEDI_XML_FUNCTIONSTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_FUNCTIONSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEDI_XML_FUNCTIONSTableAdapter.Transaction = Nothing End If - If (Not (Me._tBEDI_XML_CONFIGTableAdapter) Is Nothing) Then - Me._tBEDI_XML_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBEDI_XML_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBEDI_XML_CONFIGTableAdapter.Transaction = Nothing + If (Not (Me._tBMT_CONFIGTableAdapter) Is Nothing) Then + Me._tBMT_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBMT_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBMT_CONFIGTableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter diff --git a/MultiTool.Form/DS_DD_ECM.xsd b/MultiTool.Form/DS_DD_ECM.xsd index 006ee90..9ac6270 100644 --- a/MultiTool.Form/DS_DD_ECM.xsd +++ b/MultiTool.Form/DS_DD_ECM.xsd @@ -300,60 +300,60 @@ SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM TBEDI_XML_FUNCTIONS WHERE (GUID - + - + - DELETE FROM TBEDI_XML_CONFIG + DELETE FROM TBMT_CONFIG WHERE (GUID = @Original_GUID) - + - INSERT INTO TBEDI_XML_CONFIG + INSERT INTO TBMT_CONFIG ([KEY], VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, TEMPLATE_ID, COMMENT) VALUES (@KEY,@VALUE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@ACTIVE,@TEMPLATE_ID,@COMMENT) - - - - - - - - - + + + + + + + + + SELECT GUID, [KEY], VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, TEMPLATE_ID, COMMENT -FROM TBEDI_XML_CONFIG +FROM TBMT_CONFIG - UPDATE TBEDI_XML_CONFIG + UPDATE TBMT_CONFIG SET [KEY] = @KEY, VALUE = @VALUE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, ACTIVE = @ACTIVE, TEMPLATE_ID = @TEMPLATE_ID, COMMENT = @COMMENT WHERE (GUID = @Original_GUID) - - - - - - - - - - + + + + + + + + + + @@ -505,7 +505,7 @@ WHERE (GUID = @Original_GUID) - + @@ -573,8 +573,8 @@ WHERE (GUID = @Original_GUID) - - + + diff --git a/MultiTool.Form/DS_DD_ECM.xss b/MultiTool.Form/DS_DD_ECM.xss index 69e6044..0cce35e 100644 --- a/MultiTool.Form/DS_DD_ECM.xss +++ b/MultiTool.Form/DS_DD_ECM.xss @@ -11,7 +11,7 @@ - + diff --git a/MultiTool.Form/frmConfig.Designer.vb b/MultiTool.Form/frmConfig.Designer.vb index 57f3415..bfc5f3b 100644 --- a/MultiTool.Form/frmConfig.Designer.vb +++ b/MultiTool.Form/frmConfig.Designer.vb @@ -48,7 +48,7 @@ Partial Class frmConfig Me.colCHANGED_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.tabPageConfig = New DevExpress.XtraTab.XtraTabPage() Me.GridConfig = New DevExpress.XtraGrid.GridControl() - Me.TBEDI_XML_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBMT_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GridViewConfig = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colKEY = New DevExpress.XtraGrid.Columns.GridColumn() @@ -69,7 +69,7 @@ Partial Class frmConfig Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() 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.TBMT_CONFIGTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBMT_CONFIGTableAdapter() Me.TableAdapterManager = New MultiTool.Form.DS_DD_ECMTableAdapters.TableAdapterManager() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() @@ -80,7 +80,7 @@ Partial Class frmConfig CType(Me.GridViewSchema, System.ComponentModel.ISupportInitialize).BeginInit() Me.tabPageConfig.SuspendLayout() CType(Me.GridConfig, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBEDI_XML_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBMT_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewConfig, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -255,7 +255,7 @@ Partial Class frmConfig ' 'GridConfig ' - Me.GridConfig.DataSource = Me.TBEDI_XML_CONFIGBindingSource + Me.GridConfig.DataSource = Me.TBMT_CONFIGBindingSource Me.GridConfig.Dock = System.Windows.Forms.DockStyle.Fill Me.GridConfig.Location = New System.Drawing.Point(0, 0) Me.GridConfig.MainView = Me.GridViewConfig @@ -265,10 +265,10 @@ Partial Class frmConfig Me.GridConfig.TabIndex = 0 Me.GridConfig.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewConfig}) ' - 'TBEDI_XML_CONFIGBindingSource + 'TBMT_CONFIGBindingSource ' - Me.TBEDI_XML_CONFIGBindingSource.DataMember = "TBEDI_XML_CONFIG" - Me.TBEDI_XML_CONFIGBindingSource.DataSource = Me.DS_DD_ECM + Me.TBMT_CONFIGBindingSource.DataMember = "TBMT_CONFIG" + Me.TBMT_CONFIGBindingSource.DataSource = Me.DS_DD_ECM ' 'GridViewConfig ' @@ -408,14 +408,14 @@ Partial Class frmConfig ' Me.TBEDI_XML_TEMPLATE_ITEMSTableAdapter.ClearBeforeFill = True ' - 'TBEDI_XML_CONFIGTableAdapter + 'TBMT_CONFIGTableAdapter ' - Me.TBEDI_XML_CONFIGTableAdapter.ClearBeforeFill = True + Me.TBMT_CONFIGTableAdapter.ClearBeforeFill = True ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBEDI_XML_CONFIGTableAdapter = Me.TBEDI_XML_CONFIGTableAdapter + Me.TableAdapterManager.TBMT_CONFIGTableAdapter = Me.TBMT_CONFIGTableAdapter Me.TableAdapterManager.TBEDI_XML_FUNCTIONSTableAdapter = Nothing Me.TableAdapterManager.TBEDI_XML_NODESTableAdapter = Nothing Me.TableAdapterManager.TBEDI_XML_TEMPLATE_ITEMSTableAdapter = Me.TBEDI_XML_TEMPLATE_ITEMSTableAdapter @@ -445,7 +445,7 @@ Partial Class frmConfig CType(Me.GridViewSchema, System.ComponentModel.ISupportInitialize).EndInit() Me.tabPageConfig.ResumeLayout(False) CType(Me.GridConfig, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBEDI_XML_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBMT_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewConfig, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -465,8 +465,8 @@ Partial Class frmConfig Friend WithEvents DS_DD_ECM As DS_DD_ECM Friend WithEvents TBEDIXMLITEMSBindingSource As BindingSource Friend WithEvents TBEDI_XML_TEMPLATE_ITEMSTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_TEMPLATE_ITEMSTableAdapter - Friend WithEvents TBEDI_XML_CONFIGBindingSource As BindingSource - Friend WithEvents TBEDI_XML_CONFIGTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_CONFIGTableAdapter + Friend WithEvents TBMT_CONFIGBindingSource As BindingSource + Friend WithEvents TBMT_CONFIGTableAdapter As DS_DD_ECMTableAdapters.TBMT_CONFIGTableAdapter Friend WithEvents TableAdapterManager As DS_DD_ECMTableAdapters.TableAdapterManager Friend WithEvents tabPageConfig As XtraTabPage Friend WithEvents GridConfig As DevExpress.XtraGrid.GridControl diff --git a/MultiTool.Form/frmConfig.resx b/MultiTool.Form/frmConfig.resx index bf6aef8..c40470a 100644 --- a/MultiTool.Form/frmConfig.resx +++ b/MultiTool.Form/frmConfig.resx @@ -117,7 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + 758, 17 @@ -149,7 +149,7 @@ 533, 17 - + 999, 17 diff --git a/MultiTool.Form/frmConfig.vb b/MultiTool.Form/frmConfig.vb index 943af1d..45444a2 100644 --- a/MultiTool.Form/frmConfig.vb +++ b/MultiTool.Form/frmConfig.vb @@ -35,21 +35,21 @@ Public Class frmConfig } ' Default Values - DS_DD_ECM.TBEDI_XML_CONFIG.ADDED_WHOColumn.DefaultValue = Environment.UserName - DS_DD_ECM.TBEDI_XML_CONFIG.CHANGED_WHOColumn.DefaultValue = Environment.UserName + DS_DD_ECM.TBMT_CONFIG.ADDED_WHOColumn.DefaultValue = Environment.UserName + DS_DD_ECM.TBMT_CONFIG.CHANGED_WHOColumn.DefaultValue = Environment.UserName DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS.ADDED_WHOColumn.DefaultValue = Environment.UserName DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHOColumn.DefaultValue = Environment.UserName TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString() TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS) - TBEDI_XML_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString() - TBEDI_XML_CONFIGTableAdapter.Fill(DS_DD_ECM.TBEDI_XML_CONFIG) + TBMT_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString() + TBMT_CONFIGTableAdapter.Fill(DS_DD_ECM.TBMT_CONFIG) End Sub Private Sub Save() - TBEDI_XML_CONFIGTableAdapter.Update(DS_DD_ECM.TBEDI_XML_CONFIG) - DS_DD_ECM.TBEDI_XML_CONFIG.AcceptChanges() + TBMT_CONFIGTableAdapter.Update(DS_DD_ECM.TBMT_CONFIG) + DS_DD_ECM.TBMT_CONFIG.AcceptChanges() TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS) DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS.AcceptChanges() @@ -57,7 +57,7 @@ Public Class frmConfig Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick Try - TBEDI_XML_CONFIGBindingSource.EndEdit() + TBMT_CONFIGBindingSource.EndEdit() TBEDIXMLITEMSBindingSource.EndEdit() Save() @@ -77,7 +77,7 @@ Public Class frmConfig View = GridViewSchema Case tabPageConfig.Name - BindingSource = TBEDI_XML_CONFIGBindingSource + BindingSource = TBMT_CONFIGBindingSource View = GridViewConfig End Select diff --git a/MultiTool.Shared/Templates/TemplateLoader.vb b/MultiTool.Shared/Templates/TemplateLoader.vb index ca6195f..a8973f4 100644 --- a/MultiTool.Shared/Templates/TemplateLoader.vb +++ b/MultiTool.Shared/Templates/TemplateLoader.vb @@ -19,7 +19,7 @@ Namespace Templates Private Const SQL_VWEDI_XML_ITEMS = "SELECT * FROM [DD_ECM].[dbo].[VWEDI_XML_ITEMS]" Private Const SQL_VWEDI_XML_MAPPING = "SELECT * FROM [DD_ECM].[dbo].[VWEDI_XML_MAPPING]" Private Const SQL_TBEDI_XML_MANDATORS = "SELECT * FROM [DD_ECM].[dbo].[TBEDI_XML_MANDATORS] ORDER BY ORDER_KEY" - Private Const SQL_TBEDI_XML_CONFIG = "SELECT * FROM [DD_ECM].[dbo].[TBEDI_XML_CONFIG]" + Private Const SQL_TBMT_CONFIG = "SELECT * FROM [DD_ECM].[dbo].[TBMT_CONFIG]" Private Const SQL_TBEDI_XML_TEMPLATES = "SELECT * FROM [DD_ECM].[dbo].[TBEDI_XML_TEMPLATES]" Public Sub New(pLogConfig As LogConfig, pMSSQL As MSSQLServer) @@ -59,7 +59,7 @@ Namespace Templates Public Async Function LoadGeneralConfiguration() As Task(Of Boolean) Try - Dim oTable As DataTable = Await Database.GetDatatableAsync(SQL_TBEDI_XML_CONFIG) + Dim oTable As DataTable = Await Database.GetDatatableAsync(SQL_TBMT_CONFIG) Dim oGeneralConfig As New GeneralConfig For Each oRow As DataRow In oTable.Rows @@ -260,7 +260,7 @@ Namespace Templates Public Function UpdateTemplateFromDatabase(pTemplate As Template) As Template Try - Dim oTable As DataTable = Database.GetDatatable($"{SQL_TBEDI_XML_CONFIG} WHERE TEMPLATE_ID = {pTemplate.Guid}") + Dim oTable As DataTable = Database.GetDatatable($"{SQL_TBMT_CONFIG} WHERE TEMPLATE_ID = {pTemplate.Guid}") Dim oGeneralConfig As New GeneralConfig For Each oRow As DataRow In oTable.Rows