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

wip

Browse Source
This commit is contained in:
Jonathan Jenne 2021-08-23 16:35:28 +02:00
parent 85eff9bfbe
commit 64a9ea2464
10 changed files with 481 additions and 576 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
EDIDocumentImport/Positions/PositionGrid.vb
View File

@ -21,8 +21,7 @@ Namespace Positions
pView.GridControl.DataSource = Nothing pView.GridControl.DataSource = Nothing
pView.GridControl.ForceInitialize() pView.GridControl.ForceInitialize()
' Clear, add and adjust columns ' Add and adjust columns
pView.Columns.Clear()
pView.Columns.AddRange(oColumns.ToArray()) pView.Columns.AddRange(oColumns.ToArray())
pView.BestFitColumns() pView.BestFitColumns()

549
EDIDocumentImport/Reports/OrderReport.Designer.vb generated
View File

@ -31,51 +31,10 @@ Partial Public Class OrderReport
Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle() Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle()
Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand() Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand()
Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand() Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand()
Me.ReportHeader = New DevExpress.XtraReports.UI.ReportHeaderBand()
Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
Me.pageInfo1 = New DevExpress.XtraReports.UI.XRPageInfo() Me.pageInfo1 = New DevExpress.XtraReports.UI.XRPageInfo()
Me.pageInfo2 = New DevExpress.XtraReports.UI.XRPageInfo() Me.pageInfo2 = New DevExpress.XtraReports.UI.XRPageInfo()
Me.table1 = New DevExpress.XtraReports.UI.XRTable() Me.ReportHeader = New DevExpress.XtraReports.UI.ReportHeaderBand()
Me.tableRow1 = New DevExpress.XtraReports.UI.XRTableRow() Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
Me.tableCell1 = New DevExpress.XtraReports.UI.XRTableCell()
Me.tableCell2 = New DevExpress.XtraReports.UI.XRTableCell()
Me.table2 = New DevExpress.XtraReports.UI.XRTable()
Me.tableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
Me.tableRow3 = New DevExpress.XtraReports.UI.XRTableRow()
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.tableCell18 = New DevExpress.XtraReports.UI.XRTableCell()
Me.tableCell19 = 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.tableCell38 = New DevExpress.XtraReports.UI.XRTableCell()
Me.tableCell39 = New DevExpress.XtraReports.UI.XRTableCell()
Me.tableCell42 = New DevExpress.XtraReports.UI.XRTableCell()
Me.table3 = New DevExpress.XtraReports.UI.XRTable() Me.table3 = New DevExpress.XtraReports.UI.XRTable()
Me.tableRow4 = New DevExpress.XtraReports.UI.XRTableRow() Me.tableRow4 = New DevExpress.XtraReports.UI.XRTableRow()
Me.tableCell44 = New DevExpress.XtraReports.UI.XRTableCell() Me.tableCell44 = New DevExpress.XtraReports.UI.XRTableCell()
@ -99,9 +58,18 @@ Partial Public Class OrderReport
Me.XrLabel1 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel1 = New DevExpress.XtraReports.UI.XRLabel()
Me.Detail1 = New DevExpress.XtraReports.UI.DetailBand() Me.Detail1 = New DevExpress.XtraReports.UI.DetailBand()
Me.DetailReport = New DevExpress.XtraReports.UI.DetailReportBand() Me.DetailReport = New DevExpress.XtraReports.UI.DetailReportBand()
Me.XrLabel2 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel3 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel4 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel5 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel6 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel7 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel8 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel9 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel10 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel11 = New DevExpress.XtraReports.UI.XRLabel()
Me.ObjectDataSource1 = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource(Me.components) Me.ObjectDataSource1 = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource(Me.components)
CType(Me.table1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XrLabel12 = New DevExpress.XtraReports.UI.XRLabel()
CType(Me.table2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.table3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.table3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.table4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.table4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -217,18 +185,6 @@ Partial Public Class OrderReport
Me.BottomMargin.HeightF = 29.0! Me.BottomMargin.HeightF = 29.0!
Me.BottomMargin.Name = "BottomMargin" Me.BottomMargin.Name = "BottomMargin"
' '
'ReportHeader
'
Me.ReportHeader.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table2, Me.table1})
Me.ReportHeader.HeightF = 98.87498!
Me.ReportHeader.Name = "ReportHeader"
'
'Detail
'
Me.Detail.HeightF = 0!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'pageInfo1 'pageInfo1
' '
Me.pageInfo1.LocationFloat = New DevExpress.Utils.PointFloat(6.0!, 6.0!) Me.pageInfo1.LocationFloat = New DevExpress.Utils.PointFloat(6.0!, 6.0!)
@ -246,293 +202,17 @@ Partial Public Class OrderReport
Me.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight Me.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
Me.pageInfo2.TextFormatString = "Seite {0} von {1}" Me.pageInfo2.TextFormatString = "Seite {0} von {1}"
' '
'table1 'ReportHeader
' '
Me.table1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 1.999998!) Me.ReportHeader.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel12, Me.XrLabel11, Me.XrLabel9, Me.XrLabel10, Me.XrLabel8, Me.XrLabel6, Me.XrLabel7, Me.XrLabel5, Me.XrLabel4, Me.XrLabel3, Me.XrLabel2})
Me.table1.Name = "table1" Me.ReportHeader.HeightF = 234.2917!
Me.table1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow1}) Me.ReportHeader.Name = "ReportHeader"
Me.table1.SizeF = New System.Drawing.SizeF(1050.0!, 25.0!)
' '
'tableRow1 'Detail
' '
Me.tableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell1, Me.tableCell2}) Me.Detail.HeightF = 0!
Me.tableRow1.Name = "tableRow1" Me.Detail.KeepTogether = True
Me.tableRow1.Weight = 1.0R Me.Detail.Name = "Detail"
'
'tableCell1
'
Me.tableCell1.Name = "tableCell1"
Me.tableCell1.StyleName = "GroupCaption1"
Me.tableCell1.Text = "HEAD BELEGKEY"
Me.tableCell1.Weight = 0.1016025143577939R
'
'tableCell2
'
Me.tableCell2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.BELEGKEY]")})
Me.tableCell2.Name = "tableCell2"
Me.tableCell2.StyleName = "GroupData1"
Me.tableCell2.Weight = 0.8983975074404762R
'
'table2
'
Me.table2.LocationFloat = New DevExpress.Utils.PointFloat(0.00003973643!, 27.0!)
Me.table2.Name = "table2"
Me.table2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow2, Me.tableRow3})
Me.table2.SizeF = New System.Drawing.SizeF(1050.0!, 56.0!)
'
'tableRow2
'
Me.tableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {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.tableCell18, Me.tableCell19, Me.tableCell22})
Me.tableRow2.Name = "tableRow2"
Me.tableRow2.Weight = 0.5R
'
'tableRow3
'
Me.tableRow3.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.tableCell38, Me.tableCell39, Me.tableCell42})
Me.tableRow3.Name = "tableRow3"
Me.tableRow3.Weight = 0.5R
'
'tableCell3
'
Me.tableCell3.Borders = DevExpress.XtraPrinting.BorderSide.None
Me.tableCell3.Name = "tableCell3"
Me.tableCell3.StyleName = "DetailCaption1"
Me.tableCell3.StylePriority.UseBorders = False
Me.tableCell3.Text = "Head Fakt Kontonummer"
Me.tableCell3.Weight = 0.057705637613932291R
'
'tableCell4
'
Me.tableCell4.Name = "tableCell4"
Me.tableCell4.StyleName = "DetailCaption1"
Me.tableCell4.Text = "Head Laufnummer"
Me.tableCell4.Weight = 0.044022438412620907R
'
'tableCell5
'
Me.tableCell5.Name = "tableCell5"
Me.tableCell5.StyleName = "DetailCaption1"
Me.tableCell5.Text = "Head Fakt Name"
Me.tableCell5.Weight = 0.03963033040364583R
'
'tableCell6
'
Me.tableCell6.Name = "tableCell6"
Me.tableCell6.StyleName = "DetailCaption1"
Me.tableCell6.Text = "Head Fakt Strasse"
Me.tableCell6.Weight = 0.043545641217912948R
'
'tableCell7
'
Me.tableCell7.Name = "tableCell7"
Me.tableCell7.StyleName = "DetailCaption1"
Me.tableCell7.Text = "Head Fakt PLZ"
Me.tableCell7.Weight = 0.035957706996372768R
'
'tableCell8
'
Me.tableCell8.Name = "tableCell8"
Me.tableCell8.StyleName = "DetailCaption1"
Me.tableCell8.Text = "Head Fakt Ort"
Me.tableCell8.Weight = 0.034248112269810269R
'
'tableCell9
'
Me.tableCell9.Name = "tableCell9"
Me.tableCell9.StyleName = "DetailCaption1"
Me.tableCell9.Text = "Head Fakt Ansprechpartner"
Me.tableCell9.Weight = 0.063092150006975448R
'
'tableCell10
'
Me.tableCell10.Name = "tableCell10"
Me.tableCell10.StyleName = "DetailCaption1"
Me.tableCell10.Text = "Head Lief Kontonummer"
Me.tableCell10.Weight = 0.056481428600492933R
'
'tableCell11
'
Me.tableCell11.Name = "tableCell11"
Me.tableCell11.StyleName = "DetailCaption1"
Me.tableCell11.Text = "Head Lief Name"
Me.tableCell11.Weight = 0.038406121390206473R
'
'tableCell12
'
Me.tableCell12.Name = "tableCell12"
Me.tableCell12.StyleName = "DetailCaption1"
Me.tableCell12.Text = "Head Lief Strasse"
Me.tableCell12.Weight = 0.0423214358375186R
'
'tableCell13
'
Me.tableCell13.Name = "tableCell13"
Me.tableCell13.StyleName = "DetailCaption1"
Me.tableCell13.Text = "Head Lief PLZ"
Me.tableCell13.Weight = 0.034733501615978421R
'
'tableCell14
'
Me.tableCell14.Name = "tableCell14"
Me.tableCell14.StyleName = "DetailCaption1"
Me.tableCell14.Text = "Head Lief Ort"
Me.tableCell14.Weight = 0.033023906889415922R
'
'tableCell15
'
Me.tableCell15.Name = "tableCell15"
Me.tableCell15.StyleName = "DetailCaption1"
Me.tableCell15.Text = "Head Belegart"
Me.tableCell15.Weight = 0.03498478480747768R
'
'tableCell16
'
Me.tableCell16.Name = "tableCell16"
Me.tableCell16.StyleName = "DetailCaption1"
Me.tableCell16.Text = "Head Datum Auftrag Bestellung"
Me.tableCell16.Weight = 0.1640488034202939R
'
'tableCell18
'
Me.tableCell18.Name = "tableCell18"
Me.tableCell18.StyleName = "DetailCaption1"
Me.tableCell18.Text = "Head Auftrags Bestellnummer"
Me.tableCell18.Weight = 0.068467915852864589R
'
'tableCell19
'
Me.tableCell19.Name = "tableCell19"
Me.tableCell19.StyleName = "DetailCaption1"
Me.tableCell19.Text = "Head Leistungsdatum"
Me.tableCell19.Weight = 0.17606359209333147R
'
'tableCell22
'
Me.tableCell22.Name = "tableCell22"
Me.tableCell22.StyleName = "DetailCaption1"
Me.tableCell22.Text = "Head Infotext"
Me.tableCell22.Weight = 0.0332666015625R
'
'tableCell23
'
Me.tableCell23.Borders = DevExpress.XtraPrinting.BorderSide.None
Me.tableCell23.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Kontonummer]")})
Me.tableCell23.Name = "tableCell23"
Me.tableCell23.StyleName = "DetailData1"
Me.tableCell23.StylePriority.UseBorders = False
Me.tableCell23.Weight = 0.057705637613932291R
'
'tableCell24
'
Me.tableCell24.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Laufnummer]")})
Me.tableCell24.Name = "tableCell24"
Me.tableCell24.StyleName = "DetailData1"
Me.tableCell24.Weight = 0.044022438412620907R
'
'tableCell25
'
Me.tableCell25.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Name]")})
Me.tableCell25.Name = "tableCell25"
Me.tableCell25.StyleName = "DetailData1"
Me.tableCell25.Weight = 0.03963033040364583R
'
'tableCell26
'
Me.tableCell26.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Strasse]")})
Me.tableCell26.Name = "tableCell26"
Me.tableCell26.StyleName = "DetailData1"
Me.tableCell26.Weight = 0.043545641217912948R
'
'tableCell27
'
Me.tableCell27.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_PLZ]")})
Me.tableCell27.Name = "tableCell27"
Me.tableCell27.StyleName = "DetailData1"
Me.tableCell27.Weight = 0.035957706996372768R
'
'tableCell28
'
Me.tableCell28.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Ort]")})
Me.tableCell28.Name = "tableCell28"
Me.tableCell28.StyleName = "DetailData1"
Me.tableCell28.Weight = 0.034248112269810269R
'
'tableCell29
'
Me.tableCell29.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Fakt_Ansprechpartner]")})
Me.tableCell29.Name = "tableCell29"
Me.tableCell29.StyleName = "DetailData1"
Me.tableCell29.Weight = 0.063092150006975448R
'
'tableCell30
'
Me.tableCell30.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_Kontonummer]")})
Me.tableCell30.Name = "tableCell30"
Me.tableCell30.StyleName = "DetailData1"
Me.tableCell30.Weight = 0.056481428600492933R
'
'tableCell31
'
Me.tableCell31.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_Name]")})
Me.tableCell31.Name = "tableCell31"
Me.tableCell31.StyleName = "DetailData1"
Me.tableCell31.Weight = 0.038406121390206473R
'
'tableCell32
'
Me.tableCell32.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_Strasse]")})
Me.tableCell32.Name = "tableCell32"
Me.tableCell32.StyleName = "DetailData1"
Me.tableCell32.Weight = 0.0423214358375186R
'
'tableCell33
'
Me.tableCell33.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_PLZ]")})
Me.tableCell33.Name = "tableCell33"
Me.tableCell33.StyleName = "DetailData1"
Me.tableCell33.Weight = 0.034733501615978421R
'
'tableCell34
'
Me.tableCell34.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Lief_Ort]")})
Me.tableCell34.Name = "tableCell34"
Me.tableCell34.StyleName = "DetailData1"
Me.tableCell34.Weight = 0.033023906889415922R
'
'tableCell35
'
Me.tableCell35.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Belegart]")})
Me.tableCell35.Name = "tableCell35"
Me.tableCell35.StyleName = "DetailData1"
Me.tableCell35.Weight = 0.03498478480747768R
'
'tableCell36
'
Me.tableCell36.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Datum_AuftragBestellung]")})
Me.tableCell36.Name = "tableCell36"
Me.tableCell36.StyleName = "DetailData1"
Me.tableCell36.Weight = 0.1640488034202939R
'
'tableCell38
'
Me.tableCell38.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.AuftragsBestellnummer]")})
Me.tableCell38.Name = "tableCell38"
Me.tableCell38.StyleName = "DetailData1"
Me.tableCell38.Weight = 0.068467915852864589R
'
'tableCell39
'
Me.tableCell39.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Leistungsdatum]")})
Me.tableCell39.Name = "tableCell39"
Me.tableCell39.StyleName = "DetailData1"
Me.tableCell39.Weight = 0.1760636574881489R
'
'tableCell42
'
Me.tableCell42.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head.Infotext]")})
Me.tableCell42.Name = "tableCell42"
Me.tableCell42.StyleName = "DetailData1"
Me.tableCell42.Weight = 0.0332665361676826R
' '
'table3 'table3
' '
@ -699,12 +379,143 @@ Partial Public Class OrderReport
Me.DetailReport.Level = 0 Me.DetailReport.Level = 0
Me.DetailReport.Name = "DetailReport" Me.DetailReport.Name = "DetailReport"
' '
'XrLabel2
'
Me.XrLabel2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel2.LocationFloat = New DevExpress.Utils.PointFloat(9.999998!, 10.00001!)
Me.XrLabel2.Multiline = True
Me.XrLabel2.Name = "XrLabel2"
Me.XrLabel2.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel2.SizeF = New System.Drawing.SizeF(108.3333!, 23.0!)
Me.XrLabel2.StylePriority.UseFont = False
Me.XrLabel2.Text = "Kunde"
'
'XrLabel3
'
Me.XrLabel3.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head].[Fakt_Kontonummer]")})
Me.XrLabel3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel3.LocationFloat = New DevExpress.Utils.PointFloat(118.3903!, 10.00001!)
Me.XrLabel3.Multiline = True
Me.XrLabel3.Name = "XrLabel3"
Me.XrLabel3.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel3.SizeF = New System.Drawing.SizeF(265.092!, 23.0!)
Me.XrLabel3.StylePriority.UseFont = False
Me.XrLabel3.Text = "XrLabel2"
'
'XrLabel4
'
Me.XrLabel4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head].[Fakt_Name]")})
Me.XrLabel4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(118.3904!, 33.00001!)
Me.XrLabel4.Multiline = True
Me.XrLabel4.Name = "XrLabel4"
Me.XrLabel4.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel4.SizeF = New System.Drawing.SizeF(265.092!, 23.0!)
Me.XrLabel4.StylePriority.UseFont = False
Me.XrLabel4.Text = "XrLabel2"
'
'XrLabel5
'
Me.XrLabel5.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel5.LocationFloat = New DevExpress.Utils.PointFloat(383.4824!, 10.00001!)
Me.XrLabel5.Multiline = True
Me.XrLabel5.Name = "XrLabel5"
Me.XrLabel5.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel5.SizeF = New System.Drawing.SizeF(108.3333!, 23.0!)
Me.XrLabel5.StylePriority.UseFont = False
Me.XrLabel5.Text = "Datum"
'
'XrLabel6
'
Me.XrLabel6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head].[Datum_AuftragBestellung]")})
Me.XrLabel6.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel6.LocationFloat = New DevExpress.Utils.PointFloat(491.8157!, 10.00001!)
Me.XrLabel6.Multiline = True
Me.XrLabel6.Name = "XrLabel6"
Me.XrLabel6.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel6.SizeF = New System.Drawing.SizeF(108.3333!, 23.0!)
Me.XrLabel6.StylePriority.UseFont = False
Me.XrLabel6.Text = "XrLabel2"
Me.XrLabel6.TextFormatString = "{0:dd.MM.yyyy}"
'
'XrLabel7
'
Me.XrLabel7.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head].[Leistungsdatum]")})
Me.XrLabel7.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel7.LocationFloat = New DevExpress.Utils.PointFloat(491.8157!, 33.00001!)
Me.XrLabel7.Multiline = True
Me.XrLabel7.Name = "XrLabel7"
Me.XrLabel7.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel7.SizeF = New System.Drawing.SizeF(108.3333!, 23.0!)
Me.XrLabel7.StylePriority.UseFont = False
Me.XrLabel7.Text = "XrLabel2"
Me.XrLabel7.TextFormatString = "{0:dd.MM.yyyy}"
'
'XrLabel8
'
Me.XrLabel8.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel8.LocationFloat = New DevExpress.Utils.PointFloat(9.999998!, 64.16667!)
Me.XrLabel8.Multiline = True
Me.XrLabel8.Name = "XrLabel8"
Me.XrLabel8.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel8.SizeF = New System.Drawing.SizeF(108.3333!, 23.0!)
Me.XrLabel8.StylePriority.UseFont = False
Me.XrLabel8.Text = "Bestellnummer"
'
'XrLabel9
'
Me.XrLabel9.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head].[AuftragsBestellnummer]")})
Me.XrLabel9.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel9.LocationFloat = New DevExpress.Utils.PointFloat(118.3333!, 64.16667!)
Me.XrLabel9.Multiline = True
Me.XrLabel9.Name = "XrLabel9"
Me.XrLabel9.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel9.SizeF = New System.Drawing.SizeF(265.149!, 23.0!)
Me.XrLabel9.StylePriority.UseFont = False
Me.XrLabel9.Text = "XrLabel2"
'
'XrLabel10
'
Me.XrLabel10.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head].[Auftragsreferenz]")})
Me.XrLabel10.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel10.LocationFloat = New DevExpress.Utils.PointFloat(9.999998!, 110.1667!)
Me.XrLabel10.Multiline = True
Me.XrLabel10.Name = "XrLabel10"
Me.XrLabel10.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel10.SizeF = New System.Drawing.SizeF(373.4824!, 120.9167!)
Me.XrLabel10.StylePriority.UseFont = False
Me.XrLabel10.Text = "XrLabel2"
'
'XrLabel11
'
Me.XrLabel11.Font = New System.Drawing.Font("Arial", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel11.LocationFloat = New DevExpress.Utils.PointFloat(814.504!, 10.00001!)
Me.XrLabel11.Multiline = True
Me.XrLabel11.Name = "XrLabel11"
Me.XrLabel11.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel11.SizeF = New System.Drawing.SizeF(225.496!, 77.16665!)
Me.XrLabel11.StylePriority.UseFont = False
Me.XrLabel11.StylePriority.UseTextAlignment = False
Me.XrLabel11.Text = "ORDERS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Offene EDI Sätze"
Me.XrLabel11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
'
'ObjectDataSource1 'ObjectDataSource1
' '
Me.ObjectDataSource1.DataSource = GetType(ImporterShared.Schemas.Orders.ReportSource) Me.ObjectDataSource1.DataSource = GetType(ImporterShared.Schemas.Orders.ReportSource)
Me.ObjectDataSource1.Name = "ObjectDataSource1" Me.ObjectDataSource1.Name = "ObjectDataSource1"
' '
'OrderReport2 'XrLabel12
'
Me.XrLabel12.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel12.LocationFloat = New DevExpress.Utils.PointFloat(9.999998!, 87.16666!)
Me.XrLabel12.Multiline = True
Me.XrLabel12.Name = "XrLabel12"
Me.XrLabel12.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel12.SizeF = New System.Drawing.SizeF(108.3333!, 23.0!)
Me.XrLabel12.StylePriority.UseFont = False
Me.XrLabel12.Text = "Auftragsreferenz"
'
'OrderReport
' '
Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMargin, Me.BottomMargin, Me.ReportHeader, Me.Detail, Me.DetailReport}) 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.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.ObjectDataSource1})
@ -716,8 +527,6 @@ Partial Public Class OrderReport
Me.PageWidth = 1100 Me.PageWidth = 1100
Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.GroupCaption1, Me.GroupData1, Me.DetailCaption1, Me.DetailData1, Me.DetailCaption2, Me.DetailData2, Me.DetailData3_Odd, Me.PageInfo}) Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.GroupCaption1, Me.GroupData1, Me.DetailCaption1, Me.DetailData1, Me.DetailCaption2, Me.DetailData2, Me.DetailData3_Odd, Me.PageInfo})
Me.Version = "19.2" Me.Version = "19.2"
CType(Me.table1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.table2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.table3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.table3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.table4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.table4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).EndInit()
@ -740,48 +549,7 @@ Partial Public Class OrderReport
Friend WithEvents pageInfo1 As DevExpress.XtraReports.UI.XRPageInfo Friend WithEvents pageInfo1 As DevExpress.XtraReports.UI.XRPageInfo
Friend WithEvents pageInfo2 As DevExpress.XtraReports.UI.XRPageInfo Friend WithEvents pageInfo2 As DevExpress.XtraReports.UI.XRPageInfo
Friend WithEvents ReportHeader As DevExpress.XtraReports.UI.ReportHeaderBand Friend WithEvents ReportHeader As DevExpress.XtraReports.UI.ReportHeaderBand
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 Detail As DevExpress.XtraReports.UI.DetailBand Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand
Friend WithEvents table2 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents tableRow2 As DevExpress.XtraReports.UI.XRTableRow
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 tableCell18 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents tableCell19 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents tableCell22 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents tableRow3 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 tableCell38 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents tableCell39 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents tableCell42 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents table3 As DevExpress.XtraReports.UI.XRTable Friend WithEvents table3 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents tableRow4 As DevExpress.XtraReports.UI.XRTableRow Friend WithEvents tableRow4 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents tableCell44 As DevExpress.XtraReports.UI.XRTableCell Friend WithEvents tableCell44 As DevExpress.XtraReports.UI.XRTableCell
@ -805,4 +573,15 @@ Partial Public Class OrderReport
Friend WithEvents XrLabel1 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel1 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents Detail1 As DevExpress.XtraReports.UI.DetailBand Friend WithEvents Detail1 As DevExpress.XtraReports.UI.DetailBand
Friend WithEvents DetailReport As DevExpress.XtraReports.UI.DetailReportBand Friend WithEvents DetailReport As DevExpress.XtraReports.UI.DetailReportBand
Friend WithEvents XrLabel6 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel7 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel5 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel4 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel3 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel2 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel9 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel10 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel8 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel11 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel12 As DevExpress.XtraReports.UI.XRLabel
End Class End Class

246
EDIDocumentImport/frmMain.Designer.vb generated
View File

@ -39,7 +39,6 @@ Partial Class frmMain
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonGroupData = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroupData = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonGroupDocument = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroupDocument = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonGroupPositions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroupPositions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -73,10 +72,17 @@ Partial Class frmMain
Me.cmbYears = New DevExpress.XtraEditors.ComboBoxEdit() Me.cmbYears = New DevExpress.XtraEditors.ComboBoxEdit()
Me.txtCustomerGLN = New DevExpress.XtraEditors.TextEdit() Me.txtCustomerGLN = New DevExpress.XtraEditors.TextEdit()
Me.txtDeliveryAddressGLN = New DevExpress.XtraEditors.TextEdit() Me.txtDeliveryAddressGLN = New DevExpress.XtraEditors.TextEdit()
Me.txtDocumentKind = New DevExpress.XtraEditors.TextEdit()
Me.txtDocumentReference = New DevExpress.XtraEditors.MemoEdit() Me.txtDocumentReference = New DevExpress.XtraEditors.MemoEdit()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.TabbedControlGroup2 = New DevExpress.XtraLayout.TabbedControlGroup() Me.TabbedControlGroup2 = New DevExpress.XtraLayout.TabbedControlGroup()
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
@ -91,16 +97,12 @@ Partial Class frmMain
Me.LayoutControlItemRunningNumber = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItemRunningNumber = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
Me.GridControlPositions = New DevExpress.XtraGrid.GridControl() Me.GridControlPositions = New DevExpress.XtraGrid.GridControl()
Me.GridViewPositions = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewPositions = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl()
Me.RichEditXml = New DevExpress.XtraRichEdit.RichEditControl() Me.RichEditXml = New DevExpress.XtraRichEdit.RichEditControl()
Me.cmdDocumentKind = New DevExpress.XtraEditors.SearchLookUpEdit()
Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit()
@ -130,10 +132,17 @@ Partial Class frmMain
CType(Me.cmbYears.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.cmbYears.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDocumentKind.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
@ -148,16 +157,12 @@ Partial Class frmMain
CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl3.SuspendLayout() Me.SplitContainerControl3.SuspendLayout()
CType(Me.cmdDocumentKind.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'RibbonControl 'RibbonControl
@ -281,7 +286,7 @@ Partial Class frmMain
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonGroupData, Me.RibbonGroupDocument, Me.RibbonGroupPositions}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonGroupData, Me.RibbonGroupDocument, Me.RibbonGroupPositions})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start" Me.RibbonPage1.Text = "Start"
' '
@ -300,14 +305,6 @@ Partial Class frmMain
Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Konfiguration" Me.RibbonPageGroup2.Text = "Konfiguration"
' '
'RibbonPageGroup3
'
Me.RibbonPageGroup3.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
Me.RibbonPageGroup3.Text = "Debugging"
'
'RibbonGroupData 'RibbonGroupData
' '
Me.RibbonGroupData.Enabled = False Me.RibbonGroupData.Enabled = False
@ -436,8 +433,9 @@ Partial Class frmMain
Me.LayoutControlHead.Controls.Add(Me.cmbYears) Me.LayoutControlHead.Controls.Add(Me.cmbYears)
Me.LayoutControlHead.Controls.Add(Me.txtCustomerGLN) Me.LayoutControlHead.Controls.Add(Me.txtCustomerGLN)
Me.LayoutControlHead.Controls.Add(Me.txtDeliveryAddressGLN) Me.LayoutControlHead.Controls.Add(Me.txtDeliveryAddressGLN)
Me.LayoutControlHead.Controls.Add(Me.txtDocumentKind)
Me.LayoutControlHead.Controls.Add(Me.txtDocumentReference) Me.LayoutControlHead.Controls.Add(Me.txtDocumentReference)
Me.LayoutControlHead.Controls.Add(Me.TextEdit1)
Me.LayoutControlHead.Controls.Add(Me.cmdDocumentKind)
Me.LayoutControlHead.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControlHead.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControlHead.Enabled = False Me.LayoutControlHead.Enabled = False
Me.LayoutControlHead.Location = New System.Drawing.Point(0, 0) Me.LayoutControlHead.Location = New System.Drawing.Point(0, 0)
@ -477,7 +475,7 @@ Partial Class frmMain
' '
'TextEdit5 'TextEdit5
' '
Me.TextEdit5.Location = New System.Drawing.Point(123, 50) Me.TextEdit5.Location = New System.Drawing.Point(123, 80)
Me.TextEdit5.MenuManager = Me.RibbonControl Me.TextEdit5.MenuManager = Me.RibbonControl
Me.TextEdit5.Name = "TextEdit5" Me.TextEdit5.Name = "TextEdit5"
Me.TextEdit5.Size = New System.Drawing.Size(599, 20) Me.TextEdit5.Size = New System.Drawing.Size(599, 20)
@ -486,7 +484,7 @@ Partial Class frmMain
' '
'TextEdit6 'TextEdit6
' '
Me.TextEdit6.Location = New System.Drawing.Point(828, 50) Me.TextEdit6.Location = New System.Drawing.Point(828, 80)
Me.TextEdit6.MenuManager = Me.RibbonControl Me.TextEdit6.MenuManager = Me.RibbonControl
Me.TextEdit6.Name = "TextEdit6" Me.TextEdit6.Name = "TextEdit6"
Me.TextEdit6.Size = New System.Drawing.Size(207, 20) Me.TextEdit6.Size = New System.Drawing.Size(207, 20)
@ -495,7 +493,7 @@ Partial Class frmMain
' '
'TextEdit7 'TextEdit7
' '
Me.TextEdit7.Location = New System.Drawing.Point(346, 80) Me.TextEdit7.Location = New System.Drawing.Point(346, 110)
Me.TextEdit7.MenuManager = Me.RibbonControl Me.TextEdit7.MenuManager = Me.RibbonControl
Me.TextEdit7.Name = "TextEdit7" Me.TextEdit7.Name = "TextEdit7"
Me.TextEdit7.Size = New System.Drawing.Size(689, 20) Me.TextEdit7.Size = New System.Drawing.Size(689, 20)
@ -504,7 +502,7 @@ Partial Class frmMain
' '
'TextEdit8 'TextEdit8
' '
Me.TextEdit8.Location = New System.Drawing.Point(123, 80) Me.TextEdit8.Location = New System.Drawing.Point(123, 110)
Me.TextEdit8.MenuManager = Me.RibbonControl Me.TextEdit8.MenuManager = Me.RibbonControl
Me.TextEdit8.Name = "TextEdit8" Me.TextEdit8.Name = "TextEdit8"
Me.TextEdit8.Size = New System.Drawing.Size(117, 20) Me.TextEdit8.Size = New System.Drawing.Size(117, 20)
@ -513,7 +511,7 @@ Partial Class frmMain
' '
'TextEdit9 'TextEdit9
' '
Me.TextEdit9.Location = New System.Drawing.Point(123, 110) Me.TextEdit9.Location = New System.Drawing.Point(123, 140)
Me.TextEdit9.MenuManager = Me.RibbonControl Me.TextEdit9.MenuManager = Me.RibbonControl
Me.TextEdit9.Name = "TextEdit9" Me.TextEdit9.Name = "TextEdit9"
Me.TextEdit9.Size = New System.Drawing.Size(912, 20) Me.TextEdit9.Size = New System.Drawing.Size(912, 20)
@ -644,15 +642,6 @@ Partial Class frmMain
Me.txtDeliveryAddressGLN.StyleController = Me.LayoutControlHead Me.txtDeliveryAddressGLN.StyleController = Me.LayoutControlHead
Me.txtDeliveryAddressGLN.TabIndex = 17 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.LayoutControlHead
Me.txtDocumentKind.TabIndex = 18
'
'txtDocumentReference 'txtDocumentReference
' '
Me.txtDocumentReference.Location = New System.Drawing.Point(123, 170) Me.txtDocumentReference.Location = New System.Drawing.Point(123, 170)
@ -662,6 +651,15 @@ Partial Class frmMain
Me.txtDocumentReference.StyleController = Me.LayoutControlHead Me.txtDocumentReference.StyleController = Me.LayoutControlHead
Me.txtDocumentReference.TabIndex = 19 Me.txtDocumentReference.TabIndex = 19
' '
'TextEdit1
'
Me.TextEdit1.Location = New System.Drawing.Point(123, 50)
Me.TextEdit1.MenuManager = Me.RibbonControl
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Size = New System.Drawing.Size(912, 20)
Me.TextEdit1.StyleController = Me.LayoutControlHead
Me.TextEdit1.TabIndex = 20
'
'Root 'Root
' '
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
@ -679,6 +677,74 @@ Partial Class frmMain
Me.TabbedControlGroup2.Size = New System.Drawing.Size(1042, 255) Me.TabbedControlGroup2.Size = New System.Drawing.Size(1042, 255)
Me.TabbedControlGroup2.TabPages.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup2, Me.LayoutControlGroup1}) Me.TabbedControlGroup2.TabPages.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup2, Me.LayoutControlGroup1})
' '
'LayoutControlGroup1
'
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9, Me.LayoutControlItem15})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(1018, 208)
Me.LayoutControlGroup1.Text = "Diverse Adresse"
'
'LayoutControlItem10
'
Me.LayoutControlItem10.Control = Me.TextEdit9
Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 90)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem10.Size = New System.Drawing.Size(1018, 118)
Me.LayoutControlItem10.Text = "Kontakt"
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.TextEdit5
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 30)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem6.Size = New System.Drawing.Size(705, 30)
Me.LayoutControlItem6.Text = "Straße"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.TextEdit6
Me.LayoutControlItem7.Location = New System.Drawing.Point(705, 30)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem7.Size = New System.Drawing.Size(313, 30)
Me.LayoutControlItem7.Text = "Hausnummer"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem8
'
Me.LayoutControlItem8.Control = Me.TextEdit7
Me.LayoutControlItem8.Location = New System.Drawing.Point(223, 60)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
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.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem9.Size = New System.Drawing.Size(223, 30)
Me.LayoutControlItem9.Text = "PLZ"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem15
'
Me.LayoutControlItem15.Control = Me.TextEdit1
Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem15.Name = "LayoutControlItem15"
Me.LayoutControlItem15.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem15.Size = New System.Drawing.Size(1018, 30)
Me.LayoutControlItem15.Text = "Name"
Me.LayoutControlItem15.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlGroup2 'LayoutControlGroup2
' '
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5, Me.LayoutControlItem2, Me.LayoutItemOrderIssuer, Me.LayoutItemOrderNumber, Me.LayoutItemOrderDate, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem11, Me.LayoutControlItemRunningNumber, Me.LayoutControlItem14, Me.LayoutControlItem3}) Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5, Me.LayoutControlItem2, Me.LayoutItemOrderIssuer, Me.LayoutItemOrderNumber, Me.LayoutItemOrderDate, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem11, Me.LayoutControlItemRunningNumber, Me.LayoutControlItem14, Me.LayoutControlItem3})
@ -779,7 +845,7 @@ Partial Class frmMain
' '
'LayoutControlItem11 'LayoutControlItem11
' '
Me.LayoutControlItem11.Control = Me.txtDocumentKind Me.LayoutControlItem11.Control = Me.cmdDocumentKind
Me.LayoutControlItem11.Location = New System.Drawing.Point(809, 0) Me.LayoutControlItem11.Location = New System.Drawing.Point(809, 0)
Me.LayoutControlItem11.Name = "LayoutControlItem11" Me.LayoutControlItem11.Name = "LayoutControlItem11"
Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
@ -817,64 +883,6 @@ Partial Class frmMain
Me.LayoutControlItem3.Text = "Freitext" Me.LayoutControlItem3.Text = "Freitext"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(93, 13) Me.LayoutControlItem3.TextSize = New System.Drawing.Size(93, 13)
' '
'LayoutControlGroup1
'
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)
Me.LayoutControlGroup1.Text = "Diverse Adresse"
'
'LayoutControlItem10
'
Me.LayoutControlItem10.Control = Me.TextEdit9
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, 148)
Me.LayoutControlItem10.Text = "Kontakt"
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.TextEdit5
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem6.Size = New System.Drawing.Size(705, 30)
Me.LayoutControlItem6.Text = "Straße"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.TextEdit6
Me.LayoutControlItem7.Location = New System.Drawing.Point(705, 0)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem7.Size = New System.Drawing.Size(313, 30)
Me.LayoutControlItem7.Text = "Hausnummer"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(93, 13)
'
'LayoutControlItem8
'
Me.LayoutControlItem8.Control = Me.TextEdit7
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(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, 30)
Me.LayoutControlItem9.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem9.Size = New System.Drawing.Size(223, 30)
Me.LayoutControlItem9.Text = "PLZ"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(93, 13)
'
'GridControlPositions 'GridControlPositions
' '
Me.GridControlPositions.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControlPositions.Dock = System.Windows.Forms.DockStyle.Fill
@ -920,6 +928,25 @@ Partial Class frmMain
Me.RichEditXml.Size = New System.Drawing.Size(0, 0) Me.RichEditXml.Size = New System.Drawing.Size(0, 0)
Me.RichEditXml.TabIndex = 0 Me.RichEditXml.TabIndex = 0
' '
'cmdDocumentKind
'
Me.cmdDocumentKind.Location = New System.Drawing.Point(932, 50)
Me.cmdDocumentKind.MenuManager = Me.RibbonControl
Me.cmdDocumentKind.Name = "cmdDocumentKind"
Me.cmdDocumentKind.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.cmdDocumentKind.Properties.NullText = ""
Me.cmdDocumentKind.Properties.PopupView = Me.GridView3
Me.cmdDocumentKind.Size = New System.Drawing.Size(103, 20)
Me.cmdDocumentKind.StyleController = Me.LayoutControlHead
Me.cmdDocumentKind.TabIndex = 18
'
'GridView3
'
Me.GridView3.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
Me.GridView3.Name = "GridView3"
Me.GridView3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView3.OptionsView.ShowGroupPanel = False
'
'frmMain 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -962,10 +989,17 @@ Partial Class frmMain
CType(Me.cmbYears.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.cmbYears.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDocumentKind.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtDocumentReference.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TabbedControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
@ -980,16 +1014,12 @@ Partial Class frmMain
CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl3.ResumeLayout(False) Me.SplitContainerControl3.ResumeLayout(False)
CType(Me.cmdDocumentKind.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1028,7 +1058,6 @@ Partial Class frmMain
Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents RichEditXml As DevExpress.XtraRichEdit.RichEditControl Friend WithEvents RichEditXml As DevExpress.XtraRichEdit.RichEditControl
Friend WithEvents checkShowXml As DevExpress.XtraBars.BarCheckItem Friend WithEvents checkShowXml As DevExpress.XtraBars.BarCheckItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents cmbMandator As DevExpress.XtraEditors.SearchLookUpEdit Friend WithEvents cmbMandator As DevExpress.XtraEditors.SearchLookUpEdit
Friend WithEvents SearchLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents SearchLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents cmbCustomer As DevExpress.XtraEditors.SearchLookUpEdit Friend WithEvents cmbCustomer As DevExpress.XtraEditors.SearchLookUpEdit
@ -1068,7 +1097,6 @@ Partial Class frmMain
Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents btnPreviewReport As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnPreviewReport As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonGroupDocument As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonGroupDocument As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents txtDocumentKind As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents txtDocumentReference As DevExpress.XtraEditors.MemoEdit Friend WithEvents txtDocumentReference As DevExpress.XtraEditors.MemoEdit
Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem
@ -1076,4 +1104,8 @@ Partial Class frmMain
Friend WithEvents btnReloadDocument As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnReloadDocument As DevExpress.XtraBars.BarButtonItem
Friend WithEvents colId As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colId As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents cmdDocumentKind As DevExpress.XtraEditors.SearchLookUpEdit
Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView
End Class End Class

28
EDIDocumentImport/frmMain.vb
View File

@ -31,11 +31,13 @@ Public Class frmMain
txtVersion.Caption = String.Format(txtVersion.Caption, Application.ProductVersion) txtVersion.Caption = String.Format(txtVersion.Caption, Application.ProductVersion)
LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "EDI Document Importer") LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "EDI Document Importer")
Logger = LogConfig.GetLogger()
Logger.Info("EDI Document Importer, Version [{0}]", Application.ProductVersion)
ConfigManager = New ConfigManager(Of ImporterShared.Config)(LogConfig, ConfigManager = New ConfigManager(Of ImporterShared.Config)(LogConfig,
Application.UserAppDataPath, Application.UserAppDataPath,
Application.CommonAppDataPath, Application.CommonAppDataPath,
Application.StartupPath) Application.StartupPath)
Logger = LogConfig.GetLogger()
' If ConnectionString does not exist, show SQL Config Form ' If ConnectionString does not exist, show SQL Config Form
If ConfigManager.Config.ConnectionString = String.Empty Then If ConfigManager.Config.ConnectionString = String.Empty Then
@ -76,12 +78,16 @@ Public Class frmMain
' Initialize Grids ' Initialize Grids
GridBuilder = New GridBuilder(New List(Of GridView) From {GridViewFiles, GridViewPositions}) GridBuilder = New GridBuilder(New List(Of GridView) From {GridViewFiles, GridViewPositions})
GridBuilder.WithDefaults() GridBuilder.WithDefaults()
PositionGrid.LoadPositionViewAndColumns(GridViewPositions, DocumentType.Order)
' Construct classes related to the xml data ' Construct classes related to the xml data
DocumentLoader = New DocumentLoader(LogConfig, Winline) DocumentLoader = New DocumentLoader(LogConfig, Winline)
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, Text) Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden der Anwendung")
MsgBox(oMessage, MsgBoxStyle.Critical, Text)
End Try End Try
End Sub End Sub
@ -90,6 +96,10 @@ Public Class frmMain
Return $"Das Feld '{FieldName}' muss ausgefüllt werden!" Return $"Das Feld '{FieldName}' muss ausgefüllt werden!"
End Function End Function
Private Function GetErrorMessage(pException As Exception, pErrorText As String)
Return $"{pErrorText}:{vbNewLine}{vbNewLine}{pException.Message}"
End Function
Private Function GetFocusedDocument() As Document Private Function GetFocusedDocument() As Document
Dim oRowHandles = GridViewFiles.GetSelectedRows().ToList() Dim oRowHandles = GridViewFiles.GetSelectedRows().ToList()
Dim oDocument As Document = GridViewFiles.GetRow(oRowHandles.First()) Dim oDocument As Document = GridViewFiles.GetRow(oRowHandles.First())
@ -174,17 +184,17 @@ Public Class frmMain
End Select End Select
Catch ex As Xml.XmlException Catch ex As Xml.XmlException
Dim oMessage As String = $"Fehler beim Laden des Dokuments {pDocument.Name}:{vbNewLine}{ex.Message}" Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments")
MsgBox(oMessage, MsgBoxStyle.Critical, Text) MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Logger.Error(ex) Logger.Error(ex)
Catch ex As Exceptions.NoMandatorException Catch ex As Exceptions.NoMandatorException
Dim oMessage As String = $"Fehler beim Laden des Dokuments {pDocument.Name}:{vbNewLine}{ex.Message}" Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments")
MsgBox(oMessage, MsgBoxStyle.Critical, Text) MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Logger.Error(ex) Logger.Error(ex)
Catch ex As Exception Catch ex As Exception
Dim oMessage As String = $"Unerwarteter Fehler beim Laden des Dokuments {pDocument.Name}:{vbNewLine}{ex.Message}" Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments")
MsgBox(oMessage, MsgBoxStyle.Critical, Text) MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Logger.Error(ex) Logger.Error(ex)
@ -211,7 +221,10 @@ Public Class frmMain
txtRunningNumber.Text = oHead.Laufnummer txtRunningNumber.Text = oHead.Laufnummer
txtOrderIssuer.Text = oHead.Fakt_Ansprechpartner txtOrderIssuer.Text = oHead.Fakt_Ansprechpartner
txtOrderNumber.Text = oHead.AuftragsBestellnummer txtOrderNumber.Text = oHead.AuftragsBestellnummer
txtDocumentKind.Text = oHead.Belegart
' TODO: Get Doc Kind from Winline Class
cmdDocumentKind.Text = oHead.Belegart
txtDocumentReference.Text = oHead.Auftragsreferenz txtDocumentReference.Text = oHead.Auftragsreferenz
dateOrderDate.EditValue = oHead.Datum_AuftragBestellung dateOrderDate.EditValue = oHead.Datum_AuftragBestellung
@ -267,9 +280,6 @@ Public Class frmMain
End If End If
PositionGrid.LoadPositionViewAndColumns(GridViewPositions, DocumentType.Order)
Dim oPositionList = PositionData.Load(oData, oDataOriginal) Dim oPositionList = PositionData.Load(oData, oDataOriginal)
GridControlPositions.DataSource = oPositionList GridControlPositions.DataSource = oPositionList
GridViewPositions.BestFitColumns() GridViewPositions.BestFitColumns()

65
ImporterShared/Documents/DocumentLoader.vb
View File

@ -5,6 +5,7 @@ Imports System.Xml.XPath
Imports DigitalData.Modules.Language Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports ImporterShared.Documents Imports ImporterShared.Documents
Imports ImporterShared.Schemas.Orders
Namespace Documents Namespace Documents
Public Class DocumentLoader Public Class DocumentLoader
@ -54,9 +55,9 @@ Namespace Documents
Private Function MatchDataFromWinLine(pDocument As Document, pMandators As List(Of Winline.Mandator)) As Document Private Function MatchDataFromWinLine(pDocument As Document, pMandators As List(Of Winline.Mandator)) As Document
Dim oMandators As List(Of Winline.Mandator) = pMandators. Dim oMandators As List(Of Winline.Mandator) = pMandators.
Where(Function(m) m.IsWhitelisted = True). Where(Function(m) m.IsWhitelisted = True).
OrderBy(Function(m) m.Order). OrderBy(Function(m) m.Order).
ToList() ToList()
If TypeOf pDocument.Data Is Schemas.Orders.Input.MESOWebService Then If TypeOf pDocument.Data Is Schemas.Orders.Input.MESOWebService Then
Dim oMandator = Winline.FindMatchingMandatorFromOrder(pDocument.Data) Dim oMandator = Winline.FindMatchingMandatorFromOrder(pDocument.Data)
@ -73,43 +74,45 @@ Namespace Documents
Return pDocument Return pDocument
End Function End Function
Private Function MatchOrderData(pData As Schemas.Orders.Input.MESOWebService, pMandator As Winline.Mandator) As Schemas.Orders.Input.MESOWebService Private Function MatchOrderData(pData As Input.MESOWebService, pMandator As Winline.Mandator) As Input.MESOWebService
Dim oYear = Winline.GetWinLineYear() Dim oYear = Winline.GetWinLineYear()
If pMandator Is Nothing Then If pMandator Is Nothing Then
Return pData Return pData
End If End If
Dim oHead As Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items. Dim oHead As Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items.
Where(Function(h) TypeOf h Is Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT025). Where(Function(h) TypeOf h Is Input.MESOWebServiceEXIMVRG_ordersT025).
SetValue(Sub(h) SetValue(Sub(h As Input.MESOWebServiceEXIMVRG_ordersT025)
Dim oAccountNumber = Winline.TryGetAccountNumber(h.Fakt_Kontonummer, pMandator) Dim oAccount = Winline.TryGetAccount(h.Fakt_Kontonummer, pMandator)
If oAccountNumber IsNot Nothing Then If oAccount IsNot Nothing Then
h.Fakt_Kontonummer = oAccountNumber h.Fakt_Kontonummer = oAccount.Id
End If h.Fakt_Name = oAccount.Name
End If
Dim oAccountNumber2 = Winline.TryGetAccountNumber(h.Lief_Kontonummer, pMandator) End Sub).
If oAccountNumber2 IsNot Nothing Then SetValue(Sub(h As Input.MESOWebServiceEXIMVRG_ordersT025)
h.Lief_Kontonummer = oAccountNumber2 Dim oAccount = Winline.TryGetAccount(h.Lief_Kontonummer, pMandator)
End If If oAccount IsNot Nothing Then
End Sub). h.Lief_Kontonummer = oAccount.Id
FirstOrDefault() h.Lief_Name = oAccount.Name
End If
Dim oPositions As List(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items. End Sub).
Where(Function(p) TypeOf p Is Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026). FirstOrDefault()
SetValue(Sub(p)
Dim oArticleNumber = Winline.TryGetArticleNumber(p.Artikelnummer, pMandator)
If oArticleNumber IsNot Nothing Then
p.Artikelnummer = oArticleNumber
End If
End Sub).
Select(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
ToList()
Dim oPositions As List(Of Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items.
Where(Function(p) TypeOf p Is 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 Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
ToList()
pData.Items = New List(Of Object) From {oHead}. pData.Items = New List(Of Object) From {oHead}.
Concat(oPositions). Concat(oPositions).
ToArray() ToArray()
Return pData Return pData
End Function End Function

5
ImporterShared/ImporterShared.vbproj
View File

@ -117,9 +117,10 @@
<Compile Include="Schemas\Orders\Output.vb" /> <Compile Include="Schemas\Orders\Output.vb" />
<Compile Include="Schemas\Orders\ReportSource.vb" /> <Compile Include="Schemas\Orders\ReportSource.vb" />
<Compile Include="Serializer.vb" /> <Compile Include="Serializer.vb" />
<Compile Include="Winline\Account.vb" /> <Compile Include="Winline\Entities\Account.vb" />
<Compile Include="Winline\Data.vb" /> <Compile Include="Winline\Data.vb" />
<Compile Include="Winline\Mandator.vb" /> <Compile Include="Winline\Entities\DocumentKind.vb" />
<Compile Include="Winline\Entities\Mandator.vb" />
<Compile Include="Winline\WebService.vb" /> <Compile Include="Winline\WebService.vb" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>

154
ImporterShared/Winline/Data.vb
View File

@ -17,9 +17,16 @@ Namespace Winline
Public Years As List(Of Integer) Public Years As List(Of Integer)
Public Const V21_ARTICLENUMBER = "c011" Public Const V21_ARTICLENUMBER = "c011"
Public Const V50_ACCOUNTNUMBER = "c002" Public Const V50_ACCOUNTNUMBER = "c002"
Public Const V50_ACCOUNTNAME = "c003"
Public Const V05_ACCOUNTID = "c002" Public Const V05_ACCOUNTID = "c002"
Public Const V05_ACCOUNTNAME = "c003" Public Const V05_ACCOUNTNAME = "c003"
Public Const T357_KINDID = "c030"
Public Const T357_KINDNAME = "c001"
Public Const T01_DATABASEINFO = "c004" Public Const T01_DATABASEINFO = "c004"
Public Const T01_MANDATORID = "c000" Public Const T01_MANDATORID = "c000"
Public Const T01_MANDATORNAME = "c003" Public Const T01_MANDATORNAME = "c003"
@ -39,44 +46,63 @@ Namespace Winline
End Function End Function
Public Sub LoadAccounts(pMandator As Mandator) Public Sub LoadAccounts(pMandator As Mandator)
Dim oSQL = $"SELECT [c002], [c003] FROM [{pMandator.Server}].[{pMandator.Database}].[dbo].[v005] WHERE c139 IS NULL" Logger.Info("Loading Accounts for Mandator [{0}]", pMandator)
Dim oTable = Database.GetDatatable(oSQL)
For Each oRow As DataRow In oTable.Rows Try
Accounts.Add(New Account With { Dim oSQL = $"SELECT DISTINCT [c002], [c003] FROM [{pMandator.Server}].[{pMandator.Database}].[dbo].[v005] WHERE c139 IS NULL"
.Id = oRow.Item(V05_ACCOUNTID), Dim oTable = Database.GetDatatable(oSQL)
.Name = oRow.Item(V05_ACCOUNTNAME), Dim oAccounts As New List(Of Account)
.Mandator = pMandator.Id
}) For Each oRow As DataRow In oTable.Rows
Next oAccounts.Add(New Account With {
.Id = oRow.Item(V05_ACCOUNTID),
.Name = oRow.Item(V05_ACCOUNTNAME),
.Mandator = pMandator.Id
})
Next
Accounts.AddRange(oAccounts)
Logger.Info("[{0}] Accounts loaded for Mandator [{1}]", oAccounts.Count, pMandator)
Catch ex As Exception
Logger.Warn("Could not load Accounts for Mandator [{0}]", pMandator)
Logger.Error(ex)
End Try
End Sub End Sub
Public Sub LoadMandators() Public Sub LoadMandators()
Dim oSQL = "SELECT [c000], [c003], [c004] FROM [cwlsystem].[dbo].[T001SRV] (NOLOCK)" Try
Dim oTable = Database.GetDatatable(oSQL) Dim oSQL = "SELECT [c000], [c003], [c004] FROM [cwlsystem].[dbo].[T001SRV] (NOLOCK)"
Dim oTable = Database.GetDatatable(oSQL)
Mandators.Clear() Mandators.Clear()
For Each oRow As DataRow In oTable.Rows For Each oRow As DataRow In oTable.Rows
Dim oDbInfo = SplitConnectionInfo(oRow) Dim oDbInfo = SplitConnectionInfo(oRow)
Dim oMandator = New Mandator With { Dim oMandator = New Mandator With {
.Id = oRow.Item(T01_MANDATORID), .Id = oRow.Item(T01_MANDATORID),
.Name = oRow.Item(T01_MANDATORNAME), .Name = oRow.Item(T01_MANDATORNAME),
.Database = oDbInfo.Item1, .Database = oDbInfo.Item1,
.Server = oDbInfo.Item2 .Server = oDbInfo.Item2
} }
Dim oMandatorConfig As Config.MandatorConfig = Config.Mandators. Dim oMandatorConfig As Config.MandatorConfig = Config.Mandators.
Where(Function(m) oMandator.Id = m.Name). Where(Function(m) oMandator.Id = m.Name).
SingleOrDefault() SingleOrDefault()
If oMandatorConfig IsNot Nothing Then If oMandatorConfig IsNot Nothing Then
oMandator.IsWhitelisted = True oMandator.IsWhitelisted = True
oMandator.Regex = oMandatorConfig.ArticleRegex oMandator.Regex = oMandatorConfig.ArticleRegex
oMandator.Order = oMandatorConfig.Order oMandator.Order = oMandatorConfig.Order
End If End If
Mandators.Add(oMandator)
Next Mandators.Add(oMandator)
Next
Logger.Info("[{0}] Mandators loaded", Mandators.Count)
Catch ex As Exception
Logger.Warn("Could not load Mandators")
Logger.Error(ex)
End Try
End Sub End Sub
Public Sub LoadEconomicYears() Public Sub LoadEconomicYears()
@ -85,17 +111,58 @@ Namespace Winline
Years = oRange Years = oRange
End Sub End Sub
Public Function TryGetAccountNumber(pGLN As String, pMandator As Mandator) As String Public Function GetDocumentKinds(pMandator As Mandator, pYear As Integer) As List(Of DocumentKind)
Dim oDocumentKinds As New List(Of DocumentKind)
Try Try
Dim oSQL = $"
SELECT
[c030],
[c001]
FROM [t357] (NOLOCK)
WHERE (
[c001] LIKE 'Werk%(VK)' OR
[c001] LIKE 'Werk%(WK)'
)
AND [mesocomp] = '{pMandator.Id}' AND [mesoyear] = {pYear}"
Dim oTable As DataTable = Database.GetDatatable(oSQL)
If oTable.Rows.Count = 0 Then
Logger.Warn("No DocumentKinds found")
Return oDocumentKinds
End If
For Each oRow As DataRow In oTable.Rows
oDocumentKinds.Add(New DocumentKind With {
.Id = oRow.Item(T357_KINDID),
.Name = oRow.Item(T357_KINDNAME)
})
Next
Return oDocumentKinds
Catch ex As Exception
Logger.Warn("Could not load DocumentKinds")
Logger.Error(ex)
Return oDocumentKinds
End Try
End Function
Public Function TryGetAccount(pGLN As String, pMandator As Mandator) As Account
Try
If pGLN Is Nothing OrElse pGLN = String.Empty Then
Return Nothing
End If
Dim oYear As Integer = GetWinLineYear() Dim oYear As Integer = GetWinLineYear()
Dim oSQL = $" Dim oSQL = $"
SELECT SELECT
[c002], -- Kundennummer [c002], -- Kundennummer
[c003] -- Kundenname [c003] -- Kundenname
FROM [{pMandator.Database}].[dbo].[v050] FROM [{pMandator.Database}].[dbo].[v050]
WHERE [c004] = 2 -- Was für ein Konto?? WHERE [c004] = 2 -- KontoTyp
AND [c260] = {pGLN} AND [c260] = '{pGLN}'
AND [mesocomp] = '{pMandator.Id}' and [mesoyear] = {oYear}" AND [mesocomp] = '{pMandator.Id}' and [mesoyear] = {oYear}"
Dim oTable As DataTable = Database.GetDatatable(oSQL) Dim oTable As DataTable = Database.GetDatatable(oSQL)
' GLN not found in this Mandator, continue to next one ' GLN not found in this Mandator, continue to next one
@ -113,9 +180,16 @@ Namespace Winline
End If End If
Dim oRow As DataRow = oTable.Rows.Item(0) Dim oRow As DataRow = oTable.Rows.Item(0)
Dim oArticleNumber As String = Utils.NotNull(oRow.Item(V50_ACCOUNTNUMBER), String.Empty) Dim oAccountNumber As String = Utils.NotNull(oRow.Item(V50_ACCOUNTNUMBER), String.Empty)
Return oArticleNumber Dim oAccountName As String = Utils.NotNull(oRow.Item(V50_ACCOUNTNAME), String.Empty)
Return New Account With {
.Id = oAccountNumber,
.Name = oAccountName,
.Mandator = pMandator.Id
}
Catch ex As Exception Catch ex As Exception
Logger.Warn("Error while trying to get account for GLN [{0}]", pGLN)
Logger.Error(ex) Logger.Error(ex)
Return Nothing Return Nothing
End Try End Try

0
ImporterShared/Winline/Account.vb → ImporterShared/Winline/Entities/Account.vb
View File

7
ImporterShared/Winline/Entities/DocumentKind.vb Normal file
View File

@ -0,0 +1,7 @@
Namespace Winline
Public Class DocumentKind
Public Id As Integer
Public Name As String
End Class
End Namespace

0
ImporterShared/Winline/Mandator.vb → ImporterShared/Winline/Entities/Mandator.vb
View File