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-18 16:47:06 +02:00
parent 55e921eb21
commit 85eff9bfbe
22 changed files with 1078 additions and 302 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
EDIDocumentImport/DocumentPositions.vb
View File

@ -1,72 +0,0 @@
Imports DevExpress.XtraGrid.Columns
Public Class DocumentPositions
''' <summary>
''' Class to determine the displayed columns in the positions grid
''' </summary>
Public Class OrderPosition
Public Property RowNumber As Integer
Public Property EuropeanArticleNumber As String
Public Property ArticleNumber As String
Public Property ArticleNumberVendor As String
Public Property ArticleDescription As String
Public Property EDIPrice As Double
Public Property WinLinePrice As Double
Public Property Price As Double
Public Property Amount As Double
End Class
Public Shared Property ColumnRowNumber As New GridColumn With {
.FieldName = "RowNumber",
.Caption = "Nr.",
.VisibleIndex = 0,
.MaxWidth = 30
}
Public Shared Property ColumnArticleNumber As New GridColumn With {
.FieldName = "ArticleNumber",
.Caption = "Artikelnummer",
.VisibleIndex = 1
}
Public Shared Property ColumnEuropeanArticleNumber As New GridColumn With {
.FieldName = "EuropeanArticleNumber",
.Caption = "EAN",
.VisibleIndex = 2
}
Public Shared Property ColumnArticleNumberVendor As New GridColumn With {
.FieldName = "ArticleNumberVendor",
.Caption = "Artikel Lieferant",
.VisibleIndex = 3
}
Public Shared Property ColumnArticleDescription As New GridColumn With {
.FieldName = "ArticleDescription",
.Caption = "Artikel Beschreibung",
.VisibleIndex = 4
}
Public Shared Property ColumnAmount As New GridColumn With {
.FieldName = "Amount",
.Caption = "Menge",
.VisibleIndex = 5
}
Public Shared Property ColumnEDIPrice As New GridColumn With {
.FieldName = "EDIPrice",
.Caption = "Einzelpreis EDI",
.VisibleIndex = 6
}
Public Shared Property ColumnWinLinePrice As New GridColumn With {
.FieldName = "WinLinePrice",
.Caption = "Einzelpreis WinLine",
.VisibleIndex = 7
}
Public Shared Property ColumnPrice As New GridColumn With {
.FieldName = "Price",
.Caption = "Einzelpreis",
.VisibleIndex = 8
}
''' <summary>
''' Columns that can be changed in the positions grid
''' </summary>
Public Shared Property WritableColumns As New List(Of GridColumn) From {
ColumnPrice
}
End Class

26
EDIDocumentImport/Exceptions.vb
View File

@ -1,9 +1,33 @@
Public Class Exceptions Public Class Exceptions
Public Class NoMandatorException Public MustInherit Class DocumentShowException
Inherits ApplicationException Inherits ApplicationException
Public Sub New(message As String) Public Sub New(message As String)
MyBase.New(message) MyBase.New(message)
End Sub End Sub
End Class End Class
Public Class NoMandatorException
Inherits DocumentShowException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class MultipleAccountsException
Inherits DocumentShowException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
Public Class NoAccountException
Inherits DocumentShowException
Public Sub New(message As String)
MyBase.New(message)
End Sub
End Class
End Class End Class

15
EDIDocumentImport/ImporterForm.vbproj
View File

@ -148,7 +148,6 @@
<Import Include="System.Threading.Tasks" /> <Import Include="System.Threading.Tasks" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Compile Include="DocumentPositions.vb" />
<Compile Include="Exceptions.vb" /> <Compile Include="Exceptions.vb" />
<Compile Include="frmMain.Designer.vb"> <Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon> <DependentUpon>frmMain.vb</DependentUpon>
@ -156,6 +155,12 @@
<Compile Include="frmMain.vb"> <Compile Include="frmMain.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmMandatorSelection.Designer.vb">
<DependentUpon>frmMandatorSelection.vb</DependentUpon>
</Compile>
<Compile Include="frmMandatorSelection.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" /> <Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb"> <Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
@ -172,6 +177,10 @@
<DependentUpon>Settings.settings</DependentUpon> <DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput> <DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile> </Compile>
<Compile Include="Positions\Position.vb" />
<Compile Include="Positions\PositionColumns.vb" />
<Compile Include="Positions\PositionData.vb" />
<Compile Include="Positions\PositionGrid.vb" />
<Compile Include="Reports\OrderReport.Designer.vb"> <Compile Include="Reports\OrderReport.Designer.vb">
<DependentUpon>OrderReport.vb</DependentUpon> <DependentUpon>OrderReport.vb</DependentUpon>
</Compile> </Compile>
@ -183,6 +192,9 @@
<EmbeddedResource Include="frmMain.resx"> <EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon> <DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmMandatorSelection.resx">
<DependentUpon>frmMandatorSelection.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" /> <EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx"> <EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator> <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
@ -232,5 +244,6 @@
<Name>ImporterShared</Name> <Name>ImporterShared</Name>
</ProjectReference> </ProjectReference>
</ItemGroup> </ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project> </Project>

163
EDIDocumentImport/My Project/Resources.resx.bak Normal file
View File

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

16
EDIDocumentImport/My Project/licenses.licx.bak Normal file
View File

@ -0,0 +1,16 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.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.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.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.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.XtraGrid.GridControl, DevExpress.XtraGrid.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.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.XtraEditors.ComboBoxEdit, 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.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

14
EDIDocumentImport/Positions/Position.vb Normal file
View File

@ -0,0 +1,14 @@
Namespace Positions
Public Class Position
Public Property RowNumber As Integer
Public Property EuropeanArticleNumber As String
Public Property ArticleNumber As String
Public Property ArticleNumberVendor As String
Public Property ArticleDescription As String
Public Property EDIPrice As Double
Public Property WinLinePrice As Double
Public Property Price As Double
Public Property Amount As Double
End Class
End Namespace

70
EDIDocumentImport/Positions/PositionColumns.vb Normal file
View File

@ -0,0 +1,70 @@
Imports DevExpress.XtraGrid.Columns
Namespace Positions
Public Class PositionColumns
Public Shared Property ColumnRowNumber As New GridColumn With {
.FieldName = "RowNumber",
.Caption = "Nr.",
.VisibleIndex = 0,
.MaxWidth = 30
}
Public Shared Property ColumnArticleNumber As New GridColumn With {
.FieldName = "ArticleNumber",
.Caption = "Artikelnummer",
.VisibleIndex = 1
}
Public Shared Property ColumnEuropeanArticleNumber As New GridColumn With {
.FieldName = "EuropeanArticleNumber",
.Caption = "EAN",
.VisibleIndex = 2
}
Public Shared Property ColumnArticleNumberVendor As New GridColumn With {
.FieldName = "ArticleNumberVendor",
.Caption = "Artikel Lieferant",
.VisibleIndex = 3
}
Public Shared Property ColumnArticleDescription As New GridColumn With {
.FieldName = "ArticleDescription",
.Caption = "Artikel Beschreibung",
.VisibleIndex = 4
}
Public Shared Property ColumnAmount As New GridColumn With {
.FieldName = "Amount",
.Caption = "Menge",
.VisibleIndex = 5
}
Public Shared Property ColumnEDIPrice As New GridColumn With {
.FieldName = "EDIPrice",
.Caption = "Einzelpreis EDI",
.VisibleIndex = 6
}
Public Shared Property ColumnWinLinePrice As New GridColumn With {
.FieldName = "WinLinePrice",
.Caption = "Einzelpreis WinLine",
.VisibleIndex = 7
}
Public Shared Property ColumnPrice As New GridColumn With {
.FieldName = "Price",
.Caption = "Einzelpreis",
.VisibleIndex = 8
}
''' <summary>
''' Columns that can be changed in the positions grid
''' </summary>
Public Shared Property WritableColumns As New List(Of GridColumn) From {
ColumnPrice
}
Public Shared Property AllColumns As New List(Of GridColumn) From {
ColumnRowNumber,
ColumnArticleNumber,
ColumnArticleNumberVendor,
ColumnEuropeanArticleNumber,
ColumnArticleDescription,
ColumnEDIPrice,
ColumnWinLinePrice,
ColumnPrice
}
End Class
End Namespace

30
EDIDocumentImport/Positions/PositionData.vb Normal file
View File

@ -0,0 +1,30 @@
Imports ImporterForm.Positions
Imports ImporterShared.Schemas
Public Class PositionData
Public Shared Function Load(pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService) As List(Of Position)
Dim oPositions = Orders.Helpers.GetOrderPositions(pData)
Dim oPositionsOriginal = Orders.Helpers.GetOrderPositions(pDataOriginal)
Dim oPositionList As New List(Of Position)
For Each oPosition In oPositions
Dim oPositionOriginal = oPositionsOriginal.
Where(Function(p) p.Zeilennummer = oPosition.Zeilennummer).
SingleOrDefault()
oPositionList.Add(New Position With {
.ArticleNumber = oPosition.Artikelnummer,
.RowNumber = oPosition.Zeilennummer,
.ArticleDescription = oPosition.Bezeichnung,
.ArticleNumberVendor = oPosition.Lieferantenartikelnummer,
.EDIPrice = oPosition.Einzelpreis,
.WinLinePrice = 0,
.Price = 0,
.Amount = oPosition.Menge_bestellt,
.EuropeanArticleNumber = oPositionOriginal.Artikelnummer
})
Next
Return oPositionList
End Function
End Class

45
EDIDocumentImport/Positions/PositionGrid.vb Normal file
View File

@ -0,0 +1,45 @@
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports ImporterShared.Documents
Imports ImporterForm.Positions
Namespace Positions
Public Class PositionGrid
Public Shared Sub LoadPositionViewAndColumns(pView As GridView, pDocumentType As DocumentType)
Dim oColumns As List(Of GridColumn)
' Create columns list depending on DocumentType
Select Case pDocumentType
Case DocumentType.Order
oColumns = PositionColumns.AllColumns
Case Else
oColumns = New List(Of GridColumn)
End Select
' Reset the grid
pView.GridControl.DataSource = Nothing
pView.GridControl.ForceInitialize()
' Clear, add and adjust columns
pView.Columns.Clear()
pView.Columns.AddRange(oColumns.ToArray())
pView.BestFitColumns()
' Set columns readonly that need it
Dim oReadOnlyColumns = oColumns.
Except(PositionColumns.WritableColumns).
ToList()
For Each oColumn As GridColumn In pView.Columns
If oReadOnlyColumns.Contains(oColumn) Then
oColumn.OptionsColumn.ReadOnly = True
oColumn.OptionsColumn.AllowEdit = False
Else
oColumn.Caption &= " *"
End If
Next
End Sub
End Class
End Namespace

187
EDIDocumentImport/frmMain.Designer.vb generated
View File

@ -30,7 +30,7 @@ Partial Class frmMain
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.txtVersion = New DevExpress.XtraBars.BarStaticItem() Me.txtVersion = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.btnDeletePosition = 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.btnPreviewReport = New DevExpress.XtraBars.BarButtonItem() Me.btnPreviewReport = New DevExpress.XtraBars.BarButtonItem()
@ -51,7 +51,7 @@ Partial Class frmMain
Me.colFilePath = New DevExpress.XtraGrid.Columns.GridColumn() Me.colFilePath = New DevExpress.XtraGrid.Columns.GridColumn()
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.LayoutControlHead = New DevExpress.XtraLayout.LayoutControl()
Me.txtOrderIssuer = New DevExpress.XtraEditors.TextEdit() Me.txtOrderIssuer = New DevExpress.XtraEditors.TextEdit()
Me.MemoEdit1 = New DevExpress.XtraEditors.MemoEdit() Me.MemoEdit1 = New DevExpress.XtraEditors.MemoEdit()
Me.txtOrderNumber = New DevExpress.XtraEditors.TextEdit() Me.txtOrderNumber = New DevExpress.XtraEditors.TextEdit()
@ -64,6 +64,8 @@ Partial Class frmMain
Me.dateOrderDate = New DevExpress.XtraEditors.DateEdit() Me.dateOrderDate = New DevExpress.XtraEditors.DateEdit()
Me.cmbMandator = New DevExpress.XtraEditors.SearchLookUpEdit() Me.cmbMandator = New DevExpress.XtraEditors.SearchLookUpEdit()
Me.SearchLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView() Me.SearchLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colId = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colName = New DevExpress.XtraGrid.Columns.GridColumn()
Me.cmbCustomer = New DevExpress.XtraEditors.SearchLookUpEdit() Me.cmbCustomer = New DevExpress.XtraEditors.SearchLookUpEdit()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.cmbDeliveryAddress = New DevExpress.XtraEditors.SearchLookUpEdit() Me.cmbDeliveryAddress = New DevExpress.XtraEditors.SearchLookUpEdit()
@ -79,7 +81,6 @@ Partial Class frmMain
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutItemOrderIssuer = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutItemOrderIssuer = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutItemOrderNumber = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutItemOrderNumber = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutItemOrderDate = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutItemOrderDate = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem()
@ -89,6 +90,7 @@ Partial Class frmMain
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.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = 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.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
@ -106,8 +108,8 @@ Partial Class frmMain
Me.SplitContainerControl1.SuspendLayout() Me.SplitContainerControl1.SuspendLayout()
CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl2.SuspendLayout() Me.SplitContainerControl2.SuspendLayout()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlHead, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout() Me.LayoutControlHead.SuspendLayout()
CType(Me.txtOrderIssuer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtOrderIssuer.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtOrderNumber.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtOrderNumber.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
@ -136,7 +138,6 @@ Partial Class frmMain
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutItemOrderNumber, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutItemOrderNumber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutItemOrderDate, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutItemOrderDate, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit()
@ -146,6 +147,7 @@ Partial Class frmMain
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.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, 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.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
@ -161,7 +163,7 @@ Partial Class frmMain
'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.btnPreviewReport, Me.btnReportPreview, Me.btnReloadDocument}) 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.btnDeletePosition, 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 = 19 Me.RibbonControl.MaxItemId = 19
Me.RibbonControl.Name = "RibbonControl" Me.RibbonControl.Name = "RibbonControl"
@ -235,12 +237,12 @@ Partial Class frmMain
Me.txtVersion.Id = 12 Me.txtVersion.Id = 12
Me.txtVersion.Name = "txtVersion" Me.txtVersion.Name = "txtVersion"
' '
'BarButtonItem6 'btnDeletePosition
' '
Me.BarButtonItem6.Caption = "Zeile löschen" Me.btnDeletePosition.Caption = "Zeile löschen"
Me.BarButtonItem6.Id = 13 Me.btnDeletePosition.Id = 13
Me.BarButtonItem6.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.deletetablerows Me.btnDeletePosition.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.deletetablerows
Me.BarButtonItem6.Name = "BarButtonItem6" Me.btnDeletePosition.Name = "btnDeletePosition"
' '
'BarButtonItem7 'BarButtonItem7
' '
@ -272,6 +274,7 @@ Partial Class frmMain
'btnReloadDocument 'btnReloadDocument
' '
Me.btnReloadDocument.Caption = "Aktuelles Dokument erneut laden" Me.btnReloadDocument.Caption = "Aktuelles Dokument erneut laden"
Me.btnReloadDocument.Enabled = False
Me.btnReloadDocument.Id = 18 Me.btnReloadDocument.Id = 18
Me.btnReloadDocument.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.paymentrefund Me.btnReloadDocument.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.paymentrefund
Me.btnReloadDocument.Name = "btnReloadDocument" Me.btnReloadDocument.Name = "btnReloadDocument"
@ -324,7 +327,7 @@ Partial Class frmMain
'RibbonGroupPositions 'RibbonGroupPositions
' '
Me.RibbonGroupPositions.Enabled = False Me.RibbonGroupPositions.Enabled = False
Me.RibbonGroupPositions.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonGroupPositions.ItemLinks.Add(Me.btnDeletePosition)
Me.RibbonGroupPositions.ItemLinks.Add(Me.BarButtonItem7) Me.RibbonGroupPositions.ItemLinks.Add(Me.BarButtonItem7)
Me.RibbonGroupPositions.Name = "RibbonGroupPositions" Me.RibbonGroupPositions.Name = "RibbonGroupPositions"
Me.RibbonGroupPositions.Text = "Belegpositionen" Me.RibbonGroupPositions.Text = "Belegpositionen"
@ -407,7 +410,7 @@ Partial Class frmMain
Me.SplitContainerControl2.Horizontal = False Me.SplitContainerControl2.Horizontal = False
Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0) Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerControl2.Name = "SplitContainerControl2" Me.SplitContainerControl2.Name = "SplitContainerControl2"
Me.SplitContainerControl2.Panel1.Controls.Add(Me.LayoutControl1) Me.SplitContainerControl2.Panel1.Controls.Add(Me.LayoutControlHead)
Me.SplitContainerControl2.Panel1.Text = "Panel1" Me.SplitContainerControl2.Panel1.Text = "Panel1"
Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControlPositions) Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControlPositions)
Me.SplitContainerControl2.Panel2.Text = "Panel2" Me.SplitContainerControl2.Panel2.Text = "Panel2"
@ -415,34 +418,35 @@ Partial Class frmMain
Me.SplitContainerControl2.SplitterPosition = 275 Me.SplitContainerControl2.SplitterPosition = 275
Me.SplitContainerControl2.TabIndex = 0 Me.SplitContainerControl2.TabIndex = 0
' '
'LayoutControl1 'LayoutControlHead
' '
Me.LayoutControl1.Controls.Add(Me.txtOrderIssuer) Me.LayoutControlHead.Controls.Add(Me.txtOrderIssuer)
Me.LayoutControl1.Controls.Add(Me.MemoEdit1) Me.LayoutControlHead.Controls.Add(Me.MemoEdit1)
Me.LayoutControl1.Controls.Add(Me.txtOrderNumber) Me.LayoutControlHead.Controls.Add(Me.txtOrderNumber)
Me.LayoutControl1.Controls.Add(Me.TextEdit5) Me.LayoutControlHead.Controls.Add(Me.TextEdit5)
Me.LayoutControl1.Controls.Add(Me.TextEdit6) Me.LayoutControlHead.Controls.Add(Me.TextEdit6)
Me.LayoutControl1.Controls.Add(Me.TextEdit7) Me.LayoutControlHead.Controls.Add(Me.TextEdit7)
Me.LayoutControl1.Controls.Add(Me.TextEdit8) Me.LayoutControlHead.Controls.Add(Me.TextEdit8)
Me.LayoutControl1.Controls.Add(Me.TextEdit9) Me.LayoutControlHead.Controls.Add(Me.TextEdit9)
Me.LayoutControl1.Controls.Add(Me.txtRunningNumber) Me.LayoutControlHead.Controls.Add(Me.txtRunningNumber)
Me.LayoutControl1.Controls.Add(Me.dateOrderDate) Me.LayoutControlHead.Controls.Add(Me.dateOrderDate)
Me.LayoutControl1.Controls.Add(Me.cmbMandator) Me.LayoutControlHead.Controls.Add(Me.cmbMandator)
Me.LayoutControl1.Controls.Add(Me.cmbCustomer) Me.LayoutControlHead.Controls.Add(Me.cmbCustomer)
Me.LayoutControl1.Controls.Add(Me.cmbDeliveryAddress) Me.LayoutControlHead.Controls.Add(Me.cmbDeliveryAddress)
Me.LayoutControl1.Controls.Add(Me.cmbYears) Me.LayoutControlHead.Controls.Add(Me.cmbYears)
Me.LayoutControl1.Controls.Add(Me.txtCustomerGLN) Me.LayoutControlHead.Controls.Add(Me.txtCustomerGLN)
Me.LayoutControl1.Controls.Add(Me.txtDeliveryAddressGLN) Me.LayoutControlHead.Controls.Add(Me.txtDeliveryAddressGLN)
Me.LayoutControl1.Controls.Add(Me.txtDocumentKind) Me.LayoutControlHead.Controls.Add(Me.txtDocumentKind)
Me.LayoutControl1.Controls.Add(Me.txtDocumentReference) Me.LayoutControlHead.Controls.Add(Me.txtDocumentReference)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControlHead.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlHead.Enabled = False
Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControlHead.Location = New System.Drawing.Point(0, 0)
Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1270, 166, 650, 400) Me.LayoutControlHead.Name = "LayoutControlHead"
Me.LayoutControl1.Root = Me.Root Me.LayoutControlHead.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1270, 166, 650, 400)
Me.LayoutControl1.Size = New System.Drawing.Size(1062, 275) Me.LayoutControlHead.Root = Me.Root
Me.LayoutControl1.TabIndex = 0 Me.LayoutControlHead.Size = New System.Drawing.Size(1062, 275)
Me.LayoutControl1.Text = "LayoutControl1" Me.LayoutControlHead.TabIndex = 0
Me.LayoutControlHead.Text = "LayoutControl1"
' '
'txtOrderIssuer 'txtOrderIssuer
' '
@ -450,16 +454,16 @@ Partial Class frmMain
Me.txtOrderIssuer.MenuManager = Me.RibbonControl Me.txtOrderIssuer.MenuManager = Me.RibbonControl
Me.txtOrderIssuer.Name = "txtOrderIssuer" Me.txtOrderIssuer.Name = "txtOrderIssuer"
Me.txtOrderIssuer.Size = New System.Drawing.Size(264, 20) Me.txtOrderIssuer.Size = New System.Drawing.Size(264, 20)
Me.txtOrderIssuer.StyleController = Me.LayoutControl1 Me.txtOrderIssuer.StyleController = Me.LayoutControlHead
Me.txtOrderIssuer.TabIndex = 6 Me.txtOrderIssuer.TabIndex = 6
' '
'MemoEdit1 'MemoEdit1
' '
Me.MemoEdit1.Location = New System.Drawing.Point(123, 170) Me.MemoEdit1.Location = New System.Drawing.Point(632, 170)
Me.MemoEdit1.MenuManager = Me.RibbonControl Me.MemoEdit1.MenuManager = Me.RibbonControl
Me.MemoEdit1.Name = "MemoEdit1" Me.MemoEdit1.Name = "MemoEdit1"
Me.MemoEdit1.Size = New System.Drawing.Size(912, 34) Me.MemoEdit1.Size = New System.Drawing.Size(403, 78)
Me.MemoEdit1.StyleController = Me.LayoutControl1 Me.MemoEdit1.StyleController = Me.LayoutControlHead
Me.MemoEdit1.TabIndex = 12 Me.MemoEdit1.TabIndex = 12
' '
'txtOrderNumber 'txtOrderNumber
@ -468,7 +472,7 @@ Partial Class frmMain
Me.txtOrderNumber.MenuManager = Me.RibbonControl Me.txtOrderNumber.MenuManager = Me.RibbonControl
Me.txtOrderNumber.Name = "txtOrderNumber" Me.txtOrderNumber.Name = "txtOrderNumber"
Me.txtOrderNumber.Size = New System.Drawing.Size(217, 20) Me.txtOrderNumber.Size = New System.Drawing.Size(217, 20)
Me.txtOrderNumber.StyleController = Me.LayoutControl1 Me.txtOrderNumber.StyleController = Me.LayoutControlHead
Me.txtOrderNumber.TabIndex = 7 Me.txtOrderNumber.TabIndex = 7
' '
'TextEdit5 'TextEdit5
@ -477,7 +481,7 @@ Partial Class frmMain
Me.TextEdit5.MenuManager = Me.RibbonControl Me.TextEdit5.MenuManager = Me.RibbonControl
Me.TextEdit5.Name = "TextEdit5" Me.TextEdit5.Name = "TextEdit5"
Me.TextEdit5.Size = New System.Drawing.Size(599, 20) Me.TextEdit5.Size = New System.Drawing.Size(599, 20)
Me.TextEdit5.StyleController = Me.LayoutControl1 Me.TextEdit5.StyleController = Me.LayoutControlHead
Me.TextEdit5.TabIndex = 3 Me.TextEdit5.TabIndex = 3
' '
'TextEdit6 'TextEdit6
@ -486,7 +490,7 @@ Partial Class frmMain
Me.TextEdit6.MenuManager = Me.RibbonControl Me.TextEdit6.MenuManager = Me.RibbonControl
Me.TextEdit6.Name = "TextEdit6" Me.TextEdit6.Name = "TextEdit6"
Me.TextEdit6.Size = New System.Drawing.Size(207, 20) Me.TextEdit6.Size = New System.Drawing.Size(207, 20)
Me.TextEdit6.StyleController = Me.LayoutControl1 Me.TextEdit6.StyleController = Me.LayoutControlHead
Me.TextEdit6.TabIndex = 5 Me.TextEdit6.TabIndex = 5
' '
'TextEdit7 'TextEdit7
@ -495,7 +499,7 @@ Partial Class frmMain
Me.TextEdit7.MenuManager = Me.RibbonControl Me.TextEdit7.MenuManager = Me.RibbonControl
Me.TextEdit7.Name = "TextEdit7" Me.TextEdit7.Name = "TextEdit7"
Me.TextEdit7.Size = New System.Drawing.Size(689, 20) Me.TextEdit7.Size = New System.Drawing.Size(689, 20)
Me.TextEdit7.StyleController = Me.LayoutControl1 Me.TextEdit7.StyleController = Me.LayoutControlHead
Me.TextEdit7.TabIndex = 11 Me.TextEdit7.TabIndex = 11
' '
'TextEdit8 'TextEdit8
@ -504,7 +508,7 @@ Partial Class frmMain
Me.TextEdit8.MenuManager = Me.RibbonControl Me.TextEdit8.MenuManager = Me.RibbonControl
Me.TextEdit8.Name = "TextEdit8" Me.TextEdit8.Name = "TextEdit8"
Me.TextEdit8.Size = New System.Drawing.Size(117, 20) Me.TextEdit8.Size = New System.Drawing.Size(117, 20)
Me.TextEdit8.StyleController = Me.LayoutControl1 Me.TextEdit8.StyleController = Me.LayoutControlHead
Me.TextEdit8.TabIndex = 9 Me.TextEdit8.TabIndex = 9
' '
'TextEdit9 'TextEdit9
@ -513,7 +517,7 @@ Partial Class frmMain
Me.TextEdit9.MenuManager = Me.RibbonControl Me.TextEdit9.MenuManager = Me.RibbonControl
Me.TextEdit9.Name = "TextEdit9" Me.TextEdit9.Name = "TextEdit9"
Me.TextEdit9.Size = New System.Drawing.Size(912, 20) Me.TextEdit9.Size = New System.Drawing.Size(912, 20)
Me.TextEdit9.StyleController = Me.LayoutControl1 Me.TextEdit9.StyleController = Me.LayoutControlHead
Me.TextEdit9.TabIndex = 13 Me.TextEdit9.TabIndex = 13
' '
'txtRunningNumber 'txtRunningNumber
@ -522,7 +526,7 @@ Partial Class frmMain
Me.txtRunningNumber.MenuManager = Me.RibbonControl Me.txtRunningNumber.MenuManager = Me.RibbonControl
Me.txtRunningNumber.Name = "txtRunningNumber" Me.txtRunningNumber.Name = "txtRunningNumber"
Me.txtRunningNumber.Size = New System.Drawing.Size(124, 20) Me.txtRunningNumber.Size = New System.Drawing.Size(124, 20)
Me.txtRunningNumber.StyleController = Me.LayoutControl1 Me.txtRunningNumber.StyleController = Me.LayoutControlHead
Me.txtRunningNumber.TabIndex = 2 Me.txtRunningNumber.TabIndex = 2
' '
'dateOrderDate 'dateOrderDate
@ -534,7 +538,7 @@ Partial Class frmMain
Me.dateOrderDate.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.dateOrderDate.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.dateOrderDate.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.dateOrderDate.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.dateOrderDate.Size = New System.Drawing.Size(219, 20) Me.dateOrderDate.Size = New System.Drawing.Size(219, 20)
Me.dateOrderDate.StyleController = Me.LayoutControl1 Me.dateOrderDate.StyleController = Me.LayoutControlHead
Me.dateOrderDate.TabIndex = 8 Me.dateOrderDate.TabIndex = 8
' '
'cmbMandator 'cmbMandator
@ -546,16 +550,33 @@ Partial Class frmMain
Me.cmbMandator.Properties.NullText = "" Me.cmbMandator.Properties.NullText = ""
Me.cmbMandator.Properties.PopupView = Me.SearchLookUpEdit1View Me.cmbMandator.Properties.PopupView = Me.SearchLookUpEdit1View
Me.cmbMandator.Size = New System.Drawing.Size(235, 20) Me.cmbMandator.Size = New System.Drawing.Size(235, 20)
Me.cmbMandator.StyleController = Me.LayoutControl1 Me.cmbMandator.StyleController = Me.LayoutControlHead
Me.cmbMandator.TabIndex = 4 Me.cmbMandator.TabIndex = 4
' '
'SearchLookUpEdit1View 'SearchLookUpEdit1View
' '
Me.SearchLookUpEdit1View.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colId, Me.colName})
Me.SearchLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus Me.SearchLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
Me.SearchLookUpEdit1View.Name = "SearchLookUpEdit1View" Me.SearchLookUpEdit1View.Name = "SearchLookUpEdit1View"
Me.SearchLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False Me.SearchLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False
Me.SearchLookUpEdit1View.OptionsView.ShowGroupPanel = False Me.SearchLookUpEdit1View.OptionsView.ShowGroupPanel = False
' '
'colId
'
Me.colId.Caption = "Kürzel"
Me.colId.FieldName = "Id"
Me.colId.Name = "colId"
Me.colId.Visible = True
Me.colId.VisibleIndex = 0
'
'colName
'
Me.colName.Caption = "Bezeichnung"
Me.colName.FieldName = "Name"
Me.colName.Name = "colName"
Me.colName.Visible = True
Me.colName.VisibleIndex = 1
'
'cmbCustomer 'cmbCustomer
' '
Me.cmbCustomer.Location = New System.Drawing.Point(123, 80) Me.cmbCustomer.Location = New System.Drawing.Point(123, 80)
@ -565,7 +586,7 @@ Partial Class frmMain
Me.cmbCustomer.Properties.NullText = "" Me.cmbCustomer.Properties.NullText = ""
Me.cmbCustomer.Properties.PopupView = Me.GridView1 Me.cmbCustomer.Properties.PopupView = Me.GridView1
Me.cmbCustomer.Size = New System.Drawing.Size(402, 20) Me.cmbCustomer.Size = New System.Drawing.Size(402, 20)
Me.cmbCustomer.StyleController = Me.LayoutControl1 Me.cmbCustomer.StyleController = Me.LayoutControlHead
Me.cmbCustomer.TabIndex = 10 Me.cmbCustomer.TabIndex = 10
' '
'GridView1 'GridView1
@ -585,7 +606,7 @@ Partial Class frmMain
Me.cmbDeliveryAddress.Properties.PopupSizeable = False Me.cmbDeliveryAddress.Properties.PopupSizeable = False
Me.cmbDeliveryAddress.Properties.PopupView = Me.GridView2 Me.cmbDeliveryAddress.Properties.PopupView = Me.GridView2
Me.cmbDeliveryAddress.Size = New System.Drawing.Size(402, 20) Me.cmbDeliveryAddress.Size = New System.Drawing.Size(402, 20)
Me.cmbDeliveryAddress.StyleController = Me.LayoutControl1 Me.cmbDeliveryAddress.StyleController = Me.LayoutControlHead
Me.cmbDeliveryAddress.TabIndex = 14 Me.cmbDeliveryAddress.TabIndex = 14
' '
'GridView2 'GridView2
@ -602,7 +623,7 @@ Partial Class frmMain
Me.cmbYears.Name = "cmbYears" Me.cmbYears.Name = "cmbYears"
Me.cmbYears.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.cmbYears.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.cmbYears.Size = New System.Drawing.Size(132, 20) Me.cmbYears.Size = New System.Drawing.Size(132, 20)
Me.cmbYears.StyleController = Me.LayoutControl1 Me.cmbYears.StyleController = Me.LayoutControlHead
Me.cmbYears.TabIndex = 15 Me.cmbYears.TabIndex = 15
' '
'txtCustomerGLN 'txtCustomerGLN
@ -611,7 +632,7 @@ Partial Class frmMain
Me.txtCustomerGLN.MenuManager = Me.RibbonControl Me.txtCustomerGLN.MenuManager = Me.RibbonControl
Me.txtCustomerGLN.Name = "txtCustomerGLN" Me.txtCustomerGLN.Name = "txtCustomerGLN"
Me.txtCustomerGLN.Size = New System.Drawing.Size(404, 20) Me.txtCustomerGLN.Size = New System.Drawing.Size(404, 20)
Me.txtCustomerGLN.StyleController = Me.LayoutControl1 Me.txtCustomerGLN.StyleController = Me.LayoutControlHead
Me.txtCustomerGLN.TabIndex = 16 Me.txtCustomerGLN.TabIndex = 16
' '
'txtDeliveryAddressGLN 'txtDeliveryAddressGLN
@ -620,7 +641,7 @@ Partial Class frmMain
Me.txtDeliveryAddressGLN.MenuManager = Me.RibbonControl Me.txtDeliveryAddressGLN.MenuManager = Me.RibbonControl
Me.txtDeliveryAddressGLN.Name = "txtDeliveryAddressGLN" Me.txtDeliveryAddressGLN.Name = "txtDeliveryAddressGLN"
Me.txtDeliveryAddressGLN.Size = New System.Drawing.Size(404, 20) Me.txtDeliveryAddressGLN.Size = New System.Drawing.Size(404, 20)
Me.txtDeliveryAddressGLN.StyleController = Me.LayoutControl1 Me.txtDeliveryAddressGLN.StyleController = Me.LayoutControlHead
Me.txtDeliveryAddressGLN.TabIndex = 17 Me.txtDeliveryAddressGLN.TabIndex = 17
' '
'txtDocumentKind 'txtDocumentKind
@ -629,16 +650,16 @@ Partial Class frmMain
Me.txtDocumentKind.MenuManager = Me.RibbonControl Me.txtDocumentKind.MenuManager = Me.RibbonControl
Me.txtDocumentKind.Name = "txtDocumentKind" Me.txtDocumentKind.Name = "txtDocumentKind"
Me.txtDocumentKind.Size = New System.Drawing.Size(103, 20) Me.txtDocumentKind.Size = New System.Drawing.Size(103, 20)
Me.txtDocumentKind.StyleController = Me.LayoutControl1 Me.txtDocumentKind.StyleController = Me.LayoutControlHead
Me.txtDocumentKind.TabIndex = 18 Me.txtDocumentKind.TabIndex = 18
' '
'txtDocumentReference 'txtDocumentReference
' '
Me.txtDocumentReference.Location = New System.Drawing.Point(123, 214) Me.txtDocumentReference.Location = New System.Drawing.Point(123, 170)
Me.txtDocumentReference.MenuManager = Me.RibbonControl Me.txtDocumentReference.MenuManager = Me.RibbonControl
Me.txtDocumentReference.Name = "txtDocumentReference" Me.txtDocumentReference.Name = "txtDocumentReference"
Me.txtDocumentReference.Size = New System.Drawing.Size(912, 34) Me.txtDocumentReference.Size = New System.Drawing.Size(403, 78)
Me.txtDocumentReference.StyleController = Me.LayoutControl1 Me.txtDocumentReference.StyleController = Me.LayoutControlHead
Me.txtDocumentReference.TabIndex = 19 Me.txtDocumentReference.TabIndex = 19
' '
'Root 'Root
@ -660,7 +681,7 @@ Partial Class frmMain
' '
'LayoutControlGroup2 'LayoutControlGroup2
' '
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5, Me.LayoutControlItem2, Me.LayoutItemOrderIssuer, Me.LayoutControlItem3, Me.LayoutItemOrderNumber, Me.LayoutItemOrderDate, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem11, Me.LayoutControlItemRunningNumber, Me.LayoutControlItem14}) Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5, Me.LayoutControlItem2, Me.LayoutItemOrderIssuer, Me.LayoutItemOrderNumber, Me.LayoutItemOrderDate, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem11, Me.LayoutControlItemRunningNumber, Me.LayoutControlItem14, Me.LayoutControlItem3})
Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup2.Name = "LayoutControlGroup2" Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
Me.LayoutControlGroup2.Size = New System.Drawing.Size(1018, 208) Me.LayoutControlGroup2.Size = New System.Drawing.Size(1018, 208)
@ -696,16 +717,6 @@ Partial Class frmMain
Me.LayoutItemOrderIssuer.Text = "Besteller" Me.LayoutItemOrderIssuer.Text = "Besteller"
Me.LayoutItemOrderIssuer.TextSize = New System.Drawing.Size(93, 13) Me.LayoutItemOrderIssuer.TextSize = New System.Drawing.Size(93, 13)
' '
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.MemoEdit1
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 120)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem3.Size = New System.Drawing.Size(1018, 44)
Me.LayoutControlItem3.Text = "Freitext"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutItemOrderNumber 'LayoutItemOrderNumber
' '
Me.LayoutItemOrderNumber.Control = Me.txtOrderNumber Me.LayoutItemOrderNumber.Control = Me.txtOrderNumber
@ -789,13 +800,23 @@ Partial Class frmMain
'LayoutControlItem14 'LayoutControlItem14
' '
Me.LayoutControlItem14.Control = Me.txtDocumentReference Me.LayoutControlItem14.Control = Me.txtDocumentReference
Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 164) Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 120)
Me.LayoutControlItem14.Name = "LayoutControlItem14" Me.LayoutControlItem14.Name = "LayoutControlItem14"
Me.LayoutControlItem14.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutControlItem14.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem14.Size = New System.Drawing.Size(1018, 44) Me.LayoutControlItem14.Size = New System.Drawing.Size(509, 88)
Me.LayoutControlItem14.Text = "Auftragsreferenz" Me.LayoutControlItem14.Text = "Auftragsreferenz"
Me.LayoutControlItem14.TextSize = New System.Drawing.Size(93, 13) Me.LayoutControlItem14.TextSize = New System.Drawing.Size(93, 13)
' '
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.MemoEdit1
Me.LayoutControlItem3.Location = New System.Drawing.Point(509, 120)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem3.Size = New System.Drawing.Size(509, 88)
Me.LayoutControlItem3.Text = "Freitext"
Me.LayoutControlItem3.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})
@ -857,6 +878,7 @@ Partial Class frmMain
'GridControlPositions 'GridControlPositions
' '
Me.GridControlPositions.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControlPositions.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlPositions.Enabled = False
Me.GridControlPositions.Location = New System.Drawing.Point(0, 0) Me.GridControlPositions.Location = New System.Drawing.Point(0, 0)
Me.GridControlPositions.MainView = Me.GridViewPositions Me.GridControlPositions.MainView = Me.GridViewPositions
Me.GridControlPositions.MenuManager = Me.RibbonControl Me.GridControlPositions.MenuManager = Me.RibbonControl
@ -869,7 +891,6 @@ Partial Class frmMain
' '
Me.GridViewPositions.GridControl = Me.GridControlPositions Me.GridViewPositions.GridControl = Me.GridControlPositions
Me.GridViewPositions.Name = "GridViewPositions" Me.GridViewPositions.Name = "GridViewPositions"
Me.GridViewPositions.OptionsView.ShowFooter = True
' '
'SplitContainerControl3 'SplitContainerControl3
' '
@ -919,8 +940,8 @@ Partial Class frmMain
Me.SplitContainerControl1.ResumeLayout(False) Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl2.ResumeLayout(False) Me.SplitContainerControl2.ResumeLayout(False)
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlHead, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False) Me.LayoutControlHead.ResumeLayout(False)
CType(Me.txtOrderIssuer.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtOrderIssuer.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtOrderNumber.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtOrderNumber.Properties, System.ComponentModel.ISupportInitialize).EndInit()
@ -949,7 +970,6 @@ Partial Class frmMain
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutItemOrderNumber, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutItemOrderNumber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutItemOrderDate, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutItemOrderDate, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit()
@ -959,6 +979,7 @@ Partial Class frmMain
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.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, 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.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
@ -982,7 +1003,7 @@ Partial Class frmMain
Friend WithEvents GridViewFiles As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridViewFiles As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl Friend WithEvents LayoutControlHead As DevExpress.XtraLayout.LayoutControl
Friend WithEvents txtOrderIssuer As DevExpress.XtraEditors.TextEdit Friend WithEvents txtOrderIssuer As DevExpress.XtraEditors.TextEdit
Friend WithEvents MemoEdit1 As DevExpress.XtraEditors.MemoEdit Friend WithEvents MemoEdit1 As DevExpress.XtraEditors.MemoEdit
Friend WithEvents txtOrderNumber As DevExpress.XtraEditors.TextEdit Friend WithEvents txtOrderNumber As DevExpress.XtraEditors.TextEdit
@ -1018,7 +1039,7 @@ Partial Class frmMain
Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonGroupData 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 btnDeletePosition As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonGroupPositions 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
@ -1053,4 +1074,6 @@ Partial Class frmMain
Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents btnReportPreview As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnReportPreview As DevExpress.XtraBars.BarButtonItem
Friend WithEvents btnReloadDocument As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnReloadDocument As DevExpress.XtraBars.BarButtonItem
Friend WithEvents colId As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
End Class End Class

273
EDIDocumentImport/frmMain.vb
View File

@ -4,6 +4,7 @@ Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraRichEdit Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DevExpress.XtraReports.UI Imports DevExpress.XtraReports.UI
Imports DevExpress.DataAccess.ObjectBinding
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
@ -12,7 +13,7 @@ Imports DigitalData.GUIs.Common
Imports ImporterShared.Documents Imports ImporterShared.Documents
Imports ImporterShared.Winline Imports ImporterShared.Winline
Imports ImporterShared.Schemas Imports ImporterShared.Schemas
Imports ImporterForm.DocumentPositions Imports ImporterForm.Positions
Public Class frmMain Public Class frmMain
Public LogConfig As LogConfig Public LogConfig As LogConfig
@ -65,10 +66,12 @@ Public Class frmMain
' Load data for UI Fields ' Load data for UI Fields
cmbMandator.Properties.DataSource = Winline.Mandators cmbMandator.Properties.DataSource = Winline.Mandators
cmbCustomer.Properties.DataSource = Winline.Accounts cmbCustomer.Properties.DataSource = Winline.Accounts
cmbDeliveryAddress.Properties.DataSource = Winline.Accounts cmbDeliveryAddress.Properties.DataSource = Winline.Accounts
cmbYears.Properties.Items.AddRange(Winline.Years) cmbYears.Properties.Items.AddRange(Winline.Years)
cmbYears.SelectedItem = Now.Year cmbYears.SelectedItem = ConfigManager.Config.GetYear()
' Initialize Grids ' Initialize Grids
GridBuilder = New GridBuilder(New List(Of GridView) From {GridViewFiles, GridViewPositions}) GridBuilder = New GridBuilder(New List(Of GridView) From {GridViewFiles, GridViewPositions})
@ -82,6 +85,32 @@ Public Class frmMain
End Try End Try
End Sub End Sub
#Region "Helpers"
Private Function GetValidationMessage(FieldName As String) As String
Return $"Das Feld '{FieldName}' muss ausgefüllt werden!"
End Function
Private Function GetFocusedDocument() As Document
Dim oRowHandles = GridViewFiles.GetSelectedRows().ToList()
Dim oDocument As Document = GridViewFiles.GetRow(oRowHandles.First())
Return oDocument
End Function
Private Function GetFocusedPosition() As Position
Dim oRowHandles = GridViewPositions.GetSelectedRows().ToList()
Dim oPosition As Position = GridViewPositions.GetRow(oRowHandles.First())
Return oPosition
End Function
Private Sub TryOpenDirectory(pPath As String, pDisplayName As String)
If Directory.Exists(pPath) Then
Process.Start(pPath)
Else
MsgBox($"{pDisplayName} nicht konfiguriert oder nicht gefunden!", MsgBoxStyle.Exclamation, Text)
End If
End Sub
#End Region
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(ConfigManager.Config.InputDirectory) = True Then If DocumentLoader.LoadFiles(ConfigManager.Config.InputDirectory) = True Then
@ -90,6 +119,11 @@ Public Class frmMain
RibbonGroupDocument.Enabled = True RibbonGroupDocument.Enabled = True
RibbonGroupPositions.Enabled = True RibbonGroupPositions.Enabled = True
LayoutControlHead.Enabled = True
GridControlPositions.Enabled = True
btnReloadDocument.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
@ -111,42 +145,63 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
RichEditXml.LoadDocument(oDocument.FullName, DocumentFormat.PlainText) ShowDocument(oDocument)
End Sub
Private Sub ShowDocument(pDocument As Document)
' Load XML File in the sidebar
RichEditXml.LoadDocument(pDocument.FullName, DocumentFormat.PlainText)
If pDocument.Mandator Is Nothing Then
Dim oForm As New frmMandatorSelection() With {
.Mandators = Winline.Mandators,
.SelectedMandator = Nothing
}
Dim oResult = oForm.ShowDialog()
If oResult <> DialogResult.OK Then
Exit Sub
End If
pDocument.Mandator = oForm.SelectedMandator.Id
End If
Try Try
Select Case oDocument.Type Select Case pDocument.Type
Case DocumentType.Order Case DocumentType.Order
ShowDocument(oDocument, oDocument.Data, oDocument.DataOriginal) ShowOrderDocument(pDocument)
End Select End Select
Catch ex As Xml.XmlException Catch ex As Xml.XmlException
Dim oMessage As String = $"Fehler beim Laden des Dokuments {oDocument.Name}:{vbNewLine}{ex.Message}" Dim oMessage As String = $"Fehler beim Laden des Dokuments {pDocument.Name}:{vbNewLine}{ex.Message}"
MsgBox(oMessage, MsgBoxStyle.Critical, Text) MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Logger.Error(ex) Logger.Error(ex)
Catch ex As Exceptions.NoMandatorException Catch ex As Exceptions.NoMandatorException
Dim oMessage As String = $"Fehler beim Laden des Dokuments {oDocument.Name}:{vbNewLine}{ex.Message}" Dim oMessage As String = $"Fehler beim Laden des Dokuments {pDocument.Name}:{vbNewLine}{ex.Message}"
MsgBox(oMessage, MsgBoxStyle.Critical, Text) MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Logger.Error(ex) Logger.Error(ex)
Catch ex As Exception Catch ex As Exception
Dim oMessage As String = $"Unerwarteter Fehler beim Laden des Dokuments {oDocument.Name}:{vbNewLine}{ex.Message}" Dim oMessage As String = $"Unerwarteter Fehler beim Laden des Dokuments {pDocument.Name}:{vbNewLine}{ex.Message}"
MsgBox(oMessage, MsgBoxStyle.Critical, Text) 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 ShowOrderDocument(pDocument As Document)
If pDocument.Mandator Is Nothing Then If pDocument.Mandator Is Nothing Then
Throw New Exceptions.NoMandatorException("Es konnte kein Mandant gefunden werden") Throw New Exceptions.NoMandatorException("Es konnte kein Mandant gefunden werden")
End If End If
Dim oHead = GetOrderHead(pData) Dim oData As Orders.Input.MESOWebService = DirectCast(pDocument.Data, Orders.Input.MESOWebService)
Dim oHeadOriginal = GetOrderHead(pDataOriginal) Dim oDataOriginal As Orders.Input.MESOWebService = DirectCast(pDocument.DataOriginal, Orders.Input.MESOWebService)
Dim oHead = Orders.Helpers.GetOrderHead(oData)
Dim oHeadOriginal = Orders.Helpers.GetOrderHead(oDataOriginal)
' ====== Head Data ====== ' --- Head Data --------------------------------------------------------------------------------------
' Original, Unreplaced Data ' Original, Unreplaced Data
txtCustomerGLN.Text = oHeadOriginal.Fakt_Kontonummer txtCustomerGLN.Text = oHeadOriginal.Fakt_Kontonummer
@ -160,121 +215,67 @@ Public Class frmMain
txtDocumentReference.Text = oHead.Auftragsreferenz txtDocumentReference.Text = oHead.Auftragsreferenz
dateOrderDate.EditValue = oHead.Datum_AuftragBestellung dateOrderDate.EditValue = oHead.Datum_AuftragBestellung
' --- Find Mandator --------------------------------------------------------------------------------------
Dim oMandator = Winline.Mandators. Dim oMandator = Winline.Mandators.
Where(Function(m) m.Id = pDocument.Mandator). Where(Function(m) m.Id = pDocument.Mandator).
SingleOrDefault() SingleOrDefault()
If oMandator Is Nothing Then
cmbMandator.ErrorText = "Dieses Feld muss ausgefüllt werden!"
cmbMandator.EditValue = Nothing
Else
cmbMandator.EditValue = oMandator cmbMandator.EditValue = oMandator
End If
' --- Find Accounts --------------------------------------------------------------------------------------
' FAKTURA
If oHead.Fakt_Kontonummer = oHeadOriginal.Fakt_Kontonummer Then If oHead.Fakt_Kontonummer = oHeadOriginal.Fakt_Kontonummer Then
cmbCustomer.ErrorText = "Dieses Feld muss ausgefüllt werden!" cmbCustomer.ErrorText = GetValidationMessage("Faktura Konto")
cmbCustomer.EditValue = Nothing cmbCustomer.EditValue = Nothing
Else Else
cmbCustomer.EditValue = Winline.Accounts. Dim oMatchingAccounts = Winline.Accounts.
Where(Function(oAccount) Where(Function(oAccount) oAccount.Mandator = oMandator.Id).
Dim oSelectedMandator As Mandator = cmbMandator.EditValue Where(Function(oAccount) oAccount.Id = oHead.Fakt_Kontonummer)
Return oAccount.Id = oHead.Fakt_Kontonummer And oAccount.Mandator = oSelectedMandator.Id
End Function). If oMatchingAccounts.Count() > 1 Then
SingleOrDefault() Throw New Exceptions.MultipleAccountsException("Für die Kontonummer wurden mehrere Konten gefunden.")
End If End If
If oMatchingAccounts.Count() = 0 Then
Throw New Exceptions.NoAccountException("Für die Kontonummer wurde kein Konto gefunden.")
End If
cmbCustomer.EditValue = oMatchingAccounts.SingleOrDefault()
End If
' DEVLIERY
If oHead.Lief_Kontonummer = oHeadOriginal.Lief_Kontonummer Then If oHead.Lief_Kontonummer = oHeadOriginal.Lief_Kontonummer Then
cmbDeliveryAddress.ErrorText = "Dieses Feld muss ausgefüllt werden!" cmbDeliveryAddress.ErrorText = GetValidationMessage("Lieferanten Konto")
cmbDeliveryAddress.EditValue = Nothing cmbDeliveryAddress.EditValue = Nothing
Else Else
cmbDeliveryAddress.EditValue = Winline.Accounts. Dim oMatchingAccounts = Winline.Accounts.
Where(Function(oAccount) oAccount.Id = oHead.Lief_Kontonummer And oAccount.Mandator = cmbMandator.EditValue). Where(Function(oAccount) oAccount.Mandator = oMandator.Id).
SingleOrDefault() Where(Function(oAccount) oAccount.Id = oHead.Lief_Kontonummer)
If oMatchingAccounts.Count() > 1 Then
Throw New Exceptions.MultipleAccountsException("Für die Kontonummer wurden mehrere Konten gefunden.")
End If End If
' TODO If oMatchingAccounts.Count() = 0 Then
'cmbMandator.EditValue = Winline.Mandators. Throw New Exceptions.NoAccountException("Für die Kontonummer wurde kein Konto gefunden.")
' Where(Function(m) m.Id = "SIVT"). End If
' SingleOrDefault()
'cmbCustomer.EditValue = Winline.Accounts. cmbDeliveryAddress.EditValue = oMatchingAccounts.SingleOrDefault()
' Where(Function(oAccount) oAccount.Id = oHead.Fakt_Kontonummer And oAccount.Mandator = cmbMandator.EditValue).
' SingleOrDefault() End If
LoadPositionViewAndColumns(GridViewPositions, DocumentType.Order) PositionGrid.LoadPositionViewAndColumns(GridViewPositions, DocumentType.Order)
LoadPositionData(pData, pDataOriginal)
Dim oPositionList = PositionData.Load(oData, oDataOriginal)
GridControlPositions.DataSource = oPositionList
GridViewPositions.BestFitColumns() GridViewPositions.BestFitColumns()
End Sub End Sub
Public Sub LoadPositionData(pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService)
Dim oPositions = GetOrderPositions(pData)
Dim oPositionsOriginal = GetOrderPositions(pDataOriginal)
Dim oPositionList As New List(Of OrderPosition)
For Each oPosition In oPositions
Dim oPositionOriginal = oPositionsOriginal.
Where(Function(p) p.Zeilennummer = oPosition.Zeilennummer).
SingleOrDefault()
oPositionList.Add(New OrderPosition With {
.ArticleNumber = oPosition.Artikelnummer,
.RowNumber = oPosition.Zeilennummer,
.ArticleDescription = oPosition.Bezeichnung,
.ArticleNumberVendor = oPosition.Lieferantenartikelnummer,
.EDIPrice = oPosition.Einzelpreis,
.WinLinePrice = 0,
.Price = 0,
.Amount = oPosition.Menge_bestellt,
.EuropeanArticleNumber = oPositionOriginal.Artikelnummer
})
Next
GridControlPositions.DataSource = oPositionList
End Sub
Public Sub LoadPositionViewAndColumns(pView As GridView, pDocumentType As DocumentType)
Dim oColumns As List(Of GridColumn)
' Create columns list depending on DocumentType
Select Case pDocumentType
Case DocumentType.Order
oColumns = New List(Of GridColumn) From {
ColumnRowNumber,
ColumnArticleNumber,
ColumnArticleNumberVendor,
ColumnEuropeanArticleNumber,
ColumnArticleDescription,
ColumnEDIPrice,
ColumnWinLinePrice,
ColumnPrice
}
Case Else
oColumns = New List(Of GridColumn)
End Select
' Reset the grid
pView.GridControl.DataSource = Nothing
pView.GridControl.ForceInitialize()
' Add and adjust columns
pView.Columns.AddRange(oColumns.ToArray())
pView.BestFitColumns()
' Set columns readonly that need it
Dim oReadOnlyColumns = oColumns.
Except(DocumentPositions.WritableColumns).
ToList()
For Each oColumn As GridColumn In GridViewPositions.Columns
If oReadOnlyColumns.Contains(oColumn) Then
oColumn.OptionsColumn.ReadOnly = True
oColumn.OptionsColumn.AllowEdit = False
Else
oColumn.Caption &= " *"
End If
Next
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
TryOpenDirectory(ConfigManager.Config.InputDirectory, "Eingangsverzeichnis") TryOpenDirectory(ConfigManager.Config.InputDirectory, "Eingangsverzeichnis")
@ -313,36 +314,6 @@ Public Class frmMain
sender.ErrorText = "" sender.ErrorText = ""
End If End If
End Sub End Sub
Private Sub TryOpenDirectory(pPath As String, pDisplayName As String)
If Directory.Exists(pPath) Then
Process.Start(pPath)
Else
MsgBox($"{pDisplayName} nicht konfiguriert oder nicht gefunden!", MsgBoxStyle.Exclamation, Text)
End If
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 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 Private Sub btnPreviewReport_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnPreviewReport.ItemClick
Dim oDocument As Document = GetFocusedDocument() Dim oDocument As Document = GetFocusedDocument()
If oDocument Is Nothing Then If oDocument Is Nothing Then
@ -352,8 +323,8 @@ Public Class frmMain
Dim oReport As New OrderReport() Dim oReport As New OrderReport()
Dim oDataSource = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource With { Dim oDataSource = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource With {
.DataSource = New Orders.ReportSource With { .DataSource = New Orders.ReportSource With {
.Head = GetOrderHead(oDocument.Data), .Head = Orders.Helpers.GetOrderHead(oDocument.Data),
.Positions = GetOrderPositions(oDocument.Data) .Positions = Orders.Helpers.GetOrderPositions(oDocument.Data)
} }
} }
oDataSource.Fill() oDataSource.Fill()
@ -364,6 +335,32 @@ Public Class frmMain
End Sub End Sub
Private Sub btnReloadDocument_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnReloadDocument.ItemClick Private Sub btnReloadDocument_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnReloadDocument.ItemClick
Dim oDocument As Document = GetFocusedDocument()
If oDocument Is Nothing Then
Exit Sub
End If
ShowDocument(oDocument)
End Sub
Private Sub btnDeletePosition_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeletePosition.ItemClick
Dim oPosition = GetFocusedPosition()
If oPosition Is Nothing Then
MsgBox("Bitte wählen Sie eine Position aus!", MsgBoxStyle.Exclamation, Text)
Exit Sub
End If
Dim oResult = MsgBox($"Wollen Sie die ausgewählte Position Artikel [{oPosition.ArticleNumber}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text)
If oResult = MsgBoxResult.Yes Then
GridViewPositions.DeleteSelectedRows()
MsgBox("Position gelöscht")
End If
End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
MsgBox("Mach et!")
End Sub End Sub
End Class End Class

115
EDIDocumentImport/frmMandatorSelection.Designer.vb generated Normal file
View File

@ -0,0 +1,115 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMandatorSelection
Inherits DevExpress.XtraEditors.XtraForm
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMandatorSelection))
Me.GridMandators = New DevExpress.XtraGrid.GridControl()
Me.ViewMandators = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
CType(Me.GridMandators, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewMandators, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanelControl1.SuspendLayout()
Me.SuspendLayout()
'
'GridMandators
'
Me.GridMandators.Dock = System.Windows.Forms.DockStyle.Top
Me.GridMandators.Location = New System.Drawing.Point(0, 0)
Me.GridMandators.MainView = Me.ViewMandators
Me.GridMandators.Name = "GridMandators"
Me.GridMandators.Size = New System.Drawing.Size(606, 292)
Me.GridMandators.TabIndex = 0
Me.GridMandators.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewMandators})
'
'ViewMandators
'
Me.ViewMandators.GridControl = Me.GridMandators
Me.ViewMandators.Name = "ViewMandators"
'
'PanelControl1
'
Me.PanelControl1.Controls.Add(Me.LabelControl1)
Me.PanelControl1.Controls.Add(Me.SimpleButton2)
Me.PanelControl1.Controls.Add(Me.SimpleButton1)
Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanelControl1.Location = New System.Drawing.Point(0, 292)
Me.PanelControl1.Name = "PanelControl1"
Me.PanelControl1.Size = New System.Drawing.Size(606, 61)
Me.PanelControl1.TabIndex = 1
'
'SimpleButton1
'
Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.SimpleButton1.Location = New System.Drawing.Point(465, 6)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(129, 43)
Me.SimpleButton1.TabIndex = 0
Me.SimpleButton1.Text = "OK"
'
'LabelControl1
'
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelControl1.Appearance.Options.UseFont = True
Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical
Me.LabelControl1.Location = New System.Drawing.Point(12, 6)
Me.LabelControl1.Name = "LabelControl1"
Me.LabelControl1.Size = New System.Drawing.Size(312, 45)
Me.LabelControl1.TabIndex = 1
Me.LabelControl1.Text = "Für das Dokument konnte kein eindeutiger Mandant bestimmt werden. Bitte wählen si" &
"e einen Mandanten aus der Liste oder klicken Sie auf Überspringen."
'
'SimpleButton2
'
Me.SimpleButton2.DialogResult = System.Windows.Forms.DialogResult.Ignore
Me.SimpleButton2.Location = New System.Drawing.Point(330, 6)
Me.SimpleButton2.Name = "SimpleButton2"
Me.SimpleButton2.Size = New System.Drawing.Size(129, 43)
Me.SimpleButton2.TabIndex = 0
Me.SimpleButton2.Text = "Überspringen"
'
'frmMandatorSelection
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(606, 353)
Me.Controls.Add(Me.PanelControl1)
Me.Controls.Add(Me.GridMandators)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmMandatorSelection.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Name = "frmMandatorSelection"
Me.Text = "Mandanten Auswahl"
CType(Me.GridMandators, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewMandators, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanelControl1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents GridMandators As DevExpress.XtraGrid.GridControl
Friend WithEvents ViewMandators As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
End Class

145
EDIDocumentImport/frmMandatorSelection.resx Normal file
View File

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

10
EDIDocumentImport/frmMandatorSelection.vb Normal file
View File

@ -0,0 +1,10 @@
Imports ImporterShared.Winline
Public Class frmMandatorSelection
Public Property Mandators As List(Of Mandator)
Public Property SelectedMandator As Mandator
Private Sub frmMandatorSelection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MsgBox("TODO: Mach et!")
End Sub
End Class

1
ImporterShared/ImporterShared.vbproj
View File

@ -112,6 +112,7 @@
<DesignTimeSharedInput>True</DesignTimeSharedInput> <DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile> </Compile>
<Compile Include="Mapper.vb" /> <Compile Include="Mapper.vb" />
<Compile Include="Schemas\Orders\Helpers.vb" />
<Compile Include="Schemas\Orders\Input.vb" /> <Compile Include="Schemas\Orders\Input.vb" />
<Compile Include="Schemas\Orders\Output.vb" /> <Compile Include="Schemas\Orders\Output.vb" />
<Compile Include="Schemas\Orders\ReportSource.vb" /> <Compile Include="Schemas\Orders\ReportSource.vb" />

146
ImporterShared/ImporterShared.vbproj.bak Normal file
View File

@ -0,0 +1,146 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{DD1AC3B9-7595-4D3C-B9BB-97C46A480FA0}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>ImporterShared</RootNamespace>
<AssemblyName>ImporterShared</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>ImporterShared.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>ImporterShared.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<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.DataAccess.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Filesystem">
<HintPath>..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language">
<HintPath>..\..\DDMonorepo\Modules.Language\bin\Release\DigitalData.Modules.Language.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\DDMonorepo\Modules.Logging\bin\Release\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Transactions" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="BaseClass.vb" />
<Compile Include="Config.vb" />
<Compile Include="Documents\Document.vb" />
<Compile Include="Documents\DocumentMatch.vb" />
<Compile Include="Documents\DocumentType.vb" />
<Compile Include="Documents\DocumentLoader.vb" />
<Compile Include="IEnumerableEx.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Mapper.vb" />
<Compile Include="Schemas\Orders\Input.vb" />
<Compile Include="Schemas\Orders\Output.vb" />
<Compile Include="Schemas\Orders\ReportSource.vb" />
<Compile Include="Serializer.vb" />
<Compile Include="Winline\Account.vb" />
<Compile Include="Winline\Data.vb" />
<Compile Include="Winline\Mandator.vb" />
<Compile Include="Winline\WebService.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="packages.config" />
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

4
ImporterShared/Mapper.vb
View File

@ -2,10 +2,10 @@
Imports AutoMapper Imports AutoMapper
Imports AutoMapper.Configuration Imports AutoMapper.Configuration
Public Class Mapper Public Class MapperFactory
Private Shared MapperConfig As Object Private Shared MapperConfig As Object
Public Shared Function GetMapper() Public Shared Function GetMapper() As Mapper
MapperConfig = New MapperConfiguration(CreateMapperConfig()) MapperConfig = New MapperConfiguration(CreateMapperConfig())
MapperConfig.AssertConfigurationIsValid() MapperConfig.AssertConfigurationIsValid()
Return MapperConfig.CreateMapper() Return MapperConfig.CreateMapper()

18
ImporterShared/Schemas/Orders/Helpers.vb Normal file
View File

@ -0,0 +1,18 @@
Namespace Schemas.Orders
Public Class Helpers
Public Shared Function GetOrderHead(pData As Input.MESOWebService) As Input.MESOWebServiceEXIMVRG_ordersT025
Dim oHead As Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items.
Where(Function(i) TypeOf i Is Input.MESOWebServiceEXIMVRG_ordersT025).
FirstOrDefault()
Return oHead
End Function
Public Shared Function GetOrderPositions(pData As Input.MESOWebService) As List(Of Input.MESOWebServiceEXIMVRG_ordersT026)
Dim oPositions As List(Of Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items.
Where(Function(i) TypeOf i Is Input.MESOWebServiceEXIMVRG_ordersT026).
Select(Of Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
ToList()
Return oPositions
End Function
End Class
End Namespace

9
ImporterShared/Winline/Account.vb
View File

@ -3,6 +3,15 @@
Public Property Id As String Public Property Id As String
Public Property Name As String Public Property Name As String
Public Property Mandator As String Public Property Mandator As String
Public Overrides Function GetHashCode() As Integer
Return Id.GetHashCode()
End Function
Public Overrides Function Equals(obj As Object) As Boolean
Return DirectCast(obj, Account).Id = Id
End Function
Public Overrides Function ToString() As String Public Overrides Function ToString() As String
Return $"{Name} ({Id})" Return $"{Name} ({Id})"
End Function End Function

8
ImporterShared/Winline/Mandator.vb
View File

@ -8,6 +8,14 @@
Public Property Order As Integer Public Property Order As Integer
Public Property IsWhitelisted As Boolean Public Property IsWhitelisted As Boolean
Public Overrides Function GetHashCode() As Integer
Return Id.GetHashCode()
End Function
Public Overrides Function Equals(obj As Object) As Boolean
Return DirectCast(obj, Mandator).Id = Id
End Function
Public Overrides Function ToString() As String Public Overrides Function ToString() As String
Return $"{Name} ({Id})" Return $"{Name} ({Id})"
End Function End Function

1
ImporterShared/Winline/WebService.vb
View File

@ -20,6 +20,7 @@ Namespace Winline
FileEx = New File(pLogConfig) FileEx = New File(pLogConfig)
Serializer = New Serializer(pLogConfig) Serializer = New Serializer(pLogConfig)
Config = pConfig Config = pConfig
Mapper = MapperFactory.GetMapper()
End Sub End Sub
Public Function TransferDocumentToWinLine(pDocument As Document) As Boolean Public Function TransferDocumentToWinLine(pDocument As Document) As Boolean