Make it possible to delete rows

This commit is contained in:
Jonathan Jenne 2021-11-04 11:43:26 +01:00
parent c6622ccbbc
commit 437569919f
10 changed files with 976 additions and 810 deletions

View File

@ -11,12 +11,7 @@ Public Class GridLoader
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
}
Public Function GetGridFromElement(pGrid As GridControl, pTable As Schemas.Schema.Table) As GridControl
Dim oInvisibleColumns As New List(Of String) From {
"BELEGKEY",
"Zeilennummer",
@ -28,10 +23,11 @@ Public Class GridLoader
"Laufnummer"
}
oGrid.ForceInitialize()
oGrid.MainView.PopulateColumns()
pGrid.Name = pTable.Name
pGrid.ForceInitialize()
pGrid.MainView.PopulateColumns()
Dim oView As GridView = oGrid.DefaultView
Dim oView As GridView = pGrid.DefaultView
oView.OptionsBehavior.ReadOnly = True
oView.OptionsBehavior.Editable = False
@ -63,7 +59,7 @@ Public Class GridLoader
WithReadOnlyOptions().
WithClipboardHandler()
Return oGrid
Return pGrid
End Function
Private Function GetColumnType(pColumn As Schemas.Schema.Column)

View File

@ -50,6 +50,9 @@
<PropertyGroup>
<ApplicationIcon>MultiTool.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -276,6 +279,7 @@
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
@ -292,6 +296,7 @@
<Content Include="CREATE_DATABASE.sql" />
<Content Include="MultiTool.ico" />
<Content Include="README.txt" />
<None Include="Resources\actions_deletecircled.svg" />
<None Include="Resources\bo_unknown1.svg" />
<None Include="Resources\bo_unknown.svg" />
<None Include="Resources\redo.svg" />

View File

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

View File

@ -124,6 +124,9 @@
<data name="redo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\redo.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_unknown1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_unknown1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="wraptext" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wraptext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@ -148,12 +151,12 @@
<data name="open21" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open21.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="parameters" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\parameters.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="paymentrefund" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\paymentrefund.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="open1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_unknown" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_unknown.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@ -169,8 +172,8 @@
<data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="open1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="parameters" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\parameters.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\export.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -214,7 +217,7 @@
<data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_unknown1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_unknown1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root>

View File

@ -0,0 +1,76 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC-Manifestoptionen
Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den
Knoten "requestedExecutionLevel" wie folgt.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert.
Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
für die Anwendung erforderlich ist.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben,
wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere
DPI-Werte skaliert wird. WPF-Anwendungen (Windows Presentation Foundation) sind automatisch mit DPI-Werten kompatibel und müssen sich nicht
anmelden. Für Windows Forms-Anwendungen für .NET Framework 4.6, die sich für diese Einstellung anmelden, muss
auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der "app.config" auf "true" festgelegt werden. -->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
</windowsSettings>
</application>
-->
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>

View File

@ -0,0 +1,15 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="DeleteCircled">
<path d="M16,4C9.4,4,4,9.4,4,16s5.4,12,12,12s12-5.4,12-12S22.6,4,16,4z M23.1,20.2l-2.8,2.8L16,18.8l-4.2,4.2 l-2.8-2.8l4.2-4.2l-4.2-4.2l2.8-2.8l4.2,4.2l4.2-4.2l2.8,2.8L18.8,16L23.1,20.2z" class="Red" />
</g>
</svg>

View File

@ -51,10 +51,12 @@ Partial Class frmImportMain
Me.txtCurrentFile = New DevExpress.XtraBars.BarStaticItem()
Me.btnConfig = New DevExpress.XtraBars.BarButtonItem()
Me.txtCulture = New DevExpress.XtraBars.BarStaticItem()
Me.btnRemoveRow = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup7 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -73,6 +75,14 @@ Partial Class frmImportMain
Me.SplitContainerGrids2 = New DevExpress.XtraEditors.SplitContainerControl()
Me.BehaviorManager = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components)
Me.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.MultiTool.Form.frmWaitForm), True, True)
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControl4 = New DevExpress.XtraGrid.GridControl()
Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout()
CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit()
@ -92,34 +102,30 @@ Partial Class frmImportMain
CType(Me.SplitContainerGrids2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerGrids2.SuspendLayout()
CType(Me.BehaviorManager, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplitContainerMain
'
resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain")
Me.SplitContainerMain.Name = "SplitContainerMain"
resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1")
Me.SplitContainerMain.Panel1.Controls.Add(Me.GridControlFiles)
Me.SplitContainerMain.Panel1.Controls.Add(Me.PanelControl1)
resources.ApplyResources(Me.SplitContainerMain.Panel2, "SplitContainerMain.Panel2")
resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1")
Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainerGrids)
resources.ApplyResources(Me.SplitContainerMain.Panel2, "SplitContainerMain.Panel2")
Me.SplitContainerMain.SplitterPosition = 380
'
'GridControlFiles
'
resources.ApplyResources(Me.GridControlFiles, "GridControlFiles")
Me.GridControlFiles.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlFiles.EmbeddedNavigator.AccessibleDescription")
Me.GridControlFiles.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlFiles.EmbeddedNavigator.AccessibleName")
Me.GridControlFiles.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlFiles.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlFiles.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlFiles.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlFiles.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlFiles.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlFiles.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlFiles.EmbeddedNavigator.ToolTip = resources.GetString("GridControlFiles.EmbeddedNavigator.ToolTip")
Me.GridControlFiles.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlFiles.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlFiles.EmbeddedNavigator.ToolTipTitle")
Me.GridControlFiles.MainView = Me.GridViewFiles
Me.GridControlFiles.MenuManager = Me.RibbonControl
Me.GridControlFiles.Name = "GridControlFiles"
@ -129,7 +135,6 @@ Partial Class frmImportMain
'GridViewFiles
'
Me.GridViewFiles.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.gridBand3})
resources.ApplyResources(Me.GridViewFiles, "GridViewFiles")
Me.GridViewFiles.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colSelected, Me.colFilename, Me.colMandator, Me.colCreatedAt})
Me.GridViewFiles.GridControl = Me.GridControlFiles
Me.GridViewFiles.Name = "GridViewFiles"
@ -192,14 +197,10 @@ Partial Class frmImportMain
'
'RibbonControl
'
resources.ApplyResources(Me.RibbonControl, "RibbonControl")
Me.RibbonControl.ExpandCollapseItem.Id = 0
Me.RibbonControl.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
Me.RibbonControl.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
Me.RibbonControl.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.RibbonControl.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl.ExpandCollapseItem.SearchTags")
Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.txtVersion, Me.txtFilesLoaded, Me.btnLoadFiles, Me.btnTransferFile, Me.btnOpenInputDirectory, Me.btnOpenOutputDirectory, Me.btnOpenSchemaDirectory, Me.btnReloadFile, Me.btnTransferAllFiles, Me.BarButtonItem1, Me.btnShowXml, Me.btnOpenLogDirectory, Me.btnOpenConfigDirectory, Me.txtCurrentFile, Me.btnConfig, Me.txtCulture})
Me.RibbonControl.MaxItemId = 27
Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.txtVersion, Me.txtFilesLoaded, Me.btnLoadFiles, Me.btnTransferFile, Me.btnOpenInputDirectory, Me.btnOpenOutputDirectory, Me.btnOpenSchemaDirectory, Me.btnReloadFile, Me.btnTransferAllFiles, Me.BarButtonItem1, Me.btnShowXml, Me.btnOpenLogDirectory, Me.btnOpenConfigDirectory, Me.txtCurrentFile, Me.btnConfig, Me.txtCulture, Me.btnRemoveRow})
resources.ApplyResources(Me.RibbonControl, "RibbonControl")
Me.RibbonControl.MaxItemId = 28
Me.RibbonControl.Name = "RibbonControl"
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage2})
Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemProgressBar1})
@ -210,12 +211,9 @@ Partial Class frmImportMain
'
'txtVersion
'
resources.ApplyResources(Me.txtVersion, "txtVersion")
Me.txtVersion.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
resources.ApplyResources(Me.txtVersion, "txtVersion")
Me.txtVersion.Id = 1
Me.txtVersion.ImageOptions.ImageIndex = CType(resources.GetObject("txtVersion.ImageOptions.ImageIndex"), Integer)
Me.txtVersion.ImageOptions.LargeImageIndex = CType(resources.GetObject("txtVersion.ImageOptions.LargeImageIndex"), Integer)
Me.txtVersion.ImageOptions.SvgImage = CType(resources.GetObject("txtVersion.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.txtVersion.Name = "txtVersion"
Me.txtVersion.Tag = "Version {0}"
'
@ -223,9 +221,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.txtFilesLoaded, "txtFilesLoaded")
Me.txtFilesLoaded.Id = 2
Me.txtFilesLoaded.ImageOptions.ImageIndex = CType(resources.GetObject("txtFilesLoaded.ImageOptions.ImageIndex"), Integer)
Me.txtFilesLoaded.ImageOptions.LargeImageIndex = CType(resources.GetObject("txtFilesLoaded.ImageOptions.LargeImageIndex"), Integer)
Me.txtFilesLoaded.ImageOptions.SvgImage = CType(resources.GetObject("txtFilesLoaded.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.txtFilesLoaded.Name = "txtFilesLoaded"
Me.txtFilesLoaded.Tag = "{0} Dateien geladen"
'
@ -233,8 +228,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.btnLoadFiles, "btnLoadFiles")
Me.btnLoadFiles.Id = 3
Me.btnLoadFiles.ImageOptions.ImageIndex = CType(resources.GetObject("btnLoadFiles.ImageOptions.ImageIndex"), Integer)
Me.btnLoadFiles.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnLoadFiles.ImageOptions.LargeImageIndex"), Integer)
Me.btnLoadFiles.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.export
Me.btnLoadFiles.Name = "btnLoadFiles"
'
@ -242,8 +235,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.btnTransferFile, "btnTransferFile")
Me.btnTransferFile.Id = 4
Me.btnTransferFile.ImageOptions.ImageIndex = CType(resources.GetObject("btnTransferFile.ImageOptions.ImageIndex"), Integer)
Me.btnTransferFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnTransferFile.ImageOptions.LargeImageIndex"), Integer)
Me.btnTransferFile.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_send1
Me.btnTransferFile.Name = "btnTransferFile"
'
@ -251,8 +242,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.btnOpenInputDirectory, "btnOpenInputDirectory")
Me.btnOpenInputDirectory.Id = 6
Me.btnOpenInputDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenInputDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenInputDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenInputDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenInputDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.open22
Me.btnOpenInputDirectory.Name = "btnOpenInputDirectory"
'
@ -260,8 +249,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.btnOpenOutputDirectory, "btnOpenOutputDirectory")
Me.btnOpenOutputDirectory.Id = 7
Me.btnOpenOutputDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenOutputDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenOutputDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenOutputDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenOutputDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.up
Me.btnOpenOutputDirectory.Name = "btnOpenOutputDirectory"
'
@ -269,8 +256,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.btnOpenSchemaDirectory, "btnOpenSchemaDirectory")
Me.btnOpenSchemaDirectory.Id = 9
Me.btnOpenSchemaDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenSchemaDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenSchemaDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenSchemaDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenSchemaDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.open1
Me.btnOpenSchemaDirectory.Name = "btnOpenSchemaDirectory"
'
@ -279,8 +264,6 @@ Partial Class frmImportMain
resources.ApplyResources(Me.btnReloadFile, "btnReloadFile")
Me.btnReloadFile.Enabled = False
Me.btnReloadFile.Id = 11
Me.btnReloadFile.ImageOptions.ImageIndex = CType(resources.GetObject("btnReloadFile.ImageOptions.ImageIndex"), Integer)
Me.btnReloadFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnReloadFile.ImageOptions.LargeImageIndex"), Integer)
Me.btnReloadFile.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.rotatecounterclockwise
Me.btnReloadFile.Name = "btnReloadFile"
'
@ -289,8 +272,6 @@ Partial Class frmImportMain
resources.ApplyResources(Me.btnTransferAllFiles, "btnTransferAllFiles")
Me.btnTransferAllFiles.Enabled = False
Me.btnTransferAllFiles.Id = 13
Me.btnTransferAllFiles.ImageOptions.ImageIndex = CType(resources.GetObject("btnTransferAllFiles.ImageOptions.ImageIndex"), Integer)
Me.btnTransferAllFiles.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnTransferAllFiles.ImageOptions.LargeImageIndex"), Integer)
Me.btnTransferAllFiles.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_send
Me.btnTransferAllFiles.Name = "btnTransferAllFiles"
'
@ -299,8 +280,6 @@ Partial Class frmImportMain
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Enabled = False
Me.BarButtonItem1.Id = 14
Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.mailmergepreview
Me.BarButtonItem1.Name = "BarButtonItem1"
'
@ -309,8 +288,6 @@ Partial Class frmImportMain
resources.ApplyResources(Me.btnShowXml, "btnShowXml")
Me.btnShowXml.Enabled = False
Me.btnShowXml.Id = 15
Me.btnShowXml.ImageOptions.ImageIndex = CType(resources.GetObject("btnShowXml.ImageOptions.ImageIndex"), Integer)
Me.btnShowXml.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnShowXml.ImageOptions.LargeImageIndex"), Integer)
Me.btnShowXml.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.togglefieldcodes
Me.btnShowXml.Name = "btnShowXml"
'
@ -318,8 +295,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.btnOpenLogDirectory, "btnOpenLogDirectory")
Me.btnOpenLogDirectory.Id = 16
Me.btnOpenLogDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenLogDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenLogDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenLogDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenLogDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.logical
Me.btnOpenLogDirectory.Name = "btnOpenLogDirectory"
'
@ -327,8 +302,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.btnOpenConfigDirectory, "btnOpenConfigDirectory")
Me.btnOpenConfigDirectory.Id = 17
Me.btnOpenConfigDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenConfigDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenConfigDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenConfigDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenConfigDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.parameters
Me.btnOpenConfigDirectory.Name = "btnOpenConfigDirectory"
'
@ -336,9 +309,6 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.txtCurrentFile, "txtCurrentFile")
Me.txtCurrentFile.Id = 23
Me.txtCurrentFile.ImageOptions.ImageIndex = CType(resources.GetObject("txtCurrentFile.ImageOptions.ImageIndex"), Integer)
Me.txtCurrentFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("txtCurrentFile.ImageOptions.LargeImageIndex"), Integer)
Me.txtCurrentFile.ImageOptions.SvgImage = CType(resources.GetObject("txtCurrentFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.txtCurrentFile.Name = "txtCurrentFile"
Me.txtCurrentFile.Tag = "Aktuelle Datei: {0}"
'
@ -346,25 +316,27 @@ Partial Class frmImportMain
'
resources.ApplyResources(Me.btnConfig, "btnConfig")
Me.btnConfig.Id = 24
Me.btnConfig.ImageOptions.ImageIndex = CType(resources.GetObject("btnConfig.ImageOptions.ImageIndex"), Integer)
Me.btnConfig.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnConfig.ImageOptions.LargeImageIndex"), Integer)
Me.btnConfig.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.bo_unknown
Me.btnConfig.Name = "btnConfig"
'
'txtCulture
'
resources.ApplyResources(Me.txtCulture, "txtCulture")
Me.txtCulture.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
resources.ApplyResources(Me.txtCulture, "txtCulture")
Me.txtCulture.Id = 26
Me.txtCulture.ImageOptions.ImageIndex = CType(resources.GetObject("txtCulture.ImageOptions.ImageIndex"), Integer)
Me.txtCulture.ImageOptions.LargeImageIndex = CType(resources.GetObject("txtCulture.ImageOptions.LargeImageIndex"), Integer)
Me.txtCulture.ImageOptions.SvgImage = CType(resources.GetObject("txtCulture.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.txtCulture.Name = "txtCulture"
Me.txtCulture.Tag = "Culture: {0}"
'
'btnRemoveRow
'
resources.ApplyResources(Me.btnRemoveRow, "btnRemoveRow")
Me.btnRemoveRow.Id = 27
Me.btnRemoveRow.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_deletecircled
Me.btnRemoveRow.Name = "btnRemoveRow"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup4, Me.RibbonPageGroup3})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup4, Me.RibbonPageGroup3, Me.RibbonPageGroup7})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
@ -390,6 +362,12 @@ Partial Class frmImportMain
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'
'RibbonPageGroup7
'
Me.RibbonPageGroup7.ItemLinks.Add(Me.btnRemoveRow)
Me.RibbonPageGroup7.Name = "RibbonPageGroup7"
resources.ApplyResources(Me.RibbonPageGroup7, "RibbonPageGroup7")
'
'RibbonPage2
'
Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup5, Me.RibbonPageGroup2, Me.RibbonPageGroup6})
@ -426,17 +404,16 @@ Partial Class frmImportMain
'
'RepositoryItemProgressBar1
'
resources.ApplyResources(Me.RepositoryItemProgressBar1, "RepositoryItemProgressBar1")
Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1"
Me.RepositoryItemProgressBar1.ShowTitle = True
'
'RibbonStatusBar
'
resources.ApplyResources(Me.RibbonStatusBar, "RibbonStatusBar")
Me.RibbonStatusBar.ItemLinks.Add(Me.txtCulture)
Me.RibbonStatusBar.ItemLinks.Add(Me.txtVersion)
Me.RibbonStatusBar.ItemLinks.Add(Me.txtFilesLoaded)
Me.RibbonStatusBar.ItemLinks.Add(Me.txtCurrentFile)
resources.ApplyResources(Me.RibbonStatusBar, "RibbonStatusBar")
Me.RibbonStatusBar.Name = "RibbonStatusBar"
Me.RibbonStatusBar.Ribbon = Me.RibbonControl
'
@ -449,9 +426,9 @@ Partial Class frmImportMain
'
'LabelControl1
'
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
Me.LabelControl1.Appearance.Options.UseFont = True
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Name = "LabelControl1"
'
'lookupMandator
@ -464,7 +441,6 @@ Partial Class frmImportMain
'
'GridLookUpEdit1View
'
resources.ApplyResources(Me.GridLookUpEdit1View, "GridLookUpEdit1View")
Me.GridLookUpEdit1View.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colId, Me.colName})
Me.GridLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
Me.GridLookUpEdit1View.Name = "GridLookUpEdit1View"
@ -488,10 +464,10 @@ Partial Class frmImportMain
resources.ApplyResources(Me.SplitContainerGrids, "SplitContainerGrids")
Me.SplitContainerGrids.Horizontal = False
Me.SplitContainerGrids.Name = "SplitContainerGrids"
resources.ApplyResources(Me.SplitContainerGrids.Panel1, "SplitContainerGrids.Panel1")
Me.SplitContainerGrids.Panel1.Controls.Add(Me.SplitContainerGrids1)
resources.ApplyResources(Me.SplitContainerGrids.Panel2, "SplitContainerGrids.Panel2")
resources.ApplyResources(Me.SplitContainerGrids.Panel1, "SplitContainerGrids.Panel1")
Me.SplitContainerGrids.Panel2.Controls.Add(Me.SplitContainerGrids2)
resources.ApplyResources(Me.SplitContainerGrids.Panel2, "SplitContainerGrids.Panel2")
Me.SplitContainerGrids.SplitterPosition = 288
'
'SplitContainerGrids1
@ -499,16 +475,20 @@ Partial Class frmImportMain
resources.ApplyResources(Me.SplitContainerGrids1, "SplitContainerGrids1")
Me.SplitContainerGrids1.Horizontal = False
Me.SplitContainerGrids1.Name = "SplitContainerGrids1"
Me.SplitContainerGrids1.Panel1.Controls.Add(Me.GridControl1)
resources.ApplyResources(Me.SplitContainerGrids1.Panel1, "SplitContainerGrids1.Panel1")
Me.SplitContainerGrids1.Panel2.Controls.Add(Me.GridControl2)
resources.ApplyResources(Me.SplitContainerGrids1.Panel2, "SplitContainerGrids1.Panel2")
Me.SplitContainerGrids1.SplitterPosition = 118
Me.SplitContainerGrids1.SplitterPosition = 129
'
'SplitContainerGrids2
'
resources.ApplyResources(Me.SplitContainerGrids2, "SplitContainerGrids2")
Me.SplitContainerGrids2.Horizontal = False
Me.SplitContainerGrids2.Name = "SplitContainerGrids2"
Me.SplitContainerGrids2.Panel1.Controls.Add(Me.GridControl3)
resources.ApplyResources(Me.SplitContainerGrids2.Panel1, "SplitContainerGrids2.Panel1")
Me.SplitContainerGrids2.Panel2.Controls.Add(Me.GridControl4)
resources.ApplyResources(Me.SplitContainerGrids2.Panel2, "SplitContainerGrids2.Panel2")
Me.SplitContainerGrids2.SplitterPosition = 126
'
@ -516,6 +496,55 @@ Partial Class frmImportMain
'
Me.SplashScreenManager.ClosingDelay = 500
'
'GridControl1
'
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
'
'GridControl2
'
resources.ApplyResources(Me.GridControl2, "GridControl2")
Me.GridControl2.MainView = Me.GridView2
Me.GridControl2.Name = "GridControl2"
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
'
'GridView2
'
Me.GridView2.GridControl = Me.GridControl2
Me.GridView2.Name = "GridView2"
'
'GridControl3
'
resources.ApplyResources(Me.GridControl3, "GridControl3")
Me.GridControl3.MainView = Me.GridView3
Me.GridControl3.Name = "GridControl3"
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
'
'GridView3
'
Me.GridView3.GridControl = Me.GridControl3
Me.GridView3.Name = "GridView3"
'
'GridControl4
'
resources.ApplyResources(Me.GridControl4, "GridControl4")
Me.GridControl4.MainView = Me.GridView4
Me.GridControl4.Name = "GridControl4"
Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4})
'
'GridView4
'
Me.GridView4.GridControl = Me.GridControl4
Me.GridView4.Name = "GridView4"
'
'frmImportMain
'
resources.ApplyResources(Me, "$this")
@ -548,6 +577,14 @@ Partial Class frmImportMain
CType(Me.SplitContainerGrids2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerGrids2.ResumeLayout(False)
CType(Me.BehaviorManager, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -601,4 +638,14 @@ Partial Class frmImportMain
Friend WithEvents RepositoryItemProgressBar1 As Repository.RepositoryItemProgressBar
Friend WithEvents SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager
Friend WithEvents txtCulture As DevExpress.XtraBars.BarStaticItem
Friend WithEvents btnRemoveRow As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup7 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As GridView
Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView2 As GridView
Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView3 As GridView
Friend WithEvents GridControl4 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView4 As GridView
End Class

File diff suppressed because it is too large Load Diff

View File

@ -31,10 +31,10 @@ Public Class frmImportMain
Private GridLoader As GridLoader
Private GridBuilder As GridBuilder
Private CurrentSchemaName As String
Private CurrentSchema As Schema
Private CurrentDocument As Document
Private CurrentSchemaName As String = Nothing
Private CurrentSchema As Schema = Nothing
Private CurrentGrid As GridControl = Nothing
Private CurrentDocument As Document = Nothing
Public Sub New()
InitializeComponent()
@ -140,6 +140,10 @@ Public Class frmImportMain
CurrentSchema = SchemaLoader.GetSchemaFromFile(CurrentSchemaName)
Grids = CreateGridsAndColumns(CurrentSchema)
For Each oGrid As GridControl In Grids
AddHandler oGrid.GotFocus, AddressOf Grid_Focus
Next
Catch ex As Exception
FormHelper.ShowError(ex, My.Resources.frmImportMainExtra.Laden_der_Winline_Daten)
Finally
@ -148,6 +152,9 @@ Public Class frmImportMain
End Try
End Sub
Private Sub Grid_Focus(sender As GridControl, e As EventArgs)
CurrentGrid = sender
End Sub
Private Function CreateGridsAndColumns(pSchema As Schemas.Schema) As List(Of GridControl)
Dim oGrids As New List(Of GridControl)
@ -155,30 +162,26 @@ Public Class frmImportMain
For Each oTable In pSchema.Tables
If oTableCounter = 0 Then
Dim oGrid = GridLoader.GetGridFromElement(oTable)
Dim oGrid = GridLoader.GetGridFromElement(GridControl1, oTable)
AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick
SplitContainerGrids1.Panel1.Controls.Add(oGrid)
oGrids.Add(oGrid)
End If
If oTableCounter = 1 Then
Dim oGrid = GridLoader.GetGridFromElement(oTable)
Dim oGrid = GridLoader.GetGridFromElement(GridControl2, oTable)
AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick
SplitContainerGrids1.Panel2.Controls.Add(oGrid)
oGrids.Add(oGrid)
End If
If oTableCounter = 2 Then
Dim oGrid = GridLoader.GetGridFromElement(oTable)
Dim oGrid = GridLoader.GetGridFromElement(GridControl3, oTable)
AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick
SplitContainerGrids2.Panel1.Controls.Add(oGrid)
oGrids.Add(oGrid)
End If
If oTableCounter = 3 Then
Dim oGrid = GridLoader.GetGridFromElement(oTable)
Dim oGrid = GridLoader.GetGridFromElement(GridControl4, oTable)
AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick
SplitContainerGrids2.Panel2.Controls.Add(oGrid)
oGrids.Add(oGrid)
End If
@ -296,6 +299,10 @@ Public Class frmImportMain
Try
Dim oDatasources As New Dictionary(Of String, DataTable)
For Each oGrid In Grids
oGrid.DataSource = Nothing
Next
' List of Root Elements in XML
For Each oRow In pDocument.Rows
Dim oGrid As GridControl = Grids.
@ -314,6 +321,7 @@ Public Class frmImportMain
oDatasources.Add(oRow.Name, oTable)
oGrid.DataSource = Nothing
oGrid.DataSource = oTable
End If
@ -440,5 +448,31 @@ Public Class frmImportMain
oForm.ShowDialog()
End Sub
Private Sub btnRemoveRow_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnRemoveRow.ItemClick
If CurrentGrid Is Nothing Then
Exit Sub
End If
Dim oMessage As String = "Wollen Sie die ausgewählte Zeile wirklich löschen?"
If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
' Get GUID of currently selected row
Dim oView As GridView = CurrentGrid.FocusedView
Dim oRow As DataRowView = oView.GetRow(oView.FocusedRowHandle)
Dim oGuid = oRow.Row.Item("GUID")
' Get currently selected document
Dim oDocument As Document = GridViewFiles.GetRow(GridViewFiles.FocusedRowHandle)
Dim oNewRows = oDocument.Rows.
Where(Function(r) r.Id.ToString <> oGuid).
ToList()
oDocument.Rows = oNewRows
Dim oIndex = DocumentLoader.Files.IndexOf(oDocument)
DocumentLoader.Files.Item(oIndex) = oDocument
lookupMandator.EditValue = oDocument.Mandator
LoadDocument(oDocument)
End If
End Sub
End Class

View File

@ -10,8 +10,7 @@ Namespace Documents
Private ReadOnly Winline As Winline.Data
Public Files As New List(Of Document)
Public Property Files As New List(Of Document)
Public Sub New(pLogConfig As LogConfig, pWinline As Winline.Data)
MyBase.New(pLogConfig, pLogConfig.GetLogger())