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

First Version with Template Config from Database

Browse Source
This commit is contained in:
Jonathan Jenne
2021-11-16 15:00:58 +01:00
parent 510a08c1ed
commit 964f2ee60c
26 changed files with 6234 additions and 444 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
MultiTool.Form/App.config
View File

@@ -1,5 +1,12 @@
<?xml version="1.0" encoding="utf-8" ?> <?xml version="1.0" encoding="utf-8" ?>
<configuration> <configuration>
<configSections>
</configSections>
<connectionStrings>
<add name="MultiTool.Form.My.MySettings.DD_ECMConnectionString"
connectionString="Data Source=SDD-VMP04-SQL17\SCHAUM;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup> </startup>

5
MultiTool.Form/CREATE_DATABASE.sql
View File

@@ -84,6 +84,7 @@ CREATE TABLE [dbo].[TBEDI_XML_ITEMS](
[XML_TYPE_ID] [int] NOT NULL, [XML_TYPE_ID] [int] NOT NULL,
[IS_READ_ONLY] [bit] NOT NULL, [IS_READ_ONLY] [bit] NOT NULL,
[IS_VISIBLE] [bit] NOT NULL, [IS_VISIBLE] [bit] NOT NULL,
[ORDER] [int] NOT NULL,
[FUNCTION_ID] [int] NULL [FUNCTION_ID] [int] NULL
) ON [PRIMARY] ) ON [PRIMARY]
GO GO
@@ -100,6 +101,10 @@ ALTER TABLE [dbo].[TBEDI_XML_ITEMS]
ADD CONSTRAINT DF_TBEDI_XML_ITEMS_IS_READ_ONLY ADD CONSTRAINT DF_TBEDI_XML_ITEMS_IS_READ_ONLY
DEFAULT 0 FOR IS_READ_ONLY DEFAULT 0 FOR IS_READ_ONLY
ALTER TABLE [dbo].[TBEDI_XML_ITEMS]
ADD CONSTRAINT DF_TBEDI_XML_ITEMS_ORDER
DEFAULT 0 FOR ORDER
DROP VIEW [dbo].[VWEDI_XML_ITEMS] DROP VIEW [dbo].[VWEDI_XML_ITEMS]
GO GO

5056
MultiTool.Form/DS_DD_ECM.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

9
MultiTool.Form/DS_DD_ECM.xsc Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings />
</DataSetUISetting>

425
MultiTool.Form/DS_DD_ECM.xsd Normal file
View File

@@ -0,0 +1,425 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema id="DS_DD_ECM" targetNamespace="http://tempuri.org/DS_DD_ECM.xsd" xmlns:mstns="http://tempuri.org/DS_DD_ECM.xsd" xmlns="http://tempuri.org/DS_DD_ECM.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
<xs:annotation>
<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
<DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<Connections>
<Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.MultiTool.Form.My.MySettings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
</Connections>
<Tables>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBEDI_XML_ITEMSTableAdapter" GeneratorDataComponentClassName="TBEDI_XML_ITEMSTableAdapter" Name="TBEDI_XML_ITEMS" UserDataComponentName="TBEDI_XML_ITEMSTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBEDI_XML_ITEMS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBEDI_XML_ITEMS
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [TBEDI_XML_ITEMS] ([XML_NAME], [XML_NODE_ID], [XML_TYPE_ID], [IS_READ_ONLY], [IS_VISIBLE], [ORDER_KEY], [FUNCTION_ID], [IS_REQUIRED]) VALUES (@XML_NAME, @XML_NODE_ID, @XML_TYPE_ID, @IS_READ_ONLY, @IS_VISIBLE, @ORDER_KEY, @FUNCTION_ID, @IS_REQUIRED);
SELECT GUID, XML_NAME, XML_NODE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, ORDER_KEY, FUNCTION_ID, IS_REQUIRED FROM TBEDI_XML_ITEMS WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@XML_NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="XML_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@XML_NODE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="XML_NODE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@XML_TYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="XML_TYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@IS_READ_ONLY" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="IS_READ_ONLY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@IS_VISIBLE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="IS_VISIBLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@ORDER_KEY" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ORDER_KEY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@FUNCTION_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="FUNCTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@IS_REQUIRED" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="IS_REQUIRED" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, XML_NAME, XML_NODE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, ORDER_KEY, FUNCTION_ID, IS_REQUIRED
FROM TBEDI_XML_ITEMS</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBEDI_XML_ITEMS
SET XML_NAME = @XML_NAME, XML_NODE_ID = @XML_NODE_ID, XML_TYPE_ID = @XML_TYPE_ID, IS_READ_ONLY = @IS_READ_ONLY, IS_VISIBLE = @IS_VISIBLE, ORDER_KEY = @ORDER_KEY,
FUNCTION_ID = @FUNCTION_ID, IS_REQUIRED = @IS_REQUIRED
WHERE (GUID = @Original_GUID);
SELECT GUID, XML_NAME, XML_NODE_ID, XML_TYPE_ID, IS_READ_ONLY, IS_VISIBLE, ORDER_KEY, FUNCTION_ID, IS_REQUIRED FROM TBEDI_XML_ITEMS WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="XML_NAME" ColumnName="XML_NAME" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="nvarchar(50)" DbType="String" Direction="Input" ParameterName="@XML_NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="50" SourceColumn="XML_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="XML_NODE_ID" ColumnName="XML_NODE_ID" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@XML_NODE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="XML_NODE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="XML_TYPE_ID" ColumnName="XML_TYPE_ID" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@XML_TYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="XML_TYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="IS_READ_ONLY" ColumnName="IS_READ_ONLY" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@IS_READ_ONLY" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="IS_READ_ONLY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="IS_VISIBLE" ColumnName="IS_VISIBLE" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@IS_VISIBLE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="IS_VISIBLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ORDER_KEY" ColumnName="ORDER_KEY" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ORDER_KEY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="ORDER_KEY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="FUNCTION_ID" ColumnName="FUNCTION_ID" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@FUNCTION_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="FUNCTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="IS_REQUIRED" ColumnName="IS_REQUIRED" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@IS_REQUIRED" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="IS_REQUIRED" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBEDI_XML_ITEMS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="XML_NAME" DataSetColumn="XML_NAME" />
<Mapping SourceColumn="XML_NODE_ID" DataSetColumn="XML_NODE_ID" />
<Mapping SourceColumn="XML_TYPE_ID" DataSetColumn="XML_TYPE_ID" />
<Mapping SourceColumn="IS_READ_ONLY" DataSetColumn="IS_READ_ONLY" />
<Mapping SourceColumn="IS_VISIBLE" DataSetColumn="IS_VISIBLE" />
<Mapping SourceColumn="ORDER_KEY" DataSetColumn="ORDER_KEY" />
<Mapping SourceColumn="FUNCTION_ID" DataSetColumn="FUNCTION_ID" />
<Mapping SourceColumn="IS_REQUIRED" DataSetColumn="IS_REQUIRED" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBEDI_XML_TYPESTableAdapter" GeneratorDataComponentClassName="TBEDI_XML_TYPESTableAdapter" Name="TBEDI_XML_TYPES" UserDataComponentName="TBEDI_XML_TYPESTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBEDI_XML_TYPES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [dbo].[TBEDI_XML_TYPES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Original_NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [dbo].[TBEDI_XML_TYPES] ([NAME]) VALUES (@NAME);
SELECT GUID, NAME FROM TBEDI_XML_TYPES WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME FROM dbo.TBEDI_XML_TYPES</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [dbo].[TBEDI_XML_TYPES] SET [NAME] = @NAME WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME));
SELECT GUID, NAME FROM TBEDI_XML_TYPES WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Original_NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="NAME" DataSetColumn="NAME" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBEDI_XML_TEMPLATESTableAdapter" GeneratorDataComponentClassName="TBEDI_XML_TEMPLATESTableAdapter" Name="TBEDI_XML_TEMPLATES" UserDataComponentName="TBEDI_XML_TEMPLATESTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBEDI_XML_TEMPLATES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [dbo].[TBEDI_XML_TEMPLATES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Original_NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [dbo].[TBEDI_XML_TEMPLATES] ([NAME], [DESCRIPTION]) VALUES (@NAME, @DESCRIPTION);
SELECT GUID, NAME, DESCRIPTION FROM TBEDI_XML_TEMPLATES WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, DESCRIPTION FROM dbo.TBEDI_XML_TEMPLATES</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [dbo].[TBEDI_XML_TEMPLATES] SET [NAME] = @NAME, [DESCRIPTION] = @DESCRIPTION WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME));
SELECT GUID, NAME, DESCRIPTION FROM TBEDI_XML_TEMPLATES WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Original_NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="NAME" DataSetColumn="NAME" />
<Mapping SourceColumn="DESCRIPTION" DataSetColumn="DESCRIPTION" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBEDI_XML_NODESTableAdapter" GeneratorDataComponentClassName="TBEDI_XML_NODESTableAdapter" Name="TBEDI_XML_NODES" UserDataComponentName="TBEDI_XML_NODESTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBEDI_XML_NODES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [dbo].[TBEDI_XML_NODES] WHERE (([GUID] = @Original_GUID) AND ([TEMPLATE_ID] = @Original_TEMPLATE_ID) AND ([IS_HEAD] = @Original_IS_HEAD))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_TEMPLATE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="TEMPLATE_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_IS_HEAD" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="IS_HEAD" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [dbo].[TBEDI_XML_NODES] ([NAME], [TEMPLATE_ID], [IS_HEAD]) VALUES (@NAME, @TEMPLATE_ID, @IS_HEAD);
SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD FROM TBEDI_XML_NODES WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@TEMPLATE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="TEMPLATE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@IS_HEAD" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="IS_HEAD" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD FROM dbo.TBEDI_XML_NODES</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [dbo].[TBEDI_XML_NODES] SET [NAME] = @NAME, [TEMPLATE_ID] = @TEMPLATE_ID, [IS_HEAD] = @IS_HEAD WHERE (([GUID] = @Original_GUID) AND ([TEMPLATE_ID] = @Original_TEMPLATE_ID) AND ([IS_HEAD] = @Original_IS_HEAD));
SELECT GUID, NAME, TEMPLATE_ID, IS_HEAD FROM TBEDI_XML_NODES WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@TEMPLATE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="TEMPLATE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@IS_HEAD" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="IS_HEAD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_TEMPLATE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="TEMPLATE_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_IS_HEAD" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="IS_HEAD" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="NAME" DataSetColumn="NAME" />
<Mapping SourceColumn="TEMPLATE_ID" DataSetColumn="TEMPLATE_ID" />
<Mapping SourceColumn="IS_HEAD" DataSetColumn="IS_HEAD" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBEDI_XML_FUNCTIONSTableAdapter" GeneratorDataComponentClassName="TBEDI_XML_FUNCTIONSTableAdapter" Name="TBEDI_XML_FUNCTIONS" UserDataComponentName="TBEDI_XML_FUNCTIONSTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBEDI_XML_FUNCTIONS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [dbo].[TBEDI_XML_FUNCTIONS] WHERE (([GUID] = @Original_GUID))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>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())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@PARAMETERS" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="PARAMETERS" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, DESCRIPTION, PARAMETERS FROM dbo.TBEDI_XML_FUNCTIONS</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>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)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@PARAMETERS" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="PARAMETERS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="NAME" DataSetColumn="NAME" />
<Mapping SourceColumn="DESCRIPTION" DataSetColumn="DESCRIPTION" />
<Mapping SourceColumn="PARAMETERS" DataSetColumn="PARAMETERS" />
</Mappings>
<Sources />
</TableAdapter>
</Tables>
<Sources />
</DataSource>
</xs:appinfo>
</xs:annotation>
<xs:element name="DS_DD_ECM" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DS_DD_ECM" msprop:Generator_UserDSName="DS_DD_ECM">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBEDI_XML_ITEMS" msprop:Generator_TableClassName="TBEDI_XML_ITEMSDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_ITEMS" msprop:Generator_RowChangedName="TBEDI_XML_ITEMSRowChanged" msprop:Generator_TablePropName="TBEDI_XML_ITEMS" msprop:Generator_RowDeletingName="TBEDI_XML_ITEMSRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_ITEMSRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_ITEMSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_ITEMSRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_ITEMSRow" msprop:Generator_UserTableName="TBEDI_XML_ITEMS" msprop:Generator_RowEvArgName="TBEDI_XML_ITEMSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="XML_NAME" msprop:Generator_ColumnVarNameInTable="columnXML_NAME" msprop:Generator_ColumnPropNameInRow="XML_NAME" msprop:Generator_ColumnPropNameInTable="XML_NAMEColumn" msprop:Generator_UserColumnName="XML_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="XML_NODE_ID" msprop:Generator_ColumnVarNameInTable="columnXML_NODE_ID" msprop:Generator_ColumnPropNameInRow="XML_NODE_ID" msprop:Generator_ColumnPropNameInTable="XML_NODE_IDColumn" msprop:Generator_UserColumnName="XML_NODE_ID" type="xs:int" />
<xs:element name="XML_TYPE_ID" msprop:Generator_ColumnVarNameInTable="columnXML_TYPE_ID" msprop:Generator_ColumnPropNameInRow="XML_TYPE_ID" msprop:Generator_ColumnPropNameInTable="XML_TYPE_IDColumn" msprop:Generator_UserColumnName="XML_TYPE_ID" type="xs:int" />
<xs:element name="IS_READ_ONLY" msprop:Generator_ColumnVarNameInTable="columnIS_READ_ONLY" msprop:Generator_ColumnPropNameInRow="IS_READ_ONLY" msprop:Generator_ColumnPropNameInTable="IS_READ_ONLYColumn" msprop:Generator_UserColumnName="IS_READ_ONLY" type="xs:boolean" />
<xs:element name="IS_VISIBLE" msprop:Generator_ColumnVarNameInTable="columnIS_VISIBLE" msprop:Generator_ColumnPropNameInRow="IS_VISIBLE" msprop:Generator_ColumnPropNameInTable="IS_VISIBLEColumn" msprop:Generator_UserColumnName="IS_VISIBLE" type="xs:boolean" />
<xs:element name="ORDER_KEY" msprop:Generator_ColumnVarNameInTable="columnORDER_KEY" msprop:Generator_ColumnPropNameInRow="ORDER_KEY" msprop:Generator_ColumnPropNameInTable="ORDER_KEYColumn" msprop:Generator_UserColumnName="ORDER_KEY" type="xs:int" />
<xs:element name="FUNCTION_ID" msprop:Generator_ColumnVarNameInTable="columnFUNCTION_ID" msprop:Generator_ColumnPropNameInRow="FUNCTION_ID" msprop:Generator_ColumnPropNameInTable="FUNCTION_IDColumn" msprop:Generator_UserColumnName="FUNCTION_ID" type="xs:int" minOccurs="0" />
<xs:element name="IS_REQUIRED" msprop:Generator_ColumnVarNameInTable="columnIS_REQUIRED" msprop:Generator_ColumnPropNameInRow="IS_REQUIRED" msprop:Generator_ColumnPropNameInTable="IS_REQUIREDColumn" msprop:Generator_UserColumnName="IS_REQUIRED" type="xs:boolean" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_TYPES" msprop:Generator_TableClassName="TBEDI_XML_TYPESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_TYPES" msprop:Generator_RowChangedName="TBEDI_XML_TYPESRowChanged" msprop:Generator_TablePropName="TBEDI_XML_TYPES" msprop:Generator_RowDeletingName="TBEDI_XML_TYPESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_TYPESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_TYPESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_TYPESRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_TYPESRow" msprop:Generator_UserTableName="TBEDI_XML_TYPES" msprop:Generator_RowEvArgName="TBEDI_XML_TYPESRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="20" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_TEMPLATES" msprop:Generator_TableClassName="TBEDI_XML_TEMPLATESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_TEMPLATES" msprop:Generator_RowChangedName="TBEDI_XML_TEMPLATESRowChanged" msprop:Generator_TablePropName="TBEDI_XML_TEMPLATES" msprop:Generator_RowDeletingName="TBEDI_XML_TEMPLATESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_TEMPLATESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_TEMPLATESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_TEMPLATESRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_TEMPLATESRow" msprop:Generator_UserTableName="TBEDI_XML_TEMPLATES" msprop:Generator_RowEvArgName="TBEDI_XML_TEMPLATESRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="20" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DESCRIPTION" msprop:Generator_ColumnVarNameInTable="columnDESCRIPTION" msprop:Generator_ColumnPropNameInRow="DESCRIPTION" msprop:Generator_ColumnPropNameInTable="DESCRIPTIONColumn" msprop:Generator_UserColumnName="DESCRIPTION" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_NODES" msprop:Generator_TableClassName="TBEDI_XML_NODESDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_NODES" msprop:Generator_RowChangedName="TBEDI_XML_NODESRowChanged" msprop:Generator_TablePropName="TBEDI_XML_NODES" msprop:Generator_RowDeletingName="TBEDI_XML_NODESRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_NODESRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_NODESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_NODESRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_NODESRow" msprop:Generator_UserTableName="TBEDI_XML_NODES" msprop:Generator_RowEvArgName="TBEDI_XML_NODESRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="TEMPLATE_ID" msprop:Generator_ColumnVarNameInTable="columnTEMPLATE_ID" msprop:Generator_ColumnPropNameInRow="TEMPLATE_ID" msprop:Generator_ColumnPropNameInTable="TEMPLATE_IDColumn" msprop:Generator_UserColumnName="TEMPLATE_ID" type="xs:int" />
<xs:element name="IS_HEAD" msprop:Generator_ColumnVarNameInTable="columnIS_HEAD" msprop:Generator_ColumnPropNameInRow="IS_HEAD" msprop:Generator_ColumnPropNameInTable="IS_HEADColumn" msprop:Generator_UserColumnName="IS_HEAD" type="xs:boolean" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBEDI_XML_FUNCTIONS" msprop:Generator_TableClassName="TBEDI_XML_FUNCTIONSDataTable" msprop:Generator_TableVarName="tableTBEDI_XML_FUNCTIONS" msprop:Generator_RowChangedName="TBEDI_XML_FUNCTIONSRowChanged" msprop:Generator_TablePropName="TBEDI_XML_FUNCTIONS" msprop:Generator_RowDeletingName="TBEDI_XML_FUNCTIONSRowDeleting" msprop:Generator_RowChangingName="TBEDI_XML_FUNCTIONSRowChanging" msprop:Generator_RowEvHandlerName="TBEDI_XML_FUNCTIONSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBEDI_XML_FUNCTIONSRowDeleted" msprop:Generator_RowClassName="TBEDI_XML_FUNCTIONSRow" msprop:Generator_UserTableName="TBEDI_XML_FUNCTIONS" msprop:Generator_RowEvArgName="TBEDI_XML_FUNCTIONSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DESCRIPTION" msprop:Generator_ColumnVarNameInTable="columnDESCRIPTION" msprop:Generator_ColumnPropNameInRow="DESCRIPTION" msprop:Generator_ColumnPropNameInTable="DESCRIPTIONColumn" msprop:Generator_UserColumnName="DESCRIPTION">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="PARAMETERS" msprop:Generator_ColumnVarNameInTable="columnPARAMETERS" msprop:Generator_ColumnPropNameInRow="PARAMETERS" msprop:Generator_ColumnPropNameInTable="PARAMETERSColumn" msprop:Generator_UserColumnName="PARAMETERS" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBEDI_XML_ITEMS" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBEDI_XML_TYPES_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBEDI_XML_TYPES" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBEDI_XML_TEMPLATES_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBEDI_XML_TEMPLATES" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBEDI_XML_NODES_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBEDI_XML_NODES" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBEDI_XML_FUNCTIONS_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBEDI_XML_FUNCTIONS" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_FUNCTIONS" msdata:parentkey="FUNCTION_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_FUNCTIONS" msprop:Generator_ChildPropName="GetTBEDI_XML_FUNCTIONSRows" msprop:Generator_UserRelationName="TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msprop:Generator_RelationVarName="relationTBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRow" />
<msdata:Relationship name="TBEDI_XML_ITEMS_TBEDI_XML_NODES" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_NODES" msdata:parentkey="XML_NODE_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_NODES" msprop:Generator_ChildPropName="GetTBEDI_XML_NODESRows" msprop:Generator_UserRelationName="TBEDI_XML_ITEMS_TBEDI_XML_NODES" msprop:Generator_RelationVarName="relationTBEDI_XML_ITEMS_TBEDI_XML_NODES" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRow" />
<msdata:Relationship name="TBEDI_XML_ITEMS_TBEDI_XML_TYPES" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_TYPES" msdata:parentkey="XML_TYPE_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_TYPES" msprop:Generator_ChildPropName="GetTBEDI_XML_TYPESRows" msprop:Generator_UserRelationName="TBEDI_XML_ITEMS_TBEDI_XML_TYPES" msprop:Generator_RelationVarName="relationTBEDI_XML_ITEMS_TBEDI_XML_TYPES" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRow" />
<msdata:Relationship name="TBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msdata:parent="TBEDI_XML_NODES" msdata:child="TBEDI_XML_TEMPLATES" msdata:parentkey="TEMPLATE_ID" msdata:childkey="GUID" msprop:Generator_UserChildTable="TBEDI_XML_TEMPLATES" msprop:Generator_ChildPropName="GetTBEDI_XML_TEMPLATESRows" msprop:Generator_UserRelationName="TBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msprop:Generator_ParentPropName="TBEDI_XML_NODESRow" msprop:Generator_RelationVarName="relationTBEDI_XML_NODES_TBEDI_XML_TEMPLATES" msprop:Generator_UserParentTable="TBEDI_XML_NODES" />
<msdata:Relationship name="FK_TBEDI_XML_NODES" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_ITEMS" msdata:parentkey="GUID" msdata:childkey="XML_NODE_ID" msprop:Generator_UserChildTable="TBEDI_XML_ITEMS" msprop:Generator_ChildPropName="GetTBEDI_XML_ITEMSRowsByFK_TBEDI_XML_NODES" msprop:Generator_UserRelationName="FK_TBEDI_XML_NODES" msprop:Generator_RelationVarName="relationFK_TBEDI_XML_NODES" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRowParentByFK_TBEDI_XML_NODES" />
<msdata:Relationship name="FK_TBEDI_XML_TYPES" msdata:parent="TBEDI_XML_ITEMS" msdata:child="TBEDI_XML_ITEMS" msdata:parentkey="GUID" msdata:childkey="XML_TYPE_ID" msprop:Generator_UserChildTable="TBEDI_XML_ITEMS" msprop:Generator_ChildPropName="GetTBEDI_XML_ITEMSRowsByFK_TBEDI_XML_TYPES" msprop:Generator_UserRelationName="FK_TBEDI_XML_TYPES" msprop:Generator_RelationVarName="relationFK_TBEDI_XML_TYPES" msprop:Generator_UserParentTable="TBEDI_XML_ITEMS" msprop:Generator_ParentPropName="TBEDI_XML_ITEMSRowParentByFK_TBEDI_XML_TYPES" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

117
MultiTool.Form/DS_DD_ECM.xss Normal file
View File

@@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool to store the dataset designer's layout information.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-52" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBEDI_XML_ITEMS" ZOrder="1" X="5" Y="8" Height="248" Width="252" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBEDI_XML_TYPES" ZOrder="11" X="525" Y="204" Height="115" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBEDI_XML_TEMPLATES" ZOrder="9" X="1069" Y="27" Height="134" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBEDI_XML_NODES" ZOrder="6" X="513" Y="22" Height="153" Width="257" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBEDI_XML_FUNCTIONS" ZOrder="10" X="472" Y="347" Height="153" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:TBEDI_XML_ITEMS_TBEDI_XML_FUNCTIONS" ZOrder="8" LineWidth="11">
<RoutePoints>
<Point>
<X>240</X>
<Y>256</Y>
</Point>
<Point>
<X>240</X>
<Y>364</Y>
</Point>
<Point>
<X>472</X>
<Y>364</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:TBEDI_XML_ITEMS_TBEDI_XML_NODES" ZOrder="7" LineWidth="11">
<RoutePoints>
<Point>
<X>257</X>
<Y>85</Y>
</Point>
<Point>
<X>513</X>
<Y>85</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:TBEDI_XML_ITEMS_TBEDI_XML_TYPES" ZOrder="4" LineWidth="11">
<RoutePoints>
<Point>
<X>257</X>
<Y>237</Y>
</Point>
<Point>
<X>525</X>
<Y>237</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:TBEDI_XML_NODES_TBEDI_XML_TEMPLATES" ZOrder="5" LineWidth="11">
<RoutePoints>
<Point>
<X>770</X>
<Y>94</Y>
</Point>
<Point>
<X>1069</X>
<Y>94</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBEDI_XML_NODES" ZOrder="3" LineWidth="11">
<RoutePoints>
<Point>
<X>5</X>
<Y>25</Y>
</Point>
<Point>
<X>-25</X>
<Y>25</Y>
</Point>
<Point>
<X>-25</X>
<Y>-22</Y>
</Point>
<Point>
<X>22</X>
<Y>-22</Y>
</Point>
<Point>
<X>22</X>
<Y>8</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBEDI_XML_TYPES" ZOrder="2" LineWidth="11">
<RoutePoints>
<Point>
<X>5</X>
<Y>33</Y>
</Point>
<Point>
<X>-33</X>
<Y>33</Y>
</Point>
<Point>
<X>-33</X>
<Y>-30</Y>
</Point>
<Point>
<X>30</X>
<Y>-30</Y>
</Point>
<Point>
<X>30</X>
<Y>8</Y>
</Point>
</RoutePoints>
</Connector>
</Connectors>
</DiagramLayout>

40
MultiTool.Form/GridLoader.vb
View File

@@ -3,26 +3,19 @@ Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.GUIs.Common Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports MultiTool.Shared Imports MultiTool.Shared
Imports MultiTool.Shared.Constants
Public Class GridLoader Public Class GridLoader
Inherits BaseClass Inherits BaseClass
Public Sub New(pLogConfig As LogConfig) Private ReadOnly TemplateConfig As Winline.Configuration
Public Sub New(pLogConfig As LogConfig, pTemplateConfig As Winline.Configuration)
MyBase.New(pLogConfig, pLogConfig.GetLogger()) MyBase.New(pLogConfig, pLogConfig.GetLogger())
TemplateConfig = pTemplateConfig
End Sub End Sub
Public Function GetGridFromElement(pGrid As GridControl, pTable As Schemas.Schema.Table) As GridControl Public Function GetGridFromElement(pGrid As GridControl, pTable As Schemas.Schema.Table) As GridControl
Dim oInvisibleColumns As New List(Of String) From {
"BELEGKEY",
"Zeilennummer",
"Belegart",
"Infotext",
"Leistungsdatum",
"Projektnummer",
"Auftragsreferenz",
"Laufnummer"
}
pGrid.Name = pTable.Name pGrid.Name = pTable.Name
pGrid.ForceInitialize() pGrid.ForceInitialize()
pGrid.MainView.PopulateColumns() pGrid.MainView.PopulateColumns()
@@ -32,11 +25,16 @@ Public Class GridLoader
oView.OptionsBehavior.Editable = False oView.OptionsBehavior.Editable = False
For Each oCol In pTable.Columns For Each oCol In pTable.Columns
Dim oVisibleIndex As Integer = 0 Dim oVisibleIndex As Integer
' Hide certain columns If oCol.Config IsNot Nothing Then
If oInvisibleColumns.Contains(oCol.Name) Then If oCol.Config.IsVisible = False Then
oVisibleIndex = -1 oVisibleIndex = -1
Else
oVisibleIndex = oCol.Config.OrderKey
End If
Else
oVisibleIndex = 0
End If End If
Dim oColumn = New Columns.GridColumn With { Dim oColumn = New Columns.GridColumn With {
@@ -48,7 +46,6 @@ Public Class GridLoader
} }
oView.Columns.Add(oColumn) oView.Columns.Add(oColumn)
Next Next
oView.BestFitColumns() oView.BestFitColumns()
@@ -64,20 +61,21 @@ Public Class GridLoader
Private Function GetColumnType(pColumn As Schemas.Schema.Column) Private Function GetColumnType(pColumn As Schemas.Schema.Column)
Select Case pColumn.DataType Select Case pColumn.DataType
Case MultiTool.Shared.Constants.ColumnType.Boolean Case ColumnType.Boolean
Return DevExpress.Data.UnboundColumnType.Boolean Return DevExpress.Data.UnboundColumnType.Boolean
Case MultiTool.Shared.Constants.ColumnType.Date Case ColumnType.Date
Return DevExpress.Data.UnboundColumnType.DateTime Return DevExpress.Data.UnboundColumnType.DateTime
Case MultiTool.Shared.Constants.ColumnType.Integer Case ColumnType.Integer
Return DevExpress.Data.UnboundColumnType.Integer Return DevExpress.Data.UnboundColumnType.Integer
Case MultiTool.Shared.Constants.ColumnType.Decimal Case ColumnType.Decimal
Return DevExpress.Data.UnboundColumnType.Decimal Return DevExpress.Data.UnboundColumnType.Decimal
Case Else Case Else
Return DevExpress.Data.UnboundColumnType.String Return DevExpress.Data.UnboundColumnType.String
End Select End Select
End Function End Function

26
MultiTool.Form/MultiTool.Form.vbproj
View File

@@ -135,6 +135,7 @@
<Reference Include="System.Runtime.Serialization" /> <Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" /> <Reference Include="System.ServiceModel" />
<Reference Include="System.Transactions" /> <Reference Include="System.Transactions" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" /> <Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" /> <Reference Include="System.Xml" />
<Reference Include="System.Core" /> <Reference Include="System.Core" />
@@ -156,6 +157,11 @@
<Import Include="System.Threading.Tasks" /> <Import Include="System.Threading.Tasks" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Compile Include="DS_DD_ECM.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DS_DD_ECM.xsd</DependentUpon>
</Compile>
<Compile Include="FormHelpers.vb" /> <Compile Include="FormHelpers.vb" />
<Compile Include="frmImportMain.Designer.vb"> <Compile Include="frmImportMain.Designer.vb">
<DependentUpon>frmImportMain.vb</DependentUpon> <DependentUpon>frmImportMain.vb</DependentUpon>
@@ -169,12 +175,6 @@
<Compile Include="frmMain.vb"> <Compile Include="frmMain.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmMapper.Designer.vb">
<DependentUpon>frmMapper.vb</DependentUpon>
</Compile>
<Compile Include="frmMapper.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmRowEditor.Designer.vb"> <Compile Include="frmRowEditor.Designer.vb">
<DependentUpon>frmRowEditor.vb</DependentUpon> <DependentUpon>frmRowEditor.vb</DependentUpon>
</Compile> </Compile>
@@ -248,9 +248,6 @@
<EmbeddedResource Include="frmMain.resx"> <EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon> <DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmMapper.resx">
<DependentUpon>frmMapper.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmRowEditor.resx"> <EmbeddedResource Include="frmRowEditor.resx">
<DependentUpon>frmRowEditor.vb</DependentUpon> <DependentUpon>frmRowEditor.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -290,6 +287,17 @@
</EmbeddedResource> </EmbeddedResource>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="DS_DD_ECM.xsc">
<DependentUpon>DS_DD_ECM.xsd</DependentUpon>
</None>
<None Include="DS_DD_ECM.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DS_DD_ECM.Designer.vb</LastGenOutput>
</None>
<None Include="DS_DD_ECM.xss">
<DependentUpon>DS_DD_ECM.xsd</DependentUpon>
</None>
<None Include="My Project\app.manifest" /> <None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp"> <None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>

11
MultiTool.Form/My Project/Settings.Designer.vb generated
View File

@@ -53,6 +53,17 @@ Namespace My
Return defaultInstance Return defaultInstance
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\SCHAUM;Initial Catalog=DD_ECM;Persist Security Info=T"& _
"rue;User ID=sa;Password=dd")> _
Public ReadOnly Property DD_ECMConnectionString() As String
Get
Return CType(Me("DD_ECMConnectionString"),String)
End Get
End Property
End Class End Class
End Namespace End Namespace

19
MultiTool.Form/My Project/Settings.settings
View File

@@ -1,7 +1,14 @@
<?xml version='1.0' encoding='utf-8'?> <?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true"> <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles> <Profiles />
<Profile Name="(Default)" /> <Settings>
</Profiles> <Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
<Settings /> <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
</SettingsFile> &lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\SCHAUM;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\SCHAUM;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
</Settings>
</SettingsFile>

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

@@ -31,30 +31,53 @@ Partial Class frmConfig
Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.tabPageBasic = New DevExpress.XtraTab.XtraTabPage()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.txtBaseURL = New DevExpress.XtraEditors.TextEdit() Me.txtBaseURL = New DevExpress.XtraEditors.TextEdit()
Me.txtUsername = New DevExpress.XtraEditors.TextEdit() Me.txtUsername = New DevExpress.XtraEditors.TextEdit()
Me.txtPassword = New DevExpress.XtraEditors.TextEdit() Me.txtPassword = New DevExpress.XtraEditors.TextEdit()
Me.txtImportBasePath = New DevExpress.XtraEditors.TextEdit() Me.txtImportBasePath = New DevExpress.XtraEditors.TextEdit()
Me.txtImportRelativePath = New DevExpress.XtraEditors.TextEdit() Me.txtImportRelativePath = New DevExpress.XtraEditors.TextEdit()
Me.txtInputDir = New DevExpress.XtraEditors.TextEdit()
Me.txtOutputDir = New DevExpress.XtraEditors.TextEdit()
Me.txtSchemaDir = New DevExpress.XtraEditors.TextEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.TabbedControlGroup1 = New DevExpress.XtraLayout.TabbedControlGroup()
Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.tabPageSchema = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TBEDIXMLITEMSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DS_DD_ECM = New MultiTool.Form.DS_DD_ECM()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colXML_NAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colXML_NODE_ID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colXML_TYPE_ID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colORDER_KEY = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colFUNCTION_ID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colIS_VISIBLE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colIS_READ_ONLY = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colIS_REQUIRED = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.TBEDI_XML_ITEMSTableAdapter = New MultiTool.Form.DS_DD_ECMTableAdapters.TBEDI_XML_ITEMSTableAdapter()
CType(Me.ToolbarFormManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ToolbarFormManager1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout() Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout() Me.tabPageBasic.SuspendLayout()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout() Me.LayoutControl1.SuspendLayout()
CType(Me.txtBaseURL.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBaseURL.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -62,13 +85,26 @@ Partial Class frmConfig
CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtImportBasePath.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtImportBasePath.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtImportRelativePath.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtImportRelativePath.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInputDir.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtOutputDir.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSchemaDir.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TabbedControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tabPageSchema.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBEDIXMLITEMSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS_DD_ECM, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -117,17 +153,17 @@ Partial Class frmConfig
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 63) Me.XtraTabControl1.Location = New System.Drawing.Point(0, 63)
Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 Me.XtraTabControl1.SelectedTabPage = Me.tabPageBasic
Me.XtraTabControl1.Size = New System.Drawing.Size(832, 422) Me.XtraTabControl1.Size = New System.Drawing.Size(832, 422)
Me.XtraTabControl1.TabIndex = 1 Me.XtraTabControl1.TabIndex = 1
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1}) Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tabPageBasic, Me.tabPageSchema})
' '
'XtraTabPage1 'tabPageBasic
' '
Me.XtraTabPage1.Controls.Add(Me.LayoutControl1) Me.tabPageBasic.Controls.Add(Me.LayoutControl1)
Me.XtraTabPage1.Name = "XtraTabPage1" Me.tabPageBasic.Name = "tabPageBasic"
Me.XtraTabPage1.Size = New System.Drawing.Size(830, 397) Me.tabPageBasic.Size = New System.Drawing.Size(830, 397)
Me.XtraTabPage1.Text = "Basis" Me.tabPageBasic.Text = "Basis"
' '
'LayoutControl1 'LayoutControl1
' '
@@ -136,6 +172,9 @@ Partial Class frmConfig
Me.LayoutControl1.Controls.Add(Me.txtPassword) Me.LayoutControl1.Controls.Add(Me.txtPassword)
Me.LayoutControl1.Controls.Add(Me.txtImportBasePath) Me.LayoutControl1.Controls.Add(Me.txtImportBasePath)
Me.LayoutControl1.Controls.Add(Me.txtImportRelativePath) Me.LayoutControl1.Controls.Add(Me.txtImportRelativePath)
Me.LayoutControl1.Controls.Add(Me.txtInputDir)
Me.LayoutControl1.Controls.Add(Me.txtOutputDir)
Me.LayoutControl1.Controls.Add(Me.txtSchemaDir)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Name = "LayoutControl1"
@@ -146,7 +185,7 @@ Partial Class frmConfig
' '
'txtBaseURL 'txtBaseURL
' '
Me.txtBaseURL.Location = New System.Drawing.Point(133, 48) Me.txtBaseURL.Location = New System.Drawing.Point(133, 50)
Me.txtBaseURL.MenuManager = Me.ToolbarFormManager1 Me.txtBaseURL.MenuManager = Me.ToolbarFormManager1
Me.txtBaseURL.Name = "txtBaseURL" Me.txtBaseURL.Name = "txtBaseURL"
Me.txtBaseURL.Size = New System.Drawing.Size(670, 20) Me.txtBaseURL.Size = New System.Drawing.Size(670, 20)
@@ -155,7 +194,7 @@ Partial Class frmConfig
' '
'txtUsername 'txtUsername
' '
Me.txtUsername.Location = New System.Drawing.Point(133, 78) Me.txtUsername.Location = New System.Drawing.Point(133, 80)
Me.txtUsername.MenuManager = Me.ToolbarFormManager1 Me.txtUsername.MenuManager = Me.ToolbarFormManager1
Me.txtUsername.Name = "txtUsername" Me.txtUsername.Name = "txtUsername"
Me.txtUsername.Size = New System.Drawing.Size(277, 20) Me.txtUsername.Size = New System.Drawing.Size(277, 20)
@@ -164,7 +203,7 @@ Partial Class frmConfig
' '
'txtPassword 'txtPassword
' '
Me.txtPassword.Location = New System.Drawing.Point(526, 78) Me.txtPassword.Location = New System.Drawing.Point(526, 80)
Me.txtPassword.MenuManager = Me.ToolbarFormManager1 Me.txtPassword.MenuManager = Me.ToolbarFormManager1
Me.txtPassword.Name = "txtPassword" Me.txtPassword.Name = "txtPassword"
Me.txtPassword.Size = New System.Drawing.Size(277, 20) Me.txtPassword.Size = New System.Drawing.Size(277, 20)
@@ -173,7 +212,7 @@ Partial Class frmConfig
' '
'txtImportBasePath 'txtImportBasePath
' '
Me.txtImportBasePath.Location = New System.Drawing.Point(133, 108) Me.txtImportBasePath.Location = New System.Drawing.Point(133, 110)
Me.txtImportBasePath.MenuManager = Me.ToolbarFormManager1 Me.txtImportBasePath.MenuManager = Me.ToolbarFormManager1
Me.txtImportBasePath.Name = "txtImportBasePath" Me.txtImportBasePath.Name = "txtImportBasePath"
Me.txtImportBasePath.Size = New System.Drawing.Size(670, 20) Me.txtImportBasePath.Size = New System.Drawing.Size(670, 20)
@@ -182,28 +221,101 @@ Partial Class frmConfig
' '
'txtImportRelativePath 'txtImportRelativePath
' '
Me.txtImportRelativePath.Location = New System.Drawing.Point(133, 138) Me.txtImportRelativePath.Location = New System.Drawing.Point(133, 140)
Me.txtImportRelativePath.MenuManager = Me.ToolbarFormManager1 Me.txtImportRelativePath.MenuManager = Me.ToolbarFormManager1
Me.txtImportRelativePath.Name = "txtImportRelativePath" Me.txtImportRelativePath.Name = "txtImportRelativePath"
Me.txtImportRelativePath.Size = New System.Drawing.Size(670, 20) Me.txtImportRelativePath.Size = New System.Drawing.Size(670, 20)
Me.txtImportRelativePath.StyleController = Me.LayoutControl1 Me.txtImportRelativePath.StyleController = Me.LayoutControl1
Me.txtImportRelativePath.TabIndex = 8 Me.txtImportRelativePath.TabIndex = 8
' '
'txtInputDir
'
Me.txtInputDir.Location = New System.Drawing.Point(133, 50)
Me.txtInputDir.MenuManager = Me.ToolbarFormManager1
Me.txtInputDir.Name = "txtInputDir"
Me.txtInputDir.Size = New System.Drawing.Size(670, 20)
Me.txtInputDir.StyleController = Me.LayoutControl1
Me.txtInputDir.TabIndex = 9
'
'txtOutputDir
'
Me.txtOutputDir.Location = New System.Drawing.Point(133, 80)
Me.txtOutputDir.MenuManager = Me.ToolbarFormManager1
Me.txtOutputDir.Name = "txtOutputDir"
Me.txtOutputDir.Size = New System.Drawing.Size(670, 20)
Me.txtOutputDir.StyleController = Me.LayoutControl1
Me.txtOutputDir.TabIndex = 10
'
'txtSchemaDir
'
Me.txtSchemaDir.Location = New System.Drawing.Point(133, 110)
Me.txtSchemaDir.MenuManager = Me.ToolbarFormManager1
Me.txtSchemaDir.Name = "txtSchemaDir"
Me.txtSchemaDir.Size = New System.Drawing.Size(670, 20)
Me.txtSchemaDir.StyleController = Me.LayoutControl1
Me.txtSchemaDir.TabIndex = 11
'
'Root 'Root
' '
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1}) Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.TabbedControlGroup1})
Me.Root.Name = "Root" Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(830, 397) Me.Root.Size = New System.Drawing.Size(830, 397)
Me.Root.TextVisible = False Me.Root.TextVisible = False
' '
'TabbedControlGroup1
'
Me.TabbedControlGroup1.Location = New System.Drawing.Point(0, 0)
Me.TabbedControlGroup1.Name = "TabbedControlGroup1"
Me.TabbedControlGroup1.SelectedTabPage = Me.LayoutControlGroup2
Me.TabbedControlGroup1.Size = New System.Drawing.Size(810, 377)
Me.TabbedControlGroup1.TabPages.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup2, Me.LayoutControlGroup1})
'
'LayoutControlGroup2
'
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.LayoutControlItem7, Me.LayoutControlItem8})
Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
Me.LayoutControlGroup2.Size = New System.Drawing.Size(786, 330)
Me.LayoutControlGroup2.Text = "Verzeichnisse"
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.txtInputDir
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem4.Size = New System.Drawing.Size(786, 30)
Me.LayoutControlItem4.Text = "Eingangsverzeichnis"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(103, 13)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.txtOutputDir
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 30)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem7.Size = New System.Drawing.Size(786, 30)
Me.LayoutControlItem7.Text = "Ausgangsverzeichnis"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(103, 13)
'
'LayoutControlItem8
'
Me.LayoutControlItem8.Control = Me.txtSchemaDir
Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 60)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem8.Size = New System.Drawing.Size(786, 270)
Me.LayoutControlItem8.Text = "Vorlagenverzeichnis"
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(103, 13)
'
'LayoutControlGroup1 'LayoutControlGroup1
' '
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem6, Me.LayoutControlItem5, Me.LayoutControlItem2, Me.LayoutControlItem1, Me.LayoutControlItem3}) Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem6, Me.LayoutControlItem5, Me.LayoutControlItem2, Me.LayoutControlItem1, Me.LayoutControlItem3})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup1.Name = "LayoutControlGroup1" Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(810, 377) Me.LayoutControlGroup1.Size = New System.Drawing.Size(786, 330)
Me.LayoutControlGroup1.Text = "WebService" Me.LayoutControlGroup1.Text = "WebService"
' '
'LayoutControlItem6 'LayoutControlItem6
@@ -212,7 +324,7 @@ Partial Class frmConfig
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 90) Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 90)
Me.LayoutControlItem6.Name = "LayoutControlItem6" Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem6.Size = New System.Drawing.Size(786, 242) Me.LayoutControlItem6.Size = New System.Drawing.Size(786, 240)
Me.LayoutControlItem6.Text = "Import Relativer Pfad" Me.LayoutControlItem6.Text = "Import Relativer Pfad"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(103, 13) Me.LayoutControlItem6.TextSize = New System.Drawing.Size(103, 13)
' '
@@ -256,6 +368,110 @@ Partial Class frmConfig
Me.LayoutControlItem3.Text = "Password" Me.LayoutControlItem3.Text = "Password"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(103, 13) Me.LayoutControlItem3.TextSize = New System.Drawing.Size(103, 13)
' '
'tabPageSchema
'
Me.tabPageSchema.Controls.Add(Me.GridControl1)
Me.tabPageSchema.Name = "tabPageSchema"
Me.tabPageSchema.Size = New System.Drawing.Size(830, 397)
Me.tabPageSchema.Text = "Schema"
'
'GridControl1
'
Me.GridControl1.DataSource = Me.TBEDIXMLITEMSBindingSource
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.ToolbarFormManager1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(830, 397)
Me.GridControl1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'TBEDIXMLITEMSBindingSource
'
Me.TBEDIXMLITEMSBindingSource.DataMember = "TBEDI_XML_ITEMS"
Me.TBEDIXMLITEMSBindingSource.DataSource = Me.DS_DD_ECM
'
'DS_DD_ECM
'
Me.DS_DD_ECM.DataSetName = "DS_DD_ECM"
Me.DS_DD_ECM.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'GridView1
'
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colXML_NAME, Me.colXML_NODE_ID, Me.colXML_TYPE_ID, Me.colORDER_KEY, Me.colFUNCTION_ID, Me.colIS_VISIBLE, Me.colIS_READ_ONLY, Me.colIS_REQUIRED})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.GroupCount = 1
Me.GridView1.Name = "GridView1"
Me.GridView1.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colXML_NODE_ID, DevExpress.Data.ColumnSortOrder.Ascending)})
'
'colGUID
'
Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID"
Me.colGUID.Visible = True
Me.colGUID.VisibleIndex = 0
'
'colXML_NAME
'
Me.colXML_NAME.FieldName = "XML_NAME"
Me.colXML_NAME.Name = "colXML_NAME"
Me.colXML_NAME.Visible = True
Me.colXML_NAME.VisibleIndex = 1
'
'colXML_NODE_ID
'
Me.colXML_NODE_ID.Caption = "Tabelle"
Me.colXML_NODE_ID.FieldName = "XML_NODE_ID"
Me.colXML_NODE_ID.Name = "colXML_NODE_ID"
Me.colXML_NODE_ID.Visible = True
Me.colXML_NODE_ID.VisibleIndex = 2
'
'colXML_TYPE_ID
'
Me.colXML_TYPE_ID.FieldName = "XML_TYPE_ID"
Me.colXML_TYPE_ID.Name = "colXML_TYPE_ID"
Me.colXML_TYPE_ID.Visible = True
Me.colXML_TYPE_ID.VisibleIndex = 2
'
'colORDER_KEY
'
Me.colORDER_KEY.FieldName = "ORDER_KEY"
Me.colORDER_KEY.Name = "colORDER_KEY"
Me.colORDER_KEY.Visible = True
Me.colORDER_KEY.VisibleIndex = 3
'
'colFUNCTION_ID
'
Me.colFUNCTION_ID.FieldName = "FUNCTION_ID"
Me.colFUNCTION_ID.Name = "colFUNCTION_ID"
Me.colFUNCTION_ID.Visible = True
Me.colFUNCTION_ID.VisibleIndex = 4
'
'colIS_VISIBLE
'
Me.colIS_VISIBLE.Caption = "Visible?"
Me.colIS_VISIBLE.FieldName = "IS_VISIBLE"
Me.colIS_VISIBLE.Name = "colIS_VISIBLE"
Me.colIS_VISIBLE.Visible = True
Me.colIS_VISIBLE.VisibleIndex = 6
'
'colIS_READ_ONLY
'
Me.colIS_READ_ONLY.Caption = "ReadOnly?"
Me.colIS_READ_ONLY.FieldName = "IS_READ_ONLY"
Me.colIS_READ_ONLY.Name = "colIS_READ_ONLY"
Me.colIS_READ_ONLY.Visible = True
Me.colIS_READ_ONLY.VisibleIndex = 5
'
'colIS_REQUIRED
'
Me.colIS_REQUIRED.Caption = "Required?"
Me.colIS_REQUIRED.FieldName = "IS_REQUIRED"
Me.colIS_REQUIRED.Name = "colIS_REQUIRED"
Me.colIS_REQUIRED.Visible = True
Me.colIS_REQUIRED.VisibleIndex = 7
'
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
@@ -301,6 +517,10 @@ Partial Class frmConfig
Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2"
' '
'TBEDI_XML_ITEMSTableAdapter
'
Me.TBEDI_XML_ITEMSTableAdapter.ClearBeforeFill = True
'
'frmConfig 'frmConfig
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -321,7 +541,7 @@ Partial Class frmConfig
CType(Me.ToolbarFormManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ToolbarFormManager1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage1.ResumeLayout(False) Me.tabPageBasic.ResumeLayout(False)
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False) Me.LayoutControl1.ResumeLayout(False)
CType(Me.txtBaseURL.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtBaseURL.Properties, System.ComponentModel.ISupportInitialize).EndInit()
@@ -329,13 +549,26 @@ Partial Class frmConfig
CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtImportBasePath.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtImportBasePath.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtImportRelativePath.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtImportRelativePath.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInputDir.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtOutputDir.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSchemaDir.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TabbedControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
Me.tabPageSchema.ResumeLayout(False)
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBEDIXMLITEMSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS_DD_ECM, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -347,7 +580,7 @@ Partial Class frmConfig
Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl
Friend WithEvents XtraTabControl1 As XtraTabControl Friend WithEvents XtraTabControl1 As XtraTabControl
Friend WithEvents XtraTabPage1 As XtraTabPage Friend WithEvents tabPageBasic As XtraTabPage
Friend WithEvents LayoutControl1 As LayoutControl Friend WithEvents LayoutControl1 As LayoutControl
Friend WithEvents Root As LayoutControlGroup Friend WithEvents Root As LayoutControlGroup
Friend WithEvents txtBaseURL As TextEdit Friend WithEvents txtBaseURL As TextEdit
@@ -355,16 +588,39 @@ Partial Class frmConfig
Friend WithEvents txtPassword As TextEdit Friend WithEvents txtPassword As TextEdit
Friend WithEvents txtImportBasePath As TextEdit Friend WithEvents txtImportBasePath As TextEdit
Friend WithEvents txtImportRelativePath As TextEdit Friend WithEvents txtImportRelativePath As TextEdit
Friend WithEvents LayoutControlGroup1 As LayoutControlGroup
Friend WithEvents LayoutControlItem6 As LayoutControlItem
Friend WithEvents LayoutControlItem5 As LayoutControlItem
Friend WithEvents LayoutControlItem2 As LayoutControlItem
Friend WithEvents LayoutControlItem1 As LayoutControlItem
Friend WithEvents LayoutControlItem3 As LayoutControlItem
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents tabPageSchema As XtraTabPage
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents DS_DD_ECM As DS_DD_ECM
Friend WithEvents TBEDIXMLITEMSBindingSource As BindingSource
Friend WithEvents TBEDI_XML_ITEMSTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_ITEMSTableAdapter
Friend WithEvents TabbedControlGroup1 As TabbedControlGroup
Friend WithEvents LayoutControlGroup1 As LayoutControlGroup
Friend WithEvents LayoutControlItem6 As LayoutControlItem
Friend WithEvents LayoutControlItem5 As LayoutControlItem
Friend WithEvents LayoutControlItem2 As LayoutControlItem
Friend WithEvents LayoutControlItem1 As LayoutControlItem
Friend WithEvents LayoutControlItem3 As LayoutControlItem
Friend WithEvents txtInputDir As TextEdit
Friend WithEvents txtOutputDir As TextEdit
Friend WithEvents txtSchemaDir As TextEdit
Friend WithEvents LayoutControlGroup2 As LayoutControlGroup
Friend WithEvents LayoutControlItem4 As LayoutControlItem
Friend WithEvents LayoutControlItem7 As LayoutControlItem
Friend WithEvents LayoutControlItem8 As LayoutControlItem
Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colXML_NAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colXML_NODE_ID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colXML_TYPE_ID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colORDER_KEY As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colFUNCTION_ID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colIS_VISIBLE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colIS_READ_ONLY As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colIS_REQUIRED As DevExpress.XtraGrid.Columns.GridColumn
End Class End Class

12
MultiTool.Form/frmConfig.resx
View File

@@ -120,6 +120,12 @@
<metadata name="ToolbarFormManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolbarFormManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="TBEDIXMLITEMSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>313, 17</value>
</metadata>
<metadata name="DS_DD_ECM.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>194, 17</value>
</metadata>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -137,4 +143,10 @@
IC8+DQo8L3N2Zz4L IC8+DQo8L3N2Zz4L
</value> </value>
</data> </data>
<metadata name="DS_DD_ECM.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>194, 17</value>
</metadata>
<metadata name="TBEDI_XML_ITEMSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>533, 17</value>
</metadata>
</root> </root>

40
MultiTool.Form/frmConfig.vb
View File

@@ -1,7 +1,12 @@
Imports DigitalData.Modules.Config Imports System.Data.SqlClient
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Public Class frmConfig Public Class frmConfig
Public Property ConfigManager As ConfigManager(Of MultiTool.Shared.Config) Public Property ConfigManager As ConfigManager(Of MultiTool.Shared.Config)
Private LogConfig As LogConfig
Private FormHelper As FormHelper
Private ReadOnly Property Config As MultiTool.Shared.Config Private ReadOnly Property Config As MultiTool.Shared.Config
Get Get
@@ -9,7 +14,27 @@ Public Class frmConfig
End Get End Get
End Property End Property
Public Sub New(pLogConfig As LogConfig)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
LogConfig = pLogConfig
FormHelper = New FormHelper(pLogConfig)
End Sub
Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oConnectionString = MSSQLServer.DecryptConnectionString(Config.ConnectionString)
Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString)
oBuilder.InitialCatalog = "DD_ECM"
TBEDI_XML_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBEDI_XML_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_ITEMS)
txtInputDir.EditValue = Config.InputDirectory
txtOutputDir.EditValue = Config.OutputDirectory
txtSchemaDir.EditValue = Config.SchemaDirectory
txtBaseURL.EditValue = Config.Webservice.BaseUrl txtBaseURL.EditValue = Config.Webservice.BaseUrl
txtUsername.EditValue = Config.Webservice.Username txtUsername.EditValue = Config.Webservice.Username
txtPassword.EditValue = Config.Webservice.Password txtPassword.EditValue = Config.Webservice.Password
@@ -23,6 +48,19 @@ Public Class frmConfig
Config.Webservice.Password = txtPassword.EditValue Config.Webservice.Password = txtPassword.EditValue
Config.Webservice.ImportBasePath = txtImportBasePath.EditValue Config.Webservice.ImportBasePath = txtImportBasePath.EditValue
Config.Webservice.ImportRelativePath = txtImportRelativePath.EditValue Config.Webservice.ImportRelativePath = txtImportRelativePath.EditValue
Config.InputDirectory = txtInputDir.EditValue
Config.OutputDirectory = txtOutputDir.EditValue
Config.SchemaDirectory = txtSchemaDir.EditValue
ConfigManager.Save() ConfigManager.Save()
Try
TBEDIXMLITEMSBindingSource.EndEdit()
TBEDI_XML_ITEMSTableAdapter.Update(DS_DD_ECM.TBEDI_XML_ITEMS)
Catch ex As Exception
FormHelper.ShowError(ex, "Speichern der Konfiguration")
End Try
End Sub End Sub
End Class End Class

25
MultiTool.Form/frmImportMain.vb
View File

@@ -112,12 +112,17 @@ Public Class frmImportMain
' Load WinLine Data ' Load WinLine Data
Try Try
SplashScreenManager.SetWaitFormDescription("Lade Basisdaten")
Winline.Mandators.Clear() Winline.Mandators.Clear()
Winline.LoadEconomicYears() Winline.LoadEconomicYears()
Await Winline.LoadMandators() Await Winline.LoadMandators()
' TODO: Comment in when we finally use the database for additional configuration ' TODO: Comment in when we finally use the database for additional configuration
'Winline.LoadTemplateConfiguration() SplashScreenManager.SetWaitFormDescription("Lade Schema Informationen")
If Await Winline.LoadTemplateConfiguration() = False Then
Logger.Warn("Template Configuration was not loaded!")
Winline.TemplateConfiguration = Nothing
End If
For Each oMandator As Mandator In Winline.Mandators For Each oMandator As Mandator In Winline.Mandators
SplashScreenManager.SetWaitFormDescription(String.Format(My.Resources.frmImportMainExtra.Lade__0__Konten, oMandator.Id)) SplashScreenManager.SetWaitFormDescription(String.Format(My.Resources.frmImportMainExtra.Lade__0__Konten, oMandator.Id))
@@ -136,13 +141,15 @@ Public Class frmImportMain
DocumentLoader = New DocumentLoader(LogConfig, Winline) DocumentLoader = New DocumentLoader(LogConfig, Winline)
SchemaLoader = New SchemaLoader(LogConfig) SchemaLoader = New SchemaLoader(LogConfig)
GridLoader = New GridLoader(LogConfig) GridLoader = New GridLoader(LogConfig, Winline.TemplateConfiguration)
SplashScreenManager.SetWaitFormDescription(My.Resources.frmImportMainExtra.Lade_Vorlagen) SplashScreenManager.SetWaitFormDescription(My.Resources.frmImportMainExtra.Lade_Vorlagen)
SchemaLoader.LoadFiles(ConfigManager.Config.SchemaDirectory) SchemaLoader.LoadFiles(ConfigManager.Config.SchemaDirectory)
CurrentSchemaName = SchemaLoader.SchemaList.First().FullName CurrentSchemaName = SchemaLoader.SchemaList.First().FullName
CurrentSchema = SchemaLoader.GetSchemaFromFile(CurrentSchemaName) CurrentSchema = SchemaLoader.GetSchemaFromFile(CurrentSchemaName)
CurrentSchema = SchemaLoader.UpdateSchemaWithDatabaseConfiguration(CurrentSchema, Winline.TemplateConfiguration)
Grids = CreateGridsAndColumns(CurrentSchema) Grids = CreateGridsAndColumns(CurrentSchema)
@@ -223,8 +230,18 @@ Public Class frmImportMain
Dim oDocumentRow = CurrentDocument.Rows. Dim oDocumentRow = CurrentDocument.Rows.
Where(Function(r) r.Id.ToString = oRow.Item(COLUMN_GUID)). Where(Function(r) r.Id.ToString = oRow.Item(COLUMN_GUID)).
SingleOrDefault() SingleOrDefault()
Dim oSchemaTable = CurrentSchema.Tables.
Where(Function(t) t.Name = oGrid.Name).
SingleOrDefault()
Dim oForm As New frmRowEditor(LogConfig, oColumns, oDocumentRow, CurrentDocument.Mandator, Winline) Dim oForm As New frmRowEditor(
LogConfig,
oColumns,
oDocumentRow,
CurrentDocument.Mandator,
Winline,
oSchemaTable
)
If oForm.ShowDialog() = DialogResult.OK Then If oForm.ShowDialog() = DialogResult.OK Then
Dim oModifiedRow = oForm.DocumentRow Dim oModifiedRow = oForm.DocumentRow
Dim oIndex = CurrentDocument.Rows.IndexOf(oModifiedRow) Dim oIndex = CurrentDocument.Rows.IndexOf(oModifiedRow)
@@ -479,7 +496,7 @@ Public Class frmImportMain
End Sub End Sub
Private Sub btnConfig_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnConfig.ItemClick Private Sub btnConfig_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnConfig.ItemClick
Dim oForm As New frmConfig With { Dim oForm As New frmConfig(LogConfig) With {
.ConfigManager = ConfigManager .ConfigManager = ConfigManager
} }

50
MultiTool.Form/frmMapper.Designer.vb generated
View File

@@ -1,50 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMapper
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(422, 242)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'frmMapper
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.Button1)
Me.Name = "frmMapper"
Me.Text = "frmMapper"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As Button
End Class

120
MultiTool.Form/frmMapper.resx
View File

@@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

36
MultiTool.Form/frmMapper.vb
View File

@@ -1,36 +0,0 @@
Imports AutoMapper
Imports MultiTool.Shared
Public Class frmMapper
Public ExampleDict As New Dictionary(Of String, Object) From {
{"Laufnummer", "1"},
{"Rechnungsnummer", "4711"}
}
Public ExampleMapping As New Dictionary(Of String, String) From {
{"Laufnummer", "Text1"},
{"Rechnungsnummer", "Text2"}
}
Public Class ExampleObj
Public Property Text1 As String
Public Property Text2 As String
End Class
Private Sub frmMapper_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim oConfig As New MapperConfiguration(AddressOf GetConfig)
'Dim oMapper = oConfig.CreateMapper()
'Dim oObj = oMapper.Map(Of ExampleObj)(ExampleDict)
End Sub
'Private Sub GetConfig(c As IMapperConfigurationExpression)
' c.CreateMap(Of Dictionary(Of String, Object), ExampleObj)()
' c.AddProfile(New BlaProfile(ExampleMapping))
'End Sub
End Class

82
MultiTool.Form/frmRowEditor.vb
View File

@@ -1,9 +1,6 @@
Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraVerticalGrid.Rows
Imports MultiTool.Shared.Documents Imports MultiTool.Shared.Documents
Imports MultiTool.Shared.Documents.DocumentRow Imports MultiTool.Shared.Documents.DocumentRow
Imports MultiTool.Shared
Imports DevExpress.XtraEditors.Repository Imports DevExpress.XtraEditors.Repository
Imports MultiTool.Shared.Winline Imports MultiTool.Shared.Winline
Imports DigitalData.Modules.Language Imports DigitalData.Modules.Language
@@ -11,13 +8,14 @@ Imports DevExpress.XtraEditors.Controls
Imports System.Globalization Imports System.Globalization
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo Imports MultiTool.Shared.Schemas
Public Class frmRowEditor Public Class frmRowEditor
Private ReadOnly LogConfig As LogConfig Private ReadOnly LogConfig As LogConfig
Private ReadOnly Logger As Logger Private ReadOnly Logger As Logger
Private ReadOnly FormHelper As FormHelper Private ReadOnly FormHelper As FormHelper
Private ReadOnly _Table As Schema.Table
Private ReadOnly _Columns As List(Of String) Private ReadOnly _Columns As List(Of String)
Private ReadOnly _DataTable As New DataTable Private ReadOnly _DataTable As New DataTable
Private ReadOnly _Accounts As List(Of Account) Private ReadOnly _Accounts As List(Of Account)
@@ -46,7 +44,7 @@ Public Class frmRowEditor
End Get End Get
End Property End Property
Public Sub New(pLogConfig As LogConfig, pColumns As List(Of String), pDocumentRow As DocumentRow, pMandator As Mandator, pWinline As WinlineData) Public Sub New(pLogConfig As LogConfig, pColumns As List(Of String), pDocumentRow As DocumentRow, pMandator As Mandator, pWinline As WinlineData, pTable As Schema.Table)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
@@ -59,6 +57,7 @@ Public Class frmRowEditor
_Articles = pWinline.Articles.Where(Function(a) a.Mandator.Id = pMandator.Id).ToList() _Articles = pWinline.Articles.Where(Function(a) a.Mandator.Id = pMandator.Id).ToList()
_DocumentKinds = pWinline.DocumentKinds.Where(Function(k) k.Mandator.Id = pMandator.Id).ToList() _DocumentKinds = pWinline.DocumentKinds.Where(Function(k) k.Mandator.Id = pMandator.Id).ToList()
_DocumentRow = pDocumentRow _DocumentRow = pDocumentRow
_Table = pTable
AccountPicker.DataSource = _Accounts AccountPicker.DataSource = _Accounts
AccountPicker.DisplayMember = "Name" AccountPicker.DisplayMember = "Name"
@@ -102,15 +101,23 @@ Public Class frmRowEditor
Private Sub frmRowEditor_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmRowEditor_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim oDict = New Dictionary(Of String, FieldValue) Dim oDict = New Dictionary(Of String, FieldValue)
For Each oColumn As String In _Columns For Each oColumnName As String In _Columns
Dim oField = _DocumentRow.Fields. Dim oField = _DocumentRow.Fields.
Where(Function(f) f.Key = oColumn). Where(Function(f) f.Key = oColumnName).
SingleOrDefault()
Dim oColumn = _Table.Columns.
Where(Function(c) c.Name = oColumnName).
SingleOrDefault() SingleOrDefault()
' Only Show Columns that are set to visible true
If oColumn?.Config?.IsVisible = False Then
Continue For
End If
If oField.Value Is Nothing Then If oField.Value Is Nothing Then
oDict.Add(oColumn, New FieldValue()) oDict.Add(oColumnName, New FieldValue())
Else Else
oDict.Add(oColumn, oField.Value) oDict.Add(oColumnName, oField.Value)
End If End If
Next Next
@@ -202,6 +209,7 @@ Public Class frmRowEditor
Private Sub GridView1_CustomRowCellEdit(sender As Object, e As CustomRowCellEditEventArgs) Handles GridView1.CustomRowCellEdit Private Sub GridView1_CustomRowCellEdit(sender As Object, e As CustomRowCellEditEventArgs) Handles GridView1.CustomRowCellEdit
Dim oDataRow As DataRow = GridView1.GetDataRow(e.RowHandle) Dim oDataRow As DataRow = GridView1.GetDataRow(e.RowHandle)
Dim oKey As String = oDataRow.Item(COL_KEY)
If e.Column.FieldName = COL_VALUE_ORIGINAL Or e.Column.FieldName = COL_VALUE_FINAL Then If e.Column.FieldName = COL_VALUE_ORIGINAL Or e.Column.FieldName = COL_VALUE_FINAL Then
If e.CellValue.ToString.Length > 100 Then If e.CellValue.ToString.Length > 100 Then
@@ -210,46 +218,52 @@ Public Class frmRowEditor
End If End If
If e.Column.FieldName = COL_VALUE_FINAL Then If e.Column.FieldName = COL_VALUE_FINAL Then
Dim oReadOnlyFields As New List(Of String) From { Dim oColumn = _Table.Columns.
"BELEGKEY" Where(Function(c) c.Name = oKey).
} SingleOrDefault()
If oReadOnlyFields.Contains(oDataRow.Item(COL_KEY)) Then If oColumn Is Nothing Then
e.RepositoryItem = ReadOnlyEditor Exit Sub
End If
ElseIf oDataRow.Item(COL_KEY) = "Datum_Auftrag-Bestellung" Then If oColumn.Config?.Function.Name = "GLN" Then
'e.RepositoryItem = DatePicker
'e.RepositoryItem = MaskDateEditor
ElseIf e.CellValue.ToString.Length > 30 Then
e.RepositoryItem = MultilineEditor
ElseIf oDataRow.Item(COL_KEY) = "Fakt_Kontonummer" Or oDataRow.Item(COL_KEY) = "Lief_Kontonummer" Then
e.RepositoryItem = AccountPicker e.RepositoryItem = AccountPicker
ElseIf oDataRow.Item(COL_KEY) = "Artikelnummer" Then End If
If oColumn.Config?.Function.Name = "EAN" Then
e.RepositoryItem = ArticlePicker e.RepositoryItem = ArticlePicker
ElseIf oDataRow.Item(COL_KEY) = "Belegart" Then End If
e.RepositoryItem = DocumentKindPicker
If e.CellValue.ToString.Length > 30 Then
e.RepositoryItem = MultilineEditor
End If
If oColumn.Config?.IsReadOnly Then
e.RepositoryItem = ReadOnlyEditor
End If End If
End If End If
End Sub End Sub
Private Sub GridView1_CustomDrawCell(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell Private Sub GridView1_CustomDrawCell(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell
Dim oDataRow As DataRow = GridView1.GetDataRow(e.RowHandle) Dim oDataRow As DataRow = GridView1.GetDataRow(e.RowHandle)
Dim oKey As String = oDataRow.Item(COL_KEY)
If e.Column.FieldName = COL_VALUE_FINAL Then If e.Column.FieldName = COL_VALUE_FINAL Then
Dim oReadOnlyFields As New List(Of String) From { Dim oColumn = _Table.Columns.
"BELEGKEY" Where(Function(c) c.Name = oKey).
} SingleOrDefault()
If oReadOnlyFields.Contains(oDataRow.Item(COL_KEY)) Then If oColumn Is Nothing Then
Exit Sub
End If
If oColumn.Config?.IsReadOnly Then
e.Appearance.BackColor = Color.LightGray e.Appearance.BackColor = Color.LightGray
End If End If
End If
If oDataRow.Item(COL_VALUE_FINAL) = "" Then If (oColumn.IsRequired Or oColumn.Config?.IsRequired) AndAlso e.CellValue.ToString.Length = 0 Then
e.Appearance.BackColor = Color.LightCoral e.Appearance.BackColor = Color.LightCoral
End If
End If End If
End Sub End Sub
End Class End Class

11
MultiTool.Shared/Constants.vb
View File

@@ -2,10 +2,21 @@
Public Const COLUMN_GUID = "GUID" Public Const COLUMN_GUID = "GUID"
Public Enum XmlFunction Public Enum XmlFunction
None = 0
GLN = 1 GLN = 1
EAN = 2 EAN = 2
End Enum End Enum
Public Const SCHEMA_TYPE_DATE = "xs:date"
Public Const SCHEMA_TYPE_INTEGER = "xs:integer"
Public Const SCHEMA_TYPE_DECIMAL = "xs:decimal"
Public Const SCHEMA_TYPE_BOOLEAN = "xs:boolean"
Public Const DB_TYPE_DATE = "DATE"
Public Const DB_TYPE_INTEGER = "INTEGER"
Public Const DB_TYPE_DECIMAL = "DECIMAL"
Public Const DB_TYPE_BOOLEAN = "BOOLEAN"
Public Enum ColumnType As Integer Public Enum ColumnType As Integer
[String] [String]
[Integer] [Integer]

2
MultiTool.Shared/MultiTool.Shared.vbproj
View File

@@ -141,7 +141,7 @@
<Compile Include="Winline\Entities\Contact.vb" /> <Compile Include="Winline\Entities\Contact.vb" />
<Compile Include="Winline\Entities\DocumentKind.vb" /> <Compile Include="Winline\Entities\DocumentKind.vb" />
<Compile Include="Winline\Entities\Mandator.vb" /> <Compile Include="Winline\Entities\Mandator.vb" />
<Compile Include="Winline\Entities\TemplateColumn.vb" /> <Compile Include="Winline\Entities\ColumnConfig.vb" />
<Compile Include="Winline\WebService.vb" /> <Compile Include="Winline\WebService.vb" />
<Compile Include="XmlData.vb" /> <Compile Include="XmlData.vb" />
</ItemGroup> </ItemGroup>

7
MultiTool.Shared/Schemas/Schema.vb
View File

@@ -1,4 +1,6 @@
Namespace Schemas Imports MultiTool.Shared.Winline
Namespace Schemas
Public Class Schema Public Class Schema
Public Property Tables As New List(Of Table) Public Property Tables As New List(Of Table)
Public Property Name As String Public Property Name As String
@@ -10,8 +12,9 @@
Class Column Class Column
Public Property Name As String Public Property Name As String
Public Property Required As String
Public Property DataType As Constants.ColumnType Public Property DataType As Constants.ColumnType
Public Property IsRequired As Boolean
Public Property Config As ColumnConfig
End Class End Class
End Class End Class
End Namespace End Namespace

27
MultiTool.Shared/Schemas/SchemaLoader.vb
View File

@@ -63,8 +63,8 @@ Namespace Schemas
Dim oSchemaColumn As New Schema.Column With { Dim oSchemaColumn As New Schema.Column With {
.Name = oName, .Name = oName,
.Required = oRequired, .DataType = oType,
.DataType = oType .IsRequired = oRequired
} }
oSchemaColumns.Add(oSchemaColumn) oSchemaColumns.Add(oSchemaColumn)
Next Next
@@ -79,6 +79,21 @@ Namespace Schemas
Return oSchema Return oSchema
End Function End Function
Public Function UpdateSchemaWithDatabaseConfiguration(pSchema As Schema, pTemplateConfig As Winline.Configuration) As Schema
If pTemplateConfig Is Nothing Then
Return pSchema
End If
For Each oTable In pSchema.Tables
For Each oColumn As Schema.Column In oTable.Columns
Dim oConfig = pTemplateConfig.GetColumn(oColumn.Name)
oColumn.Config = oConfig
Next
Next
Return pSchema
End Function
Public Function GetElementType(pElement As XElement) As Constants.ColumnType Public Function GetElementType(pElement As XElement) As Constants.ColumnType
Dim oTypeString = XmlData.GetElementAttribute(pElement, "type") Dim oTypeString = XmlData.GetElementAttribute(pElement, "type")
@@ -91,13 +106,13 @@ Namespace Schemas
End If End If
Select Case oTypeString Select Case oTypeString
Case "xs:date" Case Constants.SCHEMA_TYPE_DATE
Return Constants.ColumnType.Date Return Constants.ColumnType.Date
Case "xs:integer" Case Constants.SCHEMA_TYPE_INTEGER
Return Constants.ColumnType.Integer Return Constants.ColumnType.Integer
Case "xs:decimal" Case Constants.SCHEMA_TYPE_DECIMAL
Return Constants.ColumnType.Decimal Return Constants.ColumnType.Decimal
Case "xs:boolean" Case Constants.SCHEMA_TYPE_BOOLEAN
Return Constants.ColumnType.Boolean Return Constants.ColumnType.Boolean
Case Else Case Else
Return Constants.ColumnType.String Return Constants.ColumnType.String

18
MultiTool.Shared/Winline/Configuration.vb
View File

@@ -1,7 +1,15 @@
''' <summary> Namespace Winline
''' Class for loading column/field config from database ''' <summary>
''' </summary> ''' Class for loading column/field config from database
Public Class Configuration ''' </summary>
Public Class Configuration
Public Columns As List(Of Winline.ColumnConfig)
End Class Public Function GetColumn(pName As String) As ColumnConfig
Return Columns.
Where(Function(c) c.Name = pName).
FirstOrDefault()
End Function
End Class
End Namespace

45
MultiTool.Shared/Winline/Entities/ColumnConfig.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports MultiTool.Shared.Constants
Namespace Winline
Public Class ColumnConfig
Public Name As String
Public Root As String
Public Type As ColumnType
Public Template As String
Public OrderKey As Integer
Public IsHead As Boolean
Public IsReadOnly As Boolean
Public IsVisible As Boolean
Public IsRequired As Boolean
Public [Function] As ColumnFunction
Public Class ColumnFunction
Public Id As XmlFunction
Public Name As String
Public Params As String
End Class
Public Shared Function ConvertType(pType As String) As ColumnType
Select Case pType
Case DB_TYPE_DATE
Return ColumnType.Date
Case DB_TYPE_DECIMAL
Return ColumnType.Date
Case DB_TYPE_BOOLEAN
Return ColumnType.Boolean
Case DB_TYPE_INTEGER
Return ColumnType.Integer
Case Else
Return ColumnType.String
End Select
End Function
End Class
End Namespace

13
MultiTool.Shared/Winline/Entities/TemplateColumn.vb
View File

@@ -1,13 +0,0 @@
Namespace Winline
Public Class TemplateColumn
Public Name As String
Public Root As String
Public Type As String
Public IsHead As Boolean
Public Template As String
Public [ReadOnly] As Boolean
Public Visible As Boolean
Public [Function] As Constants.XmlFunction
End Class
End Namespace

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

@@ -18,13 +18,15 @@ Namespace Winline
Public DocumentKinds As New List(Of DocumentKind) Public DocumentKinds As New List(Of DocumentKind)
Public Years As List(Of Integer) Public Years As List(Of Integer)
Public TemplateConfiguration As New List(Of TemplateColumn) Public TemplateConfiguration As New Configuration
'Public XmlConfigHead As List(Of TemplateColumn) 'Public XmlConfigHead As List(Of TemplateColumn)
'Public XmlConfigPositions As List(Of TemplateColumn) 'Public XmlConfigPositions As List(Of TemplateColumn)
Public Const ALL_MESOCOMP = "mesocomp" Public Const ALL_MESOCOMP = "mesocomp"
Public Const VWEDI_XML_ITEMS = "VWEDI_XML_ITEMS"
Public Const V21_ARTICLENUMBER = "c002" Public Const V21_ARTICLENUMBER = "c002"
Public Const V21_ARTICLEDESCRIPTION = "c003" Public Const V21_ARTICLEDESCRIPTION = "c003"
Public Const V21_MAINARTICLENUMBER = "c011" Public Const V21_MAINARTICLENUMBER = "c011"
@@ -87,9 +89,9 @@ Namespace Winline
Dim oArticles As New List(Of Article) Dim oArticles As New List(Of Article)
For Each oRow As DataRow In oTable.Rows For Each oRow As DataRow In oTable.Rows
Dim oArticleId As String = Utils.NotNull(oRow.Item(V21_ARTICLENUMBER), String.Empty) Dim oArticleId As String = GetRowItem(oRow, V21_ARTICLENUMBER, String.Empty)
Dim oArticleDescription As String = Utils.NotNull(oRow.Item(V21_ARTICLEDESCRIPTION), String.Empty) Dim oArticleDescription As String = GetRowItem(oRow, V21_ARTICLEDESCRIPTION, String.Empty)
Dim oEAN As String = Utils.NotNull(oRow.Item(V21_EAN), String.Empty) Dim oEAN As String = GetRowItem(oRow, V21_EAN, String.Empty)
oArticles.Add(New Article With { oArticles.Add(New Article With {
.Id = oArticleId, .Id = oArticleId,
@@ -129,12 +131,12 @@ Namespace Winline
Dim oAccounts As New List(Of Account) Dim oAccounts As New List(Of Account)
For Each oRow As DataRow In oTable.Rows For Each oRow As DataRow In oTable.Rows
Dim oAccountNumber As String = Utils.NotNull(oRow.Item(V50_ACCOUNTNUMBER), String.Empty) Dim oAccountNumber As String = GetRowItem(oRow, V50_ACCOUNTNUMBER, String.Empty)
Dim oAccountName As String = Utils.NotNull(oRow.Item(V50_ACCOUNTNAME), String.Empty) Dim oAccountName As String = GetRowItem(oRow, V50_ACCOUNTNAME, String.Empty)
Dim oStreetName As String = Utils.NotNull(oRow.Item(V50_STREETNAME), String.Empty) Dim oStreetName As String = GetRowItem(oRow, V50_STREETNAME, String.Empty)
Dim oZipCode As String = Utils.NotNull(oRow.Item(V50_ZIPCODE), String.Empty) Dim oZipCode As String = GetRowItem(oRow, V50_ZIPCODE, String.Empty)
Dim oCityName As String = Utils.NotNull(oRow.Item(V50_CITYNAME), String.Empty) Dim oCityName As String = GetRowItem(oRow, V50_CITYNAME, String.Empty)
Dim oGLN As String = Utils.NotNull(oRow.Item(V50_GLN), String.Empty) Dim oGLN As String = GetRowItem(oRow, V50_GLN, String.Empty)
oAccounts.Add(New Account With { oAccounts.Add(New Account With {
.Id = oAccountNumber, .Id = oAccountNumber,
@@ -164,8 +166,8 @@ Namespace Winline
For Each oRow As DataRow In oTable.Rows For Each oRow As DataRow In oTable.Rows
Dim oDbInfo = SplitConnectionInfo(oRow) Dim oDbInfo = SplitConnectionInfo(oRow)
Dim oMandator = New Mandator With { Dim oMandator = New Mandator With {
.Id = oRow.Item(T01_MANDATORID), .Id = GetRowItem(oRow, T01_MANDATORID, String.Empty),
.Name = oRow.Item(T01_MANDATORNAME), .Name = GetRowItem(oRow, T01_MANDATORNAME, String.Empty),
.Database = oDbInfo.Item1, .Database = oDbInfo.Item1,
.Server = oDbInfo.Item2 .Server = oDbInfo.Item2
} }
@@ -218,8 +220,8 @@ Namespace Winline
For Each oRow As DataRow In oTable.Rows For Each oRow As DataRow In oTable.Rows
oKinds.Add(New DocumentKind With { oKinds.Add(New DocumentKind With {
.Id = oRow.Item(T357_KINDID), .Id = GetRowItem(oRow, T357_KINDID, String.Empty),
.Name = oRow.Item(T357_KINDNAME), .Name = GetRowItem(oRow, T357_KINDNAME, String.Empty),
.Mandator = pMandator .Mandator = pMandator
}) })
Next Next
@@ -268,11 +270,11 @@ Namespace Winline
End If End If
Dim oRow As DataRow = oTable.Rows.Item(0) Dim oRow As DataRow = oTable.Rows.Item(0)
Dim oAccountNumber As String = Utils.NotNull(oRow.Item(V50_ACCOUNTNUMBER), String.Empty) Dim oAccountNumber As String = GetRowItem(oRow, V50_ACCOUNTNUMBER, String.Empty)
Dim oAccountName As String = Utils.NotNull(oRow.Item(V50_ACCOUNTNAME), String.Empty) Dim oAccountName As String = GetRowItem(oRow, V50_ACCOUNTNAME, String.Empty)
Dim oStreetName As String = Utils.NotNull(oRow.Item(V50_STREETNAME), String.Empty) Dim oStreetName As String = GetRowItem(oRow, V50_STREETNAME, String.Empty)
Dim oZipCode As String = Utils.NotNull(oRow.Item(V50_ZIPCODE), String.Empty) Dim oZipCode As String = GetRowItem(oRow, V50_ZIPCODE, String.Empty)
Dim oCityName As String = Utils.NotNull(oRow.Item(V50_CITYNAME), String.Empty) Dim oCityName As String = GetRowItem(oRow, V50_CITYNAME, String.Empty)
Return New Account With { Return New Account With {
.Id = oAccountNumber, .Id = oAccountNumber,
@@ -318,7 +320,7 @@ Namespace Winline
End If End If
Dim oRow As DataRow = oTable.Rows.Item(0) Dim oRow As DataRow = oTable.Rows.Item(0)
Dim oArticleNumber As String = Utils.NotNull(oRow.Item(V21_MAINARTICLENUMBER), String.Empty) Dim oArticleNumber As String = GetRowItem(oRow, V21_MAINARTICLENUMBER, String.Empty)
Return oArticleNumber Return oArticleNumber
Catch ex As Exception Catch ex As Exception
@@ -351,9 +353,9 @@ Namespace Winline
For Each oRow In oTable.Rows For Each oRow In oTable.Rows
oContacts.Add(New Contact With { oContacts.Add(New Contact With {
.Id = Utils.NotNull(oRow.Item(T45_KEY), Nothing), .Id = GetRowItem(Of String)(oRow, T45_KEY, Nothing),
.Name = Utils.NotNull(oRow.Item(T45_NAME), Nothing), .Name = GetRowItem(Of String)(oRow, T45_NAME, Nothing),
.Number = Utils.NotNull(oRow.Item(T45_CONTACTNUMBER), Nothing) .Number = GetRowItem(Of String)(oRow, T45_CONTACTNUMBER, Nothing)
}) })
Next Next
@@ -393,7 +395,7 @@ Namespace Winline
End If End If
Dim oRow As DataRow = oTable.Rows.Item(0) Dim oRow As DataRow = oTable.Rows.Item(0)
Dim oReplacementArticleNumber = Utils.NotNull(oRow.Item(V21_REPLACEMENTARTICLENUMBER), Nothing) Dim oReplacementArticleNumber = GetRowItem(Of String)(oRow, V21_REPLACEMENTARTICLENUMBER, Nothing)
If oReplacementArticleNumber Is Nothing Then If oReplacementArticleNumber Is Nothing Then
Return pArticleNumber Return pArticleNumber
@@ -454,7 +456,7 @@ Namespace Winline
End If End If
Dim oRow As DataRow = oTable.Rows.Item(0) Dim oRow As DataRow = oTable.Rows.Item(0)
Dim oArticleNumber As String = Utils.NotNull(oRow.Item(V21_MAINARTICLENUMBER), String.Empty) Dim oArticleNumber As String = GetRowItem(oRow, V21_MAINARTICLENUMBER, String.Empty)
' EAN was found, now we need to check it against the Regex of the current Mandantor, if one exists ' EAN was found, now we need to check it against the Regex of the current Mandantor, if one exists
If oMandator.Regex <> String.Empty Then If oMandator.Regex <> String.Empty Then
@@ -490,100 +492,38 @@ Namespace Winline
End If End If
End Function End Function
'Public Function FindMatchingMandatorFromOrder(pData As Schemas.Orders.Input.MESOWebService) As Mandator Public Async Function LoadTemplateConfiguration() As Task(Of Boolean)
' Dim oPositions As List(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items.
' Where(Function(i) TypeOf i Is Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026).
' Select(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
' ToList()
' Dim oYear = GetWinLineYear()
' Dim oMandatorId As String = String.Empty
' Dim oWhitelistedMandators = Mandators.
' Where(Function(m) m.IsWhitelisted = True).
' ToList()
' For Each oPos In oPositions
' For Each oMandator In oWhitelistedMandators
' Dim oSQL As String = $"
' SELECT
' [c011], -- Artikelnummer
' [c003], -- Artikelbezeichnung
' [c075], -- EAN-Nummer
' [c123] -- Ersatzartikelnummer
' FROM [{oMandator.Database}].[dbo].[v021]
' WHERE [c075] = '{oPos.Artikelnummer}'
' AND [mesocomp] = '{oMandator.Id}' AND [mesoyear] = {oYear}"
' Dim oTable As DataTable = Database.GetDatatable(oSQL)
' ' EAN not found in this Mandator, continue to next one
' If oTable.Rows.Count = 0 Then
' Logger.Debug("EAN [{0}] was not found in Mandator: [{1}]", oPos.Artikelnummer, oMandator.Id)
' Continue For
' End If
' ' Duplicate EAN, exit and do nothing about this manda
' If oTable.Rows.Count > 1 Then
' Logger.Warn("EAN [{0}] was found more than once. Skipping Mandator [{1}]", oPos.Artikelnummer, oMandator.Id)
' Exit For
' End If
' Dim oRow As DataRow = oTable.Rows.Item(0)
' Dim oArticleNumber As String = Utils.NotNull(oRow.Item(V21_ARTICLENUMBER), String.Empty)
' ' EAN was found, now we need to check it against the Regex of the current Mandantor, if one exists
' If oMandator.Regex <> String.Empty Then
' Try
' Dim oRegex As New Regex(oMandator.Regex)
' Dim oMatch = oRegex.Match(oArticleNumber)
' ' If ArticleNumber matches the regex, we assign it and exit
' If oMatch.Success Then
' oMandatorId = oMandator.Id
' Exit For
' Else
' ' If it does not match, continue to the next mandator
' End If
' Catch ex As Exception
' Logger.Error(ex)
' Logger.Warn("Regex [{0}] could not be parsed. Skipping.", oMandator.Regex)
' End Try
' Else
' ' If no regex was found, we assume the number matches
' oMandatorId = oMandator.Id
' End If
' Next
' Next
' If oMandatorId = String.Empty Then
' Return Nothing
' Else
' Return oWhitelistedMandators.
' Where(Function(m) m.Id = oMandatorId).
' Take(1).
' SingleOrDefault()
' End If
'End Function
Public Function LoadTemplateConfiguration() As Boolean
Try Try
Dim oSql = $"SELECT * FROM [DD_ECM].[dbo].[VWEDI_XML_ITEMS]" Dim oSql = $"SELECT * FROM [DD_ECM].[dbo].[{VWEDI_XML_ITEMS}]"
Dim oTable As DataTable = Database.GetDatatable(oSql) Dim oTable As DataTable = Await Database.GetDatatableAsync(oSql)
Dim oItems As New List(Of TemplateColumn) Dim oItems As New List(Of ColumnConfig)
For Each oRow As DataRow In oTable.Rows For Each oRow As DataRow In oTable.Rows
Dim oColumn As New TemplateColumn With { Dim oColumn As New ColumnConfig With {
.Name = oRow.Item("XML_NAME"), .Name = GetRowItem(oRow, "XML_NAME", String.Empty),
.Root = oRow.Item("XML_ROOT"), .Root = GetRowItem(oRow, "XML_ROOT", String.Empty),
.Type = oRow.Item("XML_TYPE"), .Type = ColumnConfig.ConvertType(GetRowItem(oRow, "DATA_TYPE", String.Empty)),
.Template = oRow.Item("TEMPLATE_NAME"), .Template = GetRowItem(oRow, "TEMPLATE_NAME", String.Empty),
.[Function] = oRow.Item("FUNCTION_ID"), .[Function] = New ColumnConfig.ColumnFunction With {
.[ReadOnly] = oRow.Item("IS_READ_ONLY"), .Id = GetRowItem(oRow, "FUNCTION_ID", 0),
.[Visible] = oRow.Item("IS_VISIBLE") .Name = GetRowItem(oRow, "FUNCTION_NAME", String.Empty),
.Params = GetRowItem(oRow, "FUNCTION_PARAMETERS", String.Empty)
},
.OrderKey = GetRowItem(oRow, "ORDER_KEY", 0),
.IsReadOnly = GetRowItem(oRow, "IS_READ_ONLY", False),
.IsVisible = GetRowItem(oRow, "IS_VISIBLE", True),
.IsRequired = GetRowItem(oRow, "IS_REQUIRED", False),
.IsHead = GetRowItem(oRow, "IS_HEAD", True)
} }
oItems.Add(oColumn) oItems.Add(oColumn)
Next Next
TemplateConfiguration = oItems Dim oColumns = oItems
TemplateConfiguration = New Winline.Configuration With {
.Columns = oColumns
}
Return True Return True
Catch ex As Exception Catch ex As Exception
@@ -619,5 +559,12 @@ Namespace Winline
End Function End Function
Private Function GetRowItem(Of T)(pRow As DataRow, pFieldName As String, Optional pDefaultValue As T = Nothing) As T
Try
Return Utils.NotNull(pRow.Item(pFieldName), pDefaultValue)
Catch ex As Exception
Return Nothing
End Try
End Function
End Class End Class
End Namespace End Namespace