diff --git a/EDIDocumentImport/DocumentInfo.vb b/EDIDocumentImport/DocumentInfo.vb index 55ca700..34e0421 100644 --- a/EDIDocumentImport/DocumentInfo.vb +++ b/EDIDocumentImport/DocumentInfo.vb @@ -47,7 +47,7 @@ Public Class DocumentInfo } Public Shared Property SchemaMatchingTable As New Dictionary(Of DocumentType, Type) From { - {DocumentType.Order, GetType(Orders.MESOWebService)} + {DocumentType.Order, GetType(Orders.Input.MESOWebService)} } Public Shared Function GetDocumentTypeFromTemplateName(pTemplateName As String) As DocumentType diff --git a/EDIDocumentImport/DocumentLoader.vb b/EDIDocumentImport/DocumentLoader.vb index 85dac8b..95ecdb3 100644 --- a/EDIDocumentImport/DocumentLoader.vb +++ b/EDIDocumentImport/DocumentLoader.vb @@ -55,10 +55,10 @@ Public Class DocumentLoader End Try End Function - Private Function FindMatchingMandatorFromOrder(pData As Orders.MESOWebService) As Mandator - Dim oPositions As List(Of Orders.MESOWebServiceEXIMVRG_ordersT026) = pData.Items. - Where(Function(i) TypeOf i Is Orders.MESOWebServiceEXIMVRG_ordersT026). - Select(Of Orders.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i). + Private Function FindMatchingMandatorFromOrder(pData As Orders.Input.MESOWebService) As Mandator + Dim oPositions As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items. + Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT026). + Select(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i). ToList() Dim oYear = Winline.GetWinLineYear() Dim oMandatorId As String = String.Empty @@ -134,9 +134,9 @@ Public Class DocumentLoader OrderBy(Function(m) m.Order). ToList() - If TypeOf pDocument.Data Is Orders.MESOWebService Then + If TypeOf pDocument.Data Is Orders.Input.MESOWebService Then Dim oMandator = FindMatchingMandatorFromOrder(pDocument.Data) - Dim oData As Orders.MESOWebService = MatchOrderData(pDocument.Data, oMandator) + Dim oData As Orders.Input.MESOWebService = MatchOrderData(pDocument.Data, oMandator) pDocument.Mandator = oMandator pDocument.Data = oData @@ -145,15 +145,15 @@ Public Class DocumentLoader Return pDocument End Function - Private Function MatchOrderData(pData As Orders.MESOWebService, pMandator As WinLineInfo.Mandator) As Orders.MESOWebService + Private Function MatchOrderData(pData As Orders.Input.MESOWebService, pMandator As WinLineInfo.Mandator) As Orders.Input.MESOWebService Dim oYear = Winline.GetWinLineYear() If pMandator Is Nothing Then Return pData End If - Dim oHead As Orders.MESOWebServiceEXIMVRG_ordersT025 = pData.Items. - Where(Function(h) TypeOf h Is Orders.MESOWebServiceEXIMVRG_ordersT025). + Dim oHead As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items. + Where(Function(h) TypeOf h Is Orders.Input.MESOWebServiceEXIMVRG_ordersT025). SetValue(Sub(h) Dim oAccountNumber = Winline.TryGetAccountNumber(h.Fakt_Kontonummer, pMandator) If oAccountNumber IsNot Nothing Then @@ -167,15 +167,15 @@ Public Class DocumentLoader End Sub). FirstOrDefault() - Dim oPositions As List(Of Orders.MESOWebServiceEXIMVRG_ordersT026) = pData.Items. - Where(Function(p) TypeOf p Is Orders.MESOWebServiceEXIMVRG_ordersT026). + Dim oPositions As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items. + Where(Function(p) TypeOf p Is Orders.Input.MESOWebServiceEXIMVRG_ordersT026). SetValue(Sub(p) Dim oArticleNumber = Winline.TryGetArticleNumber(p.Artikelnummer, pMandator) If oArticleNumber IsNot Nothing Then p.Artikelnummer = oArticleNumber End If End Sub). - Select(Of Orders.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i). + Select(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i). ToList() @@ -214,30 +214,66 @@ Public Class DocumentLoader End Function Private Function LoadDocumentData(pDocument As Document) As Document Using oFileStream As New FileStream(pDocument.FullName, FileMode.Open, FileAccess.Read, FileShare.Read) - Dim oXmlDocument = New XPathDocument(oFileStream) - Dim oNavigator = oXmlDocument.CreateNavigator() - Dim oTemplateName = GetTemplateName(oNavigator) - Dim oDocumentType = GetDocumentTypeFromTemplateName(oTemplateName) - Dim oSchemaType = GetDocumentSchemaFromDocumentType(oDocumentType) + Try + Dim oXmlDocument = New XPathDocument(oFileStream) + Dim oNavigator = oXmlDocument.CreateNavigator() + Dim oTemplateName = GetTemplateName(oNavigator) + Dim oDocumentType = GetDocumentTypeFromTemplateName(oTemplateName) + Dim oSchemaType = GetDocumentSchemaFromDocumentType(oDocumentType) - ' Read data the first time, working copy - Using oReader = oNavigator.ReadSubtree() - Dim oSerializer As New XmlSerializer(oSchemaType) - pDocument.Data = oSerializer.Deserialize(oReader) + ' Read data the first time, working copy + Using oReader = oNavigator.ReadSubtree() + Dim oSerializer = GetSerializer(oSchemaType) + pDocument.Data = oSerializer.Deserialize(oReader) - End Using + End Using - ' Read data the second time, archive copy - Using oReader = oNavigator.ReadSubtree() - Dim oSerializer As New XmlSerializer(oSchemaType) - pDocument.DataOriginal = oSerializer.Deserialize(oReader) + ' Read data the second time, archive copy + Using oReader = oNavigator.ReadSubtree() + Dim oSerializer = GetSerializer(oSchemaType) + pDocument.DataOriginal = oSerializer.Deserialize(oReader) - End Using + End Using - pDocument.Type = oDocumentType - Return pDocument + pDocument.Type = oDocumentType + Return pDocument + Catch ex As Exception + Logger.Error(ex) + + Dim oException As Exception = ex + If ex.InnerException IsNot Nothing Then + oException = ex.InnerException + End If + + Throw oException + End Try End Using End Function + + + Private Function GetSerializer(pSchemaType As Type) As XmlSerializer + Dim oSerializer As New XmlSerializer(pSchemaType) + + + AddHandler oSerializer.UnknownAttribute, Sub(sender As Object, e As XmlAttributeEventArgs) + Logger.Debug("Unknown Attribute: {0}", e.Attr) + End Sub + + AddHandler oSerializer.UnknownElement, Sub(sender As Object, e As XmlElementEventArgs) + Logger.Debug("Unknown Element: {0}", e.Element) + End Sub + + AddHandler oSerializer.UnknownNode, Sub(sender As Object, e As XmlNodeEventArgs) + Logger.Debug("Unknown Node: {0}", e.Name) + End Sub + + AddHandler oSerializer.UnreferencedObject, Sub(sender As Object, e As UnreferencedObjectEventArgs) + Logger.Debug("Unreferenced Object: {0}", e.UnreferencedId) + End Sub + + Return oSerializer + End Function + Private Function GetTemplateName(pDocument As XPathNavigator) As String Dim oTemplateName = pDocument. SelectSingleNode("//MESOWebService"). diff --git a/EDIDocumentImport/EDIDocumentImporter.vbproj b/EDIDocumentImport/EDIDocumentImporter.vbproj index cb98272..2dd0ee0 100644 --- a/EDIDocumentImport/EDIDocumentImporter.vbproj +++ b/EDIDocumentImport/EDIDocumentImporter.vbproj @@ -48,24 +48,33 @@ On + + + + + False D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.Utils.v19.2.dll + + False D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraBars.v19.2.dll + False D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraEditors.v19.2.dll + False D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraGrid.v19.2.dll @@ -75,6 +84,8 @@ D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraLayout.v19.2.dll + + @@ -158,8 +169,16 @@ Settings.settings True - + + + + + OrderReport.vb + + + Component + @@ -172,6 +191,9 @@ My.Resources Designer + + OrderReport.vb + @@ -185,9 +207,6 @@ - - Designer - @@ -202,10 +221,11 @@ - + + \ No newline at end of file diff --git a/EDIDocumentImport/My Project/Resources.Designer.vb b/EDIDocumentImport/My Project/Resources.Designer.vb index 8b5bcf8..6d64699 100644 --- a/EDIDocumentImport/My Project/Resources.Designer.vb +++ b/EDIDocumentImport/My Project/Resources.Designer.vb @@ -130,6 +130,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property preview() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("preview", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' diff --git a/EDIDocumentImport/My Project/Resources.resx b/EDIDocumentImport/My Project/Resources.resx index 2936ab2..081b898 100644 --- a/EDIDocumentImport/My Project/Resources.resx +++ b/EDIDocumentImport/My Project/Resources.resx @@ -121,15 +121,18 @@ ..\Resources\wraptext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\open2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\deletetablerows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\bo_validation.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ..\Resources\tableproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -139,19 +142,19 @@ ..\Resources\import.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\deletetablerows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\tilelabels.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\open2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\preview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/EDIDocumentImport/My Project/licenses.licx b/EDIDocumentImport/My Project/licenses.licx index b52c216..a25f102 100644 --- a/EDIDocumentImport/My Project/licenses.licx +++ b/EDIDocumentImport/My Project/licenses.licx @@ -1,12 +1,13 @@ +DevExpress.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.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.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.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.XtraLayout.LayoutControl, DevExpress.XtraLayout.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.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.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/EDIDocumentImport/OrderReport.Designer.vb b/EDIDocumentImport/OrderReport.Designer.vb new file mode 100644 index 0000000..3b71363 --- /dev/null +++ b/EDIDocumentImport/OrderReport.Designer.vb @@ -0,0 +1,1107 @@ + _ +Partial Public Class OrderReport + Inherits DevExpress.XtraReports.UI.XtraReport + + 'XtraReport overrides dispose to clean up the component list. + _ + 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 Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Designer + 'It can be modified using the Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.ObjectDataSource1 = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource(Me.components) + Me.Title = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailCaption1 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData1 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailCaption2 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData2 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData3_Odd = New DevExpress.XtraReports.UI.XRControlStyle() + Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle() + Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand() + Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand() + Me.ReportHeader = New DevExpress.XtraReports.UI.ReportHeaderBand() + Me.Detail = New DevExpress.XtraReports.UI.DetailBand() + Me.DetailReport = New DevExpress.XtraReports.UI.DetailReportBand() + Me.pageInfo1 = New DevExpress.XtraReports.UI.XRPageInfo() + Me.pageInfo2 = New DevExpress.XtraReports.UI.XRPageInfo() + Me.label1 = New DevExpress.XtraReports.UI.XRLabel() + Me.table1 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow1 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableRow2 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell1 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell2 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell3 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell4 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell5 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell6 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell7 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell8 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell9 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell10 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell11 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell12 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell13 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell14 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell15 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell16 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell17 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell18 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell19 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell20 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell21 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell22 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell23 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell24 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell25 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell26 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell27 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell28 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell29 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell30 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell31 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell32 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell33 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell34 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell35 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell36 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell37 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell38 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell39 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell40 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell41 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell42 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell43 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell44 = New DevExpress.XtraReports.UI.XRTableCell() + Me.checkBox1 = New DevExpress.XtraReports.UI.XRCheckBox() + Me.checkBox2 = New DevExpress.XtraReports.UI.XRCheckBox() + Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand() + Me.Detail1 = New DevExpress.XtraReports.UI.DetailBand() + Me.table2 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow3 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell45 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell46 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell47 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell48 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell49 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell50 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell51 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell52 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell53 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell54 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell55 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell56 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell57 = New DevExpress.XtraReports.UI.XRTableCell() + Me.table3 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow4 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell58 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell59 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell60 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell61 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell62 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell63 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell64 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell65 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell66 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell67 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell68 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell69 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell70 = New DevExpress.XtraReports.UI.XRTableCell() + Me.checkBox3 = New DevExpress.XtraReports.UI.XRCheckBox() + Me.checkBox4 = New DevExpress.XtraReports.UI.XRCheckBox() + CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.table1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.table2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.table3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'ObjectDataSource1 + ' + Me.ObjectDataSource1.DataSource = GetType(EDIDocumentImport.Orders.OrdersReport) + Me.ObjectDataSource1.Name = "ObjectDataSource1" + ' + 'Title + ' + Me.Title.BackColor = System.Drawing.Color.Transparent + Me.Title.BorderColor = System.Drawing.Color.Black + Me.Title.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.Title.BorderWidth = 1.0! + Me.Title.Font = New System.Drawing.Font("Arial", 14.25!) + Me.Title.ForeColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) + Me.Title.Name = "Title" + ' + 'DetailCaption1 + ' + Me.DetailCaption1.BackColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) + Me.DetailCaption1.BorderColor = System.Drawing.Color.White + Me.DetailCaption1.Borders = DevExpress.XtraPrinting.BorderSide.Left + Me.DetailCaption1.BorderWidth = 2.0! + Me.DetailCaption1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.DetailCaption1.ForeColor = System.Drawing.Color.White + Me.DetailCaption1.Name = "DetailCaption1" + Me.DetailCaption1.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 96.0!) + Me.DetailCaption1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'DetailData1 + ' + Me.DetailData1.BorderColor = System.Drawing.Color.Transparent + Me.DetailData1.Borders = DevExpress.XtraPrinting.BorderSide.Left + Me.DetailData1.BorderWidth = 2.0! + Me.DetailData1.Font = New System.Drawing.Font("Arial", 8.25!) + Me.DetailData1.ForeColor = System.Drawing.Color.Black + Me.DetailData1.Name = "DetailData1" + Me.DetailData1.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 96.0!) + Me.DetailData1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'DetailCaption2 + ' + Me.DetailCaption2.BackColor = System.Drawing.Color.FromArgb(CType(CType(111, Byte), Integer), CType(CType(111, Byte), Integer), CType(CType(111, Byte), Integer)) + Me.DetailCaption2.BorderColor = System.Drawing.Color.White + Me.DetailCaption2.Borders = DevExpress.XtraPrinting.BorderSide.Left + Me.DetailCaption2.BorderWidth = 2.0! + Me.DetailCaption2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.DetailCaption2.ForeColor = System.Drawing.Color.White + Me.DetailCaption2.Name = "DetailCaption2" + Me.DetailCaption2.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 96.0!) + Me.DetailCaption2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'DetailData2 + ' + Me.DetailData2.BorderColor = System.Drawing.Color.Transparent + Me.DetailData2.Borders = DevExpress.XtraPrinting.BorderSide.Left + Me.DetailData2.BorderWidth = 2.0! + Me.DetailData2.Font = New System.Drawing.Font("Arial", 8.25!) + Me.DetailData2.ForeColor = System.Drawing.Color.Black + Me.DetailData2.Name = "DetailData2" + Me.DetailData2.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 96.0!) + Me.DetailData2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'DetailData3_Odd + ' + Me.DetailData3_Odd.BackColor = System.Drawing.Color.FromArgb(CType(CType(231, Byte), Integer), CType(CType(231, Byte), Integer), CType(CType(231, Byte), Integer)) + Me.DetailData3_Odd.BorderColor = System.Drawing.Color.Transparent + Me.DetailData3_Odd.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.DetailData3_Odd.BorderWidth = 1.0! + Me.DetailData3_Odd.Font = New System.Drawing.Font("Arial", 8.25!) + Me.DetailData3_Odd.ForeColor = System.Drawing.Color.Black + Me.DetailData3_Odd.Name = "DetailData3_Odd" + Me.DetailData3_Odd.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 96.0!) + Me.DetailData3_Odd.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'PageInfo + ' + Me.PageInfo.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.PageInfo.ForeColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) + Me.PageInfo.Name = "PageInfo" + Me.PageInfo.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96.0!) + ' + 'TopMargin + ' + Me.TopMargin.Dpi = 96.0! + Me.TopMargin.HeightF = 48.0! + Me.TopMargin.Name = "TopMargin" + ' + 'BottomMargin + ' + Me.BottomMargin.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.pageInfo1, Me.pageInfo2}) + Me.BottomMargin.Dpi = 96.0! + Me.BottomMargin.HeightF = 390.68! + Me.BottomMargin.Name = "BottomMargin" + ' + 'ReportHeader + ' + Me.ReportHeader.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.label1}) + Me.ReportHeader.Dpi = 96.0! + Me.ReportHeader.HeightF = 57.6! + Me.ReportHeader.Name = "ReportHeader" + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table1}) + Me.Detail.Dpi = 96.0! + Me.Detail.HeightF = 53.76! + Me.Detail.HierarchyPrintOptions.Indent = 19.2! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'DetailReport + ' + Me.DetailReport.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.GroupHeader1, Me.Detail1}) + Me.DetailReport.DataMember = "Positions" + Me.DetailReport.DataSource = Me.ObjectDataSource1 + Me.DetailReport.Dpi = 96.0! + Me.DetailReport.Level = 0 + Me.DetailReport.Name = "DetailReport" + ' + 'pageInfo1 + ' + Me.pageInfo1.Dpi = 96.0! + Me.pageInfo1.LocationFloat = New DevExpress.Utils.PointFloat(6.0!, 6.0!) + Me.pageInfo1.Name = "pageInfo1" + Me.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime + Me.pageInfo1.SizeF = New System.Drawing.SizeF(348.0!, 22.0!) + Me.pageInfo1.StyleName = "PageInfo" + ' + 'pageInfo2 + ' + Me.pageInfo2.Dpi = 96.0! + Me.pageInfo2.LocationFloat = New DevExpress.Utils.PointFloat(366.0!, 6.0!) + Me.pageInfo2.Name = "pageInfo2" + Me.pageInfo2.SizeF = New System.Drawing.SizeF(348.0!, 22.0!) + Me.pageInfo2.StyleName = "PageInfo" + Me.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight + Me.pageInfo2.TextFormatString = "Seite {0} von {1}" + ' + 'label1 + ' + Me.label1.Dpi = 96.0! + Me.label1.LocationFloat = New DevExpress.Utils.PointFloat(6.0!, 6.0!) + Me.label1.Name = "label1" + Me.label1.SizeF = New System.Drawing.SizeF(708.0!, 23.22656!) + Me.label1.StyleName = "Title" + Me.label1.Text = "OrderReport" + ' + 'table1 + ' + Me.table1.Dpi = 96.0! + Me.table1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.table1.Name = "table1" + Me.table1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow1, Me.tableRow2}) + Me.table1.SizeF = New System.Drawing.SizeF(720.0!, 53.76!) + ' + 'tableRow1 + ' + Me.tableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell1, Me.tableCell2, Me.tableCell3, Me.tableCell4, Me.tableCell5, Me.tableCell6, Me.tableCell7, Me.tableCell8, Me.tableCell9, Me.tableCell10, Me.tableCell11, Me.tableCell12, Me.tableCell13, Me.tableCell14, Me.tableCell15, Me.tableCell16, Me.tableCell17, Me.tableCell18, Me.tableCell19, Me.tableCell20, Me.tableCell21, Me.tableCell22}) + Me.tableRow1.Dpi = 96.0! + Me.tableRow1.Name = "tableRow1" + Me.tableRow1.Weight = 0.5R + ' + 'tableRow2 + ' + Me.tableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell23, Me.tableCell24, Me.tableCell25, Me.tableCell26, Me.tableCell27, Me.tableCell28, Me.tableCell29, Me.tableCell30, Me.tableCell31, Me.tableCell32, Me.tableCell33, Me.tableCell34, Me.tableCell35, Me.tableCell36, Me.tableCell37, Me.tableCell38, Me.tableCell39, Me.tableCell40, Me.tableCell41, Me.tableCell42, Me.tableCell43, Me.tableCell44}) + Me.tableRow2.Dpi = 96.0! + Me.tableRow2.Name = "tableRow2" + Me.tableRow2.Weight = 0.5R + ' + 'tableCell1 + ' + Me.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.tableCell1.Dpi = 96.0! + Me.tableCell1.Name = "tableCell1" + Me.tableCell1.StyleName = "DetailCaption1" + Me.tableCell1.StylePriority.UseBorders = False + Me.tableCell1.Text = "Head BELEGKEY" + Me.tableCell1.Weight = 0.03813254568311903R + ' + 'tableCell2 + ' + Me.tableCell2.Dpi = 96.0! + Me.tableCell2.Name = "tableCell2" + Me.tableCell2.StyleName = "DetailCaption1" + Me.tableCell2.Text = "Head Fakt Kontonummer" + Me.tableCell2.Weight = 0.052852646509806318R + ' + 'tableCell3 + ' + Me.tableCell3.Dpi = 96.0! + Me.tableCell3.Name = "tableCell3" + Me.tableCell3.StyleName = "DetailCaption1" + Me.tableCell3.Text = "Head Laufnummer" + Me.tableCell3.Weight = 0.040361735555860728R + ' + 'tableCell4 + ' + Me.tableCell4.Dpi = 96.0! + Me.tableCell4.Name = "tableCell4" + Me.tableCell4.StyleName = "DetailCaption1" + Me.tableCell4.Text = "Head Fakt Name" + Me.tableCell4.Weight = 0.036352337731255423R + ' + 'tableCell5 + ' + Me.tableCell5.Dpi = 96.0! + Me.tableCell5.Name = "tableCell5" + Me.tableCell5.StyleName = "DetailCaption1" + Me.tableCell5.Text = "Head Fakt Strasse" + Me.tableCell5.Weight = 0.039926483896043564R + ' + 'tableCell6 + ' + Me.tableCell6.Dpi = 96.0! + Me.tableCell6.Name = "tableCell6" + Me.tableCell6.StyleName = "DetailCaption1" + Me.tableCell6.Text = "Head Fakt PLZ" + Me.tableCell6.Weight = 0.032999730110168456R + ' + 'tableCell7 + ' + Me.tableCell7.Dpi = 96.0! + Me.tableCell7.Name = "tableCell7" + Me.tableCell7.StyleName = "DetailCaption1" + Me.tableCell7.Text = "Head Fakt Ort" + Me.tableCell7.Weight = 0.031439103020562069R + ' + 'tableCell8 + ' + Me.tableCell8.Dpi = 96.0! + Me.tableCell8.Name = "tableCell8" + Me.tableCell8.StyleName = "DetailCaption1" + Me.tableCell8.Text = "Head Fakt Ansprechpartner" + Me.tableCell8.Weight = 0.057769801881578237R + ' + 'tableCell9 + ' + Me.tableCell9.Dpi = 96.0! + Me.tableCell9.Name = "tableCell9" + Me.tableCell9.StyleName = "DetailCaption1" + Me.tableCell9.Text = "Head Lief Kontonummer" + Me.tableCell9.Weight = 0.051735109753078885R + ' + 'tableCell10 + ' + Me.tableCell10.Dpi = 96.0! + Me.tableCell10.Name = "tableCell10" + Me.tableCell10.StyleName = "DetailCaption1" + Me.tableCell10.Text = "Head Lief Name" + Me.tableCell10.Weight = 0.035234800974528R + ' + 'tableCell11 + ' + Me.tableCell11.Dpi = 96.0! + Me.tableCell11.Name = "tableCell11" + Me.tableCell11.StyleName = "DetailCaption1" + Me.tableCell11.Text = "Head Lief Strasse" + Me.tableCell11.Weight = 0.038808949788411456R + ' + 'tableCell12 + ' + Me.tableCell12.Dpi = 96.0! + Me.tableCell12.Name = "tableCell12" + Me.tableCell12.StyleName = "DetailCaption1" + Me.tableCell12.Text = "Head Lief PLZ" + Me.tableCell12.Weight = 0.031882196002536348R + ' + 'tableCell13 + ' + Me.tableCell13.Dpi = 96.0! + Me.tableCell13.Name = "tableCell13" + Me.tableCell13.StyleName = "DetailCaption1" + Me.tableCell13.Text = "Head Lief Ort" + Me.tableCell13.Weight = 0.030321566263834636R + ' + 'tableCell14 + ' + Me.tableCell14.Dpi = 96.0! + Me.tableCell14.Name = "tableCell14" + Me.tableCell14.StyleName = "DetailCaption1" + Me.tableCell14.Text = "Head Belegart" + Me.tableCell14.Weight = 0.032111583815680612R + ' + 'tableCell15 + ' + Me.tableCell15.Dpi = 96.0! + Me.tableCell15.Name = "tableCell15" + Me.tableCell15.StyleName = "DetailCaption1" + Me.tableCell15.Text = "Head Datum Auftrag Bestellung" + Me.tableCell15.Weight = 0.0655690246158176R + ' + 'tableCell16 + ' + Me.tableCell16.Dpi = 96.0! + Me.tableCell16.Name = "tableCell16" + Me.tableCell16.StyleName = "DetailCaption1" + Me.tableCell16.StylePriority.UseTextAlignment = False + Me.tableCell16.Text = "Head Datum Auftrag Bestellung Specified" + Me.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter + Me.tableCell16.Weight = 0.084535747104220918R + ' + 'tableCell17 + ' + Me.tableCell17.Dpi = 96.0! + Me.tableCell17.Name = "tableCell17" + Me.tableCell17.StyleName = "DetailCaption1" + Me.tableCell17.Text = "Head Auftrags Bestellnummer" + Me.tableCell17.Weight = 0.062677155600653761R + ' + 'tableCell18 + ' + Me.tableCell18.Dpi = 96.0! + Me.tableCell18.Name = "tableCell18" + Me.tableCell18.StyleName = "DetailCaption1" + Me.tableCell18.Text = "Head Projektnummer" + Me.tableCell18.Weight = 0.045498477088080511R + ' + 'tableCell19 + ' + Me.tableCell19.Dpi = 96.0! + Me.tableCell19.Name = "tableCell19" + Me.tableCell19.StyleName = "DetailCaption1" + Me.tableCell19.Text = "Head Leistungsdatum" + Me.tableCell19.Weight = 0.047053220536973743R + ' + 'tableCell20 + ' + Me.tableCell20.Dpi = 96.0! + Me.tableCell20.Name = "tableCell20" + Me.tableCell20.StyleName = "DetailCaption1" + Me.tableCell20.StylePriority.UseTextAlignment = False + Me.tableCell20.Text = "Head Leistungsdatum Specified" + Me.tableCell20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter + Me.tableCell20.Weight = 0.066019958919949R + ' + 'tableCell21 + ' + Me.tableCell21.Dpi = 96.0! + Me.tableCell21.Name = "tableCell21" + Me.tableCell21.StyleName = "DetailCaption1" + Me.tableCell21.Text = "Head Auftragsreferenz" + Me.tableCell21.Weight = 0.048174683252970377R + ' + 'tableCell22 + ' + Me.tableCell22.Dpi = 96.0! + Me.tableCell22.Name = "tableCell22" + Me.tableCell22.StyleName = "DetailCaption1" + Me.tableCell22.Text = "Head Infotext" + Me.tableCell22.Weight = 0.030543197525872125R + ' + 'tableCell23 + ' + Me.tableCell23.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.tableCell23.Dpi = 96.0! + Me.tableCell23.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.BELEGKEY]")}) + Me.tableCell23.Name = "tableCell23" + Me.tableCell23.StyleName = "DetailData1" + Me.tableCell23.StylePriority.UseBorders = False + Me.tableCell23.Weight = 0.03813254568311903R + ' + 'tableCell24 + ' + Me.tableCell24.Dpi = 96.0! + Me.tableCell24.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Kontonummer]")}) + Me.tableCell24.Name = "tableCell24" + Me.tableCell24.StyleName = "DetailData1" + Me.tableCell24.Weight = 0.052852646509806318R + ' + 'tableCell25 + ' + Me.tableCell25.Dpi = 96.0! + Me.tableCell25.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Laufnummer]")}) + Me.tableCell25.Name = "tableCell25" + Me.tableCell25.StyleName = "DetailData1" + Me.tableCell25.Weight = 0.040361735555860728R + ' + 'tableCell26 + ' + Me.tableCell26.Dpi = 96.0! + Me.tableCell26.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Name]")}) + Me.tableCell26.Name = "tableCell26" + Me.tableCell26.StyleName = "DetailData1" + Me.tableCell26.Weight = 0.036352337731255423R + ' + 'tableCell27 + ' + Me.tableCell27.Dpi = 96.0! + Me.tableCell27.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Strasse]")}) + Me.tableCell27.Name = "tableCell27" + Me.tableCell27.StyleName = "DetailData1" + Me.tableCell27.Weight = 0.039926483896043564R + ' + 'tableCell28 + ' + Me.tableCell28.Dpi = 96.0! + Me.tableCell28.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_PLZ]")}) + Me.tableCell28.Name = "tableCell28" + Me.tableCell28.StyleName = "DetailData1" + Me.tableCell28.Weight = 0.032999730110168456R + ' + 'tableCell29 + ' + Me.tableCell29.Dpi = 96.0! + Me.tableCell29.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Ort]")}) + Me.tableCell29.Name = "tableCell29" + Me.tableCell29.StyleName = "DetailData1" + Me.tableCell29.Weight = 0.031439103020562069R + ' + 'tableCell30 + ' + Me.tableCell30.Dpi = 96.0! + Me.tableCell30.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Ansprechpartner]")}) + Me.tableCell30.Name = "tableCell30" + Me.tableCell30.StyleName = "DetailData1" + Me.tableCell30.Weight = 0.057769801881578237R + ' + 'tableCell31 + ' + Me.tableCell31.Dpi = 96.0! + Me.tableCell31.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_Kontonummer]")}) + Me.tableCell31.Name = "tableCell31" + Me.tableCell31.StyleName = "DetailData1" + Me.tableCell31.Weight = 0.051735109753078885R + ' + 'tableCell32 + ' + Me.tableCell32.Dpi = 96.0! + Me.tableCell32.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_Name]")}) + Me.tableCell32.Name = "tableCell32" + Me.tableCell32.StyleName = "DetailData1" + Me.tableCell32.Weight = 0.035234800974528R + ' + 'tableCell33 + ' + Me.tableCell33.Dpi = 96.0! + Me.tableCell33.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_Strasse]")}) + Me.tableCell33.Name = "tableCell33" + Me.tableCell33.StyleName = "DetailData1" + Me.tableCell33.Weight = 0.038808949788411456R + ' + 'tableCell34 + ' + Me.tableCell34.Dpi = 96.0! + Me.tableCell34.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_PLZ]")}) + Me.tableCell34.Name = "tableCell34" + Me.tableCell34.StyleName = "DetailData1" + Me.tableCell34.Weight = 0.031882196002536348R + ' + 'tableCell35 + ' + Me.tableCell35.Dpi = 96.0! + Me.tableCell35.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_Ort]")}) + Me.tableCell35.Name = "tableCell35" + Me.tableCell35.StyleName = "DetailData1" + Me.tableCell35.Weight = 0.030321566263834636R + ' + 'tableCell36 + ' + Me.tableCell36.Dpi = 96.0! + Me.tableCell36.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Belegart]")}) + Me.tableCell36.Name = "tableCell36" + Me.tableCell36.StyleName = "DetailData1" + Me.tableCell36.Weight = 0.032111583815680612R + ' + 'tableCell37 + ' + Me.tableCell37.Dpi = 96.0! + Me.tableCell37.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Datum_AuftragBestellung]")}) + Me.tableCell37.Name = "tableCell37" + Me.tableCell37.StyleName = "DetailData1" + Me.tableCell37.Weight = 0.0655690246158176R + ' + 'tableCell38 + ' + Me.tableCell38.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.checkBox1}) + Me.tableCell38.Dpi = 96.0! + Me.tableCell38.Name = "tableCell38" + Me.tableCell38.StyleName = "DetailData1" + Me.tableCell38.StylePriority.UseTextAlignment = False + Me.tableCell38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter + Me.tableCell38.Weight = 0.084535747104220918R + ' + 'tableCell39 + ' + Me.tableCell39.Dpi = 96.0! + Me.tableCell39.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.AuftragsBestellnummer]")}) + Me.tableCell39.Name = "tableCell39" + Me.tableCell39.StyleName = "DetailData1" + Me.tableCell39.Weight = 0.062677155600653761R + ' + 'tableCell40 + ' + Me.tableCell40.Dpi = 96.0! + Me.tableCell40.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Projektnummer]")}) + Me.tableCell40.Name = "tableCell40" + Me.tableCell40.StyleName = "DetailData1" + Me.tableCell40.Weight = 0.045498477088080511R + ' + 'tableCell41 + ' + Me.tableCell41.Dpi = 96.0! + Me.tableCell41.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Leistungsdatum]")}) + Me.tableCell41.Name = "tableCell41" + Me.tableCell41.StyleName = "DetailData1" + Me.tableCell41.Weight = 0.047053220536973743R + ' + 'tableCell42 + ' + Me.tableCell42.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.checkBox2}) + Me.tableCell42.Dpi = 96.0! + Me.tableCell42.Name = "tableCell42" + Me.tableCell42.StyleName = "DetailData1" + Me.tableCell42.StylePriority.UseTextAlignment = False + Me.tableCell42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter + Me.tableCell42.Weight = 0.066019958919949R + ' + 'tableCell43 + ' + Me.tableCell43.Dpi = 96.0! + Me.tableCell43.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Auftragsreferenz]")}) + Me.tableCell43.Name = "tableCell43" + Me.tableCell43.StyleName = "DetailData1" + Me.tableCell43.Weight = 0.048174683252970377R + ' + 'tableCell44 + ' + Me.tableCell44.Dpi = 96.0! + Me.tableCell44.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Infotext]")}) + Me.tableCell44.Name = "tableCell44" + Me.tableCell44.StyleName = "DetailData1" + Me.tableCell44.Weight = 0.030543197525872125R + ' + 'checkBox1 + ' + Me.checkBox1.AnchorHorizontal = CType((DevExpress.XtraReports.UI.HorizontalAnchorStyles.Left Or DevExpress.XtraReports.UI.HorizontalAnchorStyles.Right), DevExpress.XtraReports.UI.HorizontalAnchorStyles) + Me.checkBox1.AnchorVertical = CType((DevExpress.XtraReports.UI.VerticalAnchorStyles.Top Or DevExpress.XtraReports.UI.VerticalAnchorStyles.Bottom), DevExpress.XtraReports.UI.VerticalAnchorStyles) + Me.checkBox1.Dpi = 96.0! + Me.checkBox1.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "CheckState", "[Head.Datum_AuftragBestellungSpecified]")}) + Me.checkBox1.GlyphOptions.Alignment = DevExpress.Utils.HorzAlignment.Center + Me.checkBox1.LocationFloat = New DevExpress.Utils.PointFloat(2.0!, 0!) + Me.checkBox1.Name = "checkBox1" + Me.checkBox1.SizeF = New System.Drawing.SizeF(58.86573!, 26.88!) + ' + 'checkBox2 + ' + Me.checkBox2.AnchorHorizontal = CType((DevExpress.XtraReports.UI.HorizontalAnchorStyles.Left Or DevExpress.XtraReports.UI.HorizontalAnchorStyles.Right), DevExpress.XtraReports.UI.HorizontalAnchorStyles) + Me.checkBox2.AnchorVertical = CType((DevExpress.XtraReports.UI.VerticalAnchorStyles.Top Or DevExpress.XtraReports.UI.VerticalAnchorStyles.Bottom), DevExpress.XtraReports.UI.VerticalAnchorStyles) + Me.checkBox2.Dpi = 96.0! + Me.checkBox2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "CheckState", "[Head.LeistungsdatumSpecified]")}) + Me.checkBox2.GlyphOptions.Alignment = DevExpress.Utils.HorzAlignment.Center + Me.checkBox2.LocationFloat = New DevExpress.Utils.PointFloat(2.0!, 0!) + Me.checkBox2.Name = "checkBox2" + Me.checkBox2.SizeF = New System.Drawing.SizeF(45.53437!, 26.88!) + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table2}) + Me.GroupHeader1.Dpi = 96.0! + Me.GroupHeader1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail + Me.GroupHeader1.HeightF = 26.88! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'Detail1 + ' + Me.Detail1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table3}) + Me.Detail1.Dpi = 96.0! + Me.Detail1.HeightF = 24.08! + Me.Detail1.HierarchyPrintOptions.Indent = 19.2! + Me.Detail1.Name = "Detail1" + ' + 'table2 + ' + Me.table2.Dpi = 96.0! + Me.table2.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.table2.Name = "table2" + Me.table2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow3}) + Me.table2.SizeF = New System.Drawing.SizeF(720.0!, 26.88!) + ' + 'tableRow3 + ' + Me.tableRow3.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell45, Me.tableCell46, Me.tableCell47, Me.tableCell48, Me.tableCell49, Me.tableCell50, Me.tableCell51, Me.tableCell52, Me.tableCell53, Me.tableCell54, Me.tableCell55, Me.tableCell56, Me.tableCell57}) + Me.tableRow3.Dpi = 96.0! + Me.tableRow3.Name = "tableRow3" + Me.tableRow3.Weight = 1.0R + ' + 'tableCell45 + ' + Me.tableCell45.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.tableCell45.Dpi = 96.0! + Me.tableCell45.Name = "tableCell45" + Me.tableCell45.StyleName = "DetailCaption2" + Me.tableCell45.StylePriority.UseBorders = False + Me.tableCell45.Text = "BELEGKEY" + Me.tableCell45.Weight = 0.063200924131605357R + ' + 'tableCell46 + ' + Me.tableCell46.Dpi = 96.0! + Me.tableCell46.Name = "tableCell46" + Me.tableCell46.StyleName = "DetailCaption2" + Me.tableCell46.Text = "Zeilennummer" + Me.tableCell46.Weight = 0.075647444195217559R + ' + 'tableCell47 + ' + Me.tableCell47.Dpi = 96.0! + Me.tableCell47.Name = "tableCell47" + Me.tableCell47.StyleName = "DetailCaption2" + Me.tableCell47.Text = "Datentyp" + Me.tableCell47.Weight = 0.051793130238850911R + ' + 'tableCell48 + ' + Me.tableCell48.Dpi = 96.0! + Me.tableCell48.Name = "tableCell48" + Me.tableCell48.StyleName = "DetailCaption2" + Me.tableCell48.Text = "Artikelnummer" + Me.tableCell48.Weight = 0.077724901835123691R + ' + 'tableCell49 + ' + Me.tableCell49.Dpi = 96.0! + Me.tableCell49.Name = "tableCell49" + Me.tableCell49.StyleName = "DetailCaption2" + Me.tableCell49.Text = "Bezeichnung" + Me.tableCell49.Weight = 0.069934437010023331R + ' + 'tableCell50 + ' + Me.tableCell50.Dpi = 96.0! + Me.tableCell50.Name = "tableCell50" + Me.tableCell50.StyleName = "DetailCaption2" + Me.tableCell50.Text = "Notizblock" + Me.tableCell50.Weight = 0.059046008851793078R + ' + 'tableCell51 + ' + Me.tableCell51.Dpi = 96.0! + Me.tableCell51.Name = "tableCell51" + Me.tableCell51.StyleName = "DetailCaption2" + Me.tableCell51.Text = "Lieferantenartikelnummer" + Me.tableCell51.Weight = 0.12646770477294922R + ' + 'tableCell52 + ' + Me.tableCell52.Dpi = 96.0! + Me.tableCell52.Name = "tableCell52" + Me.tableCell52.StyleName = "DetailCaption2" + Me.tableCell52.StylePriority.UseTextAlignment = False + Me.tableCell52.Text = "Menge bestellt" + Me.tableCell52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell52.Weight = 0.076681619220309791R + ' + 'tableCell53 + ' + Me.tableCell53.Dpi = 96.0! + Me.tableCell53.Name = "tableCell53" + Me.tableCell53.StyleName = "DetailCaption2" + Me.tableCell53.StylePriority.UseTextAlignment = False + Me.tableCell53.Text = "Menge bestellt Specified" + Me.tableCell53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter + Me.tableCell53.Weight = 0.12075469758775499R + ' + 'tableCell54 + ' + Me.tableCell54.Dpi = 96.0! + Me.tableCell54.Name = "tableCell54" + Me.tableCell54.StyleName = "DetailCaption2" + Me.tableCell54.StylePriority.UseTextAlignment = False + Me.tableCell54.Text = "Menge geliefert" + Me.tableCell54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell54.Weight = 0.0803126123216417R + ' + 'tableCell55 + ' + Me.tableCell55.Dpi = 96.0! + Me.tableCell55.Name = "tableCell55" + Me.tableCell55.StyleName = "DetailCaption2" + Me.tableCell55.Text = "Colli" + Me.tableCell55.Weight = 0.032089177767435709R + ' + 'tableCell56 + ' + Me.tableCell56.Dpi = 96.0! + Me.tableCell56.Name = "tableCell56" + Me.tableCell56.StyleName = "DetailCaption2" + Me.tableCell56.StylePriority.UseTextAlignment = False + Me.tableCell56.Text = "Einzelpreis" + Me.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell56.Weight = 0.061137135823567709R + ' + 'tableCell57 + ' + Me.tableCell57.Dpi = 96.0! + Me.tableCell57.Name = "tableCell57" + Me.tableCell57.StyleName = "DetailCaption2" + Me.tableCell57.StylePriority.UseTextAlignment = False + Me.tableCell57.Text = "Einzelpreis Specified" + Me.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter + Me.tableCell57.Weight = 0.10521028306749132R + ' + 'table3 + ' + Me.table3.Dpi = 96.0! + Me.table3.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.table3.Name = "table3" + Me.table3.OddStyleName = "DetailData3_Odd" + Me.table3.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow4}) + Me.table3.SizeF = New System.Drawing.SizeF(720.0!, 24.08!) + ' + 'tableRow4 + ' + Me.tableRow4.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell58, Me.tableCell59, Me.tableCell60, Me.tableCell61, Me.tableCell62, Me.tableCell63, Me.tableCell64, Me.tableCell65, Me.tableCell66, Me.tableCell67, Me.tableCell68, Me.tableCell69, Me.tableCell70}) + Me.tableRow4.Dpi = 96.0! + Me.tableRow4.Name = "tableRow4" + Me.tableRow4.Weight = 11.039999961853027R + ' + 'tableCell58 + ' + Me.tableCell58.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.tableCell58.Dpi = 96.0! + Me.tableCell58.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[BELEGKEY]")}) + Me.tableCell58.Name = "tableCell58" + Me.tableCell58.StyleName = "DetailData2" + Me.tableCell58.StylePriority.UseBorders = False + Me.tableCell58.Weight = 0.063200918833414707R + ' + 'tableCell59 + ' + Me.tableCell59.Dpi = 96.0! + Me.tableCell59.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Zeilennummer]")}) + Me.tableCell59.Name = "tableCell59" + Me.tableCell59.StyleName = "DetailData2" + Me.tableCell59.Weight = 0.075647438897026908R + ' + 'tableCell60 + ' + Me.tableCell60.Dpi = 96.0! + Me.tableCell60.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Datentyp]")}) + Me.tableCell60.Name = "tableCell60" + Me.tableCell60.StyleName = "DetailData2" + Me.tableCell60.Weight = 0.051793124940660268R + ' + 'tableCell61 + ' + Me.tableCell61.Dpi = 96.0! + Me.tableCell61.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Artikelnummer]")}) + Me.tableCell61.Name = "tableCell61" + Me.tableCell61.StyleName = "DetailData2" + Me.tableCell61.Weight = 0.077724896536933055R + ' + 'tableCell62 + ' + Me.tableCell62.Dpi = 96.0! + Me.tableCell62.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Bezeichnung]")}) + Me.tableCell62.Name = "tableCell62" + Me.tableCell62.StyleName = "DetailData2" + Me.tableCell62.Weight = 0.069934431711832681R + ' + 'tableCell63 + ' + Me.tableCell63.Dpi = 96.0! + Me.tableCell63.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Notizblock]")}) + Me.tableCell63.Name = "tableCell63" + Me.tableCell63.StyleName = "DetailData2" + Me.tableCell63.Weight = 0.059046003553602427R + ' + 'tableCell64 + ' + Me.tableCell64.Dpi = 96.0! + Me.tableCell64.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Lieferantenartikelnummer]")}) + Me.tableCell64.Name = "tableCell64" + Me.tableCell64.StyleName = "DetailData2" + Me.tableCell64.Weight = 0.12646769417656792R + ' + 'tableCell65 + ' + Me.tableCell65.Dpi = 96.0! + Me.tableCell65.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Menge_bestellt]")}) + Me.tableCell65.Name = "tableCell65" + Me.tableCell65.StyleName = "DetailData2" + Me.tableCell65.StylePriority.UseTextAlignment = False + Me.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell65.TextFormatString = "{0:C2}" + Me.tableCell65.Weight = 0.076681613922119141R + ' + 'tableCell66 + ' + Me.tableCell66.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.checkBox3}) + Me.tableCell66.Dpi = 96.0! + Me.tableCell66.Name = "tableCell66" + Me.tableCell66.StyleName = "DetailData2" + Me.tableCell66.StylePriority.UseTextAlignment = False + Me.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter + Me.tableCell66.Weight = 0.12075468699137369R + ' + 'tableCell67 + ' + Me.tableCell67.Dpi = 96.0! + Me.tableCell67.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Menge_geliefert]")}) + Me.tableCell67.Name = "tableCell67" + Me.tableCell67.StyleName = "DetailData2" + Me.tableCell67.StylePriority.UseTextAlignment = False + Me.tableCell67.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell67.TextFormatString = "{0:C2}" + Me.tableCell67.Weight = 0.080312607023451069R + ' + 'tableCell68 + ' + Me.tableCell68.Dpi = 96.0! + Me.tableCell68.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Colli]")}) + Me.tableCell68.Name = "tableCell68" + Me.tableCell68.StyleName = "DetailData2" + Me.tableCell68.Weight = 0.032089175118340384R + ' + 'tableCell69 + ' + Me.tableCell69.Dpi = 96.0! + Me.tableCell69.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Einzelpreis]")}) + Me.tableCell69.Name = "tableCell69" + Me.tableCell69.StyleName = "DetailData2" + Me.tableCell69.StylePriority.UseTextAlignment = False + Me.tableCell69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell69.TextFormatString = "{0:C2}" + Me.tableCell69.Weight = 0.061137130525377059R + ' + 'tableCell70 + ' + Me.tableCell70.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.checkBox4}) + Me.tableCell70.Dpi = 96.0! + Me.tableCell70.Name = "tableCell70" + Me.tableCell70.StyleName = "DetailData2" + Me.tableCell70.StylePriority.UseTextAlignment = False + Me.tableCell70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter + Me.tableCell70.Weight = 0.10521028306749132R + ' + 'checkBox3 + ' + Me.checkBox3.AnchorHorizontal = CType((DevExpress.XtraReports.UI.HorizontalAnchorStyles.Left Or DevExpress.XtraReports.UI.HorizontalAnchorStyles.Right), DevExpress.XtraReports.UI.HorizontalAnchorStyles) + Me.checkBox3.AnchorVertical = CType((DevExpress.XtraReports.UI.VerticalAnchorStyles.Top Or DevExpress.XtraReports.UI.VerticalAnchorStyles.Bottom), DevExpress.XtraReports.UI.VerticalAnchorStyles) + Me.checkBox3.Dpi = 96.0! + Me.checkBox3.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "CheckState", "[Menge_bestelltSpecified]")}) + Me.checkBox3.GlyphOptions.Alignment = DevExpress.Utils.HorzAlignment.Center + Me.checkBox3.LocationFloat = New DevExpress.Utils.PointFloat(2.0!, 0!) + Me.checkBox3.Name = "checkBox3" + Me.checkBox3.SizeF = New System.Drawing.SizeF(84.94337!, 24.08!) + ' + 'checkBox4 + ' + Me.checkBox4.AnchorHorizontal = CType((DevExpress.XtraReports.UI.HorizontalAnchorStyles.Left Or DevExpress.XtraReports.UI.HorizontalAnchorStyles.Right), DevExpress.XtraReports.UI.HorizontalAnchorStyles) + Me.checkBox4.AnchorVertical = CType((DevExpress.XtraReports.UI.VerticalAnchorStyles.Top Or DevExpress.XtraReports.UI.VerticalAnchorStyles.Bottom), DevExpress.XtraReports.UI.VerticalAnchorStyles) + Me.checkBox4.Dpi = 96.0! + Me.checkBox4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "CheckState", "[EinzelpreisSpecified]")}) + Me.checkBox4.GlyphOptions.Alignment = DevExpress.Utils.HorzAlignment.Center + Me.checkBox4.LocationFloat = New DevExpress.Utils.PointFloat(2.0!, 0!) + Me.checkBox4.Name = "checkBox4" + Me.checkBox4.SizeF = New System.Drawing.SizeF(73.7514!, 24.08!) + ' + 'XtraReport1 + ' + Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMargin, Me.BottomMargin, Me.ReportHeader, Me.Detail, Me.DetailReport}) + Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.ObjectDataSource1}) + Me.DataSource = Me.ObjectDataSource1 + Me.Dpi = 96.0! + Me.Font = New System.Drawing.Font("Arial", 9.75!) + Me.Margins = New System.Drawing.Printing.Margins(48, 48, 48, 391) + Me.PageHeight = 1056 + Me.PageWidth = 816 + Me.ReportUnit = DevExpress.XtraReports.UI.ReportUnit.Pixels + Me.SnapGridSize = 12.5! + Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.DetailCaption1, Me.DetailData1, Me.DetailCaption2, Me.DetailData2, Me.DetailData3_Odd, Me.PageInfo}) + Me.Version = "19.2" + CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.table1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.table2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.table3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + + Friend WithEvents ObjectDataSource1 As DevExpress.DataAccess.ObjectBinding.ObjectDataSource + Friend WithEvents Title As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailCaption1 As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailData1 As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailCaption2 As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailData2 As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailData3_Odd As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents PageInfo As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents TopMargin As DevExpress.XtraReports.UI.TopMarginBand + Friend WithEvents BottomMargin As DevExpress.XtraReports.UI.BottomMarginBand + Friend WithEvents pageInfo1 As DevExpress.XtraReports.UI.XRPageInfo + Friend WithEvents pageInfo2 As DevExpress.XtraReports.UI.XRPageInfo + Friend WithEvents ReportHeader As DevExpress.XtraReports.UI.ReportHeaderBand + Friend WithEvents label1 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand + Friend WithEvents table1 As DevExpress.XtraReports.UI.XRTable + Friend WithEvents tableRow1 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell1 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell2 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell3 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell4 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell5 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell6 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell7 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell8 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell9 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell10 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell11 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell12 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell13 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell14 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell15 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell16 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell17 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell18 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell19 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell20 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell21 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell22 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableRow2 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell23 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell24 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell25 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell26 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell27 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell28 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell29 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell30 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell31 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell32 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell33 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell34 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell35 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell36 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell37 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell38 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents checkBox1 As DevExpress.XtraReports.UI.XRCheckBox + Friend WithEvents tableCell39 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell40 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell41 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell42 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents checkBox2 As DevExpress.XtraReports.UI.XRCheckBox + Friend WithEvents tableCell43 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell44 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents DetailReport As DevExpress.XtraReports.UI.DetailReportBand + Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand + Friend WithEvents table2 As DevExpress.XtraReports.UI.XRTable + Friend WithEvents tableRow3 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell45 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell46 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell47 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell48 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell49 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell50 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell51 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell52 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell53 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell54 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell55 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell56 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell57 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents Detail1 As DevExpress.XtraReports.UI.DetailBand + Friend WithEvents table3 As DevExpress.XtraReports.UI.XRTable + Friend WithEvents tableRow4 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell58 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell59 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell60 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell61 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell62 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell63 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell64 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell65 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell66 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents checkBox3 As DevExpress.XtraReports.UI.XRCheckBox + Friend WithEvents tableCell67 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell68 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell69 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell70 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents checkBox4 As DevExpress.XtraReports.UI.XRCheckBox +End Class diff --git a/EDIDocumentImport/OrderReport.resx b/EDIDocumentImport/OrderReport.resx new file mode 100644 index 0000000..014e1c0 --- /dev/null +++ b/EDIDocumentImport/OrderReport.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/EDIDocumentImport/OrderReport.vb b/EDIDocumentImport/OrderReport.vb new file mode 100644 index 0000000..9b039cc --- /dev/null +++ b/EDIDocumentImport/OrderReport.vb @@ -0,0 +1,3 @@ +Public Class OrderReport + +End Class \ No newline at end of file diff --git a/EDIDocumentImport/Resources/preview.svg b/EDIDocumentImport/Resources/preview.svg new file mode 100644 index 0000000..2f6fbf5 --- /dev/null +++ b/EDIDocumentImport/Resources/preview.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/EDIDocumentImport/Schemas/Orders/Input.vb b/EDIDocumentImport/Schemas/Orders/Input.vb new file mode 100644 index 0000000..632b413 --- /dev/null +++ b/EDIDocumentImport/Schemas/Orders/Input.vb @@ -0,0 +1,712 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System.Xml.Serialization + +' +'This source code was auto-generated by xsd, Version=4.8.3928.0. +' +Namespace Orders.Input + + ''' + _ + Partial Public Class MESOWebService + + Private itemsField() As Object + + Private templateTypeField As String + + Private templateField As String + + Private optionField As String + + Private amountField As String + + Private extEntryField As String + + Private printVoucherField As String + + Private extInsertField As String + + Private changeLotSizeField As String + + ''' + _ + Public Property Items() As Object() + Get + Return Me.itemsField + End Get + Set + Me.itemsField = value + End Set + End Property + + ''' + _ + Public Property TemplateType() As String + Get + Return Me.templateTypeField + End Get + Set + Me.templateTypeField = value + End Set + End Property + + ''' + _ + Public Property Template() As String + Get + Return Me.templateField + End Get + Set + Me.templateField = value + End Set + End Property + + ''' + _ + Public Property [option]() As String + Get + Return Me.optionField + End Get + Set + Me.optionField = value + End Set + End Property + + ''' + _ + Public Property amount() As String + Get + Return Me.amountField + End Get + Set + Me.amountField = value + End Set + End Property + + ''' + _ + Public Property extEntry() As String + Get + Return Me.extEntryField + End Get + Set + Me.extEntryField = value + End Set + End Property + + ''' + _ + Public Property printVoucher() As String + Get + Return Me.printVoucherField + End Get + Set + Me.printVoucherField = value + End Set + End Property + + ''' + _ + Public Property extInsert() As String + Get + Return Me.extInsertField + End Get + Set + Me.extInsertField = value + End Set + End Property + + ''' + _ + Public Property ChangeLotSize() As String + Get + Return Me.changeLotSizeField + End Get + Set + Me.changeLotSizeField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MESOWebServiceEXIMVRG_ordersT025 + + Private bELEGKEYField As String + + Private fakt_KontonummerField As String + + Private laufnummerField As String + + Private fakt_NameField As String + + Private fakt_StrasseField As String + + Private fakt_PLZField As String + + Private fakt_OrtField As String + + Private fakt_AnsprechpartnerField As String + + Private lief_KontonummerField As String + + Private lief_NameField As String + + Private lief_StrasseField As String + + Private lief_PLZField As String + + Private lief_OrtField As String + + Private belegartField As String + + Private datum_AuftragBestellungField As String + + Private datum_AuftragBestellungFieldSpecified As Boolean + + Private auftragsBestellnummerField As String + + Private leistungsdatumField As String + + Private leistungsdatumFieldSpecified As Boolean + + Private auftragsreferenzField As String + + Private infotextField As String + + ''' + _ + Public Property BELEGKEY() As String + Get + Return Me.bELEGKEYField + End Get + Set + Me.bELEGKEYField = value + End Set + End Property + + ''' + _ + Public Property Fakt_Kontonummer() As String + Get + Return Me.fakt_KontonummerField + End Get + Set + Me.fakt_KontonummerField = value + End Set + End Property + + ''' + _ + Public Property Laufnummer() As String + Get + Return Me.laufnummerField + End Get + Set + Me.laufnummerField = value + End Set + End Property + + ''' + _ + Public Property Fakt_Name() As String + Get + Return Me.fakt_NameField + End Get + Set + Me.fakt_NameField = value + End Set + End Property + + ''' + _ + Public Property Fakt_Strasse() As String + Get + Return Me.fakt_StrasseField + End Get + Set + Me.fakt_StrasseField = value + End Set + End Property + + ''' + _ + Public Property Fakt_PLZ() As String + Get + Return Me.fakt_PLZField + End Get + Set + Me.fakt_PLZField = value + End Set + End Property + + ''' + _ + Public Property Fakt_Ort() As String + Get + Return Me.fakt_OrtField + End Get + Set + Me.fakt_OrtField = value + End Set + End Property + + ''' + _ + Public Property Fakt_Ansprechpartner() As String + Get + Return Me.fakt_AnsprechpartnerField + End Get + Set + Me.fakt_AnsprechpartnerField = value + End Set + End Property + + ''' + _ + Public Property Lief_Kontonummer() As String + Get + Return Me.lief_KontonummerField + End Get + Set + Me.lief_KontonummerField = value + End Set + End Property + + ''' + _ + Public Property Lief_Name() As String + Get + Return Me.lief_NameField + End Get + Set + Me.lief_NameField = value + End Set + End Property + + ''' + _ + Public Property Lief_Strasse() As String + Get + Return Me.lief_StrasseField + End Get + Set + Me.lief_StrasseField = value + End Set + End Property + + ''' + _ + Public Property Lief_PLZ() As String + Get + Return Me.lief_PLZField + End Get + Set + Me.lief_PLZField = value + End Set + End Property + + ''' + _ + Public Property Lief_Ort() As String + Get + Return Me.lief_OrtField + End Get + Set + Me.lief_OrtField = value + End Set + End Property + + ''' + _ + Public Property Belegart() As String + Get + Return Me.belegartField + End Get + Set + Me.belegartField = value + End Set + End Property + + ''' + _ + Public Property Datum_AuftragBestellung() As String + Get + Return Me.datum_AuftragBestellungField + End Get + Set + Me.datum_AuftragBestellungField = value + End Set + End Property + + ''' + _ + Public Property Datum_AuftragBestellungSpecified() As Boolean + Get + Return Me.datum_AuftragBestellungFieldSpecified + End Get + Set + Me.datum_AuftragBestellungFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property AuftragsBestellnummer() As String + Get + Return Me.auftragsBestellnummerField + End Get + Set + Me.auftragsBestellnummerField = value + End Set + End Property + + ''' + _ + Public Property Leistungsdatum() As String + Get + Return Me.leistungsdatumField + End Get + Set + Me.leistungsdatumField = value + End Set + End Property + + ''' + _ + Public Property LeistungsdatumSpecified() As Boolean + Get + Return Me.leistungsdatumFieldSpecified + End Get + Set + Me.leistungsdatumFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property Auftragsreferenz() As String + Get + Return Me.auftragsreferenzField + End Get + Set + Me.auftragsreferenzField = value + End Set + End Property + + ''' + _ + Public Property Infotext() As String + Get + Return Me.infotextField + End Get + Set + Me.infotextField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MESOWebServiceEXIMVRG_ordersT026 + + Private bELEGKEYField As String + + Private zeilennummerField As String + + Private datentypField As String + + Private artikelnummerField As String + + Private bezeichnungField As String + + Private notizblockField As String + + Private lieferantenartikelnummerField As String + + Private menge_bestelltField As String + + Private menge_bestelltFieldSpecified As Boolean + + Private menge_geliefertField As String + + Private colliField As String + + Private einzelpreisField As String + + Private einzelpreisFieldSpecified As Boolean + + Private zeilenrabatt1Field As String + + Private zeilenrabatt1FieldSpecified As Boolean + + Private zeilenrabatt2Field As String + + Private zeilenrabatt2FieldSpecified As Boolean + + Private zeilenrabatt3Field As String + + Private zeilenrabatt3FieldSpecified As Boolean + + Private zeilenrabatt4Field As String + + Private zeilenrabatt4FieldSpecified As Boolean + + ''' + _ + Public Property BELEGKEY() As String + Get + Return Me.bELEGKEYField + End Get + Set + Me.bELEGKEYField = value + End Set + End Property + + ''' + _ + Public Property Zeilennummer() As String + Get + Return Me.zeilennummerField + End Get + Set + Me.zeilennummerField = value + End Set + End Property + + ''' + _ + Public Property Datentyp() As String + Get + Return Me.datentypField + End Get + Set + Me.datentypField = value + End Set + End Property + + ''' + _ + Public Property Artikelnummer() As String + Get + Return Me.artikelnummerField + End Get + Set + Me.artikelnummerField = value + End Set + End Property + + ''' + _ + Public Property Bezeichnung() As String + Get + Return Me.bezeichnungField + End Get + Set + Me.bezeichnungField = value + End Set + End Property + + ''' + _ + Public Property Notizblock() As String + Get + Return Me.notizblockField + End Get + Set + Me.notizblockField = value + End Set + End Property + + ''' + _ + Public Property Lieferantenartikelnummer() As String + Get + Return Me.lieferantenartikelnummerField + End Get + Set + Me.lieferantenartikelnummerField = value + End Set + End Property + + ''' + _ + Public Property Menge_bestellt() As String + Get + Return Me.menge_bestelltField + End Get + Set + Me.menge_bestelltField = value + End Set + End Property + + ''' + _ + Public Property Menge_bestelltSpecified() As Boolean + Get + Return Me.menge_bestelltFieldSpecified + End Get + Set + Me.menge_bestelltFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property Menge_geliefert() As String + Get + Return Me.menge_geliefertField + End Get + Set + Me.menge_geliefertField = value + End Set + End Property + + ''' + _ + Public Property Colli() As String + Get + Return Me.colliField + End Get + Set + Me.colliField = value + End Set + End Property + + ''' + _ + Public Property Einzelpreis() As String + Get + Return Me.einzelpreisField + End Get + Set + Me.einzelpreisField = value + End Set + End Property + + ''' + _ + Public Property EinzelpreisSpecified() As Boolean + Get + Return Me.einzelpreisFieldSpecified + End Get + Set + Me.einzelpreisFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property Zeilenrabatt1() As String + Get + Return Me.zeilenrabatt1Field + End Get + Set + Me.zeilenrabatt1Field = value + End Set + End Property + + ''' + _ + Public Property Zeilenrabatt1Specified() As Boolean + Get + Return Me.zeilenrabatt1FieldSpecified + End Get + Set + Me.zeilenrabatt1FieldSpecified = value + End Set + End Property + + ''' + _ + Public Property Zeilenrabatt2() As String + Get + Return Me.zeilenrabatt2Field + End Get + Set + Me.zeilenrabatt2Field = value + End Set + End Property + + ''' + _ + Public Property Zeilenrabatt2Specified() As Boolean + Get + Return Me.zeilenrabatt2FieldSpecified + End Get + Set + Me.zeilenrabatt2FieldSpecified = value + End Set + End Property + + ''' + _ + Public Property Zeilenrabatt3() As String + Get + Return Me.zeilenrabatt3Field + End Get + Set + Me.zeilenrabatt3Field = value + End Set + End Property + + ''' + _ + Public Property Zeilenrabatt3Specified() As Boolean + Get + Return Me.zeilenrabatt3FieldSpecified + End Get + Set + Me.zeilenrabatt3FieldSpecified = value + End Set + End Property + + ''' + _ + Public Property Zeilenrabatt4() As String + Get + Return Me.zeilenrabatt4Field + End Get + Set + Me.zeilenrabatt4Field = value + End Set + End Property + + ''' + _ + Public Property Zeilenrabatt4Specified() As Boolean + Get + Return Me.zeilenrabatt4FieldSpecified + End Get + Set + Me.zeilenrabatt4FieldSpecified = value + End Set + End Property + End Class +End Namespace diff --git a/EDIDocumentImport/Schemas/Orders.vb b/EDIDocumentImport/Schemas/Orders/Output.vb similarity index 86% rename from EDIDocumentImport/Schemas/Orders.vb rename to EDIDocumentImport/Schemas/Orders/Output.vb index 0419fb4..c58819f 100644 --- a/EDIDocumentImport/Schemas/Orders.vb +++ b/EDIDocumentImport/Schemas/Orders/Output.vb @@ -13,10 +13,10 @@ Option Explicit On Imports System.Xml.Serialization -Namespace Orders - ' - 'This source code was auto-generated by xsd, Version=4.8.3928.0. - ' +' +'This source code was auto-generated by xsd, Version=4.8.3928.0. +' +Namespace Orders.Output ''' - - Public Property Projektnummer() As String - Get - Return Me.projektnummerField - End Get - Set - Me.projektnummerField = Value - End Set - End Property - ''' Public Property Leistungsdatum() As Date @@ -475,6 +462,22 @@ Namespace Orders Private einzelpreisFieldSpecified As Boolean + Private zeilenrabatt1Field As Decimal + + Private zeilenrabatt1FieldSpecified As Boolean + + Private zeilenrabatt2Field As Decimal + + Private zeilenrabatt2FieldSpecified As Boolean + + Private zeilenrabatt3Field As Decimal + + Private zeilenrabatt3FieldSpecified As Boolean + + Private zeilenrabatt4Field As Decimal + + Private zeilenrabatt4FieldSpecified As Boolean + ''' Public Property BELEGKEY() As String @@ -617,5 +620,93 @@ Namespace Orders Me.einzelpreisFieldSpecified = Value End Set End Property + + ''' + + Public Property Zeilenrabatt1() As Decimal + Get + Return Me.zeilenrabatt1Field + End Get + Set + Me.zeilenrabatt1Field = Value + End Set + End Property + + ''' + + Public Property Zeilenrabatt1Specified() As Boolean + Get + Return Me.zeilenrabatt1FieldSpecified + End Get + Set + Me.zeilenrabatt1FieldSpecified = Value + End Set + End Property + + ''' + + Public Property Zeilenrabatt2() As Decimal + Get + Return Me.zeilenrabatt2Field + End Get + Set + Me.zeilenrabatt2Field = Value + End Set + End Property + + ''' + + Public Property Zeilenrabatt2Specified() As Boolean + Get + Return Me.zeilenrabatt2FieldSpecified + End Get + Set + Me.zeilenrabatt2FieldSpecified = Value + End Set + End Property + + ''' + + Public Property Zeilenrabatt3() As Decimal + Get + Return Me.zeilenrabatt3Field + End Get + Set + Me.zeilenrabatt3Field = Value + End Set + End Property + + ''' + + Public Property Zeilenrabatt3Specified() As Boolean + Get + Return Me.zeilenrabatt3FieldSpecified + End Get + Set + Me.zeilenrabatt3FieldSpecified = Value + End Set + End Property + + ''' + + Public Property Zeilenrabatt4() As Decimal + Get + Return Me.zeilenrabatt4Field + End Get + Set + Me.zeilenrabatt4Field = Value + End Set + End Property + + ''' + + Public Property Zeilenrabatt4Specified() As Boolean + Get + Return Me.zeilenrabatt4FieldSpecified + End Get + Set + Me.zeilenrabatt4FieldSpecified = Value + End Set + End Property End Class -End Namespace \ No newline at end of file +End Namespace diff --git a/EDIDocumentImport/Schemas/OrdersReport.vb b/EDIDocumentImport/Schemas/OrdersReport.vb new file mode 100644 index 0000000..5e69595 --- /dev/null +++ b/EDIDocumentImport/Schemas/OrdersReport.vb @@ -0,0 +1,11 @@ +Imports DevExpress.DataAccess.ObjectBinding +Imports System.Collections.Generic +Imports System.ComponentModel + +Namespace Orders + + Public Class OrdersReport + Public Property Head As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 + Public Property Positions As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026) + End Class +End Namespace diff --git a/EDIDocumentImport/Schemas/OrdersSchema.xsd b/EDIDocumentImport/Schemas/OrdersSchema.xsd deleted file mode 100644 index c1f3002..0000000 --- a/EDIDocumentImport/Schemas/OrdersSchema.xsd +++ /dev/null @@ -1,175 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/EDIDocumentImport/Schemas/xsd.exe b/EDIDocumentImport/Schemas/xsd.exe deleted file mode 100644 index 45ffef9..0000000 Binary files a/EDIDocumentImport/Schemas/xsd.exe and /dev/null differ diff --git a/EDIDocumentImport/frmMain.Designer.vb b/EDIDocumentImport/frmMain.Designer.vb index 0a9532a..c1ae1b7 100644 --- a/EDIDocumentImport/frmMain.Designer.vb +++ b/EDIDocumentImport/frmMain.Designer.vb @@ -33,11 +33,13 @@ Partial Class frmMain Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.GridControlFiles = New DevExpress.XtraGrid.GridControl() @@ -56,7 +58,6 @@ Partial Class frmMain Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit() - Me.txtBELEGKEY = New DevExpress.XtraEditors.TextEdit() Me.txtRunningNumber = New DevExpress.XtraEditors.TextEdit() Me.dateOrderDate = New DevExpress.XtraEditors.DateEdit() Me.cmbMandator = New DevExpress.XtraEditors.SearchLookUpEdit() @@ -68,13 +69,10 @@ Partial Class frmMain Me.cmbYears = New DevExpress.XtraEditors.ComboBoxEdit() Me.txtCustomerGLN = New DevExpress.XtraEditors.TextEdit() Me.txtDeliveryAddressGLN = New DevExpress.XtraEditors.TextEdit() + Me.txtDocumentKind = New DevExpress.XtraEditors.TextEdit() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.TabbedControlGroup2 = New DevExpress.XtraLayout.TabbedControlGroup() Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItemRunningNumber = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutItemOrderIssuer = New DevExpress.XtraLayout.LayoutControlItem() @@ -83,6 +81,10 @@ Partial Class frmMain Me.LayoutItemOrderDate = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItemRunningNumber = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() @@ -93,6 +95,8 @@ Partial Class frmMain Me.GridViewPositions = New DevExpress.XtraGrid.Views.Grid.GridView() Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() Me.RichEditXml = New DevExpress.XtraRichEdit.RichEditControl() + Me.txtDocumentReference = New DevExpress.XtraEditors.MemoEdit() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit() @@ -110,7 +114,6 @@ Partial Class frmMain CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtBELEGKEY.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtRunningNumber.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dateOrderDate.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dateOrderDate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -123,13 +126,10 @@ Partial Class frmMain CType(Me.cmbYears.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDocumentKind.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -138,6 +138,10 @@ Partial Class frmMain CType(Me.LayoutItemOrderDate, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() @@ -148,14 +152,16 @@ Partial Class frmMain CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl3.SuspendLayout() + CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl ' 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.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.btnLoadDocuments, Me.txtFilesLoaded, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.checkShowXml, Me.BarButtonItem4, Me.BarButtonItem5, Me.txtVersion, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9}) Me.RibbonControl.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl.MaxItemId = 16 + Me.RibbonControl.MaxItemId = 17 Me.RibbonControl.Name = "RibbonControl" Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -248,9 +254,16 @@ Partial Class frmMain Me.BarButtonItem8.ImageOptions.SvgImage = Global.EDIDocumentImport.My.Resources.Resources.singlepageview Me.BarButtonItem8.Name = "BarButtonItem8" ' + 'BarButtonItem9 + ' + Me.BarButtonItem9.Caption = "Belegvorschau für aktuelle Zeile öffnen" + Me.BarButtonItem9.Id = 16 + Me.BarButtonItem9.ImageOptions.SvgImage = Global.EDIDocumentImport.My.Resources.Resources.preview + Me.BarButtonItem9.Name = "BarButtonItem9" + ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4, Me.RibbonPageGroup5}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4, Me.RibbonPageGroup6, Me.RibbonPageGroup5}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Start" ' @@ -284,6 +297,12 @@ Partial Class frmMain Me.RibbonPageGroup4.Name = "RibbonPageGroup4" Me.RibbonPageGroup4.Text = "Daten übermitteln" ' + 'RibbonPageGroup6 + ' + Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem9) + Me.RibbonPageGroup6.Name = "RibbonPageGroup6" + Me.RibbonPageGroup6.Text = "Beleg" + ' 'RibbonPageGroup5 ' Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem6) @@ -387,7 +406,6 @@ Partial Class frmMain Me.LayoutControl1.Controls.Add(Me.TextEdit7) Me.LayoutControl1.Controls.Add(Me.TextEdit8) Me.LayoutControl1.Controls.Add(Me.TextEdit9) - Me.LayoutControl1.Controls.Add(Me.txtBELEGKEY) Me.LayoutControl1.Controls.Add(Me.txtRunningNumber) Me.LayoutControl1.Controls.Add(Me.dateOrderDate) Me.LayoutControl1.Controls.Add(Me.cmbMandator) @@ -396,6 +414,8 @@ Partial Class frmMain Me.LayoutControl1.Controls.Add(Me.cmbYears) Me.LayoutControl1.Controls.Add(Me.txtCustomerGLN) Me.LayoutControl1.Controls.Add(Me.txtDeliveryAddressGLN) + Me.LayoutControl1.Controls.Add(Me.txtDocumentKind) + Me.LayoutControl1.Controls.Add(Me.txtDocumentReference) Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) Me.LayoutControl1.Name = "LayoutControl1" @@ -407,7 +427,7 @@ Partial Class frmMain ' 'txtOrderIssuer ' - Me.txtOrderIssuer.Location = New System.Drawing.Point(123, 170) + Me.txtOrderIssuer.Location = New System.Drawing.Point(123, 140) Me.txtOrderIssuer.MenuManager = Me.RibbonControl Me.txtOrderIssuer.Name = "txtOrderIssuer" Me.txtOrderIssuer.Size = New System.Drawing.Size(264, 20) @@ -416,19 +436,19 @@ Partial Class frmMain ' 'MemoEdit1 ' - Me.MemoEdit1.Location = New System.Drawing.Point(123, 200) + Me.MemoEdit1.Location = New System.Drawing.Point(123, 170) Me.MemoEdit1.MenuManager = Me.RibbonControl Me.MemoEdit1.Name = "MemoEdit1" - Me.MemoEdit1.Size = New System.Drawing.Size(912, 48) + Me.MemoEdit1.Size = New System.Drawing.Size(912, 34) Me.MemoEdit1.StyleController = Me.LayoutControl1 Me.MemoEdit1.TabIndex = 12 ' 'txtOrderNumber ' - Me.txtOrderNumber.Location = New System.Drawing.Point(493, 170) + Me.txtOrderNumber.Location = New System.Drawing.Point(493, 140) Me.txtOrderNumber.MenuManager = Me.RibbonControl Me.txtOrderNumber.Name = "txtOrderNumber" - Me.txtOrderNumber.Size = New System.Drawing.Size(218, 20) + Me.txtOrderNumber.Size = New System.Drawing.Size(217, 20) Me.txtOrderNumber.StyleController = Me.LayoutControl1 Me.txtOrderNumber.TabIndex = 7 ' @@ -437,85 +457,76 @@ Partial Class frmMain Me.TextEdit5.Location = New System.Drawing.Point(123, 50) Me.TextEdit5.MenuManager = Me.RibbonControl Me.TextEdit5.Name = "TextEdit5" - Me.TextEdit5.Size = New System.Drawing.Size(912, 20) + Me.TextEdit5.Size = New System.Drawing.Size(599, 20) Me.TextEdit5.StyleController = Me.LayoutControl1 Me.TextEdit5.TabIndex = 3 ' 'TextEdit6 ' - Me.TextEdit6.Location = New System.Drawing.Point(123, 80) + Me.TextEdit6.Location = New System.Drawing.Point(828, 50) Me.TextEdit6.MenuManager = Me.RibbonControl Me.TextEdit6.Name = "TextEdit6" - Me.TextEdit6.Size = New System.Drawing.Size(912, 20) + Me.TextEdit6.Size = New System.Drawing.Size(207, 20) Me.TextEdit6.StyleController = Me.LayoutControl1 Me.TextEdit6.TabIndex = 5 ' 'TextEdit7 ' - Me.TextEdit7.Location = New System.Drawing.Point(123, 140) + Me.TextEdit7.Location = New System.Drawing.Point(346, 80) Me.TextEdit7.MenuManager = Me.RibbonControl Me.TextEdit7.Name = "TextEdit7" - Me.TextEdit7.Size = New System.Drawing.Size(912, 20) + Me.TextEdit7.Size = New System.Drawing.Size(689, 20) Me.TextEdit7.StyleController = Me.LayoutControl1 Me.TextEdit7.TabIndex = 11 ' 'TextEdit8 ' - Me.TextEdit8.Location = New System.Drawing.Point(123, 110) + Me.TextEdit8.Location = New System.Drawing.Point(123, 80) Me.TextEdit8.MenuManager = Me.RibbonControl Me.TextEdit8.Name = "TextEdit8" - Me.TextEdit8.Size = New System.Drawing.Size(912, 20) + Me.TextEdit8.Size = New System.Drawing.Size(117, 20) Me.TextEdit8.StyleController = Me.LayoutControl1 Me.TextEdit8.TabIndex = 9 ' 'TextEdit9 ' - Me.TextEdit9.Location = New System.Drawing.Point(123, 170) + Me.TextEdit9.Location = New System.Drawing.Point(123, 110) Me.TextEdit9.MenuManager = Me.RibbonControl Me.TextEdit9.Name = "TextEdit9" Me.TextEdit9.Size = New System.Drawing.Size(912, 20) Me.TextEdit9.StyleController = Me.LayoutControl1 Me.TextEdit9.TabIndex = 13 ' - 'txtBELEGKEY - ' - Me.txtBELEGKEY.Location = New System.Drawing.Point(760, 50) - Me.txtBELEGKEY.MenuManager = Me.RibbonControl - Me.txtBELEGKEY.Name = "txtBELEGKEY" - Me.txtBELEGKEY.Size = New System.Drawing.Size(275, 20) - Me.txtBELEGKEY.StyleController = Me.LayoutControl1 - Me.txtBELEGKEY.TabIndex = 0 - ' 'txtRunningNumber ' - Me.txtRunningNumber.Location = New System.Drawing.Point(123, 50) + Me.txtRunningNumber.Location = New System.Drawing.Point(702, 50) Me.txtRunningNumber.MenuManager = Me.RibbonControl Me.txtRunningNumber.Name = "txtRunningNumber" - Me.txtRunningNumber.Size = New System.Drawing.Size(531, 20) + Me.txtRunningNumber.Size = New System.Drawing.Size(124, 20) Me.txtRunningNumber.StyleController = Me.LayoutControl1 Me.txtRunningNumber.TabIndex = 2 ' 'dateOrderDate ' Me.dateOrderDate.EditValue = Nothing - Me.dateOrderDate.Location = New System.Drawing.Point(817, 170) + Me.dateOrderDate.Location = New System.Drawing.Point(816, 140) Me.dateOrderDate.MenuManager = Me.RibbonControl Me.dateOrderDate.Name = "dateOrderDate" 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.Size = New System.Drawing.Size(218, 20) + Me.dateOrderDate.Size = New System.Drawing.Size(219, 20) Me.dateOrderDate.StyleController = Me.LayoutControl1 Me.dateOrderDate.TabIndex = 8 ' 'cmbMandator ' - Me.cmbMandator.Location = New System.Drawing.Point(123, 80) + Me.cmbMandator.Location = New System.Drawing.Point(123, 50) Me.cmbMandator.MenuManager = Me.RibbonControl Me.cmbMandator.Name = "cmbMandator" Me.cmbMandator.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.cmbMandator.Properties.NullText = "" Me.cmbMandator.Properties.PopupView = Me.SearchLookUpEdit1View - Me.cmbMandator.Size = New System.Drawing.Size(531, 20) + Me.cmbMandator.Size = New System.Drawing.Size(235, 20) Me.cmbMandator.StyleController = Me.LayoutControl1 Me.cmbMandator.TabIndex = 4 ' @@ -528,14 +539,13 @@ Partial Class frmMain ' 'cmbCustomer ' - Me.cmbCustomer.Location = New System.Drawing.Point(123, 110) + Me.cmbCustomer.Location = New System.Drawing.Point(123, 80) Me.cmbCustomer.MenuManager = Me.RibbonControl Me.cmbCustomer.Name = "cmbCustomer" Me.cmbCustomer.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.cmbCustomer.Properties.DisplayMember = "Name" Me.cmbCustomer.Properties.NullText = "" Me.cmbCustomer.Properties.PopupView = Me.GridView1 - Me.cmbCustomer.Size = New System.Drawing.Size(403, 20) + Me.cmbCustomer.Size = New System.Drawing.Size(402, 20) Me.cmbCustomer.StyleController = Me.LayoutControl1 Me.cmbCustomer.TabIndex = 10 ' @@ -548,14 +558,14 @@ Partial Class frmMain ' 'cmbDeliveryAddress ' - Me.cmbDeliveryAddress.Location = New System.Drawing.Point(123, 140) + Me.cmbDeliveryAddress.Location = New System.Drawing.Point(123, 110) Me.cmbDeliveryAddress.MenuManager = Me.RibbonControl Me.cmbDeliveryAddress.Name = "cmbDeliveryAddress" Me.cmbDeliveryAddress.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.cmbDeliveryAddress.Properties.NullText = "" Me.cmbDeliveryAddress.Properties.PopupSizeable = False Me.cmbDeliveryAddress.Properties.PopupView = Me.GridView2 - Me.cmbDeliveryAddress.Size = New System.Drawing.Size(403, 20) + Me.cmbDeliveryAddress.Size = New System.Drawing.Size(402, 20) Me.cmbDeliveryAddress.StyleController = Me.LayoutControl1 Me.cmbDeliveryAddress.TabIndex = 14 ' @@ -568,32 +578,41 @@ Partial Class frmMain ' 'cmbYears ' - Me.cmbYears.Location = New System.Drawing.Point(760, 80) + Me.cmbYears.Location = New System.Drawing.Point(464, 50) Me.cmbYears.MenuManager = Me.RibbonControl 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.Size = New System.Drawing.Size(275, 20) + Me.cmbYears.Size = New System.Drawing.Size(132, 20) Me.cmbYears.StyleController = Me.LayoutControl1 Me.cmbYears.TabIndex = 15 ' 'txtCustomerGLN ' - Me.txtCustomerGLN.Location = New System.Drawing.Point(632, 110) + Me.txtCustomerGLN.Location = New System.Drawing.Point(631, 80) Me.txtCustomerGLN.MenuManager = Me.RibbonControl Me.txtCustomerGLN.Name = "txtCustomerGLN" - Me.txtCustomerGLN.Size = New System.Drawing.Size(403, 20) + Me.txtCustomerGLN.Size = New System.Drawing.Size(404, 20) Me.txtCustomerGLN.StyleController = Me.LayoutControl1 Me.txtCustomerGLN.TabIndex = 16 ' 'txtDeliveryAddressGLN ' - Me.txtDeliveryAddressGLN.Location = New System.Drawing.Point(632, 140) + Me.txtDeliveryAddressGLN.Location = New System.Drawing.Point(631, 110) Me.txtDeliveryAddressGLN.MenuManager = Me.RibbonControl Me.txtDeliveryAddressGLN.Name = "txtDeliveryAddressGLN" - Me.txtDeliveryAddressGLN.Size = New System.Drawing.Size(403, 20) + Me.txtDeliveryAddressGLN.Size = New System.Drawing.Size(404, 20) Me.txtDeliveryAddressGLN.StyleController = Me.LayoutControl1 Me.txtDeliveryAddressGLN.TabIndex = 17 ' + 'txtDocumentKind + ' + Me.txtDocumentKind.Location = New System.Drawing.Point(932, 50) + Me.txtDocumentKind.MenuManager = Me.RibbonControl + Me.txtDocumentKind.Name = "txtDocumentKind" + Me.txtDocumentKind.Size = New System.Drawing.Size(103, 20) + Me.txtDocumentKind.StyleController = Me.LayoutControl1 + Me.txtDocumentKind.TabIndex = 18 + ' 'Root ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] @@ -613,76 +632,36 @@ Partial Class frmMain ' 'LayoutControlGroup2 ' - Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItemRunningNumber, Me.LayoutControlItem11, Me.LayoutControlItem4, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem2, Me.LayoutItemOrderIssuer, Me.LayoutControlItem3, Me.LayoutItemOrderNumber, Me.LayoutItemOrderDate, Me.LayoutControlItem12, Me.LayoutControlItem13}) + 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.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup2.Name = "LayoutControlGroup2" Me.LayoutControlGroup2.Size = New System.Drawing.Size(1018, 208) Me.LayoutControlGroup2.Text = "Basisdaten" ' - 'LayoutControlItemRunningNumber - ' - Me.LayoutControlItemRunningNumber.Control = Me.txtRunningNumber - Me.LayoutControlItemRunningNumber.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItemRunningNumber.Name = "LayoutControlItemRunningNumber" - Me.LayoutControlItemRunningNumber.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItemRunningNumber.Size = New System.Drawing.Size(637, 30) - Me.LayoutControlItemRunningNumber.Text = "Laufnummer" - Me.LayoutControlItemRunningNumber.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlItem11 - ' - Me.LayoutControlItem11.Control = Me.txtBELEGKEY - Me.LayoutControlItem11.Location = New System.Drawing.Point(637, 0) - Me.LayoutControlItem11.Name = "LayoutControlItem11" - Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem11.Size = New System.Drawing.Size(381, 30) - Me.LayoutControlItem11.Text = "BELEGKEY" - Me.LayoutControlItem11.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlItem4 - ' - Me.LayoutControlItem4.Control = Me.cmbYears - Me.LayoutControlItem4.Location = New System.Drawing.Point(637, 30) - Me.LayoutControlItem4.Name = "LayoutControlItem4" - Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem4.Size = New System.Drawing.Size(381, 30) - Me.LayoutControlItem4.Text = "Wirtschaftsjahr" - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlItem1 - ' - Me.LayoutControlItem1.Control = Me.cmbMandator - Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 30) - Me.LayoutControlItem1.Name = "LayoutControlItem1" - Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem1.Size = New System.Drawing.Size(637, 30) - Me.LayoutControlItem1.Text = "Mandant" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(93, 13) - ' 'LayoutControlItem5 ' Me.LayoutControlItem5.Control = Me.cmbCustomer - Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 30) Me.LayoutControlItem5.Name = "LayoutControlItem5" Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem5.Size = New System.Drawing.Size(509, 30) + Me.LayoutControlItem5.Size = New System.Drawing.Size(508, 30) Me.LayoutControlItem5.Text = "Kunde" Me.LayoutControlItem5.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutControlItem2 ' Me.LayoutControlItem2.Control = Me.cmbDeliveryAddress - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 60) Me.LayoutControlItem2.Name = "LayoutControlItem2" Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem2.Size = New System.Drawing.Size(509, 30) + Me.LayoutControlItem2.Size = New System.Drawing.Size(508, 30) Me.LayoutControlItem2.Text = "Lieferadresse" Me.LayoutControlItem2.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutItemOrderIssuer ' Me.LayoutItemOrderIssuer.Control = Me.txtOrderIssuer - Me.LayoutItemOrderIssuer.Location = New System.Drawing.Point(0, 120) + Me.LayoutItemOrderIssuer.Location = New System.Drawing.Point(0, 90) Me.LayoutItemOrderIssuer.Name = "LayoutItemOrderIssuer" Me.LayoutItemOrderIssuer.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutItemOrderIssuer.Size = New System.Drawing.Size(370, 30) @@ -692,56 +671,96 @@ Partial Class frmMain 'LayoutControlItem3 ' Me.LayoutControlItem3.Control = Me.MemoEdit1 - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 150) + 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, 58) + Me.LayoutControlItem3.Size = New System.Drawing.Size(1018, 44) Me.LayoutControlItem3.Text = "Freitext" Me.LayoutControlItem3.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutItemOrderNumber ' Me.LayoutItemOrderNumber.Control = Me.txtOrderNumber - Me.LayoutItemOrderNumber.Location = New System.Drawing.Point(370, 120) + Me.LayoutItemOrderNumber.Location = New System.Drawing.Point(370, 90) Me.LayoutItemOrderNumber.Name = "LayoutItemOrderNumber" Me.LayoutItemOrderNumber.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutItemOrderNumber.Size = New System.Drawing.Size(324, 30) + Me.LayoutItemOrderNumber.Size = New System.Drawing.Size(323, 30) Me.LayoutItemOrderNumber.Text = "Bestellnummer" Me.LayoutItemOrderNumber.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutItemOrderDate ' Me.LayoutItemOrderDate.Control = Me.dateOrderDate - Me.LayoutItemOrderDate.Location = New System.Drawing.Point(694, 120) + Me.LayoutItemOrderDate.Location = New System.Drawing.Point(693, 90) Me.LayoutItemOrderDate.Name = "LayoutItemOrderDate" Me.LayoutItemOrderDate.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutItemOrderDate.Size = New System.Drawing.Size(324, 30) + Me.LayoutItemOrderDate.Size = New System.Drawing.Size(325, 30) Me.LayoutItemOrderDate.Text = "Bestelldatum" Me.LayoutItemOrderDate.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutControlItem12 ' Me.LayoutControlItem12.Control = Me.txtCustomerGLN - Me.LayoutControlItem12.Location = New System.Drawing.Point(509, 60) + Me.LayoutControlItem12.Location = New System.Drawing.Point(508, 30) Me.LayoutControlItem12.Name = "LayoutControlItem12" Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem12.Size = New System.Drawing.Size(509, 30) + Me.LayoutControlItem12.Size = New System.Drawing.Size(510, 30) Me.LayoutControlItem12.Text = "Kunde GLN" Me.LayoutControlItem12.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutControlItem13 ' Me.LayoutControlItem13.Control = Me.txtDeliveryAddressGLN - Me.LayoutControlItem13.Location = New System.Drawing.Point(509, 90) + Me.LayoutControlItem13.Location = New System.Drawing.Point(508, 60) Me.LayoutControlItem13.Name = "LayoutControlItem13" Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem13.Size = New System.Drawing.Size(509, 30) + Me.LayoutControlItem13.Size = New System.Drawing.Size(510, 30) Me.LayoutControlItem13.Text = "Lieferaddresse GLN" Me.LayoutControlItem13.TextSize = New System.Drawing.Size(93, 13) ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.cmbMandator + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(341, 30) + Me.LayoutControlItem1.Text = "Mandant" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.cmbYears + Me.LayoutControlItem4.Location = New System.Drawing.Point(341, 0) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(238, 30) + Me.LayoutControlItem4.Text = "Wirtschaftsjahr" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.txtDocumentKind + Me.LayoutControlItem11.Location = New System.Drawing.Point(809, 0) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem11.Size = New System.Drawing.Size(209, 30) + Me.LayoutControlItem11.Text = "Belegart" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlItemRunningNumber + ' + Me.LayoutControlItemRunningNumber.Control = Me.txtRunningNumber + Me.LayoutControlItemRunningNumber.Location = New System.Drawing.Point(579, 0) + Me.LayoutControlItemRunningNumber.Name = "LayoutControlItemRunningNumber" + Me.LayoutControlItemRunningNumber.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItemRunningNumber.Size = New System.Drawing.Size(230, 30) + Me.LayoutControlItemRunningNumber.Text = "Laufnummer" + Me.LayoutControlItemRunningNumber.TextSize = New System.Drawing.Size(93, 13) + ' 'LayoutControlGroup1 ' - Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem8, Me.LayoutControlItem9, Me.LayoutControlItem7, Me.LayoutControlItem6}) + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9}) Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup1.Name = "LayoutControlGroup1" Me.LayoutControlGroup1.Size = New System.Drawing.Size(1018, 208) @@ -750,40 +769,40 @@ Partial Class frmMain 'LayoutControlItem10 ' Me.LayoutControlItem10.Control = Me.TextEdit9 - Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 120) + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 60) Me.LayoutControlItem10.Name = "LayoutControlItem10" Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem10.Size = New System.Drawing.Size(1018, 88) + Me.LayoutControlItem10.Size = New System.Drawing.Size(1018, 148) Me.LayoutControlItem10.Text = "Kontakt" Me.LayoutControlItem10.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutControlItem8 ' Me.LayoutControlItem8.Control = Me.TextEdit7 - Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem8.Location = New System.Drawing.Point(223, 30) Me.LayoutControlItem8.Name = "LayoutControlItem8" Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem8.Size = New System.Drawing.Size(1018, 30) + Me.LayoutControlItem8.Size = New System.Drawing.Size(795, 30) Me.LayoutControlItem8.Text = "Ort" Me.LayoutControlItem8.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutControlItem9 ' Me.LayoutControlItem9.Control = Me.TextEdit8 - Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 30) Me.LayoutControlItem9.Name = "LayoutControlItem9" Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem9.Size = New System.Drawing.Size(1018, 30) + Me.LayoutControlItem9.Size = New System.Drawing.Size(223, 30) Me.LayoutControlItem9.Text = "PLZ" Me.LayoutControlItem9.TextSize = New System.Drawing.Size(93, 13) ' 'LayoutControlItem7 ' Me.LayoutControlItem7.Control = Me.TextEdit6 - Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem7.Location = New System.Drawing.Point(705, 0) Me.LayoutControlItem7.Name = "LayoutControlItem7" Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem7.Size = New System.Drawing.Size(1018, 30) + Me.LayoutControlItem7.Size = New System.Drawing.Size(313, 30) Me.LayoutControlItem7.Text = "Hausnummer" Me.LayoutControlItem7.TextSize = New System.Drawing.Size(93, 13) ' @@ -793,7 +812,7 @@ Partial Class frmMain Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem6.Name = "LayoutControlItem6" Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem6.Size = New System.Drawing.Size(1018, 30) + Me.LayoutControlItem6.Size = New System.Drawing.Size(705, 30) Me.LayoutControlItem6.Text = "Straße" Me.LayoutControlItem6.TextSize = New System.Drawing.Size(93, 13) ' @@ -842,6 +861,24 @@ Partial Class frmMain Me.RichEditXml.Size = New System.Drawing.Size(0, 0) Me.RichEditXml.TabIndex = 0 ' + 'txtDocumentReference + ' + Me.txtDocumentReference.Location = New System.Drawing.Point(120, 211) + Me.txtDocumentReference.MenuManager = Me.RibbonControl + Me.txtDocumentReference.Name = "txtDocumentReference" + Me.txtDocumentReference.Size = New System.Drawing.Size(918, 40) + Me.txtDocumentReference.StyleController = Me.LayoutControl1 + Me.txtDocumentReference.TabIndex = 19 + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.txtDocumentReference + Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 164) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Size = New System.Drawing.Size(1018, 44) + Me.LayoutControlItem14.Text = "Auftragsreferenz" + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(93, 13) + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -872,7 +909,6 @@ Partial Class frmMain CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtBELEGKEY.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtRunningNumber.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dateOrderDate.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dateOrderDate.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -885,13 +921,10 @@ Partial Class frmMain CType(Me.cmbYears.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDocumentKind.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).EndInit() @@ -900,6 +933,10 @@ Partial Class frmMain CType(Me.LayoutItemOrderDate, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() @@ -910,6 +947,8 @@ Partial Class frmMain CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl3.ResumeLayout(False) + CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -939,7 +978,6 @@ Partial Class frmMain Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit9 As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtBELEGKEY As DevExpress.XtraEditors.TextEdit Friend WithEvents txtRunningNumber As DevExpress.XtraEditors.TextEdit Friend WithEvents dateOrderDate As DevExpress.XtraEditors.DateEdit Friend WithEvents txtFilesLoaded As DevExpress.XtraBars.BarHeaderItem @@ -968,7 +1006,6 @@ Partial Class frmMain Friend WithEvents TabbedControlGroup2 As DevExpress.XtraLayout.TabbedControlGroup Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents LayoutControlItemRunningNumber As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem @@ -988,4 +1025,10 @@ Partial Class frmMain Friend WithEvents txtDeliveryAddressGLN As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents txtDocumentKind As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtDocumentReference As DevExpress.XtraEditors.MemoEdit + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/EDIDocumentImport/frmMain.vb b/EDIDocumentImport/frmMain.vb index 3de139d..1aadb0f 100644 --- a/EDIDocumentImport/frmMain.vb +++ b/EDIDocumentImport/frmMain.vb @@ -119,23 +119,23 @@ Public Class frmMain End Try End Sub - Private Sub ShowDocument(pDocument As Document, pData As Orders.MESOWebService, pDataOriginal As Orders.MESOWebService) - Dim oHead As Orders.MESOWebServiceEXIMVRG_ordersT025 = pData.Items. - Where(Function(i) TypeOf i Is Orders.MESOWebServiceEXIMVRG_ordersT025). + Private Sub ShowDocument(pDocument As Document, pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService) + Dim oHead As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items. + Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT025). FirstOrDefault() - Dim oHeadOriginal As Orders.MESOWebServiceEXIMVRG_ordersT025 = pDataOriginal.Items. - Where(Function(i) TypeOf i Is Orders.MESOWebServiceEXIMVRG_ordersT025). + Dim oHeadOriginal As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 = pDataOriginal.Items. + Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT025). FirstOrDefault() - Dim oPositions As List(Of Orders.MESOWebServiceEXIMVRG_ordersT026) = pData.Items. - Where(Function(i) TypeOf i Is Orders.MESOWebServiceEXIMVRG_ordersT026). - Select(Of Orders.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i). + Dim oPositions As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items. + Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT026). + Select(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i). ToList() - Dim oPositionsOriginal As List(Of Orders.MESOWebServiceEXIMVRG_ordersT026) = pDataOriginal.Items. - Where(Function(i) TypeOf i Is Orders.MESOWebServiceEXIMVRG_ordersT026). - Select(Of Orders.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i). + Dim oPositionsOriginal As List(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pDataOriginal.Items. + Where(Function(i) TypeOf i Is Orders.Input.MESOWebServiceEXIMVRG_ordersT026). + Select(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i). ToList() ' ====== Head Data ====== @@ -145,10 +145,11 @@ Public Class frmMain txtDeliveryAddressGLN.Text = oHeadOriginal.Lief_Kontonummer ' Regular Data from EDI - txtBELEGKEY.Text = oHead.BELEGKEY txtRunningNumber.Text = oHead.Laufnummer txtOrderIssuer.Text = oHead.Fakt_Ansprechpartner txtOrderNumber.Text = oHead.AuftragsBestellnummer + txtDocumentKind.Text = oHead.Belegart + txtDocumentReference.Text = oHead.Auftragsreferenz dateOrderDate.EditValue = oHead.Datum_AuftragBestellung Dim oMandator = Winline.Mandators. @@ -260,16 +261,16 @@ Public Class frmMain End Sub Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - Process.Start(ConfigManager.Config.InputDirectory) + TryOpenDirectory(ConfigManager.Config.InputDirectory, "Eingangsverzeichnis") End Sub Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick - Process.Start(ConfigManager.Config.OutputDirectory) + TryOpenDirectory(ConfigManager.Config.OutputDirectory, "Ausgangsverzeichnis") End Sub Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick Dim oUserConfigDirectory = New FileInfo(ConfigManager.UserConfigPath).Directory - Process.Start(oUserConfigDirectory.FullName) + TryOpenDirectory(oUserConfigDirectory.FullName, "Konfigurationsverzeichnis") End Sub Private Sub checkShowXml_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkShowXml.CheckedChanged @@ -281,7 +282,7 @@ Public Class frmMain End Sub Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick - Process.Start(LogConfig.LogDirectory) + TryOpenDirectory(LogConfig.LogDirectory, "Logverzeichnis") End Sub Private Sub cmbAccount_Validating(sender As BaseEdit, e As System.ComponentModel.CancelEventArgs) Handles cmbCustomer.Validating, cmbDeliveryAddress.Validating @@ -291,4 +292,12 @@ Public Class frmMain sender.ErrorText = "" End If 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 End Class \ No newline at end of file