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

WIP

Browse Source
This commit is contained in:
Jonathan Jenne 2021-08-16 16:34:55 +02:00
parent 1d5728c28e
commit 3abf4b6e87
21 changed files with 1031 additions and 1061 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
EDIDocumentImport/DocumentInfo.vb
View File

@ -8,8 +8,10 @@ Public Class DocumentInfo
Public Type As DocumentType Public Type As DocumentType
Public Mandator As Mandator Public Mandator As Mandator
Public DataOriginal As Object
Public Data As Object Public Data As Object
Public DataOriginal As Object
Public DataOutput As Object
Public DataString As String
Public Selected As Boolean = False Public Selected As Boolean = False

64
EDIDocumentImport/DocumentLoader.vb
View File

@ -12,14 +12,16 @@ Imports EDIDocumentImport.WinLineInfo
Public Class DocumentLoader Public Class DocumentLoader
Inherits Base Inherits Base
Public Config As Config Private ReadOnly Config As Config
Private Database As MSSQLServer Private ReadOnly Database As MSSQLServer
Private Winline As WinLineInfo Private ReadOnly Winline As WinLineInfo
Private ReadOnly Serializer As Serializer
Public Files As New List(Of Document) Public Files As New List(Of Document)
Public Sub New(pLogConfig As LogConfig, pConfig As Config, pDatabase As MSSQLServer, pWinline As WinLineInfo) Public Sub New(pLogConfig As LogConfig, pConfig As Config, pDatabase As MSSQLServer, pWinline As WinLineInfo)
MyBase.New(pLogConfig, pLogConfig.GetLogger()) MyBase.New(pLogConfig, pLogConfig.GetLogger())
Serializer = New Serializer(pLogConfig)
Config = pConfig Config = pConfig
Database = pDatabase Database = pDatabase
Winline = pWinline Winline = pWinline
@ -138,6 +140,10 @@ Public Class DocumentLoader
Dim oMandator = FindMatchingMandatorFromOrder(pDocument.Data) Dim oMandator = FindMatchingMandatorFromOrder(pDocument.Data)
Dim oData As Orders.Input.MESOWebService = MatchOrderData(pDocument.Data, oMandator) Dim oData As Orders.Input.MESOWebService = MatchOrderData(pDocument.Data, oMandator)
If oMandator Is Nothing Then
Logger.Warn("Mandator not found for File [{0}]", pDocument.File.Name)
End If
pDocument.Mandator = oMandator pDocument.Mandator = oMandator
pDocument.Data = oData pDocument.Data = oData
End If End If
@ -183,32 +189,8 @@ Public Class DocumentLoader
Concat(oPositions). Concat(oPositions).
ToArray() ToArray()
'Dim oAccountNumber = Winline.TryGetAccountNumber(oHead.Fakt_Kontonummer, oMandator)
'If oAccountNumber IsNot Nothing Then
' oHead.Fakt_Kontonummer = oAccountNumber
'End If
'Dim oAccountNumber2 = Winline.TryGetAccountNumber(oHead.Lief_Kontonummer, oMandator)
'If oAccountNumber2 IsNot Nothing Then
' oHead.Lief_Kontonummer = oAccountNumber2
'End If
'For Each oPos In oPositions
' Dim oArticleNumber = Winline.TryGetArticleNumber(oPos.Artikelnummer, oMandator)
' If oArticleNumber Then
' oPos.Artikelnummer = oArticleNumber
' End If
'Next
Return pData Return pData
End Function End Function
Private Function WrapFileInfo(pFileInfo As FileInfo) As Document Private Function WrapFileInfo(pFileInfo As FileInfo) As Document
Return New Document With {.File = pFileInfo} Return New Document With {.File = pFileInfo}
End Function End Function
@ -223,14 +205,14 @@ Public Class DocumentLoader
' Read data the first time, working copy ' Read data the first time, working copy
Using oReader = oNavigator.ReadSubtree() Using oReader = oNavigator.ReadSubtree()
Dim oSerializer = GetSerializer(oSchemaType) Dim oSerializer = Serializer.GetSerializer(oSchemaType)
pDocument.Data = oSerializer.Deserialize(oReader) pDocument.Data = oSerializer.Deserialize(oReader)
End Using End Using
' Read data the second time, archive copy ' Read data the second time, archive copy
Using oReader = oNavigator.ReadSubtree() Using oReader = oNavigator.ReadSubtree()
Dim oSerializer = GetSerializer(oSchemaType) Dim oSerializer = Serializer.GetSerializer(oSchemaType)
pDocument.DataOriginal = oSerializer.Deserialize(oReader) pDocument.DataOriginal = oSerializer.Deserialize(oReader)
End Using End Using
@ -250,30 +232,6 @@ Public Class DocumentLoader
End Using End Using
End Function End Function
Private Function GetSerializer(pSchemaType As Type) As XmlSerializer
Dim oSerializer As New XmlSerializer(pSchemaType)
AddHandler oSerializer.UnknownAttribute, Sub(sender As Object, e As XmlAttributeEventArgs)
Logger.Debug("Unknown Attribute: {0}", e.Attr)
End Sub
AddHandler oSerializer.UnknownElement, Sub(sender As Object, e As XmlElementEventArgs)
Logger.Debug("Unknown Element: {0}", e.Element)
End Sub
AddHandler oSerializer.UnknownNode, Sub(sender As Object, e As XmlNodeEventArgs)
Logger.Debug("Unknown Node: {0}", e.Name)
End Sub
AddHandler oSerializer.UnreferencedObject, Sub(sender As Object, e As UnreferencedObjectEventArgs)
Logger.Debug("Unreferenced Object: {0}", e.UnreferencedId)
End Sub
Return oSerializer
End Function
Private Function GetTemplateName(pDocument As XPathNavigator) As String Private Function GetTemplateName(pDocument As XPathNavigator) As String
Dim oTemplateName = pDocument. Dim oTemplateName = pDocument.
SelectSingleNode("//MESOWebService"). SelectSingleNode("//MESOWebService").

6
EDIDocumentImport/DocumentPositions.vb
View File

@ -1,6 +1,9 @@
Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Columns
Public Class DocumentPositions Public Class DocumentPositions
''' <summary>
''' Class to determine the displayed columns in the positions grid
''' </summary>
Public Class OrderPosition Public Class OrderPosition
Public Property RowNumber As Integer Public Property RowNumber As Integer
Public Property EuropeanArticleNumber As String Public Property EuropeanArticleNumber As String
@ -60,6 +63,9 @@ Public Class DocumentPositions
.VisibleIndex = 8 .VisibleIndex = 8
} }
''' <summary>
''' Columns that can be changed in the positions grid
''' </summary>
Public Shared Property WritableColumns As New List(Of GridColumn) From { Public Shared Property WritableColumns As New List(Of GridColumn) From {
ColumnPrice ColumnPrice
} }

28
EDIDocumentImport/EDIDocumentImporter.vbproj
View File

@ -48,6 +48,9 @@
<OptionInfer>On</OptionInfer> <OptionInfer>On</OptionInfer>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="AutoMapper, Version=10.0.0.0, Culture=neutral, PublicKeyToken=be96cd2c38ef1005, processorArchitecture=MSIL">
<HintPath>..\packages\AutoMapper.10.1.1\lib\net461\AutoMapper.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.DataAccess.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -100,6 +103,10 @@
<Reference Include="DigitalData.Modules.Database"> <Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath> <HintPath>..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Filesystem, Version=1.0.7.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language, Version=1.3.2.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Language, Version=1.3.2.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\DDMonorepo\Modules.Language\bin\Release\DigitalData.Modules.Language.dll</HintPath> <HintPath>..\..\DDMonorepo\Modules.Language\bin\Release\DigitalData.Modules.Language.dll</HintPath>
@ -169,16 +176,18 @@
<DependentUpon>Settings.settings</DependentUpon> <DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput> <DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile> </Compile>
<Compile Include="Schemas\OrdersReport.vb" /> <Compile Include="Reports\OrderReport.Designer.vb">
<Compile Include="Schemas\Orders\Input.vb" />
<Compile Include="Schemas\Orders\Output.vb" />
<Compile Include="WinLineInfo.vb" />
<Compile Include="OrderReport.Designer.vb">
<DependentUpon>OrderReport.vb</DependentUpon> <DependentUpon>OrderReport.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="OrderReport.vb"> <Compile Include="Reports\OrderReport.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </Compile>
<Compile Include="Schemas\Orders\ReportSource.vb" />
<Compile Include="Schemas\Orders\Input.vb" />
<Compile Include="Schemas\Orders\Output.vb" />
<Compile Include="Serializer.vb" />
<Compile Include="WinLineInfo.vb" />
<Compile Include="WinLineWebService.vb" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<EmbeddedResource Include="frmMain.resx"> <EmbeddedResource Include="frmMain.resx">
@ -191,7 +200,7 @@
<CustomToolNamespace>My.Resources</CustomToolNamespace> <CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType> <SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="OrderReport.resx"> <EmbeddedResource Include="Reports\OrderReport.resx">
<DependentUpon>OrderReport.vb</DependentUpon> <DependentUpon>OrderReport.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
</ItemGroup> </ItemGroup>
@ -210,6 +219,7 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="README.txt" /> <Content Include="README.txt" />
<None Include="Resources\paymentrefund.svg" />
<None Include="Resources\open2.svg" /> <None Include="Resources\open2.svg" />
<None Include="Resources\open.svg" /> <None Include="Resources\open.svg" />
<None Include="Resources\pagesetup.svg" /> <None Include="Resources\pagesetup.svg" />
@ -226,6 +236,8 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\import.svg" /> <None Include="Resources\import.svg" />
</ItemGroup> </ItemGroup>
<ItemGroup /> <ItemGroup>
<Folder Include="Document\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project> </Project>

4
EDIDocumentImport/My Project/AssemblyInfo.vb
View File

@ -8,10 +8,10 @@ Imports System.Runtime.InteropServices
' Werte der Assemblyattribute überprüfen ' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("EDI Document Import")> <Assembly: AssemblyTitle("EDI Document Importer")>
<Assembly: AssemblyDescription("")> <Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("EDI Document Import")> <Assembly: AssemblyProduct("EDI Document Importer")>
<Assembly: AssemblyCopyright("Copyright © 2021")> <Assembly: AssemblyCopyright("Copyright © 2021")>
<Assembly: AssemblyTrademark("")> <Assembly: AssemblyTrademark("")>

10
EDIDocumentImport/My Project/Resources.Designer.vb generated
View File

@ -130,6 +130,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property paymentrefund() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("paymentrefund", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>

69
EDIDocumentImport/My Project/Resources.resx
View File

@ -118,43 +118,46 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="wraptext" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wraptext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="deletetablerows" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\deletetablerows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_validation" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_validation.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="tableproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tableproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="showallfieldcodes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\showallfieldcodes.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="import" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\import.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="pagesetup" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="tilelabels" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tilelabels.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="open2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="preview" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="preview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\preview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\preview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="tilelabels" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tilelabels.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="import" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\import.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="tableproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tableproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_validation" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_validation.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="wraptext" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wraptext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="open2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="pagesetup" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="deletetablerows" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\deletetablerows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="showallfieldcodes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\showallfieldcodes.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="paymentrefund" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\paymentrefund.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root> </root>

18
EDIDocumentImport/My Project/licenses.licx
View File

@ -1,13 +1,15 @@
DevExpress.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraReports.UserDesigner.XRDesignDockManager, DevExpress.XtraReports.v19.2.Extensions, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraReports.UserDesigner.XRDesignBarManager, DevExpress.XtraReports.v19.2.Extensions, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

915
EDIDocumentImport/OrderReport.Designer.vb → EDIDocumentImport/Reports/OrderReport.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

0
EDIDocumentImport/OrderReport.resx → EDIDocumentImport/Reports/OrderReport.resx
View File

0
EDIDocumentImport/OrderReport.vb → EDIDocumentImport/Reports/OrderReport.vb
View File

17
EDIDocumentImport/Resources/paymentrefund.svg Normal file
View File

@ -0,0 +1,17 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#727272;}
.Yellow{fill:#FFB115;}
.Blue{fill:#1177D7;}
.Red{fill:#D11C1C;}
.White{fill:#FFFFFF;}
.Green{fill:#039C23;}
.st0{fill:#727272;}
.st1{opacity:0.5;}
.st2{opacity:0.75;}
</style>
<g id="PaymentRefund">
<path d="M16,4c-3.3,0-6.3,1.3-8.5,3.5L4,4v10h0.2h4.1H14l-3.6-3.6C11.8,8.9,13.8,8,16,8c4.4,0,8,3.6,8,8s-3.6,8-8,8 c-3.7,0-6.8-2.6-7.7-6H4.2c1,5.7,5.9,10,11.8,10c6.6,0,12-5.4,12-12S22.6,4,16,4z" class="Blue" />
</g>
</svg>

24
EDIDocumentImport/Schemas/Orders/Input.vb
View File

@ -58,7 +58,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _ <System.Xml.Serialization.XmlAttributeAttribute(DataType:="string")> _
Public Property TemplateType() As String Public Property TemplateType() As String
Get Get
Return Me.templateTypeField Return Me.templateTypeField
@ -80,7 +80,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _ <System.Xml.Serialization.XmlAttributeAttribute(DataType:="string")> _
Public Property [option]() As String Public Property [option]() As String
Get Get
Return Me.optionField Return Me.optionField
@ -91,7 +91,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _ <System.Xml.Serialization.XmlAttributeAttribute(DataType:="string")> _
Public Property amount() As String Public Property amount() As String
Get Get
Return Me.amountField Return Me.amountField
@ -102,7 +102,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _ <System.Xml.Serialization.XmlAttributeAttribute(DataType:="string")> _
Public Property extEntry() As String Public Property extEntry() As String
Get Get
Return Me.extEntryField Return Me.extEntryField
@ -113,7 +113,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _ <System.Xml.Serialization.XmlAttributeAttribute(DataType:="string")> _
Public Property printVoucher() As String Public Property printVoucher() As String
Get Get
Return Me.printVoucherField Return Me.printVoucherField
@ -124,7 +124,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _ <System.Xml.Serialization.XmlAttributeAttribute(DataType:="string")> _
Public Property extInsert() As String Public Property extInsert() As String
Get Get
Return Me.extInsertField Return Me.extInsertField
@ -135,7 +135,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _ <System.Xml.Serialization.XmlAttributeAttribute(DataType:="string")> _
Public Property ChangeLotSize() As String Public Property ChangeLotSize() As String
Get Get
Return Me.changeLotSizeField Return Me.changeLotSizeField
@ -197,7 +197,7 @@ Namespace Orders.Input
Private infotextField As String Private infotextField As String
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> _ <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="string")> _
Public Property BELEGKEY() As String Public Property BELEGKEY() As String
Get Get
Return Me.bELEGKEYField Return Me.bELEGKEYField
@ -351,7 +351,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Datum_Auftrag-Bestellung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")> _ <System.Xml.Serialization.XmlElementAttribute("Datum_Auftrag-Bestellung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="string")> _
Public Property Datum_AuftragBestellung() As String Public Property Datum_AuftragBestellung() As String
Get Get
Return Me.datum_AuftragBestellungField Return Me.datum_AuftragBestellungField
@ -384,7 +384,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")> _ <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="string")> _
Public Property Leistungsdatum() As String Public Property Leistungsdatum() As String
Get Get
Return Me.leistungsdatumField Return Me.leistungsdatumField
@ -479,7 +479,7 @@ Namespace Orders.Input
Private zeilenrabatt4FieldSpecified As Boolean Private zeilenrabatt4FieldSpecified As Boolean
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> _ <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="string")> _
Public Property BELEGKEY() As String Public Property BELEGKEY() As String
Get Get
Return Me.bELEGKEYField Return Me.bELEGKEYField
@ -490,7 +490,7 @@ Namespace Orders.Input
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> _ <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="string")> _
Public Property Zeilennummer() As String Public Property Zeilennummer() As String
Get Get
Return Me.zeilennummerField Return Me.zeilennummerField

448
EDIDocumentImport/Schemas/Orders/Output.vb
View File

@ -17,695 +17,695 @@ Imports System.Xml.Serialization
'This source code was auto-generated by xsd, Version=4.8.3928.0. 'This source code was auto-generated by xsd, Version=4.8.3928.0.
' '
Namespace Orders.Output Namespace Orders.Output
'''<remarks/> '''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("xsd", "4.8.3928.0"), <System.CodeDom.Compiler.GeneratedCodeAttribute("xsd", "4.8.3928.0"), _
System.SerializableAttribute(), System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True), System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true), _
System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=False)> System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=false)> _
Partial Public Class MESOWebService Partial Public Class MESOWebService
Private itemsField() As Object Private itemsField() As Object
Private templateTypeField As String Private templateTypeField As String
Private templateField As String Private templateField As String
Private optionField As String Private optionField As String
Private amountField As String Private amountField As String
Private extEntryField As String Private extEntryField As String
Private printVoucherField As String Private printVoucherField As String
Private extInsertField As String Private extInsertField As String
Private changeLotSizeField As String Private changeLotSizeField As String
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("EXIM-VRG_ordersT025", GetType(MESOWebServiceEXIMVRG_ordersT025), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified), <System.Xml.Serialization.XmlElementAttribute("EXIM-VRG_ordersT025", GetType(MESOWebServiceEXIMVRG_ordersT025), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified), _
System.Xml.Serialization.XmlElementAttribute("EXIM-VRG_ordersT026", GetType(MESOWebServiceEXIMVRG_ordersT026), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> System.Xml.Serialization.XmlElementAttribute("EXIM-VRG_ordersT026", GetType(MESOWebServiceEXIMVRG_ordersT026), Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Items() As Object() Public Property Items() As Object()
Get Get
Return Me.itemsField Return Me.itemsField
End Get End Get
Set Set
Me.itemsField = Value Me.itemsField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> <System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _
Public Property TemplateType() As String Public Property TemplateType() As String
Get Get
Return Me.templateTypeField Return Me.templateTypeField
End Get End Get
Set Set
Me.templateTypeField = Value Me.templateTypeField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute()> <System.Xml.Serialization.XmlAttributeAttribute()> _
Public Property Template() As String Public Property Template() As String
Get Get
Return Me.templateField Return Me.templateField
End Get End Get
Set Set
Me.templateField = Value Me.templateField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> <System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _
Public Property [option]() As String Public Property [option]() As String
Get Get
Return Me.optionField Return Me.optionField
End Get End Get
Set Set
Me.optionField = Value Me.optionField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> <System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _
Public Property amount() As String Public Property amount() As String
Get Get
Return Me.amountField Return Me.amountField
End Get End Get
Set Set
Me.amountField = Value Me.amountField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> <System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _
Public Property extEntry() As String Public Property extEntry() As String
Get Get
Return Me.extEntryField Return Me.extEntryField
End Get End Get
Set Set
Me.extEntryField = Value Me.extEntryField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> <System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _
Public Property printVoucher() As String Public Property printVoucher() As String
Get Get
Return Me.printVoucherField Return Me.printVoucherField
End Get End Get
Set Set
Me.printVoucherField = Value Me.printVoucherField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> <System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _
Public Property extInsert() As String Public Property extInsert() As String
Get Get
Return Me.extInsertField Return Me.extInsertField
End Get End Get
Set Set
Me.extInsertField = Value Me.extInsertField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> <System.Xml.Serialization.XmlAttributeAttribute(DataType:="integer")> _
Public Property ChangeLotSize() As String Public Property ChangeLotSize() As String
Get Get
Return Me.changeLotSizeField Return Me.changeLotSizeField
End Get End Get
Set Set
Me.changeLotSizeField = Value Me.changeLotSizeField = value
End Set End Set
End Property End Property
End Class End Class
'''<remarks/> '''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("xsd", "4.8.3928.0"), <System.CodeDom.Compiler.GeneratedCodeAttribute("xsd", "4.8.3928.0"), _
System.SerializableAttribute(), System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true)> _
Partial Public Class MESOWebServiceEXIMVRG_ordersT025 Partial Public Class MESOWebServiceEXIMVRG_ordersT025
Private bELEGKEYField As String Private bELEGKEYField As String
Private fakt_KontonummerField As String Private fakt_KontonummerField As String
Private laufnummerField As String Private laufnummerField As String
Private fakt_NameField As String Private fakt_NameField As String
Private fakt_StrasseField As String Private fakt_StrasseField As String
Private fakt_PLZField As String Private fakt_PLZField As String
Private fakt_OrtField As String Private fakt_OrtField As String
Private fakt_AnsprechpartnerField As String Private fakt_AnsprechpartnerField As String
Private lief_KontonummerField As String Private lief_KontonummerField As String
Private lief_NameField As String Private lief_NameField As String
Private lief_StrasseField As String Private lief_StrasseField As String
Private lief_PLZField As String Private lief_PLZField As String
Private lief_OrtField As String Private lief_OrtField As String
Private belegartField As String Private belegartField As String
Private datum_AuftragBestellungField As Date Private datum_AuftragBestellungField As Date
Private datum_AuftragBestellungFieldSpecified As Boolean Private datum_AuftragBestellungFieldSpecified As Boolean
Private auftragsBestellnummerField As String Private auftragsBestellnummerField As String
Private leistungsdatumField As Date Private leistungsdatumField As Date
Private leistungsdatumFieldSpecified As Boolean Private leistungsdatumFieldSpecified As Boolean
Private auftragsreferenzField As String Private auftragsreferenzField As String
Private infotextField As String Private infotextField As String
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> _
Public Property BELEGKEY() As String Public Property BELEGKEY() As String
Get Get
Return Me.bELEGKEYField Return Me.bELEGKEYField
End Get End Get
Set Set
Me.bELEGKEYField = Value Me.bELEGKEYField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Fakt_Kontonummer() As String Public Property Fakt_Kontonummer() As String
Get Get
Return Me.fakt_KontonummerField Return Me.fakt_KontonummerField
End Get End Get
Set Set
Me.fakt_KontonummerField = Value Me.fakt_KontonummerField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Laufnummer() As String Public Property Laufnummer() As String
Get Get
Return Me.laufnummerField Return Me.laufnummerField
End Get End Get
Set Set
Me.laufnummerField = Value Me.laufnummerField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Fakt_Name() As String Public Property Fakt_Name() As String
Get Get
Return Me.fakt_NameField Return Me.fakt_NameField
End Get End Get
Set Set
Me.fakt_NameField = Value Me.fakt_NameField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Fakt_Strasse() As String Public Property Fakt_Strasse() As String
Get Get
Return Me.fakt_StrasseField Return Me.fakt_StrasseField
End Get End Get
Set Set
Me.fakt_StrasseField = Value Me.fakt_StrasseField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Fakt_PLZ() As String Public Property Fakt_PLZ() As String
Get Get
Return Me.fakt_PLZField Return Me.fakt_PLZField
End Get End Get
Set Set
Me.fakt_PLZField = Value Me.fakt_PLZField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Fakt_Ort() As String Public Property Fakt_Ort() As String
Get Get
Return Me.fakt_OrtField Return Me.fakt_OrtField
End Get End Get
Set Set
Me.fakt_OrtField = Value Me.fakt_OrtField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Fakt_Ansprechpartner() As String Public Property Fakt_Ansprechpartner() As String
Get Get
Return Me.fakt_AnsprechpartnerField Return Me.fakt_AnsprechpartnerField
End Get End Get
Set Set
Me.fakt_AnsprechpartnerField = Value Me.fakt_AnsprechpartnerField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Lief_Kontonummer() As String Public Property Lief_Kontonummer() As String
Get Get
Return Me.lief_KontonummerField Return Me.lief_KontonummerField
End Get End Get
Set Set
Me.lief_KontonummerField = Value Me.lief_KontonummerField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Lief_Name() As String Public Property Lief_Name() As String
Get Get
Return Me.lief_NameField Return Me.lief_NameField
End Get End Get
Set Set
Me.lief_NameField = Value Me.lief_NameField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Lief_Strasse() As String Public Property Lief_Strasse() As String
Get Get
Return Me.lief_StrasseField Return Me.lief_StrasseField
End Get End Get
Set Set
Me.lief_StrasseField = Value Me.lief_StrasseField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Lief_PLZ() As String Public Property Lief_PLZ() As String
Get Get
Return Me.lief_PLZField Return Me.lief_PLZField
End Get End Get
Set Set
Me.lief_PLZField = Value Me.lief_PLZField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Lief_Ort() As String Public Property Lief_Ort() As String
Get Get
Return Me.lief_OrtField Return Me.lief_OrtField
End Get End Get
Set Set
Me.lief_OrtField = Value Me.lief_OrtField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Belegart() As String Public Property Belegart() As String
Get Get
Return Me.belegartField Return Me.belegartField
End Get End Get
Set Set
Me.belegartField = Value Me.belegartField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Datum_Auftrag-Bestellung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")> <System.Xml.Serialization.XmlElementAttribute("Datum_Auftrag-Bestellung", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")> _
Public Property Datum_AuftragBestellung() As Date Public Property Datum_AuftragBestellung() As Date
Get Get
Return Me.datum_AuftragBestellungField Return Me.datum_AuftragBestellungField
End Get End Get
Set Set
Me.datum_AuftragBestellungField = Value Me.datum_AuftragBestellungField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> <System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property Datum_AuftragBestellungSpecified() As Boolean Public Property Datum_AuftragBestellungSpecified() As Boolean
Get Get
Return Me.datum_AuftragBestellungFieldSpecified Return Me.datum_AuftragBestellungFieldSpecified
End Get End Get
Set Set
Me.datum_AuftragBestellungFieldSpecified = Value Me.datum_AuftragBestellungFieldSpecified = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Auftrags-Bestellnummer", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute("Auftrags-Bestellnummer", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property AuftragsBestellnummer() As String Public Property AuftragsBestellnummer() As String
Get Get
Return Me.auftragsBestellnummerField Return Me.auftragsBestellnummerField
End Get End Get
Set Set
Me.auftragsBestellnummerField = Value Me.auftragsBestellnummerField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="date")> _
Public Property Leistungsdatum() As Date Public Property Leistungsdatum() As Date
Get Get
Return Me.leistungsdatumField Return Me.leistungsdatumField
End Get End Get
Set Set
Me.leistungsdatumField = Value Me.leistungsdatumField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> <System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property LeistungsdatumSpecified() As Boolean Public Property LeistungsdatumSpecified() As Boolean
Get Get
Return Me.leistungsdatumFieldSpecified Return Me.leistungsdatumFieldSpecified
End Get End Get
Set Set
Me.leistungsdatumFieldSpecified = Value Me.leistungsdatumFieldSpecified = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Auftragsreferenz() As String Public Property Auftragsreferenz() As String
Get Get
Return Me.auftragsreferenzField Return Me.auftragsreferenzField
End Get End Get
Set Set
Me.auftragsreferenzField = Value Me.auftragsreferenzField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Infotext() As String Public Property Infotext() As String
Get Get
Return Me.infotextField Return Me.infotextField
End Get End Get
Set Set
Me.infotextField = Value Me.infotextField = value
End Set End Set
End Property End Property
End Class End Class
'''<remarks/> '''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("xsd", "4.8.3928.0"), <System.CodeDom.Compiler.GeneratedCodeAttribute("xsd", "4.8.3928.0"), _
System.SerializableAttribute(), System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true)> _
Partial Public Class MESOWebServiceEXIMVRG_ordersT026 Partial Public Class MESOWebServiceEXIMVRG_ordersT026
Private bELEGKEYField As String Private bELEGKEYField As String
Private zeilennummerField As String Private zeilennummerField As String
Private datentypField As String Private datentypField As String
Private artikelnummerField As String Private artikelnummerField As String
Private bezeichnungField As String Private bezeichnungField As String
Private notizblockField As String Private notizblockField As String
Private lieferantenartikelnummerField As String Private lieferantenartikelnummerField As String
Private menge_bestelltField As Decimal Private menge_bestelltField As Decimal
Private menge_bestelltFieldSpecified As Boolean Private menge_bestelltFieldSpecified As Boolean
Private menge_geliefertField As Decimal Private menge_geliefertField As Decimal
Private colliField As String Private colliField As String
Private einzelpreisField As Decimal Private einzelpreisField As Decimal
Private einzelpreisFieldSpecified As Boolean Private einzelpreisFieldSpecified As Boolean
Private zeilenrabatt1Field As Decimal Private zeilenrabatt1Field As Decimal
Private zeilenrabatt1FieldSpecified As Boolean Private zeilenrabatt1FieldSpecified As Boolean
Private zeilenrabatt2Field As Decimal Private zeilenrabatt2Field As Decimal
Private zeilenrabatt2FieldSpecified As Boolean Private zeilenrabatt2FieldSpecified As Boolean
Private zeilenrabatt3Field As Decimal Private zeilenrabatt3Field As Decimal
Private zeilenrabatt3FieldSpecified As Boolean Private zeilenrabatt3FieldSpecified As Boolean
Private zeilenrabatt4Field As Decimal Private zeilenrabatt4Field As Decimal
Private zeilenrabatt4FieldSpecified As Boolean Private zeilenrabatt4FieldSpecified As Boolean
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> _
Public Property BELEGKEY() As String Public Property BELEGKEY() As String
Get Get
Return Me.bELEGKEYField Return Me.bELEGKEYField
End Get End Get
Set Set
Me.bELEGKEYField = Value Me.bELEGKEYField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> _
Public Property Zeilennummer() As String Public Property Zeilennummer() As String
Get Get
Return Me.zeilennummerField Return Me.zeilennummerField
End Get End Get
Set Set
Me.zeilennummerField = Value Me.zeilennummerField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Datentyp() As String Public Property Datentyp() As String
Get Get
Return Me.datentypField Return Me.datentypField
End Get End Get
Set Set
Me.datentypField = Value Me.datentypField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Artikelnummer() As String Public Property Artikelnummer() As String
Get Get
Return Me.artikelnummerField Return Me.artikelnummerField
End Get End Get
Set Set
Me.artikelnummerField = Value Me.artikelnummerField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Bezeichnung() As String Public Property Bezeichnung() As String
Get Get
Return Me.bezeichnungField Return Me.bezeichnungField
End Get End Get
Set Set
Me.bezeichnungField = Value Me.bezeichnungField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Notizblock() As String Public Property Notizblock() As String
Get Get
Return Me.notizblockField Return Me.notizblockField
End Get End Get
Set Set
Me.notizblockField = Value Me.notizblockField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Lieferantenartikelnummer() As String Public Property Lieferantenartikelnummer() As String
Get Get
Return Me.lieferantenartikelnummerField Return Me.lieferantenartikelnummerField
End Get End Get
Set Set
Me.lieferantenartikelnummerField = Value Me.lieferantenartikelnummerField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Menge_bestellt() As Decimal Public Property Menge_bestellt() As Decimal
Get Get
Return Me.menge_bestelltField Return Me.menge_bestelltField
End Get End Get
Set Set
Me.menge_bestelltField = Value Me.menge_bestelltField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> <System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property Menge_bestelltSpecified() As Boolean Public Property Menge_bestelltSpecified() As Boolean
Get Get
Return Me.menge_bestelltFieldSpecified Return Me.menge_bestelltFieldSpecified
End Get End Get
Set Set
Me.menge_bestelltFieldSpecified = Value Me.menge_bestelltFieldSpecified = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Menge_geliefert() As Decimal Public Property Menge_geliefert() As Decimal
Get Get
Return Me.menge_geliefertField Return Me.menge_geliefertField
End Get End Get
Set Set
Me.menge_geliefertField = Value Me.menge_geliefertField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Colli() As String Public Property Colli() As String
Get Get
Return Me.colliField Return Me.colliField
End Get End Get
Set Set
Me.colliField = Value Me.colliField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Einzelpreis() As Decimal Public Property Einzelpreis() As Decimal
Get Get
Return Me.einzelpreisField Return Me.einzelpreisField
End Get End Get
Set Set
Me.einzelpreisField = Value Me.einzelpreisField = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> <System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property EinzelpreisSpecified() As Boolean Public Property EinzelpreisSpecified() As Boolean
Get Get
Return Me.einzelpreisFieldSpecified Return Me.einzelpreisFieldSpecified
End Get End Get
Set Set
Me.einzelpreisFieldSpecified = Value Me.einzelpreisFieldSpecified = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Zeilenrabatt1() As Decimal Public Property Zeilenrabatt1() As Decimal
Get Get
Return Me.zeilenrabatt1Field Return Me.zeilenrabatt1Field
End Get End Get
Set Set
Me.zeilenrabatt1Field = Value Me.zeilenrabatt1Field = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> <System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property Zeilenrabatt1Specified() As Boolean Public Property Zeilenrabatt1Specified() As Boolean
Get Get
Return Me.zeilenrabatt1FieldSpecified Return Me.zeilenrabatt1FieldSpecified
End Get End Get
Set Set
Me.zeilenrabatt1FieldSpecified = Value Me.zeilenrabatt1FieldSpecified = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Zeilenrabatt2() As Decimal Public Property Zeilenrabatt2() As Decimal
Get Get
Return Me.zeilenrabatt2Field Return Me.zeilenrabatt2Field
End Get End Get
Set Set
Me.zeilenrabatt2Field = Value Me.zeilenrabatt2Field = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> <System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property Zeilenrabatt2Specified() As Boolean Public Property Zeilenrabatt2Specified() As Boolean
Get Get
Return Me.zeilenrabatt2FieldSpecified Return Me.zeilenrabatt2FieldSpecified
End Get End Get
Set Set
Me.zeilenrabatt2FieldSpecified = Value Me.zeilenrabatt2FieldSpecified = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Zeilenrabatt3() As Decimal Public Property Zeilenrabatt3() As Decimal
Get Get
Return Me.zeilenrabatt3Field Return Me.zeilenrabatt3Field
End Get End Get
Set Set
Me.zeilenrabatt3Field = Value Me.zeilenrabatt3Field = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> <System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property Zeilenrabatt3Specified() As Boolean Public Property Zeilenrabatt3Specified() As Boolean
Get Get
Return Me.zeilenrabatt3FieldSpecified Return Me.zeilenrabatt3FieldSpecified
End Get End Get
Set Set
Me.zeilenrabatt3FieldSpecified = Value Me.zeilenrabatt3FieldSpecified = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
Public Property Zeilenrabatt4() As Decimal Public Property Zeilenrabatt4() As Decimal
Get Get
Return Me.zeilenrabatt4Field Return Me.zeilenrabatt4Field
End Get End Get
Set Set
Me.zeilenrabatt4Field = Value Me.zeilenrabatt4Field = value
End Set End Set
End Property End Property
'''<remarks/> '''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> <System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property Zeilenrabatt4Specified() As Boolean Public Property Zeilenrabatt4Specified() As Boolean
Get Get
Return Me.zeilenrabatt4FieldSpecified Return Me.zeilenrabatt4FieldSpecified
End Get End Get
Set Set
Me.zeilenrabatt4FieldSpecified = Value Me.zeilenrabatt4FieldSpecified = value
End Set End Set
End Property End Property
End Class End Class

21
EDIDocumentImport/Schemas/Orders/ReportSource.vb Normal file
View File

@ -0,0 +1,21 @@
Imports DevExpress.DataAccess.ObjectBinding
Imports System.Collections.Generic
Imports System.ComponentModel
Namespace Orders
<DisplayName("OrdersReport"), HighlightedClass>
Public Class ReportSource
<HighlightedMember>
Public Property Head As Orders.Input.MESOWebServiceEXIMVRG_ordersT025
<HighlightedMember>
Public Property Positions As IEnumerable(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)
<HighlightedMember>
Public Iterator Function GetPositionList() As IEnumerable(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)
For Each oPosition In Positions
Yield oPosition
Next
End Function
End Class
End Namespace

11
EDIDocumentImport/Schemas/OrdersReport.vb
View File

@ -1,11 +0,0 @@
Imports DevExpress.DataAccess.ObjectBinding
Imports System.Collections.Generic
Imports System.ComponentModel
Namespace Orders
<DisplayName("OrdersReport"), HighlightedClass>
Public Class OrdersReport
Public Property Head As Orders.Input.MESOWebServiceEXIMVRG_ordersT025
Public Property Positions As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)
End Class
End Namespace

32
EDIDocumentImport/Serializer.vb Normal file
View File

@ -0,0 +1,32 @@
Imports System.Xml.Serialization
Imports DigitalData.Modules.Logging
Public Class Serializer
Inherits Base
Public Sub New(pLogConfig As LogConfig)
MyBase.New(pLogConfig, pLogConfig.GetLogger())
End Sub
Public Function GetSerializer(pSchemaType As Type) As XmlSerializer
Dim oSerializer As New XmlSerializer(pSchemaType)
AddHandler oSerializer.UnknownAttribute, Sub(sender As Object, e As XmlAttributeEventArgs)
Logger.Debug("[{1}] Unknown Attribute: {0}", e.Attr, pSchemaType.Name)
End Sub
AddHandler oSerializer.UnknownElement, Sub(sender As Object, e As XmlElementEventArgs)
Logger.Debug("[{1}] Unknown Element: {0}", e.Element, pSchemaType.Name)
End Sub
AddHandler oSerializer.UnknownNode, Sub(sender As Object, e As XmlNodeEventArgs)
Logger.Debug("[{1}] Unknown Node: {0}", e.Name, pSchemaType.Name)
End Sub
AddHandler oSerializer.UnreferencedObject, Sub(sender As Object, e As UnreferencedObjectEventArgs)
Logger.Debug("[{1}] Unreferenced Object: {0}", e.UnreferencedId, pSchemaType.Name)
End Sub
Return oSerializer
End Function
End Class

139
EDIDocumentImport/WinLineWebService.vb Normal file
View File

@ -0,0 +1,139 @@
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Filesystem
Imports AutoMapper
Imports AutoMapper.Configuration
Imports System.Globalization
Imports System.Xml.Serialization
Imports System.IO
Imports System.Xml
Imports System.Net
Public Class WinLineWebService
Inherits Base
Private ReadOnly Database As MSSQLServer
Private ReadOnly Config As Config
Private ReadOnly Serializer As Serializer
Private ReadOnly Mapper As AutoMapper.Mapper
Private ReadOnly MapperConfig As MapperConfiguration
Private ReadOnly FileEx As DigitalData.Modules.Filesystem.File
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pConfig As Config)
MyBase.New(pLogConfig, pLogConfig.GetLogger())
FileEx = New DigitalData.Modules.Filesystem.File(pLogConfig)
Serializer = New Serializer(pLogConfig)
Database = pDatabase
Config = pConfig
MapperConfig = New MapperConfiguration(CreateMapperConfig())
MapperConfig.AssertConfigurationIsValid()
Mapper = MapperConfig.CreateMapper()
End Sub
Private Function CreateMapperConfig() As MapperConfigurationExpression
Dim oConfig As New MapperConfigurationExpression()
oConfig.CreateMap(Of String, Integer)().ConvertUsing(New IntegerTypeConverter())
oConfig.CreateMap(Of String, Decimal)().ConvertUsing(New DecimalTypeConverter())
oConfig.CreateMap(Of String, DateTime)().ConvertUsing(New DateTimeTypeConverter())
oConfig.CreateMap(Of Orders.Input.MESOWebService, Orders.Output.MESOWebService)()
oConfig.CreateMap(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025, Orders.Output.MESOWebServiceEXIMVRG_ordersT025)()
oConfig.CreateMap(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026, Orders.Output.MESOWebServiceEXIMVRG_ordersT026)()
Return oConfig
End Function
Public Function TransferDocumentToWinLine(pDocument As DocumentInfo.Document) As Boolean
If TypeOf pDocument.Data Is Orders.Input.MESOWebService Then
TransferOrderToWinline(pDocument)
End If
Return True
End Function
Private Function TransferOrderToWinline(pDocument As DocumentInfo.Document)
Dim oOrderOutput = TransformOrderToOutput(pDocument.Data)
Dim oWS As Config.WebServiceConfig = Config.Webservice
Dim oFilePath = SerializeOrder(oOrderOutput)
Dim oXmlString = IO.File.ReadAllText(oFilePath)
pDocument.DataOutput = oOrderOutput
Dim oURL As String = $"{oWS.BaseUrl}/ewlservice/import?User={oWS.Username}&Password={oWS.Password}&Company={pDocument.Mandator.Id}&Type=30&Vorlage=EXIM-VRG_orders&ActionCode=1&Byref=0Data={oXmlString}"
Dim oRequest = WebRequest.Create(oURL)
oRequest.Method = "POST"
Logger.Info("Creating HTTP Request to [{0}]", oWS.BaseUrl)
' TODO: Make better lol
Using oResponse = oRequest.GetResponse()
Using oStream = oResponse.GetResponseStream()
Using oReader As New StreamReader(oStream)
Dim oData = oReader.ReadToEnd()
End Using
End Using
End Using
Return True
End Function
Private Function TransformOrderToOutput(pData As Orders.Input.MESOWebService) As Orders.Output.MESOWebService
Dim oData As Orders.Input.MESOWebService = pData
Dim oResult As Orders.Output.MESOWebService = Mapper.Map(Of Orders.Output.MESOWebService)(oData)
Dim oItems = oData.Items.
Select(Function(i)
If TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT025 Then
Return Mapper.Map(Of Orders.Output.MESOWebServiceEXIMVRG_ordersT025)(i)
Else
Return Mapper.Map(Of Orders.Output.MESOWebServiceEXIMVRG_ordersT026)(i)
End If
End Function).
ToList()
oResult.Items = oItems.ToArray()
Return oResult
End Function
Private Function SerializeOrder(pData As Orders.Output.MESOWebService) As String
Dim oSerializer = Serializer.GetSerializer(GetType(Orders.Output.MESOWebService))
Dim oSettings As New XmlWriterSettings With {
.Indent = True
}
Dim oPath As String = Path.Combine(FileEx.GetAppDataPath("Digital Data", "EDI Document Importer"), "WebService")
Dim oFileName As String = $"{Now:yyyy-MM-dd-f}.xml"
Dim oFilePath As String = Path.Combine(oPath, oFileName)
If Directory.Exists(oPath) = False Then
Directory.CreateDirectory(oPath)
End If
Using oWriter = XmlWriter.Create(oFilePath, oSettings)
oSerializer.Serialize(oWriter, pData)
End Using
Return oFilePath
End Function
Private Class DateTimeTypeConverter
Implements ITypeConverter(Of String, DateTime)
Public Function Convert(source As String, destination As Date, context As ResolutionContext) As Date Implements ITypeConverter(Of String, Date).Convert
Return System.Convert.ToDateTime(source)
End Function
End Class
Private Class IntegerTypeConverter
Implements ITypeConverter(Of String, Integer)
Public Function Convert(source As String, destination As Integer, context As ResolutionContext) As Integer Implements ITypeConverter(Of String, Integer).Convert
Return System.Convert.ToInt32(source)
End Function
End Class
Private Class DecimalTypeConverter
Implements ITypeConverter(Of String, Decimal)
Public Function Convert(source As String, destination As Decimal, context As ResolutionContext) As Decimal Implements ITypeConverter(Of String, Decimal).Convert
Return System.Convert.ToDecimal(source, CultureInfo.InvariantCulture)
End Function
End Class
End Class

188
EDIDocumentImport/frmMain.Designer.vb generated
View File

@ -33,14 +33,16 @@ Partial Class frmMain
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() Me.btnPreviewReport = New DevExpress.XtraBars.BarButtonItem()
Me.btnReportPreview = New DevExpress.XtraBars.BarButtonItem()
Me.btnReloadDocument = 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.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroupData = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroupDocument = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroupPositions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.GridControlFiles = New DevExpress.XtraGrid.GridControl() Me.GridControlFiles = New DevExpress.XtraGrid.GridControl()
Me.GridViewFiles = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewFiles = New DevExpress.XtraGrid.Views.Grid.GridView()
@ -70,6 +72,7 @@ Partial Class frmMain
Me.txtCustomerGLN = New DevExpress.XtraEditors.TextEdit() Me.txtCustomerGLN = New DevExpress.XtraEditors.TextEdit()
Me.txtDeliveryAddressGLN = New DevExpress.XtraEditors.TextEdit() Me.txtDeliveryAddressGLN = New DevExpress.XtraEditors.TextEdit()
Me.txtDocumentKind = New DevExpress.XtraEditors.TextEdit() Me.txtDocumentKind = New DevExpress.XtraEditors.TextEdit()
Me.txtDocumentReference = New DevExpress.XtraEditors.MemoEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.TabbedControlGroup2 = New DevExpress.XtraLayout.TabbedControlGroup() Me.TabbedControlGroup2 = New DevExpress.XtraLayout.TabbedControlGroup()
Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
@ -85,18 +88,17 @@ Partial Class frmMain
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItemRunningNumber = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItemRunningNumber = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.GridControlPositions = New DevExpress.XtraGrid.GridControl() Me.GridControlPositions = New DevExpress.XtraGrid.GridControl()
Me.GridViewPositions = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewPositions = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl()
Me.RichEditXml = New DevExpress.XtraRichEdit.RichEditControl() Me.RichEditXml = New DevExpress.XtraRichEdit.RichEditControl()
Me.txtDocumentReference = New DevExpress.XtraEditors.MemoEdit()
Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit()
@ -127,6 +129,7 @@ Partial Class frmMain
CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDocumentKind.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtDocumentKind.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
@ -142,26 +145,25 @@ Partial Class frmMain
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl3.SuspendLayout() Me.SplitContainerControl3.SuspendLayout()
CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'RibbonControl 'RibbonControl
' '
Me.RibbonControl.ExpandCollapseItem.Id = 0 Me.RibbonControl.ExpandCollapseItem.Id = 0
Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.btnLoadDocuments, Me.txtFilesLoaded, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.checkShowXml, Me.BarButtonItem4, Me.BarButtonItem5, Me.txtVersion, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9}) Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.btnLoadDocuments, Me.txtFilesLoaded, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.checkShowXml, Me.BarButtonItem4, Me.BarButtonItem5, Me.txtVersion, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.btnPreviewReport, Me.btnReportPreview, Me.btnReloadDocument})
Me.RibbonControl.Location = New System.Drawing.Point(0, 0) Me.RibbonControl.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl.MaxItemId = 17 Me.RibbonControl.MaxItemId = 19
Me.RibbonControl.Name = "RibbonControl" Me.RibbonControl.Name = "RibbonControl"
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@ -254,22 +256,36 @@ Partial Class frmMain
Me.BarButtonItem8.ImageOptions.SvgImage = Global.EDIDocumentImport.My.Resources.Resources.singlepageview Me.BarButtonItem8.ImageOptions.SvgImage = Global.EDIDocumentImport.My.Resources.Resources.singlepageview
Me.BarButtonItem8.Name = "BarButtonItem8" Me.BarButtonItem8.Name = "BarButtonItem8"
' '
'BarButtonItem9 'btnPreviewReport
' '
Me.BarButtonItem9.Caption = "Belegvorschau für aktuelle Zeile öffnen" Me.btnPreviewReport.Caption = "Belegvorschau für aktuelle Zeile öffnen"
Me.BarButtonItem9.Id = 16 Me.btnPreviewReport.Id = 16
Me.BarButtonItem9.ImageOptions.SvgImage = Global.EDIDocumentImport.My.Resources.Resources.preview Me.btnPreviewReport.ImageOptions.SvgImage = Global.EDIDocumentImport.My.Resources.Resources.preview
Me.BarButtonItem9.Name = "BarButtonItem9" Me.btnPreviewReport.Name = "btnPreviewReport"
'
'btnReportPreview
'
Me.btnReportPreview.Caption = "BarButtonItem10"
Me.btnReportPreview.Id = 17
Me.btnReportPreview.Name = "btnReportPreview"
'
'btnReloadDocument
'
Me.btnReloadDocument.Caption = "Aktuelles Dokument erneut laden"
Me.btnReloadDocument.Id = 18
Me.btnReloadDocument.ImageOptions.SvgImage = Global.EDIDocumentImport.My.Resources.Resources.paymentrefund
Me.btnReloadDocument.Name = "btnReloadDocument"
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4, Me.RibbonPageGroup6, Me.RibbonPageGroup5}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonGroupData, Me.RibbonGroupDocument, Me.RibbonGroupPositions})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start" Me.RibbonPage1.Text = "Start"
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.btnLoadDocuments) Me.RibbonPageGroup1.ItemLinks.Add(Me.btnLoadDocuments)
Me.RibbonPageGroup1.ItemLinks.Add(Me.btnReloadDocument)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Daten laden" Me.RibbonPageGroup1.Text = "Daten laden"
' '
@ -278,37 +294,40 @@ Partial Class frmMain
Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Konfiguration" Me.RibbonPageGroup2.Text = "Konfiguration"
' '
'RibbonPageGroup3 'RibbonPageGroup3
' '
Me.RibbonPageGroup3.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup3.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup3.ItemLinks.Add(Me.checkShowXml) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3" Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
Me.RibbonPageGroup3.Text = "Debugging" Me.RibbonPageGroup3.Text = "Debugging"
' '
'RibbonPageGroup4 'RibbonGroupData
' '
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem4) Me.RibbonGroupData.Enabled = False
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem5) Me.RibbonGroupData.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4" Me.RibbonGroupData.ItemLinks.Add(Me.BarButtonItem5)
Me.RibbonPageGroup4.Text = "Daten übermitteln" Me.RibbonGroupData.Name = "RibbonGroupData"
Me.RibbonGroupData.Text = "Daten übermitteln"
' '
'RibbonPageGroup6 'RibbonGroupDocument
' '
Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem9) Me.RibbonGroupDocument.Enabled = False
Me.RibbonPageGroup6.Name = "RibbonPageGroup6" Me.RibbonGroupDocument.ItemLinks.Add(Me.btnPreviewReport)
Me.RibbonPageGroup6.Text = "Beleg" Me.RibbonGroupDocument.ItemLinks.Add(Me.checkShowXml)
Me.RibbonGroupDocument.Name = "RibbonGroupDocument"
Me.RibbonGroupDocument.Text = "Beleg"
' '
'RibbonPageGroup5 'RibbonGroupPositions
' '
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonGroupPositions.Enabled = False
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem7) Me.RibbonGroupPositions.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroup5.Name = "RibbonPageGroup5" Me.RibbonGroupPositions.ItemLinks.Add(Me.BarButtonItem7)
Me.RibbonPageGroup5.Text = "Belegpositionen" Me.RibbonGroupPositions.Name = "RibbonGroupPositions"
Me.RibbonGroupPositions.Text = "Belegpositionen"
' '
'RibbonStatusBar 'RibbonStatusBar
' '
@ -613,6 +632,15 @@ Partial Class frmMain
Me.txtDocumentKind.StyleController = Me.LayoutControl1 Me.txtDocumentKind.StyleController = Me.LayoutControl1
Me.txtDocumentKind.TabIndex = 18 Me.txtDocumentKind.TabIndex = 18
' '
'txtDocumentReference
'
Me.txtDocumentReference.Location = New System.Drawing.Point(123, 214)
Me.txtDocumentReference.MenuManager = Me.RibbonControl
Me.txtDocumentReference.Name = "txtDocumentReference"
Me.txtDocumentReference.Size = New System.Drawing.Size(912, 34)
Me.txtDocumentReference.StyleController = Me.LayoutControl1
Me.txtDocumentReference.TabIndex = 19
'
'Root 'Root
' '
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@ -758,6 +786,16 @@ Partial Class frmMain
Me.LayoutControlItemRunningNumber.Text = "Laufnummer" Me.LayoutControlItemRunningNumber.Text = "Laufnummer"
Me.LayoutControlItemRunningNumber.TextSize = New System.Drawing.Size(93, 13) Me.LayoutControlItemRunningNumber.TextSize = New System.Drawing.Size(93, 13)
' '
'LayoutControlItem14
'
Me.LayoutControlItem14.Control = Me.txtDocumentReference
Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 164)
Me.LayoutControlItem14.Name = "LayoutControlItem14"
Me.LayoutControlItem14.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem14.Size = New System.Drawing.Size(1018, 44)
Me.LayoutControlItem14.Text = "Auftragsreferenz"
Me.LayoutControlItem14.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlGroup1 'LayoutControlGroup1
' '
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9}) Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9})
@ -776,6 +814,26 @@ Partial Class frmMain
Me.LayoutControlItem10.Text = "Kontakt" Me.LayoutControlItem10.Text = "Kontakt"
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(93, 13) Me.LayoutControlItem10.TextSize = New System.Drawing.Size(93, 13)
' '
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.TextEdit5
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem6.Size = New System.Drawing.Size(705, 30)
Me.LayoutControlItem6.Text = "Straße"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.TextEdit6
Me.LayoutControlItem7.Location = New System.Drawing.Point(705, 0)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem7.Size = New System.Drawing.Size(313, 30)
Me.LayoutControlItem7.Text = "Hausnummer"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem8 'LayoutControlItem8
' '
Me.LayoutControlItem8.Control = Me.TextEdit7 Me.LayoutControlItem8.Control = Me.TextEdit7
@ -796,26 +854,6 @@ Partial Class frmMain
Me.LayoutControlItem9.Text = "PLZ" Me.LayoutControlItem9.Text = "PLZ"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(93, 13) Me.LayoutControlItem9.TextSize = New System.Drawing.Size(93, 13)
' '
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.TextEdit6
Me.LayoutControlItem7.Location = New System.Drawing.Point(705, 0)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem7.Size = New System.Drawing.Size(313, 30)
Me.LayoutControlItem7.Text = "Hausnummer"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.TextEdit5
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem6.Size = New System.Drawing.Size(705, 30)
Me.LayoutControlItem6.Text = "Straße"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(93, 13)
'
'GridControlPositions 'GridControlPositions
' '
Me.GridControlPositions.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControlPositions.Dock = System.Windows.Forms.DockStyle.Fill
@ -861,24 +899,6 @@ Partial Class frmMain
Me.RichEditXml.Size = New System.Drawing.Size(0, 0) Me.RichEditXml.Size = New System.Drawing.Size(0, 0)
Me.RichEditXml.TabIndex = 0 Me.RichEditXml.TabIndex = 0
' '
'txtDocumentReference
'
Me.txtDocumentReference.Location = New System.Drawing.Point(120, 211)
Me.txtDocumentReference.MenuManager = Me.RibbonControl
Me.txtDocumentReference.Name = "txtDocumentReference"
Me.txtDocumentReference.Size = New System.Drawing.Size(918, 40)
Me.txtDocumentReference.StyleController = Me.LayoutControl1
Me.txtDocumentReference.TabIndex = 19
'
'LayoutControlItem14
'
Me.LayoutControlItem14.Control = Me.txtDocumentReference
Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 164)
Me.LayoutControlItem14.Name = "LayoutControlItem14"
Me.LayoutControlItem14.Size = New System.Drawing.Size(1018, 44)
Me.LayoutControlItem14.Text = "Auftragsreferenz"
Me.LayoutControlItem14.TextSize = New System.Drawing.Size(93, 13)
'
'frmMain 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -922,6 +942,7 @@ Partial Class frmMain
CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDocumentKind.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtDocumentKind.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
@ -937,18 +958,17 @@ Partial Class frmMain
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl3.ResumeLayout(False) Me.SplitContainerControl3.ResumeLayout(False)
CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -996,10 +1016,10 @@ Partial Class frmMain
Friend WithEvents cmbDeliveryAddress As DevExpress.XtraEditors.SearchLookUpEdit Friend WithEvents cmbDeliveryAddress As DevExpress.XtraEditors.SearchLookUpEdit
Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonGroupData As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents txtVersion As DevExpress.XtraBars.BarStaticItem Friend WithEvents txtVersion As DevExpress.XtraBars.BarStaticItem
Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonGroupPositions As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents cmbYears As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents cmbYears As DevExpress.XtraEditors.ComboBoxEdit
@ -1025,10 +1045,12 @@ Partial Class frmMain
Friend WithEvents txtDeliveryAddressGLN As DevExpress.XtraEditors.TextEdit Friend WithEvents txtDeliveryAddressGLN As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnPreviewReport As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonGroupDocument As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents txtDocumentKind As DevExpress.XtraEditors.TextEdit Friend WithEvents txtDocumentKind As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents txtDocumentReference As DevExpress.XtraEditors.MemoEdit Friend WithEvents txtDocumentReference As DevExpress.XtraEditors.MemoEdit
Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents btnReportPreview As DevExpress.XtraBars.BarButtonItem
Friend WithEvents btnReloadDocument As DevExpress.XtraBars.BarButtonItem
End Class End Class

93
EDIDocumentImport/frmMain.vb
View File

@ -11,6 +11,8 @@ Imports DigitalData.GUIs.Common
Imports EDIDocumentImport.DocumentInfo Imports EDIDocumentImport.DocumentInfo
Imports EDIDocumentImport.DocumentPositions Imports EDIDocumentImport.DocumentPositions
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DevExpress.XtraReports.UI
Imports EDIDocumentImport.WinLineInfo
Public Class frmMain Public Class frmMain
Public LogConfig As LogConfig Public LogConfig As LogConfig
@ -19,7 +21,9 @@ Public Class frmMain
Public Database As MSSQLServer Public Database As MSSQLServer
Public DocumentLoader As DocumentLoader Public DocumentLoader As DocumentLoader
Public GridBuilder As GridBuilder Public GridBuilder As GridBuilder
Public Winline As WinLineInfo Public Winline As WinLineInfo
Public WebService As WinLineWebService
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
@ -46,6 +50,7 @@ Public Class frmMain
Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString) Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
Database = New MSSQLServer(LogConfig, oConnectionString) Database = New MSSQLServer(LogConfig, oConnectionString)
Winline = New WinLineInfo(LogConfig, Database, ConfigManager.Config) Winline = New WinLineInfo(LogConfig, Database, ConfigManager.Config)
WebService = New WinLineWebService(LogConfig, Database, ConfigManager.Config)
' Load WinLine Data ' Load WinLine Data
Winline.Mandators.Clear() Winline.Mandators.Clear()
@ -77,6 +82,11 @@ Public Class frmMain
Private Sub btnLoadDocuments_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnLoadDocuments.ItemClick Private Sub btnLoadDocuments_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnLoadDocuments.ItemClick
Try Try
If DocumentLoader.LoadFiles() = True Then If DocumentLoader.LoadFiles() = True Then
RibbonGroupData.Enabled = True
RibbonGroupDocument.Enabled = True
RibbonGroupPositions.Enabled = True
GridControlFiles.DataSource = DocumentLoader.Files GridControlFiles.DataSource = DocumentLoader.Files
txtFilesLoaded.Caption = $"{DocumentLoader.Files.Count} Dokumente geladen" txtFilesLoaded.Caption = $"{DocumentLoader.Files.Count} Dokumente geladen"
End If End If
@ -113,30 +123,19 @@ Public Class frmMain
Logger.Error(ex) Logger.Error(ex)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Text) Dim oMessage As String = $"Unerwarteter Fehler beim Laden des Dokuments {oDocument.Name}:{vbNewLine}{ex.Message}"
MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Logger.Error(ex) Logger.Error(ex)
End Try End Try
End Sub End Sub
Private Sub ShowDocument(pDocument As Document, pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService) Private Sub ShowDocument(pDocument As Document, pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService)
Dim oHead As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items. Dim oHead = GetOrderHead(pData)
Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT025). Dim oHeadOriginal = GetOrderHead(pDataOriginal)
FirstOrDefault()
Dim oHeadOriginal As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 = pDataOriginal.Items. Dim oPositions = GetOrderPositions(pData)
Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT025). Dim oPositionsOriginal = GetOrderPositions(pDataOriginal)
FirstOrDefault()
Dim oPositions As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items.
Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT026).
Select(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
ToList()
Dim oPositionsOriginal As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pDataOriginal.Items.
Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT026).
Select(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
ToList()
' ====== Head Data ====== ' ====== Head Data ======
@ -152,6 +151,9 @@ Public Class frmMain
txtDocumentReference.Text = oHead.Auftragsreferenz txtDocumentReference.Text = oHead.Auftragsreferenz
dateOrderDate.EditValue = oHead.Datum_AuftragBestellung dateOrderDate.EditValue = oHead.Datum_AuftragBestellung
Dim oMandator = Winline.Mandators. Dim oMandator = Winline.Mandators.
Where(Function(m) m.Id = pDocument.Mandator.Id). Where(Function(m) m.Id = pDocument.Mandator.Id).
SingleOrDefault() SingleOrDefault()
@ -168,7 +170,10 @@ Public Class frmMain
cmbCustomer.EditValue = Nothing cmbCustomer.EditValue = Nothing
Else Else
cmbCustomer.EditValue = Winline.Accounts. cmbCustomer.EditValue = Winline.Accounts.
Where(Function(oAccount) oAccount.Id = oHead.Fakt_Kontonummer And oAccount.Mandator = cmbMandator.EditValue). Where(Function(oAccount)
Dim oSelectedMandator As Mandator = cmbMandator.EditValue
Return oAccount.Id = oHead.Fakt_Kontonummer And oAccount.Mandator = oSelectedMandator.Id
End Function).
SingleOrDefault() SingleOrDefault()
End If End If
@ -278,7 +283,12 @@ Public Class frmMain
End Sub End Sub
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
MsgBox("Mach et!") Dim oDocument As Document = GetFocusedDocument()
If oDocument Is Nothing Then
Exit Sub
End If
WebService.TransferDocumentToWinLine(oDocument)
End Sub End Sub
Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
@ -300,4 +310,49 @@ Public Class frmMain
MsgBox($"{pDisplayName} nicht konfiguriert oder nicht gefunden!", MsgBoxStyle.Exclamation, Text) MsgBox($"{pDisplayName} nicht konfiguriert oder nicht gefunden!", MsgBoxStyle.Exclamation, Text)
End If End If
End Sub End Sub
Private Function GetOrderHead(pData As Orders.Input.MESOWebService) As Orders.Input.MESOWebServiceEXIMVRG_ordersT025
Dim oHead As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items.
Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT025).
FirstOrDefault()
Return oHead
End Function
Private Function GetOrderPositions(pData As Orders.Input.MESOWebService) As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)
Dim oPositions As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items.
Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT026).
Select(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
ToList()
Return oPositions
End Function
Private Function GetFocusedDocument() As DocumentInfo.Document
Dim oRowHandles = GridViewFiles.GetSelectedRows().ToList()
Dim oDocument As Document = GridViewFiles.GetRow(oRowHandles.First())
Return oDocument
End Function
Private Sub btnPreviewReport_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnPreviewReport.ItemClick
Dim oDocument As Document = GetFocusedDocument()
If oDocument Is Nothing Then
Exit Sub
End If
Dim oReport As New OrderReport()
Dim oDataSource = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource With {
.DataSource = New Orders.ReportSource With {
.Head = GetOrderHead(oDocument.Data),
.Positions = GetOrderPositions(oDocument.Data)
}
}
oDataSource.Fill()
oReport.DataSource = oDataSource
Dim oReportPrintTool As New ReportPrintTool(oReport)
oReportPrintTool.ShowPreview()
End Sub
Private Sub btnReloadDocument_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnReloadDocument.ItemClick
End Sub
End Class End Class

1
EDIDocumentImport/packages.config
View File

@ -1,4 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="AutoMapper" version="10.1.1" targetFramework="net461" />
<package id="NLog" version="4.7.10" targetFramework="net461" /> <package id="NLog" version="4.7.10" targetFramework="net461" />
</packages> </packages>