diff --git a/EDIDocumentImport/GridLoader.vb b/EDIDocumentImport/GridLoader.vb new file mode 100644 index 0000000..2223658 --- /dev/null +++ b/EDIDocumentImport/GridLoader.vb @@ -0,0 +1,59 @@ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DigitalData.Modules.Logging +Imports ImporterShared + +Public Class GridLoader + Inherits BaseClass + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig, pLogConfig.GetLogger()) + End Sub + + Public Function GetGridFromElement(pTable As Schemas.Schema.Table) As GridControl + Dim oGrid As New GridControl With { + .Dock = DockStyle.Fill, + .Name = pTable.Name + } + + oGrid.ForceInitialize() + oGrid.MainView.PopulateColumns() + + Dim oView As GridView = oGrid.DefaultView + + For Each oCol In pTable.Columns + Dim oColumn = New Columns.GridColumn With { + .Name = oCol.Name, + .Caption = oCol.Name, + .FieldName = oCol.Name, + .UnboundType = GetColumnType(oCol), + .VisibleIndex = 0 + } + + oView.Columns.Add(oColumn) + + Next + + Return oGrid + End Function + + Private Function GetColumnType(pColumn As Schemas.Schema.Column) + Select Case pColumn.DataType + Case Schemas.Schema.ColumnType.Boolean + Return DevExpress.Data.UnboundColumnType.Boolean + + Case Schemas.Schema.ColumnType.Date + Return DevExpress.Data.UnboundColumnType.DateTime + + Case Schemas.Schema.ColumnType.Integer + Return DevExpress.Data.UnboundColumnType.Integer + + Case Schemas.Schema.ColumnType.Decimal + Return DevExpress.Data.UnboundColumnType.Decimal + + Case Else + Return DevExpress.Data.UnboundColumnType.String + End Select + + End Function +End Class diff --git a/EDIDocumentImport/ImporterForm.vbproj b/EDIDocumentImport/ImporterForm.vbproj index 3a860c0..a58b651 100644 --- a/EDIDocumentImport/ImporterForm.vbproj +++ b/EDIDocumentImport/ImporterForm.vbproj @@ -149,6 +149,18 @@ + + frmImportMain.vb + + + Form + + + frmImportMain_old.vb + + + Form + frmMain.vb @@ -161,6 +173,7 @@ Form + True @@ -195,6 +208,12 @@ + + frmImportMain.vb + + + frmImportMain_old.vb + frmMain.vb diff --git a/EDIDocumentImport/My Project/Application.Designer.vb b/EDIDocumentImport/My Project/Application.Designer.vb index 2f92bb4..9cc3b76 100644 --- a/EDIDocumentImport/My Project/Application.Designer.vb +++ b/EDIDocumentImport/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.ImporterForm.frmMain + Me.MainForm = Global.ImporterForm.frmImportMain End Sub End Class End Namespace diff --git a/EDIDocumentImport/My Project/Application.myapp b/EDIDocumentImport/My Project/Application.myapp index 739ea6f..3fd3a6f 100644 --- a/EDIDocumentImport/My Project/Application.myapp +++ b/EDIDocumentImport/My Project/Application.myapp @@ -1,7 +1,7 @@  true - frmMain + frmImportMain false 0 true diff --git a/EDIDocumentImport/Positions/PositionData.vb b/EDIDocumentImport/Positions/PositionData.vb index 0480bbe..0d46c1a 100644 --- a/EDIDocumentImport/Positions/PositionData.vb +++ b/EDIDocumentImport/Positions/PositionData.vb @@ -13,37 +13,37 @@ Public Class PositionData Winline = pWinline End Sub - Public Function Load(pMandator As Mandator, pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService) As List(Of Position) - Dim oPositions = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(pData) - Dim oPositionsOriginal = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(pDataOriginal) - Dim oPositionList As New List(Of Position) + 'Public Function Load(pMandator As Mandator, pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService) As List(Of Position) + ' Dim oPositions = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(pData) + ' Dim oPositionsOriginal = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(pDataOriginal) + ' Dim oPositionList As New List(Of Position) - For Each oPosition In oPositions - Dim oPositionOriginal = oPositionsOriginal. - Where(Function(p) p.Zeilennummer = oPosition.Zeilennummer). - SingleOrDefault() + ' For Each oPosition In oPositions + ' Dim oPositionOriginal = oPositionsOriginal. + ' Where(Function(p) p.Zeilennummer = oPosition.Zeilennummer). + ' SingleOrDefault() - Dim oReplacementNumber As String = Winline.GetReplacementArticleNumber(oPosition.Artikelnummer, pMandator) + ' Dim oReplacementNumber As String = Winline.GetReplacementArticleNumber(oPosition.Artikelnummer, pMandator) - ' If ArticleNumber is the same as the replacement Number, this Article does not have a replacement Number - If oReplacementNumber = oPosition.Artikelnummer Then - oReplacementNumber = Nothing - End If + ' ' If ArticleNumber is the same as the replacement Number, this Article does not have a replacement Number + ' If oReplacementNumber = oPosition.Artikelnummer Then + ' oReplacementNumber = Nothing + ' End If - oPositionList.Add(New Position With { - .ArticleNumber = oPosition.Artikelnummer, - .RowNumber = oPosition.Zeilennummer, - .ArticleDescription = oPosition.Bezeichnung, - .ArticleNumberVendor = oPosition.Lieferantenartikelnummer, - .EDIPrice = oPosition.Einzelpreis, - .WinLinePrice = 0, - .Price = 0, - .Amount = oPosition.Menge_bestellt, - .EuropeanArticleNumber = oPositionOriginal.Artikelnummer, - .ReplacementArticleNumber = oReplacementNumber - }) - Next + ' oPositionList.Add(New Position With { + ' .ArticleNumber = oPosition.Artikelnummer, + ' .RowNumber = oPosition.Zeilennummer, + ' .ArticleDescription = oPosition.Bezeichnung, + ' .ArticleNumberVendor = oPosition.Lieferantenartikelnummer, + ' .EDIPrice = oPosition.Einzelpreis, + ' .WinLinePrice = 0, + ' .Price = 0, + ' .Amount = oPosition.Menge_bestellt, + ' .EuropeanArticleNumber = oPositionOriginal.Artikelnummer, + ' .ReplacementArticleNumber = oReplacementNumber + ' }) + ' Next - Return oPositionList - End Function + ' Return oPositionList + 'End Function End Class diff --git a/EDIDocumentImport/frmImportMain.Designer.vb b/EDIDocumentImport/frmImportMain.Designer.vb new file mode 100644 index 0000000..5ef76f9 --- /dev/null +++ b/EDIDocumentImport/frmImportMain.Designer.vb @@ -0,0 +1,259 @@ + +Partial Class frmImportMain + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Form 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 Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim UnboundSourceProperty1 As DevExpress.Data.UnboundSourceProperty = New DevExpress.Data.UnboundSourceProperty() + Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.txtVersion = New DevExpress.XtraBars.BarStaticItem() + Me.txtFilesLoaded = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.GridControlFiles = New DevExpress.XtraGrid.GridControl() + Me.GridViewFiles = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitContainerControl4 = New DevExpress.XtraEditors.SplitContainerControl() + Me.UnboundSource1 = New DevExpress.Data.UnboundSource(Me.components) + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.SuspendLayout() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl3.SuspendLayout() + CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl4.SuspendLayout() + CType(Me.UnboundSource1, 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.txtVersion, Me.txtFilesLoaded, Me.BarButtonItem1, Me.BarButtonItem2}) + Me.RibbonControl.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl.MaxItemId = 5 + Me.RibbonControl.Name = "RibbonControl" + Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl.Size = New System.Drawing.Size(1215, 158) + Me.RibbonControl.StatusBar = Me.RibbonStatusBar + ' + 'txtVersion + ' + Me.txtVersion.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.txtVersion.Caption = "BarStaticItem1" + Me.txtVersion.Id = 1 + Me.txtVersion.Name = "txtVersion" + ' + 'txtFilesLoaded + ' + Me.txtFilesLoaded.Caption = "BarStaticItem2" + Me.txtFilesLoaded.Id = 2 + Me.txtFilesLoaded.Name = "txtFilesLoaded" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Import" + Me.BarButtonItem1.Id = 3 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar + ' + Me.RibbonStatusBar.ItemLinks.Add(Me.txtVersion) + Me.RibbonStatusBar.ItemLinks.Add(Me.txtFilesLoaded) + Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 722) + Me.RibbonStatusBar.Name = "RibbonStatusBar" + Me.RibbonStatusBar.Ribbon = Me.RibbonControl + Me.RibbonStatusBar.Size = New System.Drawing.Size(1215, 24) + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlFiles) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1215, 564) + Me.SplitContainerControl1.SplitterPosition = 325 + Me.SplitContainerControl1.TabIndex = 2 + ' + 'GridControlFiles + ' + Me.GridControlFiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlFiles.Location = New System.Drawing.Point(0, 0) + Me.GridControlFiles.MainView = Me.GridViewFiles + Me.GridControlFiles.MenuManager = Me.RibbonControl + Me.GridControlFiles.Name = "GridControlFiles" + Me.GridControlFiles.Size = New System.Drawing.Size(325, 564) + Me.GridControlFiles.TabIndex = 0 + Me.GridControlFiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFiles}) + ' + 'GridViewFiles + ' + Me.GridViewFiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3}) + Me.GridViewFiles.GridControl = Me.GridControlFiles + Me.GridViewFiles.Name = "GridViewFiles" + ' + 'GridColumn1 + ' + Me.GridColumn1.Caption = "GridColumn1" + Me.GridColumn1.FieldName = "Name" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 0 + ' + 'GridColumn2 + ' + Me.GridColumn2.Caption = "GridColumn2" + Me.GridColumn2.FieldName = "FullName" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 1 + ' + 'GridColumn3 + ' + Me.GridColumn3.Caption = "GridColumn3" + Me.GridColumn3.FieldName = "Selected" + Me.GridColumn3.Name = "GridColumn3" + Me.GridColumn3.Visible = True + Me.GridColumn3.VisibleIndex = 2 + ' + 'SplitContainerControl2 + ' + Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl2.Horizontal = False + Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl2.Name = "SplitContainerControl2" + Me.SplitContainerControl2.Panel1.Controls.Add(Me.SplitContainerControl3) + Me.SplitContainerControl2.Panel1.Text = "Panel1" + Me.SplitContainerControl2.Panel2.Controls.Add(Me.SplitContainerControl4) + Me.SplitContainerControl2.Panel2.Text = "Panel2" + Me.SplitContainerControl2.Size = New System.Drawing.Size(880, 564) + Me.SplitContainerControl2.SplitterPosition = 288 + Me.SplitContainerControl2.TabIndex = 0 + ' + 'SplitContainerControl3 + ' + Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl3.Horizontal = False + Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl3.Name = "SplitContainerControl3" + Me.SplitContainerControl3.Panel1.Text = "Panel1" + Me.SplitContainerControl3.Panel2.Text = "Panel2" + Me.SplitContainerControl3.Size = New System.Drawing.Size(880, 288) + Me.SplitContainerControl3.SplitterPosition = 118 + Me.SplitContainerControl3.TabIndex = 0 + ' + 'SplitContainerControl4 + ' + Me.SplitContainerControl4.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl4.Horizontal = False + Me.SplitContainerControl4.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl4.Name = "SplitContainerControl4" + Me.SplitContainerControl4.Panel1.Text = "Panel1" + Me.SplitContainerControl4.Panel2.Text = "Panel2" + Me.SplitContainerControl4.Size = New System.Drawing.Size(880, 266) + Me.SplitContainerControl4.SplitterPosition = 126 + Me.SplitContainerControl4.TabIndex = 0 + ' + 'UnboundSource1 + ' + UnboundSourceProperty1.DisplayName = Nothing + UnboundSourceProperty1.Name = "Property0" + Me.UnboundSource1.Properties.Add(UnboundSourceProperty1) + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Export" + Me.BarButtonItem2.Id = 4 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'frmImportMain + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1215, 746) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonStatusBar) + Me.Controls.Add(Me.RibbonControl) + Me.Name = "frmImportMain" + Me.Ribbon = Me.RibbonControl + Me.StatusBar = Me.RibbonStatusBar + Me.Text = "frmImportMain" + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.ResumeLayout(False) + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.ResumeLayout(False) + CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl4.ResumeLayout(False) + CType(Me.UnboundSource1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents GridControlFiles As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewFiles As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents txtVersion As DevExpress.XtraBars.BarStaticItem + Friend WithEvents txtFilesLoaded As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents SplitContainerControl4 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents UnboundSource1 As DevExpress.Data.UnboundSource + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem +End Class diff --git a/EDIDocumentImport/frmImportMain.resx b/EDIDocumentImport/frmImportMain.resx new file mode 100644 index 0000000..6b625b7 --- /dev/null +++ b/EDIDocumentImport/frmImportMain.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/frmImportMain.vb b/EDIDocumentImport/frmImportMain.vb new file mode 100644 index 0000000..b41e9d8 --- /dev/null +++ b/EDIDocumentImport/frmImportMain.vb @@ -0,0 +1,209 @@ +Imports System.ComponentModel +Imports System.IO +Imports System.Xml +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DigitalData.Controls.SQLConfig +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging +Imports ImporterShared +Imports ImporterShared.Documents +Imports ImporterShared.Schemas +Imports ImporterShared.Winline + +Public Class frmImportMain + Private LogConfig As LogConfig + Private Logger As Logger + Private ConfigManager As ConfigManager(Of ImporterShared.Config) + Private Database As MSSQLServer + Private Winline As Data + Private WebService As WebService + Private PositionData As PositionData + Private DocumentLoader As Documents.DocumentLoader + Private SchemaLoader As Schemas.SchemaLoader + Private GridLoader As GridLoader + + Private Grids As List(Of GridControl) + + Private CurrentSchema As String + + Private Sub frmImportMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load + txtVersion.Caption = String.Format(txtVersion.Caption, Application.ProductVersion) + + 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, + Application.UserAppDataPath, + Application.CommonAppDataPath, + Application.StartupPath) + + ' If ConnectionString does not exist, show SQL Config Form + If ConfigManager.Config.ConnectionString = String.Empty Then + Dim oForm As New frmSQLConfig(LogConfig) With { + .FormTitle = "EDI Document Importer" + } + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + ConfigManager.Config.ConnectionString = oForm.ConnectionString + ConfigManager.Save() + End If + End If + + ' Initialize Database + Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString) + Database = New MSSQLServer(LogConfig, oConnectionString) + Winline = New Data(LogConfig, Database, ConfigManager.Config) + WebService = New WebService(LogConfig, ConfigManager.Config) + PositionData = New PositionData(LogConfig, Winline) + + ' Load WinLine Data + Winline.Mandators.Clear() + Winline.LoadMandators() + Winline.LoadEconomicYears() + Winline.LoadDocumentKinds(Winline.Mandators) + For Each oMandator In Winline.Mandators + Winline.LoadAccounts(oMandator) + Next + + DocumentLoader = New DocumentLoader(LogConfig, Winline) + SchemaLoader = New SchemaLoader(LogConfig) + GridLoader = New GridLoader(LogConfig) + + SchemaLoader.LoadFiles(ConfigManager.Config.SchemaDirectory) + CurrentSchema = SchemaLoader.SchemaList.First().FullName + + Dim oSchema = SchemaLoader.GetSchemaFromFile(CurrentSchema) + Grids = CreateGridsAndColumns(oSchema) + + + End Sub + + + Private Function CreateGridsAndColumns(pSchema As Schemas.Schema) As List(Of GridControl) + Dim oGrids As New List(Of GridControl) + Dim oTableCounter = 0 + + For Each oTable In pSchema.Tables + If oTableCounter = 0 Then + Dim oGrid = GridLoader.GetGridFromElement(oTable) + SplitContainerControl3.Panel1.Controls.Add(oGrid) + oGrids.Add(oGrid) + End If + + If oTableCounter = 1 Then + Dim oGrid = GridLoader.GetGridFromElement(oTable) + SplitContainerControl3.Panel2.Controls.Add(oGrid) + oGrids.Add(oGrid) + End If + + If oTableCounter = 2 Then + Dim oGrid = GridLoader.GetGridFromElement(oTable) + SplitContainerControl4.Panel1.Controls.Add(oGrid) + oGrids.Add(oGrid) + End If + + If oTableCounter = 3 Then + Dim oGrid = GridLoader.GetGridFromElement(oTable) + SplitContainerControl4.Panel2.Controls.Add(oGrid) + oGrids.Add(oGrid) + End If + + If oTableCounter > 3 Then + MsgBox("Only 4 Tables are allowed currently!", MsgBoxStyle.Exclamation, Text) + End If + + oTableCounter += 1 + Next + + If oTableCounter < 3 Then + SplitContainerControl2.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1 + End If + + Return oGrids + End Function + + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + If DocumentLoader.LoadFiles(ConfigManager.Config.InputDirectory) Then + GridControlFiles.DataSource = DocumentLoader.Files + End If + End Sub + + Private Sub GridViewFiles_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewFiles.FocusedRowChanged + + Dim oDocument As Document = GridViewFiles.GetRow(e.FocusedRowHandle) + Dim oDatasources As New Dictionary(Of String, DataTable) + + For Each oRow In oDocument.Rows + Dim oGrid As GridControl = Grids. + Where(Function(g) g.Name = oRow.Name). + SingleOrDefault() + + If Not oDatasources.ContainsKey(oRow.Name) Then + Dim oTable As New DataTable() + + For Each ofield In oRow.Fields + oTable.Columns.Add(New DataColumn(ofield.Key)) + Next + oDatasources.Add(oRow.Name, oTable) + + oGrid.DataSource = oTable + End If + + Dim oDataTable = oDatasources.Item(oRow.Name) + Dim oDataRow = oDataTable.NewRow() + + For Each oField In oRow.Fields + oDataRow.Item(oField.Key) = oField.Value + Next + + oDataTable.Rows.Add(oDataRow) + oDataTable.AcceptChanges() + Next + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Dim oDocument As Document = GridViewFiles.GetRow(GridViewFiles.FocusedRowHandle) + + Using oStream As New MemoryStream() + Dim w = XmlWriter.Create(oStream) + + w.WriteStartDocument() + + w.WriteStartElement("MESOWebService") + w.WriteAttributeString("Template", oDocument.TemplateName) + w.WriteAttributeString("TemplateType", oDocument.TemplateType) + w.WriteAttributeString("option", oDocument.Option) + w.WriteAttributeString("printVoucher", oDocument.PrintVoucher) + + For Each oRow In oDocument.Rows + w.WriteStartElement(oRow.Name) + + For Each oField As KeyValuePair(Of String, String) In oRow.Fields + w.WriteStartElement(oField.Key) + w.WriteValue(oField.Value) + w.WriteEndElement() ' Field + Next + + w.WriteEndElement() ' Row + Next + + + w.WriteEndElement() ' MESOWebService + + + w.WriteEndDocument() ' Document + + w.Close() + + File.WriteAllBytes(ConfigManager.Config.OutputDirectory, oStream.ToArray) + End Using + + + + End Sub +End Class \ No newline at end of file diff --git a/EDIDocumentImport/frmImportMain_old.Designer.vb b/EDIDocumentImport/frmImportMain_old.Designer.vb new file mode 100644 index 0000000..891623c --- /dev/null +++ b/EDIDocumentImport/frmImportMain_old.Designer.vb @@ -0,0 +1,1091 @@ + +Partial Class frmImportMain_old + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Form 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 Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmImportMain_old)) + Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.btnLoadDocuments = New DevExpress.XtraBars.BarButtonItem() + Me.txtFilesLoaded = New DevExpress.XtraBars.BarHeaderItem() + Me.checkShowXml = New DevExpress.XtraBars.BarCheckItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.txtVersion = New DevExpress.XtraBars.BarStaticItem() + Me.btnDeletePosition = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() + Me.btnPreviewReport = New DevExpress.XtraBars.BarButtonItem() + Me.btnReportPreview = New DevExpress.XtraBars.BarButtonItem() + Me.btnReloadDocument = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonGroupDataLoading = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupDataTransmission = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupDocument = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupPositions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.GridControlFiles = New DevExpress.XtraGrid.GridControl() + Me.GridViewFiles = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colSelected = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFileName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFilePath = New DevExpress.XtraGrid.Columns.GridColumn() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() + Me.LayoutControlHead = New DevExpress.XtraLayout.LayoutControl() + Me.txtInfoText = New DevExpress.XtraEditors.MemoEdit() + Me.txtOrderNumber = New DevExpress.XtraEditors.TextEdit() + Me.txtStreetName = New DevExpress.XtraEditors.TextEdit() + Me.txtPlace = New DevExpress.XtraEditors.TextEdit() + Me.txtZIP = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit() + Me.txtRunningNumber = New DevExpress.XtraEditors.TextEdit() + Me.dateOrderDate = New DevExpress.XtraEditors.DateEdit() + Me.cmbMandator = New DevExpress.XtraEditors.SearchLookUpEdit() + Me.SearchLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colId = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.cmbCustomer = New DevExpress.XtraEditors.SearchLookUpEdit() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.cmbDeliveryAddress = New DevExpress.XtraEditors.SearchLookUpEdit() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.cmbYear = New DevExpress.XtraEditors.ComboBoxEdit() + Me.txtCustomerGLN = New DevExpress.XtraEditors.TextEdit() + Me.txtDeliveryAddressGLN = New DevExpress.XtraEditors.TextEdit() + Me.txtName = New DevExpress.XtraEditors.TextEdit() + Me.cmbDocumentKind = New DevExpress.XtraEditors.ComboBoxEdit() + Me.cmbOrderIssuer = New DevExpress.XtraEditors.SearchLookUpEdit() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colContactName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.TabbedControlGroup2 = New DevExpress.XtraLayout.TabbedControlGroup() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutItemOrderIssuer = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutItemOrderNumber = New DevExpress.XtraLayout.LayoutControlItem() + 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.LayoutControlItemRunningNumber = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = 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.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControlPositions = New DevExpress.XtraGrid.GridControl() + Me.GridViewPositions = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() + Me.RichEditXml = New DevExpress.XtraRichEdit.RichEditControl() + Me.SplashScreenManager1 = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.ImporterForm.frmWaitForm), True, True) + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.SuspendLayout() + CType(Me.LayoutControlHead, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlHead.SuspendLayout() + CType(Me.txtInfoText.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtOrderNumber.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtStreetName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtPlace.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtZIP.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit9.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() + CType(Me.cmbMandator.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbCustomer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbDeliveryAddress.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbDocumentKind.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbOrderIssuer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, 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.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutItemOrderNumber, System.ComponentModel.ISupportInitialize).BeginInit() + 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.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, 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.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl3.SuspendLayout() + Me.SuspendLayout() + ' + 'RibbonControl + ' + Me.RibbonControl.ApplicationButtonDropDownControl = Me.ApplicationMenu1 + 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.btnDeletePosition, Me.BarButtonItem7, Me.BarButtonItem8, Me.btnPreviewReport, Me.btnReportPreview, Me.btnReloadDocument}) + Me.RibbonControl.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl.MaxItemId = 20 + Me.RibbonControl.Name = "RibbonControl" + Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.ShowOnMultiplePages + Me.RibbonControl.ShowToolbarCustomizeItem = False + Me.RibbonControl.Size = New System.Drawing.Size(1406, 158) + Me.RibbonControl.StatusBar = Me.RibbonStatusBar + Me.RibbonControl.Toolbar.ShowCustomizeItem = False + ' + 'ApplicationMenu1 + ' + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem8) + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem3) + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem1) + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem2) + Me.ApplicationMenu1.Name = "ApplicationMenu1" + Me.ApplicationMenu1.Ribbon = Me.RibbonControl + ' + 'BarButtonItem8 + ' + Me.BarButtonItem8.Caption = "Logverzeichnis öffnen" + Me.BarButtonItem8.Id = 15 + Me.BarButtonItem8.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.singlepageview + Me.BarButtonItem8.Name = "BarButtonItem8" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Konfigurationsverzeichnis öffnen" + Me.BarButtonItem3.Id = 7 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.pagesetup + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Eingangsverzeichnis öffnen" + Me.BarButtonItem1.Id = 5 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.open2 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Ausgangsverzeichnis öffnen" + Me.BarButtonItem2.Id = 6 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.open + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'btnLoadDocuments + ' + Me.btnLoadDocuments.Caption = "Dokumente einlesen" + Me.btnLoadDocuments.Id = 1 + Me.btnLoadDocuments.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.import + Me.btnLoadDocuments.Name = "btnLoadDocuments" + ' + 'txtFilesLoaded + ' + Me.txtFilesLoaded.Caption = "Keine Dokumente geladen" + Me.txtFilesLoaded.Id = 3 + Me.txtFilesLoaded.Name = "txtFilesLoaded" + ' + 'checkShowXml + ' + Me.checkShowXml.Caption = "XML Datei anzeigen" + Me.checkShowXml.Id = 9 + Me.checkShowXml.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.showallfieldcodes + Me.checkShowXml.Name = "checkShowXml" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Aktuelle Zeile übermitteln" + Me.BarButtonItem4.Id = 10 + Me.BarButtonItem4.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.bo_validation + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "Markierte Zeilen übermitteln" + Me.BarButtonItem5.Id = 11 + Me.BarButtonItem5.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.itemtypechecked + Me.BarButtonItem5.Name = "BarButtonItem5" + ' + 'txtVersion + ' + Me.txtVersion.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.txtVersion.Caption = "Version {0}" + Me.txtVersion.Id = 12 + Me.txtVersion.Name = "txtVersion" + ' + 'btnDeletePosition + ' + Me.btnDeletePosition.Caption = "Zeile löschen" + Me.btnDeletePosition.Id = 13 + Me.btnDeletePosition.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.deletetablerows + Me.btnDeletePosition.Name = "btnDeletePosition" + ' + 'BarButtonItem7 + ' + Me.BarButtonItem7.Caption = "Artikel ersetzen" + Me.BarButtonItem7.Id = 14 + Me.BarButtonItem7.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.tableproperties + Me.BarButtonItem7.Name = "BarButtonItem7" + ' + 'btnPreviewReport + ' + Me.btnPreviewReport.Caption = "Belegvorschau für aktuelle Zeile öffnen" + Me.btnPreviewReport.Id = 16 + Me.btnPreviewReport.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.preview + Me.btnPreviewReport.Name = "btnPreviewReport" + ' + 'btnReportPreview + ' + Me.btnReportPreview.Caption = "BarButtonItem10" + Me.btnReportPreview.Id = 17 + Me.btnReportPreview.Name = "btnReportPreview" + ' + 'btnReloadDocument + ' + Me.btnReloadDocument.Caption = "Aktuelles Dokument erneut laden" + Me.btnReloadDocument.Enabled = False + Me.btnReloadDocument.Id = 18 + Me.btnReloadDocument.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.paymentrefund + Me.btnReloadDocument.Name = "btnReloadDocument" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroupDataLoading, Me.RibbonPageGroup2, Me.RibbonGroupDataTransmission, Me.RibbonGroupDocument, Me.RibbonGroupPositions}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonGroupDataLoading + ' + Me.RibbonGroupDataLoading.ItemLinks.Add(Me.btnLoadDocuments) + Me.RibbonGroupDataLoading.ItemLinks.Add(Me.btnReloadDocument) + Me.RibbonGroupDataLoading.Name = "RibbonGroupDataLoading" + Me.RibbonGroupDataLoading.Text = "Daten laden" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem8) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Konfiguration" + ' + 'RibbonGroupDataTransmission + ' + Me.RibbonGroupDataTransmission.Enabled = False + Me.RibbonGroupDataTransmission.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonGroupDataTransmission.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonGroupDataTransmission.Name = "RibbonGroupDataTransmission" + Me.RibbonGroupDataTransmission.Text = "Daten übermitteln" + ' + 'RibbonGroupDocument + ' + Me.RibbonGroupDocument.Enabled = False + Me.RibbonGroupDocument.ItemLinks.Add(Me.btnPreviewReport) + Me.RibbonGroupDocument.ItemLinks.Add(Me.checkShowXml) + Me.RibbonGroupDocument.Name = "RibbonGroupDocument" + Me.RibbonGroupDocument.Text = "Beleg" + ' + 'RibbonGroupPositions + ' + Me.RibbonGroupPositions.Enabled = False + Me.RibbonGroupPositions.ItemLinks.Add(Me.btnDeletePosition) + Me.RibbonGroupPositions.ItemLinks.Add(Me.BarButtonItem7) + Me.RibbonGroupPositions.Name = "RibbonGroupPositions" + Me.RibbonGroupPositions.Text = "Belegpositionen" + ' + 'RibbonStatusBar + ' + Me.RibbonStatusBar.ItemLinks.Add(Me.txtFilesLoaded) + Me.RibbonStatusBar.ItemLinks.Add(Me.txtVersion) + Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 752) + Me.RibbonStatusBar.Name = "RibbonStatusBar" + Me.RibbonStatusBar.Ribbon = Me.RibbonControl + Me.RibbonStatusBar.Size = New System.Drawing.Size(1406, 24) + ' + 'GridControlFiles + ' + Me.GridControlFiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlFiles.Location = New System.Drawing.Point(0, 0) + Me.GridControlFiles.MainView = Me.GridViewFiles + Me.GridControlFiles.MenuManager = Me.RibbonControl + Me.GridControlFiles.Name = "GridControlFiles" + Me.GridControlFiles.Size = New System.Drawing.Size(324, 594) + Me.GridControlFiles.TabIndex = 2 + Me.GridControlFiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFiles}) + ' + 'GridViewFiles + ' + Me.GridViewFiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelected, Me.colFileName, Me.colFilePath}) + Me.GridViewFiles.GridControl = Me.GridControlFiles + Me.GridViewFiles.Name = "GridViewFiles" + ' + 'colSelected + ' + Me.colSelected.FieldName = "Selected" + Me.colSelected.ImageOptions.SvgImage = CType(resources.GetObject("colSelected.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.colSelected.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.colSelected.Name = "colSelected" + Me.colSelected.UnboundType = DevExpress.Data.UnboundColumnType.[Boolean] + Me.colSelected.Visible = True + Me.colSelected.VisibleIndex = 0 + Me.colSelected.Width = 30 + ' + 'colFileName + ' + Me.colFileName.Caption = "Dateiname" + Me.colFileName.FieldName = "Name" + Me.colFileName.Name = "colFileName" + Me.colFileName.OptionsColumn.AllowEdit = False + Me.colFileName.OptionsColumn.ReadOnly = True + Me.colFileName.Visible = True + Me.colFileName.VisibleIndex = 1 + Me.colFileName.Width = 99 + ' + 'colFilePath + ' + Me.colFilePath.Caption = "Dateipfad" + Me.colFilePath.FieldName = "FullName" + Me.colFilePath.Name = "colFilePath" + Me.colFilePath.OptionsColumn.AllowEdit = False + Me.colFilePath.OptionsColumn.ReadOnly = True + Me.colFilePath.Visible = True + Me.colFilePath.VisibleIndex = 2 + Me.colFilePath.Width = 99 + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlFiles) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1396, 594) + Me.SplitContainerControl1.SplitterPosition = 324 + Me.SplitContainerControl1.TabIndex = 3 + ' + 'SplitContainerControl2 + ' + Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl2.Horizontal = False + Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl2.Name = "SplitContainerControl2" + Me.SplitContainerControl2.Panel1.Controls.Add(Me.LayoutControlHead) + Me.SplitContainerControl2.Panel1.Text = "Panel1" + Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControlPositions) + Me.SplitContainerControl2.Panel2.Text = "Panel2" + Me.SplitContainerControl2.Size = New System.Drawing.Size(1062, 594) + Me.SplitContainerControl2.SplitterPosition = 317 + Me.SplitContainerControl2.TabIndex = 0 + ' + 'LayoutControlHead + ' + Me.LayoutControlHead.Controls.Add(Me.txtInfoText) + Me.LayoutControlHead.Controls.Add(Me.txtOrderNumber) + Me.LayoutControlHead.Controls.Add(Me.txtStreetName) + Me.LayoutControlHead.Controls.Add(Me.txtPlace) + Me.LayoutControlHead.Controls.Add(Me.txtZIP) + Me.LayoutControlHead.Controls.Add(Me.TextEdit9) + Me.LayoutControlHead.Controls.Add(Me.txtRunningNumber) + Me.LayoutControlHead.Controls.Add(Me.dateOrderDate) + Me.LayoutControlHead.Controls.Add(Me.cmbMandator) + Me.LayoutControlHead.Controls.Add(Me.cmbCustomer) + Me.LayoutControlHead.Controls.Add(Me.cmbDeliveryAddress) + Me.LayoutControlHead.Controls.Add(Me.cmbYear) + Me.LayoutControlHead.Controls.Add(Me.txtCustomerGLN) + Me.LayoutControlHead.Controls.Add(Me.txtDeliveryAddressGLN) + Me.LayoutControlHead.Controls.Add(Me.txtName) + Me.LayoutControlHead.Controls.Add(Me.cmbDocumentKind) + Me.LayoutControlHead.Controls.Add(Me.cmbOrderIssuer) + Me.LayoutControlHead.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlHead.Enabled = False + Me.LayoutControlHead.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlHead.Name = "LayoutControlHead" + Me.LayoutControlHead.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1270, 166, 650, 400) + Me.LayoutControlHead.Root = Me.Root + Me.LayoutControlHead.Size = New System.Drawing.Size(1062, 317) + Me.LayoutControlHead.TabIndex = 0 + Me.LayoutControlHead.Text = "LayoutControl1" + ' + 'txtInfoText + ' + Me.txtInfoText.Location = New System.Drawing.Point(123, 200) + Me.txtInfoText.MenuManager = Me.RibbonControl + Me.txtInfoText.Name = "txtInfoText" + Me.txtInfoText.Size = New System.Drawing.Size(912, 90) + Me.txtInfoText.StyleController = Me.LayoutControlHead + Me.txtInfoText.TabIndex = 12 + ' + 'txtOrderNumber + ' + Me.txtOrderNumber.Location = New System.Drawing.Point(631, 170) + Me.txtOrderNumber.MenuManager = Me.RibbonControl + Me.txtOrderNumber.Name = "txtOrderNumber" + Me.txtOrderNumber.Size = New System.Drawing.Size(166, 20) + Me.txtOrderNumber.StyleController = Me.LayoutControlHead + Me.txtOrderNumber.TabIndex = 7 + ' + 'txtStreetName + ' + Me.txtStreetName.Location = New System.Drawing.Point(123, 80) + Me.txtStreetName.MenuManager = Me.RibbonControl + Me.txtStreetName.Name = "txtStreetName" + Me.txtStreetName.Size = New System.Drawing.Size(912, 20) + Me.txtStreetName.StyleController = Me.LayoutControlHead + Me.txtStreetName.TabIndex = 3 + ' + 'txtPlace + ' + Me.txtPlace.Location = New System.Drawing.Point(346, 110) + Me.txtPlace.MenuManager = Me.RibbonControl + Me.txtPlace.Name = "txtPlace" + Me.txtPlace.Size = New System.Drawing.Size(689, 20) + Me.txtPlace.StyleController = Me.LayoutControlHead + Me.txtPlace.TabIndex = 11 + ' + 'txtZIP + ' + Me.txtZIP.Location = New System.Drawing.Point(123, 110) + Me.txtZIP.MenuManager = Me.RibbonControl + Me.txtZIP.Name = "txtZIP" + Me.txtZIP.Size = New System.Drawing.Size(117, 20) + Me.txtZIP.StyleController = Me.LayoutControlHead + Me.txtZIP.TabIndex = 9 + ' + 'TextEdit9 + ' + Me.TextEdit9.Location = New System.Drawing.Point(123, 140) + Me.TextEdit9.MenuManager = Me.RibbonControl + Me.TextEdit9.Name = "TextEdit9" + Me.TextEdit9.Size = New System.Drawing.Size(912, 20) + Me.TextEdit9.StyleController = Me.LayoutControlHead + Me.TextEdit9.TabIndex = 13 + ' + 'txtRunningNumber + ' + Me.txtRunningNumber.Location = New System.Drawing.Point(123, 50) + Me.txtRunningNumber.MenuManager = Me.RibbonControl + Me.txtRunningNumber.Name = "txtRunningNumber" + Me.txtRunningNumber.Properties.ReadOnly = True + Me.txtRunningNumber.Size = New System.Drawing.Size(402, 20) + Me.txtRunningNumber.StyleController = Me.LayoutControlHead + Me.txtRunningNumber.TabIndex = 2 + ' + 'dateOrderDate + ' + Me.dateOrderDate.EditValue = Nothing + Me.dateOrderDate.Location = New System.Drawing.Point(903, 170) + 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(132, 20) + Me.dateOrderDate.StyleController = Me.LayoutControlHead + Me.dateOrderDate.TabIndex = 8 + ' + 'cmbMandator + ' + Me.cmbMandator.Location = New System.Drawing.Point(123, 80) + 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(402, 20) + Me.cmbMandator.StyleController = Me.LayoutControlHead + Me.cmbMandator.TabIndex = 4 + ' + 'SearchLookUpEdit1View + ' + Me.SearchLookUpEdit1View.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colId, Me.colName}) + Me.SearchLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus + Me.SearchLookUpEdit1View.Name = "SearchLookUpEdit1View" + Me.SearchLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False + Me.SearchLookUpEdit1View.OptionsView.ShowGroupPanel = False + ' + 'colId + ' + Me.colId.Caption = "Kürzel" + Me.colId.FieldName = "Id" + Me.colId.Name = "colId" + Me.colId.Visible = True + Me.colId.VisibleIndex = 0 + ' + 'colName + ' + Me.colName.Caption = "Bezeichnung" + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.Visible = True + Me.colName.VisibleIndex = 1 + ' + 'cmbCustomer + ' + Me.cmbCustomer.Location = New System.Drawing.Point(123, 110) + 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.NullText = "" + Me.cmbCustomer.Properties.PopupView = Me.GridView1 + Me.cmbCustomer.Size = New System.Drawing.Size(402, 20) + Me.cmbCustomer.StyleController = Me.LayoutControlHead + Me.cmbCustomer.TabIndex = 10 + ' + 'GridView1 + ' + Me.GridView1.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridView1.OptionsView.ShowGroupPanel = False + ' + 'cmbDeliveryAddress + ' + Me.cmbDeliveryAddress.Location = New System.Drawing.Point(123, 140) + 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(402, 20) + Me.cmbDeliveryAddress.StyleController = Me.LayoutControlHead + Me.cmbDeliveryAddress.TabIndex = 14 + ' + 'GridView2 + ' + Me.GridView2.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus + Me.GridView2.Name = "GridView2" + Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridView2.OptionsView.ShowGroupPanel = False + ' + 'cmbYear + ' + Me.cmbYear.Location = New System.Drawing.Point(631, 80) + Me.cmbYear.MenuManager = Me.RibbonControl + Me.cmbYear.Name = "cmbYear" + Me.cmbYear.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbYear.Size = New System.Drawing.Size(404, 20) + Me.cmbYear.StyleController = Me.LayoutControlHead + Me.cmbYear.TabIndex = 15 + ' + 'txtCustomerGLN + ' + Me.txtCustomerGLN.Location = New System.Drawing.Point(631, 110) + Me.txtCustomerGLN.MenuManager = Me.RibbonControl + Me.txtCustomerGLN.Name = "txtCustomerGLN" + Me.txtCustomerGLN.Size = New System.Drawing.Size(404, 20) + Me.txtCustomerGLN.StyleController = Me.LayoutControlHead + Me.txtCustomerGLN.TabIndex = 16 + ' + 'txtDeliveryAddressGLN + ' + Me.txtDeliveryAddressGLN.Location = New System.Drawing.Point(631, 140) + Me.txtDeliveryAddressGLN.MenuManager = Me.RibbonControl + Me.txtDeliveryAddressGLN.Name = "txtDeliveryAddressGLN" + Me.txtDeliveryAddressGLN.Size = New System.Drawing.Size(404, 20) + Me.txtDeliveryAddressGLN.StyleController = Me.LayoutControlHead + Me.txtDeliveryAddressGLN.TabIndex = 17 + ' + 'txtName + ' + Me.txtName.Location = New System.Drawing.Point(123, 50) + Me.txtName.MenuManager = Me.RibbonControl + Me.txtName.Name = "txtName" + Me.txtName.Size = New System.Drawing.Size(912, 20) + Me.txtName.StyleController = Me.LayoutControlHead + Me.txtName.TabIndex = 20 + ' + 'cmbDocumentKind + ' + Me.cmbDocumentKind.Location = New System.Drawing.Point(631, 50) + Me.cmbDocumentKind.MenuManager = Me.RibbonControl + Me.cmbDocumentKind.Name = "cmbDocumentKind" + Me.cmbDocumentKind.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbDocumentKind.Properties.PopupSizeable = True + Me.cmbDocumentKind.Size = New System.Drawing.Size(404, 20) + Me.cmbDocumentKind.StyleController = Me.LayoutControlHead + Me.cmbDocumentKind.TabIndex = 18 + ' + 'cmbOrderIssuer + ' + Me.cmbOrderIssuer.Location = New System.Drawing.Point(123, 170) + Me.cmbOrderIssuer.MenuManager = Me.RibbonControl + Me.cmbOrderIssuer.Name = "cmbOrderIssuer" + Me.cmbOrderIssuer.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbOrderIssuer.Properties.NullText = "" + Me.cmbOrderIssuer.Properties.PopupView = Me.GridView3 + Me.cmbOrderIssuer.Size = New System.Drawing.Size(402, 20) + Me.cmbOrderIssuer.StyleController = Me.LayoutControlHead + Me.cmbOrderIssuer.TabIndex = 6 + ' + 'GridView3 + ' + Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colContactName}) + Me.GridView3.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus + Me.GridView3.Name = "GridView3" + Me.GridView3.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridView3.OptionsView.ShowGroupPanel = False + ' + 'colContactName + ' + Me.colContactName.Caption = "Name" + Me.colContactName.FieldName = "Name" + Me.colContactName.Name = "colContactName" + Me.colContactName.Visible = True + Me.colContactName.VisibleIndex = 0 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.TabbedControlGroup2}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1062, 317) + Me.Root.TextVisible = False + ' + 'TabbedControlGroup2 + ' + Me.TabbedControlGroup2.Location = New System.Drawing.Point(0, 0) + Me.TabbedControlGroup2.Name = "TabbedControlGroup2" + Me.TabbedControlGroup2.SelectedTabPage = Me.LayoutControlGroup2 + Me.TabbedControlGroup2.Size = New System.Drawing.Size(1042, 297) + Me.TabbedControlGroup2.TabPages.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup2, Me.LayoutControlGroup1}) + ' + '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.LayoutControlItemRunningNumber, Me.LayoutControlItem11, Me.LayoutControlItem3}) + Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(1018, 250) + Me.LayoutControlGroup2.Text = "Basisdaten" + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.cmbCustomer + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + 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.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + 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.cmbOrderIssuer + Me.LayoutItemOrderIssuer.Location = New System.Drawing.Point(0, 120) + Me.LayoutItemOrderIssuer.Name = "LayoutItemOrderIssuer" + Me.LayoutItemOrderIssuer.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemOrderIssuer.Size = New System.Drawing.Size(508, 30) + Me.LayoutItemOrderIssuer.Text = "Ansprechpartner" + Me.LayoutItemOrderIssuer.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutItemOrderNumber + ' + Me.LayoutItemOrderNumber.Control = Me.txtOrderNumber + Me.LayoutItemOrderNumber.Location = New System.Drawing.Point(508, 120) + Me.LayoutItemOrderNumber.Name = "LayoutItemOrderNumber" + Me.LayoutItemOrderNumber.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemOrderNumber.Size = New System.Drawing.Size(272, 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(780, 120) + Me.LayoutItemOrderDate.Name = "LayoutItemOrderDate" + Me.LayoutItemOrderDate.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemOrderDate.Size = New System.Drawing.Size(238, 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(508, 60) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + 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(508, 90) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + 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, 30) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(508, 30) + Me.LayoutControlItem1.Text = "Mandant" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.cmbYear + Me.LayoutControlItem4.Location = New System.Drawing.Point(508, 30) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(510, 30) + Me.LayoutControlItem4.Text = "Wirtschaftsjahr" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(93, 13) + ' + '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(508, 30) + Me.LayoutControlItemRunningNumber.Text = "Laufnummer" + Me.LayoutControlItemRunningNumber.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.cmbDocumentKind + Me.LayoutControlItem11.Location = New System.Drawing.Point(508, 0) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem11.Size = New System.Drawing.Size(510, 30) + Me.LayoutControlItem11.Text = "Belegart" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.txtInfoText + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 150) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(1018, 100) + Me.LayoutControlItem3.Text = "Freitext" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem6, 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, 250) + 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, 160) + Me.LayoutControlItem10.Text = "Kontakt" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.txtStreetName + 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(1018, 30) + Me.LayoutControlItem6.Text = "Straße" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(93, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.txtPlace + 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.txtZIP + 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.txtName + 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) + ' + 'GridControlPositions + ' + Me.GridControlPositions.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlPositions.Enabled = False + Me.GridControlPositions.Location = New System.Drawing.Point(0, 0) + Me.GridControlPositions.MainView = Me.GridViewPositions + Me.GridControlPositions.MenuManager = Me.RibbonControl + Me.GridControlPositions.Name = "GridControlPositions" + Me.GridControlPositions.Size = New System.Drawing.Size(1062, 267) + Me.GridControlPositions.TabIndex = 0 + Me.GridControlPositions.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewPositions}) + ' + 'GridViewPositions + ' + Me.GridViewPositions.GridControl = Me.GridControlPositions + Me.GridViewPositions.Name = "GridViewPositions" + ' + 'SplitContainerControl3 + ' + Me.SplitContainerControl3.Collapsed = True + Me.SplitContainerControl3.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 158) + Me.SplitContainerControl3.Name = "SplitContainerControl3" + Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1) + Me.SplitContainerControl3.Panel1.Text = "Panel1" + Me.SplitContainerControl3.Panel2.Controls.Add(Me.RichEditXml) + Me.SplitContainerControl3.Panel2.Text = "Panel2" + Me.SplitContainerControl3.Size = New System.Drawing.Size(1406, 594) + Me.SplitContainerControl3.SplitterPosition = 1114 + Me.SplitContainerControl3.TabIndex = 6 + ' + 'RichEditXml + ' + Me.RichEditXml.ActiveViewType = DevExpress.XtraRichEdit.RichEditViewType.Simple + Me.RichEditXml.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichEditXml.LayoutUnit = DevExpress.XtraRichEdit.DocumentLayoutUnit.Pixel + Me.RichEditXml.Location = New System.Drawing.Point(0, 0) + Me.RichEditXml.MenuManager = Me.RibbonControl + Me.RichEditXml.Name = "RichEditXml" + Me.RichEditXml.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden + Me.RichEditXml.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden + Me.RichEditXml.Size = New System.Drawing.Size(0, 0) + Me.RichEditXml.TabIndex = 0 + ' + 'SplashScreenManager1 + ' + Me.SplashScreenManager1.ClosingDelay = 500 + ' + 'frmImportMain_old + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1406, 776) + Me.Controls.Add(Me.SplitContainerControl3) + Me.Controls.Add(Me.RibbonStatusBar) + Me.Controls.Add(Me.RibbonControl) + Me.IconOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.tilelabels + Me.Name = "frmImportMain_old" + Me.Ribbon = Me.RibbonControl + Me.StatusBar = Me.RibbonStatusBar + Me.Text = "EDI Dokument Import" + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.ResumeLayout(False) + CType(Me.LayoutControlHead, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlHead.ResumeLayout(False) + CType(Me.txtInfoText.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtOrderNumber.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtStreetName.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtPlace.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtZIP.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit9.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() + CType(Me.cmbMandator.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbCustomer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbDeliveryAddress.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtName.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbDocumentKind.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbOrderIssuer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, 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.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutItemOrderNumber, System.ComponentModel.ISupportInitialize).EndInit() + 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.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, 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.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonGroupDataLoading As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents GridControlFiles As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewFiles As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents LayoutControlHead As DevExpress.XtraLayout.LayoutControl + Friend WithEvents txtInfoText As DevExpress.XtraEditors.MemoEdit + Friend WithEvents txtOrderNumber As DevExpress.XtraEditors.TextEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents GridControlPositions As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewPositions As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents colFileName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFilePath As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents txtStreetName As DevExpress.XtraEditors.TextEdit + Friend WithEvents btnLoadDocuments As DevExpress.XtraBars.BarButtonItem + Friend WithEvents txtPlace As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtZIP As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit9 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 + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents RichEditXml As DevExpress.XtraRichEdit.RichEditControl + Friend WithEvents checkShowXml As DevExpress.XtraBars.BarCheckItem + Friend WithEvents cmbMandator As DevExpress.XtraEditors.SearchLookUpEdit + Friend WithEvents SearchLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents cmbCustomer As DevExpress.XtraEditors.SearchLookUpEdit + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents cmbDeliveryAddress As DevExpress.XtraEditors.SearchLookUpEdit + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonGroupDataTransmission As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents txtVersion As DevExpress.XtraBars.BarStaticItem + Friend WithEvents btnDeletePosition As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonGroupPositions As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents cmbYear As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents TabbedControlGroup2 As DevExpress.XtraLayout.TabbedControlGroup + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItemRunningNumber 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 + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutItemOrderIssuer As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutItemOrderNumber As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutItemOrderDate As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents txtCustomerGLN As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtDeliveryAddressGLN As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents btnPreviewReport As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonGroupDocument As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents btnReportPreview As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnReloadDocument As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colId As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents txtName As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents cmbDocumentKind As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu + Friend WithEvents cmbOrderIssuer As DevExpress.XtraEditors.SearchLookUpEdit + Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colContactName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager +End Class diff --git a/EDIDocumentImport/frmImportMain_old.resx b/EDIDocumentImport/frmImportMain_old.resx new file mode 100644 index 0000000..408cde9 --- /dev/null +++ b/EDIDocumentImport/frmImportMain_old.resx @@ -0,0 +1,142 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 196, 17 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrQ2lyY2xlZCI+DQogICAgPHBhdGggZD0iTTE2 + LDRDOS40LDQsNCw5LjQsNCwxNmMwLDYuNiw1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyQzI4LDkuNCwy + Mi42LDQsMTYsNHogTTE0LDIybC02LTZsMi0ybDQsNGw4LThsMiwyICAgTDE0LDIyeiIgY2xhc3M9Ikdy + ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/EDIDocumentImport/frmImportMain_old.vb b/EDIDocumentImport/frmImportMain_old.vb new file mode 100644 index 0000000..386bb0d --- /dev/null +++ b/EDIDocumentImport/frmImportMain_old.vb @@ -0,0 +1,509 @@ +Imports System.IO +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraRichEdit +Imports DevExpress.XtraEditors +Imports DevExpress.XtraReports.UI +Imports DevExpress.DataAccess.ObjectBinding +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Config +Imports DigitalData.Controls.SQLConfig +Imports DigitalData.GUIs.Common +Imports ImporterShared.Documents +Imports ImporterShared.Winline +Imports ImporterShared.Schemas +Imports ImporterForm.Positions +Imports DevExpress.XtraLayout + +Public Class frmImportMain_old + Public LogConfig As LogConfig + Public Logger As Logger + Public ConfigManager As ConfigManager(Of ImporterShared.Config) + Public Database As MSSQLServer + Public DocumentLoader As DocumentLoader + Public GridBuilder As GridBuilder + Public PositionData As PositionData + + Public Winline As Data + Public WebService As WebService + + Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + txtVersion.Caption = String.Format(txtVersion.Caption, Application.ProductVersion) + + 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, + Application.UserAppDataPath, + Application.CommonAppDataPath, + Application.StartupPath) + + ' If ConnectionString does not exist, show SQL Config Form + If ConfigManager.Config.ConnectionString = String.Empty Then + Dim oForm As New frmSQLConfig(LogConfig) With { + .FormTitle = "EDI Document Importer" + } + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + ConfigManager.Config.ConnectionString = oForm.ConnectionString + ConfigManager.Save() + End If + End If + + ' Initialize Database + Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString) + Database = New MSSQLServer(LogConfig, oConnectionString) + Winline = New Data(LogConfig, Database, ConfigManager.Config) + WebService = New WebService(LogConfig, ConfigManager.Config) + PositionData = New PositionData(LogConfig, Winline) + + ' Load WinLine Data + Winline.Mandators.Clear() + Winline.LoadMandators() + Winline.LoadEconomicYears() + Winline.LoadDocumentKinds(Winline.Mandators) + For Each oMandator In Winline.Mandators + Winline.LoadAccounts(oMandator) + Next + + ' Load data for UI Fields + cmbMandator.Properties.DataSource = Winline.Mandators + + + cmbYear.Properties.Items.AddRange(Winline.Years) + cmbYear.SelectedItem = ConfigManager.Config.GetYear() + + ' Initialize Grids + GridBuilder = New GridBuilder(New List(Of GridView) From {GridViewFiles, GridViewPositions}) + GridBuilder.WithDefaults() + PositionGrid.LoadPositionViewAndColumns(GridViewPositions, DocumentType.Order) + + ' Construct classes related to the xml data + DocumentLoader = New DocumentLoader(LogConfig, Winline) + + + Catch ex As Exception + Logger.Error(ex) + Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden der Anwendung") + MsgBox(oMessage, MsgBoxStyle.Critical, Text) + End Try + End Sub + +#Region "Helpers" + Private Function GetValidationMessage(FieldName As String) As String + Return $"Das Feld '{FieldName}' muss ausgefüllt werden!" + End Function + + Private Function GetErrorMessage(pException As Exception, pErrorText As String) + Return $"{pErrorText}:{vbNewLine}{vbNewLine}{pException.Message}" + End Function + + Private Function GetFocusedDocument() As Document + Dim oRowHandles = GridViewFiles.GetSelectedRows().ToList() + Dim oDocument As Document = GridViewFiles.GetRow(oRowHandles.First()) + Return oDocument + End Function + + Private Function GetFocusedPosition() As Position + Dim oRowHandles = GridViewPositions.GetSelectedRows().ToList() + Dim oPosition As Position = GridViewPositions.GetRow(oRowHandles.First()) + Return oPosition + End Function + + Private Sub TryOpenDirectory(pPath As String, pDisplayName As String) + If Directory.Exists(pPath) Then + Process.Start(pPath) + Else + MsgBox($"{pDisplayName} nicht konfiguriert oder nicht gefunden!", MsgBoxStyle.Exclamation, Text) + End If + End Sub +#End Region + + Private Sub btnLoadDocuments_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnLoadDocuments.ItemClick + Try + If DocumentLoader.LoadFiles(ConfigManager.Config.InputDirectory) = True Then + + RibbonGroupDataTransmission.Enabled = True + RibbonGroupDocument.Enabled = True + RibbonGroupPositions.Enabled = True + + LayoutControlHead.Enabled = True + GridControlPositions.Enabled = True + + btnReloadDocument.Enabled = True + + GridControlFiles.DataSource = DocumentLoader.Files + txtFilesLoaded.Caption = $"{DocumentLoader.Files.Count} Dokumente geladen" + End If + Catch ex As Exception + Dim oMessage = ex.Message + + If ex.InnerException IsNot Nothing Then + oMessage &= vbNewLine & vbNewLine & ex.InnerException.Message + End If + + MsgBox(oMessage, MsgBoxStyle.Critical, Text) + End Try + End Sub + + Private Sub GridViewFiles_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewFiles.FocusedRowChanged + Dim oDocument As Document = GridViewFiles.GetRow(e.FocusedRowHandle) + + If oDocument Is Nothing Then + Exit Sub + End If + + ShowDocument(oDocument) + End Sub + + Private Sub ShowDocument(pDocument As Document) + ' Load XML File in the sidebar + RichEditXml.LoadDocument(pDocument.FullName, DocumentFormat.PlainText) + + If pDocument.Mandator Is Nothing Then + Dim oForm As New frmMandatorSelection() With { + .Mandators = Winline.Mandators, + .SelectedMandator = Nothing + } + Dim oResult = oForm.ShowDialog() + + If oResult <> DialogResult.OK Then + Exit Sub + End If + + pDocument.Mandator = oForm.SelectedMandator.Id + End If + + Try + Select Case pDocument.Type + Case DocumentType.Order + MsgBox("TODO") + 'ShowOrderDocument(pDocument) + + End Select + + Catch ex As Xml.XmlException + Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments") + MsgBox(oMessage, MsgBoxStyle.Critical, Text) + Logger.Error(ex) + + Catch ex As Exceptions.NoMandatorException + Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments") + MsgBox(oMessage, MsgBoxStyle.Critical, Text) + Logger.Error(ex) + + Catch ex As Exception + Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments") + MsgBox(oMessage, MsgBoxStyle.Critical, Text) + Logger.Error(ex) + + End Try + End Sub + + 'Private Sub ShowOrderDocument(pDocument As Document) + ' If pDocument.Mandator Is Nothing Then + ' Throw New Exceptions.NoMandatorException("Es konnte kein Mandant gefunden werden") + ' End If + + ' Dim oData As Orders.Input.MESOWebService = DirectCast(pDocument.Data, Orders.Input.MESOWebService) + ' Dim oDataOriginal As Orders.Input.MESOWebService = DirectCast(pDocument.DataOriginal, Orders.Input.MESOWebService) + ' Dim oHead = Orders.Helpers.GetOrderHead(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oData) + ' Dim oHeadOriginal = Orders.Helpers.GetOrderHead(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oDataOriginal) + + ' ' --- Head Data -------------------------------------------------------------------------------------- + + ' ' Original, Unreplaced Data + ' txtCustomerGLN.Text = oHeadOriginal.Fakt_Kontonummer + ' txtDeliveryAddressGLN.Text = oHeadOriginal.Lief_Kontonummer + + ' ' Regular Data from EDI + ' txtRunningNumber.Text = oHead.Laufnummer + ' cmbOrderIssuer.Text = oHead.Bestellt_Von + ' txtOrderNumber.Text = oHead.Auftragsreferenz + ' txtInfoText.Text = oHead.Infotext + + ' Try + ' dateOrderDate.EditValue = Date.ParseExact(oHead.Datum_AuftragBestellung, "yyyy-MM-dd", Globalization.CultureInfo.InvariantCulture) + ' Catch ex As Exception + ' dateOrderDate.EditValue = Nothing + ' End Try + + ' ' --- Find Mandator -------------------------------------------------------------------------------------- + + ' Dim oMandator = Winline.Mandators. + ' Where(Function(m) m.Id = pDocument.Mandator). + ' SingleOrDefault() + ' cmbMandator.EditValue = oMandator + + ' ' --- Find DocumentKinds --------------------------------------------------------------------------------- + + ' Dim oMandatorKinds = Winline.DocumentKinds. + ' Where(Function(k) k.Mandator = oMandator.Id). + ' ToList() + ' Dim oSelectedKind = oMandatorKinds. + ' Where(Function(k) k.Id.ToString = oHead.Belegart). + ' SingleOrDefault() + + ' cmbDocumentKind.Properties.Items.Clear() + ' cmbDocumentKind.Properties.Items.AddRange(oMandatorKinds) + + ' If oSelectedKind Is Nothing Then + ' cmbDocumentKind.ErrorText = "Es wurde keine passende Belegart gefunden." + ' cmbDocumentKind.SelectedItem = Nothing + ' Else + ' cmbDocumentKind.SelectedItem = oSelectedKind + ' End If + + ' ' --- Find Accounts -------------------------------------------------------------------------------------- + + ' Dim oMandatorAccounts = Winline.Accounts. + ' Where(Function(a) a.Mandator = oMandator.Id). + ' ToList() + ' cmbCustomer.Properties.DataSource = oMandatorAccounts + ' cmbDeliveryAddress.Properties.DataSource = oMandatorAccounts + + ' ' FAKTURA + + ' If oHead.Fakt_Kontonummer = oHeadOriginal.Fakt_Kontonummer Then + ' cmbCustomer.ErrorText = GetValidationMessage("Faktura Konto") + ' cmbCustomer.EditValue = Nothing + ' Else + ' Dim oMatchingAccounts = oMandatorAccounts. + ' Where(Function(oAccount) oAccount.Id = oHead.Fakt_Kontonummer) + + ' If oMatchingAccounts.Count() > 1 Then + ' cmbCustomer.EditValue = Nothing + ' cmbCustomer.ErrorText = "Für die Kontonummer wurden mehrere Konten gefunden." + ' ElseIf oMatchingAccounts.Count() = 0 Then + ' cmbCustomer.EditValue = Nothing + ' cmbCustomer.ErrorText = "Für die Kontonummer wurde kein Konto gefunden." + ' Else + ' cmbCustomer.EditValue = oMatchingAccounts.SingleOrDefault() + ' End If + ' End If + + ' ' CONTACTS + ' If cmbCustomer.EditValue IsNot Nothing Then + ' Dim oContacts = Winline.GetContacts(oHead.Fakt_Kontonummer, oMandator) + ' cmbOrderIssuer.Properties.DataSource = oContacts + ' End If + + + ' ' DEVLIERY + ' If oHead.Lief_Kontonummer = oHeadOriginal.Lief_Kontonummer Then + ' If oHeadOriginal.Lief_Kontonummer = String.Empty Then + ' txtPlace.EditValue = oHeadOriginal.Lief_Ort + ' txtZIP.EditValue = oHeadOriginal.Lief_PLZ + ' txtStreetName.EditValue = oHeadOriginal.Lief_Strasse + ' txtName.EditValue = oHeadOriginal.Lief_Name + ' Else + ' cmbDeliveryAddress.ErrorText = GetValidationMessage("Lieferanten Konto") + ' cmbDeliveryAddress.EditValue = Nothing + ' End If + ' Else + ' Dim oMatchingAccounts = oMandatorAccounts. + ' Where(Function(oAccount) oAccount.Id = oHead.Lief_Kontonummer) + + ' If oMatchingAccounts.Count() > 1 Then + ' cmbDeliveryAddress.EditValue = Nothing + ' cmbDeliveryAddress.ErrorText = "Für die Kontonummer wurden mehrere Konten gefunden." + ' ElseIf oMatchingAccounts.Count() = 0 Then + ' cmbDeliveryAddress.EditValue = Nothing + ' cmbDeliveryAddress.ErrorText = "Für die Kontonummer wurde kein Konto gefunden." + ' Else + ' cmbDeliveryAddress.EditValue = oMatchingAccounts.SingleOrDefault() + ' End If + ' End If + + ' ' --- Find Positions ------------------------------------------------------------------------------------ + + ' Dim oPositionList = PositionData.Load(oMandator, oData, oDataOriginal) + ' GridControlPositions.DataSource = oPositionList + ' GridViewPositions.BestFitColumns() + 'End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + TryOpenDirectory(ConfigManager.Config.InputDirectory, "Eingangsverzeichnis") + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + 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 + TryOpenDirectory(oUserConfigDirectory.FullName, "Konfigurationsverzeichnis") + End Sub + + Private Sub checkShowXml_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkShowXml.CheckedChanged + SplitContainerControl3.Collapsed = Not checkShowXml.Checked + End Sub + + 'Private Async Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick + ' Dim oMessageText As String = "" + ' Dim oMessageStyle As MsgBoxStyle = MsgBoxStyle.Critical + + ' Dim oDocument As Document = GetFocusedDocument() + ' If oDocument Is Nothing Then + ' Exit Sub + ' End If + + ' SplashScreenManager1.ShowWaitForm() + ' ChangeUIState(False) + + ' Try + ' Dim oFinalDocument As Document = TransferChangesToDocument(oDocument) + ' Dim oResult = Await WebService.TransferDocumentToWinLine(oFinalDocument) + + ' oMessageText = "Beleg wurde erfolgreich übertragen!" + ' oMessageStyle = MsgBoxStyle.Information + + ' Catch ex As Exception + ' Logger.Error(ex) + + ' oMessageText = $"Fehler beim Übertragen des Dokuments:{vbNewLine}{vbNewLine}{ex.Message}" + ' oMessageStyle = MsgBoxStyle.Critical + + ' Finally + ' SplashScreenManager1.CloseWaitForm() + ' ChangeUIState(True) + + ' MsgBox(oMessageText, oMessageStyle, Text) + ' End Try + 'End Sub + + Private Sub ChangeUIState(pEnabled As Boolean) + GridControlPositions.Enabled = pEnabled + GridControlFiles.Enabled = pEnabled + LayoutControlHead.Enabled = pEnabled + + RibbonGroupDataTransmission.Enabled = pEnabled + RibbonGroupDataLoading.Enabled = pEnabled + RibbonGroupDocument.Enabled = pEnabled + RibbonGroupPositions.Enabled = pEnabled + End Sub + + 'Private Function TransferChangesToDocument(pDocument As Document) + ' Dim oData As Orders.Input.MESOWebService = pDocument.Data + + ' Try + ' Orders.Helpers.SetOrderHead(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oData, AddressOf UpdateOrderHead) + ' Catch ex As Exception + ' Logger.Error(ex) + + ' Throw ex + ' End Try + + ' Return pDocument + 'End Function + + 'Private Function UpdateOrderHead(pObject As Orders.Input.MESOWebServiceEXIMVRG_ordersT025) As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 + ' ' Update DocumentKind + ' If cmbDocumentKind.EditValue IsNot Nothing AndAlso TypeOf cmbDocumentKind.EditValue Is DocumentKind Then + ' pObject.Belegart = DirectCast(cmbDocumentKind.EditValue, DocumentKind).Id + ' End If + + ' ' Update Talking Person lol + ' If cmbOrderIssuer.EditValue IsNot Nothing AndAlso TypeOf cmbOrderIssuer.EditValue Is Contact Then + ' pObject.Bestellt_Von = DirectCast(cmbOrderIssuer.EditValue, Contact).Id + ' End If + + ' ' Update Delivery Address + ' If cmbDeliveryAddress.EditValue IsNot Nothing AndAlso TypeOf cmbDeliveryAddress.EditValue Is Account Then + ' pObject.Lief_Kontonummer = DirectCast(cmbDeliveryAddress.EditValue, Account)?.Id + ' End If + + ' ' Update Order Number + ' If txtOrderNumber.EditValue IsNot Nothing AndAlso txtOrderNumber.EditValue <> String.Empty Then + ' pObject.Auftragsreferenz = txtOrderNumber.EditValue + + ' End If + + ' ' Update Order Date + ' If dateOrderDate IsNot Nothing Then + ' pObject.Datum_AuftragBestellung = DirectCast(dateOrderDate.EditValue, Date).ToString("yyyy-MM-dd") + ' End If + + ' ' Update Extra Address + ' pObject.Lief_Name = txtName.EditValue + ' pObject.Lief_Ort = txtPlace.EditValue + ' pObject.Lief_PLZ = txtZIP.EditValue + ' pObject.Lief_Strasse = txtStreetName.EditValue + + ' Return pObject + 'End Function + + Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick + TryOpenDirectory(LogConfig.LogDirectory, "Logverzeichnis") + End Sub + + Private Sub cmbCustomer_Validating(sender As BaseEdit, e As System.ComponentModel.CancelEventArgs) Handles cmbCustomer.Validating, cmbDocumentKind.Validating, cmbMandator.Validating, cmbYear.Validating + If sender.EditValue Is Nothing Then + sender.ErrorText = "Dieses Feld muss ausgefüllt werden" + Else + sender.ErrorText = "" + End If + End Sub + 'Private Sub btnPreviewReport_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnPreviewReport.ItemClick + ' Dim oDocument As Document = GetFocusedDocument() + ' If oDocument Is Nothing Then + ' Exit Sub + ' End If + + ' Dim oReport As New OrderReport() + ' Dim oDataSource = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource With { + ' .DataSource = New Orders.ReportSource With { + ' .Head = Orders.Helpers.GetOrderHead(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oDocument.Data), + ' .Positions = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oDocument.Data) + ' } + ' } + ' oDataSource.Fill() + ' oReport.DataSource = oDataSource + + ' Dim oReportPrintTool As New ReportPrintTool(oReport) + ' oReportPrintTool.ShowPreview() + 'End Sub + + Private Sub btnReloadDocument_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnReloadDocument.ItemClick + Dim oResult = MsgBox("Wenn sie das Dokument neu laden, werden alle manuell geänderten Wert verworfen. Wollen Sie fortfahren?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) + + If oResult = MsgBoxResult.Yes Then + Dim oDocument As Document = GetFocusedDocument() + + If oDocument Is Nothing Then + Exit Sub + End If + + ShowDocument(oDocument) + End If + End Sub + + Private Sub btnDeletePosition_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeletePosition.ItemClick + Dim oPosition = GetFocusedPosition() + + If oPosition Is Nothing Then + MsgBox("Bitte wählen Sie eine Position aus!", MsgBoxStyle.Exclamation, Text) + Exit Sub + End If + + Dim oResult = MsgBox($"Wollen Sie die ausgewählte Position Artikel [{oPosition.ArticleNumber}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) + + If oResult = MsgBoxResult.Yes Then + GridViewPositions.DeleteSelectedRows() + MsgBox("Position gelöscht") + End If + End Sub + + Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick + MsgBox("Mach et!") + End Sub + + Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) + Dim oUserConfigDirectory = New FileInfo(ConfigManager.UserConfigPath).Directory + TryOpenDirectory(oUserConfigDirectory.FullName, "Konfigurationsverzeichnis") + End Sub +End Class \ No newline at end of file diff --git a/EDIDocumentImport/frmMain.Designer.vb b/EDIDocumentImport/frmMain.Designer.vb index 5de9e0e..2d5be82 100644 --- a/EDIDocumentImport/frmMain.Designer.vb +++ b/EDIDocumentImport/frmMain.Designer.vb @@ -1,9 +1,9 @@ - + _ Partial Class frmMain - Inherits DevExpress.XtraBars.Ribbon.RibbonForm + Inherits DevExpress.XtraEditors.XtraForm 'Form 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() @@ -17,1075 +17,77 @@ Partial Class frmMain 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. - + _ Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) - Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) - Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() - Me.btnLoadDocuments = New DevExpress.XtraBars.BarButtonItem() - Me.txtFilesLoaded = New DevExpress.XtraBars.BarHeaderItem() - Me.checkShowXml = New DevExpress.XtraBars.BarCheckItem() - Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() - Me.txtVersion = New DevExpress.XtraBars.BarStaticItem() - Me.btnDeletePosition = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() - Me.btnPreviewReport = New DevExpress.XtraBars.BarButtonItem() - Me.btnReportPreview = New DevExpress.XtraBars.BarButtonItem() - Me.btnReloadDocument = New DevExpress.XtraBars.BarButtonItem() - Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonGroupDataLoading = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonGroupDataTransmission = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonGroupDocument = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonGroupPositions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.GridControlFiles = New DevExpress.XtraGrid.GridControl() - Me.GridViewFiles = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colSelected = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colFileName = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colFilePath = New DevExpress.XtraGrid.Columns.GridColumn() - Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() - Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() - Me.LayoutControlHead = New DevExpress.XtraLayout.LayoutControl() - Me.txtInfoText = New DevExpress.XtraEditors.MemoEdit() - Me.txtOrderNumber = New DevExpress.XtraEditors.TextEdit() - Me.txtStreetName = New DevExpress.XtraEditors.TextEdit() - Me.txtPlace = New DevExpress.XtraEditors.TextEdit() - Me.txtZIP = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit() - Me.txtRunningNumber = New DevExpress.XtraEditors.TextEdit() - Me.dateOrderDate = New DevExpress.XtraEditors.DateEdit() - Me.cmbMandator = New DevExpress.XtraEditors.SearchLookUpEdit() - Me.SearchLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colId = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() - Me.cmbCustomer = New DevExpress.XtraEditors.SearchLookUpEdit() - Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.cmbDeliveryAddress = New DevExpress.XtraEditors.SearchLookUpEdit() - Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.cmbYear = New DevExpress.XtraEditors.ComboBoxEdit() - Me.txtCustomerGLN = New DevExpress.XtraEditors.TextEdit() - Me.txtDeliveryAddressGLN = New DevExpress.XtraEditors.TextEdit() - Me.txtName = New DevExpress.XtraEditors.TextEdit() - Me.cmbDocumentKind = New DevExpress.XtraEditors.ComboBoxEdit() - Me.cmbOrderIssuer = New DevExpress.XtraEditors.SearchLookUpEdit() - Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colContactName = New DevExpress.XtraGrid.Columns.GridColumn() - Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() - Me.TabbedControlGroup2 = New DevExpress.XtraLayout.TabbedControlGroup() - Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutItemOrderIssuer = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutItemOrderNumber = New DevExpress.XtraLayout.LayoutControlItem() - 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.LayoutControlItemRunningNumber = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem11 = 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.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() - Me.GridControlPositions = New DevExpress.XtraGrid.GridControl() - Me.GridViewPositions = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() - Me.RichEditXml = New DevExpress.XtraRichEdit.RichEditControl() - Me.SplashScreenManager1 = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.ImporterForm.frmWaitForm), True, True) - CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerControl1.SuspendLayout() - CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerControl2.SuspendLayout() - CType(Me.LayoutControlHead, System.ComponentModel.ISupportInitialize).BeginInit() - Me.LayoutControlHead.SuspendLayout() - CType(Me.txtInfoText.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtOrderNumber.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtStreetName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtPlace.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtZIP.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit9.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() - CType(Me.cmbMandator.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.cmbCustomer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.cmbDeliveryAddress.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.cmbYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.cmbDocumentKind.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.cmbOrderIssuer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView3, 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.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutItemOrderNumber, System.ComponentModel.ISupportInitialize).BeginInit() - 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.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem11, 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.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerControl3.SuspendLayout() + Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl() + Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl() + Me.ListBoxControl2 = New DevExpress.XtraEditors.ListBoxControl() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ListBoxControl2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'RibbonControl + 'LabelControl1 ' - Me.RibbonControl.ApplicationButtonDropDownControl = Me.ApplicationMenu1 - 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.btnDeletePosition, Me.BarButtonItem7, Me.BarButtonItem8, Me.btnPreviewReport, Me.btnReportPreview, Me.btnReloadDocument}) - Me.RibbonControl.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl.MaxItemId = 20 - Me.RibbonControl.Name = "RibbonControl" - Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.ShowOnMultiplePages - Me.RibbonControl.ShowToolbarCustomizeItem = False - Me.RibbonControl.Size = New System.Drawing.Size(1406, 158) - Me.RibbonControl.StatusBar = Me.RibbonStatusBar - Me.RibbonControl.Toolbar.ShowCustomizeItem = False + Me.LabelControl1.Location = New System.Drawing.Point(41, 43) + Me.LabelControl1.Name = "LabelControl1" + Me.LabelControl1.Size = New System.Drawing.Size(32, 13) + Me.LabelControl1.TabIndex = 0 + Me.LabelControl1.Text = "Import" ' - 'ApplicationMenu1 + 'LabelControl2 ' - Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem8) - Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem3) - Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem1) - Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem2) - Me.ApplicationMenu1.Name = "ApplicationMenu1" - Me.ApplicationMenu1.Ribbon = Me.RibbonControl + Me.LabelControl2.Location = New System.Drawing.Point(41, 239) + Me.LabelControl2.Name = "LabelControl2" + Me.LabelControl2.Size = New System.Drawing.Size(32, 13) + Me.LabelControl2.TabIndex = 1 + Me.LabelControl2.Text = "Export" ' - 'BarButtonItem8 + 'ListBoxControl1 ' - Me.BarButtonItem8.Caption = "Logverzeichnis öffnen" - Me.BarButtonItem8.Id = 15 - Me.BarButtonItem8.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.singlepageview - Me.BarButtonItem8.Name = "BarButtonItem8" + Me.ListBoxControl1.Location = New System.Drawing.Point(41, 62) + Me.ListBoxControl1.Name = "ListBoxControl1" + Me.ListBoxControl1.Size = New System.Drawing.Size(600, 126) + Me.ListBoxControl1.TabIndex = 2 ' - 'BarButtonItem3 + 'ListBoxControl2 ' - Me.BarButtonItem3.Caption = "Konfigurationsverzeichnis öffnen" - Me.BarButtonItem3.Id = 7 - Me.BarButtonItem3.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.pagesetup - Me.BarButtonItem3.Name = "BarButtonItem3" + Me.ListBoxControl2.Location = New System.Drawing.Point(41, 258) + Me.ListBoxControl2.Name = "ListBoxControl2" + Me.ListBoxControl2.Size = New System.Drawing.Size(600, 126) + Me.ListBoxControl2.TabIndex = 2 ' - 'BarButtonItem1 + 'SimpleButton1 ' - Me.BarButtonItem1.Caption = "Eingangsverzeichnis öffnen" - Me.BarButtonItem1.Id = 5 - Me.BarButtonItem1.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.open2 - Me.BarButtonItem1.Name = "BarButtonItem1" - ' - 'BarButtonItem2 - ' - Me.BarButtonItem2.Caption = "Ausgangsverzeichnis öffnen" - Me.BarButtonItem2.Id = 6 - Me.BarButtonItem2.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.open - Me.BarButtonItem2.Name = "BarButtonItem2" - ' - 'btnLoadDocuments - ' - Me.btnLoadDocuments.Caption = "Dokumente einlesen" - Me.btnLoadDocuments.Id = 1 - Me.btnLoadDocuments.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.import - Me.btnLoadDocuments.Name = "btnLoadDocuments" - ' - 'txtFilesLoaded - ' - Me.txtFilesLoaded.Caption = "Keine Dokumente geladen" - Me.txtFilesLoaded.Id = 3 - Me.txtFilesLoaded.Name = "txtFilesLoaded" - ' - 'checkShowXml - ' - Me.checkShowXml.Caption = "XML Datei anzeigen" - Me.checkShowXml.Id = 9 - Me.checkShowXml.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.showallfieldcodes - Me.checkShowXml.Name = "checkShowXml" - ' - 'BarButtonItem4 - ' - Me.BarButtonItem4.Caption = "Aktuelle Zeile übermitteln" - Me.BarButtonItem4.Id = 10 - Me.BarButtonItem4.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.bo_validation - Me.BarButtonItem4.Name = "BarButtonItem4" - ' - 'BarButtonItem5 - ' - Me.BarButtonItem5.Caption = "Markierte Zeilen übermitteln" - Me.BarButtonItem5.Id = 11 - Me.BarButtonItem5.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.itemtypechecked - Me.BarButtonItem5.Name = "BarButtonItem5" - ' - 'txtVersion - ' - Me.txtVersion.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right - Me.txtVersion.Caption = "Version {0}" - Me.txtVersion.Id = 12 - Me.txtVersion.Name = "txtVersion" - ' - 'btnDeletePosition - ' - Me.btnDeletePosition.Caption = "Zeile löschen" - Me.btnDeletePosition.Id = 13 - Me.btnDeletePosition.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.deletetablerows - Me.btnDeletePosition.Name = "btnDeletePosition" - ' - 'BarButtonItem7 - ' - Me.BarButtonItem7.Caption = "Artikel ersetzen" - Me.BarButtonItem7.Id = 14 - Me.BarButtonItem7.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.tableproperties - Me.BarButtonItem7.Name = "BarButtonItem7" - ' - 'btnPreviewReport - ' - Me.btnPreviewReport.Caption = "Belegvorschau für aktuelle Zeile öffnen" - Me.btnPreviewReport.Id = 16 - Me.btnPreviewReport.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.preview - Me.btnPreviewReport.Name = "btnPreviewReport" - ' - 'btnReportPreview - ' - Me.btnReportPreview.Caption = "BarButtonItem10" - Me.btnReportPreview.Id = 17 - Me.btnReportPreview.Name = "btnReportPreview" - ' - 'btnReloadDocument - ' - Me.btnReloadDocument.Caption = "Aktuelles Dokument erneut laden" - Me.btnReloadDocument.Enabled = False - Me.btnReloadDocument.Id = 18 - Me.btnReloadDocument.ImageOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.paymentrefund - Me.btnReloadDocument.Name = "btnReloadDocument" - ' - 'RibbonPage1 - ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroupDataLoading, Me.RibbonPageGroup2, Me.RibbonGroupDataTransmission, Me.RibbonGroupDocument, Me.RibbonGroupPositions}) - Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "Start" - ' - 'RibbonGroupDataLoading - ' - Me.RibbonGroupDataLoading.ItemLinks.Add(Me.btnLoadDocuments) - Me.RibbonGroupDataLoading.ItemLinks.Add(Me.btnReloadDocument) - Me.RibbonGroupDataLoading.Name = "RibbonGroupDataLoading" - Me.RibbonGroupDataLoading.Text = "Daten laden" - ' - 'RibbonPageGroup2 - ' - Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem8) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "Konfiguration" - ' - 'RibbonGroupDataTransmission - ' - Me.RibbonGroupDataTransmission.Enabled = False - Me.RibbonGroupDataTransmission.ItemLinks.Add(Me.BarButtonItem4) - Me.RibbonGroupDataTransmission.ItemLinks.Add(Me.BarButtonItem5) - Me.RibbonGroupDataTransmission.Name = "RibbonGroupDataTransmission" - Me.RibbonGroupDataTransmission.Text = "Daten übermitteln" - ' - 'RibbonGroupDocument - ' - Me.RibbonGroupDocument.Enabled = False - Me.RibbonGroupDocument.ItemLinks.Add(Me.btnPreviewReport) - Me.RibbonGroupDocument.ItemLinks.Add(Me.checkShowXml) - Me.RibbonGroupDocument.Name = "RibbonGroupDocument" - Me.RibbonGroupDocument.Text = "Beleg" - ' - 'RibbonGroupPositions - ' - Me.RibbonGroupPositions.Enabled = False - Me.RibbonGroupPositions.ItemLinks.Add(Me.btnDeletePosition) - Me.RibbonGroupPositions.ItemLinks.Add(Me.BarButtonItem7) - Me.RibbonGroupPositions.Name = "RibbonGroupPositions" - Me.RibbonGroupPositions.Text = "Belegpositionen" - ' - 'RibbonStatusBar - ' - Me.RibbonStatusBar.ItemLinks.Add(Me.txtFilesLoaded) - Me.RibbonStatusBar.ItemLinks.Add(Me.txtVersion) - Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 752) - Me.RibbonStatusBar.Name = "RibbonStatusBar" - Me.RibbonStatusBar.Ribbon = Me.RibbonControl - Me.RibbonStatusBar.Size = New System.Drawing.Size(1406, 24) - ' - 'GridControlFiles - ' - Me.GridControlFiles.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlFiles.Location = New System.Drawing.Point(0, 0) - Me.GridControlFiles.MainView = Me.GridViewFiles - Me.GridControlFiles.MenuManager = Me.RibbonControl - Me.GridControlFiles.Name = "GridControlFiles" - Me.GridControlFiles.Size = New System.Drawing.Size(324, 594) - Me.GridControlFiles.TabIndex = 2 - Me.GridControlFiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFiles}) - ' - 'GridViewFiles - ' - Me.GridViewFiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelected, Me.colFileName, Me.colFilePath}) - Me.GridViewFiles.GridControl = Me.GridControlFiles - Me.GridViewFiles.Name = "GridViewFiles" - ' - 'colSelected - ' - Me.colSelected.FieldName = "Selected" - Me.colSelected.ImageOptions.SvgImage = CType(resources.GetObject("colSelected.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.colSelected.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) - Me.colSelected.Name = "colSelected" - Me.colSelected.UnboundType = DevExpress.Data.UnboundColumnType.[Boolean] - Me.colSelected.Visible = True - Me.colSelected.VisibleIndex = 0 - Me.colSelected.Width = 30 - ' - 'colFileName - ' - Me.colFileName.Caption = "Dateiname" - Me.colFileName.FieldName = "Name" - Me.colFileName.Name = "colFileName" - Me.colFileName.OptionsColumn.AllowEdit = False - Me.colFileName.OptionsColumn.ReadOnly = True - Me.colFileName.Visible = True - Me.colFileName.VisibleIndex = 1 - Me.colFileName.Width = 99 - ' - 'colFilePath - ' - Me.colFilePath.Caption = "Dateipfad" - Me.colFilePath.FieldName = "FullName" - Me.colFilePath.Name = "colFilePath" - Me.colFilePath.OptionsColumn.AllowEdit = False - Me.colFilePath.OptionsColumn.ReadOnly = True - Me.colFilePath.Visible = True - Me.colFilePath.VisibleIndex = 2 - Me.colFilePath.Width = 99 - ' - 'SplitContainerControl1 - ' - Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) - Me.SplitContainerControl1.Name = "SplitContainerControl1" - Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlFiles) - Me.SplitContainerControl1.Panel1.Text = "Panel1" - Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2) - Me.SplitContainerControl1.Panel2.Text = "Panel2" - Me.SplitContainerControl1.Size = New System.Drawing.Size(1396, 594) - Me.SplitContainerControl1.SplitterPosition = 324 - Me.SplitContainerControl1.TabIndex = 3 - ' - 'SplitContainerControl2 - ' - Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainerControl2.Horizontal = False - Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0) - Me.SplitContainerControl2.Name = "SplitContainerControl2" - Me.SplitContainerControl2.Panel1.Controls.Add(Me.LayoutControlHead) - Me.SplitContainerControl2.Panel1.Text = "Panel1" - Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControlPositions) - Me.SplitContainerControl2.Panel2.Text = "Panel2" - Me.SplitContainerControl2.Size = New System.Drawing.Size(1062, 594) - Me.SplitContainerControl2.SplitterPosition = 317 - Me.SplitContainerControl2.TabIndex = 0 - ' - 'LayoutControlHead - ' - Me.LayoutControlHead.Controls.Add(Me.txtInfoText) - Me.LayoutControlHead.Controls.Add(Me.txtOrderNumber) - Me.LayoutControlHead.Controls.Add(Me.txtStreetName) - Me.LayoutControlHead.Controls.Add(Me.txtPlace) - Me.LayoutControlHead.Controls.Add(Me.txtZIP) - Me.LayoutControlHead.Controls.Add(Me.TextEdit9) - Me.LayoutControlHead.Controls.Add(Me.txtRunningNumber) - Me.LayoutControlHead.Controls.Add(Me.dateOrderDate) - Me.LayoutControlHead.Controls.Add(Me.cmbMandator) - Me.LayoutControlHead.Controls.Add(Me.cmbCustomer) - Me.LayoutControlHead.Controls.Add(Me.cmbDeliveryAddress) - Me.LayoutControlHead.Controls.Add(Me.cmbYear) - Me.LayoutControlHead.Controls.Add(Me.txtCustomerGLN) - Me.LayoutControlHead.Controls.Add(Me.txtDeliveryAddressGLN) - Me.LayoutControlHead.Controls.Add(Me.txtName) - Me.LayoutControlHead.Controls.Add(Me.cmbDocumentKind) - Me.LayoutControlHead.Controls.Add(Me.cmbOrderIssuer) - Me.LayoutControlHead.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControlHead.Enabled = False - Me.LayoutControlHead.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlHead.Name = "LayoutControlHead" - Me.LayoutControlHead.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1270, 166, 650, 400) - Me.LayoutControlHead.Root = Me.Root - Me.LayoutControlHead.Size = New System.Drawing.Size(1062, 317) - Me.LayoutControlHead.TabIndex = 0 - Me.LayoutControlHead.Text = "LayoutControl1" - ' - 'txtInfoText - ' - Me.txtInfoText.Location = New System.Drawing.Point(123, 200) - Me.txtInfoText.MenuManager = Me.RibbonControl - Me.txtInfoText.Name = "txtInfoText" - Me.txtInfoText.Size = New System.Drawing.Size(912, 90) - Me.txtInfoText.StyleController = Me.LayoutControlHead - Me.txtInfoText.TabIndex = 12 - ' - 'txtOrderNumber - ' - Me.txtOrderNumber.Location = New System.Drawing.Point(631, 170) - Me.txtOrderNumber.MenuManager = Me.RibbonControl - Me.txtOrderNumber.Name = "txtOrderNumber" - Me.txtOrderNumber.Size = New System.Drawing.Size(166, 20) - Me.txtOrderNumber.StyleController = Me.LayoutControlHead - Me.txtOrderNumber.TabIndex = 7 - ' - 'txtStreetName - ' - Me.txtStreetName.Location = New System.Drawing.Point(123, 80) - Me.txtStreetName.MenuManager = Me.RibbonControl - Me.txtStreetName.Name = "txtStreetName" - Me.txtStreetName.Size = New System.Drawing.Size(912, 20) - Me.txtStreetName.StyleController = Me.LayoutControlHead - Me.txtStreetName.TabIndex = 3 - ' - 'txtPlace - ' - Me.txtPlace.Location = New System.Drawing.Point(346, 110) - Me.txtPlace.MenuManager = Me.RibbonControl - Me.txtPlace.Name = "txtPlace" - Me.txtPlace.Size = New System.Drawing.Size(689, 20) - Me.txtPlace.StyleController = Me.LayoutControlHead - Me.txtPlace.TabIndex = 11 - ' - 'txtZIP - ' - Me.txtZIP.Location = New System.Drawing.Point(123, 110) - Me.txtZIP.MenuManager = Me.RibbonControl - Me.txtZIP.Name = "txtZIP" - Me.txtZIP.Size = New System.Drawing.Size(117, 20) - Me.txtZIP.StyleController = Me.LayoutControlHead - Me.txtZIP.TabIndex = 9 - ' - 'TextEdit9 - ' - Me.TextEdit9.Location = New System.Drawing.Point(123, 140) - Me.TextEdit9.MenuManager = Me.RibbonControl - Me.TextEdit9.Name = "TextEdit9" - Me.TextEdit9.Size = New System.Drawing.Size(912, 20) - Me.TextEdit9.StyleController = Me.LayoutControlHead - Me.TextEdit9.TabIndex = 13 - ' - 'txtRunningNumber - ' - Me.txtRunningNumber.Location = New System.Drawing.Point(123, 50) - Me.txtRunningNumber.MenuManager = Me.RibbonControl - Me.txtRunningNumber.Name = "txtRunningNumber" - Me.txtRunningNumber.Properties.ReadOnly = True - Me.txtRunningNumber.Size = New System.Drawing.Size(402, 20) - Me.txtRunningNumber.StyleController = Me.LayoutControlHead - Me.txtRunningNumber.TabIndex = 2 - ' - 'dateOrderDate - ' - Me.dateOrderDate.EditValue = Nothing - Me.dateOrderDate.Location = New System.Drawing.Point(903, 170) - 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(132, 20) - Me.dateOrderDate.StyleController = Me.LayoutControlHead - Me.dateOrderDate.TabIndex = 8 - ' - 'cmbMandator - ' - Me.cmbMandator.Location = New System.Drawing.Point(123, 80) - 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(402, 20) - Me.cmbMandator.StyleController = Me.LayoutControlHead - Me.cmbMandator.TabIndex = 4 - ' - 'SearchLookUpEdit1View - ' - Me.SearchLookUpEdit1View.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colId, Me.colName}) - Me.SearchLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus - Me.SearchLookUpEdit1View.Name = "SearchLookUpEdit1View" - Me.SearchLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False - Me.SearchLookUpEdit1View.OptionsView.ShowGroupPanel = False - ' - 'colId - ' - Me.colId.Caption = "Kürzel" - Me.colId.FieldName = "Id" - Me.colId.Name = "colId" - Me.colId.Visible = True - Me.colId.VisibleIndex = 0 - ' - 'colName - ' - Me.colName.Caption = "Bezeichnung" - Me.colName.FieldName = "Name" - Me.colName.Name = "colName" - Me.colName.Visible = True - Me.colName.VisibleIndex = 1 - ' - 'cmbCustomer - ' - Me.cmbCustomer.Location = New System.Drawing.Point(123, 110) - 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.NullText = "" - Me.cmbCustomer.Properties.PopupView = Me.GridView1 - Me.cmbCustomer.Size = New System.Drawing.Size(402, 20) - Me.cmbCustomer.StyleController = Me.LayoutControlHead - Me.cmbCustomer.TabIndex = 10 - ' - 'GridView1 - ' - Me.GridView1.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus - Me.GridView1.Name = "GridView1" - Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridView1.OptionsView.ShowGroupPanel = False - ' - 'cmbDeliveryAddress - ' - Me.cmbDeliveryAddress.Location = New System.Drawing.Point(123, 140) - 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(402, 20) - Me.cmbDeliveryAddress.StyleController = Me.LayoutControlHead - Me.cmbDeliveryAddress.TabIndex = 14 - ' - 'GridView2 - ' - Me.GridView2.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus - Me.GridView2.Name = "GridView2" - Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridView2.OptionsView.ShowGroupPanel = False - ' - 'cmbYear - ' - Me.cmbYear.Location = New System.Drawing.Point(631, 80) - Me.cmbYear.MenuManager = Me.RibbonControl - Me.cmbYear.Name = "cmbYear" - Me.cmbYear.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.cmbYear.Size = New System.Drawing.Size(404, 20) - Me.cmbYear.StyleController = Me.LayoutControlHead - Me.cmbYear.TabIndex = 15 - ' - 'txtCustomerGLN - ' - Me.txtCustomerGLN.Location = New System.Drawing.Point(631, 110) - Me.txtCustomerGLN.MenuManager = Me.RibbonControl - Me.txtCustomerGLN.Name = "txtCustomerGLN" - Me.txtCustomerGLN.Size = New System.Drawing.Size(404, 20) - Me.txtCustomerGLN.StyleController = Me.LayoutControlHead - Me.txtCustomerGLN.TabIndex = 16 - ' - 'txtDeliveryAddressGLN - ' - Me.txtDeliveryAddressGLN.Location = New System.Drawing.Point(631, 140) - Me.txtDeliveryAddressGLN.MenuManager = Me.RibbonControl - Me.txtDeliveryAddressGLN.Name = "txtDeliveryAddressGLN" - Me.txtDeliveryAddressGLN.Size = New System.Drawing.Size(404, 20) - Me.txtDeliveryAddressGLN.StyleController = Me.LayoutControlHead - Me.txtDeliveryAddressGLN.TabIndex = 17 - ' - 'txtName - ' - Me.txtName.Location = New System.Drawing.Point(123, 50) - Me.txtName.MenuManager = Me.RibbonControl - Me.txtName.Name = "txtName" - Me.txtName.Size = New System.Drawing.Size(912, 20) - Me.txtName.StyleController = Me.LayoutControlHead - Me.txtName.TabIndex = 20 - ' - 'cmbDocumentKind - ' - Me.cmbDocumentKind.Location = New System.Drawing.Point(631, 50) - Me.cmbDocumentKind.MenuManager = Me.RibbonControl - Me.cmbDocumentKind.Name = "cmbDocumentKind" - Me.cmbDocumentKind.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.cmbDocumentKind.Properties.PopupSizeable = True - Me.cmbDocumentKind.Size = New System.Drawing.Size(404, 20) - Me.cmbDocumentKind.StyleController = Me.LayoutControlHead - Me.cmbDocumentKind.TabIndex = 18 - ' - 'cmbOrderIssuer - ' - Me.cmbOrderIssuer.Location = New System.Drawing.Point(123, 170) - Me.cmbOrderIssuer.MenuManager = Me.RibbonControl - Me.cmbOrderIssuer.Name = "cmbOrderIssuer" - Me.cmbOrderIssuer.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.cmbOrderIssuer.Properties.NullText = "" - Me.cmbOrderIssuer.Properties.PopupView = Me.GridView3 - Me.cmbOrderIssuer.Size = New System.Drawing.Size(402, 20) - Me.cmbOrderIssuer.StyleController = Me.LayoutControlHead - Me.cmbOrderIssuer.TabIndex = 6 - ' - 'GridView3 - ' - Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colContactName}) - Me.GridView3.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus - Me.GridView3.Name = "GridView3" - Me.GridView3.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridView3.OptionsView.ShowGroupPanel = False - ' - 'colContactName - ' - Me.colContactName.Caption = "Name" - Me.colContactName.FieldName = "Name" - Me.colContactName.Name = "colContactName" - Me.colContactName.Visible = True - Me.colContactName.VisibleIndex = 0 - ' - 'Root - ' - Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.Root.GroupBordersVisible = False - Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.TabbedControlGroup2}) - Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(1062, 317) - Me.Root.TextVisible = False - ' - 'TabbedControlGroup2 - ' - Me.TabbedControlGroup2.Location = New System.Drawing.Point(0, 0) - Me.TabbedControlGroup2.Name = "TabbedControlGroup2" - Me.TabbedControlGroup2.SelectedTabPage = Me.LayoutControlGroup2 - Me.TabbedControlGroup2.Size = New System.Drawing.Size(1042, 297) - Me.TabbedControlGroup2.TabPages.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup2, Me.LayoutControlGroup1}) - ' - '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.LayoutControlItemRunningNumber, Me.LayoutControlItem11, Me.LayoutControlItem3}) - Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlGroup2.Name = "LayoutControlGroup2" - Me.LayoutControlGroup2.Size = New System.Drawing.Size(1018, 250) - Me.LayoutControlGroup2.Text = "Basisdaten" - ' - 'LayoutControlItem5 - ' - Me.LayoutControlItem5.Control = Me.cmbCustomer - Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 60) - Me.LayoutControlItem5.Name = "LayoutControlItem5" - Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - 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.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - 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.cmbOrderIssuer - Me.LayoutItemOrderIssuer.Location = New System.Drawing.Point(0, 120) - Me.LayoutItemOrderIssuer.Name = "LayoutItemOrderIssuer" - Me.LayoutItemOrderIssuer.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutItemOrderIssuer.Size = New System.Drawing.Size(508, 30) - Me.LayoutItemOrderIssuer.Text = "Ansprechpartner" - Me.LayoutItemOrderIssuer.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutItemOrderNumber - ' - Me.LayoutItemOrderNumber.Control = Me.txtOrderNumber - Me.LayoutItemOrderNumber.Location = New System.Drawing.Point(508, 120) - Me.LayoutItemOrderNumber.Name = "LayoutItemOrderNumber" - Me.LayoutItemOrderNumber.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutItemOrderNumber.Size = New System.Drawing.Size(272, 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(780, 120) - Me.LayoutItemOrderDate.Name = "LayoutItemOrderDate" - Me.LayoutItemOrderDate.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutItemOrderDate.Size = New System.Drawing.Size(238, 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(508, 60) - Me.LayoutControlItem12.Name = "LayoutControlItem12" - Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - 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(508, 90) - Me.LayoutControlItem13.Name = "LayoutControlItem13" - Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - 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, 30) - Me.LayoutControlItem1.Name = "LayoutControlItem1" - Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem1.Size = New System.Drawing.Size(508, 30) - Me.LayoutControlItem1.Text = "Mandant" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlItem4 - ' - Me.LayoutControlItem4.Control = Me.cmbYear - Me.LayoutControlItem4.Location = New System.Drawing.Point(508, 30) - Me.LayoutControlItem4.Name = "LayoutControlItem4" - Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem4.Size = New System.Drawing.Size(510, 30) - Me.LayoutControlItem4.Text = "Wirtschaftsjahr" - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(93, 13) - ' - '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(508, 30) - Me.LayoutControlItemRunningNumber.Text = "Laufnummer" - Me.LayoutControlItemRunningNumber.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlItem11 - ' - Me.LayoutControlItem11.Control = Me.cmbDocumentKind - Me.LayoutControlItem11.Location = New System.Drawing.Point(508, 0) - Me.LayoutControlItem11.Name = "LayoutControlItem11" - Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem11.Size = New System.Drawing.Size(510, 30) - Me.LayoutControlItem11.Text = "Belegart" - Me.LayoutControlItem11.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlItem3 - ' - Me.LayoutControlItem3.Control = Me.txtInfoText - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 150) - Me.LayoutControlItem3.Name = "LayoutControlItem3" - Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem3.Size = New System.Drawing.Size(1018, 100) - Me.LayoutControlItem3.Text = "Freitext" - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlGroup1 - ' - Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem6, 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, 250) - 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, 160) - Me.LayoutControlItem10.Text = "Kontakt" - Me.LayoutControlItem10.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlItem6 - ' - Me.LayoutControlItem6.Control = Me.txtStreetName - 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(1018, 30) - Me.LayoutControlItem6.Text = "Straße" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(93, 13) - ' - 'LayoutControlItem8 - ' - Me.LayoutControlItem8.Control = Me.txtPlace - 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.txtZIP - 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.txtName - 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) - ' - 'GridControlPositions - ' - Me.GridControlPositions.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlPositions.Enabled = False - Me.GridControlPositions.Location = New System.Drawing.Point(0, 0) - Me.GridControlPositions.MainView = Me.GridViewPositions - Me.GridControlPositions.MenuManager = Me.RibbonControl - Me.GridControlPositions.Name = "GridControlPositions" - Me.GridControlPositions.Size = New System.Drawing.Size(1062, 267) - Me.GridControlPositions.TabIndex = 0 - Me.GridControlPositions.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewPositions}) - ' - 'GridViewPositions - ' - Me.GridViewPositions.GridControl = Me.GridControlPositions - Me.GridViewPositions.Name = "GridViewPositions" - ' - 'SplitContainerControl3 - ' - Me.SplitContainerControl3.Collapsed = True - Me.SplitContainerControl3.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 - Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 158) - Me.SplitContainerControl3.Name = "SplitContainerControl3" - Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1) - Me.SplitContainerControl3.Panel1.Text = "Panel1" - Me.SplitContainerControl3.Panel2.Controls.Add(Me.RichEditXml) - Me.SplitContainerControl3.Panel2.Text = "Panel2" - Me.SplitContainerControl3.Size = New System.Drawing.Size(1406, 594) - Me.SplitContainerControl3.SplitterPosition = 1114 - Me.SplitContainerControl3.TabIndex = 6 - ' - 'RichEditXml - ' - Me.RichEditXml.ActiveViewType = DevExpress.XtraRichEdit.RichEditViewType.Simple - Me.RichEditXml.Dock = System.Windows.Forms.DockStyle.Fill - Me.RichEditXml.LayoutUnit = DevExpress.XtraRichEdit.DocumentLayoutUnit.Pixel - Me.RichEditXml.Location = New System.Drawing.Point(0, 0) - Me.RichEditXml.MenuManager = Me.RibbonControl - Me.RichEditXml.Name = "RichEditXml" - Me.RichEditXml.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden - Me.RichEditXml.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden - Me.RichEditXml.Size = New System.Drawing.Size(0, 0) - Me.RichEditXml.TabIndex = 0 - ' - 'SplashScreenManager1 - ' - Me.SplashScreenManager1.ClosingDelay = 500 + Me.SimpleButton1.Location = New System.Drawing.Point(608, 481) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(137, 44) + Me.SimpleButton1.TabIndex = 3 + Me.SimpleButton1.Text = "SimpleButton1" ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1406, 776) - Me.Controls.Add(Me.SplitContainerControl3) - Me.Controls.Add(Me.RibbonStatusBar) - Me.Controls.Add(Me.RibbonControl) - Me.IconOptions.SvgImage = Global.ImporterForm.My.Resources.Resources.tilelabels + Me.ClientSize = New System.Drawing.Size(757, 537) + Me.Controls.Add(Me.SimpleButton1) + Me.Controls.Add(Me.ListBoxControl2) + Me.Controls.Add(Me.ListBoxControl1) + Me.Controls.Add(Me.LabelControl2) + Me.Controls.Add(Me.LabelControl1) Me.Name = "frmMain" - Me.Ribbon = Me.RibbonControl - Me.StatusBar = Me.RibbonStatusBar - Me.Text = "EDI Dokument Import" - CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerControl1.ResumeLayout(False) - CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerControl2.ResumeLayout(False) - CType(Me.LayoutControlHead, System.ComponentModel.ISupportInitialize).EndInit() - Me.LayoutControlHead.ResumeLayout(False) - CType(Me.txtInfoText.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtOrderNumber.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtStreetName.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtPlace.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtZIP.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit9.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() - CType(Me.cmbMandator.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SearchLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.cmbCustomer.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.cmbDeliveryAddress.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.cmbYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtCustomerGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtDeliveryAddressGLN.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtName.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.cmbDocumentKind.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.cmbOrderIssuer.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView3, 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.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutItemOrderIssuer, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutItemOrderNumber, System.ComponentModel.ISupportInitialize).EndInit() - 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.LayoutControlItemRunningNumber, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem11, 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.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControlPositions, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewPositions, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerControl3.ResumeLayout(False) + Me.Text = "frmMain" + CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ListBoxControl2, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub - Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl - Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonGroupDataLoading As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar - Friend WithEvents GridControlFiles As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewFiles As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl - Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl - Friend WithEvents LayoutControlHead As DevExpress.XtraLayout.LayoutControl - Friend WithEvents txtInfoText As DevExpress.XtraEditors.MemoEdit - Friend WithEvents txtOrderNumber As DevExpress.XtraEditors.TextEdit - Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup - Friend WithEvents GridControlPositions As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewPositions As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents colFileName As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colFilePath As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents txtStreetName As DevExpress.XtraEditors.TextEdit - Friend WithEvents btnLoadDocuments As DevExpress.XtraBars.BarButtonItem - Friend WithEvents txtPlace As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtZIP As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit9 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 - Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl - Friend WithEvents RichEditXml As DevExpress.XtraRichEdit.RichEditControl - Friend WithEvents checkShowXml As DevExpress.XtraBars.BarCheckItem - Friend WithEvents cmbMandator As DevExpress.XtraEditors.SearchLookUpEdit - Friend WithEvents SearchLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents cmbCustomer As DevExpress.XtraEditors.SearchLookUpEdit - Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents cmbDeliveryAddress As DevExpress.XtraEditors.SearchLookUpEdit - Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonGroupDataTransmission As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents txtVersion As DevExpress.XtraBars.BarStaticItem - Friend WithEvents btnDeletePosition As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonGroupPositions As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents cmbYear As DevExpress.XtraEditors.ComboBoxEdit - Friend WithEvents TabbedControlGroup2 As DevExpress.XtraLayout.TabbedControlGroup - Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup - Friend WithEvents LayoutControlItemRunningNumber 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 - Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutItemOrderIssuer As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutItemOrderNumber As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutItemOrderDate As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup - Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents txtCustomerGLN As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtDeliveryAddressGLN As DevExpress.XtraEditors.TextEdit - Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents btnPreviewReport As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonGroupDocument As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents btnReportPreview As DevExpress.XtraBars.BarButtonItem - Friend WithEvents btnReloadDocument As DevExpress.XtraBars.BarButtonItem - Friend WithEvents colId As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents txtName As DevExpress.XtraEditors.TextEdit - Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents cmbDocumentKind As DevExpress.XtraEditors.ComboBoxEdit - Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu - Friend WithEvents cmbOrderIssuer As DevExpress.XtraEditors.SearchLookUpEdit - Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colContactName As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager + Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl + Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl + Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl + Friend WithEvents ListBoxControl2 As DevExpress.XtraEditors.ListBoxControl + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton End Class diff --git a/EDIDocumentImport/frmMain.resx b/EDIDocumentImport/frmMain.resx index 6c2e5c9..1af7de1 100644 --- a/EDIDocumentImport/frmMain.resx +++ b/EDIDocumentImport/frmMain.resx @@ -117,26 +117,4 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 17, 17 - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHICAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrQ2lyY2xlZCI+DQogICAgPHBhdGggZD0iTTE2 - LDRDOS40LDQsNCw5LjQsNCwxNmMwLDYuNiw1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyQzI4LDkuNCwy - Mi42LDQsMTYsNHogTTE0LDIybC02LTZsMi0ybDQsNGw4LThsMiwyICAgTDE0LDIyeiIgY2xhc3M9Ikdy - ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L - - \ No newline at end of file diff --git a/EDIDocumentImport/frmMain.vb b/EDIDocumentImport/frmMain.vb index c4c693a..13a8003 100644 --- a/EDIDocumentImport/frmMain.vb +++ b/EDIDocumentImport/frmMain.vb @@ -1,510 +1,3 @@ -Imports System.IO -Imports DevExpress.XtraGrid.Views.Grid -Imports DevExpress.XtraGrid.Columns -Imports DevExpress.XtraRichEdit -Imports DevExpress.XtraEditors -Imports DevExpress.XtraReports.UI -Imports DevExpress.DataAccess.ObjectBinding -Imports DigitalData.Modules.Logging -Imports DigitalData.Modules.Database -Imports DigitalData.Modules.Config -Imports DigitalData.Controls.SQLConfig -Imports DigitalData.GUIs.Common -Imports ImporterShared.Documents -Imports ImporterShared.Winline -Imports ImporterShared.Schemas -Imports ImporterForm.Positions -Imports DevExpress.XtraLayout +Public Class frmMain -Public Class frmMain - Public LogConfig As LogConfig - Public Logger As Logger - Public ConfigManager As ConfigManager(Of ImporterShared.Config) - Public Database As MSSQLServer - Public DocumentLoader As DocumentLoader - Public GridBuilder As GridBuilder - Public PositionData As PositionData - - Public Winline As Data - Public WebService As WebService - - Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Try - txtVersion.Caption = String.Format(txtVersion.Caption, Application.ProductVersion) - - 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, - Application.UserAppDataPath, - Application.CommonAppDataPath, - Application.StartupPath) - - ' If ConnectionString does not exist, show SQL Config Form - If ConfigManager.Config.ConnectionString = String.Empty Then - Dim oForm As New frmSQLConfig(LogConfig) With { - .FormTitle = "EDI Document Importer" - } - Dim oResult = oForm.ShowDialog() - - If oResult = DialogResult.OK Then - ConfigManager.Config.ConnectionString = oForm.ConnectionString - ConfigManager.Save() - End If - End If - - ' Initialize Database - Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString) - Database = New MSSQLServer(LogConfig, oConnectionString) - Winline = New Data(LogConfig, Database, ConfigManager.Config) - WebService = New WebService(LogConfig, ConfigManager.Config) - PositionData = New PositionData(LogConfig, Winline) - - ' Load WinLine Data - Winline.Mandators.Clear() - Winline.LoadMandators() - Winline.LoadEconomicYears() - Winline.LoadDocumentKinds(Winline.Mandators) - For Each oMandator In Winline.Mandators - Winline.LoadAccounts(oMandator) - Next - - ' Load data for UI Fields - cmbMandator.Properties.DataSource = Winline.Mandators - - - cmbYear.Properties.Items.AddRange(Winline.Years) - cmbYear.SelectedItem = ConfigManager.Config.GetYear() - - ' Initialize Grids - GridBuilder = New GridBuilder(New List(Of GridView) From {GridViewFiles, GridViewPositions}) - GridBuilder.WithDefaults() - PositionGrid.LoadPositionViewAndColumns(GridViewPositions, DocumentType.Order) - - ' Construct classes related to the xml data - DocumentLoader = New DocumentLoader(LogConfig, Winline) - - - Catch ex As Exception - Logger.Error(ex) - Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden der Anwendung") - MsgBox(oMessage, MsgBoxStyle.Critical, Text) - End Try - End Sub - -#Region "Helpers" - Private Function GetValidationMessage(FieldName As String) As String - Return $"Das Feld '{FieldName}' muss ausgefüllt werden!" - End Function - - Private Function GetErrorMessage(pException As Exception, pErrorText As String) - Return $"{pErrorText}:{vbNewLine}{vbNewLine}{pException.Message}" - End Function - - Private Function GetFocusedDocument() As Document - Dim oRowHandles = GridViewFiles.GetSelectedRows().ToList() - Dim oDocument As Document = GridViewFiles.GetRow(oRowHandles.First()) - Return oDocument - End Function - - Private Function GetFocusedPosition() As Position - Dim oRowHandles = GridViewPositions.GetSelectedRows().ToList() - Dim oPosition As Position = GridViewPositions.GetRow(oRowHandles.First()) - Return oPosition - End Function - - Private Sub TryOpenDirectory(pPath As String, pDisplayName As String) - If Directory.Exists(pPath) Then - Process.Start(pPath) - Else - MsgBox($"{pDisplayName} nicht konfiguriert oder nicht gefunden!", MsgBoxStyle.Exclamation, Text) - End If - End Sub -#End Region - - Private Sub btnLoadDocuments_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnLoadDocuments.ItemClick - Try - If DocumentLoader.LoadFiles(ConfigManager.Config.InputDirectory) = True Then - - RibbonGroupDataTransmission.Enabled = True - RibbonGroupDocument.Enabled = True - RibbonGroupPositions.Enabled = True - - LayoutControlHead.Enabled = True - GridControlPositions.Enabled = True - - btnReloadDocument.Enabled = True - - GridControlFiles.DataSource = DocumentLoader.Files - txtFilesLoaded.Caption = $"{DocumentLoader.Files.Count} Dokumente geladen" - End If - Catch ex As Exception - Dim oMessage = ex.Message - - If ex.InnerException IsNot Nothing Then - oMessage &= vbNewLine & vbNewLine & ex.InnerException.Message - End If - - MsgBox(oMessage, MsgBoxStyle.Critical, Text) - End Try - End Sub - - Private Sub GridViewFiles_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewFiles.FocusedRowChanged - Dim oDocument As Document = GridViewFiles.GetRow(e.FocusedRowHandle) - - If oDocument Is Nothing Then - Exit Sub - End If - - ShowDocument(oDocument) - End Sub - - Private Sub ShowDocument(pDocument As Document) - ' Load XML File in the sidebar - RichEditXml.LoadDocument(pDocument.FullName, DocumentFormat.PlainText) - - If pDocument.Mandator Is Nothing Then - Dim oForm As New frmMandatorSelection() With { - .Mandators = Winline.Mandators, - .SelectedMandator = Nothing - } - Dim oResult = oForm.ShowDialog() - - If oResult <> DialogResult.OK Then - Exit Sub - End If - - pDocument.Mandator = oForm.SelectedMandator.Id - End If - - Try - Select Case pDocument.Type - Case DocumentType.Order - ShowOrderDocument(pDocument) - - End Select - - Catch ex As Xml.XmlException - Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments") - MsgBox(oMessage, MsgBoxStyle.Critical, Text) - Logger.Error(ex) - - Catch ex As Exceptions.NoMandatorException - Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments") - MsgBox(oMessage, MsgBoxStyle.Critical, Text) - Logger.Error(ex) - - Catch ex As Exception - Dim oMessage = GetErrorMessage(ex, "Fehler beim Laden des Dokuments") - MsgBox(oMessage, MsgBoxStyle.Critical, Text) - Logger.Error(ex) - - End Try - End Sub - - Private Sub ShowOrderDocument(pDocument As Document) - If pDocument.Mandator Is Nothing Then - Throw New Exceptions.NoMandatorException("Es konnte kein Mandant gefunden werden") - End If - - Dim oData As Orders.Input.MESOWebService = DirectCast(pDocument.Data, Orders.Input.MESOWebService) - Dim oDataOriginal As Orders.Input.MESOWebService = DirectCast(pDocument.DataOriginal, Orders.Input.MESOWebService) - Dim oHead = Orders.Helpers.GetOrderHead(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oData) - Dim oHeadOriginal = Orders.Helpers.GetOrderHead(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oDataOriginal) - - ' --- Head Data -------------------------------------------------------------------------------------- - - ' Original, Unreplaced Data - txtCustomerGLN.Text = oHeadOriginal.Fakt_Kontonummer - txtDeliveryAddressGLN.Text = oHeadOriginal.Lief_Kontonummer - - ' Regular Data from EDI - txtRunningNumber.Text = oHead.Laufnummer - cmbOrderIssuer.Text = oHead.Fakt_Ansprechpartner - txtOrderNumber.Text = oHead.Auftragsreferenz - txtInfoText.Text = oHead.Infotext - - Try - dateOrderDate.EditValue = Date.ParseExact(oHead.Datum_AuftragBestellung, "yyyy-MM-dd", Globalization.CultureInfo.InvariantCulture) - Catch ex As Exception - dateOrderDate.EditValue = Nothing - End Try - - ' --- Find Mandator -------------------------------------------------------------------------------------- - - Dim oMandator = Winline.Mandators. - Where(Function(m) m.Id = pDocument.Mandator). - SingleOrDefault() - cmbMandator.EditValue = oMandator - - ' --- Find DocumentKinds --------------------------------------------------------------------------------- - - Dim oMandatorKinds = Winline.DocumentKinds. - Where(Function(k) k.Mandator = oMandator.Id). - ToList() - Dim oSelectedKind = oMandatorKinds. - Where(Function(k) k.Id.ToString = oHead.Belegart). - SingleOrDefault() - - cmbDocumentKind.Properties.Items.Clear() - cmbDocumentKind.Properties.Items.AddRange(oMandatorKinds) - - If oSelectedKind Is Nothing Then - cmbDocumentKind.ErrorText = "Es wurde keine passende Belegart gefunden." - cmbDocumentKind.SelectedItem = Nothing - Else - cmbDocumentKind.SelectedItem = oSelectedKind - End If - - ' --- Find Accounts -------------------------------------------------------------------------------------- - - Dim oMandatorAccounts = Winline.Accounts. - Where(Function(a) a.Mandator = oMandator.Id). - ToList() - cmbCustomer.Properties.DataSource = oMandatorAccounts - cmbDeliveryAddress.Properties.DataSource = oMandatorAccounts - - ' FAKTURA - - If oHead.Fakt_Kontonummer = oHeadOriginal.Fakt_Kontonummer Then - cmbCustomer.ErrorText = GetValidationMessage("Faktura Konto") - cmbCustomer.EditValue = Nothing - Else - Dim oMatchingAccounts = oMandatorAccounts. - Where(Function(oAccount) oAccount.Id = oHead.Fakt_Kontonummer) - - If oMatchingAccounts.Count() > 1 Then - cmbCustomer.EditValue = Nothing - cmbCustomer.ErrorText = "Für die Kontonummer wurden mehrere Konten gefunden." - ElseIf oMatchingAccounts.Count() = 0 Then - cmbCustomer.EditValue = Nothing - cmbCustomer.ErrorText = "Für die Kontonummer wurde kein Konto gefunden." - Else - cmbCustomer.EditValue = oMatchingAccounts.SingleOrDefault() - End If - End If - - ' CONTACTS - If cmbCustomer.EditValue IsNot Nothing Then - Dim oContacts = Winline.GetContacts(oHead.Fakt_Kontonummer, oMandator) - cmbOrderIssuer.Properties.DataSource = oContacts - End If - - - ' DEVLIERY - If oHead.Lief_Kontonummer = oHeadOriginal.Lief_Kontonummer Then - If oHeadOriginal.Lief_Kontonummer = String.Empty Then - txtPlace.EditValue = oHeadOriginal.Lief_Ort - txtZIP.EditValue = oHeadOriginal.Lief_PLZ - txtStreetName.EditValue = oHeadOriginal.Lief_Strasse - txtName.EditValue = oHeadOriginal.Lief_Name - Else - cmbDeliveryAddress.ErrorText = GetValidationMessage("Lieferanten Konto") - cmbDeliveryAddress.EditValue = Nothing - End If - Else - Dim oMatchingAccounts = oMandatorAccounts. - Where(Function(oAccount) oAccount.Id = oHead.Lief_Kontonummer) - - If oMatchingAccounts.Count() > 1 Then - cmbDeliveryAddress.EditValue = Nothing - cmbDeliveryAddress.ErrorText = "Für die Kontonummer wurden mehrere Konten gefunden." - ElseIf oMatchingAccounts.Count() = 0 Then - cmbDeliveryAddress.EditValue = Nothing - cmbDeliveryAddress.ErrorText = "Für die Kontonummer wurde kein Konto gefunden." - Else - cmbDeliveryAddress.EditValue = oMatchingAccounts.SingleOrDefault() - End If - End If - - ' --- Find Positions ------------------------------------------------------------------------------------ - - Dim oPositionList = PositionData.Load(oMandator, oData, oDataOriginal) - GridControlPositions.DataSource = oPositionList - GridViewPositions.BestFitColumns() - End Sub - - - - Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - TryOpenDirectory(ConfigManager.Config.InputDirectory, "Eingangsverzeichnis") - End Sub - - Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick - 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 - TryOpenDirectory(oUserConfigDirectory.FullName, "Konfigurationsverzeichnis") - End Sub - - Private Sub checkShowXml_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkShowXml.CheckedChanged - SplitContainerControl3.Collapsed = Not checkShowXml.Checked - End Sub - - Private Async Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick - Dim oMessageText As String = "" - Dim oMessageStyle As MsgBoxStyle = MsgBoxStyle.Critical - - Dim oDocument As Document = GetFocusedDocument() - If oDocument Is Nothing Then - Exit Sub - End If - - SplashScreenManager1.ShowWaitForm() - ChangeUIState(False) - - Try - Dim oFinalDocument As Document = TransferChangesToDocument(oDocument) - Dim oResult = Await WebService.TransferDocumentToWinLine(oFinalDocument) - - oMessageText = "Beleg wurde erfolgreich übertragen!" - oMessageStyle = MsgBoxStyle.Information - - Catch ex As Exception - Logger.Error(ex) - - oMessageText = $"Fehler beim Übertragen des Dokuments:{vbNewLine}{vbNewLine}{ex.Message}" - oMessageStyle = MsgBoxStyle.Critical - - Finally - SplashScreenManager1.CloseWaitForm() - ChangeUIState(True) - - MsgBox(oMessageText, oMessageStyle, Text) - End Try - End Sub - - Private Sub ChangeUIState(pEnabled As Boolean) - GridControlPositions.Enabled = pEnabled - GridControlFiles.Enabled = pEnabled - LayoutControlHead.Enabled = pEnabled - - RibbonGroupDataTransmission.Enabled = pEnabled - RibbonGroupDataLoading.Enabled = pEnabled - RibbonGroupDocument.Enabled = pEnabled - RibbonGroupPositions.Enabled = pEnabled - End Sub - - Private Function TransferChangesToDocument(pDocument As Document) - Dim oData As Orders.Input.MESOWebService = pDocument.Data - - Try - Orders.Helpers.SetOrderHead(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oData, AddressOf UpdateOrderHead) - Catch ex As Exception - Logger.Error(ex) - - Throw ex - End Try - - Return pDocument - End Function - - Private Function UpdateOrderHead(pObject As Orders.Input.MESOWebServiceEXIMVRG_ordersT025) As Orders.Input.MESOWebServiceEXIMVRG_ordersT025 - ' Update DocumentKind - If cmbDocumentKind.EditValue IsNot Nothing AndAlso TypeOf cmbDocumentKind.EditValue Is DocumentKind Then - pObject.Belegart = DirectCast(cmbDocumentKind.EditValue, DocumentKind).Id - End If - - ' Update Talking Person lol - If cmbOrderIssuer.EditValue IsNot Nothing AndAlso TypeOf cmbOrderIssuer.EditValue Is Contact Then - pObject.Fakt_Ansprechpartner = DirectCast(cmbOrderIssuer.EditValue, Contact).Id - End If - - ' Update Delivery Address - If cmbDeliveryAddress.EditValue IsNot Nothing AndAlso TypeOf cmbDeliveryAddress.EditValue Is Account Then - pObject.Lief_Kontonummer = DirectCast(cmbDeliveryAddress.EditValue, Account)?.Id - End If - - ' Update Order Number - If txtOrderNumber.EditValue IsNot Nothing AndAlso txtOrderNumber.EditValue <> String.Empty Then - pObject.Auftragsreferenz = txtOrderNumber.EditValue - - End If - - ' Update Order Date - If dateOrderDate IsNot Nothing Then - pObject.Datum_AuftragBestellung = DirectCast(dateOrderDate.EditValue, Date).ToString("yyyy-MM-dd") - End If - - ' Update Extra Address - pObject.Lief_Name = txtName.EditValue - pObject.Lief_Ort = txtPlace.EditValue - pObject.Lief_PLZ = txtZIP.EditValue - pObject.Lief_Strasse = txtStreetName.EditValue - - Return pObject - End Function - - Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick - TryOpenDirectory(LogConfig.LogDirectory, "Logverzeichnis") - End Sub - - Private Sub cmbCustomer_Validating(sender As BaseEdit, e As System.ComponentModel.CancelEventArgs) Handles cmbCustomer.Validating, cmbDocumentKind.Validating, cmbMandator.Validating, cmbYear.Validating - If sender.EditValue Is Nothing Then - sender.ErrorText = "Dieses Feld muss ausgefüllt werden" - Else - sender.ErrorText = "" - End If - End Sub - Private Sub btnPreviewReport_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnPreviewReport.ItemClick - Dim oDocument As Document = GetFocusedDocument() - If oDocument Is Nothing Then - Exit Sub - End If - - Dim oReport As New OrderReport() - Dim oDataSource = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource With { - .DataSource = New Orders.ReportSource With { - .Head = Orders.Helpers.GetOrderHead(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oDocument.Data), - .Positions = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT025)(oDocument.Data) - } - } - oDataSource.Fill() - oReport.DataSource = oDataSource - - Dim oReportPrintTool As New ReportPrintTool(oReport) - oReportPrintTool.ShowPreview() - End Sub - - Private Sub btnReloadDocument_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnReloadDocument.ItemClick - Dim oResult = MsgBox("Wenn sie das Dokument neu laden, werden alle manuell geänderten Wert verworfen. Wollen Sie fortfahren?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) - - If oResult = MsgBoxResult.Yes Then - Dim oDocument As Document = GetFocusedDocument() - - If oDocument Is Nothing Then - Exit Sub - End If - - ShowDocument(oDocument) - End If - End Sub - - Private Sub btnDeletePosition_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeletePosition.ItemClick - Dim oPosition = GetFocusedPosition() - - If oPosition Is Nothing Then - MsgBox("Bitte wählen Sie eine Position aus!", MsgBoxStyle.Exclamation, Text) - Exit Sub - End If - - Dim oResult = MsgBox($"Wollen Sie die ausgewählte Position Artikel [{oPosition.ArticleNumber}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) - - If oResult = MsgBoxResult.Yes Then - GridViewPositions.DeleteSelectedRows() - MsgBox("Position gelöscht") - End If - End Sub - - Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick - MsgBox("Mach et!") - End Sub - - Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) - Dim oUserConfigDirectory = New FileInfo(ConfigManager.UserConfigPath).Directory - TryOpenDirectory(oUserConfigDirectory.FullName, "Konfigurationsverzeichnis") - End Sub End Class \ No newline at end of file diff --git a/ImporterShared/Config.vb b/ImporterShared/Config.vb index ed39f1f..2d97f9e 100644 --- a/ImporterShared/Config.vb +++ b/ImporterShared/Config.vb @@ -1,8 +1,12 @@ Public Class Config Public Property ConnectionString As String = "" Public Property Mandators As New List(Of MandatorConfig) + Public Property InputDirectory As String = "" Public Property OutputDirectory As String = "" + + Public Property SchemaDirectory As String = "" + Public Property Webservice As New WebServiceConfig() Public Property DefaultYearOverride As Integer = 0 diff --git a/ImporterShared/Documents/Document.vb b/ImporterShared/Documents/Document.vb index 18fe299..e8cf6f4 100644 --- a/ImporterShared/Documents/Document.vb +++ b/ImporterShared/Documents/Document.vb @@ -1,19 +1,17 @@ Imports System.IO -Imports EDIDocumentImport.Data Namespace Documents Public Class Document Public File As FileInfo - Public Type As DocumentType Public Mandator As String - - Public Data As Object - Public DataOriginal As Object - Public DataOutput As Object - Public DataString As String - + Public Type As DocumentType Public Selected As Boolean = False + Public TemplateName As String + Public TemplateType As Integer + Public [Option] As Integer + Public PrintVoucher As Integer + Public ReadOnly Property FullName As String Get Return File?.FullName @@ -26,19 +24,30 @@ Namespace Documents End Get End Property - Public Shared Function GetDocumentTypeFromTemplateName(pTemplateName As String) As DocumentType - Return DocumentMatch.TypeMatchingTable. - Where(Function(kv) pTemplateName.Contains(kv.Key)). - Select(Function(kv) kv.Value). - FirstOrDefault() - End Function + Public Rows As New List(Of DocumentRow) - Public Shared Function GetDocumentSchemaFromDocumentType(pDocumentType As DocumentType) As Type - Return DocumentMatch.SchemaMatchingTable. - Where(Function(kv) pDocumentType = kv.Key). - Select(Function(kv) kv.Value). - FirstOrDefault() - End Function + ' Public Type As DocumentType + ' Public Data As Object + ' Public DataOriginal As Object + ' Public DataOutput As Object + ' Public DataString As String + + ' Public Selected As Boolean = False + + + ' Public Shared Function GetDocumentTypeFromTemplateName(pTemplateName As String) As DocumentType + ' Return DocumentMatch.TypeMatchingTable. + ' Where(Function(kv) pTemplateName.Contains(kv.Key)). + ' Select(Function(kv) kv.Value). + ' FirstOrDefault() + ' End Function + + ' Public Shared Function GetDocumentSchemaFromDocumentType(pDocumentType As DocumentType) As Type + ' Return DocumentMatch.SchemaMatchingTable. + ' Where(Function(kv) pDocumentType = kv.Key). + ' Select(Function(kv) kv.Value). + ' FirstOrDefault() + ' End Function End Class End Namespace \ No newline at end of file diff --git a/ImporterShared/Documents/DocumentLoader.vb b/ImporterShared/Documents/DocumentLoader.vb index fd70938..235b819 100644 --- a/ImporterShared/Documents/DocumentLoader.vb +++ b/ImporterShared/Documents/DocumentLoader.vb @@ -1,4 +1,6 @@ -Imports System.IO +Imports System.ComponentModel +Imports System.IO +Imports System.Reflection Imports System.Text.RegularExpressions Imports System.Xml.Serialization Imports System.Xml.XPath @@ -36,12 +38,9 @@ Namespace Documents Logger.Debug("Found [{0}] files in directory [{1}]", oFiles.Count, oDirectory) Files = oFiles. - Select(AddressOf WrapFileInfo). - Select(AddressOf LoadDocumentData). - Select(Function(oDocument) - Return MatchDataFromWinLine(oDocument, Winline.Mandators) - End Function). - ToList() + Select(AddressOf WrapFileInfo). + Select(AddressOf LoadDocumentData2). + ToList() Return True @@ -52,26 +51,66 @@ Namespace Documents End Try End Function - Private Function MatchDataFromWinLine(pDocument As Document, pMandators As List(Of Winline.Mandator)) As Document - Dim oMandators As List(Of Winline.Mandator) = pMandators. - Where(Function(m) m.IsWhitelisted = True). - OrderBy(Function(m) m.Order). - ToList() + Private Function LoadDocumentData2(pDocument As Document) As Document + Dim oText As String = IO.File.ReadAllText(pDocument.FullName) + Dim oDoc = XDocument.Parse(oText) + Dim oRootElement As XElement = XmlData.GetElement(oDoc, "MESOWebService") - If TypeOf pDocument.Data Is Schemas.Orders.Input.MESOWebService Then - Dim oMandator = Winline.FindMatchingMandatorFromOrder(pDocument.Data) - Dim oData As Schemas.Orders.Input.MESOWebService = MatchOrderData(pDocument.Data, oMandator) + Dim oTemplateName = XmlData.GetElementAttribute(oRootElement, "Template") + Dim oTemplateType = XmlData.GetElementAttribute(oRootElement, "TemplateType") + Dim oOption = XmlData.GetElementAttribute(oRootElement, "option") + Dim oPrintVoucher = XmlData.GetElementAttribute(oRootElement, "printVoucher") - If oMandator Is Nothing Then - Logger.Warn("Mandator not found for File [{0}]", pDocument.File.Name) - End If + Dim oRowElements As List(Of XElement) = oRootElement.Elements.ToList - pDocument.Mandator = oMandator.Id - pDocument.Data = oData - End If + + Dim oRows As New List(Of DocumentRow) + + For Each oElement As XElement In oRowElements + Dim oFields As New Dictionary(Of String, String) + + Dim oSubElements = oElement.Descendants().ToList() + + For Each oSubElement As XElement In oSubElements + oFields.Add(oSubElement.Name.ToString, oSubElement.Value) + Next + + Dim oRow = New DocumentRow With { + .Name = oElement.Name.ToString, + .Fields = oFields + } + + oRows.Add(oRow) + Next + + pDocument.TemplateName = oTemplateName + pDocument.TemplateType = oTemplateType + pDocument.Rows = oRows + pDocument.Option = oOption + pDocument.PrintVoucher = oPrintVoucher Return pDocument End Function + 'Private Function MatchDataFromWinLine(pDocument As Document, pMandators As List(Of Winline.Mandator)) As Document + ' Dim oMandators As List(Of Winline.Mandator) = pMandators. + ' Where(Function(m) m.IsWhitelisted = True). + ' OrderBy(Function(m) m.Order). + ' ToList() + + ' If TypeOf pDocument.Data Is Schemas.Orders.Input.MESOWebService Then + ' Dim oMandator = Winline.FindMatchingMandatorFromOrder(pDocument.Data) + ' Dim oData As Schemas.Orders.Input.MESOWebService = MatchOrderData(pDocument.Data, oMandator) + + ' If oMandator Is Nothing Then + ' Logger.Warn("Mandator not found for File [{0}]", pDocument.File.Name) + ' End If + + ' pDocument.Mandator = oMandator.Id + ' pDocument.Data = oData + ' End If + + ' Return pDocument + 'End Function Private Function MatchOrderData(pData As Input.MESOWebService, pMandator As Winline.Mandator) As Input.MESOWebService Dim oYear = Winline.GetWinLineYear() @@ -115,51 +154,77 @@ Namespace Documents Return pData End Function + Private Function WrapFileInfo(pFileInfo As FileInfo) As Document Return New Document With {.File = pFileInfo} End Function - Private Function LoadDocumentData(pDocument As Document) As Document - Using oFileStream As New FileStream(pDocument.FullName, FileMode.Open, FileAccess.Read, FileShare.Read) - Try - Dim oXmlDocument = New XPathDocument(oFileStream) - Dim oNavigator = oXmlDocument.CreateNavigator() - Dim oTemplateName = GetTemplateName(oNavigator) - Dim oDocumentType = DocumentMatch.GetDocumentTypeFromTemplateName(oTemplateName) - Dim oSchemaType = DocumentMatch.GetDocumentSchemaFromDocumentType(oDocumentType) - ' Read data the first time, working copy - Using oReader = oNavigator.ReadSubtree() - Dim oSerializer = Serializer.GetSerializer(oSchemaType) - pDocument.Data = oSerializer.Deserialize(oReader) + 'Private Function LoadDocumentData(pDocument As Document) As Document + ' Using oFileStream As New FileStream(pDocument.FullName, FileMode.Open, FileAccess.Read, FileShare.Read) + ' Try + ' Dim oXmlDocument = New XPathDocument(oFileStream) + ' Dim oDocument = oXmlDocument.CreateNavigator() + ' Dim oTemplateName = GetTemplateName(oDocument) + ' Dim oDocumentType = DocumentMatch.GetDocumentTypeFromTemplateName(oTemplateName) + ' Dim oSchemaType As Type = DocumentMatch.GetDocumentSchemaFromDocumentType(oDocumentType) - End Using + ' ' Read data the first time, working copy + ' 'Using oReader = oNavigator.ReadSubtree() + ' ' Dim oSerializer = Serializer.GetSerializer(oSchemaType) + ' ' pDocument.Data = oSerializer.Deserialize(oReader) - ' Read data the second time, archive copy - Using oReader = oNavigator.ReadSubtree() - Dim oSerializer = Serializer.GetSerializer(oSchemaType) - pDocument.DataOriginal = oSerializer.Deserialize(oReader) + ' 'End Using - End Using + ' ' Read data the second time, archive copy + ' 'Using oReader = oNavigator.ReadSubtree() + ' ' Dim oSerializer = Serializer.GetSerializer(oSchemaType) + ' ' pDocument.DataOriginal = oSerializer.Deserialize(oReader) - pDocument.Type = oDocumentType - Return pDocument - Catch ex As Exception - Logger.Error(ex) + ' 'End Using - Dim oException As Exception = ex - If ex.InnerException IsNot Nothing Then - oException = ex.InnerException - End If + ' 'Dim oInstance As Object = Activator.CreateInstance(oSchemaType) + ' 'Dim oProps = oSchemaType.GetProperties() - Throw oException - End Try - End Using - End Function + ' 'Dim oHead = oProps. + ' ' Where(Function(p) p.Name = "Head"). + ' ' SingleOrDefault() + ' 'Dim oDescriptionHead As CustomAttributeData = oHead.CustomAttributes. + ' ' Where(Function(d) d.AttributeType.Equals(GetType(DescriptionAttribute))). + ' ' SingleOrDefault() + ' 'Dim oDescriptionHeadValue = oDescriptionHead.ConstructorArguments.First().Value + ' 'Dim oHeadXml = oDocument.Select($"//MESOWebService/{oDescriptionHeadValue}") + + ' 'Dim oPositions As PropertyInfo = oProps. + ' ' Where(Function(p) p.Name = "Positions"). + ' ' SingleOrDefault() + ' 'Dim oDescriptionPos As CustomAttributeData = oPositions.CustomAttributes. + ' ' Where(Function(d) d.AttributeType.Equals(GetType(DescriptionAttribute))). + ' ' SingleOrDefault() + ' 'Dim oDescriptionPosValue = oDescriptionPos.ConstructorArguments.First().Value + ' 'Dim oPosXml = oDocument.Select($"//MESOWebService/{oDescriptionPosValue}") + + + + + ' 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 GetTemplateName(pDocument As XPathNavigator) As String Dim oTemplateName = pDocument. - SelectSingleNode("//MESOWebService"). - GetAttribute("Template", "") + SelectSingleNode("//MESOWebService"). + GetAttribute("Template", "") Return oTemplateName End Function diff --git a/ImporterShared/Documents/DocumentMatch.vb b/ImporterShared/Documents/DocumentMatch.vb index 644dfc3..3a48c89 100644 --- a/ImporterShared/Documents/DocumentMatch.vb +++ b/ImporterShared/Documents/DocumentMatch.vb @@ -8,7 +8,7 @@ } Public Shared Property SchemaMatchingTable As New Dictionary(Of DocumentType, Type) From { - {DocumentType.Order, GetType(Schemas.Orders.Input.MESOWebService)} + {DocumentType.Order, GetType(Schemas.OrderSchema)} } Public Shared Function GetDocumentTypeFromTemplateName(pTemplateName As String) As DocumentType diff --git a/ImporterShared/Documents/DocumentRow.vb b/ImporterShared/Documents/DocumentRow.vb new file mode 100644 index 0000000..8855cd5 --- /dev/null +++ b/ImporterShared/Documents/DocumentRow.vb @@ -0,0 +1,4 @@ +Public Class DocumentRow + Public Name As String + Public Fields As Dictionary(Of String, String) +End Class diff --git a/ImporterShared/ImporterShared.vbproj b/ImporterShared/ImporterShared.vbproj index 24e580b..b4258ae 100644 --- a/ImporterShared/ImporterShared.vbproj +++ b/ImporterShared/ImporterShared.vbproj @@ -54,6 +54,9 @@ ..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll + + ..\..\DDMonorepo\Modules.Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll + ..\..\DDMonorepo\Modules.Language\bin\Release\DigitalData.Modules.Language.dll @@ -93,6 +96,7 @@ + @@ -112,19 +116,23 @@ True - + - + + + + + diff --git a/ImporterShared/Mapper.vb b/ImporterShared/Mapper.vb index c2c1096..ec2dda0 100644 --- a/ImporterShared/Mapper.vb +++ b/ImporterShared/Mapper.vb @@ -5,24 +5,24 @@ Imports AutoMapper.Configuration Public Class MapperFactory Private Shared MapperConfig As Object - Public Shared Function GetMapper() As Mapper - MapperConfig = New MapperConfiguration(CreateMapperConfig()) - MapperConfig.AssertConfigurationIsValid() - Return MapperConfig.CreateMapper() - End Function + 'Public Shared Function GetMapper() As Mapper + ' MapperConfig = New MapperConfiguration(CreateMapperConfig()) + ' MapperConfig.AssertConfigurationIsValid() + ' Return MapperConfig.CreateMapper() + 'End Function - Private Shared Function CreateMapperConfig() As MapperConfigurationExpression - Dim oConfig As New MapperConfigurationExpression() + 'Private Shared Function CreateMapperConfig() As MapperConfigurationExpression + ' Dim oConfig As New MapperConfigurationExpression() - oConfig.CreateMap(Of String, Integer)().ConvertUsing(New IntegerTypeConverter()) - oConfig.CreateMap(Of String, Decimal)().ConvertUsing(New DecimalTypeConverter()) - oConfig.CreateMap(Of String, DateTime)().ConvertUsing(New DateTimeTypeConverter()) - oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebService, Schemas.Orders.Output.MESOWebService)() - oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT025, Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT025)() - oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026, Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT026)() + ' oConfig.CreateMap(Of String, Integer)().ConvertUsing(New IntegerTypeConverter()) + ' oConfig.CreateMap(Of String, Decimal)().ConvertUsing(New DecimalTypeConverter()) + ' oConfig.CreateMap(Of String, DateTime)().ConvertUsing(New DateTimeTypeConverter()) + ' oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebService, Schemas.Orders.Output.MESOWebService)() + ' oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT025, Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT025)() + ' oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026, Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT026)() - Return oConfig - End Function + ' Return oConfig + 'End Function Private Class DateTimeTypeConverter Implements ITypeConverter(Of String, DateTime) diff --git a/ImporterShared/Schemas/BaseSchema.vb b/ImporterShared/Schemas/BaseSchema.vb new file mode 100644 index 0000000..43e06e8 --- /dev/null +++ b/ImporterShared/Schemas/BaseSchema.vb @@ -0,0 +1,8 @@ +Namespace Schemas + Public Class BaseSchema + Public Property Template As String + Public Property TemplateType As Integer + Public Property [Option] As Integer + Public Property PrintVoucher As Integer + End Class +End Namespace diff --git a/ImporterShared/Schemas/IMesoWebService.vb b/ImporterShared/Schemas/IMesoWebService.vb deleted file mode 100644 index d7f7365..0000000 --- a/ImporterShared/Schemas/IMesoWebService.vb +++ /dev/null @@ -1,6 +0,0 @@ -Namespace Schemas - Public Interface IMesoWebservice - Property Items As Object() - End Interface - -End Namespace \ No newline at end of file diff --git a/ImporterShared/Schemas/Orders/Helpers.vb b/ImporterShared/Schemas/Orders/Helpers.vb index f01a74a..a69897c 100644 --- a/ImporterShared/Schemas/Orders/Helpers.vb +++ b/ImporterShared/Schemas/Orders/Helpers.vb @@ -1,28 +1,28 @@ Namespace Schemas.Orders - Public Class Helpers - Public Shared Function GetOrderHead(Of T)(pData As IMesoWebservice) As T - Dim oHead As T = pData.Items. - Where(Function(i) TypeOf i Is T). - FirstOrDefault() - Return oHead - End Function + 'Public Class Helpers + ' Public Shared Function GetOrderHead(Of T)(pData As IMesoWebservice) As T + ' Dim oHead As T = pData.Items. + ' Where(Function(i) TypeOf i Is T). + ' FirstOrDefault() + ' Return oHead + ' End Function - Public Shared Sub SetOrderHead(Of T)(pData As IMesoWebservice, pUpdateFunction As Action(Of T)) - Dim oHead As T = pData.Items. - Where(Function(i) TypeOf i Is T). - SetValue(Sub(pObject As T) - pUpdateFunction(pObject) - End Sub). - FirstOrDefault() + ' Public Shared Sub SetOrderHead(Of T)(pData As IMesoWebservice, pUpdateFunction As Action(Of T)) + ' Dim oHead As T = pData.Items. + ' Where(Function(i) TypeOf i Is T). + ' SetValue(Sub(pObject As T) + ' pUpdateFunction(pObject) + ' End Sub). + ' FirstOrDefault() - End Sub + ' End Sub - Public Shared Function GetOrderPositions(Of T)(pData As IMesoWebservice) As List(Of T) - Dim oPositions As List(Of T) = pData.Items. - Where(Function(i) TypeOf i Is T). - Select(Of T)(Function(i) i). - ToList() - Return oPositions - End Function - End Class + ' Public Shared Function GetOrderPositions(Of T)(pData As IMesoWebservice) As List(Of T) + ' Dim oPositions As List(Of T) = pData.Items. + ' Where(Function(i) TypeOf i Is T). + ' Select(Of T)(Function(i) i). + ' ToList() + ' Return oPositions + ' End Function + 'End Class End Namespace diff --git a/ImporterShared/Schemas/Orders/Input.vb b/ImporterShared/Schemas/Orders/Input.vb index d1af22d..27bfb5d 100644 --- a/ImporterShared/Schemas/Orders/Input.vb +++ b/ImporterShared/Schemas/Orders/Input.vb @@ -27,8 +27,6 @@ Namespace Schemas.Orders.Input System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=False)> Partial Public Class MESOWebService - Implements Schemas.IMesoWebservice - Private itemsField() As Object Private templateTypeField As String @@ -50,7 +48,7 @@ Namespace Schemas.Orders.Input ''' - Public Property Items() As Object() Implements Schemas.IMesoWebservice.Items + Public Property Items() As Object() Get Return Me.itemsField End Get diff --git a/ImporterShared/Schemas/Orders/OrderSchema.vb b/ImporterShared/Schemas/Orders/OrderSchema.vb new file mode 100644 index 0000000..05216e6 --- /dev/null +++ b/ImporterShared/Schemas/Orders/OrderSchema.vb @@ -0,0 +1,55 @@ +Imports System.ComponentModel + + +Namespace Schemas + + ''' + ''' XML Schema to import the Data-Files + ''' + Public Class OrderSchema + Inherits BaseSchema + + + Public Property Head As New OrderHead + + + Public Property Positions As New List(Of OrderPosition) + + + Public Class OrderHead + + Public Property DocumentKey As String + + Public Property AccountNumber As String + + Public Property RunningNumber As String + + Public Property OrderedBy As String + + Public Property AccountNumber2 As String + + Public Property DocumentType As Integer + + Public Property OrderDate As Date + + Public Property OrderNumber As String + + Public Property InfoText As String + End Class + + + Public Class OrderPosition + + Public Property DocumentKey As String + + Public Property LineNumber As String + + Public Property ArticleNumber As String + + Public Property ArticleDescription As String + + Public Property VendorNumber As String + End Class + + End Class +End Namespace \ No newline at end of file diff --git a/ImporterShared/Schemas/Orders/Output.vb b/ImporterShared/Schemas/Orders/Output.vb deleted file mode 100644 index 142adf6..0000000 --- a/ImporterShared/Schemas/Orders/Output.vb +++ /dev/null @@ -1,712 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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 Schemas.Orders.Output - - ''' - _ - 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 Date - - Private datum_AuftragBestellungFieldSpecified As Boolean - - Private auftragsBestellnummerField As String - - Private leistungsdatumField As Date - - 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 Date - 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 Date - 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 Decimal - - Private menge_bestelltFieldSpecified As Boolean - - Private menge_geliefertField As Decimal - - Private colliField As String - - Private einzelpreisField As Decimal - - 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 - 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 Decimal - 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 Decimal - 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 Decimal - 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 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 diff --git a/ImporterShared/Schemas/Schema.vb b/ImporterShared/Schemas/Schema.vb new file mode 100644 index 0000000..e4bae3f --- /dev/null +++ b/ImporterShared/Schemas/Schema.vb @@ -0,0 +1,28 @@ +Namespace Schemas + Public Class Schema + + Public Enum ColumnType As Integer + [String] + [Integer] + [Date] + [Boolean] + [Decimal] + End Enum + + Public Property Tables As New List(Of Table) + Public Property Name As String + + Class Table + Public Property Name As String + Public Property Columns As New List(Of Column) + End Class + + Class Column + Public Property Name As String + Public Property Required As String + Public Property DataType As ColumnType + End Class + + End Class +End Namespace + diff --git a/ImporterShared/Schemas/SchemaLoader.vb b/ImporterShared/Schemas/SchemaLoader.vb new file mode 100644 index 0000000..79c7f6e --- /dev/null +++ b/ImporterShared/Schemas/SchemaLoader.vb @@ -0,0 +1,116 @@ +Imports System.IO +Imports System.Xml +Imports System.Xml.XPath +Imports DigitalData.Modules.Logging + +Namespace Schemas + Public Class SchemaLoader + Inherits BaseClass + + Private ns As XNamespace = "http://www.w3.org/2001/XMLSchema" + + Public SchemaList As List(Of FileInfo) + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig, pLogConfig.GetLogger) + End Sub + + Public Function LoadFiles(pSchemaDirectory) As Boolean + If pSchemaDirectory = String.Empty Then + Throw New ArgumentNullException("SchemaDirectory") + End If + + Logger.Info("Loading files from directory [{0}]", pSchemaDirectory) + + Try + Dim oDirectory As New DirectoryInfo(pSchemaDirectory) + Dim oFiles = oDirectory.GetFiles() + + Logger.Debug("Found [{0}] files in directory [{1}]", oFiles.Count, oDirectory) + + SchemaList = oFiles.ToList() + + Return True + + Catch ex As Exception + Logger.Error(ex) + Throw New IO.IOException($"Could not load files from directory {pSchemaDirectory}", ex) + + End Try + End Function + + Public Function GetSchemaFromFile(pSchemaFilePath As String) As Schema + Dim oSchema As New Schema + Dim oElements = GetSchemaElements(pSchemaFilePath) + + For Each oElement In oElements + Dim oColumns = GetElementColumns(oElement) + Dim oSchemaColumns As New List(Of Schema.Column) + + For Each oColumn As XElement In oColumns + Dim oName = XmlData.GetElementAttribute(oColumn, "name") + Dim oMinOccurs = XmlData.GetElementAttribute(oColumn, "minOccurs") + Dim oMaxOccurs = XmlData.GetElementAttribute(oColumn, "maxOccurs") + Dim oType = GetElementType(oColumn) + Dim oRequired = False + + If oMinOccurs = 1 And oMaxOccurs = 1 Then + oRequired = True + End If + + Dim oSchemaColumn As New Schema.Column With { + .Name = oName, + .Required = oRequired, + .DataType = oType + } + oSchemaColumns.Add(oSchemaColumn) + Next + + oSchema.Tables.Add(New Schema.Table With { + .Name = XmlData.GetElementAttribute(oElement, "name"), + .Columns = oSchemaColumns + }) + + Next + + Return oSchema + End Function + + Public Function GetElementType(pElement As XElement) As Schema.ColumnType + Dim oTypeString = XmlData.GetElementAttribute(pElement, "type") + + If oTypeString Is Nothing Then + Dim oRestrictionElement As XElement = pElement. + Descendants(ns + "restriction"). + FirstOrDefault() + + oTypeString = XmlData.GetElementAttribute(oRestrictionElement, "base") + End If + + Select Case oTypeString + Case "xs:date" + Return Schema.ColumnType.Date + Case "xs:integer" + Return Schema.ColumnType.Integer + Case "xs:decimal" + Return Schema.ColumnType.Decimal + Case "xs:boolean" + Return Schema.ColumnType.Boolean + Case Else + Return Schema.ColumnType.String + End Select + End Function + + Public Function GetSchemaElements(pSchemaFilePath As String) As List(Of XElement) + Dim oText As String = IO.File.ReadAllText(pSchemaFilePath) + Dim oDoc = XDocument.Parse(oText) + + Return XmlData.GetElementsFromElement(oDoc, "choice", ns) + End Function + + Public Function GetElementColumns(pElement As XElement) As List(Of XElement) + Return XmlData.GetElementsFromElement(pElement, "sequence", ns) + End Function + End Class + +End Namespace diff --git a/ImporterShared/Winline/Data.vb b/ImporterShared/Winline/Data.vb index bff70b5..0b1d5d6 100644 --- a/ImporterShared/Winline/Data.vb +++ b/ImporterShared/Winline/Data.vb @@ -16,6 +16,8 @@ Namespace Winline Public Mandators As New List(Of Mandator) Public DocumentKinds As New List(Of DocumentKind) Public Years As List(Of Integer) + Public XmlConfigHead As List(Of XmlItem) + Public XmlConfigPositions As List(Of XmlItem) Public Const ALL_MESOCOMP = "mesocomp" @@ -134,8 +136,6 @@ Namespace Winline Dim oDocumentKinds As New List(Of DocumentKind) Dim oMandatorString = String.Join(",", pMandators.Select(Function(m) $"'{m.Id}'").ToArray) Dim oYear As Integer = GetWinLineYear() - - DocumentKinds.Clear() For Each oMandator As Mandator In pMandators @@ -348,8 +348,8 @@ Namespace Winline Dim oYear = GetWinLineYear() Dim oMandatorId As String = String.Empty Dim oWhitelistedMandators = Mandators. - Where(Function(m) m.IsWhitelisted = True). - ToList() + Where(Function(m) m.IsWhitelisted = True). + ToList() For Each oPos In oPositions For Each oMandator In oWhitelistedMandators @@ -413,6 +413,24 @@ Namespace Winline End If End Function + Public Sub GetXmlConfiguration() + Try + Dim oSql = $"SELECT XML_NAME, XML_ROOT, DATA_TYPE, IS_HEAD FROM [DD_ECM].[dbo].[VWEDI_XML_ITEMS]" + Dim oTable As DataTable = Database.GetDatatable(oSql) + + For Each oRow As DataRow In oTable.Rows + Dim oXmlItem As New XmlItem With { + .Name = oRow.Item("XML_NAME"), + .Root = oRow.Item("XML_ROOT"), + .Type = oRow.Item("XML_TYPE") + } + Next + + Catch ex As Exception + + End Try + End Sub + ''' ''' Turns a database info like "SQLCWLDATEN on SERVER\INSTANCE" into a Tuple of two strings ''' @@ -437,5 +455,7 @@ Namespace Winline Split(oDelimiter, StringSplitOptions.None). ToList() End Function + + End Class End Namespace diff --git a/ImporterShared/Winline/Entities/XmlItem.vb b/ImporterShared/Winline/Entities/XmlItem.vb new file mode 100644 index 0000000..668b822 --- /dev/null +++ b/ImporterShared/Winline/Entities/XmlItem.vb @@ -0,0 +1,9 @@ +Namespace Winline + Public Class XmlItem + Public Name As String + Public Root As String + Public Type As String + Public IsHead As Boolean + End Class + +End Namespace \ No newline at end of file diff --git a/ImporterShared/Winline/WebService.vb b/ImporterShared/Winline/WebService.vb index e36fcdc..83eb44b 100644 --- a/ImporterShared/Winline/WebService.vb +++ b/ImporterShared/Winline/WebService.vb @@ -22,85 +22,85 @@ Namespace Winline FileEx = New File(pLogConfig) Serializer = New Serializer(pLogConfig) Config = pConfig - Mapper = MapperFactory.GetMapper() + 'Mapper = MapperFactory.GetMapper() End Sub - Public Async Function TransferDocumentToWinLine(pDocument As Document) As Task(Of Boolean) - If TypeOf pDocument.Data Is Schemas.Orders.Input.MESOWebService Then - Return Await TransferOrderToWinline(pDocument) - Else - Return False - End If - End Function + 'Public Async Function TransferDocumentToWinLine(pDocument As Document) As Task(Of Boolean) + ' If TypeOf pDocument.Data Is Schemas.Orders.Input.MESOWebService Then + ' Return Await TransferOrderToWinline(pDocument) + ' Else + ' Return False + ' End If + 'End Function - Private Async Function TransferOrderToWinline(pDocument As Document) As Task(Of Boolean) - Dim oOrderOutput = TransformOrderToOutput(pDocument.Data) - Dim oWS As Config.WebServiceConfig = Config.Webservice + 'Private Async Function TransferOrderToWinline(pDocument As Document) As Task(Of Boolean) + ' Dim oOrderOutput = TransformOrderToOutput(pDocument.Data) + ' Dim oWS As Config.WebServiceConfig = Config.Webservice - ' --- Get and create path for request/response files + ' ' --- Get and create path for request/response files - Dim oPath As String = GetBaseWebServicePath() - If IO.Directory.Exists(oPath) = False Then - IO.Directory.CreateDirectory(oPath) - End If + ' Dim oPath As String = GetBaseWebServicePath() + ' If IO.Directory.Exists(oPath) = False Then + ' IO.Directory.CreateDirectory(oPath) + ' End If - ' --- Build all teh filenamez and pathz + ' ' --- Build all teh filenamez and pathz - Dim oBaseFileName As String = GetBaseFilenameForRequest() - Dim oFileName = GetXmlFilenameWithSuffix(oBaseFileName, "Request", "xml") + ' Dim oBaseFileName As String = GetBaseFilenameForRequest() + ' Dim oFileName = GetXmlFilenameWithSuffix(oBaseFileName, "Request", "xml") - ' Relative Path for Webservice Call - Dim oImportRelativeFilePath = IO.Path.Combine(GetDateSubDirectoryPath(Config.Webservice.ImportRelativePath), oFileName) + ' ' Relative Path for Webservice Call + ' Dim oImportRelativeFilePath = IO.Path.Combine(GetDateSubDirectoryPath(Config.Webservice.ImportRelativePath), oFileName) - ' Absolute Path to copy Request file - Dim oImportAbsolutePath = IO.Path.Combine(Config.Webservice.ImportBasePath, Config.Webservice.ImportRelativePath) - Dim oImportAbsoluteFilePath = IO.Path.Combine(GetDateSubDirectoryPath(oImportAbsolutePath), oFileName) + ' ' Absolute Path to copy Request file + ' Dim oImportAbsolutePath = IO.Path.Combine(Config.Webservice.ImportBasePath, Config.Webservice.ImportRelativePath) + ' Dim oImportAbsoluteFilePath = IO.Path.Combine(GetDateSubDirectoryPath(oImportAbsolutePath), oFileName) - ' --- Serialize Data into XML string + ' ' --- Serialize Data into XML string - Dim oOutputFilePath = SerializeOrder(oOrderOutput, oFileName) + ' Dim oOutputFilePath = SerializeOrder(oOrderOutput, oFileName) - ' --- Copy file to Winline Import Directory + ' ' --- Copy file to Winline Import Directory - Try - IO.File.Copy(oOutputFilePath, oImportAbsoluteFilePath, True) - Catch ex As Exception - Logger.Error(ex) - Throw ex - End Try + ' Try + ' IO.File.Copy(oOutputFilePath, oImportAbsoluteFilePath, True) + ' Catch ex As Exception + ' Logger.Error(ex) + ' Throw ex + ' End Try - ' --- Prepare URL and HTTP Client - Dim oTemplateType = 30 - Dim oTemplateName = "EXIM-VRG_orders" + ' ' --- Prepare URL and HTTP Client + ' Dim oTemplateType = 30 + ' Dim oTemplateName = "EXIM-VRG_orders" - ' ActionCode: Should this be a test or not? - ' 0 = Testcall - ' 1 = Real call - Dim oActionCode = 1 + ' ' ActionCode: Should this be a test or not? + ' ' 0 = Testcall + ' ' 1 = Real call + ' Dim oActionCode = 1 - ' Byref: Should data be supplied as file or as string? - ' 0 = As String - ' 1 = As File (relative to Winline Server directory) - Dim oByref = 1 + ' ' Byref: Should data be supplied as file or as string? + ' ' 0 = As String + ' ' 1 = As File (relative to Winline Server directory) + ' Dim oByref = 1 - Dim oURL As String = $"{oWS.BaseUrl}/ewlservice/import?User={oWS.Username}&Password={oWS.Password}&Company={pDocument.Mandator}&Type={oTemplateType}&Vorlage={oTemplateName}&ActionCode={oActionCode}&Byref={oByref}&Data={oImportRelativeFilePath}" - Dim oClient As New HttpClient() + ' Dim oURL As String = $"{oWS.BaseUrl}/ewlservice/import?User={oWS.Username}&Password={oWS.Password}&Company={pDocument.Mandator}&Type={oTemplateType}&Vorlage={oTemplateName}&ActionCode={oActionCode}&Byref={oByref}&Data={oImportRelativeFilePath}" + ' Dim oClient As New HttpClient() - Logger.Info("Creating HTTP Request to [{0}]", oWS.BaseUrl) + ' Logger.Info("Creating HTTP Request to [{0}]", oWS.BaseUrl) - ' --- Bring the action! - Try - Dim oResponse As HttpResponseMessage = Await oClient.GetAsync(oURL) - Await HandleResponse(oResponse, oPath, oBaseFileName) + ' ' --- Bring the action! + ' Try + ' Dim oResponse As HttpResponseMessage = Await oClient.GetAsync(oURL) + ' Await HandleResponse(oResponse, oPath, oBaseFileName) - Return True - Catch ex As Exception - Logger.Error(ex) - Throw ex - Finally - oClient.Dispose() - End Try - End Function + ' Return True + ' Catch ex As Exception + ' Logger.Error(ex) + ' Throw ex + ' Finally + ' oClient.Dispose() + ' End Try + 'End Function Private Async Function HandleResponse(pResponse As HttpResponseMessage, pPath As String, pBaseFileNAme As String) As Task pResponse.EnsureSuccessStatusCode() @@ -155,35 +155,35 @@ Namespace Winline End Try End Function - Private Function TransformOrderToOutput(pData As Schemas.Orders.Input.MESOWebService) As Schemas.Orders.Output.MESOWebService - Dim oData As Schemas.Orders.Input.MESOWebService = pData - Dim oResult As Schemas.Orders.Output.MESOWebService = Mapper.Map(Of Schemas.Orders.Output.MESOWebService)(oData) + 'Private Function TransformOrderToOutput(pData As Schemas.Orders.Input.MESOWebService) As Schemas.Orders.Output.MESOWebService + ' Dim oData As Schemas.Orders.Input.MESOWebService = pData + ' Dim oResult As Schemas.Orders.Output.MESOWebService = Mapper.Map(Of Schemas.Orders.Output.MESOWebService)(oData) - Dim oItems = oData.Items. - Select(Function(i) - If TypeOf i Is Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT025 Then - Return Mapper.Map(Of Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT025)(i) - Else - Return Mapper.Map(Of Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT026)(i) - End If - End Function). - ToList() + ' Dim oItems = oData.Items. + ' Select(Function(i) + ' If TypeOf i Is Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT025 Then + ' Return Mapper.Map(Of Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT025)(i) + ' Else + ' Return Mapper.Map(Of Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT026)(i) + ' End If + ' End Function). + ' ToList() - oResult.Items = oItems.ToArray() - Return oResult - End Function + ' oResult.Items = oItems.ToArray() + ' Return oResult + 'End Function - Private Function SerializeOrder(pData As Schemas.Orders.Output.MESOWebService, pFileName As String) As String - Dim oSerializer = Serializer.GetSerializer(GetType(Schemas.Orders.Output.MESOWebService)) - Dim oPath As String = GetBaseWebServicePath() - Dim oFilePath As String = IO.Path.Combine(oPath, pFileName) + 'Private Function SerializeOrder(pData As Schemas.Orders.Output.MESOWebService, pFileName As String) As String + ' Dim oSerializer = Serializer.GetSerializer(GetType(Schemas.Orders.Output.MESOWebService)) + ' Dim oPath As String = GetBaseWebServicePath() + ' Dim oFilePath As String = IO.Path.Combine(oPath, pFileName) - Using oWriter = XmlWriter.Create(oFilePath, New XmlWriterSettings With {.Indent = True}) - oSerializer.Serialize(oWriter, pData) - End Using + ' Using oWriter = XmlWriter.Create(oFilePath, New XmlWriterSettings With {.Indent = True}) + ' oSerializer.Serialize(oWriter, pData) + ' End Using - Return oFilePath - End Function + ' Return oFilePath + 'End Function Private Function GetBaseWebServicePath() As String Return IO.Path.Combine(FileEx.GetAppDataPath("Digital Data", "EDI Document Importer"), "WebService") diff --git a/ImporterShared/XmlData.vb b/ImporterShared/XmlData.vb new file mode 100644 index 0000000..c7900c4 --- /dev/null +++ b/ImporterShared/XmlData.vb @@ -0,0 +1,43 @@ +Imports DigitalData.Modules.Logging + +Public Class XmlData + + ' + Public Shared Function GetElementAttribute(pElement As XElement, pName As String) As String + Try + Dim oAttribute As XAttribute = pElement.Attribute(pName) + Return oAttribute?.Value + + Catch ex As Exception + Return Nothing + + End Try + End Function + + Public Shared Function GetElementsFromElement(pElement As XContainer, pElementName As String) As List(Of XElement) + Return pElement.Descendants(pElementName). + Elements(). + ToList() + End Function + + Public Shared Function GetElementsFromElement(pElement As XContainer, pElementName As String, pNamespace As XNamespace) As List(Of XElement) + Return pElement.Descendants(pNamespace + pElementName). + Elements(). + ToList() + End Function + + Public Shared Function GetElement(pContainer As XContainer, pElementName As String, pNamespace As XNamespace) As XElement + Return pContainer.Descendants(pNamespace + pElementName). + FirstOrDefault() + End Function + + Public Shared Function GetElement(pContainer As XContainer, pElementName As String) As XElement + Return pContainer.Descendants(pElementName). + FirstOrDefault() + End Function + + Public Shared Function GetElementValue(pElement As XElement) As String + Return pElement.Value + End Function + +End Class