Compare commits

..

4 Commits

Author SHA1 Message Date
Jonathan Jenne
1d74f2909f Rename README to markdown 2021-11-04 14:31:56 +01:00
Jonathan Jenne
85c8b07b68 Version 1.0.0.6 2021-11-04 11:50:05 +01:00
Jonathan Jenne
19e2b2f62b use constant for GUID column 2021-11-04 11:49:49 +01:00
Jonathan Jenne
437569919f Make it possible to delete rows 2021-11-04 11:43:26 +01:00
16 changed files with 1013 additions and 822 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>
@@ -291,7 +295,8 @@
<ItemGroup>
<Content Include="CREATE_DATABASE.sql" />
<Content Include="MultiTool.ico" />
<Content Include="README.txt" />
<None Include="README.md" />
<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

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.5")>
<Assembly: AssemblyVersion("1.0.0.6")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

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>

17
MultiTool.Form/README.md Normal file
View File

@@ -0,0 +1,17 @@
# MultiTool
## Changelog
### 1.0.0.6
* Zeilen löschen
### 1.0.0.5
* Fortschrittsanzeige für Webservice Aufrufe
* Übersichtlicherer XML Editor
### 1.0.0.4
* Leerstellen beim einlesen und beim zurückschreiben entfernen
* ConnectionString wird nicht mehr in der UserConfig gespeichert

View File

@@ -1,7 +0,0 @@
# README
## Generieren von Classentypen aus einem Schema
```
.\xsd.exe /c /l:VB OrdersSchema.xsd
```

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

@@ -271,6 +271,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Wollen Sie die ausgewählte Zeile wirklich löschen? ähnelt.
'''</summary>
Friend Shared ReadOnly Property Wollen_Sie_die_ausgewählte_Zeile_wirklich_löschen_() As String
Get
Return ResourceManager.GetString("Wollen Sie die ausgewählte Zeile wirklich löschen?", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Wollen Sie wirklich die aktuelle Datei mit dem gewählten Mandanten ({0}) neu laden? Alle von Ihnen getätigten Änderungen werden dabei verworfen ähnelt.
'''</summary>

View File

@@ -180,6 +180,9 @@
<data name="Vorlagenverzeichnis" xml:space="preserve">
<value>Vorlagenverzeichnis</value>
</data>
<data name="Wollen Sie die ausgewählte Zeile wirklich löschen?" xml:space="preserve">
<value>Wollen Sie die ausgewählte Zeile wirklich löschen?</value>
</data>
<data name="Wollen Sie wirklich die aktuelle Datei neu laden" xml:space="preserve">
<value>Wollen Sie wirklich die aktuelle Datei mit dem gewählten Mandanten ({0}) neu laden? Alle von Ihnen getätigten Änderungen werden dabei verworfen</value>
</data>

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

@@ -14,6 +14,7 @@ Imports MultiTool.Shared
Imports MultiTool.Shared.Documents
Imports MultiTool.Shared.Schemas
Imports MultiTool.Shared.Winline
Imports MultiTool.Shared.Constants
Public Class frmImportMain
Private LogConfig As LogConfig
@@ -31,10 +32,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 +141,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 +153,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 +163,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
@@ -209,7 +213,7 @@ Public Class frmImportMain
Dim oRow As DataRow = oView.GetDataRow(oView.FocusedRowHandle)
Dim oColumns = oView.Columns.Select(Function(c) c.FieldName).ToList()
Dim oDocumentRow = CurrentDocument.Rows.
Where(Function(r) r.Id.ToString = oRow.Item("GUID")).
Where(Function(r) r.Id.ToString = oRow.Item(COLUMN_GUID)).
SingleOrDefault()
Dim oForm As New frmRowEditor(LogConfig, oColumns, oDocumentRow, CurrentDocument.Mandator, Winline)
@@ -296,6 +300,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.
@@ -306,7 +314,7 @@ Public Class frmImportMain
If Not oDatasources.ContainsKey(oRow.Name) Then
Dim oTable As New DataTable()
oTable.Columns.Add(New DataColumn("GUID"))
oTable.Columns.Add(New DataColumn(COLUMN_GUID))
For Each oField In oRow.Fields
oTable.Columns.Add(New DataColumn(oField.Key))
@@ -314,13 +322,14 @@ Public Class frmImportMain
oDatasources.Add(oRow.Name, oTable)
oGrid.DataSource = Nothing
oGrid.DataSource = oTable
End If
Dim oDataTable = oDatasources.Item(oRow.Name)
Dim oDataRow = oDataTable.NewRow()
oDataRow.Item("GUID") = oRow.Id.ToString
oDataRow.Item(COLUMN_GUID) = oRow.Id.ToString
For Each oField In oRow.Fields
oDataRow.Item(oField.Key) = oField.Value
@@ -440,5 +449,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 = My.Resources.frmImportMainExtra.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(COLUMN_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

@@ -1,4 +1,6 @@
Public Class Constants
Public Const COLUMN_GUID = "GUID"
Public Enum XmlFunction
GLN = 1
EAN = 2

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())