From 631e09c0483989b3ddb347edc0750ae1d08ae6fa Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 5 Mar 2020 16:59:17 +0100 Subject: [PATCH 01/14] MS test klassenverweis --- .gitignore | 1 + app/DD_PM_WINDREAM/frmValidator.vb | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/.gitignore b/.gitignore index c7c5c91..250d752 100644 --- a/.gitignore +++ b/.gitignore @@ -155,3 +155,4 @@ $RECYCLE.BIN/ # Mac desktop service store files .DS_Store /app/.vs/DD_PM_WINDREAM/v15/Server/sqlite3 +/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index ea3b5e8..2e3e142 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -23,7 +23,7 @@ Public Class frmValidator Dim finalProfile As Boolean Dim Move2Folder As String 'Private _windreamPM As New ClassPMWindream - Private _windream As New ClassWindream_allgemein + Private _windream As ClassWindream_allgemein Private allgFunk As New ClassAllgemeineFunktionen 'speichert die DocumentDaten From 4b55777b871b2319c8cc2bd06fbad97d8ead6558 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 11 Mar 2020 08:51:39 +0100 Subject: [PATCH 02/14] DeletefrmDashboard --- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 9 - .../frmInvDashboard.Designer.vb | 258 ------------------ app/DD_PM_WINDREAM/frmInvDashboard.resx | 132 --------- app/DD_PM_WINDREAM/frmInvDashboard.vb | 26 -- 4 files changed, 425 deletions(-) delete mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb delete mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.resx delete mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.vb diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 68b5975..929c71f 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -368,12 +368,6 @@ Form - - frmInvDashboard.vb - - - Form - frmLicense.vb @@ -549,9 +543,6 @@ frmFormDesigner.vb - - frmInvDashboard.vb - frmLicense.vb diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb deleted file mode 100644 index 27c9ff8..0000000 --- a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb +++ /dev/null @@ -1,258 +0,0 @@ - -Partial Class frmInvDashboard - Inherits DevExpress.XtraBars.Ribbon.RibbonForm - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Me.colTitle = New DevExpress.XtraGrid.Columns.TileViewColumn() - Me.colAnzahl = New DevExpress.XtraGrid.Columns.TileViewColumn() - Me.colNettoSumme = New DevExpress.XtraGrid.Columns.TileViewColumn() - Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() - Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter() - Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView() - Me.Label1 = New System.Windows.Forms.Label() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'colTitle - ' - Me.colTitle.FieldName = "Title" - Me.colTitle.Name = "colTitle" - Me.colTitle.Visible = True - Me.colTitle.VisibleIndex = 0 - ' - 'colAnzahl - ' - Me.colAnzahl.FieldName = "Anzahl" - Me.colAnzahl.Name = "colAnzahl" - Me.colAnzahl.Visible = True - Me.colAnzahl.VisibleIndex = 1 - ' - 'colNettoSumme - ' - Me.colNettoSumme.DisplayFormat.FormatString = "c0" - Me.colNettoSumme.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric - Me.colNettoSumme.FieldName = "NettoSumme" - Me.colNettoSumme.Name = "colNettoSumme" - Me.colNettoSumme.Visible = True - Me.colNettoSumme.VisibleIndex = 2 - ' - 'RibbonControl1 - ' - Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) - Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 1 - Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.Size = New System.Drawing.Size(800, 146) - Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 - ' - 'RibbonPage1 - ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) - Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "RibbonPage1" - ' - 'RibbonPageGroup1 - ' - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "RibbonPageGroup1" - ' - 'RibbonPageGroup2 - ' - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "RibbonPageGroup2" - ' - 'RibbonStatusBar1 - ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 429) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 21) - ' - 'RibbonPage2 - ' - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "RibbonPage2" - ' - 'DD_DMSLiteDataSet - ' - Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" - Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource - ' - Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataMember = "VWPM_CHART_INVOICE_MONITOR_SERIES" - Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter - ' - Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.Connection = Nothing - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing - Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing - Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'GridControl1 - ' - Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.GridControl1.DataSource = Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource - Me.GridControl1.Location = New System.Drawing.Point(12, 168) - Me.GridControl1.MainView = Me.TileView1 - Me.GridControl1.MenuManager = Me.RibbonControl1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(776, 112) - Me.GridControl1.TabIndex = 5 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1}) - ' - 'TileView1 - ' - Me.TileView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTitle, Me.colAnzahl, Me.colNettoSumme}) - Me.TileView1.GridControl = Me.GridControl1 - Me.TileView1.Name = "TileView1" - Me.TileView1.OptionsTiles.IndentBetweenItems = 7 - Me.TileView1.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(13) - Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(144, 86) - Me.TileView1.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) - Me.TileView1.TileColumns.Add(TableColumnDefinition1) - Me.TileView1.TileRows.Add(TableRowDefinition1) - Me.TileView1.TileRows.Add(TableRowDefinition2) - Me.TileView1.TileRows.Add(TableRowDefinition3) - TileViewItemElement1.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left - TileViewItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - TileViewItemElement1.Appearance.Normal.Options.UseFont = True - TileViewItemElement1.Column = Me.colTitle - TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement1.RowIndex = 2 - TileViewItemElement1.Text = "colTitle" - TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - TileViewItemElement2.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - TileViewItemElement2.Appearance.Normal.ForeColor = System.Drawing.Color.DimGray - TileViewItemElement2.Appearance.Normal.Options.UseFont = True - TileViewItemElement2.Appearance.Normal.Options.UseForeColor = True - TileViewItemElement2.Column = Me.colAnzahl - TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement2.Text = "colAnzahl" - TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement3.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left - TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - TileViewItemElement3.Appearance.Normal.ForeColor = System.Drawing.Color.SteelBlue - TileViewItemElement3.Appearance.Normal.Options.UseFont = True - TileViewItemElement3.Appearance.Normal.Options.UseForeColor = True - TileViewItemElement3.Column = Me.colNettoSumme - TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement3.RowIndex = 1 - TileViewItemElement3.Text = "colNettoSumme" - TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - Me.TileView1.TileTemplate.Add(TileViewItemElement1) - Me.TileView1.TileTemplate.Add(TileViewItemElement2) - Me.TileView1.TileTemplate.Add(TileViewItemElement3) - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(9, 149) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(160, 16) - Me.Label1.TabIndex = 8 - Me.Label1.Text = "Alle Belege - Verteilung" - ' - 'frmInvDashboard - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.GridControl1) - Me.Controls.Add(Me.RibbonStatusBar1) - Me.Controls.Add(Me.RibbonControl1) - Me.Name = "frmInvDashboard" - Me.Ribbon = Me.RibbonControl1 - Me.StatusBar = Me.RibbonStatusBar1 - Me.Text = "frmInvDashboard" - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl - Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar - Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet - Friend WithEvents VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource As BindingSource - Friend WithEvents VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter As DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter - Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl - Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView - Friend WithEvents colAnzahl As DevExpress.XtraGrid.Columns.TileViewColumn - Friend WithEvents colNettoSumme As DevExpress.XtraGrid.Columns.TileViewColumn - Friend WithEvents colTitle As DevExpress.XtraGrid.Columns.TileViewColumn - Friend WithEvents Label1 As Label -End Class diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.resx b/app/DD_PM_WINDREAM/frmInvDashboard.resx deleted file mode 100644 index d76d63a..0000000 --- a/app/DD_PM_WINDREAM/frmInvDashboard.resx +++ /dev/null @@ -1,132 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 - - - 179, 17 - - - 545, 17 - - - 905, 17 - - \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.vb b/app/DD_PM_WINDREAM/frmInvDashboard.vb deleted file mode 100644 index 0d006cc..0000000 --- a/app/DD_PM_WINDREAM/frmInvDashboard.vb +++ /dev/null @@ -1,26 +0,0 @@ -Imports DevExpress.XtraGrid.Views.Tile - -Public Class frmInvDashboard - Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load - 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES". Sie können sie bei Bedarf verschieben oder entfernen. - Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES) - - End Sub - - Private Sub TileView1_ItemCustomize(sender As Object, e As DevExpress.XtraGrid.Views.Tile.TileViewItemCustomizeEventArgs) Handles TileView1.ItemCustomize - Dim oView As TileView = sender - Dim ovalue = oView.GetRowCellValue(e.RowHandle, "Title") - If ovalue = "Alle Rechnungen" Then - e.Item.AppearanceItem.Normal.BackColor = Color.Blue - 'e.Item.Elements(1).Text = "" - e.Item.Elements(0).Appearance.Normal.ForeColor = Color.White - e.Item.Elements(1).Appearance.Normal.ForeColor = Color.White - e.Item.Elements(2).Appearance.Normal.ForeColor = Color.White - 'Console.WriteLine("") - ElseIf ovalue = "Zeitkritisch" Then - e.Item.Elements(0).Appearance.Normal.ForeColor = Color.Red - e.Item.Elements(1).Appearance.Normal.ForeColor = Color.Red - e.Item.Elements(2).Appearance.Normal.ForeColor = Color.Red - End If - End Sub -End Class \ No newline at end of file From 34974c85ec41192efb8d757165894f4c2030ef6f Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 11 Mar 2020 09:12:58 +0100 Subject: [PATCH 03/14] frmInvDashboard1 --- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 6 + .../frmInvDashboard.Designer.vb | 1639 +++++++++++++++++ app/DD_PM_WINDREAM/frmInvDashboard.vb | 3 + app/DD_PM_WINDREAM/frmMain.Designer.vb | 326 +--- app/DD_PM_WINDREAM/frmMain.resx | 652 +------ app/DD_PM_WINDREAM/frmMain.vb | 22 +- 6 files changed, 1719 insertions(+), 929 deletions(-) create mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb create mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.vb diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 929c71f..cf40f72 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -368,6 +368,12 @@ Form + + frmInvDashboard.vb + + + Form + frmLicense.vb diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb new file mode 100644 index 0000000..7a1bed5 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb @@ -0,0 +1,1639 @@ + +Partial Class frmInvDashboard + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ChartControlCommandGalleryItemGroup2DColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DColumn() + Dim CreateBarChartItem1 As DevExpress.XtraCharts.UI.CreateBarChartItem = New DevExpress.XtraCharts.UI.CreateBarChartItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInvDashboard)) + Dim CreateFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedBarChartItem() + Dim CreateSideBySideFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBarChartItem() + Dim CreateSideBySideStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideStackedBarChartItem() + Dim CreateStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateStackedBarChartItem() + Dim CreateWaterfallChartItem1 As DevExpress.XtraCharts.UI.CreateWaterfallChartItem = New DevExpress.XtraCharts.UI.CreateWaterfallChartItem() + Dim ChartControlCommandGalleryItemGroup3DColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DColumn() + Dim CreateBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateBar3DChartItem = New DevExpress.XtraCharts.UI.CreateBar3DChartItem() + Dim CreateFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedBar3DChartItem() + Dim CreateManhattanBarChartItem1 As DevExpress.XtraCharts.UI.CreateManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateManhattanBarChartItem() + Dim CreateSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBar3DChartItem() + Dim CreateSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideStackedBar3DChartItem() + Dim CreateStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedBar3DChartItem() + Dim ChartControlCommandGalleryItemGroupCylinderColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupCylinderColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupCylinderColumn() + Dim CreateCylinderBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderBar3DChartItem() + Dim CreateCylinderFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderFullStackedBar3DChartItem() + Dim CreateCylinderManhattanBarChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateCylinderManhattanBarChartItem() + Dim CreateCylinderSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderSideBySideFullStackedBar3DChartItem() + Dim CreateCylinderSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderSideBySideStackedBar3DChartItem() + Dim CreateCylinderStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderStackedBar3DChartItem() + Dim ChartControlCommandGalleryItemGroupConeColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupConeColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupConeColumn() + Dim CreateConeBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeBar3DChartItem() + Dim CreateConeFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeFullStackedBar3DChartItem() + Dim CreateConeManhattanBarChartItem1 As DevExpress.XtraCharts.UI.CreateConeManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateConeManhattanBarChartItem() + Dim CreateConeSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeSideBySideFullStackedBar3DChartItem() + Dim CreateConeSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeSideBySideStackedBar3DChartItem() + Dim CreateConeStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeStackedBar3DChartItem() + Dim ChartControlCommandGalleryItemGroupPyramidColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPyramidColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPyramidColumn() + Dim CreatePyramidBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidBar3DChartItem() + Dim CreatePyramidFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidFullStackedBar3DChartItem() + Dim CreatePyramidManhattanBarChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreatePyramidManhattanBarChartItem() + Dim CreatePyramidSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidSideBySideFullStackedBar3DChartItem() + Dim CreatePyramidSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidSideBySideStackedBar3DChartItem() + Dim CreatePyramidStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidStackedBar3DChartItem() + Dim ChartControlCommandGalleryItemGroup2DLine1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DLine = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DLine() + Dim CreateLineChartItem1 As DevExpress.XtraCharts.UI.CreateLineChartItem = New DevExpress.XtraCharts.UI.CreateLineChartItem() + Dim CreateFullStackedLineChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedLineChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedLineChartItem() + Dim CreateScatterLineChartItem1 As DevExpress.XtraCharts.UI.CreateScatterLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterLineChartItem() + Dim CreateSplineChartItem1 As DevExpress.XtraCharts.UI.CreateSplineChartItem = New DevExpress.XtraCharts.UI.CreateSplineChartItem() + Dim CreateStackedLineChartItem1 As DevExpress.XtraCharts.UI.CreateStackedLineChartItem = New DevExpress.XtraCharts.UI.CreateStackedLineChartItem() + Dim CreateStepLineChartItem1 As DevExpress.XtraCharts.UI.CreateStepLineChartItem = New DevExpress.XtraCharts.UI.CreateStepLineChartItem() + Dim ChartControlCommandGalleryItemGroup3DLine1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DLine = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DLine() + Dim CreateLine3DChartItem1 As DevExpress.XtraCharts.UI.CreateLine3DChartItem = New DevExpress.XtraCharts.UI.CreateLine3DChartItem() + Dim CreateFullStackedLine3DChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedLine3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedLine3DChartItem() + Dim CreateSpline3DChartItem1 As DevExpress.XtraCharts.UI.CreateSpline3DChartItem = New DevExpress.XtraCharts.UI.CreateSpline3DChartItem() + Dim CreateStackedLine3DChartItem1 As DevExpress.XtraCharts.UI.CreateStackedLine3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedLine3DChartItem() + Dim CreateStepLine3DChartItem1 As DevExpress.XtraCharts.UI.CreateStepLine3DChartItem = New DevExpress.XtraCharts.UI.CreateStepLine3DChartItem() + Dim ChartControlCommandGalleryItemGroup2DPie1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DPie = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DPie() + Dim CreatePieChartItem1 As DevExpress.XtraCharts.UI.CreatePieChartItem = New DevExpress.XtraCharts.UI.CreatePieChartItem() + Dim CreateDoughnutChartItem1 As DevExpress.XtraCharts.UI.CreateDoughnutChartItem = New DevExpress.XtraCharts.UI.CreateDoughnutChartItem() + Dim CreateNestedDoughnutChartItem1 As DevExpress.XtraCharts.UI.CreateNestedDoughnutChartItem = New DevExpress.XtraCharts.UI.CreateNestedDoughnutChartItem() + Dim ChartControlCommandGalleryItemGroup3DPie1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DPie = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DPie() + Dim CreatePie3DChartItem1 As DevExpress.XtraCharts.UI.CreatePie3DChartItem = New DevExpress.XtraCharts.UI.CreatePie3DChartItem() + Dim CreateDoughnut3DChartItem1 As DevExpress.XtraCharts.UI.CreateDoughnut3DChartItem = New DevExpress.XtraCharts.UI.CreateDoughnut3DChartItem() + Dim ChartControlCommandGalleryItemGroup2DBar1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DBar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DBar() + Dim CreateRotatedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedBarChartItem() + Dim CreateRotatedFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedFullStackedBarChartItem() + Dim CreateRotatedSideBySideFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedSideBySideFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedSideBySideFullStackedBarChartItem() + Dim CreateRotatedSideBySideStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedSideBySideStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedSideBySideStackedBarChartItem() + Dim CreateRotatedStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedStackedBarChartItem() + Dim ChartControlCommandGalleryItemGroup2DArea1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DArea = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DArea() + Dim CreateAreaChartItem1 As DevExpress.XtraCharts.UI.CreateAreaChartItem = New DevExpress.XtraCharts.UI.CreateAreaChartItem() + Dim CreateFullStackedAreaChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedAreaChartItem() + Dim CreateFullStackedSplineAreaChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedSplineAreaChartItem() + Dim CreateFullStackedStepAreaChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedStepAreaChartItem() + Dim CreateSplineAreaChartItem1 As DevExpress.XtraCharts.UI.CreateSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateSplineAreaChartItem() + Dim CreateStackedAreaChartItem1 As DevExpress.XtraCharts.UI.CreateStackedAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedAreaChartItem() + Dim CreateStackedStepAreaChartItem1 As DevExpress.XtraCharts.UI.CreateStackedStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedStepAreaChartItem() + Dim CreateStackedSplineAreaChartItem1 As DevExpress.XtraCharts.UI.CreateStackedSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedSplineAreaChartItem() + Dim CreateStepAreaChartItem1 As DevExpress.XtraCharts.UI.CreateStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateStepAreaChartItem() + Dim ChartControlCommandGalleryItemGroup3DArea1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DArea = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DArea() + Dim CreateArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateArea3DChartItem = New DevExpress.XtraCharts.UI.CreateArea3DChartItem() + Dim CreateFullStackedArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedArea3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedArea3DChartItem() + Dim CreateFullStackedSplineArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedSplineArea3DChartItem() + Dim CreateSplineArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateSplineArea3DChartItem() + Dim CreateStackedArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateStackedArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedArea3DChartItem() + Dim CreateStackedSplineArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateStackedSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedSplineArea3DChartItem() + Dim CreateStepArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateStepArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStepArea3DChartItem() + Dim ChartControlCommandGalleryItemGroupPoint1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPoint = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPoint() + Dim CreatePointChartItem1 As DevExpress.XtraCharts.UI.CreatePointChartItem = New DevExpress.XtraCharts.UI.CreatePointChartItem() + Dim CreateBubbleChartItem1 As DevExpress.XtraCharts.UI.CreateBubbleChartItem = New DevExpress.XtraCharts.UI.CreateBubbleChartItem() + Dim ChartControlCommandGalleryItemGroupFunnel1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFunnel = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFunnel() + Dim CreateFunnelChartItem1 As DevExpress.XtraCharts.UI.CreateFunnelChartItem = New DevExpress.XtraCharts.UI.CreateFunnelChartItem() + Dim CreateFunnel3DChartItem1 As DevExpress.XtraCharts.UI.CreateFunnel3DChartItem = New DevExpress.XtraCharts.UI.CreateFunnel3DChartItem() + Dim ChartControlCommandGalleryItemGroupFinancial1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFinancial = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFinancial() + Dim CreateStockChartItem1 As DevExpress.XtraCharts.UI.CreateStockChartItem = New DevExpress.XtraCharts.UI.CreateStockChartItem() + Dim CreateCandleStickChartItem1 As DevExpress.XtraCharts.UI.CreateCandleStickChartItem = New DevExpress.XtraCharts.UI.CreateCandleStickChartItem() + Dim ChartControlCommandGalleryItemGroupRadar1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRadar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRadar() + Dim CreateRadarPointChartItem1 As DevExpress.XtraCharts.UI.CreateRadarPointChartItem = New DevExpress.XtraCharts.UI.CreateRadarPointChartItem() + Dim CreateRadarLineChartItem1 As DevExpress.XtraCharts.UI.CreateRadarLineChartItem = New DevExpress.XtraCharts.UI.CreateRadarLineChartItem() + Dim CreateRadarAreaChartItem1 As DevExpress.XtraCharts.UI.CreateRadarAreaChartItem = New DevExpress.XtraCharts.UI.CreateRadarAreaChartItem() + Dim CreateRadarRangeAreaChartItem1 As DevExpress.XtraCharts.UI.CreateRadarRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreateRadarRangeAreaChartItem() + Dim CreateScatterRadarLineChartItem1 As DevExpress.XtraCharts.UI.CreateScatterRadarLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterRadarLineChartItem() + Dim ChartControlCommandGalleryItemGroupPolar1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPolar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPolar() + Dim CreatePolarPointChartItem1 As DevExpress.XtraCharts.UI.CreatePolarPointChartItem = New DevExpress.XtraCharts.UI.CreatePolarPointChartItem() + Dim CreatePolarLineChartItem1 As DevExpress.XtraCharts.UI.CreatePolarLineChartItem = New DevExpress.XtraCharts.UI.CreatePolarLineChartItem() + Dim CreatePolarAreaChartItem1 As DevExpress.XtraCharts.UI.CreatePolarAreaChartItem = New DevExpress.XtraCharts.UI.CreatePolarAreaChartItem() + Dim CreatePolarRangeAreaChartItem1 As DevExpress.XtraCharts.UI.CreatePolarRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreatePolarRangeAreaChartItem() + Dim CreateScatterPolarLineChartItem1 As DevExpress.XtraCharts.UI.CreateScatterPolarLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterPolarLineChartItem() + Dim ChartControlCommandGalleryItemGroupRange1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRange = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRange() + Dim CreateRangeBarChartItem1 As DevExpress.XtraCharts.UI.CreateRangeBarChartItem = New DevExpress.XtraCharts.UI.CreateRangeBarChartItem() + Dim CreateSideBySideRangeBarChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideRangeBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideRangeBarChartItem() + Dim CreateRangeAreaChartItem1 As DevExpress.XtraCharts.UI.CreateRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreateRangeAreaChartItem() + Dim CreateRangeArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateRangeArea3DChartItem = New DevExpress.XtraCharts.UI.CreateRangeArea3DChartItem() + Dim ChartControlCommandGalleryItemGroupGantt1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupGantt = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupGantt() + Dim CreateGanttChartItem1 As DevExpress.XtraCharts.UI.CreateGanttChartItem = New DevExpress.XtraCharts.UI.CreateGanttChartItem() + Dim CreateSideBySideGanttChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideGanttChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideGanttChartItem() + Dim ChartControlCommandGalleryItemGroupBoxPlot1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupBoxPlot = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupBoxPlot() + Dim CreateBoxPlotChartItem1 As DevExpress.XtraCharts.UI.CreateBoxPlotChartItem = New DevExpress.XtraCharts.UI.CreateBoxPlotChartItem() + Dim SkinPaddingEdges1 As DevExpress.Skins.SkinPaddingEdges = New DevExpress.Skins.SkinPaddingEdges() + Dim SkinPaddingEdges2 As DevExpress.Skins.SkinPaddingEdges = New DevExpress.Skins.SkinPaddingEdges() + Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Me.colTitle = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.colAnzahl = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.colNettoSumme = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.CommandBarGalleryDropDown1 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown2 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown3 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown4 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown5 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown6 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown7 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() + Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView() + Me.Label1 = New System.Windows.Forms.Label() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.VWPM_CHART_TOP5BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colKRED_NAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colANZ_BELEG = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colNetto = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSkonto = New DevExpress.XtraGrid.Columns.GridColumn() + Me.SplitContainerDashboard = New System.Windows.Forms.SplitContainer() + Me.SplitContainerTop = New System.Windows.Forms.SplitContainer() + Me.ChartTopLeft = New DevExpress.XtraCharts.ChartControl() + Me.VWPM_CHART_TOP5TableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_TOP5TableAdapter() + Me.ChartTopRight = New DevExpress.XtraCharts.ChartControl() + Me.SplitContainerBottom = New System.Windows.Forms.SplitContainer() + Me.ChartBottomLeft = New DevExpress.XtraCharts.ChartControl() + Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.ChartBarController1 = New DevExpress.XtraCharts.UI.ChartBarController(Me.components) + Me.CreateChartOtherRibbonPage1 = New DevExpress.XtraCharts.UI.CreateChartOtherRibbonPage() + Me.ChartPrintExportRibbonPageGroup1 = New DevExpress.XtraCharts.UI.ChartPrintExportRibbonPageGroup() + Me.ChartTemplatesRibbonPageGroup1 = New DevExpress.XtraCharts.UI.ChartTemplatesRibbonPageGroup() + Me.ChartWizardRibbonPageGroup1 = New DevExpress.XtraCharts.UI.ChartWizardRibbonPageGroup() + Me.CreateChartRibbonPage1 = New DevExpress.XtraCharts.UI.CreateChartRibbonPage() + Me.ChartAppearanceRibbonPageGroup1 = New DevExpress.XtraCharts.UI.ChartAppearanceRibbonPageGroup() + Me.ChartTypeRibbonPageGroup1 = New DevExpress.XtraCharts.UI.ChartTypeRibbonPageGroup() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.ChartRibbonPageCategory1 = New DevExpress.XtraCharts.UI.ChartRibbonPageCategory() + Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.CreateBarBaseItem1 = New DevExpress.XtraCharts.UI.CreateBarBaseItem() + Me.CreateLineBaseItem1 = New DevExpress.XtraCharts.UI.CreateLineBaseItem() + Me.CreatePieBaseItem1 = New DevExpress.XtraCharts.UI.CreatePieBaseItem() + Me.CreateRotatedBarBaseItem1 = New DevExpress.XtraCharts.UI.CreateRotatedBarBaseItem() + Me.CreateAreaBaseItem1 = New DevExpress.XtraCharts.UI.CreateAreaBaseItem() + Me.CreateOtherSeriesTypesBaseItem1 = New DevExpress.XtraCharts.UI.CreateOtherSeriesTypesBaseItem() + Me.ChangePaletteGalleryBaseItem1 = New DevExpress.XtraCharts.UI.ChangePaletteGalleryBaseItem() + Me.ChangeAppearanceGalleryBaseItem1 = New DevExpress.XtraCharts.UI.ChangeAppearanceGalleryBaseItem() + Me.RunDesignerChartItem1 = New DevExpress.XtraCharts.UI.RunDesignerChartItem() + Me.SaveAsTemplateChartItem1 = New DevExpress.XtraCharts.UI.SaveAsTemplateChartItem() + Me.LoadTemplateChartItem1 = New DevExpress.XtraCharts.UI.LoadTemplateChartItem() + Me.PrintPreviewChartItem1 = New DevExpress.XtraCharts.UI.PrintPreviewChartItem() + Me.PrintChartItem1 = New DevExpress.XtraCharts.UI.PrintChartItem() + Me.CreateExportBaseItem1 = New DevExpress.XtraCharts.UI.CreateExportBaseItem() + Me.ExportToPDFChartItem1 = New DevExpress.XtraCharts.UI.ExportToPDFChartItem() + Me.ExportToHTMLChartItem1 = New DevExpress.XtraCharts.UI.ExportToHTMLChartItem() + Me.ExportToMHTChartItem1 = New DevExpress.XtraCharts.UI.ExportToMHTChartItem() + Me.ExportToXLSChartItem1 = New DevExpress.XtraCharts.UI.ExportToXLSChartItem() + Me.ExportToXLSXChartItem1 = New DevExpress.XtraCharts.UI.ExportToXLSXChartItem() + Me.ExportToRTFChartItem1 = New DevExpress.XtraCharts.UI.ExportToRTFChartItem() + Me.ExportToBMPChartItem1 = New DevExpress.XtraCharts.UI.ExportToBMPChartItem() + Me.ExportToGIFChartItem1 = New DevExpress.XtraCharts.UI.ExportToGIFChartItem() + Me.ExportToJPEGChartItem1 = New DevExpress.XtraCharts.UI.ExportToJPEGChartItem() + Me.ExportToPNGChartItem1 = New DevExpress.XtraCharts.UI.ExportToPNGChartItem() + Me.ExportToTIFFChartItem1 = New DevExpress.XtraCharts.UI.ExportToTIFFChartItem() + Me.CreateExportToImageBaseItem1 = New DevExpress.XtraCharts.UI.CreateExportToImageBaseItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + CType(Me.CommandBarGalleryDropDown1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPM_CHART_TOP5BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerDashboard.Panel1.SuspendLayout() + Me.SplitContainerDashboard.Panel2.SuspendLayout() + Me.SplitContainerDashboard.SuspendLayout() + CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerTop.Panel1.SuspendLayout() + Me.SplitContainerTop.Panel2.SuspendLayout() + Me.SplitContainerTop.SuspendLayout() + CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerBottom.Panel1.SuspendLayout() + Me.SplitContainerBottom.Panel2.SuspendLayout() + Me.SplitContainerBottom.SuspendLayout() + CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ChartBarController1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'colTitle + ' + Me.colTitle.FieldName = "Title" + Me.colTitle.Name = "colTitle" + Me.colTitle.Visible = True + Me.colTitle.VisibleIndex = 0 + ' + 'colAnzahl + ' + Me.colAnzahl.FieldName = "Anzahl" + Me.colAnzahl.Name = "colAnzahl" + Me.colAnzahl.Visible = True + Me.colAnzahl.VisibleIndex = 1 + ' + 'colNettoSumme + ' + Me.colNettoSumme.DisplayFormat.FormatString = "c0" + Me.colNettoSumme.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric + Me.colNettoSumme.FieldName = "NettoSumme" + Me.colNettoSumme.Name = "colNettoSumme" + Me.colNettoSumme.Visible = True + Me.colNettoSumme.VisibleIndex = 2 + ' + 'CommandBarGalleryDropDown1 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown1.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown1.Gallery.ColumnCount = 4 + ChartControlCommandGalleryItemGroup2DColumn1.Caption = "Spalte 2-D" + CreateBarChartItem1.Caption = "Gruppierte Säulen" + CreateBarChartItem1.Description = resources.GetString("CreateBarChartItem1.Description") + CreateBarChartItem1.Hint = resources.GetString("CreateBarChartItem1.Hint") + CreateFullStackedBarChartItem1.Caption = "100 % Gestapelte Säule" + CreateFullStackedBarChartItem1.Description = "Vergleichen den Prozentsatz, der jeder Wert mit vertikalen Rechtecke aller Katego" & + "rien auf insgesamt beiträgt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, den Anteil der einzelnen Daten" & + "reihen hervorzuheben." + CreateFullStackedBarChartItem1.Hint = "Vergleichen den Prozentsatz, der jeder Wert mit vertikalen Rechtecke aller Katego" & + "rien auf insgesamt beiträgt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, den Anteil der einzelnen Daten" & + "reihen hervorzuheben." + CreateSideBySideFullStackedBarChartItem1.Caption = "Gruppierte 100 % gestapelte Spalte" + CreateSideBySideFullStackedBarChartItem1.Description = "Verbinden die Vorteile der beiden 100 % gestapelte und gruppierte Säulen Diagramm" & + "typen, so dass Sie können verschiedene Spalten Stapeln und sie in Gruppen auf de" & + "r gleichen Achsenwert kombinieren." + CreateSideBySideFullStackedBarChartItem1.Hint = "Verbinden die Vorteile der beiden 100 % gestapelte und gruppierte Säulen Diagramm" & + "typen, so dass Sie können verschiedene Spalten Stapeln und sie in Gruppen auf de" & + "r gleichen Achsenwert kombinieren." + CreateSideBySideStackedBarChartItem1.Caption = "Gruppierte gestapelte Säule" + CreateSideBySideStackedBarChartItem1.Description = "Verbinden die Vorteile von sowohl die gestapelte und gruppierte Säulen Diagrammty" & + "pen, so dass Sie können verschiedene Spalten Stapeln und sie in Gruppen über den" & + " gleichen Achsenwert kombinieren." + CreateSideBySideStackedBarChartItem1.Hint = "Verbinden die Vorteile von sowohl die gestapelte und gruppierte Säulen Diagrammty" & + "pen, so dass Sie können verschiedene Spalten Stapeln und sie in Gruppen über den" & + " gleichen Achsenwert kombinieren." + CreateStackedBarChartItem1.Caption = "Gestapelte Spalte" + CreateStackedBarChartItem1.Description = "Vergleich der Beitrag eines jeden Wert insgesamt aller Kategorien mit vertikalen " & + "Rechtecke." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Damit können sie um die gesamte Serie für eine Kategorie zu betone" & + "n." + CreateStackedBarChartItem1.Hint = "Vergleich der Beitrag eines jeden Wert insgesamt aller Kategorien mit vertikalen " & + "Rechtecke." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Damit können sie um die gesamte Serie für eine Kategorie zu betone" & + "n." + CreateWaterfallChartItem1.Caption = "Waterfall" + CreateWaterfallChartItem1.Description = "A Waterfall chart displays a sequence of bars that indicate positive or negative " & + "changes." + CreateWaterfallChartItem1.Hint = "A Waterfall chart displays a sequence of bars that indicate positive or negative " & + "changes." + ChartControlCommandGalleryItemGroup2DColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBarChartItem1, CreateFullStackedBarChartItem1, CreateSideBySideFullStackedBarChartItem1, CreateSideBySideStackedBarChartItem1, CreateStackedBarChartItem1, CreateWaterfallChartItem1}) + ChartControlCommandGalleryItemGroup3DColumn1.Caption = "3D-Säulen" + CreateBar3DChartItem1.Caption = "3-D gruppierten Spalte" + CreateBar3DChartItem1.Description = "Werte verschiedener Kategorien vergleichen und gruppierte Spalten im 3D-Format an" & + "zeigen." + CreateBar3DChartItem1.Hint = "Werte verschiedener Kategorien vergleichen und gruppierte Spalten im 3D-Format an" & + "zeigen." + CreateFullStackedBar3DChartItem1.Caption = "100 % Gestapelte Spalte in 3-d" + CreateFullStackedBar3DChartItem1.Description = "vergleichen Sie den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt" & + " und 100 % gestapelte Spalten im 3D-Format anzeigen." + CreateFullStackedBar3DChartItem1.Hint = "vergleichen Sie den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt" & + " und 100 % gestapelte Spalten im 3D-Format anzeigen." + CreateManhattanBarChartItem1.Caption = "3D-Säulen" + CreateManhattanBarChartItem1.Description = "Vergleichen Werte über Kategorien und über Serie auf drei Achsen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Si" & + "e es, wenn die Kategorien und die Serie ebenso wichtig sind." + CreateManhattanBarChartItem1.Hint = "Vergleichen Werte über Kategorien und über Serie auf drei Achsen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Si" & + "e es, wenn die Kategorien und die Serie ebenso wichtig sind." + CreateSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelte Spalte in 3-d" + CreateSideBySideFullStackedBar3DChartItem1.Description = resources.GetString("CreateSideBySideFullStackedBar3DChartItem1.Description") + CreateSideBySideFullStackedBar3DChartItem1.Hint = resources.GetString("CreateSideBySideFullStackedBar3DChartItem1.Hint") + CreateSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Säule in 3-d" + CreateSideBySideStackedBar3DChartItem1.Description = resources.GetString("CreateSideBySideStackedBar3DChartItem1.Description") + CreateSideBySideStackedBar3DChartItem1.Hint = resources.GetString("CreateSideBySideStackedBar3DChartItem1.Hint") + CreateStackedBar3DChartItem1.Caption = "Gestapelte Spalte in 3-d" + CreateStackedBar3DChartItem1.Description = "Die Verteilung der Einzelwerte auf insgesamt Kategoriengesamtwert vergleichen und" & + " gestapelte Spalten im 3D-Format anzeigen." + CreateStackedBar3DChartItem1.Hint = "Die Verteilung der Einzelwerte auf insgesamt Kategoriengesamtwert vergleichen und" & + " gestapelte Spalten im 3D-Format anzeigen." + ChartControlCommandGalleryItemGroup3DColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBar3DChartItem1, CreateFullStackedBar3DChartItem1, CreateManhattanBarChartItem1, CreateSideBySideFullStackedBar3DChartItem1, CreateSideBySideStackedBar3DChartItem1, CreateStackedBar3DChartItem1}) + ChartControlCommandGalleryItemGroupCylinderColumn1.Caption = "Zylinder" + CreateCylinderBar3DChartItem1.Caption = "Gruppierte Zylinder" + CreateCylinderBar3DChartItem1.Description = "Vergleicht Werte verschiedener Kategorien." + CreateCylinderBar3DChartItem1.Hint = "Vergleicht Werte verschiedener Kategorien." + CreateCylinderFullStackedBar3DChartItem1.Caption = "100 % Gestapelt Zylinder" + CreateCylinderFullStackedBar3DChartItem1.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreateCylinderFullStackedBar3DChartItem1.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreateCylinderManhattanBarChartItem1.Caption = "3-D-Zylinder" + CreateCylinderManhattanBarChartItem1.Description = "Werte zu vergleichen, über Kategorien und über Serie und einem Zylinder-Diagramm " & + "der drei Achsen anzeigen." + CreateCylinderManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und einem Zylinder-Diagramm " & + "der drei Achsen anzeigen." + CreateCylinderSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelt Zylinder" + CreateCylinderSideBySideFullStackedBar3DChartItem1.Description = resources.GetString("CreateCylinderSideBySideFullStackedBar3DChartItem1.Description") + CreateCylinderSideBySideFullStackedBar3DChartItem1.Hint = resources.GetString("CreateCylinderSideBySideFullStackedBar3DChartItem1.Hint") + CreateCylinderSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Zylinder" + CreateCylinderSideBySideStackedBar3DChartItem1.Description = "Verbinden die Vorteile von gestapelt Zylinder sowohl Clustered Zylinder Diagrammt" & + "ypen, so dass Sie können verschiedene Zylinder Stapeln und sie in Gruppen über d" & + "en gleichen Achsenwert kombinieren." + CreateCylinderSideBySideStackedBar3DChartItem1.Hint = "Verbinden die Vorteile von gestapelt Zylinder sowohl Clustered Zylinder Diagrammt" & + "ypen, so dass Sie können verschiedene Zylinder Stapeln und sie in Gruppen über d" & + "en gleichen Achsenwert kombinieren." + CreateCylinderStackedBar3DChartItem1.Caption = "Gestapelte Zylinder" + CreateCylinderStackedBar3DChartItem1.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + "hen." + CreateCylinderStackedBar3DChartItem1.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + "hen." + ChartControlCommandGalleryItemGroupCylinderColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateCylinderBar3DChartItem1, CreateCylinderFullStackedBar3DChartItem1, CreateCylinderManhattanBarChartItem1, CreateCylinderSideBySideFullStackedBar3DChartItem1, CreateCylinderSideBySideStackedBar3DChartItem1, CreateCylinderStackedBar3DChartItem1}) + ChartControlCommandGalleryItemGroupConeColumn1.Caption = "Kegel" + CreateConeBar3DChartItem1.Caption = "Gruppierte Kegel" + CreateConeBar3DChartItem1.Description = "Werte verschiedener Kategorien vergleichen." + CreateConeBar3DChartItem1.Hint = "Werte verschiedener Kategorien vergleichen." + CreateConeFullStackedBar3DChartItem1.Caption = "100 % Gestapelt Kegel" + CreateConeFullStackedBar3DChartItem1.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreateConeFullStackedBar3DChartItem1.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreateConeManhattanBarChartItem1.Caption = "3-D-Kegel" + CreateConeManhattanBarChartItem1.Description = "Werte zu vergleichen, über Kategorien und über Serie und ein Kegel-Diagramm auf d" & + "rei Achsen anzeigen." + CreateConeManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und ein Kegel-Diagramm auf d" & + "rei Achsen anzeigen." + CreateConeSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelt Kegel" + CreateConeSideBySideFullStackedBar3DChartItem1.Description = resources.GetString("CreateConeSideBySideFullStackedBar3DChartItem1.Description") + CreateConeSideBySideFullStackedBar3DChartItem1.Hint = resources.GetString("CreateConeSideBySideFullStackedBar3DChartItem1.Hint") + CreateConeSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Kegel" + CreateConeSideBySideStackedBar3DChartItem1.Description = "Verbinden die Vorteile von gestapelt Kegel sowohl gruppierte Kegel Diagrammtypen," & + " so dass Sie können verschiedene Vulkankegel Stapeln und sie in Gruppen über den" & + " gleichen Achsenwert kombinieren." + CreateConeSideBySideStackedBar3DChartItem1.Hint = "Verbinden die Vorteile von gestapelt Kegel sowohl gruppierte Kegel Diagrammtypen," & + " so dass Sie können verschiedene Vulkankegel Stapeln und sie in Gruppen über den" & + " gleichen Achsenwert kombinieren." + CreateConeStackedBar3DChartItem1.Caption = "Gestapelte Kegel" + CreateConeStackedBar3DChartItem1.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + "hen." + CreateConeStackedBar3DChartItem1.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + "hen." + ChartControlCommandGalleryItemGroupConeColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateConeBar3DChartItem1, CreateConeFullStackedBar3DChartItem1, CreateConeManhattanBarChartItem1, CreateConeSideBySideFullStackedBar3DChartItem1, CreateConeSideBySideStackedBar3DChartItem1, CreateConeStackedBar3DChartItem1}) + ChartControlCommandGalleryItemGroupPyramidColumn1.Caption = "Pyramide" + CreatePyramidBar3DChartItem1.Caption = "Gruppierte Pyramide" + CreatePyramidBar3DChartItem1.Description = "Vergleicht Werte verschiedener Kategorien." + CreatePyramidBar3DChartItem1.Hint = "Vergleicht Werte verschiedener Kategorien." + CreatePyramidFullStackedBar3DChartItem1.Caption = "100 % Gestapelt Pyramide" + CreatePyramidFullStackedBar3DChartItem1.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreatePyramidFullStackedBar3DChartItem1.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreatePyramidManhattanBarChartItem1.Caption = "3D Pyramide" + CreatePyramidManhattanBarChartItem1.Description = "Werte zu vergleichen, über Kategorien und über Serie und zeigen ein Pyramidendiag" & + "ramm auf drei Achsen." + CreatePyramidManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und zeigen ein Pyramidendiag" & + "ramm auf drei Achsen." + CreatePyramidSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelte Pyramide" + CreatePyramidSideBySideFullStackedBar3DChartItem1.Description = resources.GetString("CreatePyramidSideBySideFullStackedBar3DChartItem1.Description") + CreatePyramidSideBySideFullStackedBar3DChartItem1.Hint = resources.GetString("CreatePyramidSideBySideFullStackedBar3DChartItem1.Hint") + CreatePyramidSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Pyramide" + CreatePyramidSideBySideStackedBar3DChartItem1.Description = resources.GetString("CreatePyramidSideBySideStackedBar3DChartItem1.Description") + CreatePyramidSideBySideStackedBar3DChartItem1.Hint = resources.GetString("CreatePyramidSideBySideStackedBar3DChartItem1.Hint") + CreatePyramidStackedBar3DChartItem1.Caption = "Pyramide gestapelt" + CreatePyramidStackedBar3DChartItem1.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + "hen." + CreatePyramidStackedBar3DChartItem1.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + "hen." + ChartControlCommandGalleryItemGroupPyramidColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePyramidBar3DChartItem1, CreatePyramidFullStackedBar3DChartItem1, CreatePyramidManhattanBarChartItem1, CreatePyramidSideBySideFullStackedBar3DChartItem1, CreatePyramidSideBySideStackedBar3DChartItem1, CreatePyramidStackedBar3DChartItem1}) + Me.CommandBarGalleryDropDown1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DColumn1, ChartControlCommandGalleryItemGroup3DColumn1, ChartControlCommandGalleryItemGroupCylinderColumn1, ChartControlCommandGalleryItemGroupConeColumn1, ChartControlCommandGalleryItemGroupPyramidColumn1}) + Me.CommandBarGalleryDropDown1.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown1.Gallery.RowCount = 10 + Me.CommandBarGalleryDropDown1.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown1.Name = "CommandBarGalleryDropDown1" + Me.CommandBarGalleryDropDown1.Ribbon = Me.RibbonControl1 + ' + 'CommandBarGalleryDropDown2 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown2.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown2.Gallery.ColumnCount = 3 + ChartControlCommandGalleryItemGroup2DLine1.Caption = "2-D-Linie" + CreateLineChartItem1.Caption = "Linie" + CreateLineChartItem1.Description = "Display Trend Überstunden (Termine, Jahre) oder sortierte Kategorien. Nützlich, w" & + "enn viele Datenpunkte vorhanden sind und die Reihenfolge wichtig ist." + CreateLineChartItem1.Hint = "Display Trend Überstunden (Termine, Jahre) oder sortierte Kategorien. Nützlich, w" & + "enn viele Datenpunkte vorhanden sind und die Reihenfolge wichtig ist." + CreateFullStackedLineChartItem1.Caption = "100 % Gestapelte Linie" + CreateFullStackedLineChartItem1.Description = "Zeigen den Trend für den Prozentsatz jeder Wert über Zeit oder geordnete Kategori" & + "en beiträgt." + CreateFullStackedLineChartItem1.Hint = "Zeigen den Trend für den Prozentsatz jeder Wert über Zeit oder geordnete Kategori" & + "en beiträgt." + CreateScatterLineChartItem1.Caption = "Scatter Linie" + CreateScatterLineChartItem1.Description = "Serie Punkte in der gleichen Reihenfolge, die sie in der Auflistung darstellen." + CreateScatterLineChartItem1.Hint = "Serie Punkte in der gleichen Reihenfolge, die sie in der Auflistung darstellen." + CreateSplineChartItem1.Caption = "Keil" + CreateSplineChartItem1.Description = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateSplineChartItem1.Hint = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateStackedLineChartItem1.Caption = "Gestapelte Linie" + CreateStackedLineChartItem1.Description = "Displays the trend of the contribution of each value over time or ordered categor" & + "ies." + CreateStackedLineChartItem1.Hint = "Displays the trend of the contribution of each value over time or ordered categor" & + "ies." + CreateStepLineChartItem1.Caption = "Stufenlinie" + CreateStepLineChartItem1.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + "ndert haben." + CreateStepLineChartItem1.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + "ndert haben." + ChartControlCommandGalleryItemGroup2DLine1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateLineChartItem1, CreateFullStackedLineChartItem1, CreateScatterLineChartItem1, CreateSplineChartItem1, CreateStackedLineChartItem1, CreateStepLineChartItem1}) + ChartControlCommandGalleryItemGroup3DLine1.Caption = "3-D-Linie" + CreateLine3DChartItem1.Caption = "3-D-Linie" + CreateLine3DChartItem1.Description = "Zeigt jede Zeile oder Spalte mit Daten als ein 3-d Band auf drei Achsen." + CreateLine3DChartItem1.Hint = "Zeigt jede Zeile oder Spalte mit Daten als ein 3-d Band auf drei Achsen." + CreateFullStackedLine3DChartItem1.Caption = "100 % Gestapelte Linie in 3-d" + CreateFullStackedLine3DChartItem1.Description = "anzeigen alle gestapelten und ist nützlich, wenn es erforderlich ist, vergleichen" & + ", wie viel jede Reihe der aggregierten Gesamtwert für bestimmte Argumente (als P" & + "rozente) hinzufügt." + CreateFullStackedLine3DChartItem1.Hint = "anzeigen alle gestapelten und ist nützlich, wenn es erforderlich ist, vergleichen" & + ", wie viel jede Reihe der aggregierten Gesamtwert für bestimmte Argumente (als P" & + "rozente) hinzufügt." + CreateSpline3DChartItem1.Caption = "3D-Spline" + CreateSpline3DChartItem1.Description = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateSpline3DChartItem1.Hint = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateStackedLine3DChartItem1.Caption = "Gestapelte Linie in 3-d" + CreateStackedLine3DChartItem1.Description = resources.GetString("CreateStackedLine3DChartItem1.Description") + CreateStackedLine3DChartItem1.Hint = resources.GetString("CreateStackedLine3DChartItem1.Hint") + CreateStepLine3DChartItem1.Caption = "Schritt-Linie in 3-d" + CreateStepLine3DChartItem1.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + "ndert haben." + CreateStepLine3DChartItem1.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + "ndert haben." + ChartControlCommandGalleryItemGroup3DLine1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateLine3DChartItem1, CreateFullStackedLine3DChartItem1, CreateSpline3DChartItem1, CreateStackedLine3DChartItem1, CreateStepLine3DChartItem1}) + Me.CommandBarGalleryDropDown2.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DLine1, ChartControlCommandGalleryItemGroup3DLine1}) + Me.CommandBarGalleryDropDown2.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown2.Gallery.RowCount = 4 + Me.CommandBarGalleryDropDown2.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown2.Name = "CommandBarGalleryDropDown2" + Me.CommandBarGalleryDropDown2.Ribbon = Me.RibbonControl1 + ' + 'CommandBarGalleryDropDown3 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown3.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown3.Gallery.ColumnCount = 3 + ChartControlCommandGalleryItemGroup2DPie1.Caption = "Torte 2-D" + CreatePieChartItem1.Caption = "Torte" + CreatePieChartItem1.Description = resources.GetString("CreatePieChartItem1.Description") + CreatePieChartItem1.Hint = resources.GetString("CreatePieChartItem1.Hint") + CreateDoughnutChartItem1.Caption = "Ring" + CreateDoughnutChartItem1.Description = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert wie ein Kreisdiagramm, aber " & + "es kann mehrere Reihen enthalten." + CreateDoughnutChartItem1.Hint = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert wie ein Kreisdiagramm, aber " & + "es kann mehrere Reihen enthalten." + CreateNestedDoughnutChartItem1.Caption = "Verschachtelter Donut" + CreateNestedDoughnutChartItem1.Description = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert während vergleichen-Serie mi" & + "t einem Donut in einem anderen geschachtelt." + CreateNestedDoughnutChartItem1.Hint = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert während vergleichen-Serie mi" & + "t einem Donut in einem anderen geschachtelt." + ChartControlCommandGalleryItemGroup2DPie1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePieChartItem1, CreateDoughnutChartItem1, CreateNestedDoughnutChartItem1}) + ChartControlCommandGalleryItemGroup3DPie1.Caption = "3-D Torte" + CreatePie3DChartItem1.Caption = "3D-Kreis" + CreatePie3DChartItem1.Description = "zeigen die Verteilung der Einzelwerte zum Gesamtwert." + CreatePie3DChartItem1.Hint = "zeigen die Verteilung der Einzelwerte zum Gesamtwert." + CreateDoughnut3DChartItem1.Caption = "Donut in 3-d" + CreateDoughnut3DChartItem1.Description = "Vergleichen die Prozentwerte der verschiedenen Argumente in der gleichen Serie un" & + "d illustrieren diese Werte als leicht verständliche Kreissegmente, sondern mit e" & + "inem Loch in der Mitte." + CreateDoughnut3DChartItem1.Hint = "Vergleichen die Prozentwerte der verschiedenen Argumente in der gleichen Serie un" & + "d illustrieren diese Werte als leicht verständliche Kreissegmente, sondern mit e" & + "inem Loch in der Mitte." + ChartControlCommandGalleryItemGroup3DPie1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePie3DChartItem1, CreateDoughnut3DChartItem1}) + Me.CommandBarGalleryDropDown3.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DPie1, ChartControlCommandGalleryItemGroup3DPie1}) + Me.CommandBarGalleryDropDown3.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown3.Gallery.RowCount = 2 + Me.CommandBarGalleryDropDown3.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown3.Name = "CommandBarGalleryDropDown3" + Me.CommandBarGalleryDropDown3.Ribbon = Me.RibbonControl1 + ' + 'CommandBarGalleryDropDown4 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown4.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown4.Gallery.ColumnCount = 3 + ChartControlCommandGalleryItemGroup2DBar1.Caption = "2D-Balken" + CreateRotatedBarChartItem1.Caption = "Balken" + CreateRotatedBarChartItem1.Description = "ein Balkendiagramm." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Balkendiagramme sind der beste Chart-Typ für den Vergleich" & + " mehrerer Werte." + CreateRotatedBarChartItem1.Hint = "ein Balkendiagramm." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Balkendiagramme sind der beste Chart-Typ für den Vergleich" & + " mehrerer Werte." + CreateRotatedFullStackedBarChartItem1.Caption = "100 % Gestapelt Bar" + CreateRotatedFullStackedBarChartItem1.Description = resources.GetString("CreateRotatedFullStackedBarChartItem1.Description") + CreateRotatedFullStackedBarChartItem1.Hint = resources.GetString("CreateRotatedFullStackedBarChartItem1.Hint") + CreateRotatedSideBySideFullStackedBarChartItem1.Caption = "Gruppierte 100 % gestapelt Bar" + CreateRotatedSideBySideFullStackedBarChartItem1.Description = "Verbinden die Vorteile der beiden 100 % gestapelte Balken und gruppierte Balken D" & + "iagrammtypen, so können Sie verschiedene Bars Stapeln und sie in Gruppen über de" & + "n gleichen Achsenwert kombinieren." + CreateRotatedSideBySideFullStackedBarChartItem1.Hint = "Verbinden die Vorteile der beiden 100 % gestapelte Balken und gruppierte Balken D" & + "iagrammtypen, so können Sie verschiedene Bars Stapeln und sie in Gruppen über de" & + "n gleichen Achsenwert kombinieren." + CreateRotatedSideBySideStackedBarChartItem1.Caption = "Gruppierte gestapelte Balken" + CreateRotatedSideBySideStackedBarChartItem1.Description = "Verbinden die Vorteile der beiden gestapelte Balken und gruppierte Balken Diagram" & + "mtypen, so dass Sie können verschiedene Bars Stapeln und sie in Gruppen auf der " & + "gleichen Achsenwert kombinieren." + CreateRotatedSideBySideStackedBarChartItem1.Hint = "Verbinden die Vorteile der beiden gestapelte Balken und gruppierte Balken Diagram" & + "mtypen, so dass Sie können verschiedene Bars Stapeln und sie in Gruppen auf der " & + "gleichen Achsenwert kombinieren." + CreateRotatedStackedBarChartItem1.Caption = "Gestapelte Balken" + CreateRotatedStackedBarChartItem1.Description = "Die Verteilung der Einzelwerte auf insgesamt über Kategorien mithilfe von horizon" & + "talen Rechtecke vergleichen." + CreateRotatedStackedBarChartItem1.Hint = "Die Verteilung der Einzelwerte auf insgesamt über Kategorien mithilfe von horizon" & + "talen Rechtecke vergleichen." + ChartControlCommandGalleryItemGroup2DBar1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRotatedBarChartItem1, CreateRotatedFullStackedBarChartItem1, CreateRotatedSideBySideFullStackedBarChartItem1, CreateRotatedSideBySideStackedBarChartItem1, CreateRotatedStackedBarChartItem1}) + Me.CommandBarGalleryDropDown4.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DBar1}) + Me.CommandBarGalleryDropDown4.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown4.Gallery.RowCount = 2 + Me.CommandBarGalleryDropDown4.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown4.Name = "CommandBarGalleryDropDown4" + Me.CommandBarGalleryDropDown4.Ribbon = Me.RibbonControl1 + ' + 'CommandBarGalleryDropDown5 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown5.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown5.Gallery.ColumnCount = 4 + ChartControlCommandGalleryItemGroup2DArea1.Caption = "2-D Bereich" + CreateAreaChartItem1.Caption = "Fläche" + CreateAreaChartItem1.Description = "Zeigen den Trend für Werte über einen Zeitraum oder Kategorien." + CreateAreaChartItem1.Hint = "Zeigen den Trend für Werte über einen Zeitraum oder Kategorien." + CreateFullStackedAreaChartItem1.Caption = "100 % Gestapeltes Flächendiagramm" + CreateFullStackedAreaChartItem1.Description = "Anzeige der Trend des Prozentsatzes trägt jeder Wert über einen Zeitraum oder Kat" & + "egorien." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, um die Entwicklung des Anteils der einzelnen Reihe" & + "n zu betonen." + CreateFullStackedAreaChartItem1.Hint = "Anzeige der Trend des Prozentsatzes trägt jeder Wert über einen Zeitraum oder Kat" & + "egorien." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, um die Entwicklung des Anteils der einzelnen Reihe" & + "n zu betonen." + CreateFullStackedSplineAreaChartItem1.Caption = "100 % Gestapelt Spline-Bereich" + CreateFullStackedSplineAreaChartItem1.Description = "Verhalten sich ähnlich wie 100 % Stacked Area, aber Handlung eine eingepassten Ku" & + "rve durch jeden Datenpunkt in einer Reihe." + CreateFullStackedSplineAreaChartItem1.Hint = "Verhalten sich ähnlich wie 100 % Stacked Area, aber Handlung eine eingepassten Ku" & + "rve durch jeden Datenpunkt in einer Reihe." + CreateFullStackedStepAreaChartItem1.Caption = "100% Stacked Step Area" + CreateFullStackedStepAreaChartItem1.Description = "Behaves similarly to the 100% Stacked Area Chart but connects data points using h" & + "orizontal and vertical lines." + CreateFullStackedStepAreaChartItem1.Hint = "Behaves similarly to the 100% Stacked Area Chart but connects data points using h" & + "orizontal and vertical lines." + CreateSplineAreaChartItem1.Caption = "Splinefläche" + CreateSplineAreaChartItem1.Description = "Verhalten sich ähnlich wie Flächendiagramm aber plot eine eingepassten Kurve durc" & + "h jeden Datenpunkt in einer Reihe." + CreateSplineAreaChartItem1.Hint = "Verhalten sich ähnlich wie Flächendiagramm aber plot eine eingepassten Kurve durc" & + "h jeden Datenpunkt in einer Reihe." + CreateStackedAreaChartItem1.Caption = "Gestapelte Fläche" + CreateStackedAreaChartItem1.Description = "Anzeige der Tendenz des Beitrags der einzelnen Wert über einen Zeitraum oder Kate" & + "gorien." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, um den Trend in der Summe über Serie für eine Kateg" & + "orie zu betonen." + CreateStackedAreaChartItem1.Hint = "Anzeige der Tendenz des Beitrags der einzelnen Wert über einen Zeitraum oder Kate" & + "gorien." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, um den Trend in der Summe über Serie für eine Kateg" & + "orie zu betonen." + CreateStackedStepAreaChartItem1.Caption = "Stacked Step Area" + CreateStackedStepAreaChartItem1.Description = "Behaves similarly to the Stacked Area Chart but connects data points using horizo" & + "ntal and vertical lines." + CreateStackedStepAreaChartItem1.Hint = "Behaves similarly to the Stacked Area Chart but connects data points using horizo" & + "ntal and vertical lines." + CreateStackedSplineAreaChartItem1.Caption = "Gestapelte Spline-Fläche" + CreateStackedSplineAreaChartItem1.Description = "Verhalten sich ähnlich wie gestapeltes Flächendiagramm aber plot eine eingepasste" & + "n Kurve durch jeden Datenpunkt in einer Reihe." + CreateStackedSplineAreaChartItem1.Hint = "Verhalten sich ähnlich wie gestapeltes Flächendiagramm aber plot eine eingepasste" & + "n Kurve durch jeden Datenpunkt in einer Reihe." + CreateStepAreaChartItem1.Caption = "Step Bereich" + CreateStepAreaChartItem1.Description = "Zeigen, wie sehr die Werte für verschiedene Punkte der gleichen Serie verändert h" & + "aben." + CreateStepAreaChartItem1.Hint = "Zeigen, wie sehr die Werte für verschiedene Punkte der gleichen Serie verändert h" & + "aben." + ChartControlCommandGalleryItemGroup2DArea1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateAreaChartItem1, CreateFullStackedAreaChartItem1, CreateFullStackedSplineAreaChartItem1, CreateFullStackedStepAreaChartItem1, CreateSplineAreaChartItem1, CreateStackedAreaChartItem1, CreateStackedStepAreaChartItem1, CreateStackedSplineAreaChartItem1, CreateStepAreaChartItem1}) + ChartControlCommandGalleryItemGroup3DArea1.Caption = "3-D Bereich" + CreateArea3DChartItem1.Caption = "3-D Bereich" + CreateArea3DChartItem1.Description = resources.GetString("CreateArea3DChartItem1.Description") + CreateArea3DChartItem1.Hint = resources.GetString("CreateArea3DChartItem1.Hint") + CreateFullStackedArea3DChartItem1.Caption = "100 % Gestapelt Bereich in 3-d" + CreateFullStackedArea3DChartItem1.Description = resources.GetString("CreateFullStackedArea3DChartItem1.Description") + CreateFullStackedArea3DChartItem1.Hint = resources.GetString("CreateFullStackedArea3DChartItem1.Hint") + CreateFullStackedSplineArea3DChartItem1.Caption = "100 % Gestapelt Spline Bereich in 3-d" + CreateFullStackedSplineArea3DChartItem1.Description = "Verhalten ähnlich wie 100 % gestapeltes Flächendiagramm in 3D, aber plot eine ein" & + "gepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateFullStackedSplineArea3DChartItem1.Hint = "Verhalten ähnlich wie 100 % gestapeltes Flächendiagramm in 3D, aber plot eine ein" & + "gepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateSplineArea3DChartItem1.Caption = "Spline-Bereich in 3-d" + CreateSplineArea3DChartItem1.Description = "Verhalten sich ähnlich wie 3D Flächendiagramm, aber plot eine eingepassten Kurve " & + "durch jeden Datenpunkt in einer Reihe." + CreateSplineArea3DChartItem1.Hint = "Verhalten sich ähnlich wie 3D Flächendiagramm, aber plot eine eingepassten Kurve " & + "durch jeden Datenpunkt in einer Reihe." + CreateStackedArea3DChartItem1.Caption = "Gestapelte Fläche in 3-d)" + CreateStackedArea3DChartItem1.Description = "Serie als Bereiche in einem Diagramm anzeigen, so dass der Wert der einzelnen Dat" & + "enpunkte mit der zugrunde liegenden Datenpunkte Werte aggregiert wird." + CreateStackedArea3DChartItem1.Hint = "Serie als Bereiche in einem Diagramm anzeigen, so dass der Wert der einzelnen Dat" & + "enpunkte mit der zugrunde liegenden Datenpunkte Werte aggregiert wird." + CreateStackedSplineArea3DChartItem1.Caption = "Gestapelte Spline-Fläche in 3-d)" + CreateStackedSplineArea3DChartItem1.Description = "Verhalten sich ähnlich wie gestapelt Bereich in 3D Diagramm, aber plot eine einge" & + "passten Kurve durch jeden Datenpunkt in einer Reihe." + CreateStackedSplineArea3DChartItem1.Hint = "Verhalten sich ähnlich wie gestapelt Bereich in 3D Diagramm, aber plot eine einge" & + "passten Kurve durch jeden Datenpunkt in einer Reihe." + CreateStepArea3DChartItem1.Caption = "Schrittbereich in 3-d" + CreateStepArea3DChartItem1.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + "ndert haben." + CreateStepArea3DChartItem1.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + "ndert haben." + ChartControlCommandGalleryItemGroup3DArea1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateArea3DChartItem1, CreateFullStackedArea3DChartItem1, CreateFullStackedSplineArea3DChartItem1, CreateSplineArea3DChartItem1, CreateStackedArea3DChartItem1, CreateStackedSplineArea3DChartItem1, CreateStepArea3DChartItem1}) + Me.CommandBarGalleryDropDown5.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DArea1, ChartControlCommandGalleryItemGroup3DArea1}) + Me.CommandBarGalleryDropDown5.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown5.Gallery.RowCount = 5 + Me.CommandBarGalleryDropDown5.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown5.Name = "CommandBarGalleryDropDown5" + Me.CommandBarGalleryDropDown5.Ribbon = Me.RibbonControl1 + ' + 'CommandBarGalleryDropDown6 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown6.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown6.Gallery.ColumnCount = 4 + ChartControlCommandGalleryItemGroupPoint1.Caption = "Punkt" + CreatePointChartItem1.Caption = "Punkt" + CreatePointChartItem1.Description = "Verwenden Sie es, wenn es notwendig ist eigenständige Datenpunkte auf dem gleiche" & + "n Diagramm zu zeigen." + CreatePointChartItem1.Hint = "Verwenden Sie es, wenn es notwendig ist eigenständige Datenpunkte auf dem gleiche" & + "n Diagramm zu zeigen." + CreateBubbleChartItem1.Caption = "Blase" + CreateBubbleChartItem1.Description = "Ein Punktdiagramm ähneln, aber vergleichen Sie Gruppen von drei Werten anstelle v" & + "on zwei. Der dritte Wert bestimmt die Größe des Blasengrundwerts." + CreateBubbleChartItem1.Hint = "Ein Punktdiagramm ähneln, aber vergleichen Sie Gruppen von drei Werten anstelle v" & + "on zwei. Der dritte Wert bestimmt die Größe des Blasengrundwerts." + ChartControlCommandGalleryItemGroupPoint1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePointChartItem1, CreateBubbleChartItem1}) + ChartControlCommandGalleryItemGroupFunnel1.Caption = "Trichter" + CreateFunnelChartItem1.Caption = "Trichter" + CreateFunnelChartItem1.Description = resources.GetString("CreateFunnelChartItem1.Description") + CreateFunnelChartItem1.Hint = resources.GetString("CreateFunnelChartItem1.Hint") + CreateFunnel3DChartItem1.Caption = "3-D-Trichter" + CreateFunnel3DChartItem1.Description = resources.GetString("CreateFunnel3DChartItem1.Description") + CreateFunnel3DChartItem1.Hint = resources.GetString("CreateFunnel3DChartItem1.Hint") + ChartControlCommandGalleryItemGroupFunnel1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateFunnelChartItem1, CreateFunnel3DChartItem1}) + ChartControlCommandGalleryItemGroupFinancial1.Caption = "Finanziell" + CreateStockChartItem1.Caption = "Kurs" + CreateStockChartItem1.Description = resources.GetString("CreateStockChartItem1.Description") + CreateStockChartItem1.Hint = resources.GetString("CreateStockChartItem1.Hint") + CreateCandleStickChartItem1.Caption = "Leuchter" + CreateCandleStickChartItem1.Description = resources.GetString("CreateCandleStickChartItem1.Description") + CreateCandleStickChartItem1.Hint = resources.GetString("CreateCandleStickChartItem1.Hint") + ChartControlCommandGalleryItemGroupFinancial1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateStockChartItem1, CreateCandleStickChartItem1}) + ChartControlCommandGalleryItemGroupRadar1.Caption = "Radar" + CreateRadarPointChartItem1.Caption = "Radar Punkte" + CreateRadarPointChartItem1.Description = "Zeigen Punkte aus zwei oder mehr unterschiedlichen Reihe auf die gleichen Punkte " & + "Argumente auf einem kreisförmigen Raster, die mehrere Achsen hat die Daten gezei" & + "chnet werden können." + CreateRadarPointChartItem1.Hint = "Zeigen Punkte aus zwei oder mehr unterschiedlichen Reihe auf die gleichen Punkte " & + "Argumente auf einem kreisförmigen Raster, die mehrere Achsen hat die Daten gezei" & + "chnet werden können." + CreateRadarLineChartItem1.Caption = "Radar Linie" + CreateRadarLineChartItem1.Description = resources.GetString("CreateRadarLineChartItem1.Description") + CreateRadarLineChartItem1.Hint = resources.GetString("CreateRadarLineChartItem1.Hint") + CreateRadarAreaChartItem1.Caption = "Radar Fläche" + CreateRadarAreaChartItem1.Description = "Anzeigen-Serie als gefüllte Fläche auf einem kreisförmigen Raster, die mehrere Ac" & + "hsen hat die Daten gezeichnet werden können." + CreateRadarAreaChartItem1.Hint = "Anzeigen-Serie als gefüllte Fläche auf einem kreisförmigen Raster, die mehrere Ac" & + "hsen hat die Daten gezeichnet werden können." + CreateRadarRangeAreaChartItem1.Caption = "Radar Range Area" + CreateRadarRangeAreaChartItem1.Description = resources.GetString("CreateRadarRangeAreaChartItem1.Description") + CreateRadarRangeAreaChartItem1.Hint = resources.GetString("CreateRadarRangeAreaChartItem1.Hint") + CreateScatterRadarLineChartItem1.Caption = "Radar-Linie zu zerstreuen" + CreateScatterRadarLineChartItem1.Description = resources.GetString("CreateScatterRadarLineChartItem1.Description") + CreateScatterRadarLineChartItem1.Hint = resources.GetString("CreateScatterRadarLineChartItem1.Hint") + ChartControlCommandGalleryItemGroupRadar1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRadarPointChartItem1, CreateRadarLineChartItem1, CreateRadarAreaChartItem1, CreateRadarRangeAreaChartItem1, CreateScatterRadarLineChartItem1}) + ChartControlCommandGalleryItemGroupPolar1.Caption = "Polar" + CreatePolarPointChartItem1.Caption = "Polar Punkte" + CreatePolarPointChartItem1.Description = "Punkte aus zwei oder mehr unterschiedlichen Reihe auf das gleiche kreisförmige Di" & + "agramm auf der Grundlage der Winkel anzeigen." + CreatePolarPointChartItem1.Hint = "Punkte aus zwei oder mehr unterschiedlichen Reihe auf das gleiche kreisförmige Di" & + "agramm auf der Grundlage der Winkel anzeigen." + CreatePolarLineChartItem1.Caption = "Polar Linie" + CreatePolarLineChartItem1.Description = "Zeigen Trends für mehrere Serien und ihre Werte zu vergleichen, denn die gleichen" & + " Argumente in einem kreisförmigen Diagramm auf der Grundlage von Winkeln verweis" & + "t." + CreatePolarLineChartItem1.Hint = "Zeigen Trends für mehrere Serien und ihre Werte zu vergleichen, denn die gleichen" & + " Argumente in einem kreisförmigen Diagramm auf der Grundlage von Winkeln verweis" & + "t." + CreatePolarAreaChartItem1.Caption = "Polar Fläche" + CreatePolarAreaChartItem1.Description = "Serie als gefüllte Fläche in einem kreisförmigen Diagramm auf der Grundlage der W" & + "inkel angezeigt." + CreatePolarAreaChartItem1.Hint = "Serie als gefüllte Fläche in einem kreisförmigen Diagramm auf der Grundlage der W" & + "inkel angezeigt." + CreatePolarRangeAreaChartItem1.Caption = "Polar Range Area" + CreatePolarRangeAreaChartItem1.Description = resources.GetString("CreatePolarRangeAreaChartItem1.Description") + CreatePolarRangeAreaChartItem1.Hint = resources.GetString("CreatePolarRangeAreaChartItem1.Hint") + CreateScatterPolarLineChartItem1.Caption = "Streue Polar Linie" + CreateScatterPolarLineChartItem1.Description = resources.GetString("CreateScatterPolarLineChartItem1.Description") + CreateScatterPolarLineChartItem1.Hint = resources.GetString("CreateScatterPolarLineChartItem1.Hint") + ChartControlCommandGalleryItemGroupPolar1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePolarPointChartItem1, CreatePolarLineChartItem1, CreatePolarAreaChartItem1, CreatePolarRangeAreaChartItem1, CreateScatterPolarLineChartItem1}) + ChartControlCommandGalleryItemGroupRange1.Caption = "Bereich" + CreateRangeBarChartItem1.Caption = "Bereich Spalte" + CreateRangeBarChartItem1.Description = "Display vertikale Spalten entlang der Y-Achse (die Achse der Werte). Jede Spalte " & + "stellt einen Bereich von Daten für jede Argumentwert." + CreateRangeBarChartItem1.Hint = "Display vertikale Spalten entlang der Y-Achse (die Achse der Werte). Jede Spalte " & + "stellt einen Bereich von Daten für jede Argumentwert." + CreateSideBySideRangeBarChartItem1.Caption = "Gruppierter Spaltenbereich" + CreateSideBySideRangeBarChartItem1.Description = "Aktivität anzeigen Spalten aus unterschiedlichen Reihe gruppiert nach ihrer Argum" & + "ente. Jede Spalte stellt einen Bereich von Daten mit zwei Werte für Einzelwerte " & + "Argument." + CreateSideBySideRangeBarChartItem1.Hint = "Aktivität anzeigen Spalten aus unterschiedlichen Reihe gruppiert nach ihrer Argum" & + "ente. Jede Spalte stellt einen Bereich von Daten mit zwei Werte für Einzelwerte " & + "Argument." + CreateRangeAreaChartItem1.Caption = "Range Bereich" + CreateRangeAreaChartItem1.Description = resources.GetString("CreateRangeAreaChartItem1.Description") + CreateRangeAreaChartItem1.Hint = resources.GetString("CreateRangeAreaChartItem1.Hint") + CreateRangeArea3DChartItem1.Caption = "Bereich in 3D" + CreateRangeArea3DChartItem1.Description = resources.GetString("CreateRangeArea3DChartItem1.Description") + CreateRangeArea3DChartItem1.Hint = resources.GetString("CreateRangeArea3DChartItem1.Hint") + ChartControlCommandGalleryItemGroupRange1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRangeBarChartItem1, CreateSideBySideRangeBarChartItem1, CreateRangeAreaChartItem1, CreateRangeArea3DChartItem1}) + ChartControlCommandGalleryItemGroupGantt1.Caption = "Balkendiagramm" + CreateGanttChartItem1.Caption = "Balkendiagramm" + CreateGanttChartItem1.Description = "verfolgen verschiedene Aktivitäten während der zeitliche Rahmen." + CreateGanttChartItem1.Hint = "verfolgen verschiedene Aktivitäten während der zeitliche Rahmen." + CreateSideBySideGanttChartItem1.Caption = "Clustered Gantt" + CreateSideBySideGanttChartItem1.Description = resources.GetString("CreateSideBySideGanttChartItem1.Description") + CreateSideBySideGanttChartItem1.Hint = resources.GetString("CreateSideBySideGanttChartItem1.Hint") + ChartControlCommandGalleryItemGroupGantt1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateGanttChartItem1, CreateSideBySideGanttChartItem1}) + ChartControlCommandGalleryItemGroupBoxPlot1.Caption = "BoxPlot" + CreateBoxPlotChartItem1.Caption = "BoxPlot" + CreateBoxPlotChartItem1.Description = resources.GetString("CreateBoxPlotChartItem1.Description") + CreateBoxPlotChartItem1.Hint = resources.GetString("CreateBoxPlotChartItem1.Hint") + ChartControlCommandGalleryItemGroupBoxPlot1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBoxPlotChartItem1}) + Me.CommandBarGalleryDropDown6.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroupPoint1, ChartControlCommandGalleryItemGroupFunnel1, ChartControlCommandGalleryItemGroupFinancial1, ChartControlCommandGalleryItemGroupRadar1, ChartControlCommandGalleryItemGroupPolar1, ChartControlCommandGalleryItemGroupRange1, ChartControlCommandGalleryItemGroupGantt1, ChartControlCommandGalleryItemGroupBoxPlot1}) + Me.CommandBarGalleryDropDown6.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown6.Gallery.RowCount = 9 + Me.CommandBarGalleryDropDown6.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown6.Name = "CommandBarGalleryDropDown6" + Me.CommandBarGalleryDropDown6.Ribbon = Me.RibbonControl1 + ' + 'CommandBarGalleryDropDown7 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown7.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Hovered.Options.UseFont = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Hovered.Options.UseTextOptions = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Hovered.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Normal.Options.UseFont = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Normal.Options.UseTextOptions = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Normal.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Pressed.Options.UseFont = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Pressed.Options.UseTextOptions = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemCaptionAppearance.Pressed.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Hovered.Options.UseFont = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Hovered.Options.UseTextOptions = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Hovered.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Normal.Options.UseFont = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Normal.Options.UseTextOptions = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Normal.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Pressed.Options.UseFont = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Pressed.Options.UseTextOptions = True + Me.CommandBarGalleryDropDown7.Gallery.Appearance.ItemDescriptionAppearance.Pressed.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.CommandBarGalleryDropDown7.Gallery.ColumnCount = 1 + Me.CommandBarGalleryDropDown7.Gallery.ImageSize = New System.Drawing.Size(160, 10) + Me.CommandBarGalleryDropDown7.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown7.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Right + SkinPaddingEdges1.Bottom = -3 + SkinPaddingEdges1.Top = -3 + Me.CommandBarGalleryDropDown7.Gallery.ItemImagePadding = SkinPaddingEdges1 + SkinPaddingEdges2.Bottom = -3 + SkinPaddingEdges2.Top = -3 + Me.CommandBarGalleryDropDown7.Gallery.ItemTextPadding = SkinPaddingEdges2 + Me.CommandBarGalleryDropDown7.Gallery.RowCount = 10 + Me.CommandBarGalleryDropDown7.Gallery.ShowGroupCaption = False + Me.CommandBarGalleryDropDown7.Gallery.ShowItemText = True + Me.CommandBarGalleryDropDown7.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown7.Name = "CommandBarGalleryDropDown7" + Me.CommandBarGalleryDropDown7.Ribbon = Me.RibbonControl1 + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 745) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1124, 21) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource + ' + Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataMember = "VWPM_CHART_INVOICE_MONITOR_SERIES" + Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter + ' + Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing + Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'GridControl1 + ' + Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GridControl1.DataSource = Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource + Me.GridControl1.Location = New System.Drawing.Point(7, 16) + Me.GridControl1.MainView = Me.TileView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(1114, 119) + Me.GridControl1.TabIndex = 5 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1}) + ' + 'TileView1 + ' + Me.TileView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTitle, Me.colAnzahl, Me.colNettoSumme}) + Me.TileView1.GridControl = Me.GridControl1 + Me.TileView1.Name = "TileView1" + Me.TileView1.OptionsTiles.IndentBetweenItems = 7 + Me.TileView1.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(13) + Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(144, 86) + Me.TileView1.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) + Me.TileView1.TileColumns.Add(TableColumnDefinition1) + Me.TileView1.TileRows.Add(TableRowDefinition1) + Me.TileView1.TileRows.Add(TableRowDefinition2) + Me.TileView1.TileRows.Add(TableRowDefinition3) + TileViewItemElement1.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left + TileViewItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement1.Appearance.Normal.Options.UseFont = True + TileViewItemElement1.Column = Me.colTitle + TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement1.RowIndex = 2 + TileViewItemElement1.Text = "colTitle" + TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + TileViewItemElement2.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement2.Appearance.Normal.ForeColor = System.Drawing.Color.DimGray + TileViewItemElement2.Appearance.Normal.Options.UseFont = True + TileViewItemElement2.Appearance.Normal.Options.UseForeColor = True + TileViewItemElement2.Column = Me.colAnzahl + TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement2.Text = "colAnzahl" + TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight + TileViewItemElement3.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left + TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement3.Appearance.Normal.ForeColor = System.Drawing.Color.SteelBlue + TileViewItemElement3.Appearance.Normal.Options.UseFont = True + TileViewItemElement3.Appearance.Normal.Options.UseForeColor = True + TileViewItemElement3.Column = Me.colNettoSumme + TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement3.RowIndex = 1 + TileViewItemElement3.Text = "colNettoSumme" + TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + Me.TileView1.TileTemplate.Add(TileViewItemElement1) + Me.TileView1.TileTemplate.Add(TileViewItemElement2) + Me.TileView1.TileTemplate.Add(TileViewItemElement3) + ' + 'Label1 + ' + Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.DodgerBlue + Me.Label1.Location = New System.Drawing.Point(479, 3) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(162, 13) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "Verteilung Belege Workflow" + ' + 'GridControl2 + ' + Me.GridControl2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GridControl2.DataSource = Me.VWPM_CHART_TOP5BindingSource + Me.GridControl2.Location = New System.Drawing.Point(7, 141) + Me.GridControl2.MainView = Me.GridView1 + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(1105, 152) + Me.GridControl2.TabIndex = 9 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'VWPM_CHART_TOP5BindingSource + ' + Me.VWPM_CHART_TOP5BindingSource.DataMember = "VWPM_CHART_TOP5" + Me.VWPM_CHART_TOP5BindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'GridView1 + ' + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colKRED_NAME, Me.colANZ_BELEG, Me.colNetto, Me.colSkonto}) + Me.GridView1.GridControl = Me.GridControl2 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsView.ShowGroupPanel = False + Me.GridView1.OptionsView.ShowViewCaption = True + Me.GridView1.ViewCaption = "Top Kreditoren" + ' + 'colKRED_NAME + ' + Me.colKRED_NAME.Caption = "Kreditor" + Me.colKRED_NAME.FieldName = "KRED_NAME" + Me.colKRED_NAME.ImageOptions.SvgImage = CType(resources.GetObject("colKRED_NAME.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.colKRED_NAME.Name = "colKRED_NAME" + Me.colKRED_NAME.OptionsColumn.AllowEdit = False + Me.colKRED_NAME.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colKRED_NAME.Visible = True + Me.colKRED_NAME.VisibleIndex = 0 + Me.colKRED_NAME.Width = 215 + ' + 'colANZ_BELEG + ' + Me.colANZ_BELEG.Caption = "Anzahl" + Me.colANZ_BELEG.FieldName = "ANZ_BELEG" + Me.colANZ_BELEG.ImageOptions.SvgImage = CType(resources.GetObject("colANZ_BELEG.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.colANZ_BELEG.Name = "colANZ_BELEG" + Me.colANZ_BELEG.OptionsColumn.AllowEdit = False + Me.colANZ_BELEG.Visible = True + Me.colANZ_BELEG.VisibleIndex = 1 + Me.colANZ_BELEG.Width = 97 + ' + 'colNetto + ' + Me.colNetto.Caption = "Netto" + Me.colNetto.DisplayFormat.FormatString = "c2" + Me.colNetto.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric + Me.colNetto.FieldName = "Netto" + Me.colNetto.ImageOptions.Image = CType(resources.GetObject("colNetto.ImageOptions.Image"), System.Drawing.Image) + Me.colNetto.Name = "colNetto" + Me.colNetto.OptionsColumn.AllowEdit = False + Me.colNetto.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colNetto.Visible = True + Me.colNetto.VisibleIndex = 2 + Me.colNetto.Width = 191 + ' + 'colSkonto + ' + Me.colSkonto.Caption = "Skonto" + Me.colSkonto.DisplayFormat.FormatString = "c2" + Me.colSkonto.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric + Me.colSkonto.FieldName = "Skonto" + Me.colSkonto.Name = "colSkonto" + Me.colSkonto.OptionsColumn.AllowEdit = False + Me.colSkonto.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colSkonto.Visible = True + Me.colSkonto.VisibleIndex = 3 + Me.colSkonto.Width = 286 + ' + 'SplitContainerDashboard + ' + Me.SplitContainerDashboard.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerDashboard.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerDashboard.Name = "SplitContainerDashboard" + Me.SplitContainerDashboard.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainerDashboard.Panel1 + ' + Me.SplitContainerDashboard.Panel1.Controls.Add(Me.SplitContainerTop) + ' + 'SplitContainerDashboard.Panel2 + ' + Me.SplitContainerDashboard.Panel2.Controls.Add(Me.SplitContainerBottom) + Me.SplitContainerDashboard.Size = New System.Drawing.Size(1124, 291) + Me.SplitContainerDashboard.SplitterDistance = 158 + Me.SplitContainerDashboard.TabIndex = 12 + ' + 'SplitContainerTop + ' + Me.SplitContainerTop.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerTop.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerTop.Name = "SplitContainerTop" + ' + 'SplitContainerTop.Panel1 + ' + Me.SplitContainerTop.Panel1.Controls.Add(Me.ChartTopLeft) + ' + 'SplitContainerTop.Panel2 + ' + Me.SplitContainerTop.Panel2.Controls.Add(Me.ChartTopRight) + Me.SplitContainerTop.Size = New System.Drawing.Size(1124, 158) + Me.SplitContainerTop.SplitterDistance = 359 + Me.SplitContainerTop.TabIndex = 0 + ' + 'ChartTopLeft + ' + Me.ChartTopLeft.DataAdapter = Me.VWPM_CHART_TOP5TableAdapter + Me.ChartTopLeft.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChartTopLeft.Legend.Name = "Default Legend" + Me.ChartTopLeft.Location = New System.Drawing.Point(0, 0) + Me.ChartTopLeft.Name = "ChartTopLeft" + Me.ChartTopLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} + Me.ChartTopLeft.Size = New System.Drawing.Size(359, 158) + Me.ChartTopLeft.TabIndex = 2 + ' + 'VWPM_CHART_TOP5TableAdapter + ' + Me.VWPM_CHART_TOP5TableAdapter.ClearBeforeFill = True + ' + 'ChartTopRight + ' + Me.ChartTopRight.DataAdapter = Me.VWPM_CHART_TOP5TableAdapter + Me.ChartTopRight.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChartTopRight.Legend.Name = "Default Legend" + Me.ChartTopRight.Location = New System.Drawing.Point(0, 0) + Me.ChartTopRight.Name = "ChartTopRight" + Me.ChartTopRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} + Me.ChartTopRight.Size = New System.Drawing.Size(761, 158) + Me.ChartTopRight.TabIndex = 1 + ' + 'SplitContainerBottom + ' + Me.SplitContainerBottom.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerBottom.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerBottom.Name = "SplitContainerBottom" + ' + 'SplitContainerBottom.Panel1 + ' + Me.SplitContainerBottom.Panel1.Controls.Add(Me.ChartBottomLeft) + ' + 'SplitContainerBottom.Panel2 + ' + Me.SplitContainerBottom.Panel2.Controls.Add(Me.ChartBottomRight) + Me.SplitContainerBottom.Size = New System.Drawing.Size(1124, 129) + Me.SplitContainerBottom.SplitterDistance = 359 + Me.SplitContainerBottom.TabIndex = 0 + ' + 'ChartBottomLeft + ' + Me.ChartBottomLeft.DataAdapter = Me.VWPM_CHART_TOP5TableAdapter + Me.ChartBottomLeft.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChartBottomLeft.Legend.Name = "Default Legend" + Me.ChartBottomLeft.Location = New System.Drawing.Point(0, 0) + Me.ChartBottomLeft.Name = "ChartBottomLeft" + Me.ChartBottomLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} + Me.ChartBottomLeft.Size = New System.Drawing.Size(359, 129) + Me.ChartBottomLeft.TabIndex = 1 + ' + 'ChartBottomRight + ' + Me.ChartBottomRight.DataAdapter = Me.VWPM_CHART_TOP5TableAdapter + Me.ChartBottomRight.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChartBottomRight.Legend.Name = "Default Legend" + Me.ChartBottomRight.Location = New System.Drawing.Point(0, 0) + Me.ChartBottomRight.Name = "ChartBottomRight" + Me.ChartBottomRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} + Me.ChartBottomRight.Size = New System.Drawing.Size(761, 129) + Me.ChartBottomRight.TabIndex = 1 + ' + 'CreateChartOtherRibbonPage1 + ' + Me.CreateChartOtherRibbonPage1.Name = "CreateChartOtherRibbonPage1" + ' + 'ChartPrintExportRibbonPageGroup1 + ' + Me.ChartPrintExportRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False] + Me.ChartPrintExportRibbonPageGroup1.Name = "ChartPrintExportRibbonPageGroup1" + Me.ChartPrintExportRibbonPageGroup1.Text = "" + ' + 'ChartTemplatesRibbonPageGroup1 + ' + Me.ChartTemplatesRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False] + Me.ChartTemplatesRibbonPageGroup1.Name = "ChartTemplatesRibbonPageGroup1" + Me.ChartTemplatesRibbonPageGroup1.Text = "" + ' + 'ChartWizardRibbonPageGroup1 + ' + Me.ChartWizardRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False] + Me.ChartWizardRibbonPageGroup1.Name = "ChartWizardRibbonPageGroup1" + Me.ChartWizardRibbonPageGroup1.Text = "" + ' + 'CreateChartRibbonPage1 + ' + Me.CreateChartRibbonPage1.Name = "CreateChartRibbonPage1" + ' + 'ChartAppearanceRibbonPageGroup1 + ' + Me.ChartAppearanceRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False] + Me.ChartAppearanceRibbonPageGroup1.Name = "ChartAppearanceRibbonPageGroup1" + Me.ChartAppearanceRibbonPageGroup1.Text = "" + ' + 'ChartTypeRibbonPageGroup1 + ' + Me.ChartTypeRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False] + Me.ChartTypeRibbonPageGroup1.Name = "ChartTypeRibbonPageGroup1" + Me.ChartTypeRibbonPageGroup1.Text = "" + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Horizontal = False + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 146) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.AutoScroll = True + Me.SplitContainerControl1.Panel1.Controls.Add(Me.Panel2) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl2) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerDashboard) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1124, 599) + Me.SplitContainerControl1.SplitterPosition = 296 + Me.SplitContainerControl1.TabIndex = 15 + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.Label1) + Me.Panel2.Controls.Add(Me.GridControl1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1124, 135) + Me.Panel2.TabIndex = 12 + ' + 'ChartRibbonPageCategory1 + ' + Me.ChartRibbonPageCategory1.Control = Nothing + Me.ChartRibbonPageCategory1.Name = "ChartRibbonPageCategory1" + ' + 'RibbonPage3 + ' + Me.RibbonPage3.Name = "RibbonPage3" + Me.RibbonPage3.Text = "RibbonPage3" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Funktionen" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Dashboard" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Funktionen - Charts" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Export als PDF" + Me.BarButtonItem1.Hint = "Export den ausgewählten Chart als PDF" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Export als Bild" + Me.BarButtonItem2.Hint = "Exportiert den ausgewählten Chart als Bild" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Export Verteilung als PDF" + Me.BarButtonItem3.Hint = "Exportiert das Dashboard als PDF" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'CreateBarBaseItem1 + ' + Me.CreateBarBaseItem1.Caption = "Spalte" + Me.CreateBarBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown1 + Me.CreateBarBaseItem1.Enabled = False + Me.CreateBarBaseItem1.Id = 4 + Me.CreateBarBaseItem1.Name = "CreateBarBaseItem1" + ' + 'CreateLineBaseItem1 + ' + Me.CreateLineBaseItem1.Caption = "Linie" + Me.CreateLineBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown2 + Me.CreateLineBaseItem1.Enabled = False + Me.CreateLineBaseItem1.Id = 5 + Me.CreateLineBaseItem1.Name = "CreateLineBaseItem1" + ' + 'CreatePieBaseItem1 + ' + Me.CreatePieBaseItem1.Caption = "Torte" + Me.CreatePieBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown3 + Me.CreatePieBaseItem1.Enabled = False + Me.CreatePieBaseItem1.Id = 6 + Me.CreatePieBaseItem1.Name = "CreatePieBaseItem1" + ' + 'CreateRotatedBarBaseItem1 + ' + Me.CreateRotatedBarBaseItem1.Caption = "Balken" + Me.CreateRotatedBarBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown4 + Me.CreateRotatedBarBaseItem1.Enabled = False + Me.CreateRotatedBarBaseItem1.Id = 7 + Me.CreateRotatedBarBaseItem1.Name = "CreateRotatedBarBaseItem1" + ' + 'CreateAreaBaseItem1 + ' + Me.CreateAreaBaseItem1.Caption = "Fläche" + Me.CreateAreaBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown5 + Me.CreateAreaBaseItem1.Enabled = False + Me.CreateAreaBaseItem1.Id = 8 + Me.CreateAreaBaseItem1.Name = "CreateAreaBaseItem1" + ' + 'CreateOtherSeriesTypesBaseItem1 + ' + Me.CreateOtherSeriesTypesBaseItem1.Caption = "Sonstiges Charts" + Me.CreateOtherSeriesTypesBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown6 + Me.CreateOtherSeriesTypesBaseItem1.Enabled = False + Me.CreateOtherSeriesTypesBaseItem1.Id = 9 + Me.CreateOtherSeriesTypesBaseItem1.Name = "CreateOtherSeriesTypesBaseItem1" + ' + 'ChangePaletteGalleryBaseItem1 + ' + Me.ChangePaletteGalleryBaseItem1.Caption = "Palette" + Me.ChangePaletteGalleryBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown7 + Me.ChangePaletteGalleryBaseItem1.Enabled = False + Me.ChangePaletteGalleryBaseItem1.Id = 10 + Me.ChangePaletteGalleryBaseItem1.Name = "ChangePaletteGalleryBaseItem1" + ' + 'ChangeAppearanceGalleryBaseItem1 + ' + Me.ChangeAppearanceGalleryBaseItem1.Enabled = False + ' + ' + ' + Me.ChangeAppearanceGalleryBaseItem1.Gallery.ColumnCount = 7 + Me.ChangeAppearanceGalleryBaseItem1.Gallery.ImageSize = New System.Drawing.Size(80, 50) + Me.ChangeAppearanceGalleryBaseItem1.Gallery.RowCount = 4 + Me.ChangeAppearanceGalleryBaseItem1.Id = 11 + Me.ChangeAppearanceGalleryBaseItem1.Name = "ChangeAppearanceGalleryBaseItem1" + ' + 'RunDesignerChartItem1 + ' + Me.RunDesignerChartItem1.Caption = "Führen Sie den Diagrammassistenten..." + Me.RunDesignerChartItem1.Enabled = False + Me.RunDesignerChartItem1.Id = 12 + Me.RunDesignerChartItem1.Name = "RunDesignerChartItem1" + ' + 'SaveAsTemplateChartItem1 + ' + Me.SaveAsTemplateChartItem1.Caption = "Als Vorlage speichern" + Me.SaveAsTemplateChartItem1.Enabled = False + Me.SaveAsTemplateChartItem1.Id = 13 + Me.SaveAsTemplateChartItem1.Name = "SaveAsTemplateChartItem1" + ' + 'LoadTemplateChartItem1 + ' + Me.LoadTemplateChartItem1.Caption = "Laden" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vorlage" + Me.LoadTemplateChartItem1.Enabled = False + Me.LoadTemplateChartItem1.Id = 14 + Me.LoadTemplateChartItem1.Name = "LoadTemplateChartItem1" + ' + 'PrintPreviewChartItem1 + ' + Me.PrintPreviewChartItem1.Caption = "Druckvorschau" + Me.PrintPreviewChartItem1.Enabled = False + Me.PrintPreviewChartItem1.Id = 15 + Me.PrintPreviewChartItem1.Name = "PrintPreviewChartItem1" + ' + 'PrintChartItem1 + ' + Me.PrintChartItem1.Caption = "Drucken" + Me.PrintChartItem1.Enabled = False + Me.PrintChartItem1.Id = 16 + Me.PrintChartItem1.Name = "PrintChartItem1" + ' + 'CreateExportBaseItem1 + ' + Me.CreateExportBaseItem1.Caption = "Exportieren" + Me.CreateExportBaseItem1.Enabled = False + Me.CreateExportBaseItem1.Id = 17 + Me.CreateExportBaseItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToPDFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToHTMLChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToMHTChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToXLSChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToXLSXChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToRTFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CreateExportToImageBaseItem1)}) + Me.CreateExportBaseItem1.MenuDrawMode = DevExpress.XtraBars.MenuDrawMode.SmallImagesText + Me.CreateExportBaseItem1.Name = "CreateExportBaseItem1" + Me.CreateExportBaseItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'ExportToPDFChartItem1 + ' + Me.ExportToPDFChartItem1.Caption = "In PDF exportieren" + Me.ExportToPDFChartItem1.Enabled = False + Me.ExportToPDFChartItem1.Id = 18 + Me.ExportToPDFChartItem1.Name = "ExportToPDFChartItem1" + ' + 'ExportToHTMLChartItem1 + ' + Me.ExportToHTMLChartItem1.Caption = "Export in HTML" + Me.ExportToHTMLChartItem1.Enabled = False + Me.ExportToHTMLChartItem1.Id = 19 + Me.ExportToHTMLChartItem1.Name = "ExportToHTMLChartItem1" + ' + 'ExportToMHTChartItem1 + ' + Me.ExportToMHTChartItem1.Caption = "Exportieren in MHT" + Me.ExportToMHTChartItem1.Enabled = False + Me.ExportToMHTChartItem1.Id = 20 + Me.ExportToMHTChartItem1.Name = "ExportToMHTChartItem1" + ' + 'ExportToXLSChartItem1 + ' + Me.ExportToXLSChartItem1.Caption = "Export in XLS" + Me.ExportToXLSChartItem1.Enabled = False + Me.ExportToXLSChartItem1.Id = 21 + Me.ExportToXLSChartItem1.Name = "ExportToXLSChartItem1" + ' + 'ExportToXLSXChartItem1 + ' + Me.ExportToXLSXChartItem1.Caption = "Exportieren in XLSX" + Me.ExportToXLSXChartItem1.Enabled = False + Me.ExportToXLSXChartItem1.Id = 22 + Me.ExportToXLSXChartItem1.Name = "ExportToXLSXChartItem1" + ' + 'ExportToRTFChartItem1 + ' + Me.ExportToRTFChartItem1.Caption = "Export in RTF" + Me.ExportToRTFChartItem1.Enabled = False + Me.ExportToRTFChartItem1.Id = 23 + Me.ExportToRTFChartItem1.Name = "ExportToRTFChartItem1" + ' + 'ExportToBMPChartItem1 + ' + Me.ExportToBMPChartItem1.Caption = "BMP" + Me.ExportToBMPChartItem1.Enabled = False + Me.ExportToBMPChartItem1.Id = 24 + Me.ExportToBMPChartItem1.Name = "ExportToBMPChartItem1" + ' + 'ExportToGIFChartItem1 + ' + Me.ExportToGIFChartItem1.Caption = "GIF" + Me.ExportToGIFChartItem1.Enabled = False + Me.ExportToGIFChartItem1.Id = 25 + Me.ExportToGIFChartItem1.Name = "ExportToGIFChartItem1" + ' + 'ExportToJPEGChartItem1 + ' + Me.ExportToJPEGChartItem1.Caption = "JPEG" + Me.ExportToJPEGChartItem1.Enabled = False + Me.ExportToJPEGChartItem1.Id = 26 + Me.ExportToJPEGChartItem1.Name = "ExportToJPEGChartItem1" + ' + 'ExportToPNGChartItem1 + ' + Me.ExportToPNGChartItem1.Caption = "PNG" + Me.ExportToPNGChartItem1.Enabled = False + Me.ExportToPNGChartItem1.Id = 27 + Me.ExportToPNGChartItem1.Name = "ExportToPNGChartItem1" + ' + 'ExportToTIFFChartItem1 + ' + Me.ExportToTIFFChartItem1.Caption = "TIFF" + Me.ExportToTIFFChartItem1.Enabled = False + Me.ExportToTIFFChartItem1.Id = 28 + Me.ExportToTIFFChartItem1.Name = "ExportToTIFFChartItem1" + ' + 'CreateExportToImageBaseItem1 + ' + Me.CreateExportToImageBaseItem1.Caption = "Bild exportieren" + Me.CreateExportToImageBaseItem1.Enabled = False + Me.CreateExportToImageBaseItem1.Id = 29 + Me.CreateExportToImageBaseItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToBMPChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToGIFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToJPEGChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToPNGChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToTIFFChartItem1)}) + Me.CreateExportToImageBaseItem1.MenuDrawMode = DevExpress.XtraBars.MenuDrawMode.SmallImagesText + Me.CreateExportToImageBaseItem1.Name = "CreateExportToImageBaseItem1" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Export Top Kreditoren als xlsx" + Me.BarButtonItem4.Id = 30 + Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "Export Top Kreditoren als pdf" + Me.BarButtonItem5.Id = 31 + Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem5.Name = "BarButtonItem5" + ' + 'BarButtonItem6 + ' + Me.BarButtonItem6.Caption = "BarButtonItem6" + Me.BarButtonItem6.Id = 32 + Me.BarButtonItem6.Name = "BarButtonItem6" + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.CreateBarBaseItem1, Me.CreateLineBaseItem1, Me.CreatePieBaseItem1, Me.CreateRotatedBarBaseItem1, Me.CreateAreaBaseItem1, Me.CreateOtherSeriesTypesBaseItem1, Me.ChangePaletteGalleryBaseItem1, Me.ChangeAppearanceGalleryBaseItem1, Me.RunDesignerChartItem1, Me.SaveAsTemplateChartItem1, Me.LoadTemplateChartItem1, Me.PrintPreviewChartItem1, Me.PrintChartItem1, Me.CreateExportBaseItem1, Me.ExportToPDFChartItem1, Me.ExportToHTMLChartItem1, Me.ExportToMHTChartItem1, Me.ExportToXLSChartItem1, Me.ExportToXLSXChartItem1, Me.ExportToRTFChartItem1, Me.ExportToBMPChartItem1, Me.ExportToGIFChartItem1, Me.ExportToJPEGChartItem1, Me.ExportToPNGChartItem1, Me.ExportToTIFFChartItem1, Me.CreateExportToImageBaseItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 33 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.ChartRibbonPageCategory1}) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) + Me.RibbonControl1.Size = New System.Drawing.Size(1124, 146) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'frmInvDashboard + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1124, 766) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmInvDashboard" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Invoice Dashboard" + CType(Me.CommandBarGalleryDropDown1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPM_CHART_TOP5BindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerDashboard.Panel1.ResumeLayout(False) + Me.SplitContainerDashboard.Panel2.ResumeLayout(False) + CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerDashboard.ResumeLayout(False) + Me.SplitContainerTop.Panel1.ResumeLayout(False) + Me.SplitContainerTop.Panel2.ResumeLayout(False) + CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerTop.ResumeLayout(False) + CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerBottom.Panel1.ResumeLayout(False) + Me.SplitContainerBottom.Panel2.ResumeLayout(False) + CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerBottom.ResumeLayout(False) + CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ChartBarController1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet + Friend WithEvents VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource As BindingSource + Friend WithEvents VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter As DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter + Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView + Friend WithEvents colAnzahl As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents colNettoSumme As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents colTitle As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents Label1 As Label + Friend WithEvents SplitContainerDashboard As SplitContainer + Friend WithEvents SplitContainerTop As SplitContainer + Friend WithEvents ChartTopLeft As DevExpress.XtraCharts.ChartControl + Friend WithEvents ChartTopRight As DevExpress.XtraCharts.ChartControl + Friend WithEvents SplitContainerBottom As SplitContainer + Friend WithEvents ChartBottomLeft As DevExpress.XtraCharts.ChartControl + Friend WithEvents ChartBottomRight As DevExpress.XtraCharts.ChartControl + Friend WithEvents SaveFileDialog1 As SaveFileDialog + Friend WithEvents VWPM_CHART_TOP5TableAdapter As DD_DMSLiteDataSetTableAdapters.VWPM_CHART_TOP5TableAdapter + Friend WithEvents VWPM_CHART_TOP5BindingSource As BindingSource + Friend WithEvents CommandBarGalleryDropDown1 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown2 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown3 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown4 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown5 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown6 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown7 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colKRED_NAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colANZ_BELEG As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNetto As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSkonto As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents ChartBarController1 As DevExpress.XtraCharts.UI.ChartBarController + Friend WithEvents CreateChartOtherRibbonPage1 As DevExpress.XtraCharts.UI.CreateChartOtherRibbonPage + Friend WithEvents ChartPrintExportRibbonPageGroup1 As DevExpress.XtraCharts.UI.ChartPrintExportRibbonPageGroup + Friend WithEvents ChartTemplatesRibbonPageGroup1 As DevExpress.XtraCharts.UI.ChartTemplatesRibbonPageGroup + Friend WithEvents ChartWizardRibbonPageGroup1 As DevExpress.XtraCharts.UI.ChartWizardRibbonPageGroup + Friend WithEvents CreateChartRibbonPage1 As DevExpress.XtraCharts.UI.CreateChartRibbonPage + Friend WithEvents ChartAppearanceRibbonPageGroup1 As DevExpress.XtraCharts.UI.ChartAppearanceRibbonPageGroup + Friend WithEvents ChartTypeRibbonPageGroup1 As DevExpress.XtraCharts.UI.ChartTypeRibbonPageGroup + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents Panel2 As Panel + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents CreateBarBaseItem1 As DevExpress.XtraCharts.UI.CreateBarBaseItem + Friend WithEvents CreateLineBaseItem1 As DevExpress.XtraCharts.UI.CreateLineBaseItem + Friend WithEvents CreatePieBaseItem1 As DevExpress.XtraCharts.UI.CreatePieBaseItem + Friend WithEvents CreateRotatedBarBaseItem1 As DevExpress.XtraCharts.UI.CreateRotatedBarBaseItem + Friend WithEvents CreateAreaBaseItem1 As DevExpress.XtraCharts.UI.CreateAreaBaseItem + Friend WithEvents CreateOtherSeriesTypesBaseItem1 As DevExpress.XtraCharts.UI.CreateOtherSeriesTypesBaseItem + Friend WithEvents ChangePaletteGalleryBaseItem1 As DevExpress.XtraCharts.UI.ChangePaletteGalleryBaseItem + Friend WithEvents ChangeAppearanceGalleryBaseItem1 As DevExpress.XtraCharts.UI.ChangeAppearanceGalleryBaseItem + Friend WithEvents RunDesignerChartItem1 As DevExpress.XtraCharts.UI.RunDesignerChartItem + Friend WithEvents SaveAsTemplateChartItem1 As DevExpress.XtraCharts.UI.SaveAsTemplateChartItem + Friend WithEvents LoadTemplateChartItem1 As DevExpress.XtraCharts.UI.LoadTemplateChartItem + Friend WithEvents PrintPreviewChartItem1 As DevExpress.XtraCharts.UI.PrintPreviewChartItem + Friend WithEvents PrintChartItem1 As DevExpress.XtraCharts.UI.PrintChartItem + Friend WithEvents CreateExportBaseItem1 As DevExpress.XtraCharts.UI.CreateExportBaseItem + Friend WithEvents ExportToPDFChartItem1 As DevExpress.XtraCharts.UI.ExportToPDFChartItem + Friend WithEvents ExportToHTMLChartItem1 As DevExpress.XtraCharts.UI.ExportToHTMLChartItem + Friend WithEvents ExportToMHTChartItem1 As DevExpress.XtraCharts.UI.ExportToMHTChartItem + Friend WithEvents ExportToXLSChartItem1 As DevExpress.XtraCharts.UI.ExportToXLSChartItem + Friend WithEvents ExportToXLSXChartItem1 As DevExpress.XtraCharts.UI.ExportToXLSXChartItem + Friend WithEvents ExportToRTFChartItem1 As DevExpress.XtraCharts.UI.ExportToRTFChartItem + Friend WithEvents CreateExportToImageBaseItem1 As DevExpress.XtraCharts.UI.CreateExportToImageBaseItem + Friend WithEvents ExportToBMPChartItem1 As DevExpress.XtraCharts.UI.ExportToBMPChartItem + Friend WithEvents ExportToGIFChartItem1 As DevExpress.XtraCharts.UI.ExportToGIFChartItem + Friend WithEvents ExportToJPEGChartItem1 As DevExpress.XtraCharts.UI.ExportToJPEGChartItem + Friend WithEvents ExportToPNGChartItem1 As DevExpress.XtraCharts.UI.ExportToPNGChartItem + Friend WithEvents ExportToTIFFChartItem1 As DevExpress.XtraCharts.UI.ExportToTIFFChartItem + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ChartRibbonPageCategory1 As DevExpress.XtraCharts.UI.ChartRibbonPageCategory + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage +End Class diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.vb b/app/DD_PM_WINDREAM/frmInvDashboard.vb new file mode 100644 index 0000000..6320ebd --- /dev/null +++ b/app/DD_PM_WINDREAM/frmInvDashboard.vb @@ -0,0 +1,3 @@ +Public Class frmInvDashboard + +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 1c2c45c..e4ec802 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -24,25 +24,6 @@ Partial Class frmMain Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) - Me.SplitContainerDashboard = New System.Windows.Forms.SplitContainer() - Me.SplitContainerTop = New System.Windows.Forms.SplitContainer() - Me.ChartTopLeft = New DevExpress.XtraCharts.ChartControl() - Me.ToolStripTopLeft = New System.Windows.Forms.ToolStrip() - Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() - Me.ChartTopRight = New DevExpress.XtraCharts.ChartControl() - Me.ToolStripTopRight = New System.Windows.Forms.ToolStrip() - Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() - Me.SplitContainerBottom = New System.Windows.Forms.SplitContainer() - Me.ChartBottomLeft = New DevExpress.XtraCharts.ChartControl() - Me.ToolStripBottomLeft = New System.Windows.Forms.ToolStrip() - Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() - Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl() - Me.ToolStripBottomRight = New System.Windows.Forms.ToolStrip() - Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() Me.ImageListProfile = New System.Windows.Forms.ImageList(Me.components) Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -79,7 +60,6 @@ Partial Class frmMain Me.tsmiValidationProfil = New System.Windows.Forms.ToolStripMenuItem() Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup() Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem() - Me.NavBarItemDashboard = New DevExpress.XtraNavBar.NavBarItem() Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) Me.ContextMenuNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.PopupErinnerungInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -124,6 +104,10 @@ Partial Class frmMain Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.bwBasicData = New System.ComponentModel.BackgroundWorker() Me.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components) + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() Me.PrintPreviewStaticItem1 = New DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem() Me.ProgressBarEditItem1 = New DevExpress.XtraPrinting.Preview.ProgressBarEditItem() Me.RepositoryItemProgressBar2 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar() @@ -131,10 +115,6 @@ Partial Class frmMain Me.PrintPreviewStaticItem2 = New DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem() Me.ZoomTrackBarEditItem1 = New DevExpress.XtraPrinting.Preview.ZoomTrackBarEditItem() Me.RepositoryItemZoomTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemZoomTrackBar() - Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() - Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() - Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() - Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() Me.bbiDocumentMap = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() Me.bbiParameters = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() Me.bbiThumbnails = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() @@ -190,26 +170,7 @@ Partial Class frmMain Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() Me.PrintPreviewBarCheckItem18 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() Me.PrintPreviewBarCheckItem19 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() - CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerDashboard.Panel1.SuspendLayout() - Me.SplitContainerDashboard.Panel2.SuspendLayout() - Me.SplitContainerDashboard.SuspendLayout() - CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerTop.Panel1.SuspendLayout() - Me.SplitContainerTop.Panel2.SuspendLayout() - Me.SplitContainerTop.SuspendLayout() - CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).BeginInit() - Me.ToolStripTopLeft.SuspendLayout() - CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).BeginInit() - Me.ToolStripTopRight.SuspendLayout() - CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerBottom.Panel1.SuspendLayout() - Me.SplitContainerBottom.Panel2.SuspendLayout() - Me.SplitContainerBottom.SuspendLayout() - CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).BeginInit() - Me.ToolStripBottomLeft.SuspendLayout() - CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).BeginInit() - Me.ToolStripBottomRight.SuspendLayout() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() @@ -234,162 +195,6 @@ Partial Class frmMain CType(Me.PrintPreviewRepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'SplitContainerDashboard - ' - resources.ApplyResources(Me.SplitContainerDashboard, "SplitContainerDashboard") - Me.SplitContainerDashboard.Name = "SplitContainerDashboard" - ' - 'SplitContainerDashboard.Panel1 - ' - Me.SplitContainerDashboard.Panel1.Controls.Add(Me.SplitContainerTop) - ' - 'SplitContainerDashboard.Panel2 - ' - Me.SplitContainerDashboard.Panel2.Controls.Add(Me.SplitContainerBottom) - ' - 'SplitContainerTop - ' - resources.ApplyResources(Me.SplitContainerTop, "SplitContainerTop") - Me.SplitContainerTop.Name = "SplitContainerTop" - ' - 'SplitContainerTop.Panel1 - ' - Me.SplitContainerTop.Panel1.Controls.Add(Me.ChartTopLeft) - Me.SplitContainerTop.Panel1.Controls.Add(Me.ToolStripTopLeft) - ' - 'SplitContainerTop.Panel2 - ' - Me.SplitContainerTop.Panel2.Controls.Add(Me.ChartTopRight) - Me.SplitContainerTop.Panel2.Controls.Add(Me.ToolStripTopRight) - ' - 'ChartTopLeft - ' - resources.ApplyResources(Me.ChartTopLeft, "ChartTopLeft") - Me.ChartTopLeft.Legend.Name = "Default Legend" - Me.ChartTopLeft.Name = "ChartTopLeft" - Me.ChartTopLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} - ' - 'ToolStripTopLeft - ' - Me.ToolStripTopLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden - Me.ToolStripTopLeft.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.ToolStripTopLeft.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton5}) - resources.ApplyResources(Me.ToolStripTopLeft, "ToolStripTopLeft") - Me.ToolStripTopLeft.Name = "ToolStripTopLeft" - ' - 'ToolStripButton1 - ' - Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.DD_ProcessManager.My.Resources.Resources.pdf - resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Name = "ToolStripButton1" - ' - 'ToolStripButton5 - ' - Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton5.Image = Global.DD_ProcessManager.My.Resources.Resources.image - resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5") - Me.ToolStripButton5.Name = "ToolStripButton5" - ' - 'ChartTopRight - ' - resources.ApplyResources(Me.ChartTopRight, "ChartTopRight") - Me.ChartTopRight.Legend.Name = "Default Legend" - Me.ChartTopRight.Name = "ChartTopRight" - Me.ChartTopRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} - ' - 'ToolStripTopRight - ' - Me.ToolStripTopRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden - Me.ToolStripTopRight.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.ToolStripTopRight.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton6}) - resources.ApplyResources(Me.ToolStripTopRight, "ToolStripTopRight") - Me.ToolStripTopRight.Name = "ToolStripTopRight" - ' - 'ToolStripButton2 - ' - Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton2.Image = Global.DD_ProcessManager.My.Resources.Resources.pdf - resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") - Me.ToolStripButton2.Name = "ToolStripButton2" - ' - 'ToolStripButton6 - ' - Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton6, "ToolStripButton6") - Me.ToolStripButton6.Name = "ToolStripButton6" - ' - 'SplitContainerBottom - ' - resources.ApplyResources(Me.SplitContainerBottom, "SplitContainerBottom") - Me.SplitContainerBottom.Name = "SplitContainerBottom" - ' - 'SplitContainerBottom.Panel1 - ' - Me.SplitContainerBottom.Panel1.Controls.Add(Me.ChartBottomLeft) - Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripBottomLeft) - ' - 'SplitContainerBottom.Panel2 - ' - Me.SplitContainerBottom.Panel2.Controls.Add(Me.ChartBottomRight) - Me.SplitContainerBottom.Panel2.Controls.Add(Me.ToolStripBottomRight) - ' - 'ChartBottomLeft - ' - resources.ApplyResources(Me.ChartBottomLeft, "ChartBottomLeft") - Me.ChartBottomLeft.Legend.Name = "Default Legend" - Me.ChartBottomLeft.Name = "ChartBottomLeft" - Me.ChartBottomLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} - ' - 'ToolStripBottomLeft - ' - Me.ToolStripBottomLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden - Me.ToolStripBottomLeft.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.ToolStripBottomLeft.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton7}) - resources.ApplyResources(Me.ToolStripBottomLeft, "ToolStripBottomLeft") - Me.ToolStripBottomLeft.Name = "ToolStripBottomLeft" - ' - 'ToolStripButton3 - ' - Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton3.Image = Global.DD_ProcessManager.My.Resources.Resources.pdf - resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3") - Me.ToolStripButton3.Name = "ToolStripButton3" - ' - 'ToolStripButton7 - ' - Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton7, "ToolStripButton7") - Me.ToolStripButton7.Name = "ToolStripButton7" - ' - 'ChartBottomRight - ' - resources.ApplyResources(Me.ChartBottomRight, "ChartBottomRight") - Me.ChartBottomRight.Legend.Name = "Default Legend" - Me.ChartBottomRight.Name = "ChartBottomRight" - Me.ChartBottomRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} - ' - 'ToolStripBottomRight - ' - Me.ToolStripBottomRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden - Me.ToolStripBottomRight.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.ToolStripBottomRight.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripButton8}) - resources.ApplyResources(Me.ToolStripBottomRight, "ToolStripBottomRight") - Me.ToolStripBottomRight.Name = "ToolStripBottomRight" - ' - 'ToolStripButton4 - ' - Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton4.Image = Global.DD_ProcessManager.My.Resources.Resources.pdf - resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") - Me.ToolStripButton4.Name = "ToolStripButton4" - ' - 'ToolStripButton8 - ' - Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton8, "ToolStripButton8") - Me.ToolStripButton8.Name = "ToolStripButton8" - ' 'ImageListProfile ' Me.ImageListProfile.ImageStream = CType(resources.GetObject("ImageListProfile.ImageStream"), System.Windows.Forms.ImageListStreamer) @@ -431,7 +236,6 @@ Partial Class frmMain ' 'Panel1 ' - Me.Panel1.Controls.Add(Me.SplitContainerDashboard) Me.Panel1.Controls.Add(Me.GridControl_Docs) Me.Panel1.Controls.Add(Me.BindingNavigator1) Me.Panel1.Controls.Add(Me.NavBarControl1) @@ -595,7 +399,7 @@ Partial Class frmMain Me.NavBarControl1.ContextMenuStrip = Me.cmsNavPane resources.ApplyResources(Me.NavBarControl1, "NavBarControl1") Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroupMore, Me.NavBarGroupProfiles}) - Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview, Me.NavBarItemDashboard}) + Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview}) Me.NavBarControl1.Name = "NavBarControl1" Me.NavBarControl1.OptionsNavPane.ExpandedWidth = CType(resources.GetObject("resource.ExpandedWidth"), Integer) Me.NavBarControl1.View = New DevExpress.XtraNavBar.ViewInfo.StandardSkinExplorerBarViewInfoRegistrator("DevExpress Style") @@ -627,7 +431,7 @@ Partial Class frmMain Me.NavBarGroupMore.Expanded = True Me.NavBarGroupMore.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText Me.NavBarGroupMore.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupMore.ImageOptions.LargeImage"), System.Drawing.Image) - Me.NavBarGroupMore.ItemLinks.AddRange(New DevExpress.XtraNavBar.NavBarItemLink() {New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemOverview), New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemDashboard)}) + Me.NavBarGroupMore.ItemLinks.AddRange(New DevExpress.XtraNavBar.NavBarItemLink() {New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemOverview)}) Me.NavBarGroupMore.Name = "NavBarGroupMore" ' 'NavBarItemOverview @@ -639,12 +443,6 @@ Partial Class frmMain Me.NavBarItemOverview.ImageOptions.LargeImage = CType(resources.GetObject("NavBarItemOverview.ImageOptions.LargeImage"), System.Drawing.Image) Me.NavBarItemOverview.Name = "NavBarItemOverview" ' - 'NavBarItemDashboard - ' - resources.ApplyResources(Me.NavBarItemDashboard, "NavBarItemDashboard") - Me.NavBarItemDashboard.ImageOptions.LargeImage = CType(resources.GetObject("NavBarItemDashboard.ImageOptions.LargeImage"), System.Drawing.Image) - Me.NavBarItemDashboard.Name = "NavBarItemDashboard" - ' 'NotifyIcon1 ' Me.NotifyIcon1.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info @@ -709,9 +507,9 @@ Partial Class frmMain 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.BarButtonItem2}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 17 + Me.RibbonControl1.MaxItemId = 18 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo) @@ -869,6 +667,7 @@ Partial Class frmMain Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMetadataFile) Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMonitor) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") ' @@ -939,6 +738,30 @@ Partial Class frmMain Me.DocumentViewerBarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar2, Me.RepositoryItemZoomTrackBar1, Me.PrintPreviewRepositoryItemComboBox1}) Me.DocumentViewerBarManager1.TransparentEditorsMode = DevExpress.Utils.DefaultBoolean.[True] ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + resources.ApplyResources(Me.barDockControlTop, "barDockControlTop") + Me.barDockControlTop.Manager = Me.DocumentViewerBarManager1 + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom") + Me.barDockControlBottom.Manager = Me.DocumentViewerBarManager1 + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft") + Me.barDockControlLeft.Manager = Me.DocumentViewerBarManager1 + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + resources.ApplyResources(Me.barDockControlRight, "barDockControlRight") + Me.barDockControlRight.Manager = Me.DocumentViewerBarManager1 + ' 'PrintPreviewStaticItem1 ' Me.PrintPreviewStaticItem1.Border = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder @@ -1000,30 +823,6 @@ Partial Class frmMain Me.RepositoryItemZoomTrackBar1.Maximum = 180 Me.RepositoryItemZoomTrackBar1.Name = "RepositoryItemZoomTrackBar1" ' - 'barDockControlTop - ' - Me.barDockControlTop.CausesValidation = False - resources.ApplyResources(Me.barDockControlTop, "barDockControlTop") - Me.barDockControlTop.Manager = Me.DocumentViewerBarManager1 - ' - 'barDockControlBottom - ' - Me.barDockControlBottom.CausesValidation = False - resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom") - Me.barDockControlBottom.Manager = Me.DocumentViewerBarManager1 - ' - 'barDockControlLeft - ' - Me.barDockControlLeft.CausesValidation = False - resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft") - Me.barDockControlLeft.Manager = Me.DocumentViewerBarManager1 - ' - 'barDockControlRight - ' - Me.barDockControlRight.CausesValidation = False - resources.ApplyResources(Me.barDockControlRight, "barDockControlRight") - Me.barDockControlRight.Manager = Me.DocumentViewerBarManager1 - ' 'bbiDocumentMap ' Me.bbiDocumentMap.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check @@ -1501,6 +1300,12 @@ Partial Class frmMain Me.PrintPreviewBarCheckItem19.Id = 58 Me.PrintPreviewBarCheckItem19.Name = "PrintPreviewBarCheckItem19" ' + 'BarButtonItem2 + ' + resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2") + Me.BarButtonItem2.Id = 17 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' 'frmMain ' Me.Appearance.Options.UseFont = True @@ -1518,34 +1323,6 @@ Partial Class frmMain Me.Name = "frmMain" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 - Me.SplitContainerDashboard.Panel1.ResumeLayout(False) - Me.SplitContainerDashboard.Panel2.ResumeLayout(False) - CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerDashboard.ResumeLayout(False) - Me.SplitContainerTop.Panel1.ResumeLayout(False) - Me.SplitContainerTop.Panel1.PerformLayout() - Me.SplitContainerTop.Panel2.ResumeLayout(False) - Me.SplitContainerTop.Panel2.PerformLayout() - CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerTop.ResumeLayout(False) - CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).EndInit() - Me.ToolStripTopLeft.ResumeLayout(False) - Me.ToolStripTopLeft.PerformLayout() - CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).EndInit() - Me.ToolStripTopRight.ResumeLayout(False) - Me.ToolStripTopRight.PerformLayout() - Me.SplitContainerBottom.Panel1.ResumeLayout(False) - Me.SplitContainerBottom.Panel1.PerformLayout() - Me.SplitContainerBottom.Panel2.ResumeLayout(False) - Me.SplitContainerBottom.Panel2.PerformLayout() - CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerBottom.ResumeLayout(False) - CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).EndInit() - Me.ToolStripBottomLeft.ResumeLayout(False) - Me.ToolStripBottomLeft.PerformLayout() - CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).EndInit() - Me.ToolStripBottomRight.ResumeLayout(False) - Me.ToolStripBottomRight.PerformLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) @@ -1595,21 +1372,8 @@ Partial Class frmMain Friend WithEvents NavBarGroupProfiles As DevExpress.XtraNavBar.NavBarGroup Friend WithEvents NavBarGroupMore As DevExpress.XtraNavBar.NavBarGroup Friend WithEvents NavBarItemOverview As DevExpress.XtraNavBar.NavBarItem - Friend WithEvents NavBarItemDashboard As DevExpress.XtraNavBar.NavBarItem Friend WithEvents cmsNavPane As ContextMenuStrip Friend WithEvents tsmiValidationProfil As ToolStripMenuItem - Friend WithEvents Panel1 As Panel - Friend WithEvents SplitContainerDashboard As SplitContainer - Friend WithEvents SplitContainerTop As SplitContainer - Friend WithEvents ChartTopLeft As DevExpress.XtraCharts.ChartControl - Friend WithEvents ToolStripTopLeft As ToolStrip - Friend WithEvents ChartTopRight As DevExpress.XtraCharts.ChartControl - Friend WithEvents ToolStripTopRight As ToolStrip - Friend WithEvents SplitContainerBottom As SplitContainer - Friend WithEvents ChartBottomLeft As DevExpress.XtraCharts.ChartControl - Friend WithEvents ToolStripBottomLeft As ToolStrip - Friend WithEvents ChartBottomRight As DevExpress.XtraCharts.ChartControl - Friend WithEvents ToolStripBottomRight As ToolStrip Friend WithEvents TabellenlayoutZurücksetzenToolStripMenuItem As ToolStripMenuItem Friend WithEvents tsmiMarkedFilesFinish As ToolStripMenuItem Friend WithEvents GridControl_Docs As DevExpress.XtraGrid.GridControl @@ -1663,15 +1427,7 @@ Partial Class frmMain Friend WithEvents bwSync As System.ComponentModel.BackgroundWorker Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem Friend WithEvents RepositoryItemProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar - Friend WithEvents ToolStripButton1 As ToolStripButton - Friend WithEvents ToolStripButton2 As ToolStripButton - Friend WithEvents ToolStripButton3 As ToolStripButton - Friend WithEvents ToolStripButton4 As ToolStripButton Friend WithEvents SaveFileDialog1 As SaveFileDialog - Friend WithEvents ToolStripButton5 As ToolStripButton - Friend WithEvents ToolStripButton6 As ToolStripButton - Friend WithEvents ToolStripButton7 As ToolStripButton - Friend WithEvents ToolStripButton8 As ToolStripButton Friend WithEvents bwBasicData As System.ComponentModel.BackgroundWorker Friend WithEvents DocumentViewerBarManager1 As DevExpress.XtraPrinting.Preview.DocumentViewerBarManager Friend WithEvents PrintPreviewStaticItem1 As DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem @@ -1740,4 +1496,6 @@ Partial Class frmMain Friend WithEvents PrintPreviewBarCheckItem17 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem Friend WithEvents PrintPreviewBarCheckItem18 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem Friend WithEvents PrintPreviewBarCheckItem19 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents Panel1 As Panel + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 3095ac6..14da526 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -117,540 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 913, 73 - - - - Horizontal - - - Fill - - - 0, 0 - - - Fill - - - 0, 27 - - - 101, 73 - - - - 2 - - - ChartTopLeft - - - DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerTop.Panel1 - - - 0 - - - 662, 95 - - - Magenta - - - 24, 24 - - - Export to pdf - - - Magenta - - - 24, 24 - - - Export png - - - 0, 0 - - - 101, 27 - - - 1 - - - ToolStrip1 - - - ToolStripTopLeft - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerTop.Panel1 - - - 1 - - - SplitContainerTop.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerTop - - - 0 - - - Fill - - - 0, 27 - - - 209, 73 - - - 1 - - - ChartTopRight - - - DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerTop.Panel2 - - - 0 - - - 804, 95 - - - Magenta - - - 24, 24 - - - Export to pdf - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 - LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 - Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk - aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY - 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES - OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj - 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx - JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h - o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i - UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM - f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN - XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt - UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI - M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK - BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 - w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW - F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN - HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ - p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH - fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn - tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC - LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz - 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l - LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i - XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ - 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj - kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A - AAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Export png - - - 0, 0 - - - 209, 27 - - - 0 - - - ToolStrip2 - - - ToolStripTopRight - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerTop.Panel2 - - - 1 - - - SplitContainerTop.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerTop - - - 1 - - - 314, 100 - - - 101 - - - 0 - - - SplitContainerTop - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerDashboard.Panel1 - - - 0 - - - SplitContainerDashboard.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerDashboard - - - 0 - - - Fill - - - 0, 0 - - - Fill - - - 0, 27 - - - 101, 47 - - - 1 - - - ChartBottomLeft - - - DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerBottom.Panel1 - - - 0 - - - 955, 95 - - - Magenta - - - 24, 24 - - - Export to pdf - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 - LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 - Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk - aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY - 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES - OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj - 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx - JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h - o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i - UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM - f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN - XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt - UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI - M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK - BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 - w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW - F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN - HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ - p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH - fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn - tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC - LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz - 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l - LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i - XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ - 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj - kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A - AAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Export png - - - 0, 0 - - - 101, 27 - - - 0 - - - ToolStrip4 - - - ToolStripBottomLeft - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerBottom.Panel1 - - - 1 - - - SplitContainerBottom.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerBottom - - - 0 - - - Fill - - - 0, 27 - - - 209, 47 - - - 1 - - - ChartBottomRight - - - DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerBottom.Panel2 - - - 0 - - - 1117, 95 - - - Magenta - - - 24, 24 - - - Export to pdf - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 - LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 - Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk - aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY - 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES - OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj - 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx - JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h - o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i - UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM - f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN - XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt - UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI - M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK - BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 - w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW - F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN - HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ - p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH - fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn - tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC - LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz - 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l - LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i - XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ - 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj - kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A - AAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Export png - - - 0, 0 - - - 209, 27 - - - 0 - - - ToolStrip3 - - - ToolStripBottomRight - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerBottom.Panel2 - - - 1 - - - SplitContainerBottom.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerBottom - - - 1 - - - 314, 74 - - - 101 - - - 0 - - - SplitContainerBottom - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerDashboard.Panel2 - - - 0 - - - SplitContainerDashboard.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerDashboard - - - 1 - - - 314, 178 - - - 100 - - - 7 - - - False - - - SplitContainerDashboard - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - 770, 17 @@ -659,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAARwBBgEcAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAASQBBgEkAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -715,6 +181,7 @@ 392, 95 + 269, 26 @@ -743,6 +210,7 @@ Metadaten Datei anzeigen + False @@ -826,7 +294,7 @@ Panel1 - 1 + 0 17, 134 @@ -977,7 +445,7 @@ Panel1 - 2 + 1 weitere Profile @@ -1049,6 +517,7 @@ System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + Left @@ -1164,50 +633,6 @@ BRnoEWzCm9O8ZqfHCoxJ/b1MItPA4Iub48nzt8k3KKMWusaDqO0Yt7BJHtbkuinWVPJgAlIEd8Y/mSYr LEnkpvBLIlchUZjkq0gQJvr8nXia6B1PP3jF1Y0cv9CVdYF8lvM7mU/45cBl4bX5Nz7+j/Ac/ADiT3LO Xv4z4j/shDt4Td40rMN6rCsG+FAnbxPtIKL/EXL5C4aQjGB1h9mhAAAAAElFTkSuQmCC - - - - Dashboard - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAPdEVYdFRpdGxlAEJhck9mUGllO7hVPVUAAAf4SURB - VFhHvZdZUFTZGcfJOJuzZalJHvOQhzwklap5sSqjJpWlMknGiZPggqIzUUZFZBPBEQFZZbMBAUFFEGVr - oIVmaWj2RRRkRxih2USWQaCh6WZv1n/Od+69dI/LVMxDqPrV953z3f7+/3PvuQsW4t9rjC2vwOv/I2+I - UE59fsCweC1Z2VKVmtuG7yOFyHkBSoqtSCaULycpW6KFk6horBZNWGxJvNOM//dfnLweTJvOhsXrNxWC - gZWVdSyvrIlIOUVzhLrR7BjKjSw3Los1Fr+PjY0NXEt9QAbe5AbiM5uwwQyYC7wILsKjAJ9/pvnSC+LS - 8qo4priKdWbgqrmBG+mNzBXEprQSYTUcEjOPrIFUE5qLGAURLmYUx3xOjDQn1shAbHIdGXiLDLwRJ28Q - DDzT3JQL85vNxfqiGElgkc3TeFEUXJTmNnOBBTKwvoErSbUmA9fT6rkB+qGRIQkIKxFy+rGwEtGE1JzX - nheSWCCWhLhIkUEGom7fMxmg60EGyL3QUBDSj46jW3EH9f7+qLC1RcXxY6j380Nnmhy6oRGTACGKUFRU - +SJCsQ/hmXsRlmEJWbol0sq8WG0F84srWGMGIhNryMDbZODN2JQ6vjPNXT8uKUWjjze646/jaZEKhqY6 - DuWauGt44OGB7uwczLGGXJyaiyv0TfgrhqdLMKQrxqCuiKGGa+ROVl/hx3MDN++aDMQk1/KNwRvNLaFZ - Fob2cBkmilXQV5VgqigX2jwFR8dyfXUxxovy0RIaAu8btdDPLbOVrfLVER7X/oyO0QSUadwYrnj4bRwc - Ln3Ma2RgdW0DEfHVZGArGXgrml0Pui60ikcpqWiXhWKqVAVtbgbGM5MxoUjCuCKZ51J8cicdTZ0jCM9o - Q1RmK28s4Rb1ezQNRaPwG3sUdJxC4+Bl2AZuw9zCCma5gXWE3TAzEJUoGNA+HsR9V1d8q0jDuDwRT1Pj - McZ4mpqAsRQhJ3oTb0DdNISafgNym5/CIbwS7b1aLj7LRJxk21HbHwJlqw2yW47iXl8gbHw/4jWCDMiu - V5oMRN6s4delIykFHWEhGEtLwOitWIwmMm5dFaKIJi4GeQ8GUN6jh6JlAjntWsgy2xApb+bNZxgng7ah - UuON9AZryBsOolzjiS+8fsNrxMrqOkKvVZCBd8jA2xEJd7mBShdX9EZdwkjcZYxcf57OKxHIuteHoi4d - UhrHNrla0gdrj3zMzAsCVRc+g3FYjYXu2xzjUCFKv/4EBlYnlpmBkNhyk4Fwdj3W2MYoOGCNPt+zGAhw - x1BUMIajQzbpC/ZCas1jqB5NIrFulHOTEVU1jPDSAXxiJ4dWvwTD3AoT+wsWOhMw2xCA2Xp/LDyKh9rl - D7zGDbCnbXBMGRl4lwxsDYur4jszf58VNG4n0eN6Aj0s9l9wwUDgeTy55INen7PIfqjF1bvDiK4cwqWy - QQSoB+Cn7odvXi/+dDwFkzNL0M8vc7H5jljM1F7gzD+MQb79dna3rHDIQGB0qclAcGwZvy5Fx0+i1f4o - epy/Qjdx2oZBuQ0eHt3Lxb3z++CtMoONXW63YLdzBqZnlzE9s8zEdmCuOQKG6nOcuaYwKI9v47XpWSN/ - svpeLiYD73EDgVdKuav6yBjc/+pLaByPPEfbl5aIqRqCZ27vcxyVVeJ8VMWmgPLENszUBUFf6oLp0tOY - uR+AzCMfQTdjZMcY2cNuDT7h6k0D71xkp4MMDHd0Q221H23HrKE59QU09gJdjLbDnyOqchDuOd1wV/aw - yGDRMakNf3fMRDW7LXXMAImQmKHaC7pCO+hUdjBUekB+6Ne8RtAD70IYN/A+N+AfWcxet+v8FNYEy1B+ - YC++sbVGl90hdJ0krNF68DNcLn+Cs1ndcMvSMLrhkv4I//RQwTFIvdlcZzAijYnpS9wwlWODSaUNpovO - IGX/LzFlWGIIBrzCCjcNvOtHBtg3AJ0e7eQs1PbOKLH8HC1H9qHT9iA6TxxAi9UuvtvPKLo4tvFN2PV1 - DvY4ZWB4bJY3lgRITKdywKTiMLSZhzGVZ4dblr/AJLtLJtkx9Nj2DFWZDPhEFPGNQe5pFRPMRJVfEJSf - foqKPbvRcMgSjXv/hou53fh3dC12exZgp00STvmpMDI+hylqrBcMTLIet0lMeQxauRUm0vZjMtsGCbt/ - zm9TOm6ODIRwAx+Qgfe82YagjWG+Cor9je2o9AtG5j/+heTf/RG/2hWF31rFwSlQjYr6J0zYyAX5yjYx - ItV5P4J3/gwhO36K4B0fImj7h0h22MMNEPTIPh+cbzLgJSvkr2ESlk6TsCqhoXlzQvudOaHpy1nkcUIc - U6RHtnsQN/BDMvC+p6yAbwyp2X/fXGJRFJCiKZ/gUcqFMT2uzwXmmhkILeAfE1JDqYn0o2fnTWPz5t/N - x4npJSGyOYoTNJ4WDJy9yA38iBvwCMnnXysvEjM1fVlOkcTMEMeSoPkcoWfvA7eAnE0DH9D1oJ1pai42 - FpvwKDWlKNaEhmYiZnNjYj6mY5jVKKf3hZu/0nQGzgXl8S8V6YOBw8bS+1vCwOMyi8vs1StgEKGm9GnG - ozk0xzFyplk+zeIZP5OBrU5e8ruu/jlwZa4EstkB2XBhB7n4ZcHFl+GThdM+d+BMeDMuKODkrYAji4SD - V6aAZwbsPYh02LP8FIuc8+mwI9zlHJvTCfeYNn8b0r/m9GlE9yTtSoKcvQo/fgV+wqDfMHGLLf8BKVH4 - p8+ug0MAAAAASUVORK5CYII= @@ -1235,7 +660,7 @@ Panel1 - 3 + 2 Fill @@ -1783,6 +1208,9 @@ Sync in Progress + + Dahsboard Invoice + 0, 0 @@ -2129,54 +1557,6 @@ 4565465 - - ToolStripButton1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton5 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton2 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton6 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton3 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton7 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton4 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton8 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ImageListProfile @@ -2357,12 +1737,6 @@ DevExpress.XtraNavBar.NavBarItem, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - NavBarItemDashboard - - - DevExpress.XtraNavBar.NavBarItem, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - NotifyIcon1 @@ -2981,6 +2355,12 @@ DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem2 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmMain diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index daf873e..1004c6d 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -1602,7 +1602,7 @@ Public Class frmMain End If End Sub - Private Sub NavBarItemDashboard_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemDashboard.LinkClicked + Private Sub NavBarItemDashboard_LinkClicked(sender As Object, e As NavBarLinkEventArgs) If TimerRefresh.Enabled = True Then TimerRefresh.Enabled = False End If @@ -1992,35 +1992,35 @@ Public Class frmMain LOGGER.Error(ex) End Try End Sub - Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ExportChart2Pdf(ChartTopLeft, SaveFileDialog1.FileName) End If End Sub - Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click + Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ExportChart2Pdf(ChartTopRight, SaveFileDialog1.FileName) End If End Sub - Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click + Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ExportChart2Pdf(ChartBottomLeft, SaveFileDialog1.FileName) End If End Sub - Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click + Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ExportChart2Pdf(ChartBottomRight, SaveFileDialog1.FileName) End If End Sub - Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click + Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ExportCharttoimage(ChartTopLeft, SaveFileDialog1.FileName) @@ -2055,21 +2055,21 @@ Public Class frmMain Return image End Function - Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click + Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ExportCharttoimage(ChartTopRight, SaveFileDialog1.FileName) End If End Sub - Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click + Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ExportCharttoimage(ChartBottomLeft, SaveFileDialog1.FileName) End If End Sub - Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click + Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ExportCharttoimage(ChartBottomRight, SaveFileDialog1.FileName) @@ -2118,4 +2118,8 @@ Public Class frmMain Private Sub bwBasicData_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bwBasicData.ProgressChanged BarEditItem1.EditValue = e.ProgressPercentage End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + + End Sub End Class \ No newline at end of file From 849f5929c21d54fb51ffc435a1b36c98fe14945d Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 11 Mar 2020 09:25:20 +0100 Subject: [PATCH 04/14] ms Import frmInvDashboard1 --- .../DD_DMSLiteDataSet.Designer.vb | 684 ++++++++++++++- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 99 ++- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 53 +- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 5 +- .../frmInvDashboard.Designer.vb | 813 ++++++++---------- app/DD_PM_WINDREAM/frmInvDashboard.resx | 305 +++++++ app/DD_PM_WINDREAM/frmMain.Designer.vb | 21 +- app/DD_PM_WINDREAM/frmMain.resx | 41 +- app/DD_PM_WINDREAM/frmMain.vb | 308 +------ 9 files changed, 1496 insertions(+), 833 deletions(-) create mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.resx diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index fec0976..c134a57 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -63,6 +63,8 @@ Partial Public Class DD_DMSLiteDataSet Private tableVWPM_CHART_INVOICE_MONITOR_SERIES As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable + Private tableVWPM_CHART_TOP5 As VWPM_CHART_TOP5DataTable + Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable Private relationFK_TBPM_ERROR_LOG_PROFILE1 As Global.System.Data.DataRelation @@ -161,6 +163,9 @@ Partial Public Class DD_DMSLiteDataSet If (Not (ds.Tables("VWPM_CHART_INVOICE_MONITOR_SERIES")) Is Nothing) Then MyBase.Tables.Add(New VWPM_CHART_INVOICE_MONITOR_SERIESDataTable(ds.Tables("VWPM_CHART_INVOICE_MONITOR_SERIES"))) End If + If (Not (ds.Tables("VWPM_CHART_TOP5")) Is Nothing) Then + MyBase.Tables.Add(New VWPM_CHART_TOP5DataTable(ds.Tables("VWPM_CHART_TOP5"))) + End If If (Not (ds.Tables("TBWH_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBWH_CONNECTIONDataTable(ds.Tables("TBWH_CONNECTION"))) End If @@ -371,6 +376,16 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property VWPM_CHART_TOP5() As VWPM_CHART_TOP5DataTable + Get + Return Me.tableVWPM_CHART_TOP5 + End Get + End Property + _ + Private Function ShouldSerializeVWPM_CHART_TOP5() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_CONNECTION() As Boolean @@ -962,6 +994,9 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent) + _ + Public Delegate Sub VWPM_CHART_TOP5RowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CHART_TOP5RowChangeEvent) + _ Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent) @@ -9169,6 +9204,300 @@ Partial Public Class DD_DMSLiteDataSet End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWPM_CHART_TOP5DataTable + Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_TOP5Row) + + Private columnKRED_NAME As Global.System.Data.DataColumn + + Private columnANZ_BELEG As Global.System.Data.DataColumn + + Private columnNetto As Global.System.Data.DataColumn + + Private columnSkonto As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWPM_CHART_TOP5" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property KRED_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKRED_NAME + End Get + End Property + + _ + Public ReadOnly Property ANZ_BELEGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnANZ_BELEG + End Get + End Property + + _ + Public ReadOnly Property NettoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNetto + End Get + End Property + + _ + Public ReadOnly Property SkontoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSkonto + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_TOP5Row + Get + Return CType(Me.Rows(index),VWPM_CHART_TOP5Row) + End Get + End Property + + _ + Public Event VWPM_CHART_TOP5RowChanging As VWPM_CHART_TOP5RowChangeEventHandler + + _ + Public Event VWPM_CHART_TOP5RowChanged As VWPM_CHART_TOP5RowChangeEventHandler + + _ + Public Event VWPM_CHART_TOP5RowDeleting As VWPM_CHART_TOP5RowChangeEventHandler + + _ + Public Event VWPM_CHART_TOP5RowDeleted As VWPM_CHART_TOP5RowChangeEventHandler + + _ + Public Overloads Sub AddVWPM_CHART_TOP5Row(ByVal row As VWPM_CHART_TOP5Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWPM_CHART_TOP5Row(ByVal KRED_NAME As String, ByVal ANZ_BELEG As Short, ByVal Netto As Decimal, ByVal Skonto As Decimal) As VWPM_CHART_TOP5Row + Dim rowVWPM_CHART_TOP5Row As VWPM_CHART_TOP5Row = CType(Me.NewRow,VWPM_CHART_TOP5Row) + Dim columnValuesArray() As Object = New Object() {KRED_NAME, ANZ_BELEG, Netto, Skonto} + rowVWPM_CHART_TOP5Row.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPM_CHART_TOP5Row) + Return rowVWPM_CHART_TOP5Row + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPM_CHART_TOP5DataTable = CType(MyBase.Clone,VWPM_CHART_TOP5DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPM_CHART_TOP5DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnKRED_NAME = MyBase.Columns("KRED_NAME") + Me.columnANZ_BELEG = MyBase.Columns("ANZ_BELEG") + Me.columnNetto = MyBase.Columns("Netto") + Me.columnSkonto = MyBase.Columns("Skonto") + End Sub + + _ + Private Sub InitClass() + Me.columnKRED_NAME = New Global.System.Data.DataColumn("KRED_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKRED_NAME) + Me.columnANZ_BELEG = New Global.System.Data.DataColumn("ANZ_BELEG", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnANZ_BELEG) + Me.columnNetto = New Global.System.Data.DataColumn("Netto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNetto) + Me.columnSkonto = New Global.System.Data.DataColumn("Skonto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSkonto) + Me.columnKRED_NAME.AllowDBNull = false + Me.columnKRED_NAME.MaxLength = 9 + Me.columnANZ_BELEG.AllowDBNull = false + End Sub + + _ + Public Function NewVWPM_CHART_TOP5Row() As VWPM_CHART_TOP5Row + Return CType(Me.NewRow,VWPM_CHART_TOP5Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPM_CHART_TOP5Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPM_CHART_TOP5Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPM_CHART_TOP5RowChangedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_TOP5RowChanged(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPM_CHART_TOP5RowChangingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_TOP5RowChanging(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPM_CHART_TOP5RowDeletedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_TOP5RowDeleted(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPM_CHART_TOP5RowDeletingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_TOP5RowDeleting(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWPM_CHART_TOP5Row(ByVal row As VWPM_CHART_TOP5Row) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWPM_CHART_TOP5DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents the strongly named DataTable class. ''' @@ -14427,6 +14756,98 @@ Partial Public Class DD_DMSLiteDataSet End Property End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWPM_CHART_TOP5Row + Inherits Global.System.Data.DataRow + + Private tableVWPM_CHART_TOP5 As VWPM_CHART_TOP5DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPM_CHART_TOP5 = CType(Me.Table,VWPM_CHART_TOP5DataTable) + End Sub + + _ + Public Property KRED_NAME() As String + Get + Return CType(Me(Me.tableVWPM_CHART_TOP5.KRED_NAMEColumn),String) + End Get + Set + Me(Me.tableVWPM_CHART_TOP5.KRED_NAMEColumn) = value + End Set + End Property + + _ + Public Property ANZ_BELEG() As Short + Get + Return CType(Me(Me.tableVWPM_CHART_TOP5.ANZ_BELEGColumn),Short) + End Get + Set + Me(Me.tableVWPM_CHART_TOP5.ANZ_BELEGColumn) = value + End Set + End Property + + _ + Public Property Netto() As Decimal + Get + Try + Return CType(Me(Me.tableVWPM_CHART_TOP5.NettoColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Netto in Tabelle VWPM_CHART_TOP5 ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPM_CHART_TOP5.NettoColumn) = value + End Set + End Property + + _ + Public Property Skonto() As Decimal + Get + Try + Return CType(Me(Me.tableVWPM_CHART_TOP5.SkontoColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Skonto in Tabelle VWPM_CHART_TOP5 ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPM_CHART_TOP5.SkontoColumn) = value + End Set + End Property + + _ + Public Function IsNettoNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_TOP5.NettoColumn) + End Function + + _ + Public Sub SetNettoNull() + Me(Me.tableVWPM_CHART_TOP5.NettoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSkontoNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_TOP5.SkontoColumn) + End Function + + _ + Public Sub SetSkontoNull() + Me(Me.tableVWPM_CHART_TOP5.SkontoColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -15414,6 +15835,42 @@ Partial Public Class DD_DMSLiteDataSet End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class VWPM_CHART_TOP5RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPM_CHART_TOP5Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPM_CHART_TOP5Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPM_CHART_TOP5Row + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + ''' '''Row event argument class ''' @@ -23932,6 +24389,183 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPM_CHART_TOP5TableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPM_CHART_TOP5" + tableMapping.ColumnMappings.Add("KRED_NAME", "KRED_NAME") + tableMapping.ColumnMappings.Add("ANZ_BELEG", "ANZ_BELEG") + tableMapping.ColumnMappings.Add("Netto", "Netto") + tableMapping.ColumnMappings.Add("Skonto", "Skonto") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT KRED_NAME, ANZ_BELEG, Netto, Skonto"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CHART_TOP"& _ + "5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Netto DESC" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable = New DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -24306,15 +24940,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -24342,6 +24967,15 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -24421,14 +25055,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -24453,6 +25079,14 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -24543,6 +25177,14 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -24567,14 +25209,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBPM_PROFILE_CONTROLSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_CONTROLS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 9df6478..fa53444 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -1102,7 +1102,7 @@ WHERE (GUID = @GUID) - + SELECT MAX(GUID) FROM TBPM_PROFILE @@ -1110,7 +1110,7 @@ WHERE (GUID = @GUID) - + SELECT COUNT(GUID) FROM TBPM_PROFILE WHERE NAME = @NAME @@ -1120,7 +1120,7 @@ WHERE (GUID = @GUID) - + UPDATE TBPM_PROFILE @@ -1135,7 +1135,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + UPDATE TBPM_PROFILE @@ -1149,7 +1149,7 @@ WHERE (GUID = @GUID) - + UPDATE TBPM_PROFILE @@ -1458,7 +1458,7 @@ VALUES (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@ - + UPDATE TBPM_PROFILE_CONTROLS @@ -2023,6 +2023,27 @@ ORDER BY SEQ + + + + + + SELECT KRED_NAME, ANZ_BELEG, Netto, Skonto +FROM VWPM_CHART_TOP5 +ORDER BY Netto DESC + + + + + + + + + + + + + @@ -2031,7 +2052,7 @@ ORDER BY SEQ - + @@ -2091,7 +2112,7 @@ ORDER BY SEQ - + @@ -2187,7 +2208,7 @@ ORDER BY SEQ - + @@ -2252,7 +2273,7 @@ ORDER BY SEQ - + @@ -2282,7 +2303,7 @@ ORDER BY SEQ - + @@ -2305,7 +2326,7 @@ ORDER BY SEQ - + @@ -2379,7 +2400,7 @@ ORDER BY SEQ - + @@ -2428,7 +2449,7 @@ ORDER BY SEQ - + @@ -2443,7 +2464,7 @@ ORDER BY SEQ - + @@ -2565,7 +2586,7 @@ ORDER BY SEQ - + @@ -2638,7 +2659,7 @@ ORDER BY SEQ - + @@ -2689,7 +2710,7 @@ ORDER BY SEQ - + @@ -2827,7 +2848,7 @@ ORDER BY SEQ - + @@ -2905,7 +2926,7 @@ ORDER BY SEQ - + @@ -2946,7 +2967,7 @@ ORDER BY SEQ - + @@ -2984,7 +3005,7 @@ ORDER BY SEQ - + @@ -3041,7 +3062,7 @@ ORDER BY SEQ - + @@ -3099,7 +3120,7 @@ ORDER BY SEQ - + @@ -3200,7 +3221,7 @@ ORDER BY SEQ - + @@ -3253,7 +3274,7 @@ ORDER BY SEQ - + @@ -3269,6 +3290,22 @@ ORDER BY SEQ + + + + + + + + + + + + + + + + @@ -3350,11 +3387,11 @@ ORDER BY SEQ - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index a6a20be..a27318d 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,31 +4,32 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + - + 549 @@ -40,7 +41,7 @@ - + 175 @@ -56,7 +57,7 @@ - + 603 @@ -68,7 +69,7 @@ - + 1248 @@ -80,7 +81,7 @@ - + 141 diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index cf40f72..90d60f9 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -164,7 +164,7 @@ False - True + False ..\..\..\..\Interop.WINDREAMLib.dll @@ -549,6 +549,9 @@ frmFormDesigner.vb + + frmInvDashboard.vb + frmLicense.vb diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb index 7a1bed5..638ae97 100644 --- a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb +++ b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb @@ -25,7 +25,6 @@ Partial Class frmInvDashboard Me.components = New System.ComponentModel.Container() Dim ChartControlCommandGalleryItemGroup2DColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DColumn() Dim CreateBarChartItem1 As DevExpress.XtraCharts.UI.CreateBarChartItem = New DevExpress.XtraCharts.UI.CreateBarChartItem() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInvDashboard)) Dim CreateFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedBarChartItem() Dim CreateSideBySideFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBarChartItem() Dim CreateSideBySideStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideStackedBarChartItem() @@ -59,6 +58,7 @@ Partial Class frmInvDashboard Dim CreatePyramidSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidSideBySideFullStackedBar3DChartItem() Dim CreatePyramidSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidSideBySideStackedBar3DChartItem() Dim CreatePyramidStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidStackedBar3DChartItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInvDashboard)) Dim ChartControlCommandGalleryItemGroup2DLine1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DLine = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DLine() Dim CreateLineChartItem1 As DevExpress.XtraCharts.UI.CreateLineChartItem = New DevExpress.XtraCharts.UI.CreateLineChartItem() Dim CreateFullStackedLineChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedLineChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedLineChartItem() @@ -147,12 +147,50 @@ Partial Class frmInvDashboard Me.colAnzahl = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.colNettoSumme = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.CommandBarGalleryDropDown1 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.CreateBarBaseItem1 = New DevExpress.XtraCharts.UI.CreateBarBaseItem() + Me.CreateLineBaseItem1 = New DevExpress.XtraCharts.UI.CreateLineBaseItem() Me.CommandBarGalleryDropDown2 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CreatePieBaseItem1 = New DevExpress.XtraCharts.UI.CreatePieBaseItem() Me.CommandBarGalleryDropDown3 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CreateRotatedBarBaseItem1 = New DevExpress.XtraCharts.UI.CreateRotatedBarBaseItem() Me.CommandBarGalleryDropDown4 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CreateAreaBaseItem1 = New DevExpress.XtraCharts.UI.CreateAreaBaseItem() Me.CommandBarGalleryDropDown5 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CreateOtherSeriesTypesBaseItem1 = New DevExpress.XtraCharts.UI.CreateOtherSeriesTypesBaseItem() Me.CommandBarGalleryDropDown6 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.ChangePaletteGalleryBaseItem1 = New DevExpress.XtraCharts.UI.ChangePaletteGalleryBaseItem() Me.CommandBarGalleryDropDown7 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.ChangeAppearanceGalleryBaseItem1 = New DevExpress.XtraCharts.UI.ChangeAppearanceGalleryBaseItem() + Me.RunDesignerChartItem1 = New DevExpress.XtraCharts.UI.RunDesignerChartItem() + Me.SaveAsTemplateChartItem1 = New DevExpress.XtraCharts.UI.SaveAsTemplateChartItem() + Me.LoadTemplateChartItem1 = New DevExpress.XtraCharts.UI.LoadTemplateChartItem() + Me.PrintPreviewChartItem1 = New DevExpress.XtraCharts.UI.PrintPreviewChartItem() + Me.PrintChartItem1 = New DevExpress.XtraCharts.UI.PrintChartItem() + Me.CreateExportBaseItem1 = New DevExpress.XtraCharts.UI.CreateExportBaseItem() + Me.ExportToPDFChartItem1 = New DevExpress.XtraCharts.UI.ExportToPDFChartItem() + Me.ExportToHTMLChartItem1 = New DevExpress.XtraCharts.UI.ExportToHTMLChartItem() + Me.ExportToMHTChartItem1 = New DevExpress.XtraCharts.UI.ExportToMHTChartItem() + Me.ExportToXLSChartItem1 = New DevExpress.XtraCharts.UI.ExportToXLSChartItem() + Me.ExportToXLSXChartItem1 = New DevExpress.XtraCharts.UI.ExportToXLSXChartItem() + Me.ExportToRTFChartItem1 = New DevExpress.XtraCharts.UI.ExportToRTFChartItem() + Me.CreateExportToImageBaseItem1 = New DevExpress.XtraCharts.UI.CreateExportToImageBaseItem() + Me.ExportToBMPChartItem1 = New DevExpress.XtraCharts.UI.ExportToBMPChartItem() + Me.ExportToGIFChartItem1 = New DevExpress.XtraCharts.UI.ExportToGIFChartItem() + Me.ExportToJPEGChartItem1 = New DevExpress.XtraCharts.UI.ExportToJPEGChartItem() + Me.ExportToPNGChartItem1 = New DevExpress.XtraCharts.UI.ExportToPNGChartItem() + Me.ExportToTIFFChartItem1 = New DevExpress.XtraCharts.UI.ExportToTIFFChartItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.ChartRibbonPageCategory1 = New DevExpress.XtraCharts.UI.ChartRibbonPageCategory() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() @@ -188,45 +226,8 @@ Partial Class frmInvDashboard Me.ChartTypeRibbonPageGroup1 = New DevExpress.XtraCharts.UI.ChartTypeRibbonPageGroup() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.Panel2 = New System.Windows.Forms.Panel() - Me.ChartRibbonPageCategory1 = New DevExpress.XtraCharts.UI.ChartRibbonPageCategory() - Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() - Me.CreateBarBaseItem1 = New DevExpress.XtraCharts.UI.CreateBarBaseItem() - Me.CreateLineBaseItem1 = New DevExpress.XtraCharts.UI.CreateLineBaseItem() - Me.CreatePieBaseItem1 = New DevExpress.XtraCharts.UI.CreatePieBaseItem() - Me.CreateRotatedBarBaseItem1 = New DevExpress.XtraCharts.UI.CreateRotatedBarBaseItem() - Me.CreateAreaBaseItem1 = New DevExpress.XtraCharts.UI.CreateAreaBaseItem() - Me.CreateOtherSeriesTypesBaseItem1 = New DevExpress.XtraCharts.UI.CreateOtherSeriesTypesBaseItem() - Me.ChangePaletteGalleryBaseItem1 = New DevExpress.XtraCharts.UI.ChangePaletteGalleryBaseItem() - Me.ChangeAppearanceGalleryBaseItem1 = New DevExpress.XtraCharts.UI.ChangeAppearanceGalleryBaseItem() - Me.RunDesignerChartItem1 = New DevExpress.XtraCharts.UI.RunDesignerChartItem() - Me.SaveAsTemplateChartItem1 = New DevExpress.XtraCharts.UI.SaveAsTemplateChartItem() - Me.LoadTemplateChartItem1 = New DevExpress.XtraCharts.UI.LoadTemplateChartItem() - Me.PrintPreviewChartItem1 = New DevExpress.XtraCharts.UI.PrintPreviewChartItem() - Me.PrintChartItem1 = New DevExpress.XtraCharts.UI.PrintChartItem() - Me.CreateExportBaseItem1 = New DevExpress.XtraCharts.UI.CreateExportBaseItem() - Me.ExportToPDFChartItem1 = New DevExpress.XtraCharts.UI.ExportToPDFChartItem() - Me.ExportToHTMLChartItem1 = New DevExpress.XtraCharts.UI.ExportToHTMLChartItem() - Me.ExportToMHTChartItem1 = New DevExpress.XtraCharts.UI.ExportToMHTChartItem() - Me.ExportToXLSChartItem1 = New DevExpress.XtraCharts.UI.ExportToXLSChartItem() - Me.ExportToXLSXChartItem1 = New DevExpress.XtraCharts.UI.ExportToXLSXChartItem() - Me.ExportToRTFChartItem1 = New DevExpress.XtraCharts.UI.ExportToRTFChartItem() - Me.ExportToBMPChartItem1 = New DevExpress.XtraCharts.UI.ExportToBMPChartItem() - Me.ExportToGIFChartItem1 = New DevExpress.XtraCharts.UI.ExportToGIFChartItem() - Me.ExportToJPEGChartItem1 = New DevExpress.XtraCharts.UI.ExportToJPEGChartItem() - Me.ExportToPNGChartItem1 = New DevExpress.XtraCharts.UI.ExportToPNGChartItem() - Me.ExportToTIFFChartItem1 = New DevExpress.XtraCharts.UI.ExportToTIFFChartItem() - Me.CreateExportToImageBaseItem1 = New DevExpress.XtraCharts.UI.CreateExportToImageBaseItem() - Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() - Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() CType(Me.CommandBarGalleryDropDown1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CommandBarGalleryDropDown2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CommandBarGalleryDropDown3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CommandBarGalleryDropDown4, System.ComponentModel.ISupportInitialize).BeginInit() @@ -260,7 +261,6 @@ Partial Class frmInvDashboard CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.SuspendLayout() Me.Panel2.SuspendLayout() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'colTitle @@ -295,8 +295,6 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown1.Gallery.ColumnCount = 4 ChartControlCommandGalleryItemGroup2DColumn1.Caption = "Spalte 2-D" CreateBarChartItem1.Caption = "Gruppierte Säulen" - CreateBarChartItem1.Description = resources.GetString("CreateBarChartItem1.Description") - CreateBarChartItem1.Hint = resources.GetString("CreateBarChartItem1.Hint") CreateFullStackedBarChartItem1.Caption = "100 % Gestapelte Säule" CreateFullStackedBarChartItem1.Description = "Vergleichen den Prozentsatz, der jeder Wert mit vertikalen Rechtecke aller Katego" & "rien auf insgesamt beiträgt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, den Anteil der einzelnen Daten" & @@ -348,11 +346,7 @@ Partial Class frmInvDashboard CreateManhattanBarChartItem1.Hint = "Vergleichen Werte über Kategorien und über Serie auf drei Achsen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Si" & "e es, wenn die Kategorien und die Serie ebenso wichtig sind." CreateSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelte Spalte in 3-d" - CreateSideBySideFullStackedBar3DChartItem1.Description = resources.GetString("CreateSideBySideFullStackedBar3DChartItem1.Description") - CreateSideBySideFullStackedBar3DChartItem1.Hint = resources.GetString("CreateSideBySideFullStackedBar3DChartItem1.Hint") CreateSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Säule in 3-d" - CreateSideBySideStackedBar3DChartItem1.Description = resources.GetString("CreateSideBySideStackedBar3DChartItem1.Description") - CreateSideBySideStackedBar3DChartItem1.Hint = resources.GetString("CreateSideBySideStackedBar3DChartItem1.Hint") CreateStackedBar3DChartItem1.Caption = "Gestapelte Spalte in 3-d" CreateStackedBar3DChartItem1.Description = "Die Verteilung der Einzelwerte auf insgesamt Kategoriengesamtwert vergleichen und" & " gestapelte Spalten im 3D-Format anzeigen." @@ -372,8 +366,6 @@ Partial Class frmInvDashboard CreateCylinderManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und einem Zylinder-Diagramm " & "der drei Achsen anzeigen." CreateCylinderSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelt Zylinder" - CreateCylinderSideBySideFullStackedBar3DChartItem1.Description = resources.GetString("CreateCylinderSideBySideFullStackedBar3DChartItem1.Description") - CreateCylinderSideBySideFullStackedBar3DChartItem1.Hint = resources.GetString("CreateCylinderSideBySideFullStackedBar3DChartItem1.Hint") CreateCylinderSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Zylinder" CreateCylinderSideBySideStackedBar3DChartItem1.Description = "Verbinden die Vorteile von gestapelt Zylinder sowohl Clustered Zylinder Diagrammt" & "ypen, so dass Sie können verschiedene Zylinder Stapeln und sie in Gruppen über d" & @@ -400,8 +392,6 @@ Partial Class frmInvDashboard CreateConeManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und ein Kegel-Diagramm auf d" & "rei Achsen anzeigen." CreateConeSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelt Kegel" - CreateConeSideBySideFullStackedBar3DChartItem1.Description = resources.GetString("CreateConeSideBySideFullStackedBar3DChartItem1.Description") - CreateConeSideBySideFullStackedBar3DChartItem1.Hint = resources.GetString("CreateConeSideBySideFullStackedBar3DChartItem1.Hint") CreateConeSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Kegel" CreateConeSideBySideStackedBar3DChartItem1.Description = "Verbinden die Vorteile von gestapelt Kegel sowohl gruppierte Kegel Diagrammtypen," & " so dass Sie können verschiedene Vulkankegel Stapeln und sie in Gruppen über den" & @@ -428,11 +418,7 @@ Partial Class frmInvDashboard CreatePyramidManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und zeigen ein Pyramidendiag" & "ramm auf drei Achsen." CreatePyramidSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelte Pyramide" - CreatePyramidSideBySideFullStackedBar3DChartItem1.Description = resources.GetString("CreatePyramidSideBySideFullStackedBar3DChartItem1.Description") - CreatePyramidSideBySideFullStackedBar3DChartItem1.Hint = resources.GetString("CreatePyramidSideBySideFullStackedBar3DChartItem1.Hint") CreatePyramidSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Pyramide" - CreatePyramidSideBySideStackedBar3DChartItem1.Description = resources.GetString("CreatePyramidSideBySideStackedBar3DChartItem1.Description") - CreatePyramidSideBySideStackedBar3DChartItem1.Hint = resources.GetString("CreatePyramidSideBySideStackedBar3DChartItem1.Hint") CreatePyramidStackedBar3DChartItem1.Caption = "Pyramide gestapelt" CreatePyramidStackedBar3DChartItem1.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & "hen." @@ -446,6 +432,58 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown1.Name = "CommandBarGalleryDropDown1" Me.CommandBarGalleryDropDown1.Ribbon = Me.RibbonControl1 ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.CreateBarBaseItem1, Me.CreateLineBaseItem1, Me.CreatePieBaseItem1, Me.CreateRotatedBarBaseItem1, Me.CreateAreaBaseItem1, Me.CreateOtherSeriesTypesBaseItem1, Me.ChangePaletteGalleryBaseItem1, Me.ChangeAppearanceGalleryBaseItem1, Me.RunDesignerChartItem1, Me.SaveAsTemplateChartItem1, Me.LoadTemplateChartItem1, Me.PrintPreviewChartItem1, Me.PrintChartItem1, Me.CreateExportBaseItem1, Me.ExportToPDFChartItem1, Me.ExportToHTMLChartItem1, Me.ExportToMHTChartItem1, Me.ExportToXLSChartItem1, Me.ExportToXLSXChartItem1, Me.ExportToRTFChartItem1, Me.ExportToBMPChartItem1, Me.ExportToGIFChartItem1, Me.ExportToJPEGChartItem1, Me.ExportToPNGChartItem1, Me.ExportToTIFFChartItem1, Me.CreateExportToImageBaseItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 33 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.ChartRibbonPageCategory1}) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) + Me.RibbonControl1.Size = New System.Drawing.Size(1124, 146) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Export als PDF" + Me.BarButtonItem1.Hint = "Export den ausgewählten Chart als PDF" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Export als Bild" + Me.BarButtonItem2.Hint = "Exportiert den ausgewählten Chart als Bild" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Export Verteilung als PDF" + Me.BarButtonItem3.Hint = "Exportiert das Dashboard als PDF" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'CreateBarBaseItem1 + ' + Me.CreateBarBaseItem1.Caption = "Spalte" + Me.CreateBarBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown1 + Me.CreateBarBaseItem1.Enabled = False + Me.CreateBarBaseItem1.Id = 4 + Me.CreateBarBaseItem1.Name = "CreateBarBaseItem1" + ' + 'CreateLineBaseItem1 + ' + Me.CreateLineBaseItem1.Caption = "Linie" + Me.CreateLineBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown2 + Me.CreateLineBaseItem1.Enabled = False + Me.CreateLineBaseItem1.Id = 5 + Me.CreateLineBaseItem1.Name = "CreateLineBaseItem1" + ' 'CommandBarGalleryDropDown2 ' ' @@ -496,8 +534,6 @@ Partial Class frmInvDashboard CreateSpline3DChartItem1.Description = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." CreateSpline3DChartItem1.Hint = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." CreateStackedLine3DChartItem1.Caption = "Gestapelte Linie in 3-d" - CreateStackedLine3DChartItem1.Description = resources.GetString("CreateStackedLine3DChartItem1.Description") - CreateStackedLine3DChartItem1.Hint = resources.GetString("CreateStackedLine3DChartItem1.Hint") CreateStepLine3DChartItem1.Caption = "Schritt-Linie in 3-d" CreateStepLine3DChartItem1.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & "ndert haben." @@ -511,6 +547,14 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown2.Name = "CommandBarGalleryDropDown2" Me.CommandBarGalleryDropDown2.Ribbon = Me.RibbonControl1 ' + 'CreatePieBaseItem1 + ' + Me.CreatePieBaseItem1.Caption = "Torte" + Me.CreatePieBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown3 + Me.CreatePieBaseItem1.Enabled = False + Me.CreatePieBaseItem1.Id = 6 + Me.CreatePieBaseItem1.Name = "CreatePieBaseItem1" + ' 'CommandBarGalleryDropDown3 ' ' @@ -520,8 +564,6 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown3.Gallery.ColumnCount = 3 ChartControlCommandGalleryItemGroup2DPie1.Caption = "Torte 2-D" CreatePieChartItem1.Caption = "Torte" - CreatePieChartItem1.Description = resources.GetString("CreatePieChartItem1.Description") - CreatePieChartItem1.Hint = resources.GetString("CreatePieChartItem1.Hint") CreateDoughnutChartItem1.Caption = "Ring" CreateDoughnutChartItem1.Description = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert wie ein Kreisdiagramm, aber " & "es kann mehrere Reihen enthalten." @@ -552,6 +594,14 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown3.Name = "CommandBarGalleryDropDown3" Me.CommandBarGalleryDropDown3.Ribbon = Me.RibbonControl1 ' + 'CreateRotatedBarBaseItem1 + ' + Me.CreateRotatedBarBaseItem1.Caption = "Balken" + Me.CreateRotatedBarBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown4 + Me.CreateRotatedBarBaseItem1.Enabled = False + Me.CreateRotatedBarBaseItem1.Id = 7 + Me.CreateRotatedBarBaseItem1.Name = "CreateRotatedBarBaseItem1" + ' 'CommandBarGalleryDropDown4 ' ' @@ -566,8 +616,6 @@ Partial Class frmInvDashboard CreateRotatedBarChartItem1.Hint = "ein Balkendiagramm." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Balkendiagramme sind der beste Chart-Typ für den Vergleich" & " mehrerer Werte." CreateRotatedFullStackedBarChartItem1.Caption = "100 % Gestapelt Bar" - CreateRotatedFullStackedBarChartItem1.Description = resources.GetString("CreateRotatedFullStackedBarChartItem1.Description") - CreateRotatedFullStackedBarChartItem1.Hint = resources.GetString("CreateRotatedFullStackedBarChartItem1.Hint") CreateRotatedSideBySideFullStackedBarChartItem1.Caption = "Gruppierte 100 % gestapelt Bar" CreateRotatedSideBySideFullStackedBarChartItem1.Description = "Verbinden die Vorteile der beiden 100 % gestapelte Balken und gruppierte Balken D" & "iagrammtypen, so können Sie verschiedene Bars Stapeln und sie in Gruppen über de" & @@ -595,6 +643,14 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown4.Name = "CommandBarGalleryDropDown4" Me.CommandBarGalleryDropDown4.Ribbon = Me.RibbonControl1 ' + 'CreateAreaBaseItem1 + ' + Me.CreateAreaBaseItem1.Caption = "Fläche" + Me.CreateAreaBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown5 + Me.CreateAreaBaseItem1.Enabled = False + Me.CreateAreaBaseItem1.Id = 8 + Me.CreateAreaBaseItem1.Name = "CreateAreaBaseItem1" + ' 'CommandBarGalleryDropDown5 ' ' @@ -653,11 +709,7 @@ Partial Class frmInvDashboard ChartControlCommandGalleryItemGroup2DArea1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateAreaChartItem1, CreateFullStackedAreaChartItem1, CreateFullStackedSplineAreaChartItem1, CreateFullStackedStepAreaChartItem1, CreateSplineAreaChartItem1, CreateStackedAreaChartItem1, CreateStackedStepAreaChartItem1, CreateStackedSplineAreaChartItem1, CreateStepAreaChartItem1}) ChartControlCommandGalleryItemGroup3DArea1.Caption = "3-D Bereich" CreateArea3DChartItem1.Caption = "3-D Bereich" - CreateArea3DChartItem1.Description = resources.GetString("CreateArea3DChartItem1.Description") - CreateArea3DChartItem1.Hint = resources.GetString("CreateArea3DChartItem1.Hint") CreateFullStackedArea3DChartItem1.Caption = "100 % Gestapelt Bereich in 3-d" - CreateFullStackedArea3DChartItem1.Description = resources.GetString("CreateFullStackedArea3DChartItem1.Description") - CreateFullStackedArea3DChartItem1.Hint = resources.GetString("CreateFullStackedArea3DChartItem1.Hint") CreateFullStackedSplineArea3DChartItem1.Caption = "100 % Gestapelt Spline Bereich in 3-d" CreateFullStackedSplineArea3DChartItem1.Description = "Verhalten ähnlich wie 100 % gestapeltes Flächendiagramm in 3D, aber plot eine ein" & "gepassten Kurve durch jeden Datenpunkt in einer Reihe." @@ -691,6 +743,14 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown5.Name = "CommandBarGalleryDropDown5" Me.CommandBarGalleryDropDown5.Ribbon = Me.RibbonControl1 ' + 'CreateOtherSeriesTypesBaseItem1 + ' + Me.CreateOtherSeriesTypesBaseItem1.Caption = "Sonstiges Charts" + Me.CreateOtherSeriesTypesBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown6 + Me.CreateOtherSeriesTypesBaseItem1.Enabled = False + Me.CreateOtherSeriesTypesBaseItem1.Id = 9 + Me.CreateOtherSeriesTypesBaseItem1.Name = "CreateOtherSeriesTypesBaseItem1" + ' 'CommandBarGalleryDropDown6 ' ' @@ -712,19 +772,11 @@ Partial Class frmInvDashboard ChartControlCommandGalleryItemGroupPoint1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePointChartItem1, CreateBubbleChartItem1}) ChartControlCommandGalleryItemGroupFunnel1.Caption = "Trichter" CreateFunnelChartItem1.Caption = "Trichter" - CreateFunnelChartItem1.Description = resources.GetString("CreateFunnelChartItem1.Description") - CreateFunnelChartItem1.Hint = resources.GetString("CreateFunnelChartItem1.Hint") CreateFunnel3DChartItem1.Caption = "3-D-Trichter" - CreateFunnel3DChartItem1.Description = resources.GetString("CreateFunnel3DChartItem1.Description") - CreateFunnel3DChartItem1.Hint = resources.GetString("CreateFunnel3DChartItem1.Hint") ChartControlCommandGalleryItemGroupFunnel1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateFunnelChartItem1, CreateFunnel3DChartItem1}) ChartControlCommandGalleryItemGroupFinancial1.Caption = "Finanziell" CreateStockChartItem1.Caption = "Kurs" - CreateStockChartItem1.Description = resources.GetString("CreateStockChartItem1.Description") - CreateStockChartItem1.Hint = resources.GetString("CreateStockChartItem1.Hint") CreateCandleStickChartItem1.Caption = "Leuchter" - CreateCandleStickChartItem1.Description = resources.GetString("CreateCandleStickChartItem1.Description") - CreateCandleStickChartItem1.Hint = resources.GetString("CreateCandleStickChartItem1.Hint") ChartControlCommandGalleryItemGroupFinancial1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateStockChartItem1, CreateCandleStickChartItem1}) ChartControlCommandGalleryItemGroupRadar1.Caption = "Radar" CreateRadarPointChartItem1.Caption = "Radar Punkte" @@ -735,19 +787,13 @@ Partial Class frmInvDashboard "Argumente auf einem kreisförmigen Raster, die mehrere Achsen hat die Daten gezei" & "chnet werden können." CreateRadarLineChartItem1.Caption = "Radar Linie" - CreateRadarLineChartItem1.Description = resources.GetString("CreateRadarLineChartItem1.Description") - CreateRadarLineChartItem1.Hint = resources.GetString("CreateRadarLineChartItem1.Hint") CreateRadarAreaChartItem1.Caption = "Radar Fläche" CreateRadarAreaChartItem1.Description = "Anzeigen-Serie als gefüllte Fläche auf einem kreisförmigen Raster, die mehrere Ac" & "hsen hat die Daten gezeichnet werden können." CreateRadarAreaChartItem1.Hint = "Anzeigen-Serie als gefüllte Fläche auf einem kreisförmigen Raster, die mehrere Ac" & "hsen hat die Daten gezeichnet werden können." CreateRadarRangeAreaChartItem1.Caption = "Radar Range Area" - CreateRadarRangeAreaChartItem1.Description = resources.GetString("CreateRadarRangeAreaChartItem1.Description") - CreateRadarRangeAreaChartItem1.Hint = resources.GetString("CreateRadarRangeAreaChartItem1.Hint") CreateScatterRadarLineChartItem1.Caption = "Radar-Linie zu zerstreuen" - CreateScatterRadarLineChartItem1.Description = resources.GetString("CreateScatterRadarLineChartItem1.Description") - CreateScatterRadarLineChartItem1.Hint = resources.GetString("CreateScatterRadarLineChartItem1.Hint") ChartControlCommandGalleryItemGroupRadar1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRadarPointChartItem1, CreateRadarLineChartItem1, CreateRadarAreaChartItem1, CreateRadarRangeAreaChartItem1, CreateScatterRadarLineChartItem1}) ChartControlCommandGalleryItemGroupPolar1.Caption = "Polar" CreatePolarPointChartItem1.Caption = "Polar Punkte" @@ -768,11 +814,7 @@ Partial Class frmInvDashboard CreatePolarAreaChartItem1.Hint = "Serie als gefüllte Fläche in einem kreisförmigen Diagramm auf der Grundlage der W" & "inkel angezeigt." CreatePolarRangeAreaChartItem1.Caption = "Polar Range Area" - CreatePolarRangeAreaChartItem1.Description = resources.GetString("CreatePolarRangeAreaChartItem1.Description") - CreatePolarRangeAreaChartItem1.Hint = resources.GetString("CreatePolarRangeAreaChartItem1.Hint") CreateScatterPolarLineChartItem1.Caption = "Streue Polar Linie" - CreateScatterPolarLineChartItem1.Description = resources.GetString("CreateScatterPolarLineChartItem1.Description") - CreateScatterPolarLineChartItem1.Hint = resources.GetString("CreateScatterPolarLineChartItem1.Hint") ChartControlCommandGalleryItemGroupPolar1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePolarPointChartItem1, CreatePolarLineChartItem1, CreatePolarAreaChartItem1, CreatePolarRangeAreaChartItem1, CreateScatterPolarLineChartItem1}) ChartControlCommandGalleryItemGroupRange1.Caption = "Bereich" CreateRangeBarChartItem1.Caption = "Bereich Spalte" @@ -788,24 +830,16 @@ Partial Class frmInvDashboard "ente. Jede Spalte stellt einen Bereich von Daten mit zwei Werte für Einzelwerte " & "Argument." CreateRangeAreaChartItem1.Caption = "Range Bereich" - CreateRangeAreaChartItem1.Description = resources.GetString("CreateRangeAreaChartItem1.Description") - CreateRangeAreaChartItem1.Hint = resources.GetString("CreateRangeAreaChartItem1.Hint") CreateRangeArea3DChartItem1.Caption = "Bereich in 3D" - CreateRangeArea3DChartItem1.Description = resources.GetString("CreateRangeArea3DChartItem1.Description") - CreateRangeArea3DChartItem1.Hint = resources.GetString("CreateRangeArea3DChartItem1.Hint") ChartControlCommandGalleryItemGroupRange1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRangeBarChartItem1, CreateSideBySideRangeBarChartItem1, CreateRangeAreaChartItem1, CreateRangeArea3DChartItem1}) ChartControlCommandGalleryItemGroupGantt1.Caption = "Balkendiagramm" CreateGanttChartItem1.Caption = "Balkendiagramm" CreateGanttChartItem1.Description = "verfolgen verschiedene Aktivitäten während der zeitliche Rahmen." CreateGanttChartItem1.Hint = "verfolgen verschiedene Aktivitäten während der zeitliche Rahmen." CreateSideBySideGanttChartItem1.Caption = "Clustered Gantt" - CreateSideBySideGanttChartItem1.Description = resources.GetString("CreateSideBySideGanttChartItem1.Description") - CreateSideBySideGanttChartItem1.Hint = resources.GetString("CreateSideBySideGanttChartItem1.Hint") ChartControlCommandGalleryItemGroupGantt1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateGanttChartItem1, CreateSideBySideGanttChartItem1}) ChartControlCommandGalleryItemGroupBoxPlot1.Caption = "BoxPlot" CreateBoxPlotChartItem1.Caption = "BoxPlot" - CreateBoxPlotChartItem1.Description = resources.GetString("CreateBoxPlotChartItem1.Description") - CreateBoxPlotChartItem1.Hint = resources.GetString("CreateBoxPlotChartItem1.Hint") ChartControlCommandGalleryItemGroupBoxPlot1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBoxPlotChartItem1}) Me.CommandBarGalleryDropDown6.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroupPoint1, ChartControlCommandGalleryItemGroupFunnel1, ChartControlCommandGalleryItemGroupFinancial1, ChartControlCommandGalleryItemGroupRadar1, ChartControlCommandGalleryItemGroupPolar1, ChartControlCommandGalleryItemGroupRange1, ChartControlCommandGalleryItemGroupGantt1, ChartControlCommandGalleryItemGroupBoxPlot1}) Me.CommandBarGalleryDropDown6.Gallery.ImageSize = New System.Drawing.Size(32, 32) @@ -814,6 +848,14 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown6.Name = "CommandBarGalleryDropDown6" Me.CommandBarGalleryDropDown6.Ribbon = Me.RibbonControl1 ' + 'ChangePaletteGalleryBaseItem1 + ' + Me.ChangePaletteGalleryBaseItem1.Caption = "Palette" + Me.ChangePaletteGalleryBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown7 + Me.ChangePaletteGalleryBaseItem1.Enabled = False + Me.ChangePaletteGalleryBaseItem1.Id = 10 + Me.ChangePaletteGalleryBaseItem1.Name = "ChangePaletteGalleryBaseItem1" + ' 'CommandBarGalleryDropDown7 ' ' @@ -855,73 +897,268 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown7.Name = "CommandBarGalleryDropDown7" Me.CommandBarGalleryDropDown7.Ribbon = Me.RibbonControl1 ' - 'RibbonStatusBar1 + 'ChangeAppearanceGalleryBaseItem1 ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 745) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1124, 21) + Me.ChangeAppearanceGalleryBaseItem1.Enabled = False ' - 'RibbonPage2 ' - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "RibbonPage2" ' - 'DD_DMSLiteDataSet + Me.ChangeAppearanceGalleryBaseItem1.Gallery.ColumnCount = 7 + Me.ChangeAppearanceGalleryBaseItem1.Gallery.ImageSize = New System.Drawing.Size(80, 50) + Me.ChangeAppearanceGalleryBaseItem1.Gallery.RowCount = 4 + Me.ChangeAppearanceGalleryBaseItem1.Id = 11 + Me.ChangeAppearanceGalleryBaseItem1.Name = "ChangeAppearanceGalleryBaseItem1" ' - Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" - Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + 'RunDesignerChartItem1 ' - 'VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource + Me.RunDesignerChartItem1.Caption = "Führen Sie den Diagrammassistenten..." + Me.RunDesignerChartItem1.Enabled = False + Me.RunDesignerChartItem1.Id = 12 + Me.RunDesignerChartItem1.Name = "RunDesignerChartItem1" ' - Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataMember = "VWPM_CHART_INVOICE_MONITOR_SERIES" - Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataSource = Me.DD_DMSLiteDataSet + 'SaveAsTemplateChartItem1 ' - 'VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter + Me.SaveAsTemplateChartItem1.Caption = "Als Vorlage speichern" + Me.SaveAsTemplateChartItem1.Enabled = False + Me.SaveAsTemplateChartItem1.Id = 13 + Me.SaveAsTemplateChartItem1.Name = "SaveAsTemplateChartItem1" ' - Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.ClearBeforeFill = True + 'LoadTemplateChartItem1 ' - 'TableAdapterManager + Me.LoadTemplateChartItem1.Caption = "Laden" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vorlage" + Me.LoadTemplateChartItem1.Enabled = False + Me.LoadTemplateChartItem1.Id = 14 + Me.LoadTemplateChartItem1.Name = "LoadTemplateChartItem1" ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.Connection = Nothing - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing - Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing - Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + 'PrintPreviewChartItem1 ' - 'GridControl1 + Me.PrintPreviewChartItem1.Caption = "Druckvorschau" + Me.PrintPreviewChartItem1.Enabled = False + Me.PrintPreviewChartItem1.Id = 15 + Me.PrintPreviewChartItem1.Name = "PrintPreviewChartItem1" ' - Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.GridControl1.DataSource = Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource - Me.GridControl1.Location = New System.Drawing.Point(7, 16) - Me.GridControl1.MainView = Me.TileView1 - Me.GridControl1.MenuManager = Me.RibbonControl1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(1114, 119) - Me.GridControl1.TabIndex = 5 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1}) + 'PrintChartItem1 ' - 'TileView1 + Me.PrintChartItem1.Caption = "Drucken" + Me.PrintChartItem1.Enabled = False + Me.PrintChartItem1.Id = 16 + Me.PrintChartItem1.Name = "PrintChartItem1" ' - Me.TileView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTitle, Me.colAnzahl, Me.colNettoSumme}) - Me.TileView1.GridControl = Me.GridControl1 - Me.TileView1.Name = "TileView1" - Me.TileView1.OptionsTiles.IndentBetweenItems = 7 - Me.TileView1.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(13) - Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(144, 86) - Me.TileView1.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) - Me.TileView1.TileColumns.Add(TableColumnDefinition1) + 'CreateExportBaseItem1 + ' + Me.CreateExportBaseItem1.Caption = "Exportieren" + Me.CreateExportBaseItem1.Enabled = False + Me.CreateExportBaseItem1.Id = 17 + Me.CreateExportBaseItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToPDFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToHTMLChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToMHTChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToXLSChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToXLSXChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToRTFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CreateExportToImageBaseItem1)}) + Me.CreateExportBaseItem1.MenuDrawMode = DevExpress.XtraBars.MenuDrawMode.SmallImagesText + Me.CreateExportBaseItem1.Name = "CreateExportBaseItem1" + Me.CreateExportBaseItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'ExportToPDFChartItem1 + ' + Me.ExportToPDFChartItem1.Caption = "In PDF exportieren" + Me.ExportToPDFChartItem1.Enabled = False + Me.ExportToPDFChartItem1.Id = 18 + Me.ExportToPDFChartItem1.Name = "ExportToPDFChartItem1" + ' + 'ExportToHTMLChartItem1 + ' + Me.ExportToHTMLChartItem1.Caption = "Export in HTML" + Me.ExportToHTMLChartItem1.Enabled = False + Me.ExportToHTMLChartItem1.Id = 19 + Me.ExportToHTMLChartItem1.Name = "ExportToHTMLChartItem1" + ' + 'ExportToMHTChartItem1 + ' + Me.ExportToMHTChartItem1.Caption = "Exportieren in MHT" + Me.ExportToMHTChartItem1.Enabled = False + Me.ExportToMHTChartItem1.Id = 20 + Me.ExportToMHTChartItem1.Name = "ExportToMHTChartItem1" + ' + 'ExportToXLSChartItem1 + ' + Me.ExportToXLSChartItem1.Caption = "Export in XLS" + Me.ExportToXLSChartItem1.Enabled = False + Me.ExportToXLSChartItem1.Id = 21 + Me.ExportToXLSChartItem1.Name = "ExportToXLSChartItem1" + ' + 'ExportToXLSXChartItem1 + ' + Me.ExportToXLSXChartItem1.Caption = "Exportieren in XLSX" + Me.ExportToXLSXChartItem1.Enabled = False + Me.ExportToXLSXChartItem1.Id = 22 + Me.ExportToXLSXChartItem1.Name = "ExportToXLSXChartItem1" + ' + 'ExportToRTFChartItem1 + ' + Me.ExportToRTFChartItem1.Caption = "Export in RTF" + Me.ExportToRTFChartItem1.Enabled = False + Me.ExportToRTFChartItem1.Id = 23 + Me.ExportToRTFChartItem1.Name = "ExportToRTFChartItem1" + ' + 'CreateExportToImageBaseItem1 + ' + Me.CreateExportToImageBaseItem1.Caption = "Bild exportieren" + Me.CreateExportToImageBaseItem1.Enabled = False + Me.CreateExportToImageBaseItem1.Id = 29 + Me.CreateExportToImageBaseItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToBMPChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToGIFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToJPEGChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToPNGChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToTIFFChartItem1)}) + Me.CreateExportToImageBaseItem1.MenuDrawMode = DevExpress.XtraBars.MenuDrawMode.SmallImagesText + Me.CreateExportToImageBaseItem1.Name = "CreateExportToImageBaseItem1" + ' + 'ExportToBMPChartItem1 + ' + Me.ExportToBMPChartItem1.Caption = "BMP" + Me.ExportToBMPChartItem1.Enabled = False + Me.ExportToBMPChartItem1.Id = 24 + Me.ExportToBMPChartItem1.Name = "ExportToBMPChartItem1" + ' + 'ExportToGIFChartItem1 + ' + Me.ExportToGIFChartItem1.Caption = "GIF" + Me.ExportToGIFChartItem1.Enabled = False + Me.ExportToGIFChartItem1.Id = 25 + Me.ExportToGIFChartItem1.Name = "ExportToGIFChartItem1" + ' + 'ExportToJPEGChartItem1 + ' + Me.ExportToJPEGChartItem1.Caption = "JPEG" + Me.ExportToJPEGChartItem1.Enabled = False + Me.ExportToJPEGChartItem1.Id = 26 + Me.ExportToJPEGChartItem1.Name = "ExportToJPEGChartItem1" + ' + 'ExportToPNGChartItem1 + ' + Me.ExportToPNGChartItem1.Caption = "PNG" + Me.ExportToPNGChartItem1.Enabled = False + Me.ExportToPNGChartItem1.Id = 27 + Me.ExportToPNGChartItem1.Name = "ExportToPNGChartItem1" + ' + 'ExportToTIFFChartItem1 + ' + Me.ExportToTIFFChartItem1.Caption = "TIFF" + Me.ExportToTIFFChartItem1.Enabled = False + Me.ExportToTIFFChartItem1.Id = 28 + Me.ExportToTIFFChartItem1.Name = "ExportToTIFFChartItem1" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Export Top Kreditoren als xlsx" + Me.BarButtonItem4.Id = 30 + Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "Export Top Kreditoren als pdf" + Me.BarButtonItem5.Id = 31 + Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem5.Name = "BarButtonItem5" + ' + 'BarButtonItem6 + ' + Me.BarButtonItem6.Caption = "BarButtonItem6" + Me.BarButtonItem6.Id = 32 + Me.BarButtonItem6.Name = "BarButtonItem6" + ' + 'ChartRibbonPageCategory1 + ' + Me.ChartRibbonPageCategory1.Control = Nothing + Me.ChartRibbonPageCategory1.Name = "ChartRibbonPageCategory1" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Funktionen" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Funktionen - Charts" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Dashboard" + ' + 'RibbonPage3 + ' + Me.RibbonPage3.Name = "RibbonPage3" + Me.RibbonPage3.Text = "RibbonPage3" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 745) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1124, 21) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource + ' + Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataMember = "VWPM_CHART_INVOICE_MONITOR_SERIES" + Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter + ' + Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing + Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'GridControl1 + ' + Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GridControl1.DataSource = Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource + Me.GridControl1.Location = New System.Drawing.Point(7, 16) + Me.GridControl1.MainView = Me.TileView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(1114, 119) + Me.GridControl1.TabIndex = 5 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1}) + ' + 'TileView1 + ' + Me.TileView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTitle, Me.colAnzahl, Me.colNettoSumme}) + Me.TileView1.GridControl = Me.GridControl1 + Me.TileView1.Name = "TileView1" + Me.TileView1.OptionsTiles.IndentBetweenItems = 7 + Me.TileView1.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(13) + Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(144, 86) + Me.TileView1.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) + Me.TileView1.TileColumns.Add(TableColumnDefinition1) Me.TileView1.TileRows.Add(TableRowDefinition1) Me.TileView1.TileRows.Add(TableRowDefinition2) Me.TileView1.TileRows.Add(TableRowDefinition3) @@ -1003,7 +1240,6 @@ Partial Class frmInvDashboard ' Me.colKRED_NAME.Caption = "Kreditor" Me.colKRED_NAME.FieldName = "KRED_NAME" - Me.colKRED_NAME.ImageOptions.SvgImage = CType(resources.GetObject("colKRED_NAME.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.colKRED_NAME.Name = "colKRED_NAME" Me.colKRED_NAME.OptionsColumn.AllowEdit = False Me.colKRED_NAME.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] @@ -1015,7 +1251,6 @@ Partial Class frmInvDashboard ' Me.colANZ_BELEG.Caption = "Anzahl" Me.colANZ_BELEG.FieldName = "ANZ_BELEG" - Me.colANZ_BELEG.ImageOptions.SvgImage = CType(resources.GetObject("colANZ_BELEG.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.colANZ_BELEG.Name = "colANZ_BELEG" Me.colANZ_BELEG.OptionsColumn.AllowEdit = False Me.colANZ_BELEG.Visible = True @@ -1028,7 +1263,6 @@ Partial Class frmInvDashboard Me.colNetto.DisplayFormat.FormatString = "c2" Me.colNetto.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric Me.colNetto.FieldName = "Netto" - Me.colNetto.ImageOptions.Image = CType(resources.GetObject("colNetto.ImageOptions.Image"), System.Drawing.Image) Me.colNetto.Name = "colNetto" Me.colNetto.OptionsColumn.AllowEdit = False Me.colNetto.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] @@ -1214,293 +1448,6 @@ Partial Class frmInvDashboard Me.Panel2.Size = New System.Drawing.Size(1124, 135) Me.Panel2.TabIndex = 12 ' - 'ChartRibbonPageCategory1 - ' - Me.ChartRibbonPageCategory1.Control = Nothing - Me.ChartRibbonPageCategory1.Name = "ChartRibbonPageCategory1" - ' - 'RibbonPage3 - ' - Me.RibbonPage3.Name = "RibbonPage3" - Me.RibbonPage3.Text = "RibbonPage3" - ' - 'RibbonPage1 - ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) - Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "Funktionen" - ' - 'RibbonPageGroup2 - ' - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem5) - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "Dashboard" - ' - 'RibbonPageGroup1 - ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "Funktionen - Charts" - ' - 'BarButtonItem1 - ' - Me.BarButtonItem1.Caption = "Export als PDF" - Me.BarButtonItem1.Hint = "Export den ausgewählten Chart als PDF" - Me.BarButtonItem1.Id = 1 - Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.BarButtonItem1.Name = "BarButtonItem1" - ' - 'BarButtonItem2 - ' - Me.BarButtonItem2.Caption = "Export als Bild" - Me.BarButtonItem2.Hint = "Exportiert den ausgewählten Chart als Bild" - Me.BarButtonItem2.Id = 2 - Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.BarButtonItem2.Name = "BarButtonItem2" - ' - 'BarButtonItem3 - ' - Me.BarButtonItem3.Caption = "Export Verteilung als PDF" - Me.BarButtonItem3.Hint = "Exportiert das Dashboard als PDF" - Me.BarButtonItem3.Id = 3 - Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.BarButtonItem3.Name = "BarButtonItem3" - ' - 'CreateBarBaseItem1 - ' - Me.CreateBarBaseItem1.Caption = "Spalte" - Me.CreateBarBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown1 - Me.CreateBarBaseItem1.Enabled = False - Me.CreateBarBaseItem1.Id = 4 - Me.CreateBarBaseItem1.Name = "CreateBarBaseItem1" - ' - 'CreateLineBaseItem1 - ' - Me.CreateLineBaseItem1.Caption = "Linie" - Me.CreateLineBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown2 - Me.CreateLineBaseItem1.Enabled = False - Me.CreateLineBaseItem1.Id = 5 - Me.CreateLineBaseItem1.Name = "CreateLineBaseItem1" - ' - 'CreatePieBaseItem1 - ' - Me.CreatePieBaseItem1.Caption = "Torte" - Me.CreatePieBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown3 - Me.CreatePieBaseItem1.Enabled = False - Me.CreatePieBaseItem1.Id = 6 - Me.CreatePieBaseItem1.Name = "CreatePieBaseItem1" - ' - 'CreateRotatedBarBaseItem1 - ' - Me.CreateRotatedBarBaseItem1.Caption = "Balken" - Me.CreateRotatedBarBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown4 - Me.CreateRotatedBarBaseItem1.Enabled = False - Me.CreateRotatedBarBaseItem1.Id = 7 - Me.CreateRotatedBarBaseItem1.Name = "CreateRotatedBarBaseItem1" - ' - 'CreateAreaBaseItem1 - ' - Me.CreateAreaBaseItem1.Caption = "Fläche" - Me.CreateAreaBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown5 - Me.CreateAreaBaseItem1.Enabled = False - Me.CreateAreaBaseItem1.Id = 8 - Me.CreateAreaBaseItem1.Name = "CreateAreaBaseItem1" - ' - 'CreateOtherSeriesTypesBaseItem1 - ' - Me.CreateOtherSeriesTypesBaseItem1.Caption = "Sonstiges Charts" - Me.CreateOtherSeriesTypesBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown6 - Me.CreateOtherSeriesTypesBaseItem1.Enabled = False - Me.CreateOtherSeriesTypesBaseItem1.Id = 9 - Me.CreateOtherSeriesTypesBaseItem1.Name = "CreateOtherSeriesTypesBaseItem1" - ' - 'ChangePaletteGalleryBaseItem1 - ' - Me.ChangePaletteGalleryBaseItem1.Caption = "Palette" - Me.ChangePaletteGalleryBaseItem1.DropDownControl = Me.CommandBarGalleryDropDown7 - Me.ChangePaletteGalleryBaseItem1.Enabled = False - Me.ChangePaletteGalleryBaseItem1.Id = 10 - Me.ChangePaletteGalleryBaseItem1.Name = "ChangePaletteGalleryBaseItem1" - ' - 'ChangeAppearanceGalleryBaseItem1 - ' - Me.ChangeAppearanceGalleryBaseItem1.Enabled = False - ' - ' - ' - Me.ChangeAppearanceGalleryBaseItem1.Gallery.ColumnCount = 7 - Me.ChangeAppearanceGalleryBaseItem1.Gallery.ImageSize = New System.Drawing.Size(80, 50) - Me.ChangeAppearanceGalleryBaseItem1.Gallery.RowCount = 4 - Me.ChangeAppearanceGalleryBaseItem1.Id = 11 - Me.ChangeAppearanceGalleryBaseItem1.Name = "ChangeAppearanceGalleryBaseItem1" - ' - 'RunDesignerChartItem1 - ' - Me.RunDesignerChartItem1.Caption = "Führen Sie den Diagrammassistenten..." - Me.RunDesignerChartItem1.Enabled = False - Me.RunDesignerChartItem1.Id = 12 - Me.RunDesignerChartItem1.Name = "RunDesignerChartItem1" - ' - 'SaveAsTemplateChartItem1 - ' - Me.SaveAsTemplateChartItem1.Caption = "Als Vorlage speichern" - Me.SaveAsTemplateChartItem1.Enabled = False - Me.SaveAsTemplateChartItem1.Id = 13 - Me.SaveAsTemplateChartItem1.Name = "SaveAsTemplateChartItem1" - ' - 'LoadTemplateChartItem1 - ' - Me.LoadTemplateChartItem1.Caption = "Laden" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vorlage" - Me.LoadTemplateChartItem1.Enabled = False - Me.LoadTemplateChartItem1.Id = 14 - Me.LoadTemplateChartItem1.Name = "LoadTemplateChartItem1" - ' - 'PrintPreviewChartItem1 - ' - Me.PrintPreviewChartItem1.Caption = "Druckvorschau" - Me.PrintPreviewChartItem1.Enabled = False - Me.PrintPreviewChartItem1.Id = 15 - Me.PrintPreviewChartItem1.Name = "PrintPreviewChartItem1" - ' - 'PrintChartItem1 - ' - Me.PrintChartItem1.Caption = "Drucken" - Me.PrintChartItem1.Enabled = False - Me.PrintChartItem1.Id = 16 - Me.PrintChartItem1.Name = "PrintChartItem1" - ' - 'CreateExportBaseItem1 - ' - Me.CreateExportBaseItem1.Caption = "Exportieren" - Me.CreateExportBaseItem1.Enabled = False - Me.CreateExportBaseItem1.Id = 17 - Me.CreateExportBaseItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToPDFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToHTMLChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToMHTChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToXLSChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToXLSXChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToRTFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CreateExportToImageBaseItem1)}) - Me.CreateExportBaseItem1.MenuDrawMode = DevExpress.XtraBars.MenuDrawMode.SmallImagesText - Me.CreateExportBaseItem1.Name = "CreateExportBaseItem1" - Me.CreateExportBaseItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu - ' - 'ExportToPDFChartItem1 - ' - Me.ExportToPDFChartItem1.Caption = "In PDF exportieren" - Me.ExportToPDFChartItem1.Enabled = False - Me.ExportToPDFChartItem1.Id = 18 - Me.ExportToPDFChartItem1.Name = "ExportToPDFChartItem1" - ' - 'ExportToHTMLChartItem1 - ' - Me.ExportToHTMLChartItem1.Caption = "Export in HTML" - Me.ExportToHTMLChartItem1.Enabled = False - Me.ExportToHTMLChartItem1.Id = 19 - Me.ExportToHTMLChartItem1.Name = "ExportToHTMLChartItem1" - ' - 'ExportToMHTChartItem1 - ' - Me.ExportToMHTChartItem1.Caption = "Exportieren in MHT" - Me.ExportToMHTChartItem1.Enabled = False - Me.ExportToMHTChartItem1.Id = 20 - Me.ExportToMHTChartItem1.Name = "ExportToMHTChartItem1" - ' - 'ExportToXLSChartItem1 - ' - Me.ExportToXLSChartItem1.Caption = "Export in XLS" - Me.ExportToXLSChartItem1.Enabled = False - Me.ExportToXLSChartItem1.Id = 21 - Me.ExportToXLSChartItem1.Name = "ExportToXLSChartItem1" - ' - 'ExportToXLSXChartItem1 - ' - Me.ExportToXLSXChartItem1.Caption = "Exportieren in XLSX" - Me.ExportToXLSXChartItem1.Enabled = False - Me.ExportToXLSXChartItem1.Id = 22 - Me.ExportToXLSXChartItem1.Name = "ExportToXLSXChartItem1" - ' - 'ExportToRTFChartItem1 - ' - Me.ExportToRTFChartItem1.Caption = "Export in RTF" - Me.ExportToRTFChartItem1.Enabled = False - Me.ExportToRTFChartItem1.Id = 23 - Me.ExportToRTFChartItem1.Name = "ExportToRTFChartItem1" - ' - 'ExportToBMPChartItem1 - ' - Me.ExportToBMPChartItem1.Caption = "BMP" - Me.ExportToBMPChartItem1.Enabled = False - Me.ExportToBMPChartItem1.Id = 24 - Me.ExportToBMPChartItem1.Name = "ExportToBMPChartItem1" - ' - 'ExportToGIFChartItem1 - ' - Me.ExportToGIFChartItem1.Caption = "GIF" - Me.ExportToGIFChartItem1.Enabled = False - Me.ExportToGIFChartItem1.Id = 25 - Me.ExportToGIFChartItem1.Name = "ExportToGIFChartItem1" - ' - 'ExportToJPEGChartItem1 - ' - Me.ExportToJPEGChartItem1.Caption = "JPEG" - Me.ExportToJPEGChartItem1.Enabled = False - Me.ExportToJPEGChartItem1.Id = 26 - Me.ExportToJPEGChartItem1.Name = "ExportToJPEGChartItem1" - ' - 'ExportToPNGChartItem1 - ' - Me.ExportToPNGChartItem1.Caption = "PNG" - Me.ExportToPNGChartItem1.Enabled = False - Me.ExportToPNGChartItem1.Id = 27 - Me.ExportToPNGChartItem1.Name = "ExportToPNGChartItem1" - ' - 'ExportToTIFFChartItem1 - ' - Me.ExportToTIFFChartItem1.Caption = "TIFF" - Me.ExportToTIFFChartItem1.Enabled = False - Me.ExportToTIFFChartItem1.Id = 28 - Me.ExportToTIFFChartItem1.Name = "ExportToTIFFChartItem1" - ' - 'CreateExportToImageBaseItem1 - ' - Me.CreateExportToImageBaseItem1.Caption = "Bild exportieren" - Me.CreateExportToImageBaseItem1.Enabled = False - Me.CreateExportToImageBaseItem1.Id = 29 - Me.CreateExportToImageBaseItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToBMPChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToGIFChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToJPEGChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToPNGChartItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ExportToTIFFChartItem1)}) - Me.CreateExportToImageBaseItem1.MenuDrawMode = DevExpress.XtraBars.MenuDrawMode.SmallImagesText - Me.CreateExportToImageBaseItem1.Name = "CreateExportToImageBaseItem1" - ' - 'BarButtonItem4 - ' - Me.BarButtonItem4.Caption = "Export Top Kreditoren als xlsx" - Me.BarButtonItem4.Id = 30 - Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image) - Me.BarButtonItem4.Name = "BarButtonItem4" - ' - 'BarButtonItem5 - ' - Me.BarButtonItem5.Caption = "Export Top Kreditoren als pdf" - Me.BarButtonItem5.Id = 31 - Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.BarButtonItem5.Name = "BarButtonItem5" - ' - 'BarButtonItem6 - ' - Me.BarButtonItem6.Caption = "BarButtonItem6" - Me.BarButtonItem6.Id = 32 - Me.BarButtonItem6.Name = "BarButtonItem6" - ' - 'RibbonControl1 - ' - Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.CreateBarBaseItem1, Me.CreateLineBaseItem1, Me.CreatePieBaseItem1, Me.CreateRotatedBarBaseItem1, Me.CreateAreaBaseItem1, Me.CreateOtherSeriesTypesBaseItem1, Me.ChangePaletteGalleryBaseItem1, Me.ChangeAppearanceGalleryBaseItem1, Me.RunDesignerChartItem1, Me.SaveAsTemplateChartItem1, Me.LoadTemplateChartItem1, Me.PrintPreviewChartItem1, Me.PrintChartItem1, Me.CreateExportBaseItem1, Me.ExportToPDFChartItem1, Me.ExportToHTMLChartItem1, Me.ExportToMHTChartItem1, Me.ExportToXLSChartItem1, Me.ExportToXLSXChartItem1, Me.ExportToRTFChartItem1, Me.ExportToBMPChartItem1, Me.ExportToGIFChartItem1, Me.ExportToJPEGChartItem1, Me.ExportToPNGChartItem1, Me.ExportToTIFFChartItem1, Me.CreateExportToImageBaseItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6}) - Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 33 - Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.ChartRibbonPageCategory1}) - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) - Me.RibbonControl1.Size = New System.Drawing.Size(1124, 146) - Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 - ' 'frmInvDashboard ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1514,6 +1461,7 @@ Partial Class frmInvDashboard Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "Invoice Dashboard" CType(Me.CommandBarGalleryDropDown1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CommandBarGalleryDropDown2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CommandBarGalleryDropDown3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CommandBarGalleryDropDown4, System.ComponentModel.ISupportInitialize).EndInit() @@ -1548,7 +1496,6 @@ Partial Class frmInvDashboard Me.SplitContainerControl1.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.resx b/app/DD_PM_WINDREAM/frmInvDashboard.resx new file mode 100644 index 0000000..e871d52 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmInvDashboard.resx @@ -0,0 +1,305 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRvY3VtZW50UERGIj4NCiAgICA8cGF0aCBkPSJN + MjIsMjR2NEgyVjJoMTR2NWMwLDAuNiwwLjQsMSwxLDFoNXY0aDJWN2wtNy03SDFDMC40LDAsMCwwLjQs + MCwxdjI4YzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTEgICB2LTVIMjJ6IiBjbGFzcz0i + QmxhY2siIC8+DQogICAgPHBhdGggZD0iTTE5LjIsMTZjMC4zLDAuNSwwLjQsMS4xLDAuNCwxLjljMCww + LjktMC4yLDEuNS0wLjUsMmMtMC4zLDAuNS0wLjcsMC43LTEuMywwLjdoLTAuNnYtNS4zaDAuNiAgIEMx + OC40LDE1LjMsMTguOSwxNS42LDE5LjIsMTZ6IE0xMi4xLDE1LjNoLTAuNXYyLjZoMC41YzAuNywwLDEu + MS0wLjQsMS4xLTEuM2MwLTAuNC0wLjEtMC44LTAuMy0xQzEyLjYsMTUuNCwxMi40LDE1LjMsMTIuMSwx + NS4zeiAgICBNMzAsMTJ2MTJINlYxMkgzMHogTTE0LjgsMTYuNWMwLTAuOC0wLjItMS41LTAuNi0xLjlj + LTAuNC0wLjQtMS0wLjctMS44LTAuN0gxMHY4aDEuNnYtMi43aDAuNmMwLjgsMCwxLjQtMC4zLDEuOS0w + LjggICBDMTQuNSwxOCwxNC44LDE3LjMsMTQuOCwxNi41eiBNMjEuMiwxNy45YzAtMi42LTEuMS0zLjkt + My40LTMuOWgtMi4xdjhoMi4yYzEuMSwwLDEuOS0wLjQsMi41LTEuMUMyMC45LDIwLjIsMjEuMiwxOS4y + LDIxLjIsMTcuOXogICAgTTI2LDE0aC0zLjd2OGgxLjZ2LTMuMWgydi0xLjNoLTJ2LTIuMkgyNlYxNHoi + IGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANECAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iUGljdHVyZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + R3JlZW57ZmlsbDojMDM5QzIzO30KCS5ZZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5zdDB7b3BhY2l0eTow + LjU7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMjksNEgzQzIuNSw0LDIsNC41LDIsNXYyMmMwLDAuNSww + LjUsMSwxLDFoMjZjMC41LDAsMS0wLjUsMS0xVjVDMzAsNC41LDI5LjUsNCwyOSw0eiBNMjgsMjZINFY2 + aDI0VjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8Y2lyY2xlIGN4PSIyMSIgY3k9IjExIiByPSIzIiBj + bGFzcz0iWWVsbG93IiAvPg0KICA8cG9seWdvbiBwb2ludHM9IjIwLDI0IDEwLDE0IDYsMTggNiwyNCAi + IGNsYXNzPSJHcmVlbiIgLz4NCiAgPGcgY2xhc3M9InN0MCI+DQogICAgPHBvbHlnb24gcG9pbnRzPSIy + MiwyNCAxOCwyMCAyMCwxOCAyNiwyNCAgIiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRvY3VtZW50UERGIj4NCiAgICA8cGF0aCBkPSJN + MjIsMjR2NEgyVjJoMTR2NWMwLDAuNiwwLjQsMSwxLDFoNXY0aDJWN2wtNy03SDFDMC40LDAsMCwwLjQs + MCwxdjI4YzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTEgICB2LTVIMjJ6IiBjbGFzcz0i + QmxhY2siIC8+DQogICAgPHBhdGggZD0iTTE5LjIsMTZjMC4zLDAuNSwwLjQsMS4xLDAuNCwxLjljMCww + LjktMC4yLDEuNS0wLjUsMmMtMC4zLDAuNS0wLjcsMC43LTEuMywwLjdoLTAuNnYtNS4zaDAuNiAgIEMx + OC40LDE1LjMsMTguOSwxNS42LDE5LjIsMTZ6IE0xMi4xLDE1LjNoLTAuNXYyLjZoMC41YzAuNywwLDEu + MS0wLjQsMS4xLTEuM2MwLTAuNC0wLjEtMC44LTAuMy0xQzEyLjYsMTUuNCwxMi40LDE1LjMsMTIuMSwx + NS4zeiAgICBNMzAsMTJ2MTJINlYxMkgzMHogTTE0LjgsMTYuNWMwLTAuOC0wLjItMS41LTAuNi0xLjlj + LTAuNC0wLjQtMS0wLjctMS44LTAuN0gxMHY4aDEuNnYtMi43aDAuNmMwLjgsMCwxLjQtMC4zLDEuOS0w + LjggICBDMTQuNSwxOCwxNC44LDE3LjMsMTQuOCwxNi41eiBNMjEuMiwxNy45YzAtMi42LTEuMS0zLjkt + My40LTMuOWgtMi4xdjhoMi4yYzEuMSwwLDEuOS0wLjQsMi41LTEuMUMyMC45LDIwLjIsMjEuMiwxOS4y + LDIxLjIsMTcuOXogICAgTTI2LDE0aC0zLjd2OGgxLjZ2LTMuMWgydi0xLjNoLTJ2LTIuMkgyNlYxNHoi + IGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAddEVYdFRpdGxlAEV4cG9ydDtYbHM7RXhwb3J0VG9YbHM7TKCZ/gAAAmZJREFUOE9lk1lrE2EU + hrM3bYNa/0ZN05r+EkVoVBAEBSVaixexTZqkqV3SqkWs0A1v9KYpgYISrLjEVmjSe2+9FLFmmSUzk5kk + r+f7ZhqmOvAkM4H3Od85Z+Kgy0m4CDfhsfDa8P0D+80JwMFglyu7WSoubx2BsbRVRnazjCViceOIKGFh + vYyFtUPMr5WQWS3uM4ld4MlulNGhJw59mHQ47RPaJpkX31jKbxd459YPeUjVWlCIhmoiKwZHUloQCb3V + Rmpln6X67AIfszKBrJqBkxAPyi0IDQN1omm0EX/yhaX6TwlSK1/5cSVFh9TQqZrRDTFqso4qoTXb+HDw + 4z9BzxRZWZ8CBSdyVzA634PROYYP4cc+XJxleDEy48Vwmkh5EEq6EUq480zgjy1+5IKabPBwUzcQJoGq + 6QhTuKHq3fDzvSTqooaaqCKYcPEj9E7M7qFFE65KOgl80GiQrLJCMxnJ+Hhbw2kPr1yXNAxNuzFE4eCU + JYimClxwXG/yyi8/z/Dw6qc0VfZAbDS7x155n0RVUBCMu0ng5IK+O4m3MFod/K5rtspeyCxIlUVZM3u2 + Kj8tTOO4quDCpCnovz25C4NW9Kuq8YEptA3Ws0SCEFUWrJ6fUbBSU3l4+V0cg49MQeBmbBc6CX5WVETf + XLYGZvbMKnd7jruoKsNJYQcGYw6+hcCNh3n+koi0c4EGVqed892LOiqCjj+CRvPReIv5wndWdcD+Hvgj + d18Xrz/YwdXxHbDva+M5RO7n6HkbkXt0HzUZi27j0q1XB5Q59SKxv3IvcYY4S5yzGLBx3oLdBwi3KYDj + Ly5VZm4tDLTfAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAddEVYdFRpdGxlAEV4cG9ydDtYbHM7RXhwb3J0VG9YbHM7TKCZ/gAACF1JREFUWEfFl3lUlNcZ + xtkhpkpImvTYnLan6R89CXFBUMAVRFnEEERFBFSWgSiNBBAGBtkRXFAEURNaIw1q0lajVqNpGzHVauwx + CRqOVVlcQNZZ2JkZGODp+96ZIRgG0//6nfOcO3xz5nt+73a/ixkAs5ycnDHRZW6QhUGWz5CVCfF98/HP + nEzsbQrAovSP1y+XVn6FAx99hVJWxXUcqNCvJST9eg0lR69h/4fXUExr8Yf/EsrZdzHPAMLwzwSZAMA/ + IFmy6Y9dg4M69KsH0d2jRoeyF4+fdOLrmmZUXa9H2s4z+fQca5KAuFvXPiFQFt8zBWBV8tF19oBuZBQ6 + 3QitIxjSjQoN0t8stUaHvoFBdPZo0KboQ0OjCkV/uILRUeDcpbtIyDm5g55lQxIQ432M4numASilfA2R + EctoOjhEAEMj0Bqk1gyit38QCtUAHjQqsOPQJQHQp9bhzD/uYLPseAE9z5Zksi8mA7C+Ud0oANhwiIz0 + 5npTsQ6OQEMl0BrKoOxWo75Ricy9FwWAmr5niFMXvkNU4tFCeqYdaQLEGMDcnbZVLoV2cCmwhfMOW8zJ + txFyyiPlWGN2jhVmZVljZpYlZmZYYUaGJSKPLCUjHdRaHVTUB/WPFEguOCsAuFQaATGMP52rRljc+yYh + xgBcCm2x6oQDAo/ZY2WlPfwrpsH36DR4H/kJlv1+CrzKp8DzfTt4HLLD4jJbLCq1wZvpFsK8XzuErl4N + 6h4psTXrJD0OAmJ4hECGGWQYH5+5iWBJKUOInpgA4EyRBxxzoPTqsPDQc9DQQ+eX2WFAMwT3Ulu477fF + wSvZ6O7VCjOXIku8KbNAP33fT83YRfcftXYho+g8YlNPQJJyHJLk44jexjpGpbhF5fmc3MymcBZMAnDk + Wu0wFhy0Ex0+/4AddTkB7LeBa7ENuvu0cNlrLcxd9ljCUWYuAHppEnpIHZ0DaGjqxO37rbhZ04gb1Y9x + 9eZDXL5Rj6v/bjACTDUJwPXmtJffyBPmH1zLFZHzw9l83j5rlH2ZTSOnhjOZO++ygGOaOXrVQ1RnmgRa + OQuKLtoTaCJa5X1oaunGAwKqfaigCVEiffcFBphGspoIQM3mRzU3Rt5Pxm4lBNCvhSuZz9tLUVPkJVWZ + UHSqMafQAm+k6gF6WDSKnCFeu2jtZBiajHZVP1o6emmj6kPa7vMMYG8SwCnXGr7UcGp6GEfOG4wbRd5j + qHnp5SyoujTCvPiLDDgxgNQc3WTY00fmAkCvLqPot3KCaKOMcOakBQLgBZMAswnAm7qdzd1KbODGdReR + f19z590WIvI5BRZwKjDXAzxlOAgVrSpee7RQGtRBZeFMJuefZQAHkwCzcqw+n5XNs26FmZkkmvMZ26nT + adS42x1ZVHNHSjun/g2pGSLLvcciZXNeVSSjsZK2aEW3Xn2U2W35pxngRZMAxht08UYx9Uvq3FEaZlFb + Y5pFpGxmMDR8Fo1HE8D1ZrUZ1KroFWqR99LvNfjsUg0DTCc9T+K3pXg/mAKYxiPDAMbaGiPlCI3iKOVk + XHj4FCSpZQiVZCMttxwp2YeRlF6GrWnF2JJUBEl8ITZtyUOYJBMr1sQjKCIDAeGpV8nH2hQAk9nLaGRG + GICMx5sKjaVYixaKMFpaivx9lVgXmQF514DIhj4jA6IBW5UsygjJO3AL0vLK8VaYlLPx3GQAL6Tt+gwj + 9CrmhlJytKwxY31d5fS5uaMHEUn7kLunAms2yoTxnYdK1DQo8F2DHLfr5fjtjOV4faYPvq3tgNdKCUJj + srFiXRIDPD8ZgIO08K96ADYkcwWtCjY2mnfziGnQ1NaJ8PjdyNx5BIGhKSJqNr9N5rfq5KiulcPRyQ/u + HhvQrOjHEt8IhERnwnt1PANMnQzgxZQdZwSA3pg3FRYb69XBon3hUYsC6+MKIMuntAYniDTfqlMIc474 + G9Js11VY7BeDJ7Q7Lly+AcGR2+H1dhwD2JsC4GPUS0m5p+ltNvoDQ+p2Mm0niVWlplOQHMGxuUjJOQzf + oN8JgOq6Dnx7n8xJX5Nu3mtHE2/NHX1w9wwVpfLwj2UAh8kAfpqQ/ekYAJsZxeZszGol1T5ux+qoLCRm + HMSygHew1D8GniuiscQnEot9NmHhsnDM9woj4/Vw8wiB65J1CApPxSKfaAZ46SkAusRpiPTye5mnBIA+ + UjInGU2FlGq0kO49aEPgxnTEp5UgbHMeQt/Jw/rYHIRQo62LzkIw1XttRDpWb5IhaEMqAqn7A0OlWLBs + EwO8PCnAuxl/gY5OFGzOYsNW3lwM48TmzbTeqXuCldR8cSnFCKF94Mcuf+qTgJAUuHmGM8DP6NYEAD6x + vBIn0wMIY4PYtIU6mcUdzaqpbYRvcBJiEvZgDTUXX8a9QkUTo6IS6ptYQ+dGDbyp+fzXJmHe4lAGmG4K + QPTA5rRP6DhFp146cg3wsYte03rx+58OISw6rDQ8boZ3UDyi3y1EYLhUABhHVYhKKKfmZXETe/hJ4Lc6 + Ec4LghngVVMAYieMSjh6JVZ6AjEppGQ6YpGik4+JI1YUHbGikkiJlaj4pApLA+Joq80X6c08V4vtZ+8j + 9fQ9JJ+8h4Q/38XWj/+DuBN0RK+8g4VeG+Gz6j04ua9hgF88BWCA4H8i+BzPB4dXSPzy+LlBr5rQHI8V + sbS75Yr0Fl1tx65/tqGgqhW5X7Qg42/NkF14Aum5JmwjuS4JpSzE0t4QxAC/NAXAWWAIzgT3A8M8S9Nd + PUK+WbA8gsZPgsDcKryVdQl+sr/DW3oRnonnsWjrWbhv/hRzY07CZf5azF20Hq/P8qmm3z49BeNFF4P8 + LxI9Q/oV6dfj9No4/eYH4u85u9+/Df9/gtl/AYNwwZzn96zrAAAAAElFTkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRvY3VtZW50UERGIj4NCiAgICA8cGF0aCBkPSJN + MjIsMjR2NEgyVjJoMTR2NWMwLDAuNiwwLjQsMSwxLDFoNXY0aDJWN2wtNy03SDFDMC40LDAsMCwwLjQs + MCwxdjI4YzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTEgICB2LTVIMjJ6IiBjbGFzcz0i + QmxhY2siIC8+DQogICAgPHBhdGggZD0iTTE5LjIsMTZjMC4zLDAuNSwwLjQsMS4xLDAuNCwxLjljMCww + LjktMC4yLDEuNS0wLjUsMmMtMC4zLDAuNS0wLjcsMC43LTEuMywwLjdoLTAuNnYtNS4zaDAuNiAgIEMx + OC40LDE1LjMsMTguOSwxNS42LDE5LjIsMTZ6IE0xMi4xLDE1LjNoLTAuNXYyLjZoMC41YzAuNywwLDEu + MS0wLjQsMS4xLTEuM2MwLTAuNC0wLjEtMC44LTAuMy0xQzEyLjYsMTUuNCwxMi40LDE1LjMsMTIuMSwx + NS4zeiAgICBNMzAsMTJ2MTJINlYxMkgzMHogTTE0LjgsMTYuNWMwLTAuOC0wLjItMS41LTAuNi0xLjlj + LTAuNC0wLjQtMS0wLjctMS44LTAuN0gxMHY4aDEuNnYtMi43aDAuNmMwLjgsMCwxLjQtMC4zLDEuOS0w + LjggICBDMTQuNSwxOCwxNC44LDE3LjMsMTQuOCwxNi41eiBNMjEuMiwxNy45YzAtMi42LTEuMS0zLjkt + My40LTMuOWgtMi4xdjhoMi4yYzEuMSwwLDEuOS0wLjQsMi41LTEuMUMyMC45LDIwLjIsMjEuMiwxOS4y + LDIxLjIsMTcuOXogICAgTTI2LDE0aC0zLjd2OGgxLjZ2LTMuMWgydi0xLjNoLTJ2LTIuMkgyNlYxNHoi + IGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 17, 17 + + + 179, 17 + + + 545, 17 + + + 905, 17 + + + 1078, 17 + + + 17, 56 + + + 257, 56 + + + 394, 56 + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index e4ec802..ffd3519 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -92,6 +92,7 @@ Partial Class frmMain Me.bbtniMetadataFile = New DevExpress.XtraBars.BarButtonItem() Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar() + Me.bbtnitDashboardInv = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -170,7 +171,6 @@ Partial Class frmMain Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() Me.PrintPreviewBarCheckItem18 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() Me.PrintPreviewBarCheckItem19 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() - Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() @@ -507,7 +507,7 @@ Partial Class frmMain 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.BarButtonItem2}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") Me.RibbonControl1.MaxItemId = 18 Me.RibbonControl1.Name = "RibbonControl1" @@ -650,6 +650,13 @@ Partial Class frmMain Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1" Me.RepositoryItemProgressBar1.ShowTitle = True ' + 'bbtnitDashboardInv + ' + resources.ApplyResources(Me.bbtnitDashboardInv, "bbtnitDashboardInv") + Me.bbtnitDashboardInv.Id = 17 + Me.bbtnitDashboardInv.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtnitDashboardInv.Name = "bbtnitDashboardInv" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4}) @@ -667,7 +674,7 @@ Partial Class frmMain Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMetadataFile) Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMonitor) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitDashboardInv) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") ' @@ -1300,12 +1307,6 @@ Partial Class frmMain Me.PrintPreviewBarCheckItem19.Id = 58 Me.PrintPreviewBarCheckItem19.Name = "PrintPreviewBarCheckItem19" ' - 'BarButtonItem2 - ' - resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2") - Me.BarButtonItem2.Id = 17 - Me.BarButtonItem2.Name = "BarButtonItem2" - ' 'frmMain ' Me.Appearance.Options.UseFont = True @@ -1497,5 +1498,5 @@ Partial Class frmMain Friend WithEvents PrintPreviewBarCheckItem18 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem Friend WithEvents PrintPreviewBarCheckItem19 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem Friend WithEvents Panel1 As Panel - Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitDashboardInv As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 14da526..39fb451 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAASQBBgEkAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAASwBBgEsAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -1208,9 +1208,34 @@ Sync in Progress - + Dahsboard Invoice + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANYDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9CgkuWWVsbG93e2ZpbGw6I0ZG + QjExNTt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2F1Z2VTdHls + ZUhhbGZDaXJjdWxhciI+DQogICAgPHBhdGggZD0iTTIzLjcsOS43bC02LDZjMC4yLDAuNCwwLjMsMC44 + LDAuMywxLjNjMCwxLjctMS4zLDMtMywzcy0zLTEuMy0zLTNzMS4zLTMsMy0zYzAuNSwwLDAuOSwwLjEs + MS4zLDAuM2w2LTYgICBMMjMuNyw5Ljd6IE0zMCwxN3Y3SDB2LTdDMCw4LjcsNi43LDIsMTUsMlMzMCw4 + LjcsMzAsMTd6IE0yOCwxN2MwLTcuMi01LjgtMTMtMTMtMTNTMiw5LjgsMiwxN3Y1aDI2VjE3eiIgY2xh + c3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0xNSw2QzguOSw2LDQsMTAuOSw0LDE3djNoNHYtM2Mw + LTMuOSwzLjEtNyw3LTdjMC44LDAsMS42LDAuMSwyLjMsMC40bDMtM0MxOC44LDYuNSwxNi45LDYsMTUs + NnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0yNC42LDExLjZsLTMsM2MwLjMsMC43LDAu + NCwxLjUsMC40LDIuNHYzaDR2LTNDMjYsMTUsMjUuNSwxMy4yLDI0LjYsMTEuNnoiIGNsYXNzPSJSZWQi + IC8+DQogIDwvZz4NCjwvc3ZnPgs= + + 0, 0 @@ -1917,6 +1942,12 @@ DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bbtnitDashboardInv + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -2355,12 +2386,6 @@ DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarButtonItem2 - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - frmMain diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 1004c6d..a50e631 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -176,12 +176,12 @@ Public Class frmMain If SHOW_CHARTS = True Then If BASEDATA_DT_CHARTS.Rows.Count = 0 Then - NavBarItemDashboard.Visible = False + bbtnitDashboardInv.Visibility = DevExpress.XtraBars.BarItemVisibility.Never Else - NavBarItemDashboard.Visible = True + bbtnitDashboardInv.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End If Else - NavBarItemDashboard.Visible = False + bbtnitDashboardInv.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If Catch ex As Exception @@ -484,192 +484,10 @@ Public Class frmMain BindingNavigator1.Dock = DockStyle.Top GridControl_Docs.Visible = True GridControl_Docs.Dock = DockStyle.Fill - SplitContainerDashboard.Visible = False - SplitContainerDashboard.Dock = DockStyle.None - End If End Sub - Sub Layout_Dashboard() - Try - - If GridControl_Docs.Visible = True Then - BindingNavigator1.Dock = DockStyle.None - BindingNavigator1.Visible = False - - - GridControl_Docs.Dock = DockStyle.None - GridControl_Docs.Visible = False - Dim groupCount As Integer - Dim charts As List(Of ChartControl) - SplitContainerDashboard.Visible = True - Dim oGroups As DataRowCollection = BASEDATA_DT_CHARTS.Rows - groupCount = oGroups.Count - Configure_Split_Containers(groupCount) - charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight} - If groupCount > 1 Then - LOGGER.Debug($"ChartCreating...Found more than one charts [{groupCount}]") - For Each gRow As DataRow In oGroups - Dim oGroupIndex As Integer = oGroups.IndexOf(gRow) - Dim oGroupID As String = gRow.Item("GROUP_ID") - - Dim groupCharts = BASEDATA_DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", oGroupID)) - Dim chart As ChartControl - - For Each cRow As DataRow In groupCharts - - Dim oChartType = cRow.Item("TYPE_CHART") - LOGGER.Debug($"oChartType [{oChartType}]") - Dim oChartTitle = cRow.Item("TITLE") - LOGGER.Debug($"oChartTitle [{oChartTitle}]") - Dim guid = cRow.Item("GUID") - LOGGER.Debug($"guid [{guid}]") - Dim oChartValue = cRow.Item("VALUE") - Dim oChartArgument = cRow.Item("ARGUMENT") - Dim oSqlchart = cRow.Item("SQL_COMMAND") - oSqlchart = oSqlchart.Replace("@USER", USER_USERNAME) - Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart) - - Dim series As Series = Create_Series(oChartTitle, oChartType) - - ' Select Current Chart - chart = Select_Chart(oGroupIndex) - chart = charts.Item(oGroupIndex) - Try - chart.Series.Clear() - Catch ex As Exception - LOGGER.Error(ex) - - End Try - ' Set DataSource - chart.DataSource = DATA_DT - - ' Set shown Columns for Chart - series.ArgumentDataMember = oChartArgument - series.ValueDataMembers.AddRange(New String() {oChartValue}) - - 'set some options - chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True - - ' Show Data - chart.Series.Add(series) - - Next ' End Charts - Next 'End Groups - Else - ' Create Charts - For Each cRow As DataRow In BASEDATA_DT_CHARTS.Rows - - Dim chart As ChartControl - - Dim chartIndex As Integer = BASEDATA_DT_CHARTS.Rows.IndexOf(cRow) - - Dim oChartType = cRow.Item("TYPE_CHART") - Dim oChartTitle = cRow.Item("TITLE") - Dim guid = cRow.Item("GUID") - Dim oChartValue = cRow.Item("VALUE") - Dim oChartArgument = cRow.Item("ARGUMENT") - Dim oSqlchart = cRow.Item("SQL_COMMAND") - - oSqlchart = clsPatterns.ReplaceInternalValues(oSqlchart) - oSqlchart = clsPatterns.ReplaceUserValues(oSqlchart, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - - oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID) - oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME) - Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart) - - ' Create Series based on type - Dim series As Series = Create_Series(oChartTitle, oChartType) - - ' Select Current Chart - chart = Select_Chart(chartIndex) - Try - chart.Series.Clear() - Catch ex As Exception - LOGGER.Error(ex) - - End Try - ' Set DataSource - chart.DataSource = DATA_DT - - ' Set shown Columns for Chart - series.ArgumentDataMember = oChartArgument - series.ValueDataMembers.AddRange(New String() {oChartValue}) - 'set some options - chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True - chart.OptionsPrint.SizeMode = Printing.PrintSizeMode.Stretch - ' Show Data - chart.Series.Add(series) - - Next - End If - End If - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info("Layout Dashboard - Error: " & ex.Message) - MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) - End Try - End Sub - Private Function Create_Series(title As String, type As String) As Series - Dim series As Series - LOGGER.Debug($"In Create new series: type [{type}]") - Select Case type - Case "BAR" - LOGGER.Debug("Create new series: ViewType.Bar") - series = New Series(title, ViewType.Bar) - Case "LINE" - LOGGER.Debug("Create new series: ViewType.Line") - series = New Series(title, ViewType.Line) - Case "AREA" - LOGGER.Debug("Create new series: ViewType.Area") - series = New Series(title, ViewType.Area) - Case "PIE" - LOGGER.Debug("Create new series: ViewType.Pie") - series = New Series(title, ViewType.Pie) - series.Label.TextPattern = "{A}: {VP:p0}" - Dim view As PieSeriesView = DirectCast(series.View, PieSeriesView) - view.Titles.Add(New SeriesTitle()) - view.Titles(0).Text = title - Case Else - series = New Series(title, ViewType.Bar) - End Select - - Return series - End Function - Private Function Select_Chart(index As Integer) - Select Case index - Case 0 - Return ChartTopLeft - Case 1 - Return ChartTopRight - Case 2 - Return ChartBottomLeft - Case Else - Return ChartBottomRight - End Select - End Function - Private Sub Configure_Split_Containers(VisibleContainers As Integer) - Select Case VisibleContainers - Case 1 - ' Show only ChartTopLeft - SplitContainerTop.Panel2Collapsed = True - ' Collapse SplitContainerBottom - SplitContainerDashboard.Panel2Collapsed = True - Case 2 - ' Collapse SplitContainerBottom - SplitContainerDashboard.Panel2Collapsed = True - Case 3 - ' Collapse ChartBottomRight - SplitContainerBottom.Panel2Collapsed = True - ' Show SplitContainerBottom - SplitContainerDashboard.Panel2Collapsed = False - Case 4 - ' Show SplitContainerBottom - SplitContainerDashboard.Panel2Collapsed = False - End Select - SplitContainerDashboard.Dock = DockStyle.Fill - End Sub Sub Load_single_Profile() Try @@ -1389,7 +1207,6 @@ Public Class frmMain End Sub Sub Load_Grid_Overview() Dim oStopWatch As New RefreshHelper.SW("Load_Grid_Overview(LGO)") - SplitContainerDashboard.Visible = False Layout_Single_Profile() GRID_LOAD_TYPE = "OVERVIEW" CURRENT_CLICKED_PROFILE_ID = 0 @@ -1602,13 +1419,7 @@ Public Class frmMain End If End Sub - Private Sub NavBarItemDashboard_LinkClicked(sender As Object, e As NavBarLinkEventArgs) - If TimerRefresh.Enabled = True Then - TimerRefresh.Enabled = False - End If - Layout_Dashboard() - frmInvDashboard.Show() - End Sub + Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click Reset_GridLayout() @@ -1969,112 +1780,7 @@ Public Class frmMain BarEditItem1.EditValue = e.ProgressPercentage End Sub - Private Sub bwSync_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwSync.RunWorkerCompleted - - 'BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never - End Sub - - Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint - - End Sub - Sub ExportChart2Pdf(pMyChart As ChartControl, pFilePath As String) - Try - pMyChart.OptionsPrint.ImageFormat = DevExpress.XtraCharts.Printing.PrintImageFormat.Metafile - pMyChart.ExportToPdf(pFilePath, New DevExpress.XtraPrinting.PdfExportOptions With { - .ConvertImagesToJpeg = False - }) - ' Exports to a stream as PDF. - Dim pdfStream As FileStream = New FileStream(pFilePath, FileMode.Create) - pMyChart.ExportToPdf(pdfStream) - ' ... - pdfStream.Close() - Catch ex As Exception - LOGGER.Error(ex) - End Try - End Sub - Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) - SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" - If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then - ExportChart2Pdf(ChartTopLeft, SaveFileDialog1.FileName) - End If - End Sub - - Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) - SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" - If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then - ExportChart2Pdf(ChartTopRight, SaveFileDialog1.FileName) - End If - End Sub - - Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) - SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" - If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then - ExportChart2Pdf(ChartBottomLeft, SaveFileDialog1.FileName) - End If - End Sub - Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) - SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" - If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then - ExportChart2Pdf(ChartBottomRight, SaveFileDialog1.FileName) - End If - End Sub - - Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) - SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" - If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then - ExportCharttoimage(ChartTopLeft, SaveFileDialog1.FileName) - End If - End Sub - Sub ExportCharttoimage(pMyChart As ChartControl, pFilePath As String) - Try - SaveChartImageToFile(pMyChart, ImageFormat.Png, pFilePath) - Dim image As Image = GetChartImage(pMyChart, ImageFormat.Png) - image.Save(pFilePath) - Catch ex As Exception - LOGGER.Error(ex) - End Try - - End Sub - Private Sub SaveChartImageToFile(ByVal chart As ChartControl, ByVal format As ImageFormat, ByVal fileName As String) - ' Create an image in the specified format from the chart - ' and save it to the specified path. - chart.ExportToImage(fileName, format) - End Sub - Private Function GetChartImage(ByVal chart As ChartControl, ByVal format As ImageFormat) As Image - ' Create an image. - Dim image As Image = Nothing - - ' Create an image of the chart. - Using s As New MemoryStream() - chart.ExportToImage(s, format) - image = System.Drawing.Image.FromStream(s) - End Using - - ' Return the image. - Return image - End Function - - Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) - SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" - If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then - ExportCharttoimage(ChartTopRight, SaveFileDialog1.FileName) - End If - End Sub - - Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) - SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" - If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then - ExportCharttoimage(ChartBottomLeft, SaveFileDialog1.FileName) - End If - End Sub - - Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) - SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" - If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then - ExportCharttoimage(ChartBottomRight, SaveFileDialog1.FileName) - End If - End Sub Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick If Not bwBasicData.IsBusy Then @@ -2119,7 +1825,11 @@ Public Class frmMain BarEditItem1.EditValue = e.ProgressPercentage End Sub - Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitDashboardInv.ItemClick + If Application.OpenForms().OfType(Of frmInvDashboard).Any Then + Exit Sub + End If + frmInvDashboard.Show() End Sub End Class \ No newline at end of file From 813cc148efad18f3e9e0ef88bb656d9f32472f0f Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 11 Mar 2020 11:22:32 +0100 Subject: [PATCH 05/14] MS Dashboard final --- app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- .../frmInvDashboard.Designer.vb | 896 +++++++++--------- app/DD_PM_WINDREAM/frmInvDashboard.resx | 252 ++++- app/DD_PM_WINDREAM/frmInvDashboard.vb | 328 ++++++- app/DD_PM_WINDREAM/frmMain.Designer.vb | 4 +- app/DD_PM_WINDREAM/frmMain.resx | 215 +++-- app/DD_PM_WINDREAM/frmMain.vb | 3 - app/DD_PM_WINDREAM/frmValidator.vb | 19 +- 8 files changed, 1121 insertions(+), 598 deletions(-) diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 1579df1..36fdfb5 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb index 638ae97..d1c331d 100644 --- a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb +++ b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb @@ -23,126 +23,126 @@ Partial Class frmInvDashboard Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim ChartControlCommandGalleryItemGroup2DColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DColumn() - Dim CreateBarChartItem1 As DevExpress.XtraCharts.UI.CreateBarChartItem = New DevExpress.XtraCharts.UI.CreateBarChartItem() - Dim CreateFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedBarChartItem() - Dim CreateSideBySideFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBarChartItem() - Dim CreateSideBySideStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideStackedBarChartItem() - Dim CreateStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateStackedBarChartItem() - Dim CreateWaterfallChartItem1 As DevExpress.XtraCharts.UI.CreateWaterfallChartItem = New DevExpress.XtraCharts.UI.CreateWaterfallChartItem() - Dim ChartControlCommandGalleryItemGroup3DColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DColumn() - Dim CreateBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateBar3DChartItem = New DevExpress.XtraCharts.UI.CreateBar3DChartItem() - Dim CreateFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedBar3DChartItem() - Dim CreateManhattanBarChartItem1 As DevExpress.XtraCharts.UI.CreateManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateManhattanBarChartItem() - Dim CreateSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBar3DChartItem() - Dim CreateSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideStackedBar3DChartItem() - Dim CreateStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedBar3DChartItem() - Dim ChartControlCommandGalleryItemGroupCylinderColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupCylinderColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupCylinderColumn() - Dim CreateCylinderBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderBar3DChartItem() - Dim CreateCylinderFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderFullStackedBar3DChartItem() - Dim CreateCylinderManhattanBarChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateCylinderManhattanBarChartItem() - Dim CreateCylinderSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderSideBySideFullStackedBar3DChartItem() - Dim CreateCylinderSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderSideBySideStackedBar3DChartItem() - Dim CreateCylinderStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateCylinderStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderStackedBar3DChartItem() - Dim ChartControlCommandGalleryItemGroupConeColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupConeColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupConeColumn() - Dim CreateConeBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeBar3DChartItem() - Dim CreateConeFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeFullStackedBar3DChartItem() - Dim CreateConeManhattanBarChartItem1 As DevExpress.XtraCharts.UI.CreateConeManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateConeManhattanBarChartItem() - Dim CreateConeSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeSideBySideFullStackedBar3DChartItem() - Dim CreateConeSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeSideBySideStackedBar3DChartItem() - Dim CreateConeStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreateConeStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeStackedBar3DChartItem() - Dim ChartControlCommandGalleryItemGroupPyramidColumn1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPyramidColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPyramidColumn() - Dim CreatePyramidBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidBar3DChartItem() - Dim CreatePyramidFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidFullStackedBar3DChartItem() - Dim CreatePyramidManhattanBarChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreatePyramidManhattanBarChartItem() - Dim CreatePyramidSideBySideFullStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidSideBySideFullStackedBar3DChartItem() - Dim CreatePyramidSideBySideStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidSideBySideStackedBar3DChartItem() - Dim CreatePyramidStackedBar3DChartItem1 As DevExpress.XtraCharts.UI.CreatePyramidStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidStackedBar3DChartItem() + Dim ChartControlCommandGalleryItemGroup2DColumn2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DColumn() + Dim CreateBarChartItem2 As DevExpress.XtraCharts.UI.CreateBarChartItem = New DevExpress.XtraCharts.UI.CreateBarChartItem() + Dim CreateFullStackedBarChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedBarChartItem() + Dim CreateSideBySideFullStackedBarChartItem2 As DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBarChartItem() + Dim CreateSideBySideStackedBarChartItem2 As DevExpress.XtraCharts.UI.CreateSideBySideStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideStackedBarChartItem() + Dim CreateStackedBarChartItem2 As DevExpress.XtraCharts.UI.CreateStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateStackedBarChartItem() + Dim CreateWaterfallChartItem2 As DevExpress.XtraCharts.UI.CreateWaterfallChartItem = New DevExpress.XtraCharts.UI.CreateWaterfallChartItem() + Dim ChartControlCommandGalleryItemGroup3DColumn2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DColumn() + Dim CreateBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateBar3DChartItem = New DevExpress.XtraCharts.UI.CreateBar3DChartItem() + Dim CreateFullStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedBar3DChartItem() + Dim CreateManhattanBarChartItem2 As DevExpress.XtraCharts.UI.CreateManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateManhattanBarChartItem() + Dim CreateSideBySideFullStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideFullStackedBar3DChartItem() + Dim CreateSideBySideStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideStackedBar3DChartItem() + Dim CreateStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedBar3DChartItem() + Dim ChartControlCommandGalleryItemGroupCylinderColumn2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupCylinderColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupCylinderColumn() + Dim CreateCylinderBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateCylinderBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderBar3DChartItem() + Dim CreateCylinderFullStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateCylinderFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderFullStackedBar3DChartItem() + Dim CreateCylinderManhattanBarChartItem2 As DevExpress.XtraCharts.UI.CreateCylinderManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateCylinderManhattanBarChartItem() + Dim CreateCylinderSideBySideFullStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateCylinderSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderSideBySideFullStackedBar3DChartItem() + Dim CreateCylinderSideBySideStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateCylinderSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderSideBySideStackedBar3DChartItem() + Dim CreateCylinderStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateCylinderStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateCylinderStackedBar3DChartItem() + Dim ChartControlCommandGalleryItemGroupConeColumn2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupConeColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupConeColumn() + Dim CreateConeBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateConeBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeBar3DChartItem() + Dim CreateConeFullStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateConeFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeFullStackedBar3DChartItem() + Dim CreateConeManhattanBarChartItem2 As DevExpress.XtraCharts.UI.CreateConeManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreateConeManhattanBarChartItem() + Dim CreateConeSideBySideFullStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateConeSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeSideBySideFullStackedBar3DChartItem() + Dim CreateConeSideBySideStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateConeSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeSideBySideStackedBar3DChartItem() + Dim CreateConeStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreateConeStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreateConeStackedBar3DChartItem() + Dim ChartControlCommandGalleryItemGroupPyramidColumn2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPyramidColumn = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPyramidColumn() + Dim CreatePyramidBar3DChartItem2 As DevExpress.XtraCharts.UI.CreatePyramidBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidBar3DChartItem() + Dim CreatePyramidFullStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreatePyramidFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidFullStackedBar3DChartItem() + Dim CreatePyramidManhattanBarChartItem2 As DevExpress.XtraCharts.UI.CreatePyramidManhattanBarChartItem = New DevExpress.XtraCharts.UI.CreatePyramidManhattanBarChartItem() + Dim CreatePyramidSideBySideFullStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreatePyramidSideBySideFullStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidSideBySideFullStackedBar3DChartItem() + Dim CreatePyramidSideBySideStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreatePyramidSideBySideStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidSideBySideStackedBar3DChartItem() + Dim CreatePyramidStackedBar3DChartItem2 As DevExpress.XtraCharts.UI.CreatePyramidStackedBar3DChartItem = New DevExpress.XtraCharts.UI.CreatePyramidStackedBar3DChartItem() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInvDashboard)) - Dim ChartControlCommandGalleryItemGroup2DLine1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DLine = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DLine() - Dim CreateLineChartItem1 As DevExpress.XtraCharts.UI.CreateLineChartItem = New DevExpress.XtraCharts.UI.CreateLineChartItem() - Dim CreateFullStackedLineChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedLineChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedLineChartItem() - Dim CreateScatterLineChartItem1 As DevExpress.XtraCharts.UI.CreateScatterLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterLineChartItem() - Dim CreateSplineChartItem1 As DevExpress.XtraCharts.UI.CreateSplineChartItem = New DevExpress.XtraCharts.UI.CreateSplineChartItem() - Dim CreateStackedLineChartItem1 As DevExpress.XtraCharts.UI.CreateStackedLineChartItem = New DevExpress.XtraCharts.UI.CreateStackedLineChartItem() - Dim CreateStepLineChartItem1 As DevExpress.XtraCharts.UI.CreateStepLineChartItem = New DevExpress.XtraCharts.UI.CreateStepLineChartItem() - Dim ChartControlCommandGalleryItemGroup3DLine1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DLine = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DLine() - Dim CreateLine3DChartItem1 As DevExpress.XtraCharts.UI.CreateLine3DChartItem = New DevExpress.XtraCharts.UI.CreateLine3DChartItem() - Dim CreateFullStackedLine3DChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedLine3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedLine3DChartItem() - Dim CreateSpline3DChartItem1 As DevExpress.XtraCharts.UI.CreateSpline3DChartItem = New DevExpress.XtraCharts.UI.CreateSpline3DChartItem() - Dim CreateStackedLine3DChartItem1 As DevExpress.XtraCharts.UI.CreateStackedLine3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedLine3DChartItem() - Dim CreateStepLine3DChartItem1 As DevExpress.XtraCharts.UI.CreateStepLine3DChartItem = New DevExpress.XtraCharts.UI.CreateStepLine3DChartItem() - Dim ChartControlCommandGalleryItemGroup2DPie1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DPie = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DPie() - Dim CreatePieChartItem1 As DevExpress.XtraCharts.UI.CreatePieChartItem = New DevExpress.XtraCharts.UI.CreatePieChartItem() - Dim CreateDoughnutChartItem1 As DevExpress.XtraCharts.UI.CreateDoughnutChartItem = New DevExpress.XtraCharts.UI.CreateDoughnutChartItem() - Dim CreateNestedDoughnutChartItem1 As DevExpress.XtraCharts.UI.CreateNestedDoughnutChartItem = New DevExpress.XtraCharts.UI.CreateNestedDoughnutChartItem() - Dim ChartControlCommandGalleryItemGroup3DPie1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DPie = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DPie() - Dim CreatePie3DChartItem1 As DevExpress.XtraCharts.UI.CreatePie3DChartItem = New DevExpress.XtraCharts.UI.CreatePie3DChartItem() - Dim CreateDoughnut3DChartItem1 As DevExpress.XtraCharts.UI.CreateDoughnut3DChartItem = New DevExpress.XtraCharts.UI.CreateDoughnut3DChartItem() - Dim ChartControlCommandGalleryItemGroup2DBar1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DBar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DBar() - Dim CreateRotatedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedBarChartItem() - Dim CreateRotatedFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedFullStackedBarChartItem() - Dim CreateRotatedSideBySideFullStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedSideBySideFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedSideBySideFullStackedBarChartItem() - Dim CreateRotatedSideBySideStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedSideBySideStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedSideBySideStackedBarChartItem() - Dim CreateRotatedStackedBarChartItem1 As DevExpress.XtraCharts.UI.CreateRotatedStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedStackedBarChartItem() - Dim ChartControlCommandGalleryItemGroup2DArea1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DArea = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DArea() - Dim CreateAreaChartItem1 As DevExpress.XtraCharts.UI.CreateAreaChartItem = New DevExpress.XtraCharts.UI.CreateAreaChartItem() - Dim CreateFullStackedAreaChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedAreaChartItem() - Dim CreateFullStackedSplineAreaChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedSplineAreaChartItem() - Dim CreateFullStackedStepAreaChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedStepAreaChartItem() - Dim CreateSplineAreaChartItem1 As DevExpress.XtraCharts.UI.CreateSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateSplineAreaChartItem() - Dim CreateStackedAreaChartItem1 As DevExpress.XtraCharts.UI.CreateStackedAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedAreaChartItem() - Dim CreateStackedStepAreaChartItem1 As DevExpress.XtraCharts.UI.CreateStackedStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedStepAreaChartItem() - Dim CreateStackedSplineAreaChartItem1 As DevExpress.XtraCharts.UI.CreateStackedSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedSplineAreaChartItem() - Dim CreateStepAreaChartItem1 As DevExpress.XtraCharts.UI.CreateStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateStepAreaChartItem() - Dim ChartControlCommandGalleryItemGroup3DArea1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DArea = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DArea() - Dim CreateArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateArea3DChartItem = New DevExpress.XtraCharts.UI.CreateArea3DChartItem() - Dim CreateFullStackedArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedArea3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedArea3DChartItem() - Dim CreateFullStackedSplineArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateFullStackedSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedSplineArea3DChartItem() - Dim CreateSplineArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateSplineArea3DChartItem() - Dim CreateStackedArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateStackedArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedArea3DChartItem() - Dim CreateStackedSplineArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateStackedSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedSplineArea3DChartItem() - Dim CreateStepArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateStepArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStepArea3DChartItem() - Dim ChartControlCommandGalleryItemGroupPoint1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPoint = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPoint() - Dim CreatePointChartItem1 As DevExpress.XtraCharts.UI.CreatePointChartItem = New DevExpress.XtraCharts.UI.CreatePointChartItem() - Dim CreateBubbleChartItem1 As DevExpress.XtraCharts.UI.CreateBubbleChartItem = New DevExpress.XtraCharts.UI.CreateBubbleChartItem() - Dim ChartControlCommandGalleryItemGroupFunnel1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFunnel = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFunnel() - Dim CreateFunnelChartItem1 As DevExpress.XtraCharts.UI.CreateFunnelChartItem = New DevExpress.XtraCharts.UI.CreateFunnelChartItem() - Dim CreateFunnel3DChartItem1 As DevExpress.XtraCharts.UI.CreateFunnel3DChartItem = New DevExpress.XtraCharts.UI.CreateFunnel3DChartItem() - Dim ChartControlCommandGalleryItemGroupFinancial1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFinancial = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFinancial() - Dim CreateStockChartItem1 As DevExpress.XtraCharts.UI.CreateStockChartItem = New DevExpress.XtraCharts.UI.CreateStockChartItem() - Dim CreateCandleStickChartItem1 As DevExpress.XtraCharts.UI.CreateCandleStickChartItem = New DevExpress.XtraCharts.UI.CreateCandleStickChartItem() - Dim ChartControlCommandGalleryItemGroupRadar1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRadar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRadar() - Dim CreateRadarPointChartItem1 As DevExpress.XtraCharts.UI.CreateRadarPointChartItem = New DevExpress.XtraCharts.UI.CreateRadarPointChartItem() - Dim CreateRadarLineChartItem1 As DevExpress.XtraCharts.UI.CreateRadarLineChartItem = New DevExpress.XtraCharts.UI.CreateRadarLineChartItem() - Dim CreateRadarAreaChartItem1 As DevExpress.XtraCharts.UI.CreateRadarAreaChartItem = New DevExpress.XtraCharts.UI.CreateRadarAreaChartItem() - Dim CreateRadarRangeAreaChartItem1 As DevExpress.XtraCharts.UI.CreateRadarRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreateRadarRangeAreaChartItem() - Dim CreateScatterRadarLineChartItem1 As DevExpress.XtraCharts.UI.CreateScatterRadarLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterRadarLineChartItem() - Dim ChartControlCommandGalleryItemGroupPolar1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPolar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPolar() - Dim CreatePolarPointChartItem1 As DevExpress.XtraCharts.UI.CreatePolarPointChartItem = New DevExpress.XtraCharts.UI.CreatePolarPointChartItem() - Dim CreatePolarLineChartItem1 As DevExpress.XtraCharts.UI.CreatePolarLineChartItem = New DevExpress.XtraCharts.UI.CreatePolarLineChartItem() - Dim CreatePolarAreaChartItem1 As DevExpress.XtraCharts.UI.CreatePolarAreaChartItem = New DevExpress.XtraCharts.UI.CreatePolarAreaChartItem() - Dim CreatePolarRangeAreaChartItem1 As DevExpress.XtraCharts.UI.CreatePolarRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreatePolarRangeAreaChartItem() - Dim CreateScatterPolarLineChartItem1 As DevExpress.XtraCharts.UI.CreateScatterPolarLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterPolarLineChartItem() - Dim ChartControlCommandGalleryItemGroupRange1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRange = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRange() - Dim CreateRangeBarChartItem1 As DevExpress.XtraCharts.UI.CreateRangeBarChartItem = New DevExpress.XtraCharts.UI.CreateRangeBarChartItem() - Dim CreateSideBySideRangeBarChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideRangeBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideRangeBarChartItem() - Dim CreateRangeAreaChartItem1 As DevExpress.XtraCharts.UI.CreateRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreateRangeAreaChartItem() - Dim CreateRangeArea3DChartItem1 As DevExpress.XtraCharts.UI.CreateRangeArea3DChartItem = New DevExpress.XtraCharts.UI.CreateRangeArea3DChartItem() - Dim ChartControlCommandGalleryItemGroupGantt1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupGantt = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupGantt() - Dim CreateGanttChartItem1 As DevExpress.XtraCharts.UI.CreateGanttChartItem = New DevExpress.XtraCharts.UI.CreateGanttChartItem() - Dim CreateSideBySideGanttChartItem1 As DevExpress.XtraCharts.UI.CreateSideBySideGanttChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideGanttChartItem() - Dim ChartControlCommandGalleryItemGroupBoxPlot1 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupBoxPlot = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupBoxPlot() - Dim CreateBoxPlotChartItem1 As DevExpress.XtraCharts.UI.CreateBoxPlotChartItem = New DevExpress.XtraCharts.UI.CreateBoxPlotChartItem() - Dim SkinPaddingEdges1 As DevExpress.Skins.SkinPaddingEdges = New DevExpress.Skins.SkinPaddingEdges() - Dim SkinPaddingEdges2 As DevExpress.Skins.SkinPaddingEdges = New DevExpress.Skins.SkinPaddingEdges() - Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() - Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() - Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() - Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim ChartControlCommandGalleryItemGroup2DLine2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DLine = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DLine() + Dim CreateLineChartItem2 As DevExpress.XtraCharts.UI.CreateLineChartItem = New DevExpress.XtraCharts.UI.CreateLineChartItem() + Dim CreateFullStackedLineChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedLineChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedLineChartItem() + Dim CreateScatterLineChartItem2 As DevExpress.XtraCharts.UI.CreateScatterLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterLineChartItem() + Dim CreateSplineChartItem2 As DevExpress.XtraCharts.UI.CreateSplineChartItem = New DevExpress.XtraCharts.UI.CreateSplineChartItem() + Dim CreateStackedLineChartItem2 As DevExpress.XtraCharts.UI.CreateStackedLineChartItem = New DevExpress.XtraCharts.UI.CreateStackedLineChartItem() + Dim CreateStepLineChartItem2 As DevExpress.XtraCharts.UI.CreateStepLineChartItem = New DevExpress.XtraCharts.UI.CreateStepLineChartItem() + Dim ChartControlCommandGalleryItemGroup3DLine2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DLine = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DLine() + Dim CreateLine3DChartItem2 As DevExpress.XtraCharts.UI.CreateLine3DChartItem = New DevExpress.XtraCharts.UI.CreateLine3DChartItem() + Dim CreateFullStackedLine3DChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedLine3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedLine3DChartItem() + Dim CreateSpline3DChartItem2 As DevExpress.XtraCharts.UI.CreateSpline3DChartItem = New DevExpress.XtraCharts.UI.CreateSpline3DChartItem() + Dim CreateStackedLine3DChartItem2 As DevExpress.XtraCharts.UI.CreateStackedLine3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedLine3DChartItem() + Dim CreateStepLine3DChartItem2 As DevExpress.XtraCharts.UI.CreateStepLine3DChartItem = New DevExpress.XtraCharts.UI.CreateStepLine3DChartItem() + Dim ChartControlCommandGalleryItemGroup2DPie2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DPie = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DPie() + Dim CreatePieChartItem2 As DevExpress.XtraCharts.UI.CreatePieChartItem = New DevExpress.XtraCharts.UI.CreatePieChartItem() + Dim CreateDoughnutChartItem2 As DevExpress.XtraCharts.UI.CreateDoughnutChartItem = New DevExpress.XtraCharts.UI.CreateDoughnutChartItem() + Dim CreateNestedDoughnutChartItem2 As DevExpress.XtraCharts.UI.CreateNestedDoughnutChartItem = New DevExpress.XtraCharts.UI.CreateNestedDoughnutChartItem() + Dim ChartControlCommandGalleryItemGroup3DPie2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DPie = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DPie() + Dim CreatePie3DChartItem2 As DevExpress.XtraCharts.UI.CreatePie3DChartItem = New DevExpress.XtraCharts.UI.CreatePie3DChartItem() + Dim CreateDoughnut3DChartItem2 As DevExpress.XtraCharts.UI.CreateDoughnut3DChartItem = New DevExpress.XtraCharts.UI.CreateDoughnut3DChartItem() + Dim ChartControlCommandGalleryItemGroup2DBar2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DBar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DBar() + Dim CreateRotatedBarChartItem2 As DevExpress.XtraCharts.UI.CreateRotatedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedBarChartItem() + Dim CreateRotatedFullStackedBarChartItem2 As DevExpress.XtraCharts.UI.CreateRotatedFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedFullStackedBarChartItem() + Dim CreateRotatedSideBySideFullStackedBarChartItem2 As DevExpress.XtraCharts.UI.CreateRotatedSideBySideFullStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedSideBySideFullStackedBarChartItem() + Dim CreateRotatedSideBySideStackedBarChartItem2 As DevExpress.XtraCharts.UI.CreateRotatedSideBySideStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedSideBySideStackedBarChartItem() + Dim CreateRotatedStackedBarChartItem2 As DevExpress.XtraCharts.UI.CreateRotatedStackedBarChartItem = New DevExpress.XtraCharts.UI.CreateRotatedStackedBarChartItem() + Dim ChartControlCommandGalleryItemGroup2DArea2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DArea = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup2DArea() + Dim CreateAreaChartItem2 As DevExpress.XtraCharts.UI.CreateAreaChartItem = New DevExpress.XtraCharts.UI.CreateAreaChartItem() + Dim CreateFullStackedAreaChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedAreaChartItem() + Dim CreateFullStackedSplineAreaChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedSplineAreaChartItem() + Dim CreateFullStackedStepAreaChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedStepAreaChartItem() + Dim CreateSplineAreaChartItem2 As DevExpress.XtraCharts.UI.CreateSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateSplineAreaChartItem() + Dim CreateStackedAreaChartItem2 As DevExpress.XtraCharts.UI.CreateStackedAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedAreaChartItem() + Dim CreateStackedStepAreaChartItem2 As DevExpress.XtraCharts.UI.CreateStackedStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedStepAreaChartItem() + Dim CreateStackedSplineAreaChartItem2 As DevExpress.XtraCharts.UI.CreateStackedSplineAreaChartItem = New DevExpress.XtraCharts.UI.CreateStackedSplineAreaChartItem() + Dim CreateStepAreaChartItem2 As DevExpress.XtraCharts.UI.CreateStepAreaChartItem = New DevExpress.XtraCharts.UI.CreateStepAreaChartItem() + Dim ChartControlCommandGalleryItemGroup3DArea2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DArea = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroup3DArea() + Dim CreateArea3DChartItem2 As DevExpress.XtraCharts.UI.CreateArea3DChartItem = New DevExpress.XtraCharts.UI.CreateArea3DChartItem() + Dim CreateFullStackedArea3DChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedArea3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedArea3DChartItem() + Dim CreateFullStackedSplineArea3DChartItem2 As DevExpress.XtraCharts.UI.CreateFullStackedSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateFullStackedSplineArea3DChartItem() + Dim CreateSplineArea3DChartItem2 As DevExpress.XtraCharts.UI.CreateSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateSplineArea3DChartItem() + Dim CreateStackedArea3DChartItem2 As DevExpress.XtraCharts.UI.CreateStackedArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedArea3DChartItem() + Dim CreateStackedSplineArea3DChartItem2 As DevExpress.XtraCharts.UI.CreateStackedSplineArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStackedSplineArea3DChartItem() + Dim CreateStepArea3DChartItem2 As DevExpress.XtraCharts.UI.CreateStepArea3DChartItem = New DevExpress.XtraCharts.UI.CreateStepArea3DChartItem() + Dim ChartControlCommandGalleryItemGroupPoint2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPoint = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPoint() + Dim CreatePointChartItem2 As DevExpress.XtraCharts.UI.CreatePointChartItem = New DevExpress.XtraCharts.UI.CreatePointChartItem() + Dim CreateBubbleChartItem2 As DevExpress.XtraCharts.UI.CreateBubbleChartItem = New DevExpress.XtraCharts.UI.CreateBubbleChartItem() + Dim ChartControlCommandGalleryItemGroupFunnel2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFunnel = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFunnel() + Dim CreateFunnelChartItem2 As DevExpress.XtraCharts.UI.CreateFunnelChartItem = New DevExpress.XtraCharts.UI.CreateFunnelChartItem() + Dim CreateFunnel3DChartItem2 As DevExpress.XtraCharts.UI.CreateFunnel3DChartItem = New DevExpress.XtraCharts.UI.CreateFunnel3DChartItem() + Dim ChartControlCommandGalleryItemGroupFinancial2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFinancial = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupFinancial() + Dim CreateStockChartItem2 As DevExpress.XtraCharts.UI.CreateStockChartItem = New DevExpress.XtraCharts.UI.CreateStockChartItem() + Dim CreateCandleStickChartItem2 As DevExpress.XtraCharts.UI.CreateCandleStickChartItem = New DevExpress.XtraCharts.UI.CreateCandleStickChartItem() + Dim ChartControlCommandGalleryItemGroupRadar2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRadar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRadar() + Dim CreateRadarPointChartItem2 As DevExpress.XtraCharts.UI.CreateRadarPointChartItem = New DevExpress.XtraCharts.UI.CreateRadarPointChartItem() + Dim CreateRadarLineChartItem2 As DevExpress.XtraCharts.UI.CreateRadarLineChartItem = New DevExpress.XtraCharts.UI.CreateRadarLineChartItem() + Dim CreateRadarAreaChartItem2 As DevExpress.XtraCharts.UI.CreateRadarAreaChartItem = New DevExpress.XtraCharts.UI.CreateRadarAreaChartItem() + Dim CreateRadarRangeAreaChartItem2 As DevExpress.XtraCharts.UI.CreateRadarRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreateRadarRangeAreaChartItem() + Dim CreateScatterRadarLineChartItem2 As DevExpress.XtraCharts.UI.CreateScatterRadarLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterRadarLineChartItem() + Dim ChartControlCommandGalleryItemGroupPolar2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPolar = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupPolar() + Dim CreatePolarPointChartItem2 As DevExpress.XtraCharts.UI.CreatePolarPointChartItem = New DevExpress.XtraCharts.UI.CreatePolarPointChartItem() + Dim CreatePolarLineChartItem2 As DevExpress.XtraCharts.UI.CreatePolarLineChartItem = New DevExpress.XtraCharts.UI.CreatePolarLineChartItem() + Dim CreatePolarAreaChartItem2 As DevExpress.XtraCharts.UI.CreatePolarAreaChartItem = New DevExpress.XtraCharts.UI.CreatePolarAreaChartItem() + Dim CreatePolarRangeAreaChartItem2 As DevExpress.XtraCharts.UI.CreatePolarRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreatePolarRangeAreaChartItem() + Dim CreateScatterPolarLineChartItem2 As DevExpress.XtraCharts.UI.CreateScatterPolarLineChartItem = New DevExpress.XtraCharts.UI.CreateScatterPolarLineChartItem() + Dim ChartControlCommandGalleryItemGroupRange2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRange = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupRange() + Dim CreateRangeBarChartItem2 As DevExpress.XtraCharts.UI.CreateRangeBarChartItem = New DevExpress.XtraCharts.UI.CreateRangeBarChartItem() + Dim CreateSideBySideRangeBarChartItem2 As DevExpress.XtraCharts.UI.CreateSideBySideRangeBarChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideRangeBarChartItem() + Dim CreateRangeAreaChartItem2 As DevExpress.XtraCharts.UI.CreateRangeAreaChartItem = New DevExpress.XtraCharts.UI.CreateRangeAreaChartItem() + Dim CreateRangeArea3DChartItem2 As DevExpress.XtraCharts.UI.CreateRangeArea3DChartItem = New DevExpress.XtraCharts.UI.CreateRangeArea3DChartItem() + Dim ChartControlCommandGalleryItemGroupGantt2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupGantt = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupGantt() + Dim CreateGanttChartItem2 As DevExpress.XtraCharts.UI.CreateGanttChartItem = New DevExpress.XtraCharts.UI.CreateGanttChartItem() + Dim CreateSideBySideGanttChartItem2 As DevExpress.XtraCharts.UI.CreateSideBySideGanttChartItem = New DevExpress.XtraCharts.UI.CreateSideBySideGanttChartItem() + Dim ChartControlCommandGalleryItemGroupBoxPlot2 As DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupBoxPlot = New DevExpress.XtraCharts.UI.ChartControlCommandGalleryItemGroupBoxPlot() + Dim CreateBoxPlotChartItem2 As DevExpress.XtraCharts.UI.CreateBoxPlotChartItem = New DevExpress.XtraCharts.UI.CreateBoxPlotChartItem() + Dim SkinPaddingEdges3 As DevExpress.Skins.SkinPaddingEdges = New DevExpress.Skins.SkinPaddingEdges() + Dim SkinPaddingEdges4 As DevExpress.Skins.SkinPaddingEdges = New DevExpress.Skins.SkinPaddingEdges() + Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() Me.colTitle = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.colAnzahl = New DevExpress.XtraGrid.Columns.TileViewColumn() Me.colNettoSumme = New DevExpress.XtraGrid.Columns.TileViewColumn() @@ -293,139 +293,139 @@ Partial Class frmInvDashboard ' Me.CommandBarGalleryDropDown1.Gallery.AllowFilter = False Me.CommandBarGalleryDropDown1.Gallery.ColumnCount = 4 - ChartControlCommandGalleryItemGroup2DColumn1.Caption = "Spalte 2-D" - CreateBarChartItem1.Caption = "Gruppierte Säulen" - CreateFullStackedBarChartItem1.Caption = "100 % Gestapelte Säule" - CreateFullStackedBarChartItem1.Description = "Vergleichen den Prozentsatz, der jeder Wert mit vertikalen Rechtecke aller Katego" & + ChartControlCommandGalleryItemGroup2DColumn2.Caption = "Spalte 2-D" + CreateBarChartItem2.Caption = "Gruppierte Säulen" + CreateFullStackedBarChartItem2.Caption = "100 % Gestapelte Säule" + CreateFullStackedBarChartItem2.Description = "Vergleichen den Prozentsatz, der jeder Wert mit vertikalen Rechtecke aller Katego" & "rien auf insgesamt beiträgt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, den Anteil der einzelnen Daten" & "reihen hervorzuheben." - CreateFullStackedBarChartItem1.Hint = "Vergleichen den Prozentsatz, der jeder Wert mit vertikalen Rechtecke aller Katego" & + CreateFullStackedBarChartItem2.Hint = "Vergleichen den Prozentsatz, der jeder Wert mit vertikalen Rechtecke aller Katego" & "rien auf insgesamt beiträgt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, den Anteil der einzelnen Daten" & "reihen hervorzuheben." - CreateSideBySideFullStackedBarChartItem1.Caption = "Gruppierte 100 % gestapelte Spalte" - CreateSideBySideFullStackedBarChartItem1.Description = "Verbinden die Vorteile der beiden 100 % gestapelte und gruppierte Säulen Diagramm" & + CreateSideBySideFullStackedBarChartItem2.Caption = "Gruppierte 100 % gestapelte Spalte" + CreateSideBySideFullStackedBarChartItem2.Description = "Verbinden die Vorteile der beiden 100 % gestapelte und gruppierte Säulen Diagramm" & "typen, so dass Sie können verschiedene Spalten Stapeln und sie in Gruppen auf de" & "r gleichen Achsenwert kombinieren." - CreateSideBySideFullStackedBarChartItem1.Hint = "Verbinden die Vorteile der beiden 100 % gestapelte und gruppierte Säulen Diagramm" & + CreateSideBySideFullStackedBarChartItem2.Hint = "Verbinden die Vorteile der beiden 100 % gestapelte und gruppierte Säulen Diagramm" & "typen, so dass Sie können verschiedene Spalten Stapeln und sie in Gruppen auf de" & "r gleichen Achsenwert kombinieren." - CreateSideBySideStackedBarChartItem1.Caption = "Gruppierte gestapelte Säule" - CreateSideBySideStackedBarChartItem1.Description = "Verbinden die Vorteile von sowohl die gestapelte und gruppierte Säulen Diagrammty" & + CreateSideBySideStackedBarChartItem2.Caption = "Gruppierte gestapelte Säule" + CreateSideBySideStackedBarChartItem2.Description = "Verbinden die Vorteile von sowohl die gestapelte und gruppierte Säulen Diagrammty" & "pen, so dass Sie können verschiedene Spalten Stapeln und sie in Gruppen über den" & " gleichen Achsenwert kombinieren." - CreateSideBySideStackedBarChartItem1.Hint = "Verbinden die Vorteile von sowohl die gestapelte und gruppierte Säulen Diagrammty" & + CreateSideBySideStackedBarChartItem2.Hint = "Verbinden die Vorteile von sowohl die gestapelte und gruppierte Säulen Diagrammty" & "pen, so dass Sie können verschiedene Spalten Stapeln und sie in Gruppen über den" & " gleichen Achsenwert kombinieren." - CreateStackedBarChartItem1.Caption = "Gestapelte Spalte" - CreateStackedBarChartItem1.Description = "Vergleich der Beitrag eines jeden Wert insgesamt aller Kategorien mit vertikalen " & + CreateStackedBarChartItem2.Caption = "Gestapelte Spalte" + CreateStackedBarChartItem2.Description = "Vergleich der Beitrag eines jeden Wert insgesamt aller Kategorien mit vertikalen " & "Rechtecke." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Damit können sie um die gesamte Serie für eine Kategorie zu betone" & "n." - CreateStackedBarChartItem1.Hint = "Vergleich der Beitrag eines jeden Wert insgesamt aller Kategorien mit vertikalen " & + CreateStackedBarChartItem2.Hint = "Vergleich der Beitrag eines jeden Wert insgesamt aller Kategorien mit vertikalen " & "Rechtecke." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Damit können sie um die gesamte Serie für eine Kategorie zu betone" & "n." - CreateWaterfallChartItem1.Caption = "Waterfall" - CreateWaterfallChartItem1.Description = "A Waterfall chart displays a sequence of bars that indicate positive or negative " & + CreateWaterfallChartItem2.Caption = "Waterfall" + CreateWaterfallChartItem2.Description = "A Waterfall chart displays a sequence of bars that indicate positive or negative " & "changes." - CreateWaterfallChartItem1.Hint = "A Waterfall chart displays a sequence of bars that indicate positive or negative " & + CreateWaterfallChartItem2.Hint = "A Waterfall chart displays a sequence of bars that indicate positive or negative " & "changes." - ChartControlCommandGalleryItemGroup2DColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBarChartItem1, CreateFullStackedBarChartItem1, CreateSideBySideFullStackedBarChartItem1, CreateSideBySideStackedBarChartItem1, CreateStackedBarChartItem1, CreateWaterfallChartItem1}) - ChartControlCommandGalleryItemGroup3DColumn1.Caption = "3D-Säulen" - CreateBar3DChartItem1.Caption = "3-D gruppierten Spalte" - CreateBar3DChartItem1.Description = "Werte verschiedener Kategorien vergleichen und gruppierte Spalten im 3D-Format an" & + ChartControlCommandGalleryItemGroup2DColumn2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBarChartItem2, CreateFullStackedBarChartItem2, CreateSideBySideFullStackedBarChartItem2, CreateSideBySideStackedBarChartItem2, CreateStackedBarChartItem2, CreateWaterfallChartItem2}) + ChartControlCommandGalleryItemGroup3DColumn2.Caption = "3D-Säulen" + CreateBar3DChartItem2.Caption = "3-D gruppierten Spalte" + CreateBar3DChartItem2.Description = "Werte verschiedener Kategorien vergleichen und gruppierte Spalten im 3D-Format an" & "zeigen." - CreateBar3DChartItem1.Hint = "Werte verschiedener Kategorien vergleichen und gruppierte Spalten im 3D-Format an" & + CreateBar3DChartItem2.Hint = "Werte verschiedener Kategorien vergleichen und gruppierte Spalten im 3D-Format an" & "zeigen." - CreateFullStackedBar3DChartItem1.Caption = "100 % Gestapelte Spalte in 3-d" - CreateFullStackedBar3DChartItem1.Description = "vergleichen Sie den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt" & + CreateFullStackedBar3DChartItem2.Caption = "100 % Gestapelte Spalte in 3-d" + CreateFullStackedBar3DChartItem2.Description = "vergleichen Sie den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt" & " und 100 % gestapelte Spalten im 3D-Format anzeigen." - CreateFullStackedBar3DChartItem1.Hint = "vergleichen Sie den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt" & + CreateFullStackedBar3DChartItem2.Hint = "vergleichen Sie den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt" & " und 100 % gestapelte Spalten im 3D-Format anzeigen." - CreateManhattanBarChartItem1.Caption = "3D-Säulen" - CreateManhattanBarChartItem1.Description = "Vergleichen Werte über Kategorien und über Serie auf drei Achsen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Si" & + CreateManhattanBarChartItem2.Caption = "3D-Säulen" + CreateManhattanBarChartItem2.Description = "Vergleichen Werte über Kategorien und über Serie auf drei Achsen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Si" & "e es, wenn die Kategorien und die Serie ebenso wichtig sind." - CreateManhattanBarChartItem1.Hint = "Vergleichen Werte über Kategorien und über Serie auf drei Achsen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Si" & + CreateManhattanBarChartItem2.Hint = "Vergleichen Werte über Kategorien und über Serie auf drei Achsen." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Si" & "e es, wenn die Kategorien und die Serie ebenso wichtig sind." - CreateSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelte Spalte in 3-d" - CreateSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Säule in 3-d" - CreateStackedBar3DChartItem1.Caption = "Gestapelte Spalte in 3-d" - CreateStackedBar3DChartItem1.Description = "Die Verteilung der Einzelwerte auf insgesamt Kategoriengesamtwert vergleichen und" & + CreateSideBySideFullStackedBar3DChartItem2.Caption = "Gruppierte 100 % gestapelte Spalte in 3-d" + CreateSideBySideStackedBar3DChartItem2.Caption = "Gruppierte gestapelte Säule in 3-d" + CreateStackedBar3DChartItem2.Caption = "Gestapelte Spalte in 3-d" + CreateStackedBar3DChartItem2.Description = "Die Verteilung der Einzelwerte auf insgesamt Kategoriengesamtwert vergleichen und" & " gestapelte Spalten im 3D-Format anzeigen." - CreateStackedBar3DChartItem1.Hint = "Die Verteilung der Einzelwerte auf insgesamt Kategoriengesamtwert vergleichen und" & + CreateStackedBar3DChartItem2.Hint = "Die Verteilung der Einzelwerte auf insgesamt Kategoriengesamtwert vergleichen und" & " gestapelte Spalten im 3D-Format anzeigen." - ChartControlCommandGalleryItemGroup3DColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBar3DChartItem1, CreateFullStackedBar3DChartItem1, CreateManhattanBarChartItem1, CreateSideBySideFullStackedBar3DChartItem1, CreateSideBySideStackedBar3DChartItem1, CreateStackedBar3DChartItem1}) - ChartControlCommandGalleryItemGroupCylinderColumn1.Caption = "Zylinder" - CreateCylinderBar3DChartItem1.Caption = "Gruppierte Zylinder" - CreateCylinderBar3DChartItem1.Description = "Vergleicht Werte verschiedener Kategorien." - CreateCylinderBar3DChartItem1.Hint = "Vergleicht Werte verschiedener Kategorien." - CreateCylinderFullStackedBar3DChartItem1.Caption = "100 % Gestapelt Zylinder" - CreateCylinderFullStackedBar3DChartItem1.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." - CreateCylinderFullStackedBar3DChartItem1.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." - CreateCylinderManhattanBarChartItem1.Caption = "3-D-Zylinder" - CreateCylinderManhattanBarChartItem1.Description = "Werte zu vergleichen, über Kategorien und über Serie und einem Zylinder-Diagramm " & + ChartControlCommandGalleryItemGroup3DColumn2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBar3DChartItem2, CreateFullStackedBar3DChartItem2, CreateManhattanBarChartItem2, CreateSideBySideFullStackedBar3DChartItem2, CreateSideBySideStackedBar3DChartItem2, CreateStackedBar3DChartItem2}) + ChartControlCommandGalleryItemGroupCylinderColumn2.Caption = "Zylinder" + CreateCylinderBar3DChartItem2.Caption = "Gruppierte Zylinder" + CreateCylinderBar3DChartItem2.Description = "Vergleicht Werte verschiedener Kategorien." + CreateCylinderBar3DChartItem2.Hint = "Vergleicht Werte verschiedener Kategorien." + CreateCylinderFullStackedBar3DChartItem2.Caption = "100 % Gestapelt Zylinder" + CreateCylinderFullStackedBar3DChartItem2.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreateCylinderFullStackedBar3DChartItem2.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreateCylinderManhattanBarChartItem2.Caption = "3-D-Zylinder" + CreateCylinderManhattanBarChartItem2.Description = "Werte zu vergleichen, über Kategorien und über Serie und einem Zylinder-Diagramm " & "der drei Achsen anzeigen." - CreateCylinderManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und einem Zylinder-Diagramm " & + CreateCylinderManhattanBarChartItem2.Hint = "Werte zu vergleichen, über Kategorien und über Serie und einem Zylinder-Diagramm " & "der drei Achsen anzeigen." - CreateCylinderSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelt Zylinder" - CreateCylinderSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Zylinder" - CreateCylinderSideBySideStackedBar3DChartItem1.Description = "Verbinden die Vorteile von gestapelt Zylinder sowohl Clustered Zylinder Diagrammt" & + CreateCylinderSideBySideFullStackedBar3DChartItem2.Caption = "Gruppierte 100 % gestapelt Zylinder" + CreateCylinderSideBySideStackedBar3DChartItem2.Caption = "Gruppierte gestapelte Zylinder" + CreateCylinderSideBySideStackedBar3DChartItem2.Description = "Verbinden die Vorteile von gestapelt Zylinder sowohl Clustered Zylinder Diagrammt" & "ypen, so dass Sie können verschiedene Zylinder Stapeln und sie in Gruppen über d" & "en gleichen Achsenwert kombinieren." - CreateCylinderSideBySideStackedBar3DChartItem1.Hint = "Verbinden die Vorteile von gestapelt Zylinder sowohl Clustered Zylinder Diagrammt" & + CreateCylinderSideBySideStackedBar3DChartItem2.Hint = "Verbinden die Vorteile von gestapelt Zylinder sowohl Clustered Zylinder Diagrammt" & "ypen, so dass Sie können verschiedene Zylinder Stapeln und sie in Gruppen über d" & "en gleichen Achsenwert kombinieren." - CreateCylinderStackedBar3DChartItem1.Caption = "Gestapelte Zylinder" - CreateCylinderStackedBar3DChartItem1.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + CreateCylinderStackedBar3DChartItem2.Caption = "Gestapelte Zylinder" + CreateCylinderStackedBar3DChartItem2.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & "hen." - CreateCylinderStackedBar3DChartItem1.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + CreateCylinderStackedBar3DChartItem2.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & "hen." - ChartControlCommandGalleryItemGroupCylinderColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateCylinderBar3DChartItem1, CreateCylinderFullStackedBar3DChartItem1, CreateCylinderManhattanBarChartItem1, CreateCylinderSideBySideFullStackedBar3DChartItem1, CreateCylinderSideBySideStackedBar3DChartItem1, CreateCylinderStackedBar3DChartItem1}) - ChartControlCommandGalleryItemGroupConeColumn1.Caption = "Kegel" - CreateConeBar3DChartItem1.Caption = "Gruppierte Kegel" - CreateConeBar3DChartItem1.Description = "Werte verschiedener Kategorien vergleichen." - CreateConeBar3DChartItem1.Hint = "Werte verschiedener Kategorien vergleichen." - CreateConeFullStackedBar3DChartItem1.Caption = "100 % Gestapelt Kegel" - CreateConeFullStackedBar3DChartItem1.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." - CreateConeFullStackedBar3DChartItem1.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." - CreateConeManhattanBarChartItem1.Caption = "3-D-Kegel" - CreateConeManhattanBarChartItem1.Description = "Werte zu vergleichen, über Kategorien und über Serie und ein Kegel-Diagramm auf d" & + ChartControlCommandGalleryItemGroupCylinderColumn2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateCylinderBar3DChartItem2, CreateCylinderFullStackedBar3DChartItem2, CreateCylinderManhattanBarChartItem2, CreateCylinderSideBySideFullStackedBar3DChartItem2, CreateCylinderSideBySideStackedBar3DChartItem2, CreateCylinderStackedBar3DChartItem2}) + ChartControlCommandGalleryItemGroupConeColumn2.Caption = "Kegel" + CreateConeBar3DChartItem2.Caption = "Gruppierte Kegel" + CreateConeBar3DChartItem2.Description = "Werte verschiedener Kategorien vergleichen." + CreateConeBar3DChartItem2.Hint = "Werte verschiedener Kategorien vergleichen." + CreateConeFullStackedBar3DChartItem2.Caption = "100 % Gestapelt Kegel" + CreateConeFullStackedBar3DChartItem2.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreateConeFullStackedBar3DChartItem2.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreateConeManhattanBarChartItem2.Caption = "3-D-Kegel" + CreateConeManhattanBarChartItem2.Description = "Werte zu vergleichen, über Kategorien und über Serie und ein Kegel-Diagramm auf d" & "rei Achsen anzeigen." - CreateConeManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und ein Kegel-Diagramm auf d" & + CreateConeManhattanBarChartItem2.Hint = "Werte zu vergleichen, über Kategorien und über Serie und ein Kegel-Diagramm auf d" & "rei Achsen anzeigen." - CreateConeSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelt Kegel" - CreateConeSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Kegel" - CreateConeSideBySideStackedBar3DChartItem1.Description = "Verbinden die Vorteile von gestapelt Kegel sowohl gruppierte Kegel Diagrammtypen," & + CreateConeSideBySideFullStackedBar3DChartItem2.Caption = "Gruppierte 100 % gestapelt Kegel" + CreateConeSideBySideStackedBar3DChartItem2.Caption = "Gruppierte gestapelte Kegel" + CreateConeSideBySideStackedBar3DChartItem2.Description = "Verbinden die Vorteile von gestapelt Kegel sowohl gruppierte Kegel Diagrammtypen," & " so dass Sie können verschiedene Vulkankegel Stapeln und sie in Gruppen über den" & " gleichen Achsenwert kombinieren." - CreateConeSideBySideStackedBar3DChartItem1.Hint = "Verbinden die Vorteile von gestapelt Kegel sowohl gruppierte Kegel Diagrammtypen," & + CreateConeSideBySideStackedBar3DChartItem2.Hint = "Verbinden die Vorteile von gestapelt Kegel sowohl gruppierte Kegel Diagrammtypen," & " so dass Sie können verschiedene Vulkankegel Stapeln und sie in Gruppen über den" & " gleichen Achsenwert kombinieren." - CreateConeStackedBar3DChartItem1.Caption = "Gestapelte Kegel" - CreateConeStackedBar3DChartItem1.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + CreateConeStackedBar3DChartItem2.Caption = "Gestapelte Kegel" + CreateConeStackedBar3DChartItem2.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & "hen." - CreateConeStackedBar3DChartItem1.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + CreateConeStackedBar3DChartItem2.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & "hen." - ChartControlCommandGalleryItemGroupConeColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateConeBar3DChartItem1, CreateConeFullStackedBar3DChartItem1, CreateConeManhattanBarChartItem1, CreateConeSideBySideFullStackedBar3DChartItem1, CreateConeSideBySideStackedBar3DChartItem1, CreateConeStackedBar3DChartItem1}) - ChartControlCommandGalleryItemGroupPyramidColumn1.Caption = "Pyramide" - CreatePyramidBar3DChartItem1.Caption = "Gruppierte Pyramide" - CreatePyramidBar3DChartItem1.Description = "Vergleicht Werte verschiedener Kategorien." - CreatePyramidBar3DChartItem1.Hint = "Vergleicht Werte verschiedener Kategorien." - CreatePyramidFullStackedBar3DChartItem1.Caption = "100 % Gestapelt Pyramide" - CreatePyramidFullStackedBar3DChartItem1.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." - CreatePyramidFullStackedBar3DChartItem1.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." - CreatePyramidManhattanBarChartItem1.Caption = "3D Pyramide" - CreatePyramidManhattanBarChartItem1.Description = "Werte zu vergleichen, über Kategorien und über Serie und zeigen ein Pyramidendiag" & + ChartControlCommandGalleryItemGroupConeColumn2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateConeBar3DChartItem2, CreateConeFullStackedBar3DChartItem2, CreateConeManhattanBarChartItem2, CreateConeSideBySideFullStackedBar3DChartItem2, CreateConeSideBySideStackedBar3DChartItem2, CreateConeStackedBar3DChartItem2}) + ChartControlCommandGalleryItemGroupPyramidColumn2.Caption = "Pyramide" + CreatePyramidBar3DChartItem2.Caption = "Gruppierte Pyramide" + CreatePyramidBar3DChartItem2.Description = "Vergleicht Werte verschiedener Kategorien." + CreatePyramidBar3DChartItem2.Hint = "Vergleicht Werte verschiedener Kategorien." + CreatePyramidFullStackedBar3DChartItem2.Caption = "100 % Gestapelt Pyramide" + CreatePyramidFullStackedBar3DChartItem2.Description = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreatePyramidFullStackedBar3DChartItem2.Hint = "Den Prozentsatz Einzelwerte zum Gesamtwert aller Kategorien trägt vergleichen." + CreatePyramidManhattanBarChartItem2.Caption = "3D Pyramide" + CreatePyramidManhattanBarChartItem2.Description = "Werte zu vergleichen, über Kategorien und über Serie und zeigen ein Pyramidendiag" & "ramm auf drei Achsen." - CreatePyramidManhattanBarChartItem1.Hint = "Werte zu vergleichen, über Kategorien und über Serie und zeigen ein Pyramidendiag" & + CreatePyramidManhattanBarChartItem2.Hint = "Werte zu vergleichen, über Kategorien und über Serie und zeigen ein Pyramidendiag" & "ramm auf drei Achsen." - CreatePyramidSideBySideFullStackedBar3DChartItem1.Caption = "Gruppierte 100 % gestapelte Pyramide" - CreatePyramidSideBySideStackedBar3DChartItem1.Caption = "Gruppierte gestapelte Pyramide" - CreatePyramidStackedBar3DChartItem1.Caption = "Pyramide gestapelt" - CreatePyramidStackedBar3DChartItem1.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + CreatePyramidSideBySideFullStackedBar3DChartItem2.Caption = "Gruppierte 100 % gestapelte Pyramide" + CreatePyramidSideBySideStackedBar3DChartItem2.Caption = "Gruppierte gestapelte Pyramide" + CreatePyramidStackedBar3DChartItem2.Caption = "Pyramide gestapelt" + CreatePyramidStackedBar3DChartItem2.Description = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & "hen." - CreatePyramidStackedBar3DChartItem1.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & + CreatePyramidStackedBar3DChartItem2.Hint = "Verteilung der Einzelwerte der Einzelwerte mit insgesamt über Kategorien vergleic" & "hen." - ChartControlCommandGalleryItemGroupPyramidColumn1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePyramidBar3DChartItem1, CreatePyramidFullStackedBar3DChartItem1, CreatePyramidManhattanBarChartItem1, CreatePyramidSideBySideFullStackedBar3DChartItem1, CreatePyramidSideBySideStackedBar3DChartItem1, CreatePyramidStackedBar3DChartItem1}) - Me.CommandBarGalleryDropDown1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DColumn1, ChartControlCommandGalleryItemGroup3DColumn1, ChartControlCommandGalleryItemGroupCylinderColumn1, ChartControlCommandGalleryItemGroupConeColumn1, ChartControlCommandGalleryItemGroupPyramidColumn1}) + ChartControlCommandGalleryItemGroupPyramidColumn2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePyramidBar3DChartItem2, CreatePyramidFullStackedBar3DChartItem2, CreatePyramidManhattanBarChartItem2, CreatePyramidSideBySideFullStackedBar3DChartItem2, CreatePyramidSideBySideStackedBar3DChartItem2, CreatePyramidStackedBar3DChartItem2}) + Me.CommandBarGalleryDropDown1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DColumn2, ChartControlCommandGalleryItemGroup3DColumn2, ChartControlCommandGalleryItemGroupCylinderColumn2, ChartControlCommandGalleryItemGroupConeColumn2, ChartControlCommandGalleryItemGroupPyramidColumn2}) Me.CommandBarGalleryDropDown1.Gallery.ImageSize = New System.Drawing.Size(32, 32) Me.CommandBarGalleryDropDown1.Gallery.RowCount = 10 Me.CommandBarGalleryDropDown1.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] @@ -441,7 +441,7 @@ Partial Class frmInvDashboard Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.ChartRibbonPageCategory1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) - Me.RibbonControl1.Size = New System.Drawing.Size(1124, 146) + Me.RibbonControl1.Size = New System.Drawing.Size(1193, 146) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem1 @@ -491,56 +491,56 @@ Partial Class frmInvDashboard ' Me.CommandBarGalleryDropDown2.Gallery.AllowFilter = False Me.CommandBarGalleryDropDown2.Gallery.ColumnCount = 3 - ChartControlCommandGalleryItemGroup2DLine1.Caption = "2-D-Linie" - CreateLineChartItem1.Caption = "Linie" - CreateLineChartItem1.Description = "Display Trend Überstunden (Termine, Jahre) oder sortierte Kategorien. Nützlich, w" & + ChartControlCommandGalleryItemGroup2DLine2.Caption = "2-D-Linie" + CreateLineChartItem2.Caption = "Linie" + CreateLineChartItem2.Description = "Display Trend Überstunden (Termine, Jahre) oder sortierte Kategorien. Nützlich, w" & "enn viele Datenpunkte vorhanden sind und die Reihenfolge wichtig ist." - CreateLineChartItem1.Hint = "Display Trend Überstunden (Termine, Jahre) oder sortierte Kategorien. Nützlich, w" & + CreateLineChartItem2.Hint = "Display Trend Überstunden (Termine, Jahre) oder sortierte Kategorien. Nützlich, w" & "enn viele Datenpunkte vorhanden sind und die Reihenfolge wichtig ist." - CreateFullStackedLineChartItem1.Caption = "100 % Gestapelte Linie" - CreateFullStackedLineChartItem1.Description = "Zeigen den Trend für den Prozentsatz jeder Wert über Zeit oder geordnete Kategori" & + CreateFullStackedLineChartItem2.Caption = "100 % Gestapelte Linie" + CreateFullStackedLineChartItem2.Description = "Zeigen den Trend für den Prozentsatz jeder Wert über Zeit oder geordnete Kategori" & "en beiträgt." - CreateFullStackedLineChartItem1.Hint = "Zeigen den Trend für den Prozentsatz jeder Wert über Zeit oder geordnete Kategori" & + CreateFullStackedLineChartItem2.Hint = "Zeigen den Trend für den Prozentsatz jeder Wert über Zeit oder geordnete Kategori" & "en beiträgt." - CreateScatterLineChartItem1.Caption = "Scatter Linie" - CreateScatterLineChartItem1.Description = "Serie Punkte in der gleichen Reihenfolge, die sie in der Auflistung darstellen." - CreateScatterLineChartItem1.Hint = "Serie Punkte in der gleichen Reihenfolge, die sie in der Auflistung darstellen." - CreateSplineChartItem1.Caption = "Keil" - CreateSplineChartItem1.Description = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." - CreateSplineChartItem1.Hint = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." - CreateStackedLineChartItem1.Caption = "Gestapelte Linie" - CreateStackedLineChartItem1.Description = "Displays the trend of the contribution of each value over time or ordered categor" & + CreateScatterLineChartItem2.Caption = "Scatter Linie" + CreateScatterLineChartItem2.Description = "Serie Punkte in der gleichen Reihenfolge, die sie in der Auflistung darstellen." + CreateScatterLineChartItem2.Hint = "Serie Punkte in der gleichen Reihenfolge, die sie in der Auflistung darstellen." + CreateSplineChartItem2.Caption = "Keil" + CreateSplineChartItem2.Description = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateSplineChartItem2.Hint = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateStackedLineChartItem2.Caption = "Gestapelte Linie" + CreateStackedLineChartItem2.Description = "Displays the trend of the contribution of each value over time or ordered categor" & "ies." - CreateStackedLineChartItem1.Hint = "Displays the trend of the contribution of each value over time or ordered categor" & + CreateStackedLineChartItem2.Hint = "Displays the trend of the contribution of each value over time or ordered categor" & "ies." - CreateStepLineChartItem1.Caption = "Stufenlinie" - CreateStepLineChartItem1.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + CreateStepLineChartItem2.Caption = "Stufenlinie" + CreateStepLineChartItem2.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & "ndert haben." - CreateStepLineChartItem1.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + CreateStepLineChartItem2.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & "ndert haben." - ChartControlCommandGalleryItemGroup2DLine1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateLineChartItem1, CreateFullStackedLineChartItem1, CreateScatterLineChartItem1, CreateSplineChartItem1, CreateStackedLineChartItem1, CreateStepLineChartItem1}) - ChartControlCommandGalleryItemGroup3DLine1.Caption = "3-D-Linie" - CreateLine3DChartItem1.Caption = "3-D-Linie" - CreateLine3DChartItem1.Description = "Zeigt jede Zeile oder Spalte mit Daten als ein 3-d Band auf drei Achsen." - CreateLine3DChartItem1.Hint = "Zeigt jede Zeile oder Spalte mit Daten als ein 3-d Band auf drei Achsen." - CreateFullStackedLine3DChartItem1.Caption = "100 % Gestapelte Linie in 3-d" - CreateFullStackedLine3DChartItem1.Description = "anzeigen alle gestapelten und ist nützlich, wenn es erforderlich ist, vergleichen" & + ChartControlCommandGalleryItemGroup2DLine2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateLineChartItem2, CreateFullStackedLineChartItem2, CreateScatterLineChartItem2, CreateSplineChartItem2, CreateStackedLineChartItem2, CreateStepLineChartItem2}) + ChartControlCommandGalleryItemGroup3DLine2.Caption = "3-D-Linie" + CreateLine3DChartItem2.Caption = "3-D-Linie" + CreateLine3DChartItem2.Description = "Zeigt jede Zeile oder Spalte mit Daten als ein 3-d Band auf drei Achsen." + CreateLine3DChartItem2.Hint = "Zeigt jede Zeile oder Spalte mit Daten als ein 3-d Band auf drei Achsen." + CreateFullStackedLine3DChartItem2.Caption = "100 % Gestapelte Linie in 3-d" + CreateFullStackedLine3DChartItem2.Description = "anzeigen alle gestapelten und ist nützlich, wenn es erforderlich ist, vergleichen" & ", wie viel jede Reihe der aggregierten Gesamtwert für bestimmte Argumente (als P" & "rozente) hinzufügt." - CreateFullStackedLine3DChartItem1.Hint = "anzeigen alle gestapelten und ist nützlich, wenn es erforderlich ist, vergleichen" & + CreateFullStackedLine3DChartItem2.Hint = "anzeigen alle gestapelten und ist nützlich, wenn es erforderlich ist, vergleichen" & ", wie viel jede Reihe der aggregierten Gesamtwert für bestimmte Argumente (als P" & "rozente) hinzufügt." - CreateSpline3DChartItem1.Caption = "3D-Spline" - CreateSpline3DChartItem1.Description = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." - CreateSpline3DChartItem1.Hint = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." - CreateStackedLine3DChartItem1.Caption = "Gestapelte Linie in 3-d" - CreateStepLine3DChartItem1.Caption = "Schritt-Linie in 3-d" - CreateStepLine3DChartItem1.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + CreateSpline3DChartItem2.Caption = "3D-Spline" + CreateSpline3DChartItem2.Description = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateSpline3DChartItem2.Hint = "Grundstück eine eingepassten Kurve durch jeden Datenpunkt in einer Reihe." + CreateStackedLine3DChartItem2.Caption = "Gestapelte Linie in 3-d" + CreateStepLine3DChartItem2.Caption = "Schritt-Linie in 3-d" + CreateStepLine3DChartItem2.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & "ndert haben." - CreateStepLine3DChartItem1.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + CreateStepLine3DChartItem2.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & "ndert haben." - ChartControlCommandGalleryItemGroup3DLine1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateLine3DChartItem1, CreateFullStackedLine3DChartItem1, CreateSpline3DChartItem1, CreateStackedLine3DChartItem1, CreateStepLine3DChartItem1}) - Me.CommandBarGalleryDropDown2.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DLine1, ChartControlCommandGalleryItemGroup3DLine1}) + ChartControlCommandGalleryItemGroup3DLine2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateLine3DChartItem2, CreateFullStackedLine3DChartItem2, CreateSpline3DChartItem2, CreateStackedLine3DChartItem2, CreateStepLine3DChartItem2}) + Me.CommandBarGalleryDropDown2.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DLine2, ChartControlCommandGalleryItemGroup3DLine2}) Me.CommandBarGalleryDropDown2.Gallery.ImageSize = New System.Drawing.Size(32, 32) Me.CommandBarGalleryDropDown2.Gallery.RowCount = 4 Me.CommandBarGalleryDropDown2.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] @@ -562,32 +562,32 @@ Partial Class frmInvDashboard ' Me.CommandBarGalleryDropDown3.Gallery.AllowFilter = False Me.CommandBarGalleryDropDown3.Gallery.ColumnCount = 3 - ChartControlCommandGalleryItemGroup2DPie1.Caption = "Torte 2-D" - CreatePieChartItem1.Caption = "Torte" - CreateDoughnutChartItem1.Caption = "Ring" - CreateDoughnutChartItem1.Description = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert wie ein Kreisdiagramm, aber " & + ChartControlCommandGalleryItemGroup2DPie2.Caption = "Torte 2-D" + CreatePieChartItem2.Caption = "Torte" + CreateDoughnutChartItem2.Caption = "Ring" + CreateDoughnutChartItem2.Description = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert wie ein Kreisdiagramm, aber " & "es kann mehrere Reihen enthalten." - CreateDoughnutChartItem1.Hint = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert wie ein Kreisdiagramm, aber " & + CreateDoughnutChartItem2.Hint = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert wie ein Kreisdiagramm, aber " & "es kann mehrere Reihen enthalten." - CreateNestedDoughnutChartItem1.Caption = "Verschachtelter Donut" - CreateNestedDoughnutChartItem1.Description = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert während vergleichen-Serie mi" & + CreateNestedDoughnutChartItem2.Caption = "Verschachtelter Donut" + CreateNestedDoughnutChartItem2.Description = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert während vergleichen-Serie mi" & "t einem Donut in einem anderen geschachtelt." - CreateNestedDoughnutChartItem1.Hint = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert während vergleichen-Serie mi" & + CreateNestedDoughnutChartItem2.Hint = "Zeigen die Verteilung der Einzelwerte zum Gesamtwert während vergleichen-Serie mi" & "t einem Donut in einem anderen geschachtelt." - ChartControlCommandGalleryItemGroup2DPie1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePieChartItem1, CreateDoughnutChartItem1, CreateNestedDoughnutChartItem1}) - ChartControlCommandGalleryItemGroup3DPie1.Caption = "3-D Torte" - CreatePie3DChartItem1.Caption = "3D-Kreis" - CreatePie3DChartItem1.Description = "zeigen die Verteilung der Einzelwerte zum Gesamtwert." - CreatePie3DChartItem1.Hint = "zeigen die Verteilung der Einzelwerte zum Gesamtwert." - CreateDoughnut3DChartItem1.Caption = "Donut in 3-d" - CreateDoughnut3DChartItem1.Description = "Vergleichen die Prozentwerte der verschiedenen Argumente in der gleichen Serie un" & + ChartControlCommandGalleryItemGroup2DPie2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePieChartItem2, CreateDoughnutChartItem2, CreateNestedDoughnutChartItem2}) + ChartControlCommandGalleryItemGroup3DPie2.Caption = "3-D Torte" + CreatePie3DChartItem2.Caption = "3D-Kreis" + CreatePie3DChartItem2.Description = "zeigen die Verteilung der Einzelwerte zum Gesamtwert." + CreatePie3DChartItem2.Hint = "zeigen die Verteilung der Einzelwerte zum Gesamtwert." + CreateDoughnut3DChartItem2.Caption = "Donut in 3-d" + CreateDoughnut3DChartItem2.Description = "Vergleichen die Prozentwerte der verschiedenen Argumente in der gleichen Serie un" & "d illustrieren diese Werte als leicht verständliche Kreissegmente, sondern mit e" & "inem Loch in der Mitte." - CreateDoughnut3DChartItem1.Hint = "Vergleichen die Prozentwerte der verschiedenen Argumente in der gleichen Serie un" & + CreateDoughnut3DChartItem2.Hint = "Vergleichen die Prozentwerte der verschiedenen Argumente in der gleichen Serie un" & "d illustrieren diese Werte als leicht verständliche Kreissegmente, sondern mit e" & "inem Loch in der Mitte." - ChartControlCommandGalleryItemGroup3DPie1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePie3DChartItem1, CreateDoughnut3DChartItem1}) - Me.CommandBarGalleryDropDown3.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DPie1, ChartControlCommandGalleryItemGroup3DPie1}) + ChartControlCommandGalleryItemGroup3DPie2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePie3DChartItem2, CreateDoughnut3DChartItem2}) + Me.CommandBarGalleryDropDown3.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DPie2, ChartControlCommandGalleryItemGroup3DPie2}) Me.CommandBarGalleryDropDown3.Gallery.ImageSize = New System.Drawing.Size(32, 32) Me.CommandBarGalleryDropDown3.Gallery.RowCount = 2 Me.CommandBarGalleryDropDown3.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] @@ -609,34 +609,34 @@ Partial Class frmInvDashboard ' Me.CommandBarGalleryDropDown4.Gallery.AllowFilter = False Me.CommandBarGalleryDropDown4.Gallery.ColumnCount = 3 - ChartControlCommandGalleryItemGroup2DBar1.Caption = "2D-Balken" - CreateRotatedBarChartItem1.Caption = "Balken" - CreateRotatedBarChartItem1.Description = "ein Balkendiagramm." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Balkendiagramme sind der beste Chart-Typ für den Vergleich" & + ChartControlCommandGalleryItemGroup2DBar2.Caption = "2D-Balken" + CreateRotatedBarChartItem2.Caption = "Balken" + CreateRotatedBarChartItem2.Description = "ein Balkendiagramm." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Balkendiagramme sind der beste Chart-Typ für den Vergleich" & " mehrerer Werte." - CreateRotatedBarChartItem1.Hint = "ein Balkendiagramm." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Balkendiagramme sind der beste Chart-Typ für den Vergleich" & + CreateRotatedBarChartItem2.Hint = "ein Balkendiagramm." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Balkendiagramme sind der beste Chart-Typ für den Vergleich" & " mehrerer Werte." - CreateRotatedFullStackedBarChartItem1.Caption = "100 % Gestapelt Bar" - CreateRotatedSideBySideFullStackedBarChartItem1.Caption = "Gruppierte 100 % gestapelt Bar" - CreateRotatedSideBySideFullStackedBarChartItem1.Description = "Verbinden die Vorteile der beiden 100 % gestapelte Balken und gruppierte Balken D" & + CreateRotatedFullStackedBarChartItem2.Caption = "100 % Gestapelt Bar" + CreateRotatedSideBySideFullStackedBarChartItem2.Caption = "Gruppierte 100 % gestapelt Bar" + CreateRotatedSideBySideFullStackedBarChartItem2.Description = "Verbinden die Vorteile der beiden 100 % gestapelte Balken und gruppierte Balken D" & "iagrammtypen, so können Sie verschiedene Bars Stapeln und sie in Gruppen über de" & "n gleichen Achsenwert kombinieren." - CreateRotatedSideBySideFullStackedBarChartItem1.Hint = "Verbinden die Vorteile der beiden 100 % gestapelte Balken und gruppierte Balken D" & + CreateRotatedSideBySideFullStackedBarChartItem2.Hint = "Verbinden die Vorteile der beiden 100 % gestapelte Balken und gruppierte Balken D" & "iagrammtypen, so können Sie verschiedene Bars Stapeln und sie in Gruppen über de" & "n gleichen Achsenwert kombinieren." - CreateRotatedSideBySideStackedBarChartItem1.Caption = "Gruppierte gestapelte Balken" - CreateRotatedSideBySideStackedBarChartItem1.Description = "Verbinden die Vorteile der beiden gestapelte Balken und gruppierte Balken Diagram" & + CreateRotatedSideBySideStackedBarChartItem2.Caption = "Gruppierte gestapelte Balken" + CreateRotatedSideBySideStackedBarChartItem2.Description = "Verbinden die Vorteile der beiden gestapelte Balken und gruppierte Balken Diagram" & "mtypen, so dass Sie können verschiedene Bars Stapeln und sie in Gruppen auf der " & "gleichen Achsenwert kombinieren." - CreateRotatedSideBySideStackedBarChartItem1.Hint = "Verbinden die Vorteile der beiden gestapelte Balken und gruppierte Balken Diagram" & + CreateRotatedSideBySideStackedBarChartItem2.Hint = "Verbinden die Vorteile der beiden gestapelte Balken und gruppierte Balken Diagram" & "mtypen, so dass Sie können verschiedene Bars Stapeln und sie in Gruppen auf der " & "gleichen Achsenwert kombinieren." - CreateRotatedStackedBarChartItem1.Caption = "Gestapelte Balken" - CreateRotatedStackedBarChartItem1.Description = "Die Verteilung der Einzelwerte auf insgesamt über Kategorien mithilfe von horizon" & + CreateRotatedStackedBarChartItem2.Caption = "Gestapelte Balken" + CreateRotatedStackedBarChartItem2.Description = "Die Verteilung der Einzelwerte auf insgesamt über Kategorien mithilfe von horizon" & "talen Rechtecke vergleichen." - CreateRotatedStackedBarChartItem1.Hint = "Die Verteilung der Einzelwerte auf insgesamt über Kategorien mithilfe von horizon" & + CreateRotatedStackedBarChartItem2.Hint = "Die Verteilung der Einzelwerte auf insgesamt über Kategorien mithilfe von horizon" & "talen Rechtecke vergleichen." - ChartControlCommandGalleryItemGroup2DBar1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRotatedBarChartItem1, CreateRotatedFullStackedBarChartItem1, CreateRotatedSideBySideFullStackedBarChartItem1, CreateRotatedSideBySideStackedBarChartItem1, CreateRotatedStackedBarChartItem1}) - Me.CommandBarGalleryDropDown4.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DBar1}) + ChartControlCommandGalleryItemGroup2DBar2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRotatedBarChartItem2, CreateRotatedFullStackedBarChartItem2, CreateRotatedSideBySideFullStackedBarChartItem2, CreateRotatedSideBySideStackedBarChartItem2, CreateRotatedStackedBarChartItem2}) + Me.CommandBarGalleryDropDown4.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DBar2}) Me.CommandBarGalleryDropDown4.Gallery.ImageSize = New System.Drawing.Size(32, 32) Me.CommandBarGalleryDropDown4.Gallery.RowCount = 2 Me.CommandBarGalleryDropDown4.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] @@ -658,85 +658,85 @@ Partial Class frmInvDashboard ' Me.CommandBarGalleryDropDown5.Gallery.AllowFilter = False Me.CommandBarGalleryDropDown5.Gallery.ColumnCount = 4 - ChartControlCommandGalleryItemGroup2DArea1.Caption = "2-D Bereich" - CreateAreaChartItem1.Caption = "Fläche" - CreateAreaChartItem1.Description = "Zeigen den Trend für Werte über einen Zeitraum oder Kategorien." - CreateAreaChartItem1.Hint = "Zeigen den Trend für Werte über einen Zeitraum oder Kategorien." - CreateFullStackedAreaChartItem1.Caption = "100 % Gestapeltes Flächendiagramm" - CreateFullStackedAreaChartItem1.Description = "Anzeige der Trend des Prozentsatzes trägt jeder Wert über einen Zeitraum oder Kat" & + ChartControlCommandGalleryItemGroup2DArea2.Caption = "2-D Bereich" + CreateAreaChartItem2.Caption = "Fläche" + CreateAreaChartItem2.Description = "Zeigen den Trend für Werte über einen Zeitraum oder Kategorien." + CreateAreaChartItem2.Hint = "Zeigen den Trend für Werte über einen Zeitraum oder Kategorien." + CreateFullStackedAreaChartItem2.Caption = "100 % Gestapeltes Flächendiagramm" + CreateFullStackedAreaChartItem2.Description = "Anzeige der Trend des Prozentsatzes trägt jeder Wert über einen Zeitraum oder Kat" & "egorien." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, um die Entwicklung des Anteils der einzelnen Reihe" & "n zu betonen." - CreateFullStackedAreaChartItem1.Hint = "Anzeige der Trend des Prozentsatzes trägt jeder Wert über einen Zeitraum oder Kat" & + CreateFullStackedAreaChartItem2.Hint = "Anzeige der Trend des Prozentsatzes trägt jeder Wert über einen Zeitraum oder Kat" & "egorien." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, um die Entwicklung des Anteils der einzelnen Reihe" & "n zu betonen." - CreateFullStackedSplineAreaChartItem1.Caption = "100 % Gestapelt Spline-Bereich" - CreateFullStackedSplineAreaChartItem1.Description = "Verhalten sich ähnlich wie 100 % Stacked Area, aber Handlung eine eingepassten Ku" & + CreateFullStackedSplineAreaChartItem2.Caption = "100 % Gestapelt Spline-Bereich" + CreateFullStackedSplineAreaChartItem2.Description = "Verhalten sich ähnlich wie 100 % Stacked Area, aber Handlung eine eingepassten Ku" & "rve durch jeden Datenpunkt in einer Reihe." - CreateFullStackedSplineAreaChartItem1.Hint = "Verhalten sich ähnlich wie 100 % Stacked Area, aber Handlung eine eingepassten Ku" & + CreateFullStackedSplineAreaChartItem2.Hint = "Verhalten sich ähnlich wie 100 % Stacked Area, aber Handlung eine eingepassten Ku" & "rve durch jeden Datenpunkt in einer Reihe." - CreateFullStackedStepAreaChartItem1.Caption = "100% Stacked Step Area" - CreateFullStackedStepAreaChartItem1.Description = "Behaves similarly to the 100% Stacked Area Chart but connects data points using h" & + CreateFullStackedStepAreaChartItem2.Caption = "100% Stacked Step Area" + CreateFullStackedStepAreaChartItem2.Description = "Behaves similarly to the 100% Stacked Area Chart but connects data points using h" & "orizontal and vertical lines." - CreateFullStackedStepAreaChartItem1.Hint = "Behaves similarly to the 100% Stacked Area Chart but connects data points using h" & + CreateFullStackedStepAreaChartItem2.Hint = "Behaves similarly to the 100% Stacked Area Chart but connects data points using h" & "orizontal and vertical lines." - CreateSplineAreaChartItem1.Caption = "Splinefläche" - CreateSplineAreaChartItem1.Description = "Verhalten sich ähnlich wie Flächendiagramm aber plot eine eingepassten Kurve durc" & + CreateSplineAreaChartItem2.Caption = "Splinefläche" + CreateSplineAreaChartItem2.Description = "Verhalten sich ähnlich wie Flächendiagramm aber plot eine eingepassten Kurve durc" & "h jeden Datenpunkt in einer Reihe." - CreateSplineAreaChartItem1.Hint = "Verhalten sich ähnlich wie Flächendiagramm aber plot eine eingepassten Kurve durc" & + CreateSplineAreaChartItem2.Hint = "Verhalten sich ähnlich wie Flächendiagramm aber plot eine eingepassten Kurve durc" & "h jeden Datenpunkt in einer Reihe." - CreateStackedAreaChartItem1.Caption = "Gestapelte Fläche" - CreateStackedAreaChartItem1.Description = "Anzeige der Tendenz des Beitrags der einzelnen Wert über einen Zeitraum oder Kate" & + CreateStackedAreaChartItem2.Caption = "Gestapelte Fläche" + CreateStackedAreaChartItem2.Description = "Anzeige der Tendenz des Beitrags der einzelnen Wert über einen Zeitraum oder Kate" & "gorien." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, um den Trend in der Summe über Serie für eine Kateg" & "orie zu betonen." - CreateStackedAreaChartItem1.Hint = "Anzeige der Tendenz des Beitrags der einzelnen Wert über einen Zeitraum oder Kate" & + CreateStackedAreaChartItem2.Hint = "Anzeige der Tendenz des Beitrags der einzelnen Wert über einen Zeitraum oder Kate" & "gorien." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Verwenden Sie es, um den Trend in der Summe über Serie für eine Kateg" & "orie zu betonen." - CreateStackedStepAreaChartItem1.Caption = "Stacked Step Area" - CreateStackedStepAreaChartItem1.Description = "Behaves similarly to the Stacked Area Chart but connects data points using horizo" & + CreateStackedStepAreaChartItem2.Caption = "Stacked Step Area" + CreateStackedStepAreaChartItem2.Description = "Behaves similarly to the Stacked Area Chart but connects data points using horizo" & "ntal and vertical lines." - CreateStackedStepAreaChartItem1.Hint = "Behaves similarly to the Stacked Area Chart but connects data points using horizo" & + CreateStackedStepAreaChartItem2.Hint = "Behaves similarly to the Stacked Area Chart but connects data points using horizo" & "ntal and vertical lines." - CreateStackedSplineAreaChartItem1.Caption = "Gestapelte Spline-Fläche" - CreateStackedSplineAreaChartItem1.Description = "Verhalten sich ähnlich wie gestapeltes Flächendiagramm aber plot eine eingepasste" & + CreateStackedSplineAreaChartItem2.Caption = "Gestapelte Spline-Fläche" + CreateStackedSplineAreaChartItem2.Description = "Verhalten sich ähnlich wie gestapeltes Flächendiagramm aber plot eine eingepasste" & "n Kurve durch jeden Datenpunkt in einer Reihe." - CreateStackedSplineAreaChartItem1.Hint = "Verhalten sich ähnlich wie gestapeltes Flächendiagramm aber plot eine eingepasste" & + CreateStackedSplineAreaChartItem2.Hint = "Verhalten sich ähnlich wie gestapeltes Flächendiagramm aber plot eine eingepasste" & "n Kurve durch jeden Datenpunkt in einer Reihe." - CreateStepAreaChartItem1.Caption = "Step Bereich" - CreateStepAreaChartItem1.Description = "Zeigen, wie sehr die Werte für verschiedene Punkte der gleichen Serie verändert h" & + CreateStepAreaChartItem2.Caption = "Step Bereich" + CreateStepAreaChartItem2.Description = "Zeigen, wie sehr die Werte für verschiedene Punkte der gleichen Serie verändert h" & "aben." - CreateStepAreaChartItem1.Hint = "Zeigen, wie sehr die Werte für verschiedene Punkte der gleichen Serie verändert h" & + CreateStepAreaChartItem2.Hint = "Zeigen, wie sehr die Werte für verschiedene Punkte der gleichen Serie verändert h" & "aben." - ChartControlCommandGalleryItemGroup2DArea1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateAreaChartItem1, CreateFullStackedAreaChartItem1, CreateFullStackedSplineAreaChartItem1, CreateFullStackedStepAreaChartItem1, CreateSplineAreaChartItem1, CreateStackedAreaChartItem1, CreateStackedStepAreaChartItem1, CreateStackedSplineAreaChartItem1, CreateStepAreaChartItem1}) - ChartControlCommandGalleryItemGroup3DArea1.Caption = "3-D Bereich" - CreateArea3DChartItem1.Caption = "3-D Bereich" - CreateFullStackedArea3DChartItem1.Caption = "100 % Gestapelt Bereich in 3-d" - CreateFullStackedSplineArea3DChartItem1.Caption = "100 % Gestapelt Spline Bereich in 3-d" - CreateFullStackedSplineArea3DChartItem1.Description = "Verhalten ähnlich wie 100 % gestapeltes Flächendiagramm in 3D, aber plot eine ein" & + ChartControlCommandGalleryItemGroup2DArea2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateAreaChartItem2, CreateFullStackedAreaChartItem2, CreateFullStackedSplineAreaChartItem2, CreateFullStackedStepAreaChartItem2, CreateSplineAreaChartItem2, CreateStackedAreaChartItem2, CreateStackedStepAreaChartItem2, CreateStackedSplineAreaChartItem2, CreateStepAreaChartItem2}) + ChartControlCommandGalleryItemGroup3DArea2.Caption = "3-D Bereich" + CreateArea3DChartItem2.Caption = "3-D Bereich" + CreateFullStackedArea3DChartItem2.Caption = "100 % Gestapelt Bereich in 3-d" + CreateFullStackedSplineArea3DChartItem2.Caption = "100 % Gestapelt Spline Bereich in 3-d" + CreateFullStackedSplineArea3DChartItem2.Description = "Verhalten ähnlich wie 100 % gestapeltes Flächendiagramm in 3D, aber plot eine ein" & "gepassten Kurve durch jeden Datenpunkt in einer Reihe." - CreateFullStackedSplineArea3DChartItem1.Hint = "Verhalten ähnlich wie 100 % gestapeltes Flächendiagramm in 3D, aber plot eine ein" & + CreateFullStackedSplineArea3DChartItem2.Hint = "Verhalten ähnlich wie 100 % gestapeltes Flächendiagramm in 3D, aber plot eine ein" & "gepassten Kurve durch jeden Datenpunkt in einer Reihe." - CreateSplineArea3DChartItem1.Caption = "Spline-Bereich in 3-d" - CreateSplineArea3DChartItem1.Description = "Verhalten sich ähnlich wie 3D Flächendiagramm, aber plot eine eingepassten Kurve " & + CreateSplineArea3DChartItem2.Caption = "Spline-Bereich in 3-d" + CreateSplineArea3DChartItem2.Description = "Verhalten sich ähnlich wie 3D Flächendiagramm, aber plot eine eingepassten Kurve " & "durch jeden Datenpunkt in einer Reihe." - CreateSplineArea3DChartItem1.Hint = "Verhalten sich ähnlich wie 3D Flächendiagramm, aber plot eine eingepassten Kurve " & + CreateSplineArea3DChartItem2.Hint = "Verhalten sich ähnlich wie 3D Flächendiagramm, aber plot eine eingepassten Kurve " & "durch jeden Datenpunkt in einer Reihe." - CreateStackedArea3DChartItem1.Caption = "Gestapelte Fläche in 3-d)" - CreateStackedArea3DChartItem1.Description = "Serie als Bereiche in einem Diagramm anzeigen, so dass der Wert der einzelnen Dat" & + CreateStackedArea3DChartItem2.Caption = "Gestapelte Fläche in 3-d)" + CreateStackedArea3DChartItem2.Description = "Serie als Bereiche in einem Diagramm anzeigen, so dass der Wert der einzelnen Dat" & "enpunkte mit der zugrunde liegenden Datenpunkte Werte aggregiert wird." - CreateStackedArea3DChartItem1.Hint = "Serie als Bereiche in einem Diagramm anzeigen, so dass der Wert der einzelnen Dat" & + CreateStackedArea3DChartItem2.Hint = "Serie als Bereiche in einem Diagramm anzeigen, so dass der Wert der einzelnen Dat" & "enpunkte mit der zugrunde liegenden Datenpunkte Werte aggregiert wird." - CreateStackedSplineArea3DChartItem1.Caption = "Gestapelte Spline-Fläche in 3-d)" - CreateStackedSplineArea3DChartItem1.Description = "Verhalten sich ähnlich wie gestapelt Bereich in 3D Diagramm, aber plot eine einge" & + CreateStackedSplineArea3DChartItem2.Caption = "Gestapelte Spline-Fläche in 3-d)" + CreateStackedSplineArea3DChartItem2.Description = "Verhalten sich ähnlich wie gestapelt Bereich in 3D Diagramm, aber plot eine einge" & "passten Kurve durch jeden Datenpunkt in einer Reihe." - CreateStackedSplineArea3DChartItem1.Hint = "Verhalten sich ähnlich wie gestapelt Bereich in 3D Diagramm, aber plot eine einge" & + CreateStackedSplineArea3DChartItem2.Hint = "Verhalten sich ähnlich wie gestapelt Bereich in 3D Diagramm, aber plot eine einge" & "passten Kurve durch jeden Datenpunkt in einer Reihe." - CreateStepArea3DChartItem1.Caption = "Schrittbereich in 3-d" - CreateStepArea3DChartItem1.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + CreateStepArea3DChartItem2.Caption = "Schrittbereich in 3-d" + CreateStepArea3DChartItem2.Description = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & "ndert haben." - CreateStepArea3DChartItem1.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & + CreateStepArea3DChartItem2.Hint = "Zeigt, inwieweit sich die Werte für verschiedene Punkte in der gleichen Serie geä" & "ndert haben." - ChartControlCommandGalleryItemGroup3DArea1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateArea3DChartItem1, CreateFullStackedArea3DChartItem1, CreateFullStackedSplineArea3DChartItem1, CreateSplineArea3DChartItem1, CreateStackedArea3DChartItem1, CreateStackedSplineArea3DChartItem1, CreateStepArea3DChartItem1}) - Me.CommandBarGalleryDropDown5.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DArea1, ChartControlCommandGalleryItemGroup3DArea1}) + ChartControlCommandGalleryItemGroup3DArea2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateArea3DChartItem2, CreateFullStackedArea3DChartItem2, CreateFullStackedSplineArea3DChartItem2, CreateSplineArea3DChartItem2, CreateStackedArea3DChartItem2, CreateStackedSplineArea3DChartItem2, CreateStepArea3DChartItem2}) + Me.CommandBarGalleryDropDown5.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroup2DArea2, ChartControlCommandGalleryItemGroup3DArea2}) Me.CommandBarGalleryDropDown5.Gallery.ImageSize = New System.Drawing.Size(32, 32) Me.CommandBarGalleryDropDown5.Gallery.RowCount = 5 Me.CommandBarGalleryDropDown5.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] @@ -758,90 +758,90 @@ Partial Class frmInvDashboard ' Me.CommandBarGalleryDropDown6.Gallery.AllowFilter = False Me.CommandBarGalleryDropDown6.Gallery.ColumnCount = 4 - ChartControlCommandGalleryItemGroupPoint1.Caption = "Punkt" - CreatePointChartItem1.Caption = "Punkt" - CreatePointChartItem1.Description = "Verwenden Sie es, wenn es notwendig ist eigenständige Datenpunkte auf dem gleiche" & + ChartControlCommandGalleryItemGroupPoint2.Caption = "Punkt" + CreatePointChartItem2.Caption = "Punkt" + CreatePointChartItem2.Description = "Verwenden Sie es, wenn es notwendig ist eigenständige Datenpunkte auf dem gleiche" & "n Diagramm zu zeigen." - CreatePointChartItem1.Hint = "Verwenden Sie es, wenn es notwendig ist eigenständige Datenpunkte auf dem gleiche" & + CreatePointChartItem2.Hint = "Verwenden Sie es, wenn es notwendig ist eigenständige Datenpunkte auf dem gleiche" & "n Diagramm zu zeigen." - CreateBubbleChartItem1.Caption = "Blase" - CreateBubbleChartItem1.Description = "Ein Punktdiagramm ähneln, aber vergleichen Sie Gruppen von drei Werten anstelle v" & + CreateBubbleChartItem2.Caption = "Blase" + CreateBubbleChartItem2.Description = "Ein Punktdiagramm ähneln, aber vergleichen Sie Gruppen von drei Werten anstelle v" & "on zwei. Der dritte Wert bestimmt die Größe des Blasengrundwerts." - CreateBubbleChartItem1.Hint = "Ein Punktdiagramm ähneln, aber vergleichen Sie Gruppen von drei Werten anstelle v" & + CreateBubbleChartItem2.Hint = "Ein Punktdiagramm ähneln, aber vergleichen Sie Gruppen von drei Werten anstelle v" & "on zwei. Der dritte Wert bestimmt die Größe des Blasengrundwerts." - ChartControlCommandGalleryItemGroupPoint1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePointChartItem1, CreateBubbleChartItem1}) - ChartControlCommandGalleryItemGroupFunnel1.Caption = "Trichter" - CreateFunnelChartItem1.Caption = "Trichter" - CreateFunnel3DChartItem1.Caption = "3-D-Trichter" - ChartControlCommandGalleryItemGroupFunnel1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateFunnelChartItem1, CreateFunnel3DChartItem1}) - ChartControlCommandGalleryItemGroupFinancial1.Caption = "Finanziell" - CreateStockChartItem1.Caption = "Kurs" - CreateCandleStickChartItem1.Caption = "Leuchter" - ChartControlCommandGalleryItemGroupFinancial1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateStockChartItem1, CreateCandleStickChartItem1}) - ChartControlCommandGalleryItemGroupRadar1.Caption = "Radar" - CreateRadarPointChartItem1.Caption = "Radar Punkte" - CreateRadarPointChartItem1.Description = "Zeigen Punkte aus zwei oder mehr unterschiedlichen Reihe auf die gleichen Punkte " & + ChartControlCommandGalleryItemGroupPoint2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePointChartItem2, CreateBubbleChartItem2}) + ChartControlCommandGalleryItemGroupFunnel2.Caption = "Trichter" + CreateFunnelChartItem2.Caption = "Trichter" + CreateFunnel3DChartItem2.Caption = "3-D-Trichter" + ChartControlCommandGalleryItemGroupFunnel2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateFunnelChartItem2, CreateFunnel3DChartItem2}) + ChartControlCommandGalleryItemGroupFinancial2.Caption = "Finanziell" + CreateStockChartItem2.Caption = "Kurs" + CreateCandleStickChartItem2.Caption = "Leuchter" + ChartControlCommandGalleryItemGroupFinancial2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateStockChartItem2, CreateCandleStickChartItem2}) + ChartControlCommandGalleryItemGroupRadar2.Caption = "Radar" + CreateRadarPointChartItem2.Caption = "Radar Punkte" + CreateRadarPointChartItem2.Description = "Zeigen Punkte aus zwei oder mehr unterschiedlichen Reihe auf die gleichen Punkte " & "Argumente auf einem kreisförmigen Raster, die mehrere Achsen hat die Daten gezei" & "chnet werden können." - CreateRadarPointChartItem1.Hint = "Zeigen Punkte aus zwei oder mehr unterschiedlichen Reihe auf die gleichen Punkte " & + CreateRadarPointChartItem2.Hint = "Zeigen Punkte aus zwei oder mehr unterschiedlichen Reihe auf die gleichen Punkte " & "Argumente auf einem kreisförmigen Raster, die mehrere Achsen hat die Daten gezei" & "chnet werden können." - CreateRadarLineChartItem1.Caption = "Radar Linie" - CreateRadarAreaChartItem1.Caption = "Radar Fläche" - CreateRadarAreaChartItem1.Description = "Anzeigen-Serie als gefüllte Fläche auf einem kreisförmigen Raster, die mehrere Ac" & + CreateRadarLineChartItem2.Caption = "Radar Linie" + CreateRadarAreaChartItem2.Caption = "Radar Fläche" + CreateRadarAreaChartItem2.Description = "Anzeigen-Serie als gefüllte Fläche auf einem kreisförmigen Raster, die mehrere Ac" & "hsen hat die Daten gezeichnet werden können." - CreateRadarAreaChartItem1.Hint = "Anzeigen-Serie als gefüllte Fläche auf einem kreisförmigen Raster, die mehrere Ac" & + CreateRadarAreaChartItem2.Hint = "Anzeigen-Serie als gefüllte Fläche auf einem kreisförmigen Raster, die mehrere Ac" & "hsen hat die Daten gezeichnet werden können." - CreateRadarRangeAreaChartItem1.Caption = "Radar Range Area" - CreateScatterRadarLineChartItem1.Caption = "Radar-Linie zu zerstreuen" - ChartControlCommandGalleryItemGroupRadar1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRadarPointChartItem1, CreateRadarLineChartItem1, CreateRadarAreaChartItem1, CreateRadarRangeAreaChartItem1, CreateScatterRadarLineChartItem1}) - ChartControlCommandGalleryItemGroupPolar1.Caption = "Polar" - CreatePolarPointChartItem1.Caption = "Polar Punkte" - CreatePolarPointChartItem1.Description = "Punkte aus zwei oder mehr unterschiedlichen Reihe auf das gleiche kreisförmige Di" & + CreateRadarRangeAreaChartItem2.Caption = "Radar Range Area" + CreateScatterRadarLineChartItem2.Caption = "Radar-Linie zu zerstreuen" + ChartControlCommandGalleryItemGroupRadar2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRadarPointChartItem2, CreateRadarLineChartItem2, CreateRadarAreaChartItem2, CreateRadarRangeAreaChartItem2, CreateScatterRadarLineChartItem2}) + ChartControlCommandGalleryItemGroupPolar2.Caption = "Polar" + CreatePolarPointChartItem2.Caption = "Polar Punkte" + CreatePolarPointChartItem2.Description = "Punkte aus zwei oder mehr unterschiedlichen Reihe auf das gleiche kreisförmige Di" & "agramm auf der Grundlage der Winkel anzeigen." - CreatePolarPointChartItem1.Hint = "Punkte aus zwei oder mehr unterschiedlichen Reihe auf das gleiche kreisförmige Di" & + CreatePolarPointChartItem2.Hint = "Punkte aus zwei oder mehr unterschiedlichen Reihe auf das gleiche kreisförmige Di" & "agramm auf der Grundlage der Winkel anzeigen." - CreatePolarLineChartItem1.Caption = "Polar Linie" - CreatePolarLineChartItem1.Description = "Zeigen Trends für mehrere Serien und ihre Werte zu vergleichen, denn die gleichen" & + CreatePolarLineChartItem2.Caption = "Polar Linie" + CreatePolarLineChartItem2.Description = "Zeigen Trends für mehrere Serien und ihre Werte zu vergleichen, denn die gleichen" & " Argumente in einem kreisförmigen Diagramm auf der Grundlage von Winkeln verweis" & "t." - CreatePolarLineChartItem1.Hint = "Zeigen Trends für mehrere Serien und ihre Werte zu vergleichen, denn die gleichen" & + CreatePolarLineChartItem2.Hint = "Zeigen Trends für mehrere Serien und ihre Werte zu vergleichen, denn die gleichen" & " Argumente in einem kreisförmigen Diagramm auf der Grundlage von Winkeln verweis" & "t." - CreatePolarAreaChartItem1.Caption = "Polar Fläche" - CreatePolarAreaChartItem1.Description = "Serie als gefüllte Fläche in einem kreisförmigen Diagramm auf der Grundlage der W" & + CreatePolarAreaChartItem2.Caption = "Polar Fläche" + CreatePolarAreaChartItem2.Description = "Serie als gefüllte Fläche in einem kreisförmigen Diagramm auf der Grundlage der W" & "inkel angezeigt." - CreatePolarAreaChartItem1.Hint = "Serie als gefüllte Fläche in einem kreisförmigen Diagramm auf der Grundlage der W" & + CreatePolarAreaChartItem2.Hint = "Serie als gefüllte Fläche in einem kreisförmigen Diagramm auf der Grundlage der W" & "inkel angezeigt." - CreatePolarRangeAreaChartItem1.Caption = "Polar Range Area" - CreateScatterPolarLineChartItem1.Caption = "Streue Polar Linie" - ChartControlCommandGalleryItemGroupPolar1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePolarPointChartItem1, CreatePolarLineChartItem1, CreatePolarAreaChartItem1, CreatePolarRangeAreaChartItem1, CreateScatterPolarLineChartItem1}) - ChartControlCommandGalleryItemGroupRange1.Caption = "Bereich" - CreateRangeBarChartItem1.Caption = "Bereich Spalte" - CreateRangeBarChartItem1.Description = "Display vertikale Spalten entlang der Y-Achse (die Achse der Werte). Jede Spalte " & + CreatePolarRangeAreaChartItem2.Caption = "Polar Range Area" + CreateScatterPolarLineChartItem2.Caption = "Streue Polar Linie" + ChartControlCommandGalleryItemGroupPolar2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreatePolarPointChartItem2, CreatePolarLineChartItem2, CreatePolarAreaChartItem2, CreatePolarRangeAreaChartItem2, CreateScatterPolarLineChartItem2}) + ChartControlCommandGalleryItemGroupRange2.Caption = "Bereich" + CreateRangeBarChartItem2.Caption = "Bereich Spalte" + CreateRangeBarChartItem2.Description = "Display vertikale Spalten entlang der Y-Achse (die Achse der Werte). Jede Spalte " & "stellt einen Bereich von Daten für jede Argumentwert." - CreateRangeBarChartItem1.Hint = "Display vertikale Spalten entlang der Y-Achse (die Achse der Werte). Jede Spalte " & + CreateRangeBarChartItem2.Hint = "Display vertikale Spalten entlang der Y-Achse (die Achse der Werte). Jede Spalte " & "stellt einen Bereich von Daten für jede Argumentwert." - CreateSideBySideRangeBarChartItem1.Caption = "Gruppierter Spaltenbereich" - CreateSideBySideRangeBarChartItem1.Description = "Aktivität anzeigen Spalten aus unterschiedlichen Reihe gruppiert nach ihrer Argum" & + CreateSideBySideRangeBarChartItem2.Caption = "Gruppierter Spaltenbereich" + CreateSideBySideRangeBarChartItem2.Description = "Aktivität anzeigen Spalten aus unterschiedlichen Reihe gruppiert nach ihrer Argum" & "ente. Jede Spalte stellt einen Bereich von Daten mit zwei Werte für Einzelwerte " & "Argument." - CreateSideBySideRangeBarChartItem1.Hint = "Aktivität anzeigen Spalten aus unterschiedlichen Reihe gruppiert nach ihrer Argum" & + CreateSideBySideRangeBarChartItem2.Hint = "Aktivität anzeigen Spalten aus unterschiedlichen Reihe gruppiert nach ihrer Argum" & "ente. Jede Spalte stellt einen Bereich von Daten mit zwei Werte für Einzelwerte " & "Argument." - CreateRangeAreaChartItem1.Caption = "Range Bereich" - CreateRangeArea3DChartItem1.Caption = "Bereich in 3D" - ChartControlCommandGalleryItemGroupRange1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRangeBarChartItem1, CreateSideBySideRangeBarChartItem1, CreateRangeAreaChartItem1, CreateRangeArea3DChartItem1}) - ChartControlCommandGalleryItemGroupGantt1.Caption = "Balkendiagramm" - CreateGanttChartItem1.Caption = "Balkendiagramm" - CreateGanttChartItem1.Description = "verfolgen verschiedene Aktivitäten während der zeitliche Rahmen." - CreateGanttChartItem1.Hint = "verfolgen verschiedene Aktivitäten während der zeitliche Rahmen." - CreateSideBySideGanttChartItem1.Caption = "Clustered Gantt" - ChartControlCommandGalleryItemGroupGantt1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateGanttChartItem1, CreateSideBySideGanttChartItem1}) - ChartControlCommandGalleryItemGroupBoxPlot1.Caption = "BoxPlot" - CreateBoxPlotChartItem1.Caption = "BoxPlot" - ChartControlCommandGalleryItemGroupBoxPlot1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBoxPlotChartItem1}) - Me.CommandBarGalleryDropDown6.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroupPoint1, ChartControlCommandGalleryItemGroupFunnel1, ChartControlCommandGalleryItemGroupFinancial1, ChartControlCommandGalleryItemGroupRadar1, ChartControlCommandGalleryItemGroupPolar1, ChartControlCommandGalleryItemGroupRange1, ChartControlCommandGalleryItemGroupGantt1, ChartControlCommandGalleryItemGroupBoxPlot1}) + CreateRangeAreaChartItem2.Caption = "Range Bereich" + CreateRangeArea3DChartItem2.Caption = "Bereich in 3D" + ChartControlCommandGalleryItemGroupRange2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateRangeBarChartItem2, CreateSideBySideRangeBarChartItem2, CreateRangeAreaChartItem2, CreateRangeArea3DChartItem2}) + ChartControlCommandGalleryItemGroupGantt2.Caption = "Balkendiagramm" + CreateGanttChartItem2.Caption = "Balkendiagramm" + CreateGanttChartItem2.Description = "verfolgen verschiedene Aktivitäten während der zeitliche Rahmen." + CreateGanttChartItem2.Hint = "verfolgen verschiedene Aktivitäten während der zeitliche Rahmen." + CreateSideBySideGanttChartItem2.Caption = "Clustered Gantt" + ChartControlCommandGalleryItemGroupGantt2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateGanttChartItem2, CreateSideBySideGanttChartItem2}) + ChartControlCommandGalleryItemGroupBoxPlot2.Caption = "BoxPlot" + CreateBoxPlotChartItem2.Caption = "BoxPlot" + ChartControlCommandGalleryItemGroupBoxPlot2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {CreateBoxPlotChartItem2}) + Me.CommandBarGalleryDropDown6.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {ChartControlCommandGalleryItemGroupPoint2, ChartControlCommandGalleryItemGroupFunnel2, ChartControlCommandGalleryItemGroupFinancial2, ChartControlCommandGalleryItemGroupRadar2, ChartControlCommandGalleryItemGroupPolar2, ChartControlCommandGalleryItemGroupRange2, ChartControlCommandGalleryItemGroupGantt2, ChartControlCommandGalleryItemGroupBoxPlot2}) Me.CommandBarGalleryDropDown6.Gallery.ImageSize = New System.Drawing.Size(32, 32) Me.CommandBarGalleryDropDown6.Gallery.RowCount = 9 Me.CommandBarGalleryDropDown6.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] @@ -884,12 +884,12 @@ Partial Class frmInvDashboard Me.CommandBarGalleryDropDown7.Gallery.ImageSize = New System.Drawing.Size(160, 10) Me.CommandBarGalleryDropDown7.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft Me.CommandBarGalleryDropDown7.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Right - SkinPaddingEdges1.Bottom = -3 - SkinPaddingEdges1.Top = -3 - Me.CommandBarGalleryDropDown7.Gallery.ItemImagePadding = SkinPaddingEdges1 - SkinPaddingEdges2.Bottom = -3 - SkinPaddingEdges2.Top = -3 - Me.CommandBarGalleryDropDown7.Gallery.ItemTextPadding = SkinPaddingEdges2 + SkinPaddingEdges3.Bottom = -3 + SkinPaddingEdges3.Top = -3 + Me.CommandBarGalleryDropDown7.Gallery.ItemImagePadding = SkinPaddingEdges3 + SkinPaddingEdges4.Bottom = -3 + SkinPaddingEdges4.Top = -3 + Me.CommandBarGalleryDropDown7.Gallery.ItemTextPadding = SkinPaddingEdges4 Me.CommandBarGalleryDropDown7.Gallery.RowCount = 10 Me.CommandBarGalleryDropDown7.Gallery.ShowGroupCaption = False Me.CommandBarGalleryDropDown7.Gallery.ShowItemText = True @@ -1094,10 +1094,10 @@ Partial Class frmInvDashboard ' 'RibbonStatusBar1 ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 745) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 741) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1124, 21) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1193, 21) ' 'RibbonPage2 ' @@ -1145,7 +1145,7 @@ Partial Class frmInvDashboard Me.GridControl1.MainView = Me.TileView1 Me.GridControl1.MenuManager = Me.RibbonControl1 Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(1114, 119) + Me.GridControl1.Size = New System.Drawing.Size(1183, 119) Me.GridControl1.TabIndex = 5 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1}) ' @@ -1158,42 +1158,42 @@ Partial Class frmInvDashboard Me.TileView1.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(13) Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(144, 86) Me.TileView1.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) - Me.TileView1.TileColumns.Add(TableColumnDefinition1) - Me.TileView1.TileRows.Add(TableRowDefinition1) - Me.TileView1.TileRows.Add(TableRowDefinition2) - Me.TileView1.TileRows.Add(TableRowDefinition3) - TileViewItemElement1.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left - TileViewItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - TileViewItemElement1.Appearance.Normal.Options.UseFont = True - TileViewItemElement1.Column = Me.colTitle - TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement1.RowIndex = 2 - TileViewItemElement1.Text = "colTitle" - TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - TileViewItemElement2.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - TileViewItemElement2.Appearance.Normal.ForeColor = System.Drawing.Color.DimGray - TileViewItemElement2.Appearance.Normal.Options.UseFont = True - TileViewItemElement2.Appearance.Normal.Options.UseForeColor = True - TileViewItemElement2.Column = Me.colAnzahl - TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement2.Text = "colAnzahl" - TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight - TileViewItemElement3.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left - TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - TileViewItemElement3.Appearance.Normal.ForeColor = System.Drawing.Color.SteelBlue - TileViewItemElement3.Appearance.Normal.Options.UseFont = True - TileViewItemElement3.Appearance.Normal.Options.UseForeColor = True - TileViewItemElement3.Column = Me.colNettoSumme - TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter - TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside - TileViewItemElement3.RowIndex = 1 - TileViewItemElement3.Text = "colNettoSumme" - TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft - Me.TileView1.TileTemplate.Add(TileViewItemElement1) - Me.TileView1.TileTemplate.Add(TileViewItemElement2) - Me.TileView1.TileTemplate.Add(TileViewItemElement3) + Me.TileView1.TileColumns.Add(TableColumnDefinition2) + Me.TileView1.TileRows.Add(TableRowDefinition4) + Me.TileView1.TileRows.Add(TableRowDefinition5) + Me.TileView1.TileRows.Add(TableRowDefinition6) + TileViewItemElement4.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left + TileViewItemElement4.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement4.Appearance.Normal.Options.UseFont = True + TileViewItemElement4.Column = Me.colTitle + TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement4.RowIndex = 2 + TileViewItemElement4.Text = "colTitle" + TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + TileViewItemElement5.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement5.Appearance.Normal.ForeColor = System.Drawing.Color.DimGray + TileViewItemElement5.Appearance.Normal.Options.UseFont = True + TileViewItemElement5.Appearance.Normal.Options.UseForeColor = True + TileViewItemElement5.Column = Me.colAnzahl + TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement5.Text = "colAnzahl" + TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight + TileViewItemElement6.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left + TileViewItemElement6.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement6.Appearance.Normal.ForeColor = System.Drawing.Color.SteelBlue + TileViewItemElement6.Appearance.Normal.Options.UseFont = True + TileViewItemElement6.Appearance.Normal.Options.UseForeColor = True + TileViewItemElement6.Column = Me.colNettoSumme + TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement6.RowIndex = 1 + TileViewItemElement6.Text = "colNettoSumme" + TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + Me.TileView1.TileTemplate.Add(TileViewItemElement4) + Me.TileView1.TileTemplate.Add(TileViewItemElement5) + Me.TileView1.TileTemplate.Add(TileViewItemElement6) ' 'Label1 ' @@ -1218,7 +1218,7 @@ Partial Class frmInvDashboard Me.GridControl2.MainView = Me.GridView1 Me.GridControl2.MenuManager = Me.RibbonControl1 Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(1105, 152) + Me.GridControl2.Size = New System.Drawing.Size(1174, 163) Me.GridControl2.TabIndex = 9 Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' @@ -1240,6 +1240,7 @@ Partial Class frmInvDashboard ' Me.colKRED_NAME.Caption = "Kreditor" Me.colKRED_NAME.FieldName = "KRED_NAME" + Me.colKRED_NAME.ImageOptions.Image = CType(resources.GetObject("colKRED_NAME.ImageOptions.Image"), System.Drawing.Image) Me.colKRED_NAME.Name = "colKRED_NAME" Me.colKRED_NAME.OptionsColumn.AllowEdit = False Me.colKRED_NAME.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] @@ -1251,6 +1252,7 @@ Partial Class frmInvDashboard ' Me.colANZ_BELEG.Caption = "Anzahl" Me.colANZ_BELEG.FieldName = "ANZ_BELEG" + Me.colANZ_BELEG.ImageOptions.Image = CType(resources.GetObject("colANZ_BELEG.ImageOptions.Image"), System.Drawing.Image) Me.colANZ_BELEG.Name = "colANZ_BELEG" Me.colANZ_BELEG.OptionsColumn.AllowEdit = False Me.colANZ_BELEG.Visible = True @@ -1263,6 +1265,7 @@ Partial Class frmInvDashboard Me.colNetto.DisplayFormat.FormatString = "c2" Me.colNetto.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric Me.colNetto.FieldName = "Netto" + Me.colNetto.ImageOptions.Image = CType(resources.GetObject("colNetto.ImageOptions.Image"), System.Drawing.Image) Me.colNetto.Name = "colNetto" Me.colNetto.OptionsColumn.AllowEdit = False Me.colNetto.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] @@ -1276,6 +1279,7 @@ Partial Class frmInvDashboard Me.colSkonto.DisplayFormat.FormatString = "c2" Me.colSkonto.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric Me.colSkonto.FieldName = "Skonto" + Me.colSkonto.ImageOptions.Image = CType(resources.GetObject("colSkonto.ImageOptions.Image"), System.Drawing.Image) Me.colSkonto.Name = "colSkonto" Me.colSkonto.OptionsColumn.AllowEdit = False Me.colSkonto.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] @@ -1297,8 +1301,8 @@ Partial Class frmInvDashboard 'SplitContainerDashboard.Panel2 ' Me.SplitContainerDashboard.Panel2.Controls.Add(Me.SplitContainerBottom) - Me.SplitContainerDashboard.Size = New System.Drawing.Size(1124, 291) - Me.SplitContainerDashboard.SplitterDistance = 158 + Me.SplitContainerDashboard.Size = New System.Drawing.Size(1193, 276) + Me.SplitContainerDashboard.SplitterDistance = 149 Me.SplitContainerDashboard.TabIndex = 12 ' 'SplitContainerTop @@ -1314,8 +1318,8 @@ Partial Class frmInvDashboard 'SplitContainerTop.Panel2 ' Me.SplitContainerTop.Panel2.Controls.Add(Me.ChartTopRight) - Me.SplitContainerTop.Size = New System.Drawing.Size(1124, 158) - Me.SplitContainerTop.SplitterDistance = 359 + Me.SplitContainerTop.Size = New System.Drawing.Size(1193, 149) + Me.SplitContainerTop.SplitterDistance = 381 Me.SplitContainerTop.TabIndex = 0 ' 'ChartTopLeft @@ -1326,7 +1330,7 @@ Partial Class frmInvDashboard Me.ChartTopLeft.Location = New System.Drawing.Point(0, 0) Me.ChartTopLeft.Name = "ChartTopLeft" Me.ChartTopLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} - Me.ChartTopLeft.Size = New System.Drawing.Size(359, 158) + Me.ChartTopLeft.Size = New System.Drawing.Size(381, 149) Me.ChartTopLeft.TabIndex = 2 ' 'VWPM_CHART_TOP5TableAdapter @@ -1341,7 +1345,7 @@ Partial Class frmInvDashboard Me.ChartTopRight.Location = New System.Drawing.Point(0, 0) Me.ChartTopRight.Name = "ChartTopRight" Me.ChartTopRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} - Me.ChartTopRight.Size = New System.Drawing.Size(761, 158) + Me.ChartTopRight.Size = New System.Drawing.Size(808, 149) Me.ChartTopRight.TabIndex = 1 ' 'SplitContainerBottom @@ -1357,8 +1361,8 @@ Partial Class frmInvDashboard 'SplitContainerBottom.Panel2 ' Me.SplitContainerBottom.Panel2.Controls.Add(Me.ChartBottomRight) - Me.SplitContainerBottom.Size = New System.Drawing.Size(1124, 129) - Me.SplitContainerBottom.SplitterDistance = 359 + Me.SplitContainerBottom.Size = New System.Drawing.Size(1193, 123) + Me.SplitContainerBottom.SplitterDistance = 381 Me.SplitContainerBottom.TabIndex = 0 ' 'ChartBottomLeft @@ -1369,7 +1373,7 @@ Partial Class frmInvDashboard Me.ChartBottomLeft.Location = New System.Drawing.Point(0, 0) Me.ChartBottomLeft.Name = "ChartBottomLeft" Me.ChartBottomLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} - Me.ChartBottomLeft.Size = New System.Drawing.Size(359, 129) + Me.ChartBottomLeft.Size = New System.Drawing.Size(381, 123) Me.ChartBottomLeft.TabIndex = 1 ' 'ChartBottomRight @@ -1380,7 +1384,7 @@ Partial Class frmInvDashboard Me.ChartBottomRight.Location = New System.Drawing.Point(0, 0) Me.ChartBottomRight.Name = "ChartBottomRight" Me.ChartBottomRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {} - Me.ChartBottomRight.Size = New System.Drawing.Size(761, 129) + Me.ChartBottomRight.Size = New System.Drawing.Size(808, 123) Me.ChartBottomRight.TabIndex = 1 ' 'CreateChartOtherRibbonPage1 @@ -1434,8 +1438,8 @@ Partial Class frmInvDashboard Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerDashboard) Me.SplitContainerControl1.Panel2.Text = "Panel2" - Me.SplitContainerControl1.Size = New System.Drawing.Size(1124, 599) - Me.SplitContainerControl1.SplitterPosition = 296 + Me.SplitContainerControl1.Size = New System.Drawing.Size(1193, 595) + Me.SplitContainerControl1.SplitterPosition = 307 Me.SplitContainerControl1.TabIndex = 15 ' 'Panel2 @@ -1445,14 +1449,14 @@ Partial Class frmInvDashboard Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(1124, 135) + Me.Panel2.Size = New System.Drawing.Size(1193, 135) Me.Panel2.TabIndex = 12 ' 'frmInvDashboard ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1124, 766) + Me.ClientSize = New System.Drawing.Size(1193, 762) Me.Controls.Add(Me.SplitContainerControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.resx b/app/DD_PM_WINDREAM/frmInvDashboard.resx index e871d52..ea2fe8c 100644 --- a/app/DD_PM_WINDREAM/frmInvDashboard.resx +++ b/app/DD_PM_WINDREAM/frmInvDashboard.resx @@ -194,61 +194,61 @@ - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAddEVYdFRpdGxlAEV4cG9ydDtYbHM7RXhwb3J0VG9YbHM7TKCZ/gAAAmZJREFUOE9lk1lrE2EU - hrM3bYNa/0ZN05r+EkVoVBAEBSVaixexTZqkqV3SqkWs0A1v9KYpgYISrLjEVmjSe2+9FLFmmSUzk5kk - r+f7ZhqmOvAkM4H3Od85Z+Kgy0m4CDfhsfDa8P0D+80JwMFglyu7WSoubx2BsbRVRnazjCViceOIKGFh - vYyFtUPMr5WQWS3uM4ld4MlulNGhJw59mHQ47RPaJpkX31jKbxd459YPeUjVWlCIhmoiKwZHUloQCb3V - Rmpln6X67AIfszKBrJqBkxAPyi0IDQN1omm0EX/yhaX6TwlSK1/5cSVFh9TQqZrRDTFqso4qoTXb+HDw - 4z9BzxRZWZ8CBSdyVzA634PROYYP4cc+XJxleDEy48Vwmkh5EEq6EUq480zgjy1+5IKabPBwUzcQJoGq - 6QhTuKHq3fDzvSTqooaaqCKYcPEj9E7M7qFFE65KOgl80GiQrLJCMxnJ+Hhbw2kPr1yXNAxNuzFE4eCU - JYimClxwXG/yyi8/z/Dw6qc0VfZAbDS7x155n0RVUBCMu0ng5IK+O4m3MFod/K5rtspeyCxIlUVZM3u2 - Kj8tTOO4quDCpCnovz25C4NW9Kuq8YEptA3Ws0SCEFUWrJ6fUbBSU3l4+V0cg49MQeBmbBc6CX5WVETf - XLYGZvbMKnd7jruoKsNJYQcGYw6+hcCNh3n+koi0c4EGVqed892LOiqCjj+CRvPReIv5wndWdcD+Hvgj - d18Xrz/YwdXxHbDva+M5RO7n6HkbkXt0HzUZi27j0q1XB5Q59SKxv3IvcYY4S5yzGLBx3oLdBwi3KYDj - Ly5VZm4tDLTfAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAB10RVh0VGl0 + bGUARXhwb3J0O1hscztFeHBvcnRUb1hscztMoJn+AAACZklEQVQ4T2WTWWsTYRSGszdtg1r/Rk3Tmv4S + RWhUEAQFJVqLF7FNmqSpXdKqRazQDW/0pimBghKsuMRWaNJ7b70UsWaZJTOTmSSv5/tmGqY68CQzgfc5 + 3zln4qDLSbgIN+Gx8Nrw/QP7zQnAwWCXK7tZKi5vHYGxtFVGdrOMJWJx44goYWG9jIW1Q8yvlZBZLe4z + iV3gyW6U0aEnDn2YdDjtE9ommRffWMpvF3jn1g95SNVaUIiGaiIrBkdSWhAJvdVGamWfpfrsAh+zMoGs + moGTEA/KLQgNA3WiabQRf/KFpfpPCVIrX/lxJUWH1NCpmtENMWqyjiqhNdv4cPDjP0HPFFlZnwIFJ3JX + MDrfg9E5hg/hxz5cnGV4MTLjxXCaSHkQSroRSrjzTOCPLX7kgpps8HBTNxAmgarpCFO4oerd8PO9JOqi + hpqoIphw8SP0TszuoUUTrko6CXzQaJCsskIzGcn4eFvDaQ+vXJc0DE27MUTh4JQliKYKXHBcb/LKLz/P + 8PDqpzRV9kBsNLvHXnmfRFVQEIy7SeDkgr47ibcwWh38rmu2yl7ILEiVRVkze7YqPy1M47iq4MKkKei/ + PbkLg1b0q6rxgSm0DdazRIIQVRasnp9RsFJTeXj5XRyDj0xB4GZsFzoJflZURN9ctgZm9swqd3uOu6gq + w0lhBwZjDr6FwI2Hef6SiLRzgQZWp53z3Ys6KoKOP4JG89F4i/nCd1Z1wP4e+CN3XxevP9jB1fEdsO9r + 4zlE7ufoeRuRe3QfNRmLbuPSrVcHlDn1IrG/ci9xhjhLnLMYsHHegt0HCLcpgOMvLlVmbi0MtN8AAAAA + SUVORK5CYII= - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAddEVYdFRpdGxlAEV4cG9ydDtYbHM7RXhwb3J0VG9YbHM7TKCZ/gAACF1JREFUWEfFl3lUlNcZ - xtkhpkpImvTYnLan6R89CXFBUMAVRFnEEERFBFSWgSiNBBAGBtkRXFAEURNaIw1q0lajVqNpGzHVauwx - CRqOVVlcQNZZ2JkZGODp+96ZIRgG0//6nfOcO3xz5nt+73a/ixkAs5ycnDHRZW6QhUGWz5CVCfF98/HP - nEzsbQrAovSP1y+XVn6FAx99hVJWxXUcqNCvJST9eg0lR69h/4fXUExr8Yf/EsrZdzHPAMLwzwSZAMA/ - IFmy6Y9dg4M69KsH0d2jRoeyF4+fdOLrmmZUXa9H2s4z+fQca5KAuFvXPiFQFt8zBWBV8tF19oBuZBQ6 - 3QitIxjSjQoN0t8stUaHvoFBdPZo0KboQ0OjCkV/uILRUeDcpbtIyDm5g55lQxIQ432M4numASilfA2R - EctoOjhEAEMj0Bqk1gyit38QCtUAHjQqsOPQJQHQp9bhzD/uYLPseAE9z5Zksi8mA7C+Ud0oANhwiIz0 - 5npTsQ6OQEMl0BrKoOxWo75Ricy9FwWAmr5niFMXvkNU4tFCeqYdaQLEGMDcnbZVLoV2cCmwhfMOW8zJ - txFyyiPlWGN2jhVmZVljZpYlZmZYYUaGJSKPLCUjHdRaHVTUB/WPFEguOCsAuFQaATGMP52rRljc+yYh - xgBcCm2x6oQDAo/ZY2WlPfwrpsH36DR4H/kJlv1+CrzKp8DzfTt4HLLD4jJbLCq1wZvpFsK8XzuErl4N - 6h4psTXrJD0OAmJ4hECGGWQYH5+5iWBJKUOInpgA4EyRBxxzoPTqsPDQc9DQQ+eX2WFAMwT3Ulu477fF - wSvZ6O7VCjOXIku8KbNAP33fT83YRfcftXYho+g8YlNPQJJyHJLk44jexjpGpbhF5fmc3MymcBZMAnDk - Wu0wFhy0Ex0+/4AddTkB7LeBa7ENuvu0cNlrLcxd9ljCUWYuAHppEnpIHZ0DaGjqxO37rbhZ04gb1Y9x - 9eZDXL5Rj6v/bjACTDUJwPXmtJffyBPmH1zLFZHzw9l83j5rlH2ZTSOnhjOZO++ygGOaOXrVQ1RnmgRa - OQuKLtoTaCJa5X1oaunGAwKqfaigCVEiffcFBphGspoIQM3mRzU3Rt5Pxm4lBNCvhSuZz9tLUVPkJVWZ - UHSqMafQAm+k6gF6WDSKnCFeu2jtZBiajHZVP1o6emmj6kPa7vMMYG8SwCnXGr7UcGp6GEfOG4wbRd5j - qHnp5SyoujTCvPiLDDgxgNQc3WTY00fmAkCvLqPot3KCaKOMcOakBQLgBZMAswnAm7qdzd1KbODGdReR - f19z590WIvI5BRZwKjDXAzxlOAgVrSpee7RQGtRBZeFMJuefZQAHkwCzcqw+n5XNs26FmZkkmvMZ26nT - adS42x1ZVHNHSjun/g2pGSLLvcciZXNeVSSjsZK2aEW3Xn2U2W35pxngRZMAxht08UYx9Uvq3FEaZlFb - Y5pFpGxmMDR8Fo1HE8D1ZrUZ1KroFWqR99LvNfjsUg0DTCc9T+K3pXg/mAKYxiPDAMbaGiPlCI3iKOVk - XHj4FCSpZQiVZCMttxwp2YeRlF6GrWnF2JJUBEl8ITZtyUOYJBMr1sQjKCIDAeGpV8nH2hQAk9nLaGRG - GICMx5sKjaVYixaKMFpaivx9lVgXmQF514DIhj4jA6IBW5UsygjJO3AL0vLK8VaYlLPx3GQAL6Tt+gwj - 9CrmhlJytKwxY31d5fS5uaMHEUn7kLunAms2yoTxnYdK1DQo8F2DHLfr5fjtjOV4faYPvq3tgNdKCUJj - srFiXRIDPD8ZgIO08K96ADYkcwWtCjY2mnfziGnQ1NaJ8PjdyNx5BIGhKSJqNr9N5rfq5KiulcPRyQ/u - HhvQrOjHEt8IhERnwnt1PANMnQzgxZQdZwSA3pg3FRYb69XBon3hUYsC6+MKIMuntAYniDTfqlMIc474 - G9Js11VY7BeDJ7Q7Lly+AcGR2+H1dhwD2JsC4GPUS0m5p+ltNvoDQ+p2Mm0niVWlplOQHMGxuUjJOQzf - oN8JgOq6Dnx7n8xJX5Nu3mtHE2/NHX1w9wwVpfLwj2UAh8kAfpqQ/ekYAJsZxeZszGol1T5ux+qoLCRm - HMSygHew1D8GniuiscQnEot9NmHhsnDM9woj4/Vw8wiB65J1CApPxSKfaAZ46SkAusRpiPTye5mnBIA+ - UjInGU2FlGq0kO49aEPgxnTEp5UgbHMeQt/Jw/rYHIRQo62LzkIw1XttRDpWb5IhaEMqAqn7A0OlWLBs - EwO8PCnAuxl/gY5OFGzOYsNW3lwM48TmzbTeqXuCldR8cSnFCKF94Mcuf+qTgJAUuHmGM8DP6NYEAD6x - vBIn0wMIY4PYtIU6mcUdzaqpbYRvcBJiEvZgDTUXX8a9QkUTo6IS6ptYQ+dGDbyp+fzXJmHe4lAGmG4K - QPTA5rRP6DhFp146cg3wsYte03rx+58OISw6rDQ8boZ3UDyi3y1EYLhUABhHVYhKKKfmZXETe/hJ4Lc6 - Ec4LghngVVMAYieMSjh6JVZ6AjEppGQ6YpGik4+JI1YUHbGikkiJlaj4pApLA+Joq80X6c08V4vtZ+8j - 9fQ9JJ+8h4Q/38XWj/+DuBN0RK+8g4VeG+Gz6j04ua9hgF88BWCA4H8i+BzPB4dXSPzy+LlBr5rQHI8V - sbS75Yr0Fl1tx65/tqGgqhW5X7Qg42/NkF14Aum5JmwjuS4JpSzE0t4QxAC/NAXAWWAIzgT3A8M8S9Nd - PUK+WbA8gsZPgsDcKryVdQl+sr/DW3oRnonnsWjrWbhv/hRzY07CZf5azF20Hq/P8qmm3z49BeNFF4P8 - LxI9Q/oV6dfj9No4/eYH4u85u9+/Df9/gtl/AYNwwZzn96zrAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB10RVh0VGl0 + bGUARXhwb3J0O1hscztFeHBvcnRUb1hscztMoJn+AAAIXUlEQVRYR8WXeVSU1xnG2SGmSkia9Nictqfp + Hz0JcUFQwBVEWcQQREUEVJaBKI0EEAYG2RFcUARRE1ojDWrSVqNWo2kbMdVq7DEJGo5VWVxA1lnYmRkY + 4On73pkhGAbT//qd85w7fHPme37vdr+LGQCznJycMdFlbpCFQZbPkJUJ8X3z8c+cTOxtCsCi9I/XL5dW + foUDH32FUlbFdRyo0K8lJP16DSVHr2H/h9dQTGvxh/8Sytl3Mc8AwvDPBJkAwD8gWbLpj12Dgzr0qwfR + 3aNGh7IXj5904uuaZlRdr0fazjP59BxrkoC4W9c+IVAW3zMFYFXy0XX2gG5kFDrdCK0jGNKNCg3S3yy1 + Roe+gUF09mjQpuhDQ6MKRX+4gtFR4Nylu0jIObmDnmVDEhDjfYzie6YBKKV8DZERy2g6OEQAQyPQGqTW + DKK3fxAK1QAeNCqw49AlAdCn1uHMP+5gs+x4AT3PlmSyLyYDsL5R3SgA2HCIjPTmelOxDo5AQyXQGsqg + 7FajvlGJzL0XBYCavmeIUxe+Q1Ti0UJ6ph1pAsQYwNydtlUuhXZwKbCF8w5bzMm3EXLKI+VYY3aOFWZl + WWNmliVmZlhhRoYlIo8sJSMd1FodVNQH9Y8USC44KwC4VBoBMYw/natGWNz7JiHGAFwKbbHqhAMCj9lj + ZaU9/CumwffoNHgf+QmW/X4KvMqnwPN9O3gcssPiMlssKrXBm+kWwrxfO4SuXg3qHimxNeskPQ4CYniE + QIYZZBgfn7mJYEkpQ4iemADgTJEHHHOg9Oqw8NBz0NBD55fZYUAzBPdSW7jvt8XBK9no7tUKM5ciS7wp + s0A/fd9PzdhF9x+1diGj6DxiU09AknIckuTjiN7GOkaluEXl+ZzczKZwFkwCcORa7TAWHLQTHT7/gB11 + OQHst4FrsQ26+7Rw2WstzF32WMJRZi4AemkSekgdnQNoaOrE7futuFnTiBvVj3H15kNcvlGPq/9uMAJM + NQnA9ea0l9/IE+YfXMsVkfPD2XzePmuUfZlNI6eGM5k777KAY5o5etVDVGeaBFo5C4ou2hNoIlrlfWhq + 6cYDAqp9qKAJUSJ99wUGmEaymghAzeZHNTdG3k/GbiUE0K+FK5nP20tRU+QlVZlQdKoxp9ACb6TqAXpY + NIqcIV67aO1kGJqMdlU/Wjp6aaPqQ9ru8wxgbxLAKdcavtRwanoYR84bjBtF3mOoeenlLKi6NMK8+IsM + ODGA1BzdZNjTR+YCQK8uo+i3coJoo4xw5qQFAuAFkwCzCcCbup3N3Ups4MZ1F5F/X3Pn3RYi8jkFFnAq + MNcDPGU4CBWtKl57tFAa1EFl4Uwm559lAAeTALNyrD6flc2zboWZmSSa8xnbqdNp1LjbHVlUc0dKO6f+ + DakZIsu9xyJlc15VJKOxkrZoRbdefZTZbfmnGeBFkwDGG3TxRjH1S+rcURpmUVtjmkWkbGYwNHwWjUcT + wPVmtRnUqugVapH30u81+OxSDQNMJz1P4releD+YApjGI8MAxtoaI+UIjeIo5WRcePgUJKllCJVkIy23 + HCnZh5GUXoatacXYklQESXwhNm3JQ5gkEyvWxCMoIgMB4alXycfaFACT2ctoZEYYgIzHmwqNpViLFoow + WlqK/H2VWBeZAXnXgMiGPiMDogFblSzKCMk7cAvS8srxVpiUs/HcZAAvpO36DCP0KuaGUnK0rDFjfV3l + 9Lm5owcRSfuQu6cCazbKhPGdh0rUNCjwXYMct+vl+O2M5Xh9pg++re2A10oJQmOysWJdEgM8PxmAg7Tw + r3oANiRzBa0KNjaad/OIadDU1onw+N3I3HkEgaEpImo2v03mt+rkqK6Vw9HJD+4eG9Cs6McS3wiERGfC + e3U8A0ydDODFlB1nBIDemDcVFhvr1cGifeFRiwLr4wogy6e0BieINN+qUwhzjvgb0mzXVVjsF4MntDsu + XL4BwZHb4fV2HAPYmwLgY9RLSbmn6W02+gND6nYybSeJVaWmU5AcwbG5SMk5DN+g3wmA6roOfHufzElf + k27ea0cTb80dfXD3DBWl8vCPZQCHyQB+mpD96RgAmxnF5mzMaiXVPm7H6qgsJGYcxLKAd7DUPwaeK6Kx + xCcSi302YeGycMz3CiPj9XDzCIHrknUICk/FIp9oBnjpKQC6xGmI9PJ7macEgD5SMicZTYWUarSQ7j1o + Q+DGdMSnlSBscx5C38nD+tgchFCjrYvOQjDVe21EOlZvkiFoQyoCqfsDQ6VYsGwTA7w8KcC7GX+Bjk4U + bM5iw1beXAzjxObNtN6pe4KV1HxxKcUIoX3gxy5/6pOAkBS4eYYzwM/o1gQAPrG8EifTAwhjg9i0hTqZ + xR3NqqlthG9wEmIS9mANNRdfxr1CRROjohLqm1hD50YNvKn5/NcmYd7iUAaYbgpA9MDmtE/oOEWnXjpy + DfCxi17TevH7nw4hLDqsNDxuhndQPKLfLURguFQAGEdViEoop+ZlcRN7+EngtzoRzguCGeBVUwBiJ4xK + OHolVnoCMSmkZDpikaKTj4kjVhQdsaKSSImVqPikCksD4mirzRfpzTxXi+1n7yP19D0kn7yHhD/fxdaP + /4O4E3REr7yDhV4b4bPqPTi5r2GAXzwFYIDgfyL4HM8Hh1dI/PL4uUGvmtAcjxWxtLvlivQWXW3Hrn+2 + oaCqFblftCDjb82QXXgC6bkmbCO5LgmlLMTS3hDEAL80BcBZYAjOBPcDwzxL0109Qr5ZsDyCxk+CwNwq + vJV1CX6yv8NbehGeieexaOtZuG/+FHNjTsJl/lrMXbQer8/yqabfPj0F40UXg/wvEj1D+hXp1+P02jj9 + 5gfi7zm7378N/3+C2X8Bg3DBnOf3rOsAAAAASUVORK5CYII= @@ -293,6 +293,156 @@ 1078, 17 + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAE1hbjtQZXJzb2478+0UpAAABotJ + REFUWEe9VllMlFcUruwMw8zgsC+zMAyzA8MmimKtCiIosskyDLggQrUudbfDotBIgyLLAJWiQm0b+tSk + TRPTpOlDk9r0ofGhxSbta5PGpC+mphFJTs85/MPg/48P0qZfcjLzn3PP/b577rn3/18DgBfMB5WtNaAh + 1iUVd6VlHRzvz+2cWXC0jS0Y9vX3x+cf0FDsJTkMMRfzSRwCXjLROrQga/Nwf/7xOSh6ex6KzsyD48AE + aEsv92MsmMYEyGOIuZhP4hAgnkSYiASE2Fw3FwpPfQKFKKDw9DzkH5sDXZlngWI0JkAeQ8zFfBKHAPEk + wkQsQLfLs1Bw8mMkRxFoeSggefPJRxSjMQHyGGIu5pM4BIgnESYiAcHrsw8O6Ct6IefINGS3T4Nm5yWI + cbQNYOz/ERCdUaVVWprfVdncj8joP/kwFkRjAuQxxFzMJ3EICDAJNyBaKFoEWpRgMrRwtIANKOQyxFzM + J3EIEE3AK4+1l6scbZNf5XbNQv7xjyDr0C0w7LnyZXyey4DxgOUX8hliLuaTOASsSmZytbUUt3niu2Xy + e2x5x+5BNorQV175Vq7flYzjSIRkG3wQczGfxCFgFXmI2lIaY2/1PiDyPIE4780PIZdtFvQVfUvBkWpl + 6razZ3F8GNoL2+GDmIv5JA4/lsvu2BNL5M7Ou0yqLfNAbhcRz4Gza9l05b2UqDLsHcATcfE8/qceWRHh + g5iL+SQOP0hAmLVl9L7z6B1ebcrWM6Aw1fVmHZoGZ+fssh2d9QlQW1vGwVR/HdK2n7uIz5Fo3BdoDDEX + 80kcftBeRtjd489ycZXm/TdAadrfjb71thYvEt+FHCTPwV/drh5KjM2ouoZ3wx3IrB+C1G1nLqGPRHAl + 0CRczCdx+EECZDa39zmVX1fe8xyfVWhKWmnOERTQgYaE2mUBamyU70111yHr8G3IrEURr78oQszFfBKH + H5QURavN6cAyL5MoyKzNY5CNxNnttyEbybRl3RRThcfakkmEsW4IHAdnIGPfICQWdXZhjBpzbQKsrjEU + sLJKJZm5aRSJZyALBWThr7aUBZC4yIg4RxKJSK+8Coa910DtPPwF+umiChJzMZ/E4QcLMDeO8Eq1pR4W + ECpPicvERiPirEMzvFLNzneWMEYCaKXhEfHZiXg9f6qytjxUZNbuRR/dnq9cAe6BtO2XFokocdOJRXzm + LYjNPfLY7p5C8g/A3jaNW9Dztzy1QI8x3/HzXde0/ySK5pJwMZ/E4QclhSstTTfxLAP94rNcnrYhSWWq + KFY72/+yuifBfmAaTI1jkPbGhW9CZOoYHEPklLva1nQK+CJCo/2jFw69eBSanZfvJ23scMm1JcXxG449 + sbdMga31FmTUDEFKyekRHCNH45L/q5tQSCQRtAKaMCq93HPK1DCKXz+9T9SOqpJoQ0VLytZzSzb3+2BF + 01cMQFJRx2Eai7bycvJBzMV8EoeAVepJQEScsz7XVD/81Oa+BebmceyJk78FR8SkYJMNaMv6wOqaAksz + fhuW9z6Ly2+rpBzK/S8qEIp7u95YPfjA4prAlU6BAW88ldU1jzE6ljH4/3Nj7XWwuCbB3OjFW/DiU/RT + w4asWQCCyKmMUfry7j4qvRX329wwDuqc9t8jYu06jHGnhyo0qYkbT/xhbvKCpWkC3wUekCUXmjDGFxAa + Q8zFfBKHH1T6yISCls3G2huLXGJcYVLx6aXo9N11GKPGpCYlkXKlpf6CsXYYT4QXj2UfqMw11egngWsS + QElh4SpNgmHf4M9UVkvzJL4ProLS3DCNMSovdzoa94gseVNhetV7YGrwgm73AFaplV5c1IwUZ4i5mE/i + 8Jc+WlfePWHaPwJmLKux7ibg1/CvIbL4JIzx1bqqT8KCwuQJmrK+p5koQL9nEOILO+fQT0KpSlwFMRfz + SRxC6ROL2iuMNcNL5sYJbqyEohOLUdrtZRjj0hO5zxAkOCa55OxPxtpRMFQP4Vad+oF8QuyVBJDiaH3l + wC8mbDgqadqObsDjNoh+7my01ZeMr2KKuILOzzJqhsFYOwLJW87/iT61EHtlAYqEoreeUFPRfqrs7h+D + wqLj0c+lRxMLoJwoFOnR7OgBY/UIxOZ10lFccwVkCmP1cZXV/VhpcT2UpW7JQ9/Kh4WPXCQiLCQqkd6C + X6NvUWGs8aCPmpBz0CRczCdxLA8m1bTXdNFQ2X1vOZ4oAMhPlaEK0Xj6clp5J6AxxFwA8No/K4uTvqJI + kmkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAApdEVYdFRpdGxlAE1hbmFnZVJ1bGVzO0NvbmRpdGlv + bjtSdWxlO09wdGlvbnM78rPoBgAACR9JREFUWEe1l3lUlNcZxsek1rgbPa1JNUnriR6N/afaVk3iEiUq + wSVBjTVuxcQdQZAqGhEUqxEBAQEdhBkRlUU2EVdkRxbRyqKALAKyM8AAwzAwRp++7/1mDCoxzR+95/zO + vfeb+93n+d67jsxLmSqj1MfAG/8njP2LBOA5nLjBb4jfEv168Nb/SP9fgNtw328SwsTLBvp6+CcneSrS + 4KmU8FKkCjyVUp66eyJSdk1E8s6PkGQ3EYk7PhIk2ExAgvV43LQaDw9uT3DuESCVRZ3K7n6JyaTDJvhj + XzHQz5Ma6bp/RCeje5VE2wnQ1Z1GJ1OrRGeNwkAAOqv9cXXj2F7fM3LMP4WVBhAchVcMvHUsIEU0VLfr + 0dreLaHphloj1W9sGQdtlR+6it3QVeQKXaGLRMERQczaMeJdNbV9gTa96Nf9VDIrDSR6NdCfG3BDSVwS + lTrhTvWIXfchNGXHoc07CG2uM7Q5BwzsR8c9J0T94wMSM7aXhKW8m/p9Ald5EisNIno1MMBVnihFgF5o + ER1JL7cYjESt/BPaitygyd4Lze3v0X57j0TWbrRn2iP0q/ek9wzv96SDDLicTGClwUSvBgYepQbpdytw + NvLOc4IMnIm4g7Cl7+PCkvcQZj4aoV+ORshiI6MQTBzbNQY7lROwUzEedgFjBTtOjYWt34ewkY/BEZ94 + VhpC9G7giG88tOT0ZfeC1m4ERtx+Xm4mOJd+7xL5dvk4lDTFoLQ5BsVN0UQUilTheKiKFBgiwAZ4ub+S + Bh32vomOzidoNooSza1dVGe6cfoCGWBxUSeEgS4x1u0dNERpR1BUE4+8mhDcKndBZP5Kyo8itzoE2WXn + kXDrIRt4m+i7w9FXZrvPR2br4C2zcTguDAw+6HUDHVqKAIsaYAFjWRmWJUSN9SZD3kYrpayiHq5+Pjh4 + 7AxOhSqQW3Ue1wvtce/xOciD/eF0VAH3kxFYsspyNmnxXtDn2bNnMsZ6j6dk4IDHNTKgN3QshblJbSx3 + ISAk01CXxAVqHa2WLoRGJyE9+z669XpEXU5FUKwc6SWncObSSUTEJqO7W4/02/nYZOcSRFq8K/Z5SuJP + nz6TWe5yFwaGXPpsGlKWL0TyMjMkLf0CiebzBfGL5yFukQliZk2F//lMIgMBwRmUp4vy5YT7kAdeRtKt + HGi7utFFJk4oo2Gz9zh8FVHQ63+kuaXHzeQ7+M7K2Y+0jHuBOBs22x2lTCYbygIav39DIz8EzcmDaDeg + 8ZW4OGMKVBQBpqVNR5HQUQS0NGQdiIxNQfSVVFrGeqiaNfTFT0BfCP2Tp7SZddIc0SH8UiLWbNorJy2e + B8azgSekOBuGRpOAxscZrQdtiO09sEarszWiprMBHU26LlRUqXDhUjKuJ2aLkDsdUaD8cR3NBx3qVW2C + OlUr6hpbUUtwvaFRDccf/J6s3rDX1WLL/kCLrQeU5iutJhtMyIZFffp3tHs4CrHWA8R+q+eoHa0Q8cnf + oGrppDHX4VxEHG6QeHDkTSIO9Y0ttIK6hVBNgxo19WpUC1oEVXUtqKxWoa6hGYEhV5CQcgfxxKoNewNJ + m6Mhezvi47+izW0P1AZBtdM2A5ZQ79uG8GmT0UgGGprasNv5JDo6OqHr0tMBpqfdUiuEWaiqrhmP65pQ + UduE8hqJokd1yC16jAelVWhspmg0tVPeik22h7VTZyx4VxgInzoJ4VOIqZNxgfKehHJOz08EpSElqxhH + vUNp3JMo5J2orG1GJQtVMypk5xbDbrcrlq/eAVt7V6TR6rhbUIG7DypwJ79cUEbtTigisWzNv7xJm+8L + suE7DkSK06+hWYeGFoJzotFQ9z6divrmTjH5VC3tIvRe8jCKigZlVQ0oe9yA0soG7HLwgOJMFB5VVMP/ + dAT2OHoK8ay8MmTmlqGU2u075IeFyzY7kO5Qoi8bGGHjFCEOnQYSqedQv2TEW5GCuib6TaUl2lFV04D1 + 2w9B3apBMW1EReV1KCqrxcZt+1FSVkmbUy0Kih5hg5WzMJb+nxI6a0pEtJZb2POu+Afi+fE8wtoxXJx8 + 9STGXyqMiLKElyIZ9U1asfQaaIYrzl2Cl1+YGIYCEs4vriGq4eoVhHNhV1BcWoGgkFi4HT+LChqe1Oxi + pGQX4f7DKjgelmPe4u8cSZeXJC9H2XArhzAyQGtcQPv881w6F0Ji7pF4p5g8x3zPI/xiAm0w3aigL8qh + CZZTVImcAuYRfAMiYO/kDTltSCXltSgsrUFiZiESMguQkFGAclrGPqfC8IX5ZuWw4SN5GGSDN+4KSrTc + G4qtBrhs+b2US/UQbHe8gOCodKy3PiSM1NAS4/DmFj6myVWBjHtlyMgpRWFZDQ0T7QO0LAtKapF0uwg3 + 0x+QgQfIzClB6t2HuF9ciaWr7bRjxv1lFBvgMPBlYQTx+5cY2QNeMh8s/HrraeW5WLj7BsPN5zzSuON7 + pSRQiPiMB4K49HzE3WLycD0tT9Svp96Dk4s/HUwh8FFGwWTht2epPz6ixU2VJwPPSDbzc/BVfeDUmYsm + mS3ddHjuom93z120ztViq1NHQnoehbkA10nwGgleTc3F1ZRcXCGupeYhNj4bq9Y7dM2Y+83xz0zXyOcs + WHd+0jTTqdSf2Ig4Gf84/BJslM3wDZfdj5xjttbliGcgsnJLcSU5FykU4gwqJ2YVIibxrojIHmdfTDdZ + wWcvh3y44V0Wf/OF69Hr4PTlClvO2AhHjSM2xGSBhatcGYmcwkoSLYC1vRtMl2wVeVxaPkUhBz94nsGn + Jis8qD2LcyT5Q6R/TL2J9QanhcutZW0dnVw0RmPgnAUWPv5BF2kSPsRB90BQmH3p+djpn6+Qu/mcQ3Tc + bbjQ8pz++Tcn6LnxXtinvqlNNtts3YsXxNfByWyppUzdrpW1tGm5yl/Qb9I0symz5q9RLvjaUjPLdG0M + PXuH4DX+zsx5q2NMzTd3fGKyIvDPk2Z/TM847G/UqlplzCxTi19nwNR8i2ye+WbZvK82cdUYBe506KgP + Jrw/4nejeeVwnYen/4BBw0a8O3rsH6nMhnjfF3eAmfP/KZshWPvrDPSSjPOBO2ZRzqWx/ek5T9qez19M + vYn1xmsSd/oynH7ueY8kk/0X3tpAnAvt7P4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0 + bGUAQ3VycmVuY3k7RG9sbGFyO0J1Y2s7RXVyb/jzRY8AAAoDSURBVFhHnZYHVFRXGsfHbEhi1iTrYS1Y + UBQbLmLAiIBYIARUylAGEAFXIoLgDEgXQboS2kAAmVCkSVGkKBqwUGewIHUsVLEBIlEREsWQPee/9z7B + 4NlJovs/53fu4/Le9//ud+/73rC68zhvQTSF8AHhb4QPCR8RPp4E/ZvO03umdOVwWF3Hx8l+DRWAd4Ix + HesrYf32REifo+bU+KMc/03yLWns4PZsU1Fnjll/dw4HHcfN+tuyTEWtqcZBJwK0FpD7pAhMImOPq1iv + HhSwOjP/zwSIaKAPLbUWfSE+Zhx3J99q9LEwDCMduRjtO4/fntZhtLccw205GKgNRVfOjpGriYZ25Bla + FZr0lFf38lntx8zI5fskkPum7FKJ+9UXkBU29l3ywau+CxgbqMCvD4sx2pOD0TtpGO0m9GTj1YNCvLxb + jIfl3hCnmJSmumnKkOeZStxOMaXxJJpJgoqaf2igLju9LdO0cbDuO/xKjEfvF2C0KwWPL4dBFGOMsx7q + OOW4CqXuahBGsTEgCiXJ5KK/KhRigbHI2UBhGonzwU2BCRNUkpkkqGjmnzQns/l9F33xqr+MBM7CL7fi + 0Zq5CyU8FZz31URloBZqQnVQQcbyA5oo3vclmlNt8aIjGfdK9qM+1jCCxKGHky5IopkkqKTiuWrLO7O3 + j73sOYWX3RnEPA71CeY466aKqiBtVBPoWBk4ToA2Kg5tJsmtwWOhP4Zb4tCaYPoiw3U9PZh0QRLNJEH1 + ybUEw8jeck+8vJONX27G4H6ZO2NeGbgZFQGb0CCwJlsRiV860jBQF4HrSVa46LcB7Se4GGkMw/PrQejK + s0NVsK47iUcPpEQzSVD9vSWJfe3pFXLim0Lxc/Nh1EYa4pLfRmKiiYak7aQiCRgh88MNga/vuRGHJ/UR + ZC4Cz6/64WmFI3pP20MUoldD4tFteC99Jk4yHnzeeATPhC5IZi9gSnveZz3Oe2vgNLk+Zr4YxzjjmC3C + 0GUfPL/ihyGRF55cdMDjs9vRX7oTNYe+7iHx6GvJvBHj/KU+b01gjw03BJOV2GO4PgClXCWUua1Dmcc6 + jLTG4mdxHH4m40grHyMtMXhWsx9PqlwwUGaL/hLzh71FpkV3T5pGlrpv8CbxphL+p2N6J69jef+gyvKk + CNayPJLWkunX+ryRbzD4THQAP5XbIlZnFgrslqHg2+UodlSEwGA+kgxlCQtw1ECWrHgPHp/bSYzNBu+e + YCdXpev5J6ZtPBeSotHtm6w2dCBVHd4pav1eAlWRa/yaIGsvhbc6Zs/Tk6yWviiWW+Ia6s1oWt1hvfq+ + Mh4Gy2wwVOeD2lBtnNy5BCdsl6DSXxPPat0xVOtGVu6G/kJjPCgwutWSvsWbn6JZGZixYex4lRNq2qIg + 7ktHz1AhxL3pqL4dicxLjjiQrDHiFPHlWx2zuS+S5RqvTL0ZTf3RVyu6LcOWJGCLgdNm6Mq2QL6NPPKt + 5ZFuIov8XcsgjtdCf4EhGvkbb8btWuoXlKJ+X3DOBjeIaceTDIgfxeD6w2Bcue/LUE+uW/pj0PQgEfEl + luDylUvZe+XfdExe7GrGnErqkMm/FGqDdcceldrhURHpciXmEIZsRq7VYuRsX4w0tiyiN8/CYXXpwcBN + M319YlUe5NVw0flTFpr6InH5njdEdz0g6vGAudcicAjCHncGUY8nGnvDkUm2zjlaSbRWbzbTMZ2iV712 + J6JlmVrE04hv4LPxqNAI/Sf1MVBqjSvhOsixXIRsczlkc+ToG3L0YNCqCrrytsEUsuIg1Pa44VL7PoRk + f4094Upw+34tg3/aJhzO0UVFBxdV3S64cu8QYgqMYX945Vsdk4r5FmjIS0uf5qrVN8dtQ1+eHnpz9Ugl + LHEn1xLnPVWRs2NJb7iVXID3D2r/abjHR/2DENTc4eFiuxN2Byvi2xBFOEcowzX2K7jEqmBX8ErsDFiB + I7mkfXc541KnEy7ecqdVeGHktPBNx2T96KpOB5qElIuW3KLCPV81C0n3u5uujYfZ2uglyfQXW6Dn1I4z + EUfXXxCcMycl90E1WVUlCRyWrQPnyNXgxagQlFF9K5wcwhTEnTLHPjLvc3QjLrQ7MBSJzRGerw2bQ0vf + dEzWmb2qdJhoGlJbFWbOSN+hyD9lrzwq9F+HGzEa6BRooCVeLdqbr3y3pGEvytr+jbO3rMiqHOCXogVu + 1GrsIzgTPOM1kCO0QlNvFDoGM9Dcx0fZ7W9R2MLB8eu6SK7Qx87Apb93zMLdKqyhqwH0ciIJmtnHTurz + 5VI4K4KzLFcKMywUOhLYy/y50UrDF27zUHKDg5PN+igWmyKukAPHCEU4fkcIV4St/1IY8WRh4bUY/GI9 + nLm5EyeaDJFd/w2yCBl1W2ETsIR2TNobprBO2iqxTtiuYuXbKLLyrBXJ3FuJ0JtoR/uUMN0patXYpc59 + KGg2JEG3Ib9pK0qbdjPGdsHLsDtMAfYEu9DlsD4oDz2H2TiYrozMazrIvPo1Mgjpl3VgfUh+eDw29flD + TSRCoeX63OG7lYNnxfbIa9xG2ILchi2kEkY4f8MDHgnrwPGeDzOK1zzCXJh6zoUBdy7Sr2jjGIMWBJUb + YXlQ7vcKSPpETmZctBrT7EJW1B8n+0sTyCH7SdG0kYaXgBy+bg+UNrgiIE2LMTaheMyBsfs8pNVtRmrd + JobIM+okSdmJM/DOCdBXZqqV75LoI/k6pPxGZE91kXXtG5CkoLNnJrySlZAu0kdpqwPMfWSJMTWfAxf+ + GqSINuEH4UbCBrgLVoHtOo++BUxHlGg6mXHRbZDaYCajsDtsxVjeNVOypzrMnoZk6TCr3bzrn1C1+AdU + OV/AyG0O2ARLXznkCm0hIMaCWk3EXVCDhe+CF1q2M2XHY/71L5dx0ZuZjsnxXBjvm6pGEvgGaZe1cbpl + F+KKTOBKVmrsLkOMZeBwRBGBx7RRJnYhh04XR6vXI7FaA3tjlsGQNydsPNZ7JUDFHMb5yz+VtvBZWB+Y + rYFUUtq0Oi0UtVqTRsMDe78MjAgX211wWmxHSq6FhCp1xBNck1bA0FWmZrnaZ/RbMMXQdTYTVKLpZCa0 + 3U+ODsxWrN0mvcjMS7bZNUEJ31doIImUN6l2Pfnw+EF45yASqtXHjdUQVb4W9hGLoc+b3ahuJk1daYwp + +rxZNN67J2BxYCEdmIcJUvIq02boc+fyLXxkR10TFRBSoIyYclXEV6ojsuwrBOSvhtP3S+lBfLFl76zI + ZeumMSunlN92Y23lziSXRJJMJzMhjrcsq6bLn15OJMF0TJUt0+W27p0dbMCbLdTnyXSQMmMbGfW5s6p0 + HWf4qplMn0fue/PTjJqX33JjbXGeQf4kkmQ6mQmZes1jmXjMYxm7zyXMoVOTE5nomPRXzwR0jv6PMd5K + DKnpxPjeCfyJJhL5I/5ELNZ/ARYVvuKnEwoEAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAEV1cm87RG9sbGFyO01vbmV5O0N1 + cnJlbmN5OwBqwi4AAAJUSURBVFhHrZY9bttAEIVVGul8g8BNCpdqXAaBL5AiV7A7ncGdfYEUPoEAt7lB + ECCNW1WBr5BKvfw+epcYrt8OGUUCPpLanT/t7jxqtV6ve1yKjdiKndgXeGaMOWyc7+pwOCzCOX8Ud+KP + OMyADbb4TOK4ZI6Jk/gsfgiXLAMffMdYLpmjTf5LuARLwHcswiVz1OQs4TG/vIUYw3a4ZI5aAPvoAh4D + sWwyB8k5ydmBexbfohPfw3wLsS6jfQbBaCcXCB6ck8bPG7uWjfNzEIyedkGeq5Ger8VLGf8rshWAbUyS + QXCExQW5wUD3i2a85be4F1/FJ/FBnLWJepAAdZsEbY0csvspbsWVOFoxubwroEAlzN+Escp38UX8t2Jy + ebcF8Zc6ZHMyxeTSO4RPISGHkMPHL+f5ZIrJJWvDtv8XKWaxtXOFUTExnBOiB3FRgi5SzAUFwKCYGC4J + TKtx2rNC2aKhdSMa48Ncaz8oZi1gbmnp82yrYOgah6aQc+ezqQVA9jpGZHqHFaJqPpZ7naONewVsYwHQ + ay8UrqeY8BIKuC53t+wtu5i8wna0AoO89gSr4vafd0Z9hzj2bfJI/FN6JuYKADpmchb0lTdnr4j9pOIM + GWdbMKHYP4nz8uzkHHY2mUPG6SEU43IXe8arfvQK2NpkDhlnbTh2gUPzrIbz21gHh4wzxRz+pBgfPo/C + +bwJUevUQ8ZweimOSTIwFqd/GcUkGRgXMsVcwvR17JI5qkOhp5hz4DMmB5vMEZ0KTjF7YIPtsOwRm8zR + OgaiYv7jn9L16hWdfBk/Ic3q5wAAAABJRU5ErkJggg== + + + + 17, 56 + 17, 56 diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.vb b/app/DD_PM_WINDREAM/frmInvDashboard.vb index 6320ebd..a57c860 100644 --- a/app/DD_PM_WINDREAM/frmInvDashboard.vb +++ b/app/DD_PM_WINDREAM/frmInvDashboard.vb @@ -1,3 +1,329 @@ -Public Class frmInvDashboard +Imports System.Drawing.Imaging +Imports System.IO +Imports DevExpress.XtraCharts +Imports DevExpress.XtraGrid.Views.Tile +Public Class frmInvDashboard + Private _selectedChart As ChartControl + Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING + Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES) + VWPM_CHART_TOP5TableAdapter.Connection.ConnectionString = CONNECTION_STRING + Me.VWPM_CHART_TOP5TableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_TOP5) + Layout_Dashboard() + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error laoding form - " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) + End Try + End Sub + Sub Layout_Dashboard() + Try + Dim groupCount As Integer + Dim charts As List(Of ChartControl) + Dim oGroups As DataRowCollection = BASEDATA_DT_CHARTS.Rows + groupCount = oGroups.Count + Configure_Split_Containers(groupCount) + charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight} + If groupCount >= 1 Then + SplitContainerDashboard.Visible = True + RibbonPageGroup1.Visible = True + RibbonPageGroup1.Enabled = False + SplitContainerControl1.Collapsed = True + Else + SplitContainerDashboard.Visible = False + RibbonPageGroup1.Visible = False + SplitContainerControl1.Collapsed = False + LOGGER.Debug($"ChartCreating...No chart-Configuration!! BASEDATA_DT_CHARTS = 0") + Exit Sub + End If + If groupCount > 1 Then + LOGGER.Debug($"ChartCreating...Found more than one charts [{groupCount}]") + For Each gRow As DataRow In oGroups + Dim oGroupIndex As Integer = oGroups.IndexOf(gRow) + Dim oGroupID As String = gRow.Item("GROUP_ID") + + Dim groupCharts = BASEDATA_DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", oGroupID)) + Dim chart As ChartControl + + For Each cRow As DataRow In groupCharts + + Dim oChartType = cRow.Item("TYPE_CHART") + LOGGER.Debug($"oChartType [{oChartType}]") + Dim oChartTitle = cRow.Item("TITLE") + LOGGER.Debug($"oChartTitle [{oChartTitle}]") + Dim guid = cRow.Item("GUID") + LOGGER.Debug($"guid [{guid}]") + Dim oChartValue = cRow.Item("VALUE") + Dim oChartArgument = cRow.Item("ARGUMENT") + Dim oSqlchart = cRow.Item("SQL_COMMAND") + oSqlchart = oSqlchart.Replace("@USER", USER_USERNAME) + Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart) + + Dim series As Series = Create_Series(oChartTitle, oChartType) + + ' Select Current Chart + chart = Select_Chart(oGroupIndex) + chart = charts.Item(oGroupIndex) + Try + chart.Series.Clear() + Catch ex As Exception + LOGGER.Error(ex) + + End Try + ' Set DataSource + chart.DataSource = DATA_DT + + ' Set shown Columns for Chart + series.ArgumentDataMember = oChartArgument + series.ValueDataMembers.AddRange(New String() {oChartValue}) + + 'set some options + chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True + + ' Show Data + chart.Series.Add(series) + + Next ' End Charts + Next 'End Groups + Else + ' Create Charts + For Each cRow As DataRow In BASEDATA_DT_CHARTS.Rows + + Dim chart As ChartControl + + Dim chartIndex As Integer = BASEDATA_DT_CHARTS.Rows.IndexOf(cRow) + + Dim oChartType = cRow.Item("TYPE_CHART") + Dim oChartTitle = cRow.Item("TITLE") + Dim guid = cRow.Item("GUID") + Dim oChartValue = cRow.Item("VALUE") + Dim oChartArgument = cRow.Item("ARGUMENT") + Dim oSqlchart = cRow.Item("SQL_COMMAND") + + oSqlchart = clsPatterns.ReplaceInternalValues(oSqlchart) + oSqlchart = clsPatterns.ReplaceUserValues(oSqlchart, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + + oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID) + oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME) + Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart) + + ' Create Series based on type + Dim series As Series = Create_Series(oChartTitle, oChartType) + + ' Select Current Chart + chart = Select_Chart(chartIndex) + Try + chart.Series.Clear() + Catch ex As Exception + LOGGER.Error(ex) + + End Try + ' Set DataSource + chart.DataSource = DATA_DT + + ' Set shown Columns for Chart + series.ArgumentDataMember = oChartArgument + series.ValueDataMembers.AddRange(New String() {oChartValue}) + + 'set some options + chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True + chart.OptionsPrint.SizeMode = Printing.PrintSizeMode.Stretch + + ' Show Data + chart.Series.Add(series) + + Next + End If + + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Layout Dashboard - Error: " & ex.Message) + MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) + End Try + End Sub + Private Sub Configure_Split_Containers(VisibleContainers As Integer) + Select Case VisibleContainers + Case 1 + ' Show only ChartTopLeft + SplitContainerTop.Panel2Collapsed = True + ' Collapse SplitContainerBottom + SplitContainerDashboard.Panel2Collapsed = True + Case 2 + ' Collapse SplitContainerBottom + SplitContainerDashboard.Panel2Collapsed = True + Case 3 + ' Collapse ChartBottomRight + SplitContainerBottom.Panel2Collapsed = True + ' Show SplitContainerBottom + SplitContainerDashboard.Panel2Collapsed = False + Case 4 + ' Show SplitContainerBottom + SplitContainerDashboard.Panel2Collapsed = False + End Select + SplitContainerDashboard.Dock = DockStyle.Fill + End Sub + Private Function Select_Chart(index As Integer) + Select Case index + Case 0 + Return ChartTopLeft + Case 1 + Return ChartTopRight + Case 2 + Return ChartBottomLeft + Case Else + Return ChartBottomRight + End Select + End Function + Private Function Create_Series(title As String, type As String) As Series + Dim series As Series + LOGGER.Debug($"In Create new series: type [{type}]") + Select Case type + Case "BAR" + LOGGER.Debug("Create new series: ViewType.Bar") + series = New Series(title, ViewType.Bar) + Case "LINE" + LOGGER.Debug("Create new series: ViewType.Line") + series = New Series(title, ViewType.Line) + Case "AREA" + LOGGER.Debug("Create new series: ViewType.Area") + series = New Series(title, ViewType.Area) + Case "PIE" + LOGGER.Debug("Create new series: ViewType.Pie") + series = New Series(title, ViewType.Pie) + series.Label.TextPattern = "{A}: {VP:p0}" + Dim view As PieSeriesView = DirectCast(series.View, PieSeriesView) + view.Titles.Add(New SeriesTitle()) + view.Titles(0).Text = title + Case Else + series = New Series(title, ViewType.Bar) + End Select + + Return series + End Function + Private Sub TileView1_ItemCustomize(sender As Object, e As DevExpress.XtraGrid.Views.Tile.TileViewItemCustomizeEventArgs) Handles TileView1.ItemCustomize + Dim oView As TileView = sender + Dim ovalue = oView.GetRowCellValue(e.RowHandle, "Title") + If ovalue = "Alle Rechnungen" Then + e.Item.AppearanceItem.Normal.BackColor = Color.Blue + 'e.Item.Elements(1).Text = "" + e.Item.Elements(0).Appearance.Normal.ForeColor = Color.White + e.Item.Elements(1).Appearance.Normal.ForeColor = Color.White + e.Item.Elements(2).Appearance.Normal.ForeColor = Color.White + 'Console.WriteLine("") + ElseIf ovalue = "Zeitkritisch" Then + e.Item.Elements(0).Appearance.Normal.ForeColor = Color.Red + e.Item.Elements(1).Appearance.Normal.ForeColor = Color.Red + e.Item.Elements(2).Appearance.Normal.ForeColor = Color.Red + End If + End Sub + + Private Sub ChartTopLeft_Click(sender As Object, e As EventArgs) Handles ChartTopLeft.Click, ChartTopRight.Click, ChartBottomLeft.Click, ChartBottomRight.Click + _selectedChart = sender + RibbonPageGroup1.Enabled = True + RibbonPageGroup2.Enabled = False + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + If Not IsNothing(_selectedChart) Then + SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportChart2Pdf(_selectedChart, SaveFileDialog1.FileName) + End If + Else + MsgBox("Please select a chart via clicking on it!", MsgBoxStyle.Information, ADDITIONAL_TITLE) + End If + End Sub + Sub ExportChart2Pdf(pMyChart As ChartControl, pFilePath As String) + Try + pMyChart.OptionsPrint.ImageFormat = DevExpress.XtraCharts.Printing.PrintImageFormat.Metafile + pMyChart.ExportToPdf(pFilePath, New DevExpress.XtraPrinting.PdfExportOptions With { + .ConvertImagesToJpeg = False + }) + ' Exports to a stream as PDF. + Dim pdfStream As FileStream = New FileStream(pFilePath, FileMode.Create) + pMyChart.ExportToPdf(pdfStream) + ' ... + pdfStream.Close() + Catch ex As Exception + LOGGER.Error(ex) + End Try + End Sub + Sub ExportCharttoimage(pMyChart As ChartControl, pFilePath As String) + Try + SaveChartImageToFile(pMyChart, ImageFormat.Png, pFilePath) + Dim image As Image = GetChartImage(pMyChart, ImageFormat.Png) + image.Save(pFilePath) + Catch ex As Exception + LOGGER.Error(ex) + End Try + + End Sub + Private Sub SaveChartImageToFile(ByVal chart As ChartControl, ByVal format As ImageFormat, ByVal fileName As String) + ' Create an image in the specified format from the chart + ' and save it to the specified path. + chart.ExportToImage(fileName, format) + End Sub + Private Function GetChartImage(ByVal chart As ChartControl, ByVal format As ImageFormat) As Image + ' Create an image. + Dim image As Image = Nothing + + ' Create an image of the chart. + Using s As New MemoryStream() + chart.ExportToImage(s, format) + image = System.Drawing.Image.FromStream(s) + End Using + + ' Return the image. + Return image + End Function + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + If Not IsNothing(_selectedChart) Then + SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportCharttoimage(_selectedChart, SaveFileDialog1.FileName) + End If + Else + MsgBox("Please select a chart via clicking on it!", MsgBoxStyle.Information, ADDITIONAL_TITLE) + End If + + End Sub + + Private Sub GridControl1_Click(sender As Object, e As EventArgs) Handles GridControl1.Click + RibbonPageGroup1.Enabled = False + RibbonPageGroup2.Enabled = True + BarButtonItem3.Enabled = True + BarButtonItem4.Enabled = False + BarButtonItem5.Enabled = False + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + TileView1.ExportToPdf(SaveFileDialog1.FileName) + End If + End Sub + + Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick + SaveFileDialog1.Filter = "Excel Files (*.xlsx*)|*.xlsx" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + GridView1.ExportToXlsx(SaveFileDialog1.FileName) + End If + End Sub + + Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick + SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + GridView1.ExportToPdf(SaveFileDialog1.FileName) + End If + End Sub + + Private Sub GridControl2_Click(sender As Object, e As EventArgs) Handles GridControl2.Click + RibbonPageGroup1.Enabled = False + RibbonPageGroup2.Enabled = True + BarButtonItem3.Enabled = False + BarButtonItem4.Enabled = True + BarButtonItem5.Enabled = True + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index ffd3519..7d4e609 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -654,7 +654,7 @@ Partial Class frmMain ' resources.ApplyResources(Me.bbtnitDashboardInv, "bbtnitDashboardInv") Me.bbtnitDashboardInv.Id = 17 - Me.bbtnitDashboardInv.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtnitDashboardInv.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitDashboardInv.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.bbtnitDashboardInv.Name = "bbtnitDashboardInv" ' 'RibbonPage1 @@ -673,8 +673,8 @@ Partial Class frmMain ' Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMetadataFile) - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMonitor) Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitDashboardInv) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMonitor) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") ' diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 39fb451..383d8b2 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAASwBBgEsAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAATQBBgE0AQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -178,10 +178,114 @@ 597, 17 + + 17, 134 + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 1 + + + NavBarControl1 + + + DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 2 + + + + Fill + + + + Tahoma, 9pt + + + 0, 146 + + + 1347, 360 + + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + 392, 95 - + + 270, 198 + + + ContextMenuGrid + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Fill + + + 233, 27 + + + 1114, 333 + + + 8 + + + False + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + 269, 26 @@ -210,7 +314,6 @@ Metadaten Datei anzeigen - False @@ -263,39 +366,6 @@ Layout speichern - - 270, 198 - - - ContextMenuGrid - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 256, 30 - - - 631, 241 - - - 8 - - - False - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - 17, 134 @@ -370,9 +440,6 @@ False - - Segoe UI, 9pt - 50, 23 @@ -502,12 +569,6 @@ 541, 95 - - 219, 26 - - - Starte Validierung für Profil - 220, 30 @@ -517,7 +578,6 @@ System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - Left @@ -662,32 +722,11 @@ 2 - - Fill - - - Tahoma, 9pt - - - 0, 146 - - - 1347, 360 - - - 4 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this + + 219, 26 - - 3 + + Starte Validierung für Profil 908, 17 @@ -695,18 +734,6 @@ 519, 134 - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 234, 22 - - - Monitor anzeigen - 235, 48 @@ -888,6 +915,18 @@ True + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 234, 22 + + + Monitor anzeigen + 1023, 17 @@ -1209,10 +1248,10 @@ Sync in Progress - Dahsboard Invoice + Dashboard Invoice - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -2598,6 +2637,9 @@ &Ansicht + + &Hintergrund + &Seiten Layout @@ -2610,9 +2652,6 @@ Bars - - &Hintergrund - PDF Dokument diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index a50e631..87f1147 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -483,7 +483,6 @@ Public Class frmMain BindingNavigator1.Visible = True BindingNavigator1.Dock = DockStyle.Top GridControl_Docs.Visible = True - GridControl_Docs.Dock = DockStyle.Fill End If End Sub @@ -1286,7 +1285,6 @@ Public Class frmMain BindingNavigator1.Dock = DockStyle.Top GridControl_Docs.Visible = True - GridControl_Docs.Dock = DockStyle.Fill ' Spalte für Status Icon erstellen Dim columnStateIcon As New DataColumn() @@ -1397,7 +1395,6 @@ Public Class frmMain BindingNavigator1.Visible = False BindingNavigator1.Dock = DockStyle.None GridControl_Docs.DataSource = Nothing - GridControl_Docs.Dock = DockStyle.None Try GridView_Docs.Columns.Clear() Catch ex As Exception diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 2a08a11..b200d9a 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1897,11 +1897,16 @@ Public Class frmValidator End Function Sub Load_IDB_DOC_DATA() - Dim oSQl As String = IDB_DOC_DATA_SQL - oSQl = oSQl.Replace("@DOC_GUID", CURRENT_DOC_GUID) - oSQl = oSQl.Replace("@DOC_ID", CURRENT_DOC_ID) - oSQl = oSQl.Replace("@DocID", CURRENT_DOC_ID) - IDB_DT_DOC_DATA = ClassDatabase.Return_Datatable(oSQl) + Try + Dim oSQl As String = IDB_DOC_DATA_SQL + oSQl = oSQl.Replace("@DOC_GUID", CURRENT_DOC_GUID) + oSQl = oSQl.Replace("@DOC_ID", CURRENT_DOC_ID) + oSQl = oSQl.Replace("@DocID", CURRENT_DOC_ID) + IDB_DT_DOC_DATA = ClassDatabase.Return_Datatable(oSQl) + Catch ex As Exception + LOGGER.Error(ex) + End Try + End Sub @@ -4603,7 +4608,9 @@ Public Class frmValidator End Sub Sub Reload_Controls(SingleAttribute As String) - Load_IDB_DOC_DATA() + If IDB_ACTIVE = True Then + Load_IDB_DOC_DATA() + End If FillIndexValues(False) End Sub From b3330ad1cc92394d3c32c0500accb7c74a78906f Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 16 Mar 2020 17:21:25 +0100 Subject: [PATCH 06/14] MS --- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 2 ++ app/DD_PM_WINDREAM/clsPatterns.vb | 18 +++++----- .../frmAdministration.Designer.vb | 14 ++++++-- app/DD_PM_WINDREAM/frmAdministration.resx | 33 +++++++++++++++++++ app/DD_PM_WINDREAM/frmAdministration.vb | 31 +++++++++++++++-- app/DD_PM_WINDREAM/frmFormDesigner.vb | 2 ++ app/DD_PM_WINDREAM/frmMain.vb | 9 +++++ app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb | 2 +- 8 files changed, 97 insertions(+), 14 deletions(-) diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index f88afdb..fdf9794 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -38,6 +38,8 @@ Module ModuleRuntimeVariables Public USER_USERNAME As String Public DT_USER2MODULE As DataTable + Public CHANGES_IN_ADMINISTRATION As Boolean = False + Public USER_IS_ADMIN As Boolean = False Public USER_ID Public USER_PRENAME diff --git a/app/DD_PM_WINDREAM/clsPatterns.vb b/app/DD_PM_WINDREAM/clsPatterns.vb index d852e1a..ea3f18e 100644 --- a/app/DD_PM_WINDREAM/clsPatterns.vb +++ b/app/DD_PM_WINDREAM/clsPatterns.vb @@ -38,7 +38,7 @@ Public Class clsPatterns Public Const MAX_TRY_COUNT = 500 - Private Shared regex As Regex = New Regex("{#(\w+)#([\w\s_-]+)}+") + Private Shared MyRegex As Regex = New Regex("{#(\w+)#([\:\.\w\s_-]+)}+") Private Shared allPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA, PATTERN_USER, PATTERN_INT} Private Shared complexPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA} Private Shared simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT} @@ -131,7 +131,7 @@ Public Class clsPatterns While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL) result = ReplacePattern(result, PATTERN_USER, email) End While - + While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PROFILE_ID) result = ReplacePattern(result, PATTERN_USER, profileId) End While @@ -236,7 +236,7 @@ Public Class clsPatterns End Function Private Shared Function ContainsPattern(input As String, type As String) As String - Dim elements As MatchCollection = regex.Matches(input) + Dim elements As MatchCollection = MyRegex.Matches(input) For Each element As Match In elements Dim t As String = element.Groups(1).Value @@ -250,7 +250,7 @@ Public Class clsPatterns End Function Public Shared Function GetNextPattern(input As String, type As String) As Pattern - Dim elements As MatchCollection = regex.Matches(input) + Dim elements As MatchCollection = MyRegex.Matches(input) For Each element As Match In elements ' Pattern in input @@ -266,7 +266,7 @@ Public Class clsPatterns End Function Public Shared Function GetAllPatterns(input As String) As List(Of Pattern) - Dim elements As MatchCollection = regex.Matches(input) + Dim elements As MatchCollection = MyRegex.Matches(input) Dim results As New List(Of Pattern) For Each element As Match In elements @@ -281,7 +281,7 @@ Public Class clsPatterns End Function Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String - Dim elements As MatchCollection = regex.Matches(input) + Dim elements As MatchCollection = MyRegex.Matches(input) If IsNothing(replacement) Then Return input @@ -300,7 +300,7 @@ Public Class clsPatterns End Function Private Shared Function ContainsPatternAndValue(input As String, type As String, value As String) As Boolean - Dim elements As MatchCollection = regex.Matches(input) + Dim elements As MatchCollection = MyRegex.Matches(input) For Each element As Match In elements ' Pattern in input @@ -332,7 +332,7 @@ Public Class clsPatterns End Function Public Shared Function HasPattern(input As String, type As String) As Boolean - Dim matches = regex.Matches(input) + Dim matches = MyRegex.Matches(input) For Each match As Match In matches For Each group As Group In match.Groups @@ -355,7 +355,7 @@ Public Class clsPatterns End Sub Public Sub New(stringRepresentation As String) - Dim elements As MatchCollection = regex.Matches(stringRepresentation) + Dim elements As MatchCollection = MyRegex.Matches(stringRepresentation) Dim first As Match = elements.Item(0) Dim t As String = first.Groups(1).Value diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 446c06d..ad444d7 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -190,6 +190,7 @@ Partial Class frmAdministration Me.tsbStaticInfo = New DevExpress.XtraBars.BarStaticItem() Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -1256,9 +1257,9 @@ Partial Class frmAdministration 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21, Me.bbtnItemFinishSQL}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 23 + Me.RibbonControl1.MaxItemId = 24 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 @@ -1433,6 +1434,13 @@ Partial Class frmAdministration Me.BarButtonItem21.Name = "BarButtonItem21" Me.BarButtonItem21.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large ' + 'bbtnItemFinishSQL + ' + resources.ApplyResources(Me.bbtnItemFinishSQL, "bbtnItemFinishSQL") + Me.bbtnItemFinishSQL.Id = 23 + Me.bbtnItemFinishSQL.ImageOptions.SvgImage = CType(resources.GetObject("bbtnItemFinishSQL.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtnItemFinishSQL.Name = "bbtnItemFinishSQL" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3}) @@ -1449,6 +1457,7 @@ Partial Class frmAdministration Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem5) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem21) + Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") ' @@ -1732,4 +1741,5 @@ Partial Class frmAdministration Friend WithEvents BarButtonItem20 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem Friend WithEvents lblPriority As Label + Friend WithEvents bbtnItemFinishSQL As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 0fe74f4..98ec8a1 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -3420,6 +3420,33 @@ LjdsMS44LDEuM2wxLjQtMS40bC0xLjMtMS44ICBjMC4zLTAuNSwwLjYtMS4yLDAuOC0xLjhMMzIsMjV6 IE0yNCwyNmMtMS4xLDAtMi0wLjktMi0yczAuOS0yLDItMmMxLjEsMCwyLDAuOSwyLDJTMjUuMSwyNiwy NCwyNnoiIGNsYXNzPSJCbHVlIiAvPg0KPC9zdmc+Cw== + + + + SQL Abschluss + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAN4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRmluaXNoTWVyZ2UiPg0KICAgIDxwYXRoIGQ9Ik0xMy4yLDE4Yy0wLjMsMC42LTAu + NiwxLjMtMC44LDJINnYtMkgxMy4yeiBNMTIuMSwyNEg0VjJoMTZ2MTAuNGMwLjYtMC4yLDEuMy0wLjMs + Mi0wLjRWMWMwLTAuNS0wLjUtMS0xLTEgICBIM0MyLjUsMCwyLDAuNSwyLDF2MjRjMCwwLjUsMC41LDEs + MSwxaDkuNEMxMi4yLDI1LjQsMTIuMSwyNC43LDEyLjEsMjR6IE02LDE2aDguNWMwLjYtMC44LDEuNC0x + LjQsMi4yLTJINlYxNnogTTYsOGgxMlY2SDZWOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cmVjdCB4 + PSI2IiB5PSIxMCIgd2lkdGg9IjEyIiBoZWlnaHQ9IjIiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IlllbGxv + dyIgLz4NCiAgICA8cGF0aCBkPSJNMjMsMTRjLTUsMC05LDQtOSw5YzAsNSw0LDksOSw5czktNCw5LTlD + MzIsMTgsMjgsMTQsMjMsMTR6IE0yMiwyOGwtNS01bDItMmwzLDNsNS01bDIsMkwyMiwyOHoiIGNsYXNz + PSJHcmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== @@ -4111,6 +4138,12 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bbtnItemFinishSQL + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index c5c43c8..ebcb4ae 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -1033,7 +1033,7 @@ Public Class frmAdministration Me.TBPM_PROFILEBindingSource.EndEdit() Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE) tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}" - + CHANGES_IN_ADMINISTRATION = True Else tsbStaticInfo.Caption = "" End If @@ -1174,7 +1174,7 @@ Public Class frmAdministration WHERE GUID = {guid}" If ClassDatabase.Execute_non_Query(sql, True) Then - tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString}" + tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString} - RESTART NECESSARY" End If End If @@ -1235,6 +1235,7 @@ Public Class frmAdministration Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_VIEW = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" If ClassDatabase.Execute_non_Query(oUpdate) = True Then tsbStaticInfo.Caption = $"Profile SQL saved - {Now.ToLongTimeString}" + CHANGES_IN_ADMINISTRATION = True End If End If @@ -1244,4 +1245,30 @@ Public Class frmAdministration LOGGER.Error(ex) End Try End Sub + + Private Sub bbtnItemFinishSQL_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnItemFinishSQL.ItemClick + Try + profile_guid = PROFILGUIDTextBox.Text + CURRENT_ProfilGUID = PROFILGUIDTextBox.Text + CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" + Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}" + Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) + Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL} + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + If oldSQL <> oForm.SQLCommand Then + Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" + If ClassDatabase.Execute_non_Query(oUpdate) = True Then + tsbStaticInfo.Caption = $"Profile SQLFinish saved - {Now.ToLongTimeString}" + CHANGES_IN_ADMINISTRATION = True + End If + + End If + End If + Catch ex As Exception + MsgBox("Error in Saving Profile SQLFinish: " & vbNewLine & vbNewLine & ex.Message) + LOGGER.Error(ex) + End Try + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 3c3f4ce..298f871 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -1082,6 +1082,7 @@ Public Class frmFormDesigner tslblAenderungen.Visible = True tslblAenderungen.Text = "Änderungen gespeichert - " & Now + CHANGES_IN_ADMINISTRATION = True Return True Catch ex As Exception @@ -1112,6 +1113,7 @@ Public Class frmFormDesigner Dim oSQL = $"EXEC PRPM_CHANGE_CONTROL_CAPTION {guid},{escapedValue},'{USER_USERNAME}','{USER_LANGUAGE}'" ClassDatabase.Execute_non_Query(oSQL) End If + CHANGES_IN_ADMINISTRATION = True Return True End If diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 87f1147..933fa72 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -834,6 +834,13 @@ Public Class frmMain TimerRefresh.Enabled = False End If + If CHANGES_IN_ADMINISTRATION = True Then + CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1") + Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC" + DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL) + CHANGES_IN_ADMINISTRATION = False + End If + Dim oExpression = $"GUID = {CURRENT_ProfilGUID}" CURRENT_DT_PROFILE.Clear() CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges) @@ -851,6 +858,8 @@ Public Class frmMain BASEDATA_DT_PROFILE_SEARCHES_SQL.Clear() BASEDATA_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges) 'CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) + + frmValidator.Show() 'Decide_Load() diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb index 7ee6de4..88a8079 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb @@ -43,7 +43,7 @@ Public Class frmSQL_DESIGNER End If - If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then + If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Or CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Then If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) From 8a9a1d409e32c71f8c09db8a358de3535fa30a00 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 17 Mar 2020 14:44:03 +0100 Subject: [PATCH 07/14] MS --- app/DD_PM_WINDREAM/ModuleControlProperties.vb | 1 + app/DD_PM_WINDREAM/frmAdministration.resx | 2 +- .../frmFormDesigner.Designer.vb | 314 +++++++++++------- app/DD_PM_WINDREAM/frmFormDesigner.resx | 76 ++++- app/DD_PM_WINDREAM/frmFormDesigner.vb | 73 +++- app/DD_PM_WINDREAM/frmValidator.vb | 105 ++++-- 6 files changed, 392 insertions(+), 179 deletions(-) diff --git a/app/DD_PM_WINDREAM/ModuleControlProperties.vb b/app/DD_PM_WINDREAM/ModuleControlProperties.vb index f456fee..6fe9c4b 100644 --- a/app/DD_PM_WINDREAM/ModuleControlProperties.vb +++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb @@ -247,6 +247,7 @@ Public Module ModuleControlProperties Public Property DisplayAsComboBox As Boolean Public Property SetControlData As SQLValue + End Class Public Class LineLabelProperties diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 98ec8a1..1be61f2 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -3423,7 +3423,7 @@ - SQL Abschluss + Button Abschluss CheckSQL diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 8442184..7164d4a 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -1,6 +1,6 @@  Partial Class frmFormDesigner - Inherits System.Windows.Forms.Form + Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -33,9 +33,6 @@ Partial Class frmFormDesigner Me.btndtp = New System.Windows.Forms.Button() Me.btntextbox = New System.Windows.Forms.Button() Me.btnlabel = New System.Windows.Forms.Button() - Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel() - Me.Label1 = New System.Windows.Forms.Label() - Me.lblhintergrund = New System.Windows.Forms.Label() Me.TabControlEigenschaften = New System.Windows.Forms.TabControl() Me.pageProperties = New System.Windows.Forms.TabPage() Me.pgControls = New System.Windows.Forms.PropertyGrid() @@ -49,11 +46,9 @@ Partial Class frmFormDesigner Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.btndelete = New System.Windows.Forms.Button() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) - Me.btnrefresh = New System.Windows.Forms.Button() Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() @@ -64,8 +59,19 @@ Partial Class frmFormDesigner Me.GridControlContextMenu = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblhintergrund = New System.Windows.Forms.Label() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.GroupBox1.SuspendLayout() - Me.pnldesigner.SuspendLayout() Me.TabControlEigenschaften.SuspendLayout() Me.pageProperties.SuspendLayout() Me.pageFormat.SuspendLayout() @@ -80,12 +86,12 @@ Partial Class frmFormDesigner Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() + Me.pnldesigner.SuspendLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GroupBox1 ' - Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox1.Controls.Add(Me.btnButton) Me.GroupBox1.Controls.Add(Me.btnLine) Me.GroupBox1.Controls.Add(Me.btnTabelle) @@ -95,9 +101,11 @@ Partial Class frmFormDesigner Me.GroupBox1.Controls.Add(Me.btntextbox) Me.GroupBox1.Controls.Add(Me.btnlabel) Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(7, 9) + Me.GroupBox1.Location = New System.Drawing.Point(3, 3) + Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(363, 129) + Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GroupBox1.Size = New System.Drawing.Size(371, 125) Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" @@ -107,9 +115,10 @@ Partial Class frmFormDesigner Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image) Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnButton.Location = New System.Drawing.Point(290, 22) + Me.btnButton.Location = New System.Drawing.Point(217, 20) + Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnButton.Name = "btnButton" - Me.btnButton.Size = New System.Drawing.Size(112, 27) + Me.btnButton.Size = New System.Drawing.Size(99, 28) Me.btnButton.TabIndex = 8 Me.btnButton.Text = "Button" Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -120,9 +129,10 @@ Partial Class frmFormDesigner Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image) Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLine.Location = New System.Drawing.Point(290, 90) + Me.btnLine.Location = New System.Drawing.Point(217, 82) + Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnLine.Name = "btnLine" - Me.btnLine.Size = New System.Drawing.Size(112, 27) + Me.btnLine.Size = New System.Drawing.Size(99, 28) Me.btnLine.TabIndex = 7 Me.btnLine.Text = "Linie" Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -133,9 +143,10 @@ Partial Class frmFormDesigner Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(151, 22) + Me.btnTabelle.Location = New System.Drawing.Point(112, 20) + Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnTabelle.Name = "btnTabelle" - Me.btnTabelle.Size = New System.Drawing.Size(133, 27) + Me.btnTabelle.Size = New System.Drawing.Size(99, 28) Me.btnTabelle.TabIndex = 6 Me.btnTabelle.Text = "Tabelle" Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -146,9 +157,10 @@ Partial Class frmFormDesigner Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCheckbox.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckbox.Location = New System.Drawing.Point(151, 90) + Me.btnCheckbox.Location = New System.Drawing.Point(112, 84) + Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnCheckbox.Name = "btnCheckbox" - Me.btnCheckbox.Size = New System.Drawing.Size(133, 27) + Me.btnCheckbox.Size = New System.Drawing.Size(99, 28) Me.btnCheckbox.TabIndex = 5 Me.btnCheckbox.Text = "Checkbox" Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -159,9 +171,10 @@ Partial Class frmFormDesigner Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnVektor.Image = Global.DD_ProcessManager.My.Resources.Resources.ComboBox_16xLG Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(13, 88) + Me.btnVektor.Location = New System.Drawing.Point(7, 84) + Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnVektor.Name = "btnVektor" - Me.btnVektor.Size = New System.Drawing.Size(133, 27) + Me.btnVektor.Size = New System.Drawing.Size(99, 28) Me.btnVektor.TabIndex = 4 Me.btnVektor.Text = "LookupControl" Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -172,9 +185,10 @@ Partial Class frmFormDesigner Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btndtp.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(151, 55) + Me.btndtp.Location = New System.Drawing.Point(112, 52) + Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btndtp.Name = "btndtp" - Me.btndtp.Size = New System.Drawing.Size(133, 27) + Me.btndtp.Size = New System.Drawing.Size(99, 28) Me.btndtp.TabIndex = 3 Me.btndtp.Text = "DatePicker" Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -185,9 +199,10 @@ Partial Class frmFormDesigner Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btntextbox.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox_708 Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntextbox.Location = New System.Drawing.Point(13, 55) + Me.btntextbox.Location = New System.Drawing.Point(7, 52) + Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btntextbox.Name = "btntextbox" - Me.btntextbox.Size = New System.Drawing.Size(133, 27) + Me.btntextbox.Size = New System.Drawing.Size(99, 28) Me.btntextbox.TabIndex = 1 Me.btntextbox.Text = "Textbox" Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -198,72 +213,35 @@ Partial Class frmFormDesigner Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnlabel.Image = Global.DD_ProcessManager.My.Resources.Resources.Label_684 Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnlabel.Location = New System.Drawing.Point(12, 22) + Me.btnlabel.Location = New System.Drawing.Point(7, 20) + Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnlabel.Name = "btnlabel" - Me.btnlabel.Size = New System.Drawing.Size(133, 27) + Me.btnlabel.Size = New System.Drawing.Size(99, 28) Me.btnlabel.TabIndex = 0 Me.btnlabel.Text = "Label" Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnlabel.UseVisualStyleBackColor = True ' - 'pnldesigner - ' - Me.pnldesigner.AllowDrop = True - Me.pnldesigner.AutoScroll = True - Me.pnldesigner.BackColor = System.Drawing.Color.Transparent - Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnldesigner.Controls.Add(Me.Label1) - Me.pnldesigner.Controls.Add(Me.lblhintergrund) - Me.pnldesigner.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnldesigner.GridSize = 10 - Me.pnldesigner.Location = New System.Drawing.Point(0, 0) - Me.pnldesigner.Name = "pnldesigner" - Me.pnldesigner.ShowGrid = True - Me.pnldesigner.Size = New System.Drawing.Size(842, 650) - Me.pnldesigner.TabIndex = 3 - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.Label1.Location = New System.Drawing.Point(91, 150) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(347, 16) - Me.Label1.TabIndex = 6 - Me.Label1.Text = "Gestalten sie in diesem Bereich Ihre Validierungsoberfläche" - ' - 'lblhintergrund - ' - Me.lblhintergrund.AutoSize = True - Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.lblhintergrund.Location = New System.Drawing.Point(89, 111) - Me.lblhintergrund.Name = "lblhintergrund" - Me.lblhintergrund.Size = New System.Drawing.Size(248, 29) - Me.lblhintergrund.TabIndex = 1 - Me.lblhintergrund.Text = "Validierungsbereich" - ' 'TabControlEigenschaften ' - Me.TabControlEigenschaften.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TabControlEigenschaften.Controls.Add(Me.pageProperties) Me.TabControlEigenschaften.Controls.Add(Me.pageFormat) Me.TabControlEigenschaften.Enabled = False - Me.TabControlEigenschaften.Location = New System.Drawing.Point(3, 144) + Me.TabControlEigenschaften.Location = New System.Drawing.Point(3, 132) + Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.TabControlEigenschaften.Name = "TabControlEigenschaften" Me.TabControlEigenschaften.SelectedIndex = 0 - Me.TabControlEigenschaften.Size = New System.Drawing.Size(371, 465) + Me.TabControlEigenschaften.Size = New System.Drawing.Size(378, 389) Me.TabControlEigenschaften.TabIndex = 22 ' 'pageProperties ' Me.pageProperties.Controls.Add(Me.pgControls) Me.pageProperties.Location = New System.Drawing.Point(4, 25) + Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageProperties.Name = "pageProperties" - Me.pageProperties.Padding = New System.Windows.Forms.Padding(3) - Me.pageProperties.Size = New System.Drawing.Size(363, 436) + Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.pageProperties.Size = New System.Drawing.Size(370, 360) Me.pageProperties.TabIndex = 3 Me.pageProperties.Text = "Eigenschaften" Me.pageProperties.UseVisualStyleBackColor = True @@ -272,9 +250,10 @@ Partial Class frmFormDesigner ' Me.pgControls.Dock = System.Windows.Forms.DockStyle.Fill Me.pgControls.HelpVisible = False - Me.pgControls.Location = New System.Drawing.Point(3, 3) + Me.pgControls.Location = New System.Drawing.Point(3, 2) + Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pgControls.Name = "pgControls" - Me.pgControls.Size = New System.Drawing.Size(357, 430) + Me.pgControls.Size = New System.Drawing.Size(364, 356) Me.pgControls.TabIndex = 0 ' 'pageFormat @@ -287,9 +266,10 @@ Partial Class frmFormDesigner Me.pageFormat.Controls.Add(Me.btnwidth_plus) Me.pageFormat.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.pageFormat.Location = New System.Drawing.Point(4, 22) + Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageFormat.Name = "pageFormat" - Me.pageFormat.Padding = New System.Windows.Forms.Padding(3) - Me.pageFormat.Size = New System.Drawing.Size(363, 439) + Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.pageFormat.Size = New System.Drawing.Size(313, 290) Me.pageFormat.TabIndex = 1 Me.pageFormat.Text = "Format" Me.pageFormat.UseVisualStyleBackColor = True @@ -299,9 +279,10 @@ Partial Class frmFormDesigner Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnheight_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_minus.Location = New System.Drawing.Point(94, 69) + Me.btnheight_minus.Location = New System.Drawing.Point(44, 24) + Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_minus.Name = "btnheight_minus" - Me.btnheight_minus.Size = New System.Drawing.Size(75, 25) + Me.btnheight_minus.Size = New System.Drawing.Size(34, 9) Me.btnheight_minus.TabIndex = 1 Me.btnheight_minus.Text = "kleiner" Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -312,9 +293,10 @@ Partial Class frmFormDesigner Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnheight_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_plus.Location = New System.Drawing.Point(13, 69) + Me.btnheight_plus.Location = New System.Drawing.Point(6, 24) + Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_plus.Name = "btnheight_plus" - Me.btnheight_plus.Size = New System.Drawing.Size(75, 25) + Me.btnheight_plus.Size = New System.Drawing.Size(34, 9) Me.btnheight_plus.TabIndex = 0 Me.btnheight_plus.Text = "größer" Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -323,7 +305,7 @@ Partial Class frmFormDesigner 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(10, 50) + Me.Label3.Location = New System.Drawing.Point(5, 18) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(42, 16) Me.Label3.TabIndex = 5 @@ -332,7 +314,7 @@ Partial Class frmFormDesigner 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(10, 3) + Me.Label2.Location = New System.Drawing.Point(5, 2) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(46, 16) Me.Label2.TabIndex = 4 @@ -343,9 +325,10 @@ Partial Class frmFormDesigner Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnwidth_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22) + Me.btnwidth_minus.Location = New System.Drawing.Point(44, 8) + Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_minus.Name = "btnwidth_minus" - Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25) + Me.btnwidth_minus.Size = New System.Drawing.Size(34, 9) Me.btnwidth_minus.TabIndex = 1 Me.btnwidth_minus.Text = "kleiner" Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -356,9 +339,10 @@ Partial Class frmFormDesigner Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnwidth_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22) + Me.btnwidth_plus.Location = New System.Drawing.Point(6, 8) + Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_plus.Name = "btnwidth_plus" - Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25) + Me.btnwidth_plus.Size = New System.Drawing.Size(34, 9) Me.btnwidth_plus.TabIndex = 0 Me.btnwidth_plus.Text = "größer" Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -379,23 +363,10 @@ Partial Class frmFormDesigner Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet ' - 'btndelete - ' - Me.btndelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.btndelete.Image = Global.DD_ProcessManager.My.Resources.Resources.delete_12x12 - Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndelete.Location = New System.Drawing.Point(7, 624) - Me.btndelete.Name = "btndelete" - Me.btndelete.Size = New System.Drawing.Size(124, 23) - Me.btndelete.TabIndex = 1 - Me.btndelete.Text = "Control löschen" - Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndelete.UseVisualStyleBackColor = True - ' 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 650) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 669) Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Size = New System.Drawing.Size(1227, 22) Me.StatusStrip1.TabIndex = 20 @@ -408,19 +379,6 @@ Partial Class frmFormDesigner Me.tslblAenderungen.Size = New System.Drawing.Size(152, 17) Me.tslblAenderungen.Text = "Noch keine Änderungen" ' - 'btnrefresh - ' - Me.btnrefresh.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnrefresh.Image = Global.DD_ProcessManager.My.Resources.Resources.arrow_refresh - Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnrefresh.Location = New System.Drawing.Point(260, 624) - Me.btnrefresh.Name = "btnrefresh" - Me.btnrefresh.Size = New System.Drawing.Size(110, 23) - Me.btnrefresh.TabIndex = 24 - Me.btnrefresh.Text = "Refresh" - Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnrefresh.UseVisualStyleBackColor = True - ' 'TBPM_PROFILE_CONTROLSTableAdapter ' Me.TBPM_PROFILE_CONTROLSTableAdapter.ClearBeforeFill = True @@ -479,7 +437,7 @@ Partial Class frmFormDesigner 'SplitContainer1 ' Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Location = New System.Drawing.Point(0, 146) Me.SplitContainer1.Name = "SplitContainer1" ' 'SplitContainer1.Panel1 @@ -490,28 +448,130 @@ Partial Class frmFormDesigner ' Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) Me.SplitContainer1.Panel2.Controls.Add(Me.TabControlEigenschaften) - Me.SplitContainer1.Panel2.Controls.Add(Me.btnrefresh) - Me.SplitContainer1.Panel2.Controls.Add(Me.btndelete) - Me.SplitContainer1.Size = New System.Drawing.Size(1227, 650) + Me.SplitContainer1.Size = New System.Drawing.Size(1227, 523) Me.SplitContainer1.SplitterDistance = 842 Me.SplitContainer1.TabIndex = 25 ' + 'pnldesigner + ' + Me.pnldesigner.AllowDrop = True + Me.pnldesigner.AutoScroll = True + Me.pnldesigner.BackColor = System.Drawing.Color.Transparent + Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnldesigner.Controls.Add(Me.Label1) + Me.pnldesigner.Controls.Add(Me.lblhintergrund) + Me.pnldesigner.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnldesigner.GridSize = 10 + Me.pnldesigner.Location = New System.Drawing.Point(0, 0) + Me.pnldesigner.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.pnldesigner.Name = "pnldesigner" + Me.pnldesigner.ShowGrid = True + Me.pnldesigner.Size = New System.Drawing.Size(842, 523) + Me.pnldesigner.TabIndex = 3 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption + Me.Label1.Location = New System.Drawing.Point(40, 50) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(347, 16) + Me.Label1.TabIndex = 6 + Me.Label1.Text = "Gestalten sie in diesem Bereich Ihre Validierungsoberfläche" + ' + 'lblhintergrund + ' + Me.lblhintergrund.AutoSize = True + Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption + Me.lblhintergrund.Location = New System.Drawing.Point(40, 40) + Me.lblhintergrund.Name = "lblhintergrund" + Me.lblhintergrund.Size = New System.Drawing.Size(248, 29) + Me.lblhintergrund.TabIndex = 1 + Me.lblhintergrund.Text = "Validierungsbereich" + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 4 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(1227, 146) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'bbtnItemFinishSQL + ' + Me.bbtnItemFinishSQL.Caption = "Button Abschluss CheckSQL" + Me.bbtnItemFinishSQL.Id = 1 + Me.bbtnItemFinishSQL.ImageOptions.SvgImage = CType(resources.GetObject("bbtnItemFinishSQL.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtnItemFinishSQL.Name = "bbtnItemFinishSQL" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Control löschen" + Me.BarButtonItem1.Id = 2 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Aktualisieren" + Me.BarButtonItem2.Id = 3 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Hintergrundfunktionen" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Funktionen" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Control-Funktionen" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 691) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1227, 21) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' 'frmFormDesigner ' + Me.Appearance.Options.UseFont = True Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1227, 672) + Me.ClientSize = New System.Drawing.Size(1227, 712) Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.IconOptions.Icon = CType(resources.GetObject("frmFormDesigner.IconOptions.Icon"), System.Drawing.Icon) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.MinimizeBox = False Me.Name = "frmFormDesigner" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "Validation-Designer" Me.GroupBox1.ResumeLayout(False) - Me.pnldesigner.ResumeLayout(False) - Me.pnldesigner.PerformLayout() Me.TabControlEigenschaften.ResumeLayout(False) Me.pageProperties.ResumeLayout(False) Me.pageFormat.ResumeLayout(False) @@ -528,6 +588,9 @@ Partial Class frmFormDesigner Me.SplitContainer1.Panel2.ResumeLayout(False) CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) + Me.pnldesigner.ResumeLayout(False) + Me.pnldesigner.PerformLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -542,7 +605,6 @@ Partial Class frmFormDesigner Friend WithEvents pnldesigner As DD_ProcessManager.ClassSnapPanel Friend WithEvents btndtp As System.Windows.Forms.Button Friend WithEvents lblhintergrund As System.Windows.Forms.Label - Friend WithEvents btndelete As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel @@ -564,7 +626,6 @@ Partial Class frmFormDesigner Friend WithEvents btnTabelle As System.Windows.Forms.Button Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter - Friend WithEvents btnrefresh As System.Windows.Forms.Button Friend WithEvents pageProperties As TabPage Friend WithEvents pgControls As PropertyGrid Friend WithEvents btnLine As Button @@ -572,4 +633,13 @@ Partial Class frmFormDesigner Friend WithEvents MenuItemAddColumn As ToolStripMenuItem Friend WithEvents SplitContainer1 As SplitContainer Friend WithEvents btnButton As Button + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents bbtnItemFinishSQL As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 3c86179..48e2412 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -140,9 +140,6 @@ 206, 17 - - 206, 17 - 17, 56 @@ -176,10 +173,79 @@ 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAN4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRmluaXNoTWVyZ2UiPg0KICAgIDxwYXRoIGQ9Ik0xMy4yLDE4Yy0wLjMsMC42LTAu + NiwxLjMtMC44LDJINnYtMkgxMy4yeiBNMTIuMSwyNEg0VjJoMTZ2MTAuNGMwLjYtMC4yLDEuMy0wLjMs + Mi0wLjRWMWMwLTAuNS0wLjUtMS0xLTEgICBIM0MyLjUsMCwyLDAuNSwyLDF2MjRjMCwwLjUsMC41LDEs + MSwxaDkuNEMxMi4yLDI1LjQsMTIuMSwyNC43LDEyLjEsMjR6IE02LDE2aDguNWMwLjYtMC44LDEuNC0x + LjQsMi4yLTJINlYxNnogTTYsOGgxMlY2SDZWOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cmVjdCB4 + PSI2IiB5PSIxMCIgd2lkdGg9IjEyIiBoZWlnaHQ9IjIiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IlllbGxv + dyIgLz4NCiAgICA8cGF0aCBkPSJNMjMsMTRjLTUsMC05LDQtOSw5YzAsNSw0LDksOSw5czktNCw5LTlD + MzIsMTgsMjgsMTQsMjMsMTR6IE0yMiwyOGwtNS01bDItMmwzLDNsNS01bDIsMkwyMiwyOHoiIGNsYXNz + PSJHcmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIkDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQ2hhbmdlVmlldyI+DQogICAgPHBh + dGggZD0iTTI0LjUsNy41QzIyLjMsNS4zLDE5LjMsNCwxNiw0QzEwLjEsNCw1LjEsOC4zLDQuMiwxNGg0 + LjFjMC45LTMuNCw0LTYsNy43LTZjMi4yLDAsNC4yLDAuOSw1LjYsMi40TDE4LDE0ICAgaDUuN2g0LjFI + MjhWNEwyNC41LDcuNXogTTE2LDI0Yy0yLjIsMC00LjItMC45LTUuNi0yLjRMMTQsMThIOC4yaC00SDR2 + MTBsMy41LTMuNUM5LjcsMjYuNywxMi43LDI4LDE2LDI4YzUuOSwwLDEwLjgtNC4zLDExLjgtMTAgICBo + LTQuMUMyMi44LDIxLjQsMTkuNywyNCwxNiwyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2 + Zz4L + + - 213 + 84 - + AAABAAkAMDAQAAEABABoBgAAlgAAACAgEAABAAQA6AIAAP4GAAAQEBAAAQAEACgBAADmCQAALzAAAAEA CACoDgAADgsAACAgAAABAAgAqAgAALYZAAAQEAAAAQAIAGgFAABeIgAALzAAAAEAIADoJAAAxicAACAg diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 298f871..51e5e62 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -346,7 +346,7 @@ Public Class frmFormDesigner SetMovementHandlers(label) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) - + CHANGES_IN_ADMINISTRATION = True CurrentControl = label CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -361,7 +361,7 @@ Public Class frmFormDesigner SetMovementHandlers(txt) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) - + CHANGES_IN_ADMINISTRATION = True CurrentControl = txt CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -375,7 +375,7 @@ Public Class frmFormDesigner SetMovementHandlers(cmb) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) - + CHANGES_IN_ADMINISTRATION = True CurrentControl = cmb CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -389,7 +389,7 @@ Public Class frmFormDesigner SetMovementHandlers(dtp) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) - + CHANGES_IN_ADMINISTRATION = True CurrentControl = dtp CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -403,7 +403,7 @@ Public Class frmFormDesigner SetMovementHandlers(chk) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) - + CHANGES_IN_ADMINISTRATION = True CurrentControl = chk CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -418,7 +418,7 @@ Public Class frmFormDesigner SetMovementHandlers(lc) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width) - + CHANGES_IN_ADMINISTRATION = True CurrentControl = lc CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -434,7 +434,7 @@ Public Class frmFormDesigner AddHandler tb.MouseClick, AddressOf gridControl_MouseClick TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width) - + CHANGES_IN_ADMINISTRATION = True Dim oControlId = GetLastID() CurrentControl = tb @@ -453,7 +453,7 @@ Public Class frmFormDesigner SetMovementHandlers(line) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width) - + CHANGES_IN_ADMINISTRATION = True CurrentControl = line CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -468,7 +468,7 @@ Public Class frmFormDesigner SetMovementHandlers(oButton) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width) - + CHANGES_IN_ADMINISTRATION = True CurrentControl = oButton CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -594,12 +594,6 @@ Public Class frmFormDesigner Return pnldesigner.PointToClient(Cursor.Position) End Function - Private Sub btndelete_Click(sender As System.Object, e As EventArgs) Handles btndelete.Click - If CurrentControl Is Nothing = False Then - DeleteControl(CurrentControl.Name) - TabControlEigenschaften.Enabled = False - End If - End Sub Private Sub btnwidth_plus_Click(sender As System.Object, e As EventArgs) Handles btnwidth_plus.Click If CurrentControl Is Nothing = False Then @@ -653,9 +647,6 @@ Public Class frmFormDesigner End If End Sub - Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click - LoadControls() - End Sub ''' ''' Setzt die Eventhandler für ein Control, die für die Bewegung via Drag & Drop und das Laden der Eigentschaften verantwortlich sind @@ -1033,10 +1024,16 @@ Public Class frmFormDesigner Case "Enable_SQL" UpdateSingleValue("SQL_ENABLE", newValue) + UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID) + UpdateSingleValue("CHOICE_LIST", "") Case "Override_SQL" UpdateSingleValue("SQL2", newValue) + UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID) + UpdateSingleValue("CHOICE_LIST", "") Case "SetControlData" UpdateSingleValue("SET_CONTROL_DATA", newValue) + UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID) + UpdateSingleValue("CHOICE_LIST", "") Case "ChoiceList" UpdateSingleValue("CHOICE_LIST", newValue) UpdateSingleValue("SQL_UEBERPRUEFUNG", "") @@ -1145,4 +1142,44 @@ Public Class frmFormDesigner LOGGER.Error(ex) End Try End Sub + + Private Sub bbtnItemFinishSQL_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnItemFinishSQL.ItemClick + Try + + + CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" + Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {ProfileId}" + Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) + Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL} + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + If oldSQL <> oForm.SQLCommand Then + Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" + If ClassDatabase.Execute_non_Query(oUpdate) = True Then + tslblAenderungen.Text = $"Profile SQLFinish saved - {Now.ToLongTimeString}" + tslblAenderungen.Visible = True + CHANGES_IN_ADMINISTRATION = True + Else + tslblAenderungen.Visible = False + End If + + End If + End If + Catch ex As Exception + MsgBox("Error in Saving Profile SQLFinish: " & vbNewLine & vbNewLine & ex.Message) + LOGGER.Error(ex) + End Try + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + If CurrentControl Is Nothing = False Then + DeleteControl(CurrentControl.Name) + TabControlEigenschaften.Enabled = False + End If + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + LoadControls() + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index b200d9a..5148fe2 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -860,7 +860,15 @@ Public Class frmValidator If filteredData.Rows.Count = 1 Then 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 AddHandler lookup.SelectedValuesChanged, AddressOf onLookUpselectedValue + Else + oExpression = $"SQL_ENABLE like '%#CTRL#{oMyControl.Name}%'" + DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges) + If filteredData.Rows.Count = 1 Then + 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 + AddHandler lookup.SelectedValuesChanged, AddressOf onLookUpselectedValue + End If End If + filteredData = DTCONTROLS.Clone() oExpression = $"GUID = {oControlRow.Item("GUID")} and Len(SET_CONTROL_DATA) > 0" DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges) @@ -1320,6 +1328,7 @@ Public Class frmValidator If Not IsNothing(SelectedValues) Then If SelectedValues.Count = 1 Then LookupControl_DependingControls(oLookup, SelectedValues) + LookupControl_EnablingControls(oLookup, SelectedValues) LookupControl_DependingColumn(oLookup, SelectedValues) Else LOGGER.Debug("Uups: SelectedValues.Count <> 1 ") @@ -1564,6 +1573,13 @@ Public Class frmValidator End If End Sub + Private Sub LookupControl_EnablingControls(LookupControl As LookupControl2, SelectedValues As List(Of String)) + Dim oLOOKUPValue = SelectedValues.Item(0) + LOGGER.Debug($"oLOOKUPValue is [{oLOOKUPValue}]!") + Dim oControlID = DirectCast(LookupControl.Tag, ClassControlCreator.ControlMetadata).Guid + Controls2beEnabled(LookupControl.Name) + + End Sub Private Sub LookupControl_DependingColumn(LookupControl As LookupControl2, SelectedValues As List(Of String)) Dim oSQLColumnDatatable As DataTable = DTGRID_COLUMNS_WITH_SQL.Clone() Dim oExpression = $"SQL_COMMAND like '%#CTRL#{LookupControl.Name}%'" @@ -1623,36 +1639,6 @@ Public Class frmValidator sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) _Step = 3 - '' Regulären Ausdruck zum Auslesen der Indexe definieren - 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" - '' einen Regulären Ausdruck laden - 'Dim regulärerAusdruck As Text.RegularExpressions.Regex = New Text.RegularExpressions.Regex(preg) - '' die Vorkommen im SQL-String auslesen - 'Dim elemente As Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(sql_Statement) - ''#### - '' alle Vorkommen innerhalbd er Namenkonvention durchlaufen - 'For Each element As Text.RegularExpressions.Match In elemente - ' Try - ' If LogErrorsOnly = False Then LOGGER.Info(" >> element in RegeX: " & element.Value) - ' Dim MyPattern = element.Value.Substring(2, element.Value.Length - 3) - ' Dim input_value - - ' If MyPattern.Contains(ClassControlCreator.PREFIX_TEXTBOX) Then - ' Dim txt As TextBox = CType(pnldesigner.Controls(MyPattern), TextBox) - ' input_value = txt.Text - ' ElseIf MyPattern.Contains(ClassControlCreator.PREFIX_COMBOBOX) Then - ' Dim cmb1 As ComboBox = CType(pnldesigner.Controls(MyPattern), ComboBox) - ' input_value = cmb1.Text - ' End If - ' sql_Statement = sql_Statement.ToString.Replace(element.Value, input_value) - - ' Catch ex As Exception - ' LOGGER.Info("Unexpected Error in Checking control values for Variable SQL Result ComboBox - ERROR: " & ex.Message) - ' End Try - - 'Next - 'If LogErrorsOnly = False Then LOGGER.Info(">>> sql_Statement after replacement: " & sql_Statement) - _dependingControl_in_action = True _Step = 4 Depending_Control_Set_Result(displayboxname, sql_Statement, ROW.Item(1)) @@ -1666,18 +1652,71 @@ Public Class frmValidator End Try Next End If + Controls2beEnabled(cmb.Name) Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in Eventhandler Variable SQL Result ComboBox - ERROR: " & ex.Message) End Try - - SendKeys.Send("{TAB}") ControlHandleStarted = True - End If End If End Sub + Private Sub Controls2beEnabled(pControlName As String) + Try + Dim oFilteredDatatable As DataTable = DTCONTROLS.Clone() + Dim oExpression = $"SQL_ENABLE like '%#CTRL#{pControlName}%'" + DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) + If oFilteredDatatable.Rows.Count > 0 Then + LOGGER.Debug($"We got {oFilteredDatatable.Rows.Count} controls which got enable definitions!!") + Else + LOGGER.Debug($"Sorry NO controls with enabling definition!!") + End If + For Each oRowEnablingControl As DataRow In oFilteredDatatable.Rows + Dim oENABLE_GUID = oRowEnablingControl.Item("GUID") + Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME") + LOGGER.Debug($"Control {oENABLE_CtrlName} is depending on lookUp {pControlName}..") + If _dependingControl_in_action = True Then + LOGGER.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") + Exit Sub + End If + If Not IsDBNull(oRowEnablingControl.Item("CONNECTION_ID")) And Not IsDBNull(oRowEnablingControl.Item("SQL_ENABLE")) Then + Dim oSqlCommand = IIf(IsDBNull(oRowEnablingControl.Item("SQL_ENABLE")), "", oRowEnablingControl.Item("SQL_ENABLE")) + oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + _dependingControl_in_action = True + Dim oENABLERESULT As Boolean = ClassDatabase.Execute_Scalar(oSqlCommand, CONNECTION_STRING) + Try + Dim oFound As Boolean = False + 'Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault() + For Each oControl As Control In pnldesigner.Controls + If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oENABLE_GUID Then + oFound = True + LOGGER.Debug($"Got the depending control ID:{oENABLE_GUID}..Setting enabled/Disabled...") + oControl.Enabled = oENABLERESULT + _dependingControl_in_action = False + Exit For + End If + + Next + + If oFound = False Then + LOGGER.Debug($"Could not find the enabling Control with ID {oENABLE_GUID} on panel!!!") + End If + Catch ex As Exception + LOGGER.Warn($"Error while setting enabling control-value for [{oENABLE_CtrlName}]: " & ex.Message) + _dependingControl_in_action = False + End Try + Else + LOGGER.Debug($"Error: Check CoNN ID and SQL on NULL VALUES!") + End If + Next + + + + Catch ex As Exception + LOGGER.Error(ex) + End Try + End Sub Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String) Try Dim resultDT As DataTable = ClassDatabase.Return_Datatable_ConStr(sqlCommand, sqlConnection) From c767b35b121d18ccd7253423dd2573c025689cf9 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 17 Mar 2020 17:04:40 +0100 Subject: [PATCH 08/14] MS Designer --- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 1 + .../frmFormDesigner.Designer.vb | 73 ++++++++++--------- app/DD_PM_WINDREAM/frmFormDesigner.resx | 3 + app/DD_PM_WINDREAM/frmFormDesigner.vb | 2 - app/DD_PM_WINDREAM/frmMain.vb | 5 +- app/DD_PM_WINDREAM/frmValidator.vb | 52 ++++++------- 6 files changed, 67 insertions(+), 69 deletions(-) diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index fdf9794..ab31096 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -112,6 +112,7 @@ Module ModuleRuntimeVariables Public errormessage As String Public WINDREAM As ClassPMWindream + Public WINDREAM_ALLG As ClassWindream_allgemein Public FINALINDICES As ClassFinalIndex Public IDBData As ClassIDBData Public LOGCONFIG As LogConfig diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 7164d4a..5aa378b 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -101,11 +101,11 @@ Partial Class frmFormDesigner Me.GroupBox1.Controls.Add(Me.btntextbox) Me.GroupBox1.Controls.Add(Me.btnlabel) Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(3, 3) + Me.GroupBox1.Location = New System.Drawing.Point(7, 5) Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.GroupBox1.Size = New System.Drawing.Size(371, 125) + Me.GroupBox1.Size = New System.Drawing.Size(362, 122) Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" @@ -115,10 +115,10 @@ Partial Class frmFormDesigner Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image) Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnButton.Location = New System.Drawing.Point(217, 20) + Me.btnButton.Location = New System.Drawing.Point(215, 20) Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnButton.Name = "btnButton" - Me.btnButton.Size = New System.Drawing.Size(99, 28) + Me.btnButton.Size = New System.Drawing.Size(98, 23) Me.btnButton.TabIndex = 8 Me.btnButton.Text = "Button" Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -129,10 +129,10 @@ Partial Class frmFormDesigner Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image) Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLine.Location = New System.Drawing.Point(217, 82) + Me.btnLine.Location = New System.Drawing.Point(215, 47) Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnLine.Name = "btnLine" - Me.btnLine.Size = New System.Drawing.Size(99, 28) + Me.btnLine.Size = New System.Drawing.Size(98, 23) Me.btnLine.TabIndex = 7 Me.btnLine.Text = "Linie" Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -143,10 +143,10 @@ Partial Class frmFormDesigner Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(112, 20) + Me.btnTabelle.Location = New System.Drawing.Point(111, 20) Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnTabelle.Name = "btnTabelle" - Me.btnTabelle.Size = New System.Drawing.Size(99, 28) + Me.btnTabelle.Size = New System.Drawing.Size(98, 23) Me.btnTabelle.TabIndex = 6 Me.btnTabelle.Text = "Tabelle" Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -157,10 +157,10 @@ Partial Class frmFormDesigner Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCheckbox.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckbox.Location = New System.Drawing.Point(112, 84) + Me.btnCheckbox.Location = New System.Drawing.Point(111, 74) Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnCheckbox.Name = "btnCheckbox" - Me.btnCheckbox.Size = New System.Drawing.Size(99, 28) + Me.btnCheckbox.Size = New System.Drawing.Size(98, 23) Me.btnCheckbox.TabIndex = 5 Me.btnCheckbox.Text = "Checkbox" Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -171,10 +171,10 @@ Partial Class frmFormDesigner Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnVektor.Image = Global.DD_ProcessManager.My.Resources.Resources.ComboBox_16xLG Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(7, 84) + Me.btnVektor.Location = New System.Drawing.Point(7, 74) Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnVektor.Name = "btnVektor" - Me.btnVektor.Size = New System.Drawing.Size(99, 28) + Me.btnVektor.Size = New System.Drawing.Size(98, 23) Me.btnVektor.TabIndex = 4 Me.btnVektor.Text = "LookupControl" Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -185,10 +185,10 @@ Partial Class frmFormDesigner Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btndtp.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(112, 52) + Me.btndtp.Location = New System.Drawing.Point(111, 47) Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btndtp.Name = "btndtp" - Me.btndtp.Size = New System.Drawing.Size(99, 28) + Me.btndtp.Size = New System.Drawing.Size(98, 23) Me.btndtp.TabIndex = 3 Me.btndtp.Text = "DatePicker" Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -199,10 +199,10 @@ Partial Class frmFormDesigner Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btntextbox.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox_708 Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntextbox.Location = New System.Drawing.Point(7, 52) + Me.btntextbox.Location = New System.Drawing.Point(7, 47) Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btntextbox.Name = "btntextbox" - Me.btntextbox.Size = New System.Drawing.Size(99, 28) + Me.btntextbox.Size = New System.Drawing.Size(98, 23) Me.btntextbox.TabIndex = 1 Me.btntextbox.Text = "Textbox" Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -216,7 +216,7 @@ Partial Class frmFormDesigner Me.btnlabel.Location = New System.Drawing.Point(7, 20) Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnlabel.Name = "btnlabel" - Me.btnlabel.Size = New System.Drawing.Size(99, 28) + Me.btnlabel.Size = New System.Drawing.Size(98, 23) Me.btnlabel.TabIndex = 0 Me.btnlabel.Text = "Label" Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -224,14 +224,17 @@ Partial Class frmFormDesigner ' 'TabControlEigenschaften ' + Me.TabControlEigenschaften.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TabControlEigenschaften.Controls.Add(Me.pageProperties) Me.TabControlEigenschaften.Controls.Add(Me.pageFormat) Me.TabControlEigenschaften.Enabled = False - Me.TabControlEigenschaften.Location = New System.Drawing.Point(3, 132) + Me.TabControlEigenschaften.Location = New System.Drawing.Point(7, 106) Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.TabControlEigenschaften.Name = "TabControlEigenschaften" Me.TabControlEigenschaften.SelectedIndex = 0 - Me.TabControlEigenschaften.Size = New System.Drawing.Size(378, 389) + Me.TabControlEigenschaften.Size = New System.Drawing.Size(366, 415) Me.TabControlEigenschaften.TabIndex = 22 ' 'pageProperties @@ -241,7 +244,7 @@ Partial Class frmFormDesigner Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageProperties.Name = "pageProperties" Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageProperties.Size = New System.Drawing.Size(370, 360) + Me.pageProperties.Size = New System.Drawing.Size(358, 386) Me.pageProperties.TabIndex = 3 Me.pageProperties.Text = "Eigenschaften" Me.pageProperties.UseVisualStyleBackColor = True @@ -253,7 +256,7 @@ Partial Class frmFormDesigner Me.pgControls.Location = New System.Drawing.Point(3, 2) Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pgControls.Name = "pgControls" - Me.pgControls.Size = New System.Drawing.Size(364, 356) + Me.pgControls.Size = New System.Drawing.Size(352, 382) Me.pgControls.TabIndex = 0 ' 'pageFormat @@ -265,11 +268,11 @@ Partial Class frmFormDesigner Me.pageFormat.Controls.Add(Me.btnwidth_minus) Me.pageFormat.Controls.Add(Me.btnwidth_plus) Me.pageFormat.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.pageFormat.Location = New System.Drawing.Point(4, 22) + Me.pageFormat.Location = New System.Drawing.Point(4, 25) Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageFormat.Name = "pageFormat" Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageFormat.Size = New System.Drawing.Size(313, 290) + Me.pageFormat.Size = New System.Drawing.Size(358, 361) Me.pageFormat.TabIndex = 1 Me.pageFormat.Text = "Format" Me.pageFormat.UseVisualStyleBackColor = True @@ -279,10 +282,10 @@ Partial Class frmFormDesigner Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnheight_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_minus.Location = New System.Drawing.Point(44, 24) + Me.btnheight_minus.Location = New System.Drawing.Point(84, 69) Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_minus.Name = "btnheight_minus" - Me.btnheight_minus.Size = New System.Drawing.Size(34, 9) + Me.btnheight_minus.Size = New System.Drawing.Size(65, 29) Me.btnheight_minus.TabIndex = 1 Me.btnheight_minus.Text = "kleiner" Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -293,10 +296,10 @@ Partial Class frmFormDesigner Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnheight_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_plus.Location = New System.Drawing.Point(6, 24) + Me.btnheight_plus.Location = New System.Drawing.Point(7, 66) Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_plus.Name = "btnheight_plus" - Me.btnheight_plus.Size = New System.Drawing.Size(34, 9) + Me.btnheight_plus.Size = New System.Drawing.Size(72, 34) Me.btnheight_plus.TabIndex = 0 Me.btnheight_plus.Text = "größer" Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -305,7 +308,7 @@ Partial Class frmFormDesigner 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(5, 18) + Me.Label3.Location = New System.Drawing.Point(8, 50) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(42, 16) Me.Label3.TabIndex = 5 @@ -314,7 +317,7 @@ Partial Class frmFormDesigner 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(5, 2) + Me.Label2.Location = New System.Drawing.Point(4, 2) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(46, 16) Me.Label2.TabIndex = 4 @@ -325,10 +328,10 @@ Partial Class frmFormDesigner Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnwidth_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_minus.Location = New System.Drawing.Point(44, 8) + Me.btnwidth_minus.Location = New System.Drawing.Point(83, 21) Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_minus.Name = "btnwidth_minus" - Me.btnwidth_minus.Size = New System.Drawing.Size(34, 9) + Me.btnwidth_minus.Size = New System.Drawing.Size(66, 26) Me.btnwidth_minus.TabIndex = 1 Me.btnwidth_minus.Text = "kleiner" Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -339,10 +342,10 @@ Partial Class frmFormDesigner Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnwidth_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_plus.Location = New System.Drawing.Point(6, 8) + Me.btnwidth_plus.Location = New System.Drawing.Point(7, 21) Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_plus.Name = "btnwidth_plus" - Me.btnwidth_plus.Size = New System.Drawing.Size(34, 9) + Me.btnwidth_plus.Size = New System.Drawing.Size(72, 27) Me.btnwidth_plus.TabIndex = 0 Me.btnwidth_plus.Text = "größer" Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -473,7 +476,7 @@ Partial Class frmFormDesigner ' Me.Label1.AutoSize = True Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.Label1.Location = New System.Drawing.Point(40, 50) + Me.Label1.Location = New System.Drawing.Point(30, 40) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(347, 16) Me.Label1.TabIndex = 6 @@ -484,7 +487,7 @@ Partial Class frmFormDesigner Me.lblhintergrund.AutoSize = True Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.lblhintergrund.Location = New System.Drawing.Point(40, 40) + Me.lblhintergrund.Location = New System.Drawing.Point(30, 30) Me.lblhintergrund.Name = "lblhintergrund" Me.lblhintergrund.Size = New System.Drawing.Size(248, 29) Me.lblhintergrund.TabIndex = 1 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 48e2412..184e344 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -140,6 +140,9 @@ 206, 17 + + 206, 17 + 17, 56 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 51e5e62..451fc06 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -1145,8 +1145,6 @@ Public Class frmFormDesigner Private Sub bbtnItemFinishSQL_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnItemFinishSQL.ItemClick Try - - CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {ProfileId}" Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 933fa72..f122489 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -15,7 +15,6 @@ Imports System.IO Imports System.Drawing.Imaging Public Class frmMain - 'Private _windreamPM As ClassPMWindream Private UserLoggedin As Integer = 0 Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable Private CURR_DT_OVERVIEW As DataTable @@ -32,7 +31,6 @@ Public Class frmMain Private RefreshHelper As RefreshHelper Private formopenClose As Boolean = False Private formShown As Boolean = False - 'Private _windream As New ClassWindream_allgemein Private allgFunk As New ClassAllgemeineFunktionen Private CurrNavBarGroup As NavBarGroup @@ -193,7 +191,6 @@ Public Class frmMain If IDB_ACTIVE = False And ERROR_STATE = "" Then Try - WINDREAM = New ClassPMWindream WINDREAM.Start_WMCC_andCo() If Not IsNothing(WINDREAM.oSession) Then If WINDREAM.oSession.aLoggedin = False Then @@ -1099,6 +1096,7 @@ Public Class frmMain '_windreamPM.Create_Session() WINDREAM = New ClassPMWindream() WINDREAM.Create_Session() + WINDREAM_ALLG = New ClassWindream_allgemein LOGGER.Debug("windream initialized") Return True @@ -1137,7 +1135,6 @@ Public Class frmMain If IDB_ACTIVE = False Then SOURCE_INIT = Init_windream() - Else SOURCE_INIT = Init_IDB() End If diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 5148fe2..5e05ae0 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -23,8 +23,7 @@ Public Class frmValidator Dim WD_Search As String Dim finalProfile As Boolean Dim Move2Folder As String - 'Private _windreamPM As New ClassPMWindream - Private _windream As ClassWindream_allgemein + Private allgFunk As New ClassAllgemeineFunktionen 'speichert die DocumentDaten @@ -296,30 +295,6 @@ Public Class frmValidator End Sub - - Private Function Init_IDB() - Try - IDBData = New ClassIDBData - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - End Try - End Function - Private Function Init_windream() - Try - WINDREAM = New ClassPMWindream() - WINDREAM.Create_Session() - LOGGER.Debug("windream initialized") - Return True - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry($"ERROR Init_windream >> {ex.Message}") - LOGGER.Info(">> Error Init_windream: " & ex.Message, True) - Return False - End Try - End Function - Public Sub Load_Additional_Searches() If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then Dim oDocResultCommand As String @@ -1717,6 +1692,26 @@ Public Class frmValidator LOGGER.Error(ex) End Try End Sub + Private Sub Controls2beDisabled() + Try + Dim oFilteredDatatable As DataTable = DTCONTROLS.Clone() + Dim oExpression = $"LEN(SQL_ENABLE) > 0" + DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) + If oFilteredDatatable.Rows.Count > 0 Then + LOGGER.Debug($"We got {oFilteredDatatable.Rows.Count} controls which need to be disabled!!") + End If + For Each oRowEnablingControl As DataRow In oFilteredDatatable.Rows + Dim oENABLE_GUID = oRowEnablingControl.Item("GUID") + Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME") + For Each oControl As Control In pnldesigner.Controls + oControl.Enabled = False + Exit For + Next + Next + Catch ex As Exception + LOGGER.Error(ex) + End Try + End Sub Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String) Try Dim resultDT As DataTable = ClassDatabase.Return_Datatable_ConStr(sqlCommand, sqlConnection) @@ -3116,6 +3111,7 @@ Public Class frmValidator Load_Next_Document(True) _dependingControl_in_action = False _dependingColumn_in_action = False + Controls2beDisabled() BringToFront() FormLoaded = True LOGGER.Debug("frmValidation_Shown finished!") @@ -3450,7 +3446,7 @@ Public Class frmValidator 'wenn Move2Folder aktiviert wurde If Move2Folder <> "" Then - idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, _windream) + idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, WINDREAM_ALLG) If idxerr_message <> "" Then errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message My.Settings.Save() @@ -4515,7 +4511,7 @@ Public Class frmValidator End If - Dim resul = allgFunk.Delete_xffres(WMDocPathWindows, _windream) + Dim resul = allgFunk.Delete_xffres(WMDocPathWindows, WINDREAM_ALLG) If resul = Nothing Or resul = True Then Dim oDeleteResult As Boolean = False If IDB_ACTIVE = False Then From e81183a69890278d909036ac5a4edf6ef54ae353 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 18 Mar 2020 10:49:24 +0100 Subject: [PATCH 09/14] DesignerLock --- app/DD_PM_WINDREAM/ClassDatabase.vb | 12 +- app/DD_PM_WINDREAM/ClassWindream_allgemein.vb | 4 +- app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- .../frmFormDesigner.Designer.vb | 193 +++++++++++------- app/DD_PM_WINDREAM/frmFormDesigner.resx | 26 +++ app/DD_PM_WINDREAM/frmFormDesigner.vb | 22 ++ app/DD_PM_WINDREAM/frmMain.vb | 37 ++-- app/DD_PM_WINDREAM/frmValidator.vb | 6 +- 8 files changed, 194 insertions(+), 108 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassDatabase.vb b/app/DD_PM_WINDREAM/ClassDatabase.vb index ca7aaba..4cd6883 100644 --- a/app/DD_PM_WINDREAM/ClassDatabase.vb +++ b/app/DD_PM_WINDREAM/ClassDatabase.vb @@ -80,7 +80,7 @@ Public Class ClassDatabase Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False) Try Dim oConnString = Get_ConnectionString(ConnID) - LOGGER.Debug("ReturnDatatable: " & SQLCommand) + LOGGER.Debug($"Return_Datatable_ConId [{ConnID}]: " & SQLCommand) Dim oSQLconnect As New SqlClient.SqlConnection Dim oSQLcommand As SqlClient.SqlCommand oSQLconnect.ConnectionString = oConnString @@ -103,7 +103,7 @@ Public Class ClassDatabase End Function Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False) Try - LOGGER.Debug("ReturnDatatable: " & SQLCommand) + LOGGER.Debug("Return_Datatable_ConStr: " & SQLCommand) Dim oSQLconnect As New SqlClient.SqlConnection Dim oSQLcommand As SqlClient.SqlCommand oSQLconnect.ConnectionString = ConNStr @@ -133,7 +133,7 @@ Public Class ClassDatabase SQLcommand = SQLconnect.CreateCommand 'Update Last Created Record in Foo SQLcommand.CommandText = ExecuteCMD - LOGGER.Debug("Execute_Command Created: " & ExecuteCMD) + LOGGER.Debug("Execute_non_Query Created: " & ExecuteCMD) SQLcommand.ExecuteNonQuery() SQLcommand.Dispose() SQLconnect.Close() @@ -159,7 +159,7 @@ Public Class ClassDatabase SQLcommand = SQLconnect.CreateCommand 'Update Last Created Record in Foo SQLcommand.CommandText = ExecuteCMD - LOGGER.Debug("Execute_Command Created: " & ExecuteCMD) + LOGGER.Debug("Execute_non_Query_ConStr Created: " & ExecuteCMD) SQLcommand.ExecuteNonQuery() SQLcommand.Dispose() SQLconnect.Close() @@ -187,7 +187,7 @@ Public Class ClassDatabase SQLcommand = SQLconnect.CreateCommand 'Update Last Created Record in Foo SQLcommand.CommandText = cmdscalar - LOGGER.Debug("Execute_non_Query: " & cmdscalar) + LOGGER.Debug("Execute_Scalar: " & cmdscalar) result = SQLcommand.ExecuteScalar() SQLcommand.Dispose() SQLconnect.Close() @@ -213,7 +213,7 @@ Public Class ClassDatabase SQLcommand = SQLconnect.CreateCommand 'Update Last Created Record in Foo SQLcommand.CommandText = cmdscalar - LOGGER.Debug("Execute Scalar: " & cmdscalar) + LOGGER.Debug("Execute_Scalar_ConStr Scalar: " & cmdscalar) result = SQLcommand.ExecuteScalar() SQLcommand.Dispose() SQLconnect.Close() diff --git a/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb b/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb index 17b0692..ce78987 100644 --- a/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb +++ b/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb @@ -56,7 +56,7 @@ Public Class ClassWindream_allgemein Me.oConnect = CreateObject("Windream.WMConnect") 'MsgBox("windrem init 'ed") Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) LOGGER.Debug($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}") Return False End Try @@ -111,7 +111,7 @@ LOGGER.Error(ex) ' Ordnertypen ausgelesen werden Me.oDokumentTypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) Catch ex As Exception -LOGGER.Error(ex) + LOGGER.Error(ex) Return False End Try diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 36fdfb5..ef81e1f 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 5aa378b..d8df6ef 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -58,7 +58,7 @@ Partial Class frmFormDesigner Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.GridControlContextMenu = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem() - Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.SplitContainerDesigner = New System.Windows.Forms.SplitContainer() Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel() Me.Label1 = New System.Windows.Forms.Label() Me.lblhintergrund = New System.Windows.Forms.Label() @@ -66,11 +66,14 @@ Partial Class frmFormDesigner Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.Panel1 = New System.Windows.Forms.Panel() Me.GroupBox1.SuspendLayout() Me.TabControlEigenschaften.SuspendLayout() Me.pageProperties.SuspendLayout() @@ -82,12 +85,13 @@ Partial Class frmFormDesigner CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.GridControlContextMenu.SuspendLayout() - CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainer1.Panel1.SuspendLayout() - Me.SplitContainer1.Panel2.SuspendLayout() - Me.SplitContainer1.SuspendLayout() + CType(Me.SplitContainerDesigner, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerDesigner.Panel1.SuspendLayout() + Me.SplitContainerDesigner.Panel2.SuspendLayout() + Me.SplitContainerDesigner.SuspendLayout() Me.pnldesigner.SuspendLayout() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'GroupBox1 @@ -100,12 +104,13 @@ Partial Class frmFormDesigner Me.GroupBox1.Controls.Add(Me.btndtp) Me.GroupBox1.Controls.Add(Me.btntextbox) Me.GroupBox1.Controls.Add(Me.btnlabel) + Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(7, 5) + Me.GroupBox1.Location = New System.Drawing.Point(0, 0) Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.GroupBox1.Size = New System.Drawing.Size(362, 122) + Me.GroupBox1.Size = New System.Drawing.Size(373, 112) Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" @@ -115,10 +120,10 @@ Partial Class frmFormDesigner Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image) Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnButton.Location = New System.Drawing.Point(215, 20) + Me.btnButton.Location = New System.Drawing.Point(219, 17) Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnButton.Name = "btnButton" - Me.btnButton.Size = New System.Drawing.Size(98, 23) + Me.btnButton.Size = New System.Drawing.Size(100, 24) Me.btnButton.TabIndex = 8 Me.btnButton.Text = "Button" Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -129,10 +134,10 @@ Partial Class frmFormDesigner Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image) Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLine.Location = New System.Drawing.Point(215, 47) + Me.btnLine.Location = New System.Drawing.Point(219, 76) Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnLine.Name = "btnLine" - Me.btnLine.Size = New System.Drawing.Size(98, 23) + Me.btnLine.Size = New System.Drawing.Size(100, 24) Me.btnLine.TabIndex = 7 Me.btnLine.Text = "Linie" Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -143,10 +148,10 @@ Partial Class frmFormDesigner Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(111, 20) + Me.btnTabelle.Location = New System.Drawing.Point(113, 20) Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnTabelle.Name = "btnTabelle" - Me.btnTabelle.Size = New System.Drawing.Size(98, 23) + Me.btnTabelle.Size = New System.Drawing.Size(100, 24) Me.btnTabelle.TabIndex = 6 Me.btnTabelle.Text = "Tabelle" Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -157,10 +162,10 @@ Partial Class frmFormDesigner Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCheckbox.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckbox.Location = New System.Drawing.Point(111, 74) + Me.btnCheckbox.Location = New System.Drawing.Point(113, 76) Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnCheckbox.Name = "btnCheckbox" - Me.btnCheckbox.Size = New System.Drawing.Size(98, 23) + Me.btnCheckbox.Size = New System.Drawing.Size(100, 24) Me.btnCheckbox.TabIndex = 5 Me.btnCheckbox.Text = "Checkbox" Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -171,10 +176,10 @@ Partial Class frmFormDesigner Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnVektor.Image = Global.DD_ProcessManager.My.Resources.Resources.ComboBox_16xLG Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(7, 74) + Me.btnVektor.Location = New System.Drawing.Point(7, 76) Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnVektor.Name = "btnVektor" - Me.btnVektor.Size = New System.Drawing.Size(98, 23) + Me.btnVektor.Size = New System.Drawing.Size(100, 24) Me.btnVektor.TabIndex = 4 Me.btnVektor.Text = "LookupControl" Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -185,10 +190,10 @@ Partial Class frmFormDesigner Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btndtp.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(111, 47) + Me.btndtp.Location = New System.Drawing.Point(113, 48) Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btndtp.Name = "btndtp" - Me.btndtp.Size = New System.Drawing.Size(98, 23) + Me.btndtp.Size = New System.Drawing.Size(100, 24) Me.btndtp.TabIndex = 3 Me.btndtp.Text = "DatePicker" Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -199,10 +204,10 @@ Partial Class frmFormDesigner Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btntextbox.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox_708 Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntextbox.Location = New System.Drawing.Point(7, 47) + Me.btntextbox.Location = New System.Drawing.Point(7, 48) Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btntextbox.Name = "btntextbox" - Me.btntextbox.Size = New System.Drawing.Size(98, 23) + Me.btntextbox.Size = New System.Drawing.Size(100, 24) Me.btntextbox.TabIndex = 1 Me.btntextbox.Text = "Textbox" Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -216,7 +221,7 @@ Partial Class frmFormDesigner Me.btnlabel.Location = New System.Drawing.Point(7, 20) Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnlabel.Name = "btnlabel" - Me.btnlabel.Size = New System.Drawing.Size(98, 23) + Me.btnlabel.Size = New System.Drawing.Size(100, 24) Me.btnlabel.TabIndex = 0 Me.btnlabel.Text = "Label" Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -224,17 +229,15 @@ Partial Class frmFormDesigner ' 'TabControlEigenschaften ' - Me.TabControlEigenschaften.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TabControlEigenschaften.Controls.Add(Me.pageProperties) Me.TabControlEigenschaften.Controls.Add(Me.pageFormat) + Me.TabControlEigenschaften.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControlEigenschaften.Enabled = False - Me.TabControlEigenschaften.Location = New System.Drawing.Point(7, 106) + Me.TabControlEigenschaften.Location = New System.Drawing.Point(0, 0) Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.TabControlEigenschaften.Name = "TabControlEigenschaften" Me.TabControlEigenschaften.SelectedIndex = 0 - Me.TabControlEigenschaften.Size = New System.Drawing.Size(366, 415) + Me.TabControlEigenschaften.Size = New System.Drawing.Size(373, 308) Me.TabControlEigenschaften.TabIndex = 22 ' 'pageProperties @@ -244,7 +247,7 @@ Partial Class frmFormDesigner Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageProperties.Name = "pageProperties" Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageProperties.Size = New System.Drawing.Size(358, 386) + Me.pageProperties.Size = New System.Drawing.Size(365, 279) Me.pageProperties.TabIndex = 3 Me.pageProperties.Text = "Eigenschaften" Me.pageProperties.UseVisualStyleBackColor = True @@ -256,7 +259,7 @@ Partial Class frmFormDesigner Me.pgControls.Location = New System.Drawing.Point(3, 2) Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pgControls.Name = "pgControls" - Me.pgControls.Size = New System.Drawing.Size(352, 382) + Me.pgControls.Size = New System.Drawing.Size(359, 275) Me.pgControls.TabIndex = 0 ' 'pageFormat @@ -272,7 +275,7 @@ Partial Class frmFormDesigner Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageFormat.Name = "pageFormat" Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageFormat.Size = New System.Drawing.Size(358, 361) + Me.pageFormat.Size = New System.Drawing.Size(365, 279) Me.pageFormat.TabIndex = 1 Me.pageFormat.Text = "Format" Me.pageFormat.UseVisualStyleBackColor = True @@ -282,10 +285,10 @@ Partial Class frmFormDesigner Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnheight_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_minus.Location = New System.Drawing.Point(84, 69) + Me.btnheight_minus.Location = New System.Drawing.Point(116, 64) Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_minus.Name = "btnheight_minus" - Me.btnheight_minus.Size = New System.Drawing.Size(65, 29) + Me.btnheight_minus.Size = New System.Drawing.Size(100, 24) Me.btnheight_minus.TabIndex = 1 Me.btnheight_minus.Text = "kleiner" Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -296,10 +299,10 @@ Partial Class frmFormDesigner Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnheight_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_plus.Location = New System.Drawing.Point(7, 66) + Me.btnheight_plus.Location = New System.Drawing.Point(10, 64) Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_plus.Name = "btnheight_plus" - Me.btnheight_plus.Size = New System.Drawing.Size(72, 34) + Me.btnheight_plus.Size = New System.Drawing.Size(100, 24) Me.btnheight_plus.TabIndex = 0 Me.btnheight_plus.Text = "größer" Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -308,7 +311,7 @@ Partial Class frmFormDesigner 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(8, 50) + Me.Label3.Location = New System.Drawing.Point(10, 46) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(42, 16) Me.Label3.TabIndex = 5 @@ -317,7 +320,7 @@ Partial Class frmFormDesigner 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(4, 2) + Me.Label2.Location = New System.Drawing.Point(6, 2) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(46, 16) Me.Label2.TabIndex = 4 @@ -328,10 +331,10 @@ Partial Class frmFormDesigner Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnwidth_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_minus.Location = New System.Drawing.Point(83, 21) + Me.btnwidth_minus.Location = New System.Drawing.Point(116, 20) Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_minus.Name = "btnwidth_minus" - Me.btnwidth_minus.Size = New System.Drawing.Size(66, 26) + Me.btnwidth_minus.Size = New System.Drawing.Size(100, 24) Me.btnwidth_minus.TabIndex = 1 Me.btnwidth_minus.Text = "kleiner" Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -342,10 +345,10 @@ Partial Class frmFormDesigner Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnwidth_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_plus.Location = New System.Drawing.Point(7, 21) + Me.btnwidth_plus.Location = New System.Drawing.Point(10, 20) Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_plus.Name = "btnwidth_plus" - Me.btnwidth_plus.Size = New System.Drawing.Size(72, 27) + Me.btnwidth_plus.Size = New System.Drawing.Size(100, 24) Me.btnwidth_plus.TabIndex = 0 Me.btnwidth_plus.Text = "größer" Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -369,9 +372,9 @@ Partial Class frmFormDesigner 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 669) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 566) Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(1227, 22) + Me.StatusStrip1.Size = New System.Drawing.Size(1199, 22) Me.StatusStrip1.TabIndex = 20 Me.StatusStrip1.Text = "StatusStrip1" ' @@ -437,23 +440,23 @@ Partial Class frmFormDesigner Me.MenuItemAddColumn.Size = New System.Drawing.Size(169, 22) Me.MenuItemAddColumn.Text = "Spalte hinzufügen" ' - 'SplitContainer1 + 'SplitContainerDesigner ' - Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainer1.Location = New System.Drawing.Point(0, 146) - Me.SplitContainer1.Name = "SplitContainer1" + Me.SplitContainerDesigner.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerDesigner.Location = New System.Drawing.Point(0, 146) + Me.SplitContainerDesigner.Name = "SplitContainerDesigner" ' - 'SplitContainer1.Panel1 + 'SplitContainerDesigner.Panel1 ' - Me.SplitContainer1.Panel1.Controls.Add(Me.pnldesigner) + Me.SplitContainerDesigner.Panel1.Controls.Add(Me.pnldesigner) ' - 'SplitContainer1.Panel2 + 'SplitContainerDesigner.Panel2 ' - Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) - Me.SplitContainer1.Panel2.Controls.Add(Me.TabControlEigenschaften) - Me.SplitContainer1.Size = New System.Drawing.Size(1227, 523) - Me.SplitContainer1.SplitterDistance = 842 - Me.SplitContainer1.TabIndex = 25 + Me.SplitContainerDesigner.Panel2.Controls.Add(Me.Panel1) + Me.SplitContainerDesigner.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainerDesigner.Size = New System.Drawing.Size(1199, 420) + Me.SplitContainerDesigner.SplitterDistance = 822 + Me.SplitContainerDesigner.TabIndex = 25 ' 'pnldesigner ' @@ -469,14 +472,14 @@ Partial Class frmFormDesigner Me.pnldesigner.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pnldesigner.Name = "pnldesigner" Me.pnldesigner.ShowGrid = True - Me.pnldesigner.Size = New System.Drawing.Size(842, 523) + Me.pnldesigner.Size = New System.Drawing.Size(822, 420) Me.pnldesigner.TabIndex = 3 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.Label1.Location = New System.Drawing.Point(30, 40) + Me.Label1.Location = New System.Drawing.Point(30, 20) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(347, 16) Me.Label1.TabIndex = 6 @@ -487,7 +490,7 @@ Partial Class frmFormDesigner Me.lblhintergrund.AutoSize = True Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.lblhintergrund.Location = New System.Drawing.Point(30, 30) + Me.lblhintergrund.Location = New System.Drawing.Point(30, 20) Me.lblhintergrund.Name = "lblhintergrund" Me.lblhintergrund.Size = New System.Drawing.Size(248, 29) Me.lblhintergrund.TabIndex = 1 @@ -496,12 +499,12 @@ Partial Class frmFormDesigner 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 4 + Me.RibbonControl1.MaxItemId = 6 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.Size = New System.Drawing.Size(1227, 146) + Me.RibbonControl1.Size = New System.Drawing.Size(1199, 146) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'bbtnItemFinishSQL @@ -525,18 +528,42 @@ Partial Class frmFormDesigner Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem2.Name = "BarButtonItem2" ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Designer locked" + Me.BarButtonItem3.Id = 4 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.ItemAppearance.Normal.BackColor = System.Drawing.Color.Red + Me.BarButtonItem3.ItemAppearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BarButtonItem3.ItemAppearance.Normal.Options.UseBackColor = True + Me.BarButtonItem3.ItemAppearance.Normal.Options.UseFont = True + Me.BarButtonItem3.Name = "BarButtonItem3" + ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Hintergrundfunktionen" ' 'RibbonPageGroup1 ' Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Funktionen" ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 588) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1199, 21) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' 'RibbonPageGroup2 ' Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) @@ -544,25 +571,33 @@ Partial Class frmFormDesigner Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Text = "Control-Funktionen" ' - 'RibbonStatusBar1 + 'BarStaticItem1 ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 691) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1227, 21) + Me.BarStaticItem1.Caption = "Locked" + Me.BarStaticItem1.Id = 5 + Me.BarStaticItem1.ItemAppearance.Normal.Font = New System.Drawing.Font("Tahoma", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BarStaticItem1.ItemAppearance.Normal.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.BarStaticItem1.ItemAppearance.Normal.Options.UseFont = True + Me.BarStaticItem1.ItemAppearance.Normal.Options.UseForeColor = True + Me.BarStaticItem1.Name = "BarStaticItem1" + Me.BarStaticItem1.TextAlignment = System.Drawing.StringAlignment.Center ' - 'RibbonPage2 + 'Panel1 ' - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "RibbonPage2" + Me.Panel1.Controls.Add(Me.TabControlEigenschaften) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 112) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(373, 308) + Me.Panel1.TabIndex = 23 ' 'frmFormDesigner ' Me.Appearance.Options.UseFont = True Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1227, 712) - Me.Controls.Add(Me.SplitContainer1) + Me.ClientSize = New System.Drawing.Size(1199, 609) + Me.Controls.Add(Me.SplitContainerDesigner) Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) @@ -587,13 +622,14 @@ Partial Class frmFormDesigner CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.GridControlContextMenu.ResumeLayout(False) - Me.SplitContainer1.Panel1.ResumeLayout(False) - Me.SplitContainer1.Panel2.ResumeLayout(False) - CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainer1.ResumeLayout(False) + Me.SplitContainerDesigner.Panel1.ResumeLayout(False) + Me.SplitContainerDesigner.Panel2.ResumeLayout(False) + CType(Me.SplitContainerDesigner, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerDesigner.ResumeLayout(False) Me.pnldesigner.ResumeLayout(False) Me.pnldesigner.PerformLayout() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -634,7 +670,7 @@ Partial Class frmFormDesigner Friend WithEvents btnLine As Button Friend WithEvents GridControlContextMenu As ContextMenuStrip Friend WithEvents MenuItemAddColumn As ToolStripMenuItem - Friend WithEvents SplitContainer1 As SplitContainer + Friend WithEvents SplitContainerDesigner As SplitContainer Friend WithEvents btnButton As Button Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage @@ -644,5 +680,8 @@ Partial Class frmFormDesigner Friend WithEvents bbtnItemFinishSQL As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents Panel1 As Panel + Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 184e344..260a379 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -243,6 +243,32 @@ MTBsMy41LTMuNUM5LjcsMjYuNywxMi43LDI4LDE2LDI4YzUuOSwwLDEwLjgtNC4zLDExLjgtMTAgICBo LTQuMUMyMi44LDIxLjQsMTkuNywyNCwxNiwyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2 Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFYEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTZWN1cml0eV94NUZf + UGVybWlzc2lvbiI+DQogICAgPHBhdGggZD0iTTI3LDEwaC0zVjhjMC00LjQtMy42LTgtOC04UzgsMy42 + LDgsOHYySDVjLTAuNiwwLTEsMC41LTEsMXYxOGMwLDAuNSwwLjQsMSwxLDFoMjJjMC42LDAsMS0wLjUs + MS0xVjExICAgQzI4LDEwLjUsMjcuNiwxMCwyNywxMHogTTE4LDI0aC00bDEuNC00LjFjLTAuOC0wLjMt + MS40LTEtMS40LTEuOWMwLTEuMSwwLjktMiwyLTJzMiwwLjksMiwyYzAsMC45LTAuNiwxLjYtMS40LDEu + OUwxOCwyNHogTTEyLDEwICAgVjhjMC0yLjIsMS44LTQsNC00czQsMS44LDQsNHYySDEyeiIgY2xhc3M9 + IlllbGxvdyIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 451fc06..e645203 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -11,6 +11,7 @@ Public Class frmFormDesigner Public ProfileId As Integer Public ProfileName As String Public ProfileObjectType As String + Public Designer_Locked As Boolean = True ' Control Variables Private CurrentControl As Control = Nothing @@ -33,6 +34,10 @@ Public Class frmFormDesigner Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load Try + + BarButtonItem3.Caption = "Designer locked" + BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red + Designer_Locked = True ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER CURRENT_DESIGN_TYPE = "INPUT_INDEX" @@ -660,6 +665,9 @@ Public Class frmFormDesigner Private Sub OnControl_MouseDown(sender As Control, e As MouseEventArgs) If e.Button = MouseButtons.Left Then + If Designer_Locked Then + Exit Sub + End If CurrentControl = sender Mouse_BeginLocation = e.Location sender.BringToFront() @@ -1180,4 +1188,18 @@ Public Class frmFormDesigner Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick LoadControls() End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + If BarButtonItem3.Caption = "Designer locked" Then + + BarButtonItem3.Caption = "Designer active" + BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Lime + Designer_Locked = False + Else + + BarButtonItem3.Caption = "Designer locked" + BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red + Designer_Locked = True + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index f122489..688fa02 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -191,25 +191,30 @@ Public Class frmMain If IDB_ACTIVE = False And ERROR_STATE = "" Then Try - WINDREAM.Start_WMCC_andCo() - If Not IsNothing(WINDREAM.oSession) Then - If WINDREAM.oSession.aLoggedin = False Then - MsgBox("You could not be logged in to windream. Please check the log.", MsgBoxStyle.Critical) + If Init_windream() = True Then + WINDREAM.Start_WMCC_andCo() + If Not IsNothing(WINDREAM.oSession) Then + If WINDREAM.oSession.aLoggedin = False Then + MsgBox("You could not be logged in to windream. Please check the log.", MsgBoxStyle.Critical) + End If + Else + MsgBox("Login on windream was not possible. Please check the log.", MsgBoxStyle.Critical) End If - Else - MsgBox("Login on windream was not possible. Please check the log.", MsgBoxStyle.Critical) End If - '_windreamPM = New ClassPMWindream - '_windreamPM.Start_WMCC_andCo() + Catch ex As Exception LOGGER.Error(ex) MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") End Try Else - Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'" - IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) - LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}") + SOURCE_INIT = Init_IDB() + If SOURCE_INIT = True Then + Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'" + IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) + LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}") + End If + End If @@ -1097,9 +1102,7 @@ Public Class frmMain WINDREAM = New ClassPMWindream() WINDREAM.Create_Session() WINDREAM_ALLG = New ClassWindream_allgemein - - LOGGER.Debug("windream initialized") - Return True + Return WINDREAM.IsLoggedIn Catch ex As Exception LOGGER.Error(ex) MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") @@ -1133,12 +1136,6 @@ Public Class frmMain Exit Sub End If - If IDB_ACTIVE = False Then - SOURCE_INIT = Init_windream() - Else - SOURCE_INIT = Init_IDB() - End If - If SOURCE_INIT = True Then diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 5e05ae0..2239d94 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1704,8 +1704,10 @@ Public Class frmValidator Dim oENABLE_GUID = oRowEnablingControl.Item("GUID") Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME") For Each oControl As Control In pnldesigner.Controls - oControl.Enabled = False - Exit For + If oENABLE_GUID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid Then + oControl.Enabled = False + Exit For + End If Next Next Catch ex As Exception From 0f7749c81097896df3c6230e66c2d089d7ced32d Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 18 Mar 2020 13:56:14 +0100 Subject: [PATCH 10/14] MS GridControlConnID --- app/DD_PM_WINDREAM/frmValidator.vb | 262 +++++++++++++++-------------- 1 file changed, 138 insertions(+), 124 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 2239d94..eb4e882 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -57,7 +57,7 @@ Public Class frmValidator Private DTCONTROLS As DataTable Private DTGRID_COLUMNS_WITH_SQL As DataTable Private DTGRID_COLUMNS As DataTable - Private DTGRID_COLUMNS_TEXTBOX As DataTable + Private DTGRID_SQL_DEFINITION As DataTable Public FormLoaded As Boolean = False Private ItemWorked As Boolean = False @@ -637,13 +637,13 @@ Public Class frmValidator pnldesigner.Controls.Clear() Dim oSQL = $"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,'{USER_LANGUAGE}',CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG, * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC" DTCONTROLS = ClassDatabase.Return_Datatable(oSQL) - oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0 ORDER BY T.SEQUENCE" + oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.CONNECTION_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0 ORDER BY T.SEQUENCE" DTGRID_COLUMNS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL) oSQL = $"SELECT T.* from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY T.SEQUENCE" DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL) - oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1 ORDER BY T.SEQUENCE" - DTGRID_COLUMNS_TEXTBOX = ClassDatabase.Return_Datatable(oSQL) + oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.CONNECTION_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1 ORDER BY T.SEQUENCE" + DTGRID_SQL_DEFINITION = ClassDatabase.Return_Datatable(oSQL) Dim oCount As Integer = 0 @@ -1221,7 +1221,9 @@ Public Class frmValidator End If Case "Override_Direct".ToUpper Override = True - Finish_WFStep() + Finish_WFStep(False) + Case "Override incFinal".ToUpper + Finish_WFStep(False) Case Else MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) LOGGER.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") @@ -1562,6 +1564,7 @@ Public Class frmValidator If oSQLColumnDatatable.Rows.Count > 0 Then For Each oRow As DataRow In oSQLColumnDatatable.Rows Dim oDEPENDING_GUID = DTGRID_COLUMNS_WITH_SQL.Rows(0).Item("CONTROL_ID") + Dim oCONNID = DTGRID_COLUMNS_WITH_SQL.Rows(0).Item("CONNECTION_ID") Dim oDEPENDING_COLUMN = DTGRID_COLUMNS_WITH_SQL.Rows(0).Item("SPALTENNAME") Dim oSqlCommand = DTGRID_COLUMNS_WITH_SQL.Rows(0).Item("SQL_COMMAND") If _dependingColumn_in_action = True Then @@ -1571,14 +1574,19 @@ Public Class frmValidator _dependingColumn_in_action = True Try - Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand) - For Each oControl As Control In pnldesigner.Controls - If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then - ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT) - _dependingColumn_in_action = False - Exit For - End If - Next + + Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oCONNID) + If Not IsNothing(oDTDEPENDING_RESULT) Then + LOGGER.Debug($"Trying to fill the DropDown (DC) for GridColumnGuid [{oDEPENDING_GUID}]..RowCount: [{oDTDEPENDING_RESULT.Rows.Count}] ") + For Each oControl As Control In pnldesigner.Controls + If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then + ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT) + _dependingColumn_in_action = False + Exit For + End If + Next + End If + Catch ex As Exception LOGGER.Error(ex) _dependingColumn_in_action = False @@ -1907,13 +1915,13 @@ Public Class frmValidator ' oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" 'Else LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...") - oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)" - oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) - LOGGER.Debug($"Checking file 1[{oResult}] exists?...") - If File.Exists(oResult) = False Then - LOGGER.Warn($"File {oResult} not existing!") - Return False - End If + oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)" + oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) + LOGGER.Debug($"Checking file 1[{oResult}] exists?...") + If File.Exists(oResult) = False Then + LOGGER.Warn($"File {oResult} not existing!") + Return False + End If 'End If End If WMDocPathWindows = oResult @@ -2990,32 +2998,35 @@ Public Class frmValidator ' set_foreground() If first_control Is Nothing = False Then first_control.Focus() Try - For Each oRow As DataRow In DTGRID_COLUMNS_TEXTBOX.Rows + For Each oRow As DataRow In DTGRID_SQL_DEFINITION.Rows + Dim oDEPENDING_GUID = oRow.Item("CONTROL_ID") Dim oDEPENDING_COLUMN = oRow.Item("SPALTENNAME") Dim oSqlCommand = oRow.Item("SQL_COMMAND") + Dim oCONNID = oRow.Item("CONNECTION_ID") oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - Try - Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand) - If Not IsNothing(oDTDEPENDING_RESULT) Then + Dim oDTRESULT_FOR_COLUMN As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oCONNID) + If Not IsNothing(oDTRESULT_FOR_COLUMN) Then + LOGGER.Debug($"Trying to create a DropDown(FI) for GridColumnGuid [{oDEPENDING_GUID}]..RowCount: [{oDTRESULT_FOR_COLUMN.Rows.Count}] ") For Each oControl As Control In pnldesigner.Controls If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then - ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT) - + ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTRESULT_FOR_COLUMN) Exit For End If Next + Else + LOGGER.Warn($"oDTRESULT_FOR_COLUMN is nothing!") End If Catch ex As Exception - LOGGER.Warn($"Unexpected error in creating dropdown for oDEPENDING_GUID {oDEPENDING_GUID} an Column {oDEPENDING_COLUMN} " & ex.Message) + LOGGER.Warn($"Unexpected error in creating dropdown(FI) for oDEPENDING_GUID {oDEPENDING_GUID} an Column {oDEPENDING_COLUMN} " & ex.Message) End Try Next Catch ex As Exception - LOGGER.Warn($"Unexpected error in creating dropdown for Grid: " & ex.Message) + LOGGER.Warn($"Unexpected error in creating dropdown(FI) for Grid: " & ex.Message) End Try @@ -3186,7 +3197,7 @@ Public Class frmValidator Return False End Try End Function - Sub Finish_WFStep() + Sub Finish_WFStep(Optional includeFI As Boolean = True) btnSave.Enabled = False LOGGER.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet") ItemWorked = True @@ -3201,119 +3212,122 @@ Public Class frmValidator End If End If - 'lblerror.Visible = False - Try - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) - Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING - If oDTFinalIndexes?.Rows.Count > 0 Then - 'Jetzt finale Indexe setzen - LOGGER.Debug("FINAL INDEXING STARTING...") - For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows - Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString - Dim oIndexType = 0 - If IDB_ACTIVE = False Then - oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME")) - End If - If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### - LOGGER.Debug("Indexing wih dynamic sql...") - Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") - - oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - If IsNothing(oSQLCommand) Then - errormessage = "Error while replacing Values in final indexing - Check the log" - My.Settings.Save() - frmError.ShowDialog() - oErrorOcurred = True - ItemWorked = False + If includeFI = True Then + Try + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) + Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING + If oDTFinalIndexes?.Rows.Count > 0 Then + 'Jetzt finale Indexe setzen + LOGGER.Debug("FINAL INDEXING STARTING...") + For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows + Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString + Dim oIndexType = 0 + If IDB_ACTIVE = False Then + oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME")) End If - If Not IsNothing(oSQLCommand) Then - Dim oResultfromSQL = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) + If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### + LOGGER.Debug("Indexing wih dynamic sql...") + Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") + + oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + If IsNothing(oSQLCommand) Then + errormessage = "Error while replacing Values in final indexing - Check the log" + My.Settings.Save() + frmError.ShowDialog() + oErrorOcurred = True + ItemWorked = False + End If + If Not IsNothing(oSQLCommand) Then + Dim oResultfromSQL = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) - If Not IsNothing(oResultfromSQL) Then - LOGGER.Debug($"oResultfromSQL is [{oResultfromSQL.ToString}]") - oValue = oResultfromSQL - Else - LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") + If Not IsNothing(oResultfromSQL) Then + LOGGER.Debug($"oResultfromSQL is [{oResultfromSQL.ToString}]") + oValue = oResultfromSQL + Else + LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") + End If End If - End If - Else - If oValue.StartsWith("v") Then - Select Case oFinalIndexRow.Item("VALUE").ToString - Case "vDate" - oValue = Now.ToShortDateString - Case "vUserName" - oValue = USER_USERNAME - Case Else - oValue = oFinalIndexRow.Item("VALUE") - End Select - End If - End If - If oErrorOcurred Then - Exit For - End If - Dim oResult() As String - ReDim Preserve oResult(0) - oResult(0) = oValue - - LOGGER.Debug($"oIndexType {oIndexType.ToString}") - If oIndexType > 4000 And oIndexType < 5000 Then - 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then - ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) - 'Hier muss nun separat as Vektorfeld indexiert werden - If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then - LOGGER.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has beens et suxxessfully!") Else - errormessage = "Error in final indexing:" & vbNewLine & idxerr_message - My.Settings.Save() - frmError.ShowDialog() - oErrorOcurred = True - ItemWorked = False + If oValue.StartsWith("v") Then + Select Case oFinalIndexRow.Item("VALUE").ToString + Case "vDate" + oValue = Now.ToShortDateString + Case "vUserName" + oValue = USER_USERNAME + Case Else + oValue = oFinalIndexRow.Item("VALUE") + End Select + End If End If - Else - LOGGER.Debug("Now the final indexing...") - Dim oFIResult As Boolean = False - If IDB_ACTIVE = False Then - If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then - oFIResult = True - LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") - - 'Nun das Logging - If PROFIL_LOGINDEX <> "" Then - Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) - WMIndexVectofield(logstr, PROFIL_LOGINDEX) - End If + If oErrorOcurred Then + Exit For + End If + Dim oResult() As String + ReDim Preserve oResult(0) + oResult(0) = oValue + + LOGGER.Debug($"oIndexType {oIndexType.ToString}") + If oIndexType > 4000 And oIndexType < 5000 Then + 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then + ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) + 'Hier muss nun separat as Vektorfeld indexiert werden + If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then + LOGGER.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has beens et suxxessfully!") + Else + errormessage = "Error in final indexing:" & vbNewLine & idxerr_message + My.Settings.Save() + frmError.ShowDialog() + oErrorOcurred = True + ItemWorked = False End If Else - If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then - oFIResult = True - LOGGER.Debug("Final index IDB '" & oFinalIndexRow.Item("INDEXNAME") & "' was updated.") + LOGGER.Debug("Now the final indexing...") + Dim oFIResult As Boolean = False + If IDB_ACTIVE = False Then + If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then + oFIResult = True + LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") + + 'Nun das Logging + If PROFIL_LOGINDEX <> "" Then + Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) + WMIndexVectofield(logstr, PROFIL_LOGINDEX) + End If + End If + Else + If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then + oFIResult = True + LOGGER.Debug("Final index IDB '" & oFinalIndexRow.Item("INDEXNAME") & "' was updated.") + End If End If + If oFIResult = False Then + errormessage = "Error in final indexing:" & vbNewLine & idxerr_message + My.Settings.Save() + frmError.ShowDialog() + oErrorOcurred = True + ItemWorked = False + End If + End If - If oFIResult = False Then - errormessage = "Error in final indexing:" & vbNewLine & idxerr_message - My.Settings.Save() - frmError.ShowDialog() - oErrorOcurred = True + If oErrorOcurred = True Then ItemWorked = False + Exit For End If - - End If - If oErrorOcurred = True Then - ItemWorked = False - Exit For - End If - Next - End If + Next + End If + Catch ex As Exception + LOGGER.Warn($"Error in finalIndexing: {ex.Message}") + oErrorOcurred = True + End Try + End If + Try ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde If Override = True And Override_SQLCommand <> "" Then ClassDatabase.Execute_non_Query(Override_SQLCommand) End If If oErrorOcurred = False Then - 'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID) - ''Das Dokument - 'TBPM_PROFILE_FILESTableAdapter.CmdSetEdit(Document_ID) Dim WORK_HISTORY_ENTRY = Nothing Try From 42eef08dc5ff13a579d13b71d4052a0dff99699a Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 23 Mar 2020 16:14:39 +0100 Subject: [PATCH 11/14] MS --- app/DD_PM_WINDREAM/frmMain.Designer.vb | 15 +- app/DD_PM_WINDREAM/frmMain.resx | 239 ++++++++++++------------- app/DD_PM_WINDREAM/frmMain.vb | 26 +-- app/DD_PM_WINDREAM/frmValidator.vb | 127 +++++++------ 4 files changed, 203 insertions(+), 204 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 7d4e609..816e660 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -93,6 +93,7 @@ Partial Class frmMain Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar() Me.bbtnitDashboardInv = New DevExpress.XtraBars.BarButtonItem() + Me.bsiGeneralInfo = New DevExpress.XtraBars.BarStaticItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -507,9 +508,9 @@ Partial Class frmMain 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 18 + Me.RibbonControl1.MaxItemId = 19 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo) @@ -657,6 +658,14 @@ Partial Class frmMain Me.bbtnitDashboardInv.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitDashboardInv.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.bbtnitDashboardInv.Name = "bbtnitDashboardInv" ' + 'bsiGeneralInfo + ' + Me.bsiGeneralInfo.Id = 18 + Me.bsiGeneralInfo.ImageOptions.SvgImage = CType(resources.GetObject("bsiGeneralInfo.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bsiGeneralInfo.Name = "bsiGeneralInfo" + Me.bsiGeneralInfo.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.bsiGeneralInfo.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4}) @@ -699,6 +708,7 @@ Partial Class frmMain Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUser) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiLicenses) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUserLoggedIn) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiGeneralInfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiVersion) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug) @@ -1499,4 +1509,5 @@ Partial Class frmMain Friend WithEvents PrintPreviewBarCheckItem19 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem Friend WithEvents Panel1 As Panel Friend WithEvents bbtnitDashboardInv As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bsiGeneralInfo As DevExpress.XtraBars.BarStaticItem End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 383d8b2..7a17c3f 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAATQBBgE0AQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAUQBBgFEAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -178,114 +178,10 @@ 597, 17 - - 17, 134 - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 1 - - - NavBarControl1 - - - DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 2 - - - - Fill - - - - Tahoma, 9pt - - - 0, 146 - - - 1347, 360 - - - - 4 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 3 - 392, 95 - - 270, 198 - - - ContextMenuGrid - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fill - - - 233, 27 - - - 1114, 333 - - - 8 - - - False - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - + 269, 26 @@ -314,6 +210,7 @@ Metadaten Datei anzeigen + False @@ -366,6 +263,43 @@ Layout speichern + + 270, 198 + + + ContextMenuGrid + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + Fill + + + 233, 27 + + + 1114, 333 + + + 8 + + + False + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + 17, 134 @@ -440,6 +374,9 @@ False + + Segoe UI, 9pt + 50, 23 @@ -569,6 +506,12 @@ 541, 95 + + 219, 26 + + + Starte Validierung für Profil + 220, 30 @@ -722,11 +665,32 @@ 2 - - 219, 26 + + Fill - - Starte Validierung für Profil + + Tahoma, 9pt + + + 0, 146 + + + 1347, 360 + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 908, 17 @@ -734,6 +698,18 @@ 519, 134 + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 234, 22 + + + Monitor anzeigen + 235, 48 @@ -915,18 +891,6 @@ True - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 234, 22 - - - Monitor anzeigen - 1023, 17 @@ -1273,6 +1237,25 @@ NnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0yNC42LDExLjZsLTMsM2MwLjMsMC43LDAu NCwxLjUsMC40LDIuNHYzaDR2LTNDMjYsMTUsMjUuNSwxMy4yLDI0LjYsMTEuNnoiIGNsYXNzPSJSZWQi IC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJoCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iSW5mb3JtYXRpb24iIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcg + MCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5ZZWxsb3d7ZmlsbDojRkZCMTE1 + O30KCS5CbHVle2ZpbGw6IzExNzdENzt9Cjwvc3R5bGU+DQogIDxwYXRoIGQ9Ik0yMSwxNGMtNSwwLTks + NC05LDljMCw1LDQsOSw5LDlzOS00LDktOUMzMCwxOCwyNiwxNCwyMSwxNHogTTIyLDI4aC0ydi02aDJW + Mjh6IE0yMiwyMGgtMnYtMmgyVjIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDxwYXRoIGQ9Ik0xMCwyM2Mw + LTYuMSw0LjktMTEsMTEtMTFjMC4zLDAsMC43LDAsMSwwLjFWNEgzQzIuNCw0LDIsMy42LDIsM2MwLTAu + NiwwLjQtMSwxLTFoMTlWMWMwLTAuNi0wLjQtMS0xLTFIMyAgQzEuMywwLDAsMS4zLDAsM3YyMGMwLDEu + NywxLjMsMywzLDNoNy40QzEwLjIsMjUsMTAsMjQsMTAsMjN6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9z + dmc+Cw== @@ -1987,6 +1970,12 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bsiGeneralInfo + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -2637,9 +2626,6 @@ &Ansicht - - &Hintergrund - &Seiten Layout @@ -2652,6 +2638,9 @@ Bars + + &Hintergrund + PDF Dokument diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 688fa02..d7d2c78 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -214,7 +214,7 @@ Public Class frmMain IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}") End If - + bsiGeneralInfo.Caption = "IDB active" End If @@ -837,9 +837,8 @@ Public Class frmMain End If If CHANGES_IN_ADMINISTRATION = True Then - CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1") - Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC" - DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL) + LoadCURRENT_DT_PROFILES() + LoadVWPM_CONTROL_INDEX() CHANGES_IN_ADMINISTRATION = False End If @@ -1552,6 +1551,13 @@ Public Class frmMain ' Save expanded GroupRows If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() End Sub + Sub LoadCURRENT_DT_PROFILES() + CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1") + End Sub + Sub LoadVWPM_CONTROL_INDEX() + Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC" + DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL) + End Sub Sub GetBaseData(pMode As String) Dim oStopWatch As New RefreshHelper.SW("GetBaseData") Try @@ -1563,7 +1569,8 @@ Public Class frmMain oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID) CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(oSQL) If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30) - CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1") + LoadCURRENT_DT_PROFILES() + If pMode = "Load" Then CURRENT_DT_PROFILE = CURRENT_DT_PROFILES.Clone() End If @@ -1578,14 +1585,7 @@ Public Class frmMain BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Clone() End If If pMode = "bwBasicData" Then bwBasicData.ReportProgress(60) - 'oSQL = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID) - 'CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSQL) - 'If pMode = "bwBasicData" Then bwBasicData.ReportProgress(70) - 'DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1") - 'oSQL = "SELECT * FROM TBPM_CHART" - 'DT_CHARTS = ClassDatabase.Return_Datatable(oSQL) - oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC" - DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL) + LoadVWPM_CONTROL_INDEX() If pMode = "bwBasicData" Then bwBasicData.ReportProgress(80) If pMode = "Load" Then DTVWCONTROL_INDEX = DTVWCONTROLS_INDEX.Clone() diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index eb4e882..645c059 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1901,12 +1901,13 @@ Public Class frmValidator End Try End Function - Private Function GetWMDocPathWindows(_CheckStandard As Integer) + Private Function GetDocPathWindows(_CheckStandard As Integer) Try Dim oResult As String Dim oSQL = $"SELECT dbo.FNPM_GET_FILEPATH ({CURRENT_DOC_GUID},{_CheckStandard})" oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) LOGGER.Debug($"Checking file 0 [{oResult}] exists?...") + WMDocPathWindows = String.Empty If File.Exists(oResult) = False Then 'If USER_USERNAME = "SchreiberM" Then ' oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" @@ -1919,7 +1920,7 @@ Public Class frmValidator oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) LOGGER.Debug($"Checking file 1[{oResult}] exists?...") If File.Exists(oResult) = False Then - LOGGER.Warn($"File {oResult} not existing!") + LOGGER.Warn($"GetDocPathWindows: File [{oResult}] not existing!") Return False End If 'End If @@ -1933,7 +1934,7 @@ Public Class frmValidator WMDocPathWindows = "" OLD_Document_Path = "" CURRENT_DOC_PATH = "" - errormessage = $"Unexpected error in GetWMDocPathWindows: [{ex.Message}]!" + errormessage = $"Unexpected error in GetDocPathWindows: [{ex.Message}]!" frmError.ShowDialog() Return False End Try @@ -1995,7 +1996,7 @@ Public Class frmValidator End If LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") If CURRENT_DOC_GUID > 0 Then - If GetWMDocPathWindows(0) = False Then + If GetDocPathWindows(0) = False Then MsgBox("The file can not be diplayed!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) End If If IDB_ACTIVE = False Then @@ -2004,93 +2005,91 @@ Public Class frmValidator End If Else Load_IDB_DOC_DATA() - If IDB_DT_DOC_DATA.Rows.Count = 1 Then LOGGER.Debug("Got one IDB DocData Result") End If End If 'Beschriftung des Navigators 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files" - If WMDocPathWindows <> String.Empty Then - ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### - Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}" - ClassDatabase.Execute_non_Query(sql) - - ' ############ Infos eintragen ################# - ' txtDateipfad.Text = Document_Path - bsiInformation.Caption = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString - LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet") - bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID - - LOGGER.Debug("AllDocInfo created...") - If IDB_ACTIVE = False Then - oErrorMessage = Windream_get_Doc_info() - Else - ' oErrorMessage = IDB_GetDocInfo() - End If + 'If WMDocPathWindows <> String.Empty Then + ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### + Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}" + ClassDatabase.Execute_non_Query(sql) + ' ############ Infos eintragen ################# + ' txtDateipfad.Text = Document_Path + bsiInformation.Caption = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString + bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID + LOGGER.Debug("AllDocInfo created...") + If IDB_ACTIVE = False Then + oErrorMessage = Windream_get_Doc_info() + Else + ' oErrorMessage = IDB_GetDocInfo() + End If - If oErrorMessage = "" Then + + If oErrorMessage = "" Then + If WMDocPathWindows <> String.Empty Then load_viewer() LOGGER.Debug("Viewer loaded!") If WMDocPathWindows.ToLower.EndsWith(".pdf") = False Then bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If + End If + FillIndexValues(first) - FillIndexValues(first) - - For Each oControl As Control In pnldesigner.Controls - LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) - Next + For Each oControl As Control In pnldesigner.Controls + LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) + Next - LOGGER.Debug("Indexmask loaded") - - 'Nun im Vektoprindex loggen das das Profil geladen wurde - 'If PROFIL_VEKTORINDEX <> "" Then - ' Dim Profilstring = "DD-PM" & PMDelimiter & "Profil: '" & PROFIL_NAME & "'" & PMDelimiter & USER_NAME & PMDelimiter & Now.ToString - ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then - ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben") - ' 'Else - ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - ' ' My.Settings.Save() - ' ' frmError.ShowDialog() - ' ' _error = True - ' End If - 'End If - 'Nun loggen das das Profil geladen wurde - If PROFIL_LOGINDEX <> "" Then - Dim oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]{PMDelimiter}{USER_USERNAME}{PMDelimiter}{Now.ToString}" - If IDB_ACTIVE = False Then - WMIndexVectofield(oLogString, PROFIL_LOGINDEX) - Else - oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]" - IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString) - 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") - 'Else - ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - ' My.Settings.Save() - ' frmError.ShowDialog() - ' _error = True + LOGGER.Debug("Indexmask loaded") + + 'Nun im Vektoprindex loggen das das Profil geladen wurde + 'If PROFIL_VEKTORINDEX <> "" Then + ' Dim Profilstring = "DD-PM" & PMDelimiter & "Profil: '" & PROFIL_NAME & "'" & PMDelimiter & USER_NAME & PMDelimiter & Now.ToString + ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then + ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben") + ' 'Else + ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + ' ' My.Settings.Save() + ' ' frmError.ShowDialog() + ' ' _error = True + ' End If + 'End If + 'Nun loggen das das Profil geladen wurde + If PROFIL_LOGINDEX <> "" Then + Dim oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]{PMDelimiter}{USER_USERNAME}{PMDelimiter}{Now.ToString}" + If IDB_ACTIVE = False Then + WMIndexVectofield(oLogString, PROFIL_LOGINDEX) + Else + oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]" + IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString) + 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") + 'Else + ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + ' My.Settings.Save() + ' frmError.ShowDialog() + ' _error = True - End If End If - activate_controls(True) - Else - errormessage = oErrorMessage - frmError.ShowDialog() End If + activate_controls(True) Else errormessage = oErrorMessage - frmError.ShowDialog() - End If - Else + frmError.ShowDialog() + End If + 'Else + ' errormessage = oErrorMessage + ' frmError.ShowDialog() + 'End If + Else If oErrorMessage <> "" Then errormessage = oErrorMessage frmError.ShowDialog() From 4250fa7cb653a82f690085c1ba400baf364851c1 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 26 Mar 2020 14:17:48 +0100 Subject: [PATCH 12/14] MS Bugfix --- .../DD_DMSLiteDataSet.Designer.vb | 2 +- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 54 +-- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 2 +- .../frmFormDesigner.Designer.vb | 156 ++++---- app/DD_PM_WINDREAM/frmFormDesigner.resx | 24 +- app/DD_PM_WINDREAM/frmFormDesigner.vb | 5 +- app/DD_PM_WINDREAM/frmMain.Designer.vb | 16 +- app/DD_PM_WINDREAM/frmMain.resx | 236 +++++++----- app/DD_PM_WINDREAM/frmMain.vb | 97 +++-- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 2 + app/DD_PM_WINDREAM/frmValidator.resx | 342 ++++++++---------- app/DD_PM_WINDREAM/frmValidator.vb | 3 + 12 files changed, 535 insertions(+), 404 deletions(-) diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index c134a57..3ea99a1 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -9367,7 +9367,7 @@ Partial Public Class DD_DMSLiteDataSet Me.columnSkonto = New Global.System.Data.DataColumn("Skonto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSkonto) Me.columnKRED_NAME.AllowDBNull = false - Me.columnKRED_NAME.MaxLength = 9 + Me.columnKRED_NAME.MaxLength = 250 Me.columnANZ_BELEG.AllowDBNull = false End Sub diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index fa53444..e2e8cdd 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -2052,7 +2052,7 @@ ORDER BY Netto DESC - + @@ -2112,7 +2112,7 @@ ORDER BY Netto DESC - + @@ -2208,7 +2208,7 @@ ORDER BY Netto DESC - + @@ -2273,7 +2273,7 @@ ORDER BY Netto DESC - + @@ -2303,7 +2303,7 @@ ORDER BY Netto DESC - + @@ -2326,7 +2326,7 @@ ORDER BY Netto DESC - + @@ -2400,7 +2400,7 @@ ORDER BY Netto DESC - + @@ -2449,7 +2449,7 @@ ORDER BY Netto DESC - + @@ -2464,7 +2464,7 @@ ORDER BY Netto DESC - + @@ -2586,7 +2586,7 @@ ORDER BY Netto DESC - + @@ -2659,7 +2659,7 @@ ORDER BY Netto DESC - + @@ -2710,7 +2710,7 @@ ORDER BY Netto DESC - + @@ -2848,7 +2848,7 @@ ORDER BY Netto DESC - + @@ -2926,7 +2926,7 @@ ORDER BY Netto DESC - + @@ -2967,7 +2967,7 @@ ORDER BY Netto DESC - + @@ -3005,7 +3005,7 @@ ORDER BY Netto DESC - + @@ -3062,7 +3062,7 @@ ORDER BY Netto DESC - + @@ -3120,7 +3120,7 @@ ORDER BY Netto DESC - + @@ -3221,7 +3221,7 @@ ORDER BY Netto DESC - + @@ -3274,7 +3274,7 @@ ORDER BY Netto DESC - + @@ -3290,13 +3290,13 @@ ORDER BY Netto DESC - + - + @@ -3387,11 +3387,11 @@ ORDER BY Netto DESC - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index a27318d..c686965 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -25,8 +25,8 @@ - + diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index d8df6ef..e30baee 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -62,18 +62,21 @@ Partial Class frmFormDesigner Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel() Me.Label1 = New System.Windows.Forms.Label() Me.lblhintergrund = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() - Me.Panel1 = New System.Windows.Forms.Panel() + Me.RPGControlFunction = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.GroupBox1.SuspendLayout() Me.TabControlEigenschaften.SuspendLayout() Me.pageProperties.SuspendLayout() @@ -90,8 +93,8 @@ Partial Class frmFormDesigner Me.SplitContainerDesigner.Panel2.SuspendLayout() Me.SplitContainerDesigner.SuspendLayout() Me.pnldesigner.SuspendLayout() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GroupBox1 @@ -110,7 +113,7 @@ Partial Class frmFormDesigner Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.GroupBox1.Size = New System.Drawing.Size(373, 112) + Me.GroupBox1.Size = New System.Drawing.Size(373, 133) Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" @@ -120,10 +123,10 @@ Partial Class frmFormDesigner Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image) Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnButton.Location = New System.Drawing.Point(219, 17) + Me.btnButton.Location = New System.Drawing.Point(228, 28) Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnButton.Name = "btnButton" - Me.btnButton.Size = New System.Drawing.Size(100, 24) + Me.btnButton.Size = New System.Drawing.Size(100, 25) Me.btnButton.TabIndex = 8 Me.btnButton.Text = "Button" Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -134,10 +137,10 @@ Partial Class frmFormDesigner Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image) Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLine.Location = New System.Drawing.Point(219, 76) + Me.btnLine.Location = New System.Drawing.Point(228, 87) Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnLine.Name = "btnLine" - Me.btnLine.Size = New System.Drawing.Size(100, 24) + Me.btnLine.Size = New System.Drawing.Size(100, 25) Me.btnLine.TabIndex = 7 Me.btnLine.Text = "Linie" Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -148,10 +151,10 @@ Partial Class frmFormDesigner Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(113, 20) + Me.btnTabelle.Location = New System.Drawing.Point(122, 29) Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnTabelle.Name = "btnTabelle" - Me.btnTabelle.Size = New System.Drawing.Size(100, 24) + Me.btnTabelle.Size = New System.Drawing.Size(100, 25) Me.btnTabelle.TabIndex = 6 Me.btnTabelle.Text = "Tabelle" Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -162,10 +165,10 @@ Partial Class frmFormDesigner Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCheckbox.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckbox.Location = New System.Drawing.Point(113, 76) + Me.btnCheckbox.Location = New System.Drawing.Point(122, 87) Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnCheckbox.Name = "btnCheckbox" - Me.btnCheckbox.Size = New System.Drawing.Size(100, 24) + Me.btnCheckbox.Size = New System.Drawing.Size(100, 25) Me.btnCheckbox.TabIndex = 5 Me.btnCheckbox.Text = "Checkbox" Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -176,10 +179,10 @@ Partial Class frmFormDesigner Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnVektor.Image = Global.DD_ProcessManager.My.Resources.Resources.ComboBox_16xLG Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(7, 76) + Me.btnVektor.Location = New System.Drawing.Point(16, 87) Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnVektor.Name = "btnVektor" - Me.btnVektor.Size = New System.Drawing.Size(100, 24) + Me.btnVektor.Size = New System.Drawing.Size(100, 25) Me.btnVektor.TabIndex = 4 Me.btnVektor.Text = "LookupControl" Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -190,10 +193,10 @@ Partial Class frmFormDesigner Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btndtp.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(113, 48) + Me.btndtp.Location = New System.Drawing.Point(122, 58) Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btndtp.Name = "btndtp" - Me.btndtp.Size = New System.Drawing.Size(100, 24) + Me.btndtp.Size = New System.Drawing.Size(100, 25) Me.btndtp.TabIndex = 3 Me.btndtp.Text = "DatePicker" Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -204,10 +207,10 @@ Partial Class frmFormDesigner Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btntextbox.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox_708 Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntextbox.Location = New System.Drawing.Point(7, 48) + Me.btntextbox.Location = New System.Drawing.Point(16, 58) Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btntextbox.Name = "btntextbox" - Me.btntextbox.Size = New System.Drawing.Size(100, 24) + Me.btntextbox.Size = New System.Drawing.Size(100, 25) Me.btntextbox.TabIndex = 1 Me.btntextbox.Text = "Textbox" Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -218,10 +221,10 @@ Partial Class frmFormDesigner Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnlabel.Image = Global.DD_ProcessManager.My.Resources.Resources.Label_684 Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnlabel.Location = New System.Drawing.Point(7, 20) + Me.btnlabel.Location = New System.Drawing.Point(16, 28) Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnlabel.Name = "btnlabel" - Me.btnlabel.Size = New System.Drawing.Size(100, 24) + Me.btnlabel.Size = New System.Drawing.Size(100, 25) Me.btnlabel.TabIndex = 0 Me.btnlabel.Text = "Label" Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -237,7 +240,7 @@ Partial Class frmFormDesigner Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.TabControlEigenschaften.Name = "TabControlEigenschaften" Me.TabControlEigenschaften.SelectedIndex = 0 - Me.TabControlEigenschaften.Size = New System.Drawing.Size(373, 308) + Me.TabControlEigenschaften.Size = New System.Drawing.Size(373, 287) Me.TabControlEigenschaften.TabIndex = 22 ' 'pageProperties @@ -247,7 +250,7 @@ Partial Class frmFormDesigner Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageProperties.Name = "pageProperties" Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageProperties.Size = New System.Drawing.Size(365, 279) + Me.pageProperties.Size = New System.Drawing.Size(365, 258) Me.pageProperties.TabIndex = 3 Me.pageProperties.Text = "Eigenschaften" Me.pageProperties.UseVisualStyleBackColor = True @@ -259,7 +262,7 @@ Partial Class frmFormDesigner Me.pgControls.Location = New System.Drawing.Point(3, 2) Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pgControls.Name = "pgControls" - Me.pgControls.Size = New System.Drawing.Size(359, 275) + Me.pgControls.Size = New System.Drawing.Size(359, 254) Me.pgControls.TabIndex = 0 ' 'pageFormat @@ -275,7 +278,7 @@ Partial Class frmFormDesigner Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageFormat.Name = "pageFormat" Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageFormat.Size = New System.Drawing.Size(365, 279) + Me.pageFormat.Size = New System.Drawing.Size(365, 258) Me.pageFormat.TabIndex = 1 Me.pageFormat.Text = "Format" Me.pageFormat.UseVisualStyleBackColor = True @@ -285,10 +288,10 @@ Partial Class frmFormDesigner Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnheight_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_minus.Location = New System.Drawing.Point(116, 64) + Me.btnheight_minus.Location = New System.Drawing.Point(118, 74) Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_minus.Name = "btnheight_minus" - Me.btnheight_minus.Size = New System.Drawing.Size(100, 24) + Me.btnheight_minus.Size = New System.Drawing.Size(100, 25) Me.btnheight_minus.TabIndex = 1 Me.btnheight_minus.Text = "kleiner" Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -299,10 +302,10 @@ Partial Class frmFormDesigner Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnheight_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_plus.Location = New System.Drawing.Point(10, 64) + Me.btnheight_plus.Location = New System.Drawing.Point(12, 74) Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_plus.Name = "btnheight_plus" - Me.btnheight_plus.Size = New System.Drawing.Size(100, 24) + Me.btnheight_plus.Size = New System.Drawing.Size(100, 25) Me.btnheight_plus.TabIndex = 0 Me.btnheight_plus.Text = "größer" Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -311,7 +314,7 @@ Partial Class frmFormDesigner 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(10, 46) + Me.Label3.Location = New System.Drawing.Point(13, 56) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(42, 16) Me.Label3.TabIndex = 5 @@ -320,7 +323,7 @@ Partial Class frmFormDesigner 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(6, 2) + Me.Label2.Location = New System.Drawing.Point(9, 11) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(46, 16) Me.Label2.TabIndex = 4 @@ -331,10 +334,10 @@ Partial Class frmFormDesigner Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnwidth_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_minus.Location = New System.Drawing.Point(116, 20) + Me.btnwidth_minus.Location = New System.Drawing.Point(118, 29) Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_minus.Name = "btnwidth_minus" - Me.btnwidth_minus.Size = New System.Drawing.Size(100, 24) + Me.btnwidth_minus.Size = New System.Drawing.Size(100, 25) Me.btnwidth_minus.TabIndex = 1 Me.btnwidth_minus.Text = "kleiner" Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -345,10 +348,10 @@ Partial Class frmFormDesigner Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnwidth_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_plus.Location = New System.Drawing.Point(10, 20) + Me.btnwidth_plus.Location = New System.Drawing.Point(12, 29) Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_plus.Name = "btnwidth_plus" - Me.btnwidth_plus.Size = New System.Drawing.Size(100, 24) + Me.btnwidth_plus.Size = New System.Drawing.Size(100, 25) Me.btnwidth_plus.TabIndex = 0 Me.btnwidth_plus.Text = "größer" Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -496,12 +499,22 @@ Partial Class frmFormDesigner Me.lblhintergrund.TabIndex = 1 Me.lblhintergrund.Text = "Validierungsbereich" ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.TabControlEigenschaften) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 133) + Me.Panel1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(373, 287) + Me.Panel1.TabIndex = 23 + ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 6 + Me.RibbonControl1.MaxItemId = 8 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Size = New System.Drawing.Size(1199, 146) @@ -539,12 +552,44 @@ Partial Class frmFormDesigner Me.BarButtonItem3.ItemAppearance.Normal.Options.UseFont = True Me.BarButtonItem3.Name = "BarButtonItem3" ' + 'BarStaticItem1 + ' + Me.BarStaticItem1.Caption = "Locked" + Me.BarStaticItem1.Id = 5 + Me.BarStaticItem1.ItemAppearance.Normal.Font = New System.Drawing.Font("Tahoma", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BarStaticItem1.ItemAppearance.Normal.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.BarStaticItem1.ItemAppearance.Normal.Options.UseFont = True + Me.BarStaticItem1.ItemAppearance.Normal.Options.UseForeColor = True + Me.BarStaticItem1.Name = "BarStaticItem1" + Me.BarStaticItem1.TextAlignment = System.Drawing.StringAlignment.Center + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "BarButtonItem4" + Me.BarButtonItem4.Id = 6 + Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "BarButtonItem5" + Me.BarButtonItem5.Id = 7 + Me.BarButtonItem5.Name = "BarButtonItem5" + ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Hintergrundfunktionen" ' + 'RibbonPageGroup3 + ' + Me.RibbonPageGroup3.Enabled = False + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup3.Name = "RibbonPageGroup3" + Me.RibbonPageGroup3.Text = "Control-Funktionen" + ' 'RibbonPageGroup1 ' Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL) @@ -564,32 +609,10 @@ Partial Class frmFormDesigner Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' - 'RibbonPageGroup2 - ' - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "Control-Funktionen" + 'RPGControlFunction ' - 'BarStaticItem1 - ' - Me.BarStaticItem1.Caption = "Locked" - Me.BarStaticItem1.Id = 5 - Me.BarStaticItem1.ItemAppearance.Normal.Font = New System.Drawing.Font("Tahoma", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.BarStaticItem1.ItemAppearance.Normal.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.BarStaticItem1.ItemAppearance.Normal.Options.UseFont = True - Me.BarStaticItem1.ItemAppearance.Normal.Options.UseForeColor = True - Me.BarStaticItem1.Name = "BarStaticItem1" - Me.BarStaticItem1.TextAlignment = System.Drawing.StringAlignment.Center - ' - 'Panel1 - ' - Me.Panel1.Controls.Add(Me.TabControlEigenschaften) - Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel1.Location = New System.Drawing.Point(0, 112) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(373, 308) - Me.Panel1.TabIndex = 23 + Me.RPGControlFunction.Name = "RPGControlFunction" + Me.RPGControlFunction.Text = "Control-Funktionen" ' 'frmFormDesigner ' @@ -628,8 +651,8 @@ Partial Class frmFormDesigner Me.SplitContainerDesigner.ResumeLayout(False) Me.pnldesigner.ResumeLayout(False) Me.pnldesigner.PerformLayout() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -683,5 +706,8 @@ Partial Class frmFormDesigner Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents Panel1 As Panel Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem - Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RPGControlFunction As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 260a379..9f5238d 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -140,9 +140,6 @@ 206, 17 - - 206, 17 - 17, 56 @@ -269,6 +266,27 @@ MS40LTEtMS40LTEuOWMwLTEuMSwwLjktMiwyLTJzMiwwLjksMiwyYzAsMC45LTAuNiwxLjYtMS40LDEu OUwxOCwyNHogTTEyLDEwICAgVjhjMC0yLjIsMS44LTQsNC00czQsMS44LDQsNHYySDEyeiIgY2xhc3M9 IlllbGxvdyIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index e645203..b9f151b 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -295,6 +295,9 @@ Public Class frmFormDesigner End Sub Private Sub DragDropButtons_MouseDown(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btndtp.MouseDown, btnVektor.MouseDown, btnTabelle.MouseDown, btnCheckbox.MouseDown, btnLine.MouseDown, btnButton.MouseDown + If Designer_Locked Then + Exit Sub + End If Mouse_IsPressed = True CurrentControl = Nothing @@ -671,7 +674,7 @@ Public Class frmFormDesigner CurrentControl = sender Mouse_BeginLocation = e.Location sender.BringToFront() - + RibbonPageGroup3.Enabled = True Mouse_IsPressed = True Console.WriteLine("CURRENT_CONTROL:" & CurrentControl.Name) diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 816e660..dc02873 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -172,6 +172,8 @@ Partial Class frmMain Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() Me.PrintPreviewBarCheckItem18 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() Me.PrintPreviewBarCheckItem19 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() @@ -452,7 +454,7 @@ Partial Class frmMain ' 'ContextMenuNotifyIcon ' - Me.ContextMenuNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PopupErinnerungInaktivierenToolStripMenuItem, Me.AnzeigenToolStripMenuItem}) + Me.ContextMenuNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PopupErinnerungInaktivierenToolStripMenuItem, Me.ToolStripSeparator1, Me.AnzeigenToolStripMenuItem, Me.OutOfRangePMFixierenToolStripMenuItem}) Me.ContextMenuNotifyIcon.Name = "ContextMenuNotifyIcon" resources.ApplyResources(Me.ContextMenuNotifyIcon, "ContextMenuNotifyIcon") ' @@ -1317,6 +1319,16 @@ Partial Class frmMain Me.PrintPreviewBarCheckItem19.Id = 58 Me.PrintPreviewBarCheckItem19.Name = "PrintPreviewBarCheckItem19" ' + 'OutOfRangePMFixierenToolStripMenuItem + ' + Me.OutOfRangePMFixierenToolStripMenuItem.Name = "OutOfRangePMFixierenToolStripMenuItem" + resources.ApplyResources(Me.OutOfRangePMFixierenToolStripMenuItem, "OutOfRangePMFixierenToolStripMenuItem") + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") + ' 'frmMain ' Me.Appearance.Options.UseFont = True @@ -1510,4 +1522,6 @@ Partial Class frmMain Friend WithEvents Panel1 As Panel Friend WithEvents bbtnitDashboardInv As DevExpress.XtraBars.BarButtonItem Friend WithEvents bsiGeneralInfo As DevExpress.XtraBars.BarStaticItem + Friend WithEvents OutOfRangePMFixierenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As ToolStripSeparator End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 7a17c3f..60ed061 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAUQBBgFEAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAUwBBgFMAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -178,10 +178,114 @@ 597, 17 + + 17, 134 + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 1 + + + NavBarControl1 + + + DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 2 + + + + Fill + + + + Tahoma, 9pt + + + 0, 146 + + + 1347, 360 + + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + 392, 95 - + + 270, 198 + + + ContextMenuGrid + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Fill + + + 233, 27 + + + 1114, 333 + + + 8 + + + False + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + 269, 26 @@ -210,7 +314,6 @@ Metadaten Datei anzeigen - False @@ -263,43 +366,6 @@ Layout speichern - - 270, 198 - - - ContextMenuGrid - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - Fill - - - 233, 27 - - - 1114, 333 - - - 8 - - - False - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - 17, 134 @@ -506,12 +572,6 @@ 541, 95 - - 219, 26 - - - Starte Validierung für Profil - 220, 30 @@ -665,32 +725,11 @@ 2 - - Fill - - - Tahoma, 9pt - - - 0, 146 - - - 1347, 360 - - - 4 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this + + 219, 26 - - 3 + + Starte Validierung für Profil 908, 17 @@ -704,14 +743,23 @@ Popup Erinnerung inaktivieren + + 231, 6 + 234, 22 - Monitor anzeigen + Bring to Front + + + 234, 22 + + + Out of Range - PM fixieren - 235, 48 + 235, 98 ContextMenuNotifyIcon @@ -1261,18 +1309,6 @@ 0, 0 - - Allgemein - - - Funktionen - - - Verwaltung - - - Grundeinstellungen - Funktionen @@ -1309,6 +1345,18 @@ 5 + + Allgemein + + + Funktionen + + + Verwaltung + + + Grundeinstellungen + RibbonPage2 @@ -2414,6 +2462,18 @@ DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + OutOfRangePMFixierenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripSeparator1 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmMain @@ -2626,6 +2686,9 @@ &Ansicht + + &Hintergrund + &Seiten Layout @@ -2638,9 +2701,6 @@ Bars - - &Hintergrund - PDF Dokument diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index d7d2c78..2931fba 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -244,32 +244,78 @@ Public Class frmMain If My.Settings.frmMainPosition.IsEmpty = False Then If My.Settings.frmMainPosition.X > 0 And My.Settings.frmMainPosition.Y > 0 Then - ' Gespeicherte Werte verwenden - Me.Location = Screen.AllScreens(UBound(Screen.AllScreens)).Bounds.Location + My.Settings.frmMainPosition - End If - Me.Location = Screen.AllScreens(UBound(Screen.AllScreens)).Bounds.Location + My.Settings.frmMainPosition - - End If - 'Sind Werte hinterlegt? - If Not My.Settings.frmMainSize.IsEmpty Then - If My.Settings.frmMainWindowState = "Normal" Then - ' Gespeicherte Werte verwenden - Try - Me.Size = My.Settings.frmMainSize - Catch ex As Exception - - End Try + If Not My.Settings.frmMainSize.IsEmpty Then + If My.Settings.frmMainWindowState = "Normal" Then + Dim oisonscreen = IsOnScreen(My.Settings.frmMainPosition, My.Settings.frmMainSize) + If oisonscreen = False Then + Me.StartPosition = FormStartPosition.CenterScreen + Exit Sub + Else + ' Gespeicherte Werte verwenden + Me.Location = Screen.AllScreens(UBound(Screen.AllScreens)).Bounds.Location + My.Settings.frmMainPosition + End If + Else + Me.WindowState = FormWindowState.Maximized + End If + End If Else - Me.WindowState = FormWindowState.Maximized + LOGGER.Info("FormPosition is out of range!..Standard will be loaded!") + If My.Settings.frmMainWindowState = "Normal" Then + Me.StartPosition = FormStartPosition.CenterScreen + Else + Me.WindowState = FormWindowState.Maximized + End If End If - End If + 'Sind Werte hinterlegt? + 'If Not My.Settings.frmMainSize.IsEmpty Then + ' If My.Settings.frmMainWindowState = "Normal" Then + ' Dim oisonscreen = IsOnScreen(My.Settings.frmMainPosition, My.Settings.frmMainSize) + + ' If oisonscreen = False Then + ' Me.StartPosition = FormStartPosition.CenterScreen + ' Exit Sub + ' End If + ' ' Gespeicherte Werte verwenden + ' Try + ' Me.Size = My.Settings.frmMainSize + ' Catch ex As Exception + + ' End Try + ' Else + ' Me.WindowState = FormWindowState.Maximized + ' End If + + + 'End If Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Error in Load FormLayout: " & ex.Message) End Try End Sub + Function IsOnScreen(ByVal RecLocation As System.Drawing.Point, ByVal RecSize As System.Drawing.Size, Optional MinPercentOnScreen As Double = 0.2) + Try + Dim PixelsVisible As Double = 0 + Dim Rec As System.Drawing.Rectangle = New System.Drawing.Rectangle(RecLocation, RecSize) + For Each Scrn As Screen In Screen.AllScreens + Dim r As System.Drawing.Rectangle = System.Drawing.Rectangle.Intersect(Rec, Scrn.WorkingArea) + 'intersect rectangle with screen + If (r.Width <> 0 And r.Height <> 0) Then + PixelsVisible += (r.Width * r.Height) + 'tally visible pixels + End If + + Next + Return PixelsVisible >= (Rec.Width * Rec.Height) * MinPercentOnScreen + Catch ex As Exception + Return False + End Try + + End Function + + + Function Refresh_ConnectionString() Try TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING @@ -669,10 +715,10 @@ Public Class frmMain Private Sub NotifyIcon1_MouseDoubleClick(sender As System.Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick - ShowMonitor() + BringMonitor2Front() End Sub - Sub ShowMonitor() - BringToFront() + Sub BringMonitor2Front() + Me.BringToFront() Visible = True End Sub Private Sub Timer_Tick(sender As System.Object, e As EventArgs) Handles TimerRefresh.Tick @@ -735,7 +781,7 @@ Public Class frmMain End Sub Private Sub NotifyIcon1_Click(sender As System.Object, e As EventArgs) Handles NotifyIcon1.Click - ShowMonitor() + BringMonitor2Front() End Sub Private Sub Decide_Load() Try @@ -1704,7 +1750,7 @@ Public Class frmMain End If End Sub Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click - ShowMonitor() + BringMonitor2Front() End Sub Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize @@ -1832,4 +1878,11 @@ Public Class frmMain frmInvDashboard.Show() End Sub + + Private Sub OutOfRangePMFixierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OutOfRangePMFixierenToolStripMenuItem.Click + + Dim myPoint As Point = New Point(50, 50) + Me.Location = Screen.AllScreens(UBound(Screen.AllScreens)).Bounds.Location + myPoint + BringMonitor2Front() + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index c3f5818..4549f26 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -188,11 +188,13 @@ Partial Class frmValidator 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index 5d749d5..98c2326 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -125,6 +125,31 @@ 0, 146 + + Top, Left, Right + + + Segoe UI Symbol, 12pt, style=Bold + + + 3, 4 + + + No + + + 549, 29 + + + + 1 + + + Label1 + + + MiddleLeft + TITLELabel1 @@ -137,6 +162,30 @@ 0 + + Bottom, Left, Right + + + Tahoma, 9.75pt + + + MiddleLeft + + + 7, 419 + + + 3, 4, 3, 4 + + + 561, 50 + + + 11 + + + Validierung speichern - Nächstes Dokument + btnSave @@ -149,6 +198,21 @@ 1 + + Top, Left, Right + + + 5, 33 + + + 563, 48 + + + 1 + + + Label3 + DESCRIPTIONLabel @@ -161,6 +225,24 @@ 2 + + Top, Bottom, Left, Right + + + True + + + 8, 85 + + + 3, 4, 3, 4 + + + 560, 326 + + + 18 + pnldesigner @@ -183,9 +265,8 @@ 3, 4, 3, 4 - 477, 476 + 571, 476 - 24 @@ -223,7 +304,7 @@ 3, 4, 3, 4 - 481, 476 + 577, 476 0 @@ -253,10 +334,10 @@ 1 - 962, 476 + 1152, 476 - 477 + 571 37 @@ -273,135 +354,6 @@ 0 - - Top, Left, Right - - - Segoe UI Symbol, 12pt, style=Bold - - - 3, 4 - - - No - - - 455, 29 - - - 1 - - - Label1 - - - MiddleLeft - - - TITLELabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - - - Bottom, Left, Right - - - Tahoma, 9.75pt - - - MiddleLeft - - - 7, 419 - - - 3, 4, 3, 4 - - - 467, 50 - - - 11 - - - Validierung speichern - Nächstes Dokument - - - btnSave - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 1 - - - Top, Left, Right - - - 5, 33 - - - 469, 48 - - - 1 - - - Label3 - - - DESCRIPTIONLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 2 - - - Top, Bottom, Left, Right - - - True - - - 8, 85 - - - 3, 4, 3, 4 - - - 466, 326 - - - 18 - - - pnldesigner - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 3 - 17, 17 @@ -433,7 +385,7 @@ 0, 0 - 962, 0 + 1152, 0 barDockControlTop @@ -454,7 +406,7 @@ 0, 643 - 962, 0 + 1152, 0 barDockControlBottom @@ -493,7 +445,7 @@ Right - 962, 0 + 1152, 0 0, 643 @@ -520,7 +472,7 @@ 7, 17 - 962, 643 + 1152, 643 Tahoma, 8.25pt, style=Bold @@ -893,17 +845,39 @@ 0, 0 + + Datei + + + Aktionen + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF + l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw + DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ + k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 + XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR + Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng + kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg + gg== + + + + Information + Menü - 962, 146 + 1152, 146 0, 622 - 962, 21 + 1152, 21 RibbonStatusBar1 @@ -1725,39 +1699,6 @@ Zoom - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu - My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN - QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs - b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT - eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp - b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg - Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ - dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k - ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E - cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO - AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL - - 10% @@ -1800,6 +1741,39 @@ sichtbare einpassen + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN + QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs + b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT + eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp + b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg + Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ + dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k + ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E + cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO + AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL + + BarButtonItem1 @@ -1821,28 +1795,6 @@ 1054, 56 - - Datei - - - Aktionen - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF - l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw - DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ - k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 - XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR - Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng - kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg - gg== - - - - Information - RibbonPage2 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 645c059..22af81c 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -2705,6 +2705,7 @@ Public Class frmValidator Next Else If omytype = "System.String" Then + MsgBox($"IDB Fill Grid [{oControl.Name}] with String") oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter) Select Case oColValuesfromSource.Length Case 2 @@ -2716,9 +2717,11 @@ Public Class frmValidator End Select ElseIf omytype = "System.Data.DataTable" Then Dim oMyDatatable As DataTable = oValueFromSource + MsgBox($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) For Each oRow As DataRow In oMyDatatable.Rows LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter) + MsgBox($"IDB ROW Vector {oRow.Item(0).ToString}...") Select Case oColValuesfromSource.Length Case 1 From c6cb81c05b388fbbcde16e9a71f209d0e9f4d849 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 3 Apr 2020 12:56:09 +0200 Subject: [PATCH 13/14] DDMS --- app/DD_PM_WINDREAM/ClassInit.vb | 8 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 1 + app/DD_PM_WINDREAM/frmAdmin2.resx | 6 + .../frmFormDesigner.Designer.vb | 538 +++++-------- app/DD_PM_WINDREAM/frmFormDesigner.resx | 438 +++++++++- app/DD_PM_WINDREAM/frmFormDesigner.vb | 757 ++++++++++++------ app/DD_PM_WINDREAM/frmValidator.resx | 4 +- app/DD_PM_WINDREAM/frmValidator.vb | 16 +- 8 files changed, 1129 insertions(+), 639 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 4c19896..f930db2 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -14,10 +14,14 @@ Public Class ClassInit Public Sub InitLogger() - LOGCONFIG = New LogConfig(LogConfig.PathType.AppData) + LOGCONFIG = New LogConfig(LogConfig.PathType.CustomPath, + Application.UserAppDataPath & "\Log", + Nothing, + My.Application.Info.CompanyName, + My.Application.Info.ProductName) LOGGER = LOGCONFIG.GetLogger("ProcessManager") - LOGGER.Info("## ProcessManager für Windream gestartet - {0}", Now) + LOGGER.Info("## ProcessManager started - {0}", Now) End Sub diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index 6d7bccb..ec34ab5 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -231,6 +231,7 @@ Partial Class frmAdmin2 Me.RibbonControl1.MaxItemId = 14 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BbitemplateAdd diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index ee577bf..247e57f 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -623,6 +623,9 @@ False + + Segoe UI, 9pt + 50, 23 @@ -1589,6 +1592,9 @@ False + + Segoe UI, 9pt + 50, 23 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index e30baee..444ae13 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -24,25 +24,7 @@ Partial Class frmFormDesigner Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormDesigner)) - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.btnButton = New System.Windows.Forms.Button() - Me.btnLine = New System.Windows.Forms.Button() - Me.btnTabelle = New System.Windows.Forms.Button() - Me.btnCheckbox = New System.Windows.Forms.Button() - Me.btnVektor = New System.Windows.Forms.Button() - Me.btndtp = New System.Windows.Forms.Button() - Me.btntextbox = New System.Windows.Forms.Button() - Me.btnlabel = New System.Windows.Forms.Button() - Me.TabControlEigenschaften = New System.Windows.Forms.TabControl() - Me.pageProperties = New System.Windows.Forms.TabPage() Me.pgControls = New System.Windows.Forms.PropertyGrid() - Me.pageFormat = New System.Windows.Forms.TabPage() - Me.btnheight_minus = New System.Windows.Forms.Button() - Me.btnheight_plus = New System.Windows.Forms.Button() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.btnwidth_minus = New System.Windows.Forms.Button() - Me.btnwidth_plus = New System.Windows.Forms.Button() Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -60,9 +42,8 @@ Partial Class frmFormDesigner Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem() Me.SplitContainerDesigner = New System.Windows.Forms.SplitContainer() Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel() - Me.Label1 = New System.Windows.Forms.Label() - Me.lblhintergrund = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() @@ -71,16 +52,29 @@ Partial Class frmFormDesigner Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitLabel = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitTextBox = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitLU = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitTable = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitDatePicker = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitCheckBox = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitButton = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitLine = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniwidth_plus = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniwidth_min = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniheight_plus = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniheight_min = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPageCategory1 = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibPGCtrlWidth = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibPGCtrlheight = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RPGControlFunction = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.GroupBox1.SuspendLayout() - Me.TabControlEigenschaften.SuspendLayout() - Me.pageProperties.SuspendLayout() - Me.pageFormat.SuspendLayout() + Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -92,271 +86,20 @@ Partial Class frmFormDesigner Me.SplitContainerDesigner.Panel1.SuspendLayout() Me.SplitContainerDesigner.Panel2.SuspendLayout() Me.SplitContainerDesigner.SuspendLayout() - Me.pnldesigner.SuspendLayout() Me.Panel1.SuspendLayout() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.btnButton) - Me.GroupBox1.Controls.Add(Me.btnLine) - Me.GroupBox1.Controls.Add(Me.btnTabelle) - Me.GroupBox1.Controls.Add(Me.btnCheckbox) - Me.GroupBox1.Controls.Add(Me.btnVektor) - Me.GroupBox1.Controls.Add(Me.btndtp) - Me.GroupBox1.Controls.Add(Me.btntextbox) - Me.GroupBox1.Controls.Add(Me.btnlabel) - Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top - Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(0, 0) - Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.GroupBox1.Size = New System.Drawing.Size(373, 133) - Me.GroupBox1.TabIndex = 2 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" - ' - 'btnButton - ' - Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image) - Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnButton.Location = New System.Drawing.Point(228, 28) - Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnButton.Name = "btnButton" - Me.btnButton.Size = New System.Drawing.Size(100, 25) - Me.btnButton.TabIndex = 8 - Me.btnButton.Text = "Button" - Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnButton.UseVisualStyleBackColor = True - ' - 'btnLine - ' - Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image) - Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLine.Location = New System.Drawing.Point(228, 87) - Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnLine.Name = "btnLine" - Me.btnLine.Size = New System.Drawing.Size(100, 25) - Me.btnLine.TabIndex = 7 - Me.btnLine.Text = "Linie" - Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnLine.UseVisualStyleBackColor = True - ' - 'btnTabelle - ' - Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add - Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(122, 29) - Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnTabelle.Name = "btnTabelle" - Me.btnTabelle.Size = New System.Drawing.Size(100, 25) - Me.btnTabelle.TabIndex = 6 - Me.btnTabelle.Text = "Tabelle" - Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnTabelle.UseVisualStyleBackColor = True - ' - 'btnCheckbox - ' - Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnCheckbox.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG - Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckbox.Location = New System.Drawing.Point(122, 87) - Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnCheckbox.Name = "btnCheckbox" - Me.btnCheckbox.Size = New System.Drawing.Size(100, 25) - Me.btnCheckbox.TabIndex = 5 - Me.btnCheckbox.Text = "Checkbox" - Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnCheckbox.UseVisualStyleBackColor = True - ' - 'btnVektor - ' - Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnVektor.Image = Global.DD_ProcessManager.My.Resources.Resources.ComboBox_16xLG - Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(16, 87) - Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnVektor.Name = "btnVektor" - Me.btnVektor.Size = New System.Drawing.Size(100, 25) - Me.btnVektor.TabIndex = 4 - Me.btnVektor.Text = "LookupControl" - Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnVektor.UseVisualStyleBackColor = True - ' - 'btndtp - ' - Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btndtp.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 - Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(122, 58) - Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btndtp.Name = "btndtp" - Me.btndtp.Size = New System.Drawing.Size(100, 25) - Me.btndtp.TabIndex = 3 - Me.btndtp.Text = "DatePicker" - Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndtp.UseVisualStyleBackColor = True - ' - 'btntextbox - ' - Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btntextbox.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox_708 - Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntextbox.Location = New System.Drawing.Point(16, 58) - Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btntextbox.Name = "btntextbox" - Me.btntextbox.Size = New System.Drawing.Size(100, 25) - Me.btntextbox.TabIndex = 1 - Me.btntextbox.Text = "Textbox" - Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btntextbox.UseVisualStyleBackColor = True - ' - 'btnlabel - ' - Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnlabel.Image = Global.DD_ProcessManager.My.Resources.Resources.Label_684 - Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnlabel.Location = New System.Drawing.Point(16, 28) - Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnlabel.Name = "btnlabel" - Me.btnlabel.Size = New System.Drawing.Size(100, 25) - Me.btnlabel.TabIndex = 0 - Me.btnlabel.Text = "Label" - Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnlabel.UseVisualStyleBackColor = True - ' - 'TabControlEigenschaften - ' - Me.TabControlEigenschaften.Controls.Add(Me.pageProperties) - Me.TabControlEigenschaften.Controls.Add(Me.pageFormat) - Me.TabControlEigenschaften.Dock = System.Windows.Forms.DockStyle.Fill - Me.TabControlEigenschaften.Enabled = False - Me.TabControlEigenschaften.Location = New System.Drawing.Point(0, 0) - Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.TabControlEigenschaften.Name = "TabControlEigenschaften" - Me.TabControlEigenschaften.SelectedIndex = 0 - Me.TabControlEigenschaften.Size = New System.Drawing.Size(373, 287) - Me.TabControlEigenschaften.TabIndex = 22 - ' - 'pageProperties - ' - Me.pageProperties.Controls.Add(Me.pgControls) - Me.pageProperties.Location = New System.Drawing.Point(4, 25) - Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageProperties.Name = "pageProperties" - Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageProperties.Size = New System.Drawing.Size(365, 258) - Me.pageProperties.TabIndex = 3 - Me.pageProperties.Text = "Eigenschaften" - Me.pageProperties.UseVisualStyleBackColor = True - ' 'pgControls ' Me.pgControls.Dock = System.Windows.Forms.DockStyle.Fill Me.pgControls.HelpVisible = False - Me.pgControls.Location = New System.Drawing.Point(3, 2) + Me.pgControls.Location = New System.Drawing.Point(0, 0) Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pgControls.Name = "pgControls" - Me.pgControls.Size = New System.Drawing.Size(359, 254) + Me.pgControls.Size = New System.Drawing.Size(373, 420) Me.pgControls.TabIndex = 0 ' - 'pageFormat - ' - Me.pageFormat.Controls.Add(Me.btnheight_minus) - Me.pageFormat.Controls.Add(Me.btnheight_plus) - Me.pageFormat.Controls.Add(Me.Label3) - Me.pageFormat.Controls.Add(Me.Label2) - Me.pageFormat.Controls.Add(Me.btnwidth_minus) - Me.pageFormat.Controls.Add(Me.btnwidth_plus) - Me.pageFormat.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.pageFormat.Location = New System.Drawing.Point(4, 25) - Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageFormat.Name = "pageFormat" - Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.pageFormat.Size = New System.Drawing.Size(365, 258) - Me.pageFormat.TabIndex = 1 - Me.pageFormat.Text = "Format" - Me.pageFormat.UseVisualStyleBackColor = True - ' - 'btnheight_minus - ' - Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnheight_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out - Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_minus.Location = New System.Drawing.Point(118, 74) - Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnheight_minus.Name = "btnheight_minus" - Me.btnheight_minus.Size = New System.Drawing.Size(100, 25) - Me.btnheight_minus.TabIndex = 1 - Me.btnheight_minus.Text = "kleiner" - Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnheight_minus.UseVisualStyleBackColor = True - ' - 'btnheight_plus - ' - Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnheight_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in - Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_plus.Location = New System.Drawing.Point(12, 74) - Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnheight_plus.Name = "btnheight_plus" - Me.btnheight_plus.Size = New System.Drawing.Size(100, 25) - Me.btnheight_plus.TabIndex = 0 - Me.btnheight_plus.Text = "größer" - Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnheight_plus.UseVisualStyleBackColor = True - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(13, 56) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(42, 16) - Me.Label3.TabIndex = 5 - Me.Label3.Text = "Höhe:" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(9, 11) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(46, 16) - Me.Label2.TabIndex = 4 - Me.Label2.Text = "Breite:" - ' - 'btnwidth_minus - ' - Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnwidth_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out - Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_minus.Location = New System.Drawing.Point(118, 29) - Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnwidth_minus.Name = "btnwidth_minus" - Me.btnwidth_minus.Size = New System.Drawing.Size(100, 25) - Me.btnwidth_minus.TabIndex = 1 - Me.btnwidth_minus.Text = "kleiner" - Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnwidth_minus.UseVisualStyleBackColor = True - ' - 'btnwidth_plus - ' - Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnwidth_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in - Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_plus.Location = New System.Drawing.Point(12, 29) - Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.btnwidth_plus.Name = "btnwidth_plus" - Me.btnwidth_plus.Size = New System.Drawing.Size(100, 25) - Me.btnwidth_plus.TabIndex = 0 - Me.btnwidth_plus.Text = "größer" - Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnwidth_plus.UseVisualStyleBackColor = True - ' 'TBPM_PROFILE_CONTROLSBindingSource ' Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS" @@ -456,7 +199,6 @@ Partial Class frmFormDesigner 'SplitContainerDesigner.Panel2 ' Me.SplitContainerDesigner.Panel2.Controls.Add(Me.Panel1) - Me.SplitContainerDesigner.Panel2.Controls.Add(Me.GroupBox1) Me.SplitContainerDesigner.Size = New System.Drawing.Size(1199, 420) Me.SplitContainerDesigner.SplitterDistance = 822 Me.SplitContainerDesigner.TabIndex = 25 @@ -467,8 +209,6 @@ Partial Class frmFormDesigner Me.pnldesigner.AutoScroll = True Me.pnldesigner.BackColor = System.Drawing.Color.Transparent Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnldesigner.Controls.Add(Me.Label1) - Me.pnldesigner.Controls.Add(Me.lblhintergrund) Me.pnldesigner.Dock = System.Windows.Forms.DockStyle.Fill Me.pnldesigner.GridSize = 10 Me.pnldesigner.Location = New System.Drawing.Point(0, 0) @@ -478,45 +218,33 @@ Partial Class frmFormDesigner Me.pnldesigner.Size = New System.Drawing.Size(822, 420) Me.pnldesigner.TabIndex = 3 ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.Label1.Location = New System.Drawing.Point(30, 20) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(347, 16) - Me.Label1.TabIndex = 6 - Me.Label1.Text = "Gestalten sie in diesem Bereich Ihre Validierungsoberfläche" - ' - 'lblhintergrund - ' - Me.lblhintergrund.AutoSize = True - Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption - Me.lblhintergrund.Location = New System.Drawing.Point(30, 20) - Me.lblhintergrund.Name = "lblhintergrund" - Me.lblhintergrund.Size = New System.Drawing.Size(248, 29) - Me.lblhintergrund.TabIndex = 1 - Me.lblhintergrund.Text = "Validierungsbereich" - ' 'Panel1 ' - Me.Panel1.Controls.Add(Me.TabControlEigenschaften) + Me.Panel1.Controls.Add(Me.pgControls) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel1.Location = New System.Drawing.Point(0, 133) + Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(373, 287) + Me.Panel1.Size = New System.Drawing.Size(373, 420) Me.Panel1.TabIndex = 23 ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 588) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1199, 21) + ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.bbtnitLabel, Me.bbtnitTextBox, Me.bbtnitLU, Me.bbtnitTable, Me.bbtnitDatePicker, Me.bbtnitCheckBox, Me.bbtnitButton, Me.bbtnitLine, Me.bbtniwidth_plus, Me.bbtniwidth_min, Me.bbtniheight_plus, Me.bbtniheight_min}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.MaxItemId = 20 Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.Size = New System.Drawing.Size(1199, 146) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' @@ -576,11 +304,107 @@ Partial Class frmFormDesigner Me.BarButtonItem5.Id = 7 Me.BarButtonItem5.Name = "BarButtonItem5" ' + 'bbtnitLabel + ' + Me.bbtnitLabel.Caption = "Label" + Me.bbtnitLabel.Id = 8 + Me.bbtnitLabel.ImageOptions.Image = CType(resources.GetObject("bbtnitLabel.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitLabel.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitLabel.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitLabel.Name = "bbtnitLabel" + ' + 'bbtnitTextBox + ' + Me.bbtnitTextBox.Caption = "TextBox" + Me.bbtnitTextBox.Id = 9 + Me.bbtnitTextBox.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitTextBox.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtnitTextBox.Name = "bbtnitTextBox" + ' + 'bbtnitLU + ' + Me.bbtnitLU.Caption = "LookupControl" + Me.bbtnitLU.Id = 10 + Me.bbtnitLU.ImageOptions.Image = CType(resources.GetObject("bbtnitLU.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitLU.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitLU.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitLU.Name = "bbtnitLU" + ' + 'bbtnitTable + ' + Me.bbtnitTable.Caption = "Tabelle" + Me.bbtnitTable.Id = 11 + Me.bbtnitTable.ImageOptions.Image = CType(resources.GetObject("bbtnitTable.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitTable.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitTable.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitTable.Name = "bbtnitTable" + ' + 'bbtnitDatePicker + ' + Me.bbtnitDatePicker.Caption = "Datepicker" + Me.bbtnitDatePicker.Id = 12 + Me.bbtnitDatePicker.ImageOptions.Image = CType(resources.GetObject("bbtnitDatePicker.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitDatePicker.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitDatePicker.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitDatePicker.Name = "bbtnitDatePicker" + ' + 'bbtnitCheckBox + ' + Me.bbtnitCheckBox.Caption = "CheckBox" + Me.bbtnitCheckBox.Id = 13 + Me.bbtnitCheckBox.ImageOptions.Image = CType(resources.GetObject("bbtnitCheckBox.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitCheckBox.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitCheckBox.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitCheckBox.Name = "bbtnitCheckBox" + ' + 'bbtnitButton + ' + Me.bbtnitButton.Caption = "Button" + Me.bbtnitButton.Id = 14 + Me.bbtnitButton.ImageOptions.Image = CType(resources.GetObject("bbtnitButton.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitButton.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitButton.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitButton.Name = "bbtnitButton" + ' + 'bbtnitLine + ' + Me.bbtnitLine.Caption = "Linie" + Me.bbtnitLine.Id = 15 + Me.bbtnitLine.ImageOptions.Image = CType(resources.GetObject("bbtnitLine.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitLine.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitLine.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitLine.Name = "bbtnitLine" + ' + 'bbtniwidth_plus + ' + Me.bbtniwidth_plus.Caption = "Breiter" + Me.bbtniwidth_plus.Id = 16 + Me.bbtniwidth_plus.ImageOptions.SvgImage = CType(resources.GetObject("bbtniwidth_plus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtniwidth_plus.Name = "bbtniwidth_plus" + ' + 'bbtniwidth_min + ' + Me.bbtniwidth_min.Caption = "Schmaler" + Me.bbtniwidth_min.Id = 17 + Me.bbtniwidth_min.ImageOptions.SvgImage = CType(resources.GetObject("bbtniwidth_min.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtniwidth_min.Name = "bbtniwidth_min" + ' + 'bbtniheight_plus + ' + Me.bbtniheight_plus.Caption = "Größer" + Me.bbtniheight_plus.Id = 18 + Me.bbtniheight_plus.ImageOptions.SvgImage = CType(resources.GetObject("bbtniheight_plus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtniheight_plus.Name = "bbtniheight_plus" + ' + 'bbtniheight_min + ' + Me.bbtniheight_min.Caption = "Kleiner" + Me.bbtniheight_min.Id = 19 + Me.bbtniheight_min.ImageOptions.SvgImage = CType(resources.GetObject("bbtniheight_min.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtniheight_min.Name = "bbtniheight_min" + ' + 'RibbonPageCategory1 + ' + Me.RibbonPageCategory1.Name = "RibbonPageCategory1" + Me.RibbonPageCategory1.Text = "RibbonPageCategory1" + ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibPGCtrlWidth, Me.RibPGCtrlheight}) Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "Hintergrundfunktionen" + Me.RibbonPage1.Text = "Start" ' 'RibbonPageGroup3 ' @@ -597,12 +421,32 @@ Partial Class frmFormDesigner Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Funktionen" ' - 'RibbonStatusBar1 + 'RibbonPageGroup2 ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 588) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1199, 21) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLabel) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitTextBox) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLU) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitTable) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitDatePicker) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitCheckBox) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitButton) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLine) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Controls einfügen" + ' + 'RibPGCtrlWidth + ' + Me.RibPGCtrlWidth.ItemLinks.Add(Me.bbtniwidth_plus) + Me.RibPGCtrlWidth.ItemLinks.Add(Me.bbtniwidth_min) + Me.RibPGCtrlWidth.Name = "RibPGCtrlWidth" + Me.RibPGCtrlWidth.Text = "Control - Breite" + ' + 'RibPGCtrlheight + ' + Me.RibPGCtrlheight.ItemLinks.Add(Me.bbtniheight_plus) + Me.RibPGCtrlheight.ItemLinks.Add(Me.bbtniheight_min) + Me.RibPGCtrlheight.Name = "RibPGCtrlheight" + Me.RibPGCtrlheight.Text = "Control - Höhe" ' 'RibbonPage2 ' @@ -614,6 +458,16 @@ Partial Class frmFormDesigner Me.RPGControlFunction.Name = "RPGControlFunction" Me.RPGControlFunction.Text = "Control-Funktionen" ' + 'RibbonPage3 + ' + Me.RibbonPage3.Name = "RibbonPage3" + Me.RibbonPage3.Text = "RibbonPage3" + ' + 'RibbonPageGroup4 + ' + Me.RibbonPageGroup4.Name = "RibbonPageGroup4" + Me.RibbonPageGroup4.Text = "RibbonPageGroup4" + ' 'frmFormDesigner ' Me.Appearance.Options.UseFont = True @@ -632,11 +486,7 @@ Partial Class frmFormDesigner Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "Validation-Designer" - Me.GroupBox1.ResumeLayout(False) - Me.TabControlEigenschaften.ResumeLayout(False) - Me.pageProperties.ResumeLayout(False) - Me.pageFormat.ResumeLayout(False) - Me.pageFormat.PerformLayout() + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() @@ -649,8 +499,6 @@ Partial Class frmFormDesigner Me.SplitContainerDesigner.Panel2.ResumeLayout(False) CType(Me.SplitContainerDesigner, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerDesigner.ResumeLayout(False) - Me.pnldesigner.ResumeLayout(False) - Me.pnldesigner.PerformLayout() Me.Panel1.ResumeLayout(False) CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -661,53 +509,51 @@ Partial Class frmFormDesigner Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents btnlabel As System.Windows.Forms.Button - Friend WithEvents btntextbox As System.Windows.Forms.Button Friend WithEvents pnldesigner As DD_ProcessManager.ClassSnapPanel - Friend WithEvents btndtp As System.Windows.Forms.Button - Friend WithEvents lblhintergrund As System.Windows.Forms.Label - Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents TabControlEigenschaften As System.Windows.Forms.TabControl - Friend WithEvents pageFormat As System.Windows.Forms.TabPage - Friend WithEvents btnwidth_minus As System.Windows.Forms.Button - Friend WithEvents btnwidth_plus As System.Windows.Forms.Button - Friend WithEvents btnheight_minus As System.Windows.Forms.Button - Friend WithEvents btnheight_plus As System.Windows.Forms.Button - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents btnVektor As System.Windows.Forms.Button Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter - Friend WithEvents btnCheckbox As System.Windows.Forms.Button Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip - Friend WithEvents btnTabelle As System.Windows.Forms.Button Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter - Friend WithEvents pageProperties As TabPage Friend WithEvents pgControls As PropertyGrid - Friend WithEvents btnLine As Button Friend WithEvents GridControlContextMenu As ContextMenuStrip Friend WithEvents MenuItemAddColumn As ToolStripMenuItem Friend WithEvents SplitContainerDesigner As SplitContainer - Friend WithEvents btnButton As Button - Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl - Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents Panel1 As Panel + Friend WithEvents RPGControlFunction As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents bbtnItemFinishSQL As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents Panel1 As Panel Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem - Friend WithEvents RPGControlFunction As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitLabel As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitTextBox As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitLU As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitTable As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitDatePicker As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitCheckBox As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitButton As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtnitLine As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents bbtniwidth_plus As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniwidth_min As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniheight_plus As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniheight_min As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibPGCtrlWidth As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibPGCtrlheight As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 9f5238d..3224d36 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -117,23 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAIpJREFUOE+lk90NgCAMhBmJGRiOcWQ09IXX2qIlFZXyQ3KGlrsvTUADAEu6PrhS - ShYVUdAh8tkcJAAV1PTeg3NOFfkK5AZ0h1kMYUA5CFuAPR6/onP2Uu4F+ArVfRUg961anYBrNsuae80J - ZD0MqANDAGmq9ypg9hqXH9LaU6bFEFQeTdHzZ5oXmBPS2sxhLqehfwAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAYAAADEtGw7AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAABl0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4xMzQDW3oAAAA0SURBVEhLYxgF - o2AUEAe8gDiICpgbiFHACyD+TwWsCMQoIA2IC6iA+YF4FIyCUTAAgIEBAJUPH6VVzyeQAAAAAElFTkSu - QmCC - - 368, 17 @@ -287,6 +270,427 @@ MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAMdEVYdFRpdGxlAExhYmVsO8It7eEAAAJ3SURBVDhP + Y/j//z9FGEPAKGsBg1H2QgYgYAJiFihm1IqbzqARN4VBI2oSg3rURLh6FM0grJc6B6zZLH9BiGXJqv+6 + CdNf8soZcqpHTWBQC5/AoBrWy6AS3AVXj6IZhLUTZoAMYDHPX7zRonjlf720uf8V/BqiQIYqB3UxKPm3 + Myj6tcHVo2gGC4AUeuWIm+Qt/m5WsPyPcfai/0p+7buA4mwKvi0Mcl5NDLIeDQj1yJrBAgwMzNqxE3O0 + 4qZcM8qYu904d8l/1dC+PyLGkeogw2VdahiknasQ6kGEalgfg0pID9BvPSAD2NRCeo/Ke9d2akd1xhtl + LfqvHTv9v6RdYRdQjlXKvpxB0q4U1QClwE6wv0A2KPuUasp7N/8XM0s05xCSETBIm/dWP3nufxmX6hes + vJJ8QDWMYpb5qAYoeDczyHo1gAxgATq/DRjKN4BsYSAW1I7qm68HNEDBt+2/oF50NEiNiEkmqgGybnXg + gAECTpWg7rtK/p1ADR3/FXza/uskzPqvkzjrv0bE5P9CRik7gWq4BPVTUQ2QdKwAaWZW9q5wlLAr/c+n + 6m4B5POCMAuXoIRm9LSX2jEz/otbF/3llLLQBKlFMUDcthhkALuiT9McEZOMq0A2t5BRBoOQQSpYXDWg + fbpG1LT/Cl6t/3lVAiYAxThQDAACFnGjIHXV4L4PwkZJC4B8HiBmhGJ2aZvUAPWIKf9Vgif+F7MqesXC + q6iGbgCHtHPdfynHmv/CRhlAWwLDgWLMIAP4lN0lxa1K/4tZFv0XNS/6L2KS959L3u8TugEgxSBb+YEY + 5Hc2IIa5AJSZQGKCQCwEpflQDCAf/2cAAGhHrgv9cdiDAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAMdEVYdFRpdGxlAExhYmVsO8It7eEAAAg+SURBVFhH + xZZZUJTZFccvbrgA3TQ2S7MITdPddNPN0rIjKGERHESQHbvZZFcZFFRAxY1BVBTZBEccGY0z4+g4S1I1 + lYekKpVKKpOahzwllVRSlaq8Zh7yEOaBqpP/uV/jmKaxKnnJrfrV15x7v/M/595z7ocgov8rXo0b4TF8 + PPivh/TpKfI2EjuX+D0W2wS2gK1uNrPN2roorK3zwtI8JzE7p4X52AyYFqaGe8LYcEfE1YHaO1j+PwSA + IcUzBp6dzB7+jLKHPqOMc5+SvePBp7BzQD6WpjkR75oVJhZuZOG7wlh/RxghbKidFIbqWyL26E32pfj0 + FHkbLAC2ZA29+GXepS9o/+UvKW/0K0ruWf5XZH5XMOZ4J3xMjci2npmE8KSIq5kUsW7h2MobYJx9KT49 + Rd4Gxiabazwqe+jlat4oxBFELkjtf0bmxls9mOfj8JHCMlu3cOVNoa+cAONCf2RMRJePsS/Fp6fIRrBj + sCW1b/l09vAriH9OuReZLyjr3EvCmf8K875gU1z1bSmsR8b6ihsi5ohb+PB1seeda2LPoSvsT/HrKbQR + 7Bhsyxj46Nf7RiB84XPad+EV7Rt5RTnA1r5EUQV9VqyRtRBTMQ7h9wALj7mFL4uoUnBwlP0pfj2FNgJj + s9V5Iy5j8PlqJgqPycFO5HAxDr+kvaeekKFq/D2sk7sQU35dyfjQNUUURBZfAhdFRNEI+1P8egptBMZW + R++js6l9zyipe+lve0988HXW2ReUff4FjuAFZQx8Qqj4v2LdTiCLMap0VESVjIrIEggXsfCwiCgYFuEH + zrM/xa+nkDcwePt90/qf/iax+xHFVY1PWZ23O9PPfEwcRNZZ7Mjgc0ponqfIooFSrN0GfGTGLFz4g7Bu + /1kRljfIPhXfb4gIi4svjxn0MPq3cUqY6u+ymYtvs7n6oint3Wdkcc1SROHpg1p7sc5xYnklc+A5ZZxh + PqHk3mWKLrv6FOt38DvhhUMivAAcOCd0eSw8IMJyz4jQnH72uz4ARRhA2IjbyoD+xeAAtiZ3LQ4r5zzx + na86XAXbLnv74k/S0ILp/R+DjygVAcZWTvxzV0RyCOZlMeqQrS53UISycHa/CMnuEyFZpzDlJQAjC0NU + 6V9cGlUTbObt34Fsv0nseEjRh67yrccZbjfXTbQ7Tj4h3pk01EbqqR9T/LFZ0uX2Hed5fjd0H2fMosxJ + EZwJ0vnK8BKAFIaoHiATNsneN5QNxu89+ZRM9VMUkX+6ETau9K1qY05wYsf7KyzM8w6Q2P4I7Tjyc8z7 + gc3BEGZRbWav0GZ0C21qF+jElJcAWFiPq1KPmyoGLYQhe9/eNncpuecxobVW/CIdfOXy9nKl77Q4732V + 0vMhOXqfkAPPlO4PUQfXV1VxRWZ+F/ho07vF7rQuEQTh3Y4OEeTgDfISQAwLl6F/y67xn7L4wM6kzqVv + E1oWKKpw5Gf8t9vOwW03lF8+zlkndy9TStcyJXU9JnPtFAWnd11eWxu0txOi7SIopV1okluFJrEZZi8B + sHD0O1fRu/yuUnwxxX2WpM7HZKyapLCcE9w/u9juZrtfuD3c6pxb4TVJHR/II0hoeUBhuYN/wrzavc5H + k9wmhTX2JqGxNcHkJYA9fHEU4+JA/2LIDK3H7l5LQVamuqlVbeKRVNg0gLuACQRh5rrJn9rbHpL9+COy + ty2RrRXXcvEVUpnLCzEvizEQwoEQVtucQmXlMvISQGQRXxzymlzbfj9b68LveVuTsb221ofIbhEXzgOy + Ni+StWmBrK4FsrW8T3aI2loeyt9M3NE7tNvRxv/B+LMvdYJTqCGsiq8XKnM9TF4CiJCXxhD/lNsfld/j + 4MxM9dO05+AViioaRR1cpIiCCxT+oxEKzx8irKfo0jGyNMzJwBKaEJzrAVmO3aeQzHf/sWmbH98JshhV + 8XVCZaoVAaY61lgfAF+TfHFgyN431dy8noAsdQfOr+4IS4yHjbefz5Xh7WeCQFh06ZUvLY33yeJcgLhC + ZMElCjCWt2Ce64Z9+gQYqwTDY10AYbkD/JC9D/wtzpk/GGtQ0Rm93+BvFpX9755n+Ddn56/L7m0x185Q + PIIwN86TuWGeYituk8bm/BrzHKi8Gf0NlYLhsS6A0Gx5RXIAvhG5nekW133aU3KFgpKc/JnlLORXTpPU + gmpuRlHJdpLrd2hNkbHlt74318/jyOZQtHNkrpklbdqJ7301Jt49WYx++iNil76c31sfQHDGSX7I3jdU + jN2wHJunsH3nKMBQkg8bO/DR2Fsg7BKBCS6htqCwLLKieSfUUUWXfmGsniFT7SwZa2Yk4TgG/9gy7mvu + GrkLu6IP4eElAAw+J95mjan23l/isY3B6adWUEihbvsmKWxVhNXmBpheH5kqNLNnwFBxlzgIY/U0PtvT + pD98mwITmv+I+TDA3xBZC2BdAGzkTFTRxec7zfWzFA90+UN/h00H+G6XGaggrFIqmd9ZC1obkupyxh6Z + JMNRiB+9R4ZKBd2BC6QyVfI3WAvkUQAfzwDk1scdnfytiYup4T6Yp7iaaQrfP/xntbVuGPOvXw4wVuMh + A+D3/KNLxr6NOXzzO4MUnlKomEIhKkQWj5G/oep3WPv6KLwGEJLVT8GZIKOftOl9OIITKMLjFBBX9Qjz + rwOAMzx+CECDNYH2NtBCalsrwDOhmdTWJjcu2hFRzEIbBsDOZEsB7nfu791uuI24C+SLftxK+gr8/I8j + 4DblLyXXC583w0e3BtvZ74ZHwGMtI66FN2FhtvM88+ZYC4LXcAJrcFBvwjb2JcWBouslgLex0fC29m3I + QUTi39m1K1TIHniJAAAAAElFTkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOUEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iVGV4dEJveCI+DQogICAgPHBhdGggZD0iTTIz + LjMsMTUuNGMtMC41LTAuNC0xLjEtMC43LTEuOC0wLjhjMC42LTAuMiwxLjEtMC41LDEuNS0wLjljMC40 + LTAuNCwwLjYtMC45LDAuNi0xLjQgICBjMC0wLjctMC4zLTEuMy0wLjktMS43Yy0wLjYtMC40LTEuNS0w + LjYtMi44LTAuNkgxNnY5LjlWMjBoNGMxLjIsMCwyLjItMC4yLDIuOS0wLjhDMjMuNywxOC42LDI0LDE4 + LDI0LDE3ICAgQzI0LDE2LjQsMjMuOCwxNS45LDIzLjMsMTUuNHogTTE4LjQsMTEuN2gwLjljMS4xLDAs + MS43LDAuNCwxLjcsMS4xYzAsMC40LTAuMSwwLjctMC40LDAuOUMyMC40LDEzLjksMjAsMTQsMTkuNSwx + NGgtMS4xVjExLjd6ICAgIE0yMSwxNy44Yy0wLjMsMC4yLTAuOCwwLjQtMS4zLDAuNGgtMS4zdi0yLjZo + MS4zYzAuNSwwLDAuOSwwLjEsMS4zLDAuM2MwLjMsMC4yLDAuNSwwLjYsMC41LDAuOUMyMS41LDE3LjMs + MjEuNCwxNy42LDIxLDE3Ljh6ICAgIE05LjQsMTBMNi4xLDIwaDIuMmwwLjYtMi4zaDMuMmwwLjYsMi4z + SDE1bC0zLjItMTBIOS40eiBNOS40LDE2bDEtMy4zYzAuMS0wLjMsMC4xLTAuNiwwLjEtMC45aDAuMWMw + LDAuMywwLjEsMC42LDAuMSwwLjlsMSwzLjMgICBIOS40eiBNMjcsMEgzQzIuNSwwLDIsMC41LDIsMXYy + OGMwLDAuNSwwLjUsMSwxLDFoMjRjMC41LDAsMS0wLjUsMS0xVjFDMjgsMC41LDI3LjUsMCwyNywweiBN + MjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAPdEVYdFRpdGxlAENvbWJvQm94O5zhLCAAAAIcSURB + VDhPjZNtT1JxGMaJVNTqE/mmLVuba+trtJogKhMrNQo5wnZ0U1AMtQddL/IhBXOmCCbqdPM7sPXCMOVR + CJAXV/d9czhmvvFsv133n3H//tu1cwz03CKMxG2NuhvCO7xrMHo/7UXHZ/fhm9uHl5LOGKvxcQ+WyYNr + WAMHadrlCw11vFQoVZBnitfp8B/i6KRwhSev1kG79SyoH/2wi/yfCtL5CyHDeV6d0/kyHveuIfwzizb7 + Ktp6vomAk3YbWNAwMrODHAvOy0hp6HOujEe2VaiROFo7g2jtCmLuKIGHNOsCNbAtgtpC8j8eWFegbMSh + fI/DRbw/PMZ981cWmFhgcvsjGGImtqCMM2G4fJsY9Ibh9G6i5fkiWp4tUTI8V8+6QPGFkS1UcJYtCacZ + ykxZy+r5NF3Cb4bmDPXTr0oHjSxodI5uSGHDMzEMT+8SnDGoU5w7kuoUZSCGXiWEdO4CL9whFjSJwDGy + Lq3LDcRJLVNFgrOEhDZzpkhgV1Z0QVOfuiate979gGdyW8ftZ6LCEDMRRffbZSnW5pQSm1nQ/NITEmsi + WcKvZPGSs3+SONbgnrreSIlVQY8SFKvLFyG2qH2iloSTc4wJwzKwIAV3vF5gwR0R2AaXyVqWxqtJ1M5X + uPzNPDCvC0ztfZ+jnY4lMFbHIqxk5xssDP1R6J+HmWiX/IKn9tko77KAP0se2Hb3BtzTkt4Bg/EvuFp6 + 6EAvx2cAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAPdEVYdFRpdGxlAENvbWJvQm94O5zhLCAAAAW4SURB + VFhHvZfpT5RXFMZta913u/wnrZqmpkts0jYmTZr+A22qtlgVFRdEZRdEBFSQUbBa6wq4sKjAgIJSEfvJ + pqlatCKCMs7AsMyG5vQ85y7zDjBfGtOb/HzOuaPnee77ju/MTBqzXovD668QM3PcwouTmTeZKWOY+grB + fBPELjSTXafamw+d7qAot6y6UJ9ijcOWY7/TZmbT0duUdOQ2bSzvoA1lHZRYdovWHW6nta6btKb0JiUc + uH6VvRAiJgASTcGgyOhLGmUiL1iZyOgLrhm9JxpR+2EH36Q10IOhMD0YDFMnc38wxATpvl9xbyBId5mv + Ui4Te03TnnahmVp6sp2HvZSBYqTrcAS9UnkdyoQc+vXOevqrP0jux35q7PJTQ9cA1T9SXPlngC4/7Kc7 + ngAtT76EANO1p11oppWcuBk1EMOXDhNVG4xxKKzAyTp6hqi200c1f/uomrl430cX7nmF83e9dIPDfbG5 + FgFmaE+70EwvPv6bMncaaIJQMRsVgqhlT9XLt9ZR9Z/PydXWRUu+O06LvwW/ii5iilsfUdUdD322scYE + eAPGZkmA/b+0aZOoIYZbQsoMBAD3AQ4A/XxTLR3reEp57i6q/UMZgWUbaqiGjXPdj6i8vZc+TaxGgJnM + uAAzin6+wSYwwOCxxjDSppoRQ3CUlq2vFoPtNZ2UfukhnbrdS58kXhRFj31X2xP6aM35CQOgmVF4pDXG + QODhAEbWVPoIDQcNo/TxugtiACMT4mRH1BwUt3bThwnnEGCW9rQLzcy9ZS1quAMMH9sPB7Qx6xBqZunq + c2JgzEwIZ1907TEtWVUVP0DeoWv6RMZAm7HCKIaRaD3IfPBjlRg4DceS39RFi1ZWIMBs7WkXmll5rmba + XdpMuZYm0ZyDrEzOQVXnlDTRrhI3A22ibK6XrKoUFoOVlbRoRSW9z4h+X8H1WXqP9cv18h6YOEBu6VU5 + zVAgTIN8Qj8DHRxWoPcPhxmoqgcsERoYYpx7/GQU+MnYD4ZClF5UjwBzGHzu2IUAs3EyMdbDDRiGvRgD + M5zpd2LM+FHss7Xu/WFKLZBH8VxmfICs4kZlisETGZlhqKUPSQ8jY+YT4xB5Te1XQaBeZke+PIonDDAn + Y1+DDDZm+462URHg54Oh0HDkOnODCqDlCtQFrHvLWxnWslZ5v3gHQvRcB0jJq0OAeUxMADRzcH98fJ/M + 5VOplSqiJzHIYBgYsCd1kDyOfY/0QUreLY/iCQPMTS24EjXgEDhBDIdbaQ/gOt/Uh1toz6EWygMucE3T + QrtZM/c3koc/Jfs0W3LkUTxfe9qFZh7uj5zAnsKkj57C9BbH8L7+kCa698zgU2zOvhg/AO6PunTq8uFU + OIVQqsgVrvJzgWHNYcXzYRerpQTwHrOzoJ6NA/TUy3CApEx5Dixg8K3ILgSYn5xba5N7zEn4HwmO2pzm + mdfUAamfSg8z1DDUxtz3soINGfJZsJAZHwD3x14u1l3FzZTN4CRQRRNlHTC4bZ3JdeZ+N2UwUKn3uSkl + /7I1730eoMS0+AEW4P7AHJcqegJ1Mie9ghpoa933YM8B+h7+KqbqEUpMrUSAt5iYAGgWJmWd1wNVAJwG + p1A0iqYXNQppog2UXoi6Qfq0Qlb0og2UymzNraMnHOCJZ0RYu0M+jEwA+81YAuD+ONNHGVEn0yeB4lTq + dPyaNkA9Vnv6UOsAXP+0/SwCvK09YwOsT6+yZubS4bKJykC1j4HKJKoYLia674Zij0HdDY0TAH+gWbAu + tUpMZAgbOwfGaB8MtQkjw6G6FlOHduPv6np1yhnnm9AGkA+jH7aeaF67s0Lu0xrhrNLtFZI8hhSlq1mF + beCMGCRAGWjCttOKZKUrko7ilxE+juFpbwG+lOI3IL4oIB0u0Tv/kXfjgNfw5oM5vGJ+FyAJNpAKl8b5 + w/RVgtn4Lw8ve3rnwub/gV6TJv0L5l1tL35cjlcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAFRhYmxlO0dyaWQ7U3ByZWFkc2hl + ZXQ7Um93O8al9FAAAAJwSURBVDhPpZPrS9NhFMef7EVB9Vd1oSiiArMsTTKw2YUKsTZnTrbUtbuaMsnK + ytKwoi2dbrqtoe7mFgqGFr3zMi+7Z24z+Haepxn6QnrR4MM553ue8/1xDowB+C/4bxdR8A9270ABu2QK + OEtMAVwwBFCs9+Gc1osizTgK1WM40zSK0w2jOKXy4KTSgxP1bhxXuHGszoWjtU4ckQ+7WCkND31PYehr + EjZiYDaJ+30zsM4kYPmSwAfi/XQc1d3T6JuKo3cqht7JKHqIwzVOsIvGAAa/JaH3RKDzLEL7aRGX20LQ + uBagdi6gaWQejcPzKDb40eCYg4pQ2ufQHeYGI2C80U9f5sM6GuYGZWSgFgY0nDc4r/dDRYN8WDk0hxeh + VRySDZMB7a14O4sr5jDK20NiuKw1hNKWIEqa6TZGP33dRwY+FOl8OKv1oVDjxfXOSRyUOsAUJg/WMr8Q + T2URT+co5tDR8xkxymOkCSg3vw7/raNEam0DMq0LTK53I/1zI9/MIZrMov1VWEQB6atE28uQqFfzepIM + 7qppBenDEaTIgDdEM5HFo+cTlGewwjWqud7aFRA511YSGSTSWVQ9sINVNzrEQAs9aOkKitgsCML0LADT + 0038MHKe+GEgeH5bOQh2R2VH4kcOy/EMlsl5iaKh0/+n5sTWRdR3+qi3Lvo88jVuKmxgt+ptdLwsluhh + JEZNQvfYu62OUK7pGBd1JMr1dbHWtdp+sBt1A9uuy5219JgfbvNoHI15TOy+FUmNFazi3jtnpfwjJHIr + Kkng4tU8EhnFrUgtqJBaCR4tKK9646I/FNtD7CP278CBHaAe2/sbNQbMTHpxA20AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAFRhYmxlO0dyaWQ7U3ByZWFkc2hl + ZXQ7Um93O8al9FAAAAWpSURBVFhHxZfZc1RFFMYjyL5v7n+N+qqviiKg5YIsISyTTAIVQUSDSFkWhCSz + L4lIoojKVgKikGQmkwVKHqzSQkGTkJBMMmHJinX8vtO379xQPqBV4lT9OKfP6e7v687k3lAgIv8r934e + ekBM+tjiFDDV4eF/wbT7hHOp5RqZsjnY+LQ/0Z7xJzvES0mi3RBvl2Lgi7UpW6OkVbZEQLhVNoczsikE + ghkpCraAtBQF0rKxxlBYnVI2VKVkfWVj6+t7Tz4LXR5UTUwtTXb0HLvcK+nfbxr+ANcMDZkuSSEq6Hnz + +nQn8iFpVm460fBZc6c0ISpX8zRkOmV1xZke6PI21MC00tqLukGy7bokSGsPMPm2uh81j3vqcYey2ktu + TmIkY2Jp8qLEmQPtab1bLvw2JKv3fMdv3wzAH0XBdBpohDt3E7sAUMTmJJrpdilNXJJoC3PUGVucPqI/ + 3iERjlGPePj+Sk5W7TlLAzOtgRk0cP7XnLPAbMKcC0oTFzWGHexG4XS3imgdeQgwhtNdyLukJNautVAK + 4xT7pn72l0HcgBqY5Rrww8A5ONNN7GQuRKRIUHNu1o08T0m0XWOguUsCmBNoRs4IiiNtpg5qlE6paeqS + 0z8P2huYDfhFLJjJG0j+cBWu8c0nUYJvPyi2RDAG3NjiI2HkSqv4Qq0mgq3IffjNIMwNGQmdviKrKtTA + HGtg1gcHzsjY+J+SuzUmgw65m4zjEjmUlkHmFtQGnDlh9Aa8PQ+hT03PZYj1URkZuys7Pz5FA3Otgdm7 + 95+WMTTsYt0UAoxWRGsOmmPDkO0hVyBg8lEYSLnrbC0LRsYmZMe+kzQwzxqYs+uTb2UUBiZvZvAaYD1r + e4jBOiOShTA3z3rmsMeo89FzDYxOSPneE5MNvIsr4dVYcU7UjZHzJNxYBdj35F4Rg2MEBOqaJZsblX6O + c6bfj/Gd0buy/cPjNDAf8LFcMHfHPmPAbqxgkTklNtJxfnM7L1DLHnL2VMyIcG2gtilfpwHtw8DIhJRV + HKOBBdbAvPKPTsjxcz/piQzNEqxN6SkCGBuQQ9BSA4GaJCPwxiTqbr9Jqh20Do6euiz+97+mgYXWwHxe + CZ0Z93Sch5t5xy6D6EGwz8kZ+zSOaF6daDI1W3fm3B6ekOLdX9HAImtgQVnFN64BO1FzQNd2EyvEyD5P + ZjaHqGLmMa+iAeQ3nNoNZ86t4XHx7fqSBhYDvpAKFvJK6EyFHDELRczifI1jQhEK2LGXqnhjfjxgYh8i + DWzZeYQGllgDi0reO6oNPQUmeYWqE42TRA0YY54r4gj02hwcRK/XyS0cD90el007vqCBpdbA4q24klt3 + xs1EFc8vqoIBUzcb3Bgw4uRg/ILWrFBvNp9XxowBF/ZADk/SovLPaWCZNbBkM66k/tglPZGFJyD5/IIb + K2PIieaNOr6XA1Enchw9rxwAdUfapHB7PQ08Yg0s5ZXwalynnpg/5bD0ZIHm7A9D4DxqI6g5PU9eCQNu + zQPfB+u3HaaBR8F0Gli2sbxBr8Y7kQIU5SnyG5lIc8x5SkbONT3QT0ZkP05r53PMeB1jPknXlamBx1wD + hdsb9CXjLrAbIRoRs0Ee23NEKID5FOD4OvL9EWsgD+t8gq4tPUQDj7sGNmyrV2e6uW5mhLihPaUKWBFE + PSVEWNO5WjN9NRBGz7vO6fOxvMavBtwbWLzWf2gw1XHNPNf1lYroPO/j9RkZcJ7lAw76nkCMHm5xxubB + 5IVvUYrdW29quypv+Gpz0HV/Dec+t/ydFa8VxfpeLYrL6o0xl1WFJCorN5CIvLLeYV1YVoCX15KQ8tLb + QZfla0hAefEtLzXywptV/c8871sJXfd1zOcx/zqhI17LE/fBk/+ApzxwzF8/ivP0+v8C/kMnLPBnwr/X + /yu4P6EeddUAP3bwIDGfv/sv84NDCv4CUNpuTu8bCaEAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAERhdGU7Q2FsZW5kYXI73zjYpgAA + AqNJREFUOE91kolLVFEUh6ey3G37U0LSEKkQqWyIKI02yxomralEsDQ1SyoTsww1hKjQTHMhXCaXisol + IygSN8gc2xxNZ9PRefNm3tivc27jEtTAxz3n3fP73ntzn4p+ywgfYtUSfP+DnxeuVxKcVfl0xKrb38Sq + 0bknBu27d+DVrm14qY7G85gotG3fipbozdBHRaJpSwTqIzfhSUQ4HoeFdlCWb6by7Y5Tw1Z1B7bKElgq + imApL4TlwS2Y7uZjsvQ6JkuuYvx2DsYLsmHMy4IxNx114aGgrD8L/Lpid8JKwbFLOoxePInRjER8T9Pi + W+pxfE1JwMjZeBh0hzCcdABD2n0wpGhQGyYEAULAj26+X4Afmd7gOY0Ifkk+ghHdYQoexGftfgxp4vDp + 2F4Mn05AzcYNLAhkgX/xo4+Ym/sFyemBJBNOBQ6qZyXlbxwKnC6PoLD8PQuCWBBQWPYBHhI4JA79Cc4w + FLAL3JieVQg3zbBcQf69dywIZkHgDWoUz5wI1D0bRF3boAjU0lrTOiCC1c0DqHraL2R2yY1rpd2LgtzS + t3CTwE6DtRTg0NSMS4Sqm/ths7tEuFLfR9fdmKK5y0VdLAhhQVBOcSdcigc22rTZ3bBSgLFMy4QLZmZK + homwePcyb75mwWoWBGdRI7s9sNKgQUdHdioeJqormvpQ0diLSZuMh7QyXJtIfD7vBQvWsCAkjRr+Z820 + YaBjY8FCqKEXEzYnyhp6UFbfg59WJyasMlKutC0KuHHICg3KYpOH5hlfisWJMbMk1jPZLSxYKwTczNLR + iABtLiJhjDBSbaSgkXteiaQM/YIgQJNa05GUqaeLTUhkLszTiMR0WtMbcYJJYxqgJY4mV3ZSVnyJy1lC + 8PuwcZ51/2C9F67pK1St+A0xSHi5PIEXmAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAUdEVYdFRpdGxlAERhdGU7Q2FsZW5kYXI73zjYpgAA + BwpJREFUWEedlllQVEcUhjHRqChxq0rykLckmpQPeUmVeXAX92j5koeogEuiKUXRQkMQWUKpKKCAohGC + uOCCqCwO+86wKkpMqixFZKnEBVBBGGCY0crJ+U/fOzOMQ1LJrfrqdN/bff6/7/TtM258jYpNqiiPS66i + uNOKo8mVQtxpLeKZgLZrYh1i7CmH+9w+klhWwTrvMG9BkIhs4Bodx4PMltc0AMxvcvO3P+39waHPwI07 + f7xxz5GYJCOU3Jm3IehsYEzMKaMM7O610stei8JkoW6T6l/MbOBn3Lc9t0ob99C+kHHb1h9Cj1XyHvml + AkrjGJcGxmIABurJEVUSJXQhEwJ6X39m53x6PYs5PGdhFS2c9xVFJ5RDaTzj0oB7dEKZegM8oUsSqcld + NoFbmoD+jAUE1U+5Vq/mYY4TfWwg8mQplDwYlwbGRfGAmtttIqSTonHu2i26fXw51ccvo/pjS+lG3GKq + i1lItYcXUE3UPKqOnEtVB2fT2as36cwVZ25Q+Y0WOnS8BErvMq4NHDpRQv3s1Nm98NJC5eEzyPokl8km + 62MDc52sjzLJImRQUeAX9KJnkLHQCx6POV0vuc/09VvpQHyxbmAkBJ0NjI/gAX0DrySBLozJelIIDDQe + I1PdJjLVatR8x3xL/XejKWfH5yIs4xFF3ELPGRMb2He0EEoTGJcGPDCgr5/fgOYadEkyBQQGfo+gnsqN + 1FO1gXqM67nNGNeRqSGUMjZP18Yq8ecO9HLe8NgCKE1kXBsIj82XV4UJKgm777YnhICpfg8TSL03f2QC + qLduN+NPvbX+lOYzTRvPohxtiAErhR3J+0cD72JAaU0TJafW0SmdSyomXaoVgcs+U+my91RK9WLWMmum + 0qXVn9DFbz4WEi/UUAI4j1htI6/sHoVE50BpEiMGnK8JwTwATvXX9ozdA72deLHGdu9Zt9khmmWlEHK8 + ZxvTNUg9fVbae8gAA1MYHMcjIOp4TdgbmS0GbCI80ZaEY+J5CJj5S3ktmxVgc8WeTCO/wFgKjUjiPjac + jlUDB5GVwqPOybhNfvuqWA/1QEfMTNxz0EC97FQX7oR4l25gkE6mVEm/b8BK9YG7qGTlIipesYi+94+k + 6oYHtGq1PxV95UnFyz2paPkCoXCZomDZ/CHj8pfMY+ZS3uJ5pZoJt0kBB7L47LdSJxvoZCEBRrT2z+eq + JPbyiopXLKSOmDBqjwmlhI1byPQXUeiSVdR+OEQRHUxPo0PsRAUPGfc0MoieMLkL5+BnkYNp0u59GWQo + vitCJ4RKxVnAfY7xZ4xU19DKq/NkkRBq899A0V97UfzZPPKdMYfadq4XWneuo7Yd66h1hw/D0c9nyLjW + 7d70OCKQcjxnw4Bsysn+4elS/TpemKmDVyqR6dT68Wcqqf3FAG+oQSpYOl9WgeRBs2bTyo8+o/XTp4sQ + koMWh9iyzZsCv5wp47ynfUotvmvp0f4Ayl4wCwZGwcCUnWHXpKh0sEh718AbRuKTjfT0ORswDcpv+Dhi + jy25XchL4etFzcJaat6qs8Yet7CB8F1kmD/TbsAv9KpUvnYWw0rFiLQVR5Mr2EA/l2kzoXBhw+K4tlVP + LdraUjEdohM9fRZC/WFtfJZuk7cHp/FgPn4FTNSjmpB6/Vf+3s38BswyEd92aV0rlYDaNhlTUttKxdwu + 5og+YhGoaZF+UXULt1upkONLNhBxXArUaBjw2ByQUua79zJt1UDbN0hFuReUKmQV3CEUrh7+YiCggyNY + iWmCfIQXau1CMTAowgXVzVRQxQZ4/v5jRTAwBgbwGvBnASfVe06878AHzIcoXEiA5Dq6QCELFLIAakgB + BKsg2CwG8ysfMs0C/nGFx0mFFAM4DPA9YkPAzHBgsBQufDHDFS57Xx3lapzW5vsAGz4sRgrUWEYuHIn/ + BkyOQeFCgnxemb4iJMcXIV/FNh8RyTM+pFxjE+VWPJR+TgXaTZRT3iTzQw7nwoD7kNI4HNqFNzUGhQsJ + RIBfKyKOazHg682fn7f0ISiwII73bI7Z5Q8EbErUH843zqWgM9oFA2MxEV8HVoPV6QItW/kMYJoZESxr + IgOLGcoeiKHrpdwubaTrZY3yxydQVcjxLgWd0S4YcEfhwqYbrnChZkifUbVEqy8Yq93DnkD94XweLgWd + 0S55A5iIjWbglSgeyH9BrDALKyxpFIEsjlkl9ykT/W4LR24XK/D8h/2Z/+sNjEbhwioglFV6X4TQhxDa + EJC+JpbB4FjPKFLtjKJ70kf94Xz/aRPKl4CJSOC4ItQLldwumM5C6ehDkJ+nF6KvQH/nT9eQeKRLQWcc + rhEoXKpIuS5cAPVjaBu1RUfdR/1BPpeCzjhePDHPL/QKJwBXyS/kCm1n/EKuSrSTpuFwj2uOjZC0PDc3 + N7e/AQoaPmZd4jDGAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABF0RVh0VGl0 + bGUAVGFzaztDaGVjaztd9Mx/AAAA20lEQVQ4T2P4//8/g2/TDnIwI4gGG9DS0vKfWAwCZ++8/l8678R/ + oAFCcAOIBSDNwW27QJpB+DhJBiBrDmoF054YBvz99w/KQgXoms/cfg1iI8IABJ6/+/o/Y+rh/5cevAXz + YQCbZhBAMeDn7z//UycfBCsKad8NNwSXZpAeDBccvfbifyDEb2BDVh6+i6IZZBgMYDUABI5dRxgCw+ia + QQCnASCAbAiIhjkbGeA1AARAhoR27P5/6tYrqAgqIGgACHz4+hPKwgREGYAPUMUAIEAYQA6GG0A+/s8A + AMvnIBD6K3W0AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABF0RVh0VGl0 + bGUAVGFzaztDaGVjaztd9Mx/AAABb0lEQVRYR82UwUoDMRRFq1/gj6n1T0TBD5D0KxRcu3aj7gStbQU3 + QrVLN6IuBUWtTnw35IXJzMtMaNPYC4d27oQ5ty20o7X+V8QyJ2KZE7HMiVjmRCyZ9f3TlKyWr9nhCRml + lE4BZzh51SS9ItaiB6QK5Fu9cwwANzyCbhk8MZNqQEXO4JtYodvGVZODFAMC8i9ik3AuT8zMO6BNDuiY + wRMzoQGFfW2KJLfXTg7oqMETM9KAk9Gj7h3f6unPr23qCckHDy947+SAjhs8MVMdAPmGfaAKjGiSI5CW + ocrgiZnygIu7JydnqiPa5DazDXj/nOqdw2vv4YBHxMjxPOpnG4CERuwdDWI++fwDkNCIMpIcSTIAaRoB + +XBSlyPJBiAYsX3Q9+Rddab798/2RD1JByBvH99uBOSX47AcST4AwYhd+jna5MhCBiBFEfPnvMABsVmK + ARTRJZZLMSA1VQcjljkRy5yIZU7EMidimQ/d+QOFjkRKvckI+AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0 + bGUAR3JvdXA7Qm94O0dyb3VwaW5nO0hpZXJhcujTa/cAAAHgSURBVDhPpZNZaxNRGIZjam0S1/8kgopb + br2WgCCUYut2Fyi0TSoq/gAVibYxexNKm5hF640lMU62ZnEjxEDT7DHGLLw938xk0pQKKX3hgeHMeb85 + Mw8jA3AkDlw8DJRjDPk+xv4D3aP9gyxYOJ/eFoHOGt0DhwVLRGLezGHOxGF2KeRnFRo0CG341urxZP72 + kG72kGp2kfzTRaLRRbzeQbTWBldpQ7PoozOPC00xs8thvmBPVWHdqsCcqMAUL8EYLWEpWsRbrgjD1x2s + /ajhpnadBpwQmmIevdxErNaBN9uA51cD7p91fvPq9ypcmSpW0lXYkxU2vIwb9500YEJoitHo37vVD11Q + P3Di+j0nrs04cHXagSt3CTsuT9lxacqGi5NWXLhj9LDK8CuwHGfQsRSMk4wzImcZ5/ZB6yqGkkEdsiJl + fO5d6MOoRrSGzxusM/Q6CtpAJvoWtiQLHd7Cl/I/BIstbBZafSN0YilKMpJodPD8Ux7PNn7j6cc8ngRy + eOzPYdGfhd6Xg86b5e2IRk4LVSEqMhJmT7EkyzDHyzDGSlgmlZEdprKA1+ECXoW28SK43TcyNGDi1vya + b1Qj52+/CbAOfUwp9EXJxCkGTSb6RvaaIeiayvID/7DRgWwXy2II2IRDjzwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0 + bGUAR3JvdXA7Qm94O0dyb3VwaW5nO0hpZXJhcujTa/cAAAYJSURBVFhHxZaJU1VlGMZVIvetfe9P6E9w + UlPLnGbKUjHNrMZSS9NxyQ1xQVBRQRYlAhTZRPZ9VZFFZL+ALKbIflkuyOYSNW/P891z6Eqn5jbj2Dvz + m+9wzznP837fd773ZZyI/K8Y/vg0MYrxT4jRMDLWUeGXXseBL00ADhrPjMHRgGcN4O98fzQJI2MdPSZ4 + xpXP9U2ru+GXWi++wCelDtSKN0m6KV7AMxEk1Mip+Go5GVctHrFV4hFjAlVyPNokx4BbZFnJHv/sBdBk + 0ioJI2MdBh9y8EqqNVe0D0rrgz8ULRrNw+R3aRoekUYyNCJ3wG0yOCK3QMPAiNSDuv7f5NqdPjkUWtIJ + zYmAK2porMNgAo4nMKMaCnTcl1zSfl+ualxpI8NyGeS02tAyLNktQ5LdPCRZIBOUdD+UfcHFVJ4KuBWG + xjoMZjnRNbxMSi0P5bIShyiFQRaheNOQZDQNWrk7KOkaaY2DkqoYkJQ7A5KH5Lf55VN5OrA7gUl7Aosw + 62GI9GviAxAfUMKpEKY47yXf7pck8mu/JJJb/ZIA4hvuSXRtn6TdHpANHleoPAPwOzA01mEwgck7/Qsl + E6bhpm6JMFkkqsYil272Smxd3yhx9RytRlG4F1XTK+FVFgkp75ag0i4JLO6UGDy3zj2byjOBXQlwmaZu + 9cmTVMzsPMTOl3fJuTIrwRAmQSWkU34hxWYJgJkab3TKzwqz+F83q8TXHs6g8mxgdwLTNnnmSgKWkSaB + Y4xoEAADjv5FVqOz4Awp7BA/cr1DfAs6JLSyR75wSafyc4A1wdBYh8EEpq8/fkVisKyckTIBNLEaaSYw + 8MVII9/8DvEB3rj2ziPt4gWCkfjKvSlUfh6oWmBkrMNQW/CNa0aHT04jvoEeCccswjByNiEVPXJBbUuP + nC/rxrZ0Y0s61ZYEcluKrWNAEUDybokNsmxnghmas4BdCahj+MnmwE/XuKR1fXkgA0tI0mX1/jRZ5Zwm + n4OV+9LECTNz2pMiK3aTZFn+U5Is35UsyzB+tjNRsXRbXPe81SedoDlF0x4tyf8UqhKCSYBHhx8Pl0/n + BRteGsPLNryijXxnGmBfoC6TsIV+f0uKP/Aml4zYNhxCMZZWJsmZscrp0GwsfIbPTtZG22vq0IN+j4We + mREOB0Ly57vHmIqPxVbLUeAeXSVuaD5HyMVKOQwOkcgKORhRLgfCy8UlrEz2h5aKc2iZOIeUyN6QUtkd + dL10o0fCImhyYuMNPwwdLZiAo2uUyVzQeE9u3XukaNCo73skteBm7yOpsVip6nkoJlCJvlAByrseSmnn + AynpvC/J1V2y3b+AzYqr5GBorKMFl2qiC2ZUiDofWd0rEVWogCZrFeQYprBIWKVFnZxQbbxQYQEcracp + BCcpC71kk7fqFfze7E5g8o6AItX1HhME1srJ49kjwdoxPVfKowpwHYQxEOjHNqmhX75yz6E4P3ZHQ2Md + LVSd2OiVK/HoAzzrwTz/mqC1crIPoA6gaipU5dRLNChCcUNB8ytoV3VmBY41NHla7E5g+jp0uItY8uM5 + LeJxuU08c9vlNCqgqoyoiKySLMtnCq1G3vm4D05da8PzrXI0u0Xcs5pVX1mK2gHNF4FdCfDIzFjrli1h + WPKjWS0Qa8b4FxTWcVM0qdE9E2Mm/lY0yZGMJqyMWT7ankBx1oxnDY11tGACs1YdzEAp7hoVtzU6ohnQ + iCY6rrbgvmvGXTlb2C6Lf4yj+KvA7gRmL0cpDsL+jjXRjQ6TdG2EkWv6Xfz9OIeAD7Zk4ffR/zmBmR/v + iDe7JjRgBuiQaq/b5Qz2mvvth7321fAB3nlt4g2j0zq5+Gau8rtplV0R1TL320jWAZZyu74BHsMpc1af + cFqyJaZ7ydZ4WbwFYBk/2Bwr72+KlUVg4Q+xsgAzW7AxWt7bEC3zN1ySed9Fybz1l2AYJe+uu6iY83V4 + zzsfOq+Bpt11gJWQq8Aaz6PDpvOaxus2vKHxpsZbNrytwWsuPf9dY3+xqxQzVD8Ato1pLHrT+Tf4HN/n + hKx9xshYZ0xYX3hyWMPI+Okh4/4ErbGwbB+fWvQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAExpbmU7zNkjfQAAAeFJREFUOE+N + ks1O21AQhQdREEmkvkzDX5zEIaFxCE3s/IekQTFQYsnEVSp+0lbdVAXRInXVRVeFvkRfoX2BSiCxYuNV + 1UeYzlzb1wmbMtLnc+b46liyLtDMEI+IOR/2M4gID4Fn7s35d3x9doXj00s8+fCN0/la9whqz+9zDJzX + /T0oWBi9/Yo3d3/xmhiOv3AaqWy9AoNgFb4d7uxZg4Lo/ugz/vrt4o+ft7g7vOA0Vmq+hLLAEVpqeHgZ + 0XBkQaTaHWOlc4z61hGW24e4vmk6mzUbJNUJL7MDWTBLRInHzJq2PdL0fbdgDKyCYUFBZwahcmawDrwC + fuSf7cHTEhGqTeqSWpzlJ98FnpAF2WIfshvmPfp2rmi6uWLfyhZNyG3wmWlkgar1IJPvgUpkyAvlXevZ + 5P8QVvAuOKdq22FBKtcRJNdJiSTvodqkLuvUGUIWKGtNogUJQskQ7AP1sAl3Va0P6UdP3VhRsJKuw4ra + 8HWCtJ8Ri4rh7I0ucNf5hDvDj2genNPnYV4ULCWrRCUkxbsPe4JmofvivbyxrZ13XBARBXHFgMWER1zR + IZ7QyZMK7+U00Ur3RN7YcuuQC2Ki4Mlq+b/w15bVDi6n27iUahFNLoiKgodAM3VjiRgAzP4DCe5axIRY + 3gMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAExpbmU7zNkjfQAABVZJREFUWEfF + V1tPXFUUPtU2BfV1v2hifPXBmFgplwJzgRlmmEvpwEBhyswAw1yZO7dWQShIuVhovf8D330z0acmmhqb + U47EJl7q5Y9s19qXs/ccwSdNJ/n41lrft9Ze2Sc5ORiU0mcK/scwzgHOAy5owPxcdLJuRCcbRoRxnXFk + qmFEAbLG61Czcx4zr6gpr9QaLQuc37n/BXUCFwlP1IwIAzbJmOdhrAnmkPWaEYZDpM4BNaHLWF/g4mx5 + h35vPaUPrd/ow+NfabqwjcLF8HjFCI9jA7IANIdwCNZtncch4UFWHvALME149QXaprOb9DvzF/rlN4/o + 19+e0KnZNRTaQ/GKMcxQNkIAyRKooUfFUlM13qNmSOgLtE+kb9EHP/xMv3pgAY7pWHKFhmIzr0av143g + 2AIAhjFujZFVXBYa8KjSeF35ZNxyA+6hFHX5U7Tfh0gyNNc/Oq7evEfC41UjMFpiCMYEMHaA6YL12K5B + H8tFv77Ac3gLgBcRb1zyvha8VjiprB7Sldufm5XVIxKGKwxcK8IQARk7axIteaHVI9heIDAChpE84yEw + c+RJaGzBqq4c0eWNz8zyyiEJxUtcEz7mhz7MsV/0abHwSj+D0KBmL+C/mteQ44AhkJPh0ZJVXj6kSxuf + mgvLdzEHDT3SCwMZZCw1Xmex7deRUwv4ojkNWQdyJBgrWgtLd+ni+idmaekA8oLUNJ/Mz5rj1LUFBiPz + rQgLQDyACGcJXKtVah7Q5trHZnFxn+BVDoaz4JGQPSIWvXrOIfOsWmAglDG84QwcJAD5KUyGRnJWsblP + G+9+aBaaewSvFnXs5f1wqDbLi7mIOXR9Xi3gxeLwLDCHBwF5C3id+K5mrUJ9j9bfuW/mGrvED1eLOutD + FpAzWIwMuazL2F7AMzxjuAGeIDAA2RNM2zW9DkzgCq18bZdWb90zc7U7ZDCa4TN0n7PXoSPsBVyBtECK + sRvjIMY81+tuiN3BNIErtXLVHQrvCHO+uoM562G9AirW+1WuLSAPQyTPyJ2cIt7wrAWH08rKoZmpvA/5 + nNCdM05DUi3QP5RkcDGeVrG/NXdh7sec14AJPE8rU9mm8I4w58rbBK+a66fAnofQFujz3wBMM2YH+HiO + MdewLj0afMyDh1pz5S1aWvrAnCttEXy+eg+bgzPBL/uQ7QV6fQkoJoBvCGDM875BURsED4u5xvwqJ65g + 2pot3abFxQMTGPKU6mHAHuFncUItcAUKvQMJxgwsnrLRO4CQGtYkC515EqQ/kLRmipu00Nw308VNzFu9 + OId7WWwv0OOd4oBiz8AkiJN2jIzm1ljAK3zIAOgjfUPTVrq4QfONPTOVf4/g8+bz0MP7rrC+SbVAt3eC + DUDuRtHDB7JY1KQHNV7nrHplfYLA87VS+XWaq++aqdw65AnuYXPRz3vUAp4JowuA3O0Zd+Q8lnkX6Cx3 + C12yqIuYwDO2krBEtnbHTGZhCXgUajZne4EuNzTbiDvyf0fnmbU4gedtJXNrNFPeehyKzb8MHzstn/z2 + Ap2uuAMwxFmDxf5ROxWiF/2wBFz3j9WbR5Rh9QjenIf44oKTjQv2ApddY4C4YBXjIFnrtDWuK03vc2pj + xutv9r8SSzTo4yd/UfPJn9T86Q86cr2GC1x0LDBqdIgm5A7M+2U+alyGmDHzIQuPjPs5o0/3wK8tEi/T + Rye/25/8oVgRF2i3F8Dm/wa4CF9GMh4UGMnBPztP7U9+fzSDC7zgWCBmdPQB92mMNVZHRo9eF7n0ME3T + BcOv7e2eKL3UHaVvdSEiDFhXC6D5fwL8Wj75AS+J/Hl7gWcHavwNb8IpDJUMXzYAAAAASUVORK5CYII= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU3RyZXRjaCI+ + DQogICAgPHBhdGggZD0iTTIxLDMwSDExYy0wLjYsMC0xLTAuNS0xLTFWM2MwLTAuNSwwLjQtMSwxLTFo + MTBjMC41LDAsMSwwLjUsMSwxdjI2QzIyLDI5LjUsMjEuNSwzMCwyMSwzMHoiIGNsYXNzPSJHcmVlbiIg + Lz4NCiAgICA8cGF0aCBkPSJNNiwyMmwtNi02bDYtNlYyMnogTTI2LDIybDYtNmwtNi02VjIyeiIgY2xh + c3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU3F1ZWV6ZSI+ + DQogICAgPHBhdGggZD0iTTIxLDMwSDExYy0wLjYsMC0xLTAuNS0xLTFWM2MwLTAuNSwwLjQtMSwxLTFo + MTBjMC41LDAsMSwwLjUsMSwxdjI2QzIyLDI5LjUsMjEuNSwzMCwyMSwzMHoiIGNsYXNzPSJHcmVlbiIg + Lz4NCiAgICA8cGF0aCBkPSJNMzAsMjJsLTYtNmw2LTZWMjJ6IE0yLDIybDYtNmwtNi02VjIyeiIgY2xh + c3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAB4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmlsbF9VcCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5C + bGFja3tmaWxsOiM3MjcyNzI7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGNsYXNz + PSJzdDAiPg0KICAgIDxwYXRoIGQ9Ik0yOCwydjIwSDE4di02aDQuN0wxNSw0LjRMNy4zLDE2SDEydjZI + MlYySDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQogIDxwYXRoIGQ9Ik0yOCwzMEgydi02aDI2 + VjMweiBNMTYsMjJ2LThoM2wtNC02bC00LDZoM3Y4SDE2eiIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACECAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmlsbF9Eb3duIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAg + MCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJ + LkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgkuc3Qwe29wYWNpdHk6MC41O30KPC9zdHlsZT4NCiAgPGcgY2xh + c3M9InN0MCI+DQogICAgPHBhdGggZD0iTTI4LDEwdjIwSDJWMTBoMTB2Nkg3LjNMMTUsMjcuNkwyMi43 + LDE2SDE4di02SDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQogIDxwYXRoIGQ9Ik0yOCw4SDJW + MmgyNlY4eiBNMTQsMTB2OGgtM2w0LDZsNC02aC0zdi04SDE0eiIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2 + Zz4L diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index b9f151b..0aa2dca 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -12,6 +12,7 @@ Public Class frmFormDesigner Public ProfileName As String Public ProfileObjectType As String Public Designer_Locked As Boolean = True + Public ControlSelected As String ' Control Variables Private CurrentControl As Control = Nothing @@ -38,6 +39,9 @@ Public Class frmFormDesigner BarButtonItem3.Caption = "Designer locked" BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red Designer_Locked = True + Mouse_IsPressed = False + RibPGCtrlheight.Enabled = False + RibPGCtrlWidth.Enabled = False ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER CURRENT_DESIGN_TYPE = "INPUT_INDEX" @@ -49,9 +53,9 @@ Public Class frmFormDesigner ' Windream initialisieren If IDB_ACTIVE = False Then clsWindream.Create_Session() - btnButton.Visible = False + bbtnitButton.Visibility = DevExpress.XtraBars.BarItemVisibility.Never Else - btnButton.Visible = True + bbtnitButton.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End If @@ -294,215 +298,221 @@ Public Class frmFormDesigner End Try End Sub - Private Sub DragDropButtons_MouseDown(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btndtp.MouseDown, btnVektor.MouseDown, btnTabelle.MouseDown, btnCheckbox.MouseDown, btnLine.MouseDown, btnButton.MouseDown - If Designer_Locked Then - Exit Sub - End If - Mouse_IsPressed = True - - CurrentControl = Nothing - Try - TBPM_PROFILE_CONTROLSBindingSource.Clear() - Catch ex As Exception - LOGGER.Error(ex) - End Try - End Sub - - Private Sub DragDropButtons_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove, btntextbox.MouseMove, btndtp.MouseMove, btnVektor.MouseMove, btnTabelle.MouseMove, btnCheckbox.MouseMove, btnLine.MouseMove, btnButton.MouseMove - If Mouse_IsPressed Then - Dim btn As Button = sender - Dim dragDropData As String - - Select Case btn.Name - Case "btnlabel" - dragDropData = ClassControlCreator.PREFIX_LABEL - Case "btntextbox" - dragDropData = ClassControlCreator.PREFIX_TEXTBOX - Case "btncmb" - dragDropData = ClassControlCreator.PREFIX_COMBOBOX - Case "btndtp" - dragDropData = ClassControlCreator.PREFIX_DATETIMEPICKER - Case "btnVektor" - dragDropData = ClassControlCreator.PREFIX_DATAGRIDVIEW - Case "btnTabelle" - dragDropData = ClassControlCreator.PREFIX_TABLE - Case "btnCheckbox" - dragDropData = ClassControlCreator.PREFIX_CHECKBOX - Case "btnLine" - dragDropData = ClassControlCreator.PREFIX_LINE - Case "btnButton" - dragDropData = ClassControlCreator.PREFIX_BUTTON - End Select - - btn.DoDragDrop(dragDropData, DragDropEffects.Copy) - End If - End Sub - - Private Sub DragDropButtons_MouseUp(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseUp, btntextbox.MouseUp, btndtp.MouseUp, btnVektor.MouseUp, btnTabelle.MouseUp, btnCheckbox.MouseUp, btnLine.MouseUp, btnButton.MouseUp - Mouse_IsPressed = False - End Sub - - Private Sub pnlDesigner_DragDrop(sender As Object, e As DragEventArgs) Handles pnldesigner.DragDrop - Dim cursorPosition As Point = pnldesigner.PointToClient(Cursor.Position) - - Mouse_IsPressed = False - - Try - Select Case e.Data.GetData(DataFormats.Text) - Case ClassControlCreator.PREFIX_LABEL - Dim label = ClassControlCreator.CreateNewLabel(cursorPosition) - SetMovementHandlers(label) - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = label - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } - - - pnldesigner.Controls.Add(label) - - Case ClassControlCreator.PREFIX_TEXTBOX - Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition) - SetMovementHandlers(txt) - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = txt - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } - - pnldesigner.Controls.Add(txt) - - Case ClassControlCreator.PREFIX_COMBOBOX - Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition) - SetMovementHandlers(cmb) - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = cmb - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } - - pnldesigner.Controls.Add(cmb) - - Case ClassControlCreator.PREFIX_DATETIMEPICKER - Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition) - SetMovementHandlers(dtp) - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = dtp - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } - - pnldesigner.Controls.Add(dtp) - - Case ClassControlCreator.PREFIX_CHECKBOX - Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition) - SetMovementHandlers(chk) - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = chk - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } - - pnldesigner.Controls.Add(chk) - - Case ClassControlCreator.PREFIX_DATAGRIDVIEW - Dim lc As LookupControl2 = ClassControlCreator.CreateNewLookupControl(cursorPosition) - - SetMovementHandlers(lc) - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = lc - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } - - pnldesigner.Controls.Add(lc) - - Case ClassControlCreator.PREFIX_TABLE - Dim tb = ClassControlCreator.CreateNewTable(cursorPosition) - - SetMovementHandlers(tb) - AddHandler tb.MouseClick, AddressOf gridControl_MouseClick - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width) - CHANGES_IN_ADMINISTRATION = True - Dim oControlId = GetLastID() - - CurrentControl = tb - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = oControlId, - .ReadOnly = False - } - - TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME) - TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME) - - pnldesigner.Controls.Add(tb) - Case ClassControlCreator.PREFIX_LINE - Dim line = ClassControlCreator.CreateNewLine(cursorPosition) - - SetMovementHandlers(line) - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = line - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } - - - pnldesigner.Controls.Add(line) - Case ClassControlCreator.PREFIX_BUTTON - Dim oButton = ClassControlCreator.CreateNewButton(cursorPosition) - - SetMovementHandlers(oButton) - - TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width) - CHANGES_IN_ADMINISTRATION = True - CurrentControl = oButton - CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { - .Guid = GetLastID(), - .ReadOnly = False - } - - - pnldesigner.Controls.Add(oButton) - End Select - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info($"Error while Adding new control {e.Data.GetData(DataFormats.Text)}:") - LOGGER.Info(ex) - End Try - End Sub - - Private Sub pnlDesigner_DragEnter(sender As System.Object, e As DragEventArgs) Handles pnldesigner.DragEnter - ' Check the format of the data being dropped. - If (e.Data.GetDataPresent(DataFormats.Text)) Then - ' Display the copy cursor. - e.Effect = DragDropEffects.Copy - Else - ' Display the no-drop cursor. - e.Effect = DragDropEffects.None - End If - End Sub + 'Private Sub DragDropButtons_MouseDown(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseDown, btntextbox.MouseDown, btndtp.MouseDown, btnVektor.MouseDown, btnTabelle.MouseDown, btnCheckbox.MouseDown, btnLine.MouseDown, btnButton.MouseDown + ' If Designer_Locked Then + ' Exit Sub + ' End If + ' Mouse_IsPressed = True + + ' CurrentControl = Nothing + ' Try + ' TBPM_PROFILE_CONTROLSBindingSource.Clear() + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' End Try + 'End Sub + + 'Private Sub DragDropButtons_MouseMove(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseMove, btntextbox.MouseMove, btndtp.MouseMove, btnVektor.MouseMove, btnTabelle.MouseMove, btnCheckbox.MouseMove, btnLine.MouseMove, btnButton.MouseMove + ' If Designer_Locked Then + ' Exit Sub + ' End If + ' If Mouse_IsPressed Then + ' Dim btn As Button = sender + ' Dim dragDropData As String + + ' Select Case btn.Name + ' Case "btnlabel" + ' dragDropData = ClassControlCreator.PREFIX_LABEL + ' Case "btntextbox" + ' dragDropData = ClassControlCreator.PREFIX_TEXTBOX + ' Case "btncmb" + ' dragDropData = ClassControlCreator.PREFIX_COMBOBOX + ' Case "btndtp" + ' dragDropData = ClassControlCreator.PREFIX_DATETIMEPICKER + ' Case "btnVektor" + ' dragDropData = ClassControlCreator.PREFIX_DATAGRIDVIEW + ' Case "btnTabelle" + ' dragDropData = ClassControlCreator.PREFIX_TABLE + ' Case "btnCheckbox" + ' dragDropData = ClassControlCreator.PREFIX_CHECKBOX + ' Case "btnLine" + ' dragDropData = ClassControlCreator.PREFIX_LINE + ' Case "btnButton" + ' dragDropData = ClassControlCreator.PREFIX_BUTTON + ' End Select + + ' btn.DoDragDrop(dragDropData, DragDropEffects.Copy) + ' End If + 'End Sub + + 'Private Sub DragDropButtons_MouseUp(sender As Object, e As MouseEventArgs) Handles btnlabel.MouseUp, btntextbox.MouseUp, btndtp.MouseUp, btnVektor.MouseUp, btnTabelle.MouseUp, btnCheckbox.MouseUp, btnLine.MouseUp, btnButton.MouseUp + ' Mouse_IsPressed = False + 'End Sub + + 'Private Sub pnlDesigner_DragDrop(sender As Object, e As DragEventArgs) Handles pnldesigner.DragDrop + ' If Designer_Locked Then + ' Exit Sub + ' End If + ' Dim cursorPosition As Point = pnldesigner.PointToClient(Cursor.Position) + + ' Mouse_IsPressed = False + + ' Try + ' Select Case e.Data.GetData(DataFormats.Text) + ' Case ClassControlCreator.PREFIX_LABEL + ' Dim label = ClassControlCreator.CreateNewLabel(cursorPosition) + ' SetMovementHandlers(label) + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = label + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } + + + ' pnldesigner.Controls.Add(label) + + ' Case ClassControlCreator.PREFIX_TEXTBOX + ' Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition) + ' SetMovementHandlers(txt) + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = txt + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } + + ' pnldesigner.Controls.Add(txt) + + ' Case ClassControlCreator.PREFIX_COMBOBOX + ' Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition) + ' SetMovementHandlers(cmb) + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = cmb + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } + + ' pnldesigner.Controls.Add(cmb) + + ' Case ClassControlCreator.PREFIX_DATETIMEPICKER + ' Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition) + ' SetMovementHandlers(dtp) + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = dtp + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } + + ' pnldesigner.Controls.Add(dtp) + + ' Case ClassControlCreator.PREFIX_CHECKBOX + ' Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition) + ' SetMovementHandlers(chk) + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = chk + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } + + ' pnldesigner.Controls.Add(chk) + + ' Case ClassControlCreator.PREFIX_DATAGRIDVIEW + ' Dim lc As LookupControl2 = ClassControlCreator.CreateNewLookupControl(cursorPosition) + + ' SetMovementHandlers(lc) + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = lc + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } + + ' pnldesigner.Controls.Add(lc) + + ' Case ClassControlCreator.PREFIX_TABLE + ' Dim tb = ClassControlCreator.CreateNewTable(cursorPosition) + + ' SetMovementHandlers(tb) + ' AddHandler tb.MouseClick, AddressOf gridControl_MouseClick + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' Dim oControlId = GetLastID() + + ' CurrentControl = tb + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = oControlId, + ' .ReadOnly = False + ' } + + ' TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME) + ' TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME) + + ' pnldesigner.Controls.Add(tb) + ' Case ClassControlCreator.PREFIX_LINE + ' Dim line = ClassControlCreator.CreateNewLine(cursorPosition) + + ' SetMovementHandlers(line) + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = line + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } + + + ' pnldesigner.Controls.Add(line) + ' Case ClassControlCreator.PREFIX_BUTTON + ' Dim oButton = ClassControlCreator.CreateNewButton(cursorPosition) + + ' SetMovementHandlers(oButton) + + ' TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width) + ' CHANGES_IN_ADMINISTRATION = True + ' CurrentControl = oButton + ' CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + ' .Guid = GetLastID(), + ' .ReadOnly = False + ' } + + + ' pnldesigner.Controls.Add(oButton) + ' End Select + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' LOGGER.Info($"Error while Adding new control {e.Data.GetData(DataFormats.Text)}:") + ' LOGGER.Info(ex) + ' End Try + 'End Sub + + 'Private Sub pnlDesigner_DragEnter(sender As System.Object, e As DragEventArgs) Handles pnldesigner.DragEnter + ' ' Check the format of the data being dropped. + ' If (e.Data.GetDataPresent(DataFormats.Text)) Then + ' ' Display the copy cursor. + ' e.Effect = DragDropEffects.Copy + ' Else + ' ' Display the no-drop cursor. + ' e.Effect = DragDropEffects.None + ' End If + 'End Sub Private Function GetLastID() Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", ProfileId) @@ -603,57 +613,6 @@ Public Class frmFormDesigner End Function - Private Sub btnwidth_plus_Click(sender As System.Object, e As EventArgs) Handles btnwidth_plus.Click - If CurrentControl Is Nothing = False Then - CurrentControl.Size = New Size(CurrentControl.Width + 5, CurrentControl.Height) - UpdateSingleValue("WIDTH", CurrentControl.Size.Width) - End If - End Sub - - Private Sub btnwidth_minus_Click(sender As System.Object, e As EventArgs) Handles btnwidth_minus.Click - If CurrentControl Is Nothing = False Then - Dim newWidth = CurrentControl.Width - 5 - - ' Verhindert, dass das Control unsichtbar wird - If newWidth < 1 Then - Exit Sub - End If - - CurrentControl.Size = New Size(newWidth, CurrentControl.Height) - UpdateSingleValue("WIDTH", CurrentControl.Size.Width) - End If - End Sub - - Private Sub btnheight_plus_Click(sender As System.Object, e As EventArgs) Handles btnheight_plus.Click - If CurrentControl Is Nothing = False Then - Dim newHeight As Integer = CurrentControl.Height + 5 - - If newHeight > 21 And TypeOf CurrentControl Is TextBox Then - DirectCast(CurrentControl, TextBox).Multiline = True - End If - - CurrentControl.Size = New Size(CurrentControl.Width, newHeight) - UpdateSingleValue("HEIGHT", newHeight) - End If - End Sub - - Private Sub btnheight_minus_Click(sender As System.Object, e As EventArgs) Handles btnheight_minus.Click - If CurrentControl Is Nothing = False Then - Dim newHeight As Integer = CurrentControl.Height - 5 - - If newHeight < 22 And TypeOf CurrentControl Is TextBox Then - DirectCast(CurrentControl, TextBox).Multiline = True - End If - - ' Verhindert, dass das Control unsichtbar wird - If newHeight < 1 Then - Exit Sub - End If - - CurrentControl.Size = New Size(CurrentControl.Width, newHeight) - UpdateSingleValue("HEIGHT", newHeight) - End If - End Sub ''' @@ -676,13 +635,17 @@ Public Class frmFormDesigner sender.BringToFront() RibbonPageGroup3.Enabled = True Mouse_IsPressed = True - + RibPGCtrlheight.Enabled = True + RibPGCtrlWidth.Enabled = True Console.WriteLine("CURRENT_CONTROL:" & CurrentControl.Name) End If End Sub Private Sub OnControl_MouseUp(sender As Control, e As MouseEventArgs) Try + If Designer_Locked Then + Exit Sub + End If Mouse_IsPressed = False ' Control Eigenschaften laden @@ -745,6 +708,9 @@ Public Class frmFormDesigner Private Sub OnControl_MouseMove(sender As Control, e As MouseEventArgs) Try + If Designer_Locked Then + Exit Sub + End If If CurrentControl Is Nothing Then Exit Sub End If @@ -823,7 +789,7 @@ Public Class frmFormDesigner Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS Dim row As DataRow - TabControlEigenschaften.Enabled = True + pgControls.Enabled = True ' Beim Laden der Eigenschaften eines Controls muss die ganze Datatable neu geladen werden ' Nicht wirklich, aber gibt gerade keine bessere Möglichkeit, ohne alle SQL Abfragen selbst auszuführen @@ -1184,7 +1150,10 @@ Public Class frmFormDesigner Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick If CurrentControl Is Nothing = False Then DeleteControl(CurrentControl.Name) - TabControlEigenschaften.Enabled = False + pgControls.Enabled = False + CurrentControl = Nothing + RibPGCtrlheight.Enabled = False + RibPGCtrlWidth.Enabled = False End If End Sub @@ -1194,15 +1163,269 @@ Public Class frmFormDesigner Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick If BarButtonItem3.Caption = "Designer locked" Then - BarButtonItem3.Caption = "Designer active" BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Lime Designer_Locked = False Else - BarButtonItem3.Caption = "Designer locked" BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red Designer_Locked = True + If Me.Cursor = Cursors.Cross Then + Mouse_IsPressed = False + Me.Cursor = Cursors.Default + End If + End If + End Sub + Private Sub ControlBarItem_Clicked(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitLabel.ItemClick, bbtnitLine.ItemClick, bbtnitButton.ItemClick, + bbtnitCheckBox.ItemClick, bbtnitDatePicker.ItemClick, bbtnitLU.ItemClick, bbtnitTable.ItemClick, bbtnitTextBox.ItemClick + If Designer_Locked Then + Exit Sub + End If + Me.Cursor = Cursors.Cross + Mouse_IsPressed = True + CurrentControl = Nothing + + Select Case e.Item.Name + Case "bbtnitLabel" + ControlSelected = ClassControlCreator.PREFIX_LABEL + Case "bbtnitTextBox" + ControlSelected = ClassControlCreator.PREFIX_TEXTBOX + Case "btncmb" + ControlSelected = ClassControlCreator.PREFIX_COMBOBOX + Case "bbtnitDatePicker" + ControlSelected = ClassControlCreator.PREFIX_DATETIMEPICKER + Case "btnVektor" + ControlSelected = ClassControlCreator.PREFIX_DATAGRIDVIEW + Case "bbtnitTable" + ControlSelected = ClassControlCreator.PREFIX_TABLE + Case "bbtnitCheckBox" + ControlSelected = ClassControlCreator.PREFIX_CHECKBOX + Case "bbtnitLine" + ControlSelected = ClassControlCreator.PREFIX_LINE + Case "bbtnitButton" + ControlSelected = ClassControlCreator.PREFIX_BUTTON + End Select + + + End Sub + + Private Sub frmFormDesigner_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp + If e.KeyCode = Keys.Escape Then + If Me.Cursor = Cursors.Cross Then + Mouse_IsPressed = False + Me.Cursor = Cursors.Default + End If + + End If + End Sub + + Private Sub pnldesigner_MouseDown(sender As Object, e As MouseEventArgs) Handles pnldesigner.MouseDown + If Designer_Locked Then + Exit Sub + End If + If Me.Cursor = Cursors.Cross And Mouse_IsPressed = True Then + Dim cursorPosition As Point = pnldesigner.PointToClient(Cursor.Position) + Mouse_IsPressed = False + + Try + Select Case ControlSelected + Case ClassControlCreator.PREFIX_LABEL + Dim label = ClassControlCreator.CreateNewLabel(cursorPosition) + SetMovementHandlers(label) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = label + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + + pnldesigner.Controls.Add(label) + + Case ClassControlCreator.PREFIX_TEXTBOX + Dim txt = ClassControlCreator.CreateNewTextBox(cursorPosition) + SetMovementHandlers(txt) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = txt + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(txt) + + Case ClassControlCreator.PREFIX_COMBOBOX + Dim cmb = ClassControlCreator.CreateNewCombobox(cursorPosition) + SetMovementHandlers(cmb) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = cmb + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(cmb) + + Case ClassControlCreator.PREFIX_DATETIMEPICKER + Dim dtp = ClassControlCreator.CreateNewDatetimepicker(cursorPosition) + SetMovementHandlers(dtp) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = dtp + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(dtp) + + Case ClassControlCreator.PREFIX_CHECKBOX + Dim chk = ClassControlCreator.CreateNewCheckbox(cursorPosition) + SetMovementHandlers(chk) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = chk + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(chk) + + Case ClassControlCreator.PREFIX_DATAGRIDVIEW + Dim lc As LookupControl2 = ClassControlCreator.CreateNewLookupControl(cursorPosition) + + SetMovementHandlers(lc) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = lc + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + pnldesigner.Controls.Add(lc) + + Case ClassControlCreator.PREFIX_TABLE + Dim tb = ClassControlCreator.CreateNewTable(cursorPosition) + + SetMovementHandlers(tb) + AddHandler tb.MouseClick, AddressOf gridControl_MouseClick + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width) + CHANGES_IN_ADMINISTRATION = True + Dim oControlId = GetLastID() + + CurrentControl = tb + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = oControlId, + .ReadOnly = False + } + + TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column1", "Column1", 95, USER_USERNAME) + TBPM_CONTROL_TABLETableAdapter.Insert(oControlId, "column2", "Column2", 95, USER_USERNAME) + + pnldesigner.Controls.Add(tb) + Case ClassControlCreator.PREFIX_LINE + Dim line = ClassControlCreator.CreateNewLine(cursorPosition) + + SetMovementHandlers(line) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = line + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + + pnldesigner.Controls.Add(line) + Case ClassControlCreator.PREFIX_BUTTON + Dim oButton = ClassControlCreator.CreateNewButton(cursorPosition) + + SetMovementHandlers(oButton) + + TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width) + CHANGES_IN_ADMINISTRATION = True + CurrentControl = oButton + CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { + .Guid = GetLastID(), + .ReadOnly = False + } + + + pnldesigner.Controls.Add(oButton) + End Select + If Not IsNothing(CurrentControl) Then + RibPGCtrlheight.Enabled = True + RibPGCtrlWidth.Enabled = True + End If + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info($"Error while Adding new control {ControlSelected}:") + LOGGER.Info(ex) + End Try + Me.Cursor = Cursors.Default + End If + End Sub + + Private Sub bbtniwidth_plus_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniwidth_plus.ItemClick + If CurrentControl Is Nothing = False Then + CurrentControl.Size = New Size(CurrentControl.Width + 5, CurrentControl.Height) + UpdateSingleValue("WIDTH", CurrentControl.Size.Width) + End If + End Sub + + Private Sub bbtniwidth_min_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniwidth_min.ItemClick + If CurrentControl Is Nothing = False Then + Dim newWidth = CurrentControl.Width - 5 + ' Verhindert, dass das Control unsichtbar wird + If newWidth < 1 Then + Exit Sub + End If + CurrentControl.Size = New Size(newWidth, CurrentControl.Height) + UpdateSingleValue("WIDTH", CurrentControl.Size.Width) + End If + End Sub + + Private Sub bbtniheight_min_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniheight_min.ItemClick + If CurrentControl Is Nothing = False Then + Dim newHeight As Integer = CurrentControl.Height - 5 + + If newHeight < 22 And TypeOf CurrentControl Is TextBox Then + DirectCast(CurrentControl, TextBox).Multiline = True + End If + + ' Verhindert, dass das Control unsichtbar wird + If newHeight < 1 Then + Exit Sub + End If + + CurrentControl.Size = New Size(CurrentControl.Width, newHeight) + UpdateSingleValue("HEIGHT", newHeight) + End If + End Sub + + Private Sub bbtniheight_plus_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniheight_plus.ItemClick + If CurrentControl Is Nothing = False Then + Dim newHeight As Integer = CurrentControl.Height + 5 + + If newHeight > 21 And TypeOf CurrentControl Is TextBox Then + DirectCast(CurrentControl, TextBox).Multiline = True + End If + + CurrentControl.Size = New Size(CurrentControl.Width, newHeight) + UpdateSingleValue("HEIGHT", newHeight) End If End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index 98c2326..6f5cc6a 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -313,7 +313,7 @@ DocumentViewerValidator - DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.1.0, Culture=neutral, PublicKeyToken=null SplitContainer1.Panel2 @@ -868,7 +868,7 @@ Information - Menü + Start 1152, 146 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 22af81c..54275b3 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -47,7 +47,6 @@ Public Class frmValidator Dim _Indexe_Loaded As Boolean = False Public Shared idxerr_message As String = "" - Dim DocView Private _CURRENT_INDEX_ARRAY(100, 250) As String Private _frmValidatorSearch As frmValidatorSearch 'You need a reference to Form1 @@ -2705,9 +2704,11 @@ Public Class frmValidator Next Else If omytype = "System.String" Then - MsgBox($"IDB Fill Grid [{oControl.Name}] with String") + 'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB Fill Grid [{oControl.Name}] with String") oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter) Select Case oColValuesfromSource.Length + Case 1 + oDataSource.Rows.Add(New String() {oColValuesfromSource(0)}) Case 2 oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)}) Case 3 @@ -2717,11 +2718,11 @@ Public Class frmValidator End Select ElseIf omytype = "System.Data.DataTable" Then Dim oMyDatatable As DataTable = oValueFromSource - MsgBox($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) + 'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB Fill Grid [{oControl.Name}] with Datatable - Rows: " & oMyDatatable.Rows.Count) For Each oRow As DataRow In oMyDatatable.Rows LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter) - MsgBox($"IDB ROW Vector {oRow.Item(0).ToString}...") + 'If USER_USERNAME.ToLower = "'marscheiber" Then MsgBox($"IDB ROW Vector {oRow.Item(0).ToString}...") Select Case oColValuesfromSource.Length Case 1 @@ -3180,6 +3181,12 @@ Public Class frmValidator If result = MsgBoxResult.Yes Then Return True Else + Dim oLogString = $"Msgboxresult [{oQuestion}] = [No]" + If IDB_ACTIVE = False Then + WMIndexVectofield(oLogString, PROFIL_LOGINDEX) + Else + IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString) + End If Return False End If End If @@ -3210,7 +3217,6 @@ Public Class frmValidator If PROFIL_FINISH_SQL <> String.Empty Then If btnFinish_continue() = False Then Exit Sub - End If End If From 103619ebacba3baa0600e6fc58b047ba4d5dc0f7 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 20 Apr 2020 14:36:46 +0200 Subject: [PATCH 14/14] MS --- app/DD_PM_WINDREAM/ClassDatabase.vb | 28 + app/DD_PM_WINDREAM/ClassInit.vb | 22 +- app/DD_PM_WINDREAM/ClassParamRefresh.vb | 3 +- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 2 +- app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- .../frmAdministration.Designer.vb | 1 + app/DD_PM_WINDREAM/frmAdministration.resx | 284 +++++---- app/DD_PM_WINDREAM/frmAdministration.vb | 82 ++- .../frmControl_Detail.Designer.vb | 131 ++-- app/DD_PM_WINDREAM/frmControl_Detail.resx | 576 ++++++++++-------- app/DD_PM_WINDREAM/frmControl_Detail.vb | 23 +- .../frmFormDesigner.Designer.vb | 32 +- app/DD_PM_WINDREAM/frmFormDesigner.vb | 29 +- app/DD_PM_WINDREAM/frmLicense.vb | 2 +- app/DD_PM_WINDREAM/frmMain.Designer.vb | 27 +- app/DD_PM_WINDREAM/frmMain.resx | 340 +++++------ app/DD_PM_WINDREAM/frmMain.vb | 180 ++++-- .../frmSQL_DESIGNER.Designer.vb | 1 + app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb | 4 + app/DD_PM_WINDREAM/frmValidator.vb | 29 +- 20 files changed, 1076 insertions(+), 722 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassDatabase.vb b/app/DD_PM_WINDREAM/ClassDatabase.vb index 4cd6883..d2ae63c 100644 --- a/app/DD_PM_WINDREAM/ClassDatabase.vb +++ b/app/DD_PM_WINDREAM/ClassDatabase.vb @@ -229,6 +229,34 @@ Public Class ClassDatabase Return Nothing End Try End Function + Public Shared Function Execute_Scalar_ConID(cmdscalar As String, ConnID As Integer, Optional userInput As Boolean = False) + Dim result + Try + Dim oConnString = Get_ConnectionString(ConnID) + LOGGER.Debug($"Execute_Scalar_ConID [{ConnID}]: " & cmdscalar) + + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = oConnString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = cmdscalar + result = SQLcommand.ExecuteScalar() + SQLcommand.Dispose() + SQLconnect.Close() + Return result + Catch ex As Exception + LOGGER.Error(ex) + If userInput = True Then + MsgBox("Error in Execute_Scalar_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical) + End If + Clipboard.SetText("Error Execute_Scalar_ConStr: " & ex.Message & vbNewLine & "SQL: " & cmdscalar) + LOGGER.Info("Fehler bei Execute_Scalar_ConStr: " & ex.Message, True) + LOGGER.Info("#SQL: " & cmdscalar, False) + Return Nothing + End Try + End Function Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String) Dim result Try diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index f930db2..e57d5d2 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -15,7 +15,7 @@ Public Class ClassInit Public Sub InitLogger() LOGCONFIG = New LogConfig(LogConfig.PathType.CustomPath, - Application.UserAppDataPath & "\Log", + Application.LocalUserAppDataPath & "\Log", Nothing, My.Application.Info.CompanyName, My.Application.Info.ProductName) @@ -103,6 +103,7 @@ Public Class ClassInit Sub Refresh_Licence() + Dim oStopWatch As New RefreshHelper.SW("Refresh_Licence") Try Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") Dim lic As String = BASEDATA_DT_CONFIG.Rows(0).Item("LIZENZEN") ' ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString) @@ -128,14 +129,19 @@ Public Class ClassInit LOGGER.Info("Unexpected error in Refresh license: " & ex.Message, True) MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:") End Try + oStopWatch.done End Sub Public Sub InitUserLogin() + Dim oStopWatch As New RefreshHelper.SW("InitUserLogin") Try USER_USERNAME = Environment.UserName Try + Dim oSQLSW As New RefreshHelper.SW("VWDD_USER_CLIENT") Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')" DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, False) + oSQLSW.Done() + If DT_CLIENT_USER.Rows.Count > 1 Then frmClientLogin.ShowDialog() ElseIf DT_CLIENT_USER.Rows.Count = 1 Then @@ -155,16 +161,13 @@ Public Class ClassInit End Try LOGGER.Debug("Username: " & USER_USERNAME) - + Dim oFnct As New RefreshHelper.SW("FNDD_CHECK_USER_MODULE") Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED) - - Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql) + oFnct.Done() If DT_CHECKUSER_MODULE.Rows.Count = 0 Then LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True) - ERROR_STATE = "NO USER" - MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation) Exit Sub End If @@ -241,7 +244,6 @@ Public Class ClassInit LOGGER.Info("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!") If USER_IS_ADMIN = False Then ClassAllgemeineFunktionen.LoginOut("LOGOUT") - LOGGER.Info("Wieder abgemeldet - START INCOMPLETE") ERROR_STATE = "START INCOMPLETE" End If End If @@ -253,11 +255,12 @@ Public Class ClassInit LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message, True) ERROR_STATE = "START INCOMPLETE" End Try - + oStopWatch.Done() End Sub Public Shared Sub InitBasics() Try + Dim oStopWatch As New RefreshHelper.SW("InitBasics") Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1") BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql) Settings_LoadBasicConfig() @@ -281,6 +284,7 @@ Public Class ClassInit BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1") oSql = "SELECT * FROM TBPM_CHART" BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql) + oStopWatch.Done() Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in InitBasics: " & ex.Message, True) @@ -290,8 +294,10 @@ Public Class ClassInit Public Shared Sub InitBasics2() Try + Dim oStopWatch As New RefreshHelper.SW("InitBasics2") Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID) BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql) + oStopWatch.Done() Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in InitBasics2: " & ex.Message, True) diff --git a/app/DD_PM_WINDREAM/ClassParamRefresh.vb b/app/DD_PM_WINDREAM/ClassParamRefresh.vb index 8748acd..265d771 100644 --- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb +++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb @@ -1,5 +1,6 @@ Public Class ClassParamRefresh Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable) + Dim oStopwatch As New RefreshHelper.SW("Refresh_Params") FORCE_LAYOUT_OVERVIEW = False SHOW_CHARTS = True USER_DEBUG_LOG = False @@ -65,6 +66,6 @@ Next End If - + oStopwatch.Done() End Sub End Class diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index ab31096..81dd4f5 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -38,7 +38,7 @@ Module ModuleRuntimeVariables Public USER_USERNAME As String Public DT_USER2MODULE As DataTable - Public CHANGES_IN_ADMINISTRATION As Boolean = False + Public CHANGES_FORM_DESIGN As Boolean = False Public USER_IS_ADMIN As Boolean = False Public USER_ID diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index ef81e1f..40073af 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index ad444d7..c1e5dda 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -1262,6 +1262,7 @@ Partial Class frmAdministration Me.RibbonControl1.MaxItemId = 24 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem1 diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 1be61f2..9308743 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -163,7 +163,7 @@ True - 922, 56 + 383, 56 206, 17 @@ -264,24 +264,6 @@ 0 - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - Label20 @@ -334,7 +316,7 @@ True - 17, 212 + 1045, 134 Fill @@ -432,24 +414,6 @@ 0 - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - Label19 @@ -519,6 +483,66 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + + + Label20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + + + Label19 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel2 + + + 0 + Fill @@ -532,7 +556,7 @@ True - 439, 173 + 439, 134 Fill @@ -582,27 +606,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - Label22 @@ -655,7 +658,7 @@ True - 17, 173 + 17, 134 Fill @@ -705,27 +708,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - Label23 @@ -795,6 +777,72 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + + + Label22 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel3 + + + 0 + + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + + + Label23 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel4 + + + 0 + False @@ -1087,16 +1135,16 @@ 6 - 727, 56 + 188, 56 368, 17 - 770, 17 + 541, 17 - 982, 17 + 753, 17 True @@ -1204,7 +1252,7 @@ 4 - 174, 56 + 1116, 17 Tahoma, 9.75pt @@ -1525,7 +1573,7 @@ 16 - 17, 56 + 959, 17 windream-Suche|*.wdf|Alle Dateien|*.* @@ -1534,10 +1582,10 @@ windream-Suche wählen - 368, 56 + 1310, 17 - 556, 56 + 17, 56 Top, Bottom, Left, Right @@ -1783,10 +1831,10 @@ Top, Bottom, Left, Right - 17, 251 + 798, 173 - 677, 212 + 344, 173 Fill @@ -2536,16 +2584,16 @@ 0 - 234, 95 + 823, 56 - 775, 134 + 1054, 95 - 871, 95 + 17, 95 - 754, 95 + 1343, 56 20, 20 @@ -2578,13 +2626,13 @@ 1 - 17, 95 + 606, 56 17, 17 - 497, 95 + 1086, 56 Fill @@ -2611,34 +2659,34 @@ 0 - 17, 134 + 296, 95 - 290, 134 + 569, 95 - 535, 134 + 814, 95 - 1019, 134 + 1298, 95 - 231, 173 + 231, 134 - 674, 173 + 674, 134 - 903, 173 + 903, 134 - 350, 212 + 17, 173 - 826, 212 + 493, 173 - 327, 251 + 1108, 173 Aktualisieren @@ -3452,17 +3500,8 @@ 0, 0 - - Profil-Verwaltung - - - Finale Indexe - - - Grundeinstellungen - - Menü Profil-Verwaltung + Start 1280, 146 @@ -3497,6 +3536,15 @@ 3 + + Profil-Verwaltung + + + Finale Indexe + + + Grundeinstellungen + RibbonPage2 @@ -3504,7 +3552,7 @@ True - 116 + 281 7, 16 diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index ebcb4ae..c561035 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -6,7 +6,8 @@ Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid.Views.Grid Public Class frmAdministration - + Private UNSAVED_CHANGES_PROFILE As Boolean = False + Private UNSAVED_CHANGES_FI As Boolean = False Private email As New ClassEmail Public profile_guid As Integer = 0 Dim formloaded As Boolean @@ -16,6 +17,7 @@ Public Class frmAdministration Dim MyIndicies_Types As List(Of Integer) Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load formloaded = False + UNSAVED_CHANGES_PROFILE = False Try TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING @@ -244,6 +246,27 @@ Public Class frmAdministration End Sub Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged + If formloaded = False Then + Exit Sub + End If + If UNSAVED_CHANGES_PROFILE = True Or UNSAVED_CHANGES_FI = True Then + Dim oQuestion As String + If USER_LANGUAGE <> "de-DE" Then + oQuestion = "You have unsaved changes! Do You want to save them now?" + Else + oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?" + End If + Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE) + 'wenn Speichern ja + If result = MsgBoxResult.Yes Then + If UNSAVED_CHANGES_PROFILE = True Then + Save_Profile() + End If + If UNSAVED_CHANGES_FI = True Then + Save_FI() + End If + End If + End If tsbStaticInfo.Caption = "" Indexe_eintragen() If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then @@ -827,6 +850,25 @@ Public Class frmAdministration 'End Sub Private Sub frmProfileDesigner_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing + If UNSAVED_CHANGES_PROFILE = True Or UNSAVED_CHANGES_FI = True Then + Dim oQuestion As String + If USER_LANGUAGE <> "de-DE" Then + oQuestion = "You have unsaved changes! Do You want to save them now?" + Else + oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?" + End If + Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE) + 'wenn Speichern ja + If result = MsgBoxResult.Yes Then + If UNSAVED_CHANGES_PROFILE = True Then + Save_Profile() + End If + If UNSAVED_CHANGES_FI = True Then + Save_FI() + End If + e.Cancel = True + End If + End If CancelFinalIndexInsert() End Sub @@ -909,6 +951,9 @@ Public Class frmAdministration Private Sub PropertyGrid1_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles PropertyGrid1.PropertyValueChanged + If formloaded = False Then + Exit Sub + End If Dim propertyGrid As PropertyGrid = s Dim obj As FinalIndexProperties = propertyGrid.SelectedObject @@ -931,6 +976,7 @@ Public Class frmAdministration End If propertyGrid.Refresh() End If + UNSAVED_CHANGES_FI = True End Sub @@ -1023,17 +1069,18 @@ Public Class frmAdministration End Sub Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick - Save_Profile + Save_Profile() End Sub Sub Save_Profile() Try Me.TBPM_PROFILEBindingSource.EndEdit() - If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then + If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Or UNSAVED_CHANGES_PROFILE = True Then CHANGED_WHOTextBox.Text = USER_USERNAME Me.TBPM_PROFILEBindingSource.EndEdit() Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE) tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}" - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True + UNSAVED_CHANGES_PROFILE = False Else tsbStaticInfo.Caption = "" End If @@ -1115,6 +1162,9 @@ Public Class frmAdministration End Sub Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick + Save_FI + End Sub + Private Sub Save_FI() Try Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject @@ -1179,6 +1229,7 @@ Public Class frmAdministration End If Refresh_Final_indexe() + End If Catch ex As Exception LOGGER.Error(ex) @@ -1188,9 +1239,9 @@ Public Class frmAdministration BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Never BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Always INSERT_ACTIVE = False + UNSAVED_CHANGES_FI = False End Try End Sub - Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick CancelFinalIndexInsert() End Sub @@ -1235,7 +1286,7 @@ Public Class frmAdministration Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_VIEW = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" If ClassDatabase.Execute_non_Query(oUpdate) = True Then tsbStaticInfo.Caption = $"Profile SQL saved - {Now.ToLongTimeString}" - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True End If End If @@ -1261,7 +1312,7 @@ Public Class frmAdministration Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" If ClassDatabase.Execute_non_Query(oUpdate) = True Then tsbStaticInfo.Caption = $"Profile SQLFinish saved - {Now.ToLongTimeString}" - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True End If End If @@ -1271,4 +1322,21 @@ Public Class frmAdministration LOGGER.Error(ex) End Try End Sub + + Private Sub TBPM_PROFILEBindingSource_CurrentItemChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentItemChanged + Check_Changes() + End Sub + Private Sub Check_Changes() + If formloaded = False Then + Exit Sub + End If + If UNSAVED_CHANGES_PROFILE = True Then + Exit Sub + End If + + TBPM_PROFILEBindingSource.EndEdit() + If Not IsNothing(DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges) Then + UNSAVED_CHANGES_PROFILE = True + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb b/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb index c11ebe6..ea379c4 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb +++ b/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb @@ -34,7 +34,10 @@ Partial Class frmControl_Detail Dim ADDED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim SQL_COMMANDLabel As System.Windows.Forms.Label Me.SPALTENNAMETextBox = New System.Windows.Forms.TextBox() + Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.SPALTEN_HEADERTextBox = New System.Windows.Forms.TextBox() Me.SPALTENBREITETextBox = New System.Windows.Forms.TextBox() Me.GUIDTextBox = New System.Windows.Forms.TextBox() @@ -46,8 +49,6 @@ Partial Class frmControl_Detail Me.btnDelete = New System.Windows.Forms.Button() Me.REGEX_MATCHTextBox = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() - Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.REGEX_MESSAGE_DETextBox = New System.Windows.Forms.TextBox() @@ -55,6 +56,9 @@ Partial Class frmControl_Detail Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() + Me.CONNECTION_IDTextBox = New System.Windows.Forms.TextBox() + Me.btnSQLEdit = New System.Windows.Forms.Button() SPALTENNAMELabel = New System.Windows.Forms.Label() SPALTEN_HEADERLabel = New System.Windows.Forms.Label() SPALTENBREITELabel = New System.Windows.Forms.Label() @@ -65,9 +69,10 @@ Partial Class frmControl_Detail ADDED_WHENLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label() - Me.StatusStrip1.SuspendLayout() + SQL_COMMANDLabel = New System.Windows.Forms.Label() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() Me.SuspendLayout() ' 'SPALTENNAMELabel @@ -90,12 +95,52 @@ Partial Class frmControl_Detail resources.ApplyResources(GUIDLabel, "GUIDLabel") GUIDLabel.Name = "GUIDLabel" ' + 'Label1 + ' + resources.ApplyResources(Label1, "Label1") + Label1.Name = "Label1" + ' + 'Label2 + ' + resources.ApplyResources(Label2, "Label2") + Label2.Name = "Label2" + ' + 'ADDED_WHOLabel + ' + resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ' + 'ADDED_WHENLabel + ' + resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ' + 'CHANGED_WHOLabel + ' + resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + ' + 'CHANGED_WHENLabel + ' + resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + ' 'SPALTENNAMETextBox ' Me.SPALTENNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTENNAME", True)) resources.ApplyResources(Me.SPALTENNAMETextBox, "SPALTENNAMETextBox") Me.SPALTENNAMETextBox.Name = "SPALTENNAMETextBox" ' + 'TBPM_CONTROL_TABLEBindingSource + ' + Me.TBPM_CONTROL_TABLEBindingSource.DataMember = "TBPM_CONTROL_TABLE" + Me.TBPM_CONTROL_TABLEBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' 'SPALTEN_HEADERTextBox ' Me.SPALTEN_HEADERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTEN_HEADER", True)) @@ -161,27 +206,12 @@ Partial Class frmControl_Detail resources.ApplyResources(Me.REGEX_MATCHTextBox, "REGEX_MATCHTextBox") Me.REGEX_MATCHTextBox.Name = "REGEX_MATCHTextBox" ' - 'Label1 - ' - resources.ApplyResources(Label1, "Label1") - Label1.Name = "Label1" - ' 'Button1 ' resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' - 'TBPM_CONTROL_TABLEBindingSource - ' - Me.TBPM_CONTROL_TABLEBindingSource.DataMember = "TBPM_CONTROL_TABLE" - Me.TBPM_CONTROL_TABLEBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'DD_DMSLiteDataSet - ' - Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" - Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'TBPM_CONTROL_TABLETableAdapter ' Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True @@ -190,6 +220,8 @@ Partial Class frmControl_Detail ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Me.TBPM_CONTROL_TABLETableAdapter Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing @@ -207,16 +239,6 @@ Partial Class frmControl_Detail resources.ApplyResources(Me.REGEX_MESSAGE_DETextBox, "REGEX_MESSAGE_DETextBox") Me.REGEX_MESSAGE_DETextBox.Name = "REGEX_MESSAGE_DETextBox" ' - 'Label2 - ' - resources.ApplyResources(Label2, "Label2") - Label2.Name = "Label2" - ' - 'ADDED_WHOLabel - ' - resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") - ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ' 'ADDED_WHOTextBox ' Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "ADDED_WHO", True)) @@ -224,11 +246,6 @@ Partial Class frmControl_Detail Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" Me.ADDED_WHOTextBox.ReadOnly = True ' - 'ADDED_WHENLabel - ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ' 'ADDED_WHENTextBox ' Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "ADDED_WHEN", True)) @@ -236,11 +253,6 @@ Partial Class frmControl_Detail Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" Me.ADDED_WHENTextBox.ReadOnly = True ' - 'CHANGED_WHOLabel - ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - ' 'CHANGED_WHOTextBox ' Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CHANGED_WHO", True)) @@ -248,11 +260,6 @@ Partial Class frmControl_Detail Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" Me.CHANGED_WHOTextBox.ReadOnly = True ' - 'CHANGED_WHENLabel - ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - ' 'CHANGED_WHENTextBox ' Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CHANGED_WHEN", True)) @@ -260,10 +267,41 @@ Partial Class frmControl_Detail Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" Me.CHANGED_WHENTextBox.ReadOnly = True ' + 'SQL_COMMANDLabel + ' + resources.ApplyResources(SQL_COMMANDLabel, "SQL_COMMANDLabel") + SQL_COMMANDLabel.Name = "SQL_COMMANDLabel" + ' + 'SQL_COMMANDTextBox + ' + Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SQL_COMMAND", True)) + resources.ApplyResources(Me.SQL_COMMANDTextBox, "SQL_COMMANDTextBox") + Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" + Me.SQL_COMMANDTextBox.ReadOnly = True + ' + 'CONNECTION_IDTextBox + ' + Me.CONNECTION_IDTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.CONNECTION_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CONNECTION_ID", True)) + Me.CONNECTION_IDTextBox.ForeColor = System.Drawing.SystemColors.Control + resources.ApplyResources(Me.CONNECTION_IDTextBox, "CONNECTION_IDTextBox") + Me.CONNECTION_IDTextBox.Name = "CONNECTION_IDTextBox" + Me.CONNECTION_IDTextBox.ReadOnly = True + ' + 'btnSQLEdit + ' + resources.ApplyResources(Me.btnSQLEdit, "btnSQLEdit") + Me.btnSQLEdit.Name = "btnSQLEdit" + Me.btnSQLEdit.UseVisualStyleBackColor = True + ' 'frmControl_Detail ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.btnSQLEdit) + Me.Controls.Add(Me.CONNECTION_IDTextBox) + Me.Controls.Add(SQL_COMMANDLabel) + Me.Controls.Add(Me.SQL_COMMANDTextBox) Me.Controls.Add(CHANGED_WHENLabel) Me.Controls.Add(Me.CHANGED_WHENTextBox) Me.Controls.Add(CHANGED_WHOLabel) @@ -294,10 +332,10 @@ Partial Class frmControl_Detail Me.MinimizeBox = False Me.Name = "frmControl_Detail" Me.TopMost = True - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout @@ -323,4 +361,7 @@ End Sub Friend WithEvents ADDED_WHENTextBox As TextBox Friend WithEvents CHANGED_WHOTextBox As TextBox Friend WithEvents CHANGED_WHENTextBox As TextBox + Friend WithEvents SQL_COMMANDTextBox As TextBox + Friend WithEvents CONNECTION_IDTextBox As TextBox + Friend WithEvents btnSQLEdit As Button End Class diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.resx b/app/DD_PM_WINDREAM/frmControl_Detail.resx index 6a702b7..ad9c7bb 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.resx +++ b/app/DD_PM_WINDREAM/frmControl_Detail.resx @@ -151,7 +151,7 @@ $this - 24 + 28 False @@ -184,7 +184,7 @@ $this - 22 + 26 False @@ -217,7 +217,7 @@ $this - 18 + 22 False @@ -250,7 +250,193 @@ $this - 14 + 18 + + + False + + + True + + + NoControl + + + 12, 174 + + + 41, 13 + + + 4 + + + Regex: + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 21 + + + False + + + True + + + NoControl + + + 12, 219 + + + 93, 13 + + + 4 + + + Regex Nachricht: + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 20 + + + False + + + True + + + 12, 313 + + + 99, 13 + + + 22 + + + Hinzugefügt Wer: + + + ADDED_WHOLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 10 + + + False + + + True + + + 12, 341 + + + 109, 13 + + + 23 + + + Hinzugefügt Wann: + + + ADDED_WHENLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 8 + + + False + + + True + + + 12, 369 + + + 82, 13 + + + 24 + + + Geändert Wer: + + + CHANGED_WHOLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 6 + + + False + + + True + + + 12, 397 + + + 92, 13 + + + 25 + + + Geändert Wann: + + + CHANGED_WHENLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 4 179, 17 @@ -274,8 +460,17 @@ $this - 25 + 29 + + 179, 17 + + + 17, 17 + + + 17, 17 + 15, 108 @@ -295,7 +490,7 @@ $this - 23 + 27 15, 149 @@ -316,7 +511,7 @@ $this - 21 + 25 15, 25 @@ -337,13 +532,13 @@ $this - 15 + 19 NoControl - 15, 392 + 8, 439 87, 24 @@ -364,13 +559,13 @@ $this - 13 + 17 NoControl - 108, 392 + 101, 439 120, 24 @@ -391,7 +586,7 @@ $this - 12 + 16 MiddleLeft @@ -400,7 +595,7 @@ NoControl - 167, 422 + 160, 469 159, 32 @@ -424,16 +619,25 @@ $this - 11 + 15 1021, 17 + + 153, 17 + + + Änderungen gespeichert + + + False + - 0, 467 + 0, 509 - 348, 22 + 366, 22 21 @@ -451,16 +655,7 @@ $this - 9 - - - 153, 17 - - - Änderungen gespeichert - - - False + 13 MiddleLeft @@ -469,7 +664,7 @@ NoControl - 12, 422 + 5, 469 149, 32 @@ -493,13 +688,13 @@ $this - 10 + 14 15, 190 - 275, 22 + 311, 22 5 @@ -514,46 +709,13 @@ $this - 20 - - - False - - - True - - - NoControl - - - 12, 174 - - - 41, 13 - - - 4 - - - Regex: - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 17 + 24 NoControl - 296, 190 + 327, 190 30, 22 @@ -574,17 +736,8 @@ $this - 8 + 12 - - 179, 17 - - - 17, 17 - - - 17, 17 - 440, 17 @@ -610,73 +763,10 @@ $this - 19 - - - False - - - True - - - NoControl - - - 12, 219 - - - 93, 13 - - - 4 - - - Regex Nachricht: - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 16 - - - False - - - True - - - 19, 266 - - - 99, 13 - - - 22 - - - Hinzugefügt Wer: - - - ADDED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 6 + 23 - 134, 263 + 127, 310 192, 22 @@ -694,160 +784,169 @@ $this - 7 + 11 - - False - - - True + + 127, 338 - - 19, 294 + + 192, 22 - - 109, 13 + + 24 - - 23 + + ADDED_WHENTextBox - - Hinzugefügt Wann: + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ADDED_WHENLabel + + $this - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 9 - + + 127, 366 + + + 192, 22 + + + 25 + + + CHANGED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + $this - - 4 + + 7 - - 134, 291 + + 127, 394 - + 192, 22 - - 24 + + 26 - - ADDED_WHENTextBox + + CHANGED_WHENTextBox - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - + 5 - + False - + True - - 19, 322 + + 12, 260 - - 82, 13 + + 85, 13 - - 24 + + 26 - - Geändert Wer: + + SQL-Command: - - CHANGED_WHOLabel + + SQL_COMMANDLabel - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - + 2 - - 134, 319 + + 15, 276 - - 192, 22 + + 311, 22 - - 25 + + 27 - - CHANGED_WHOTextBox + + SQL_COMMANDTextBox - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - + 3 - - False - - - True + + 327, 258 - - 19, 350 + + 100, 15 - - 92, 13 + + 29 - - 25 + + CONNECTION_IDTextBox - - Geändert Wann: + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - CHANGED_WHENLabel + + $this - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1 - - $this + + NoControl - - 0 + + 327, 276 - - 134, 347 + + 30, 22 - - 192, 22 + + 30 - - 26 + + ... - - CHANGED_WHENTextBox + + btnSQLEdit - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - - 1 + + 0 True @@ -856,23 +955,14 @@ 6, 13 - 348, 489 + 366, 531 Segoe UI, 8.25pt - - NoControl - Spalte bearbeiten - - tslblAenderungen - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TBPM_CONTROL_TABLEBindingSource @@ -885,6 +975,12 @@ DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + tslblAenderungen + + + System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + TBPM_CONTROL_TABLETableAdapter diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.vb b/app/DD_PM_WINDREAM/frmControl_Detail.vb index feff57d..3b93c93 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.vb +++ b/app/DD_PM_WINDREAM/frmControl_Detail.vb @@ -19,6 +19,10 @@ Public Class frmControl_Detail End Function Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + Save_Data + + End Sub + Sub Save_Data() Try TBPM_CONTROL_TABLEBindingSource.EndEdit() If DD_DMSLiteDataSet.TBPM_CONTROL_TABLE.GetChanges Is Nothing = False Then @@ -35,7 +39,6 @@ Public Class frmControl_Detail LOGGER.Error(ex) MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern:") End Try - End Sub Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click @@ -78,4 +81,22 @@ Public Class frmControl_Detail REGEX_MATCHTextBox.Text = oForm.RegexString End If End Sub + + Private Sub btnSQLEdit_Click(sender As Object, e As EventArgs) Handles btnSQLEdit.Click + Dim oldSQL = SQL_COMMANDTextBox.Text + Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL} + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + If oldSQL <> oForm.SQLCommand Then + Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}' + , CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}" + If ClassDatabase.Execute_non_Query(oUpdate) = True Then + tslblAenderungen.Visible = True + tslblAenderungen.Text = "Changes saved - " & Now + End If + + End If + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 444ae13..1e86fc8 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -68,7 +68,7 @@ Partial Class frmFormDesigner Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.rpggrp_controls = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibPGCtrlWidth = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibPGCtrlheight = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() @@ -402,37 +402,37 @@ Partial Class frmFormDesigner ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibPGCtrlWidth, Me.RibPGCtrlheight}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.rpggrp_controls, Me.RibPGCtrlWidth, Me.RibPGCtrlheight}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Start" ' 'RibbonPageGroup3 ' Me.RibbonPageGroup3.Enabled = False - Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup3.Name = "RibbonPageGroup3" Me.RibbonPageGroup3.Text = "Control-Funktionen" ' 'RibbonPageGroup1 ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Funktionen" ' - 'RibbonPageGroup2 + 'rpggrp_controls ' - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLabel) - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitTextBox) - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLU) - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitTable) - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitDatePicker) - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitCheckBox) - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitButton) - Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLine) - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "Controls einfügen" + Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitLabel) + Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitTextBox) + Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitLU) + Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitTable) + Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitDatePicker) + Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitCheckBox) + Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitButton) + Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitLine) + Me.rpggrp_controls.Name = "rpggrp_controls" + Me.rpggrp_controls.Text = "Controls einfügen" ' 'RibPGCtrlWidth ' @@ -547,7 +547,7 @@ Partial Class frmFormDesigner Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents rpggrp_controls As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents bbtniwidth_plus As DevExpress.XtraBars.BarButtonItem diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 0aa2dca..382b35d 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -42,9 +42,10 @@ Public Class frmFormDesigner Mouse_IsPressed = False RibPGCtrlheight.Enabled = False RibPGCtrlWidth.Enabled = False + rpggrp_controls.Enabled = False ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER CURRENT_DESIGN_TYPE = "INPUT_INDEX" - + CHANGES_FORM_DESIGN = False ' Profil Name in Fenstertitel setzen Text = $"Validation Designer - Profil: {ProfileName}" @@ -1056,7 +1057,7 @@ Public Class frmFormDesigner tslblAenderungen.Visible = True tslblAenderungen.Text = "Änderungen gespeichert - " & Now - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True Return True Catch ex As Exception @@ -1087,7 +1088,7 @@ Public Class frmFormDesigner Dim oSQL = $"EXEC PRPM_CHANGE_CONTROL_CAPTION {guid},{escapedValue},'{USER_USERNAME}','{USER_LANGUAGE}'" ClassDatabase.Execute_non_Query(oSQL) End If - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True Return True End If @@ -1134,7 +1135,7 @@ Public Class frmFormDesigner If ClassDatabase.Execute_non_Query(oUpdate) = True Then tslblAenderungen.Text = $"Profile SQLFinish saved - {Now.ToLongTimeString}" tslblAenderungen.Visible = True - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True Else tslblAenderungen.Visible = False End If @@ -1165,11 +1166,13 @@ Public Class frmFormDesigner If BarButtonItem3.Caption = "Designer locked" Then BarButtonItem3.Caption = "Designer active" BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Lime + rpggrp_controls.Enabled = True Designer_Locked = False Else BarButtonItem3.Caption = "Designer locked" BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red Designer_Locked = True + rpggrp_controls.Enabled = False If Me.Cursor = Cursors.Cross Then Mouse_IsPressed = False Me.Cursor = Cursors.Default @@ -1234,7 +1237,7 @@ Public Class frmFormDesigner SetMovementHandlers(label) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True CurrentControl = label CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -1249,7 +1252,7 @@ Public Class frmFormDesigner SetMovementHandlers(txt) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True CurrentControl = txt CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -1263,7 +1266,7 @@ Public Class frmFormDesigner SetMovementHandlers(cmb) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True CurrentControl = cmb CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -1277,7 +1280,7 @@ Public Class frmFormDesigner SetMovementHandlers(dtp) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True CurrentControl = dtp CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -1291,7 +1294,7 @@ Public Class frmFormDesigner SetMovementHandlers(chk) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True CurrentControl = chk CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -1306,7 +1309,7 @@ Public Class frmFormDesigner SetMovementHandlers(lc) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True CurrentControl = lc CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -1322,7 +1325,7 @@ Public Class frmFormDesigner AddHandler tb.MouseClick, AddressOf gridControl_MouseClick TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True Dim oControlId = GetLastID() CurrentControl = tb @@ -1341,7 +1344,7 @@ Public Class frmFormDesigner SetMovementHandlers(line) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True CurrentControl = line CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), @@ -1356,7 +1359,7 @@ Public Class frmFormDesigner SetMovementHandlers(oButton) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width) - CHANGES_IN_ADMINISTRATION = True + CHANGES_FORM_DESIGN = True CurrentControl = oButton CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With { .Guid = GetLastID(), diff --git a/app/DD_PM_WINDREAM/frmLicense.vb b/app/DD_PM_WINDREAM/frmLicense.vb index 4074bc5..181eea2 100644 --- a/app/DD_PM_WINDREAM/frmLicense.vb +++ b/app/DD_PM_WINDREAM/frmLicense.vb @@ -73,7 +73,7 @@ Public Class frmLicense Me.lblAktuelleLizenzen.Text = "Aktuelle Anzahl Lizenzen: " & lizenzzahl If Neu = True Then If CInt(lizenzzahl) > 0 Then - MsgBox("License was refreshed!", MsgBoxStyle.Information, "Success:") + MsgBox("License was refreshed!" & vbNewLine & Now.ToString, MsgBoxStyle.Information, "Success:") End If End If Catch ex As Exception diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index dc02873..5fd0776 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -63,7 +63,9 @@ Partial Class frmMain Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) Me.ContextMenuNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.PopupErinnerungInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components) Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_USERTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() @@ -172,8 +174,6 @@ Partial Class frmMain Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() Me.PrintPreviewBarCheckItem18 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() Me.PrintPreviewBarCheckItem19 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() - Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() @@ -330,7 +330,7 @@ Partial Class frmMain Me.BindingNavigator1.AddNewItem = Nothing Me.BindingNavigator1.BindingSource = Me.bindsourcegrid Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem - Me.BindingNavigator1.CountItemFormat = "von {0} Dateien" + Me.BindingNavigator1.CountItemFormat = "von {0} Vorgängen" Me.BindingNavigator1.DeleteItem = Nothing Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(20, 20) Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabelViewTape, Me.BindingNavigatorSeparator2, Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem}) @@ -463,11 +463,21 @@ Partial Class frmMain Me.PopupErinnerungInaktivierenToolStripMenuItem.Name = "PopupErinnerungInaktivierenToolStripMenuItem" resources.ApplyResources(Me.PopupErinnerungInaktivierenToolStripMenuItem, "PopupErinnerungInaktivierenToolStripMenuItem") ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") + ' 'AnzeigenToolStripMenuItem ' Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem" resources.ApplyResources(Me.AnzeigenToolStripMenuItem, "AnzeigenToolStripMenuItem") ' + 'OutOfRangePMFixierenToolStripMenuItem + ' + Me.OutOfRangePMFixierenToolStripMenuItem.Name = "OutOfRangePMFixierenToolStripMenuItem" + resources.ApplyResources(Me.OutOfRangePMFixierenToolStripMenuItem, "OutOfRangePMFixierenToolStripMenuItem") + ' 'TimerRefresh ' Me.TimerRefresh.Interval = 60000 @@ -701,7 +711,6 @@ Partial Class frmMain ' Me.RibbonPageGroup4.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup4.ItemLinks.Add(Me.bbtniGrundeinstellung) - Me.RibbonPageGroup4.ItemLinks.Add(Me.bbtnitemInfo) Me.RibbonPageGroup4.Name = "RibbonPageGroup4" resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4") ' @@ -1319,16 +1328,6 @@ Partial Class frmMain Me.PrintPreviewBarCheckItem19.Id = 58 Me.PrintPreviewBarCheckItem19.Name = "PrintPreviewBarCheckItem19" ' - 'OutOfRangePMFixierenToolStripMenuItem - ' - Me.OutOfRangePMFixierenToolStripMenuItem.Name = "OutOfRangePMFixierenToolStripMenuItem" - resources.ApplyResources(Me.OutOfRangePMFixierenToolStripMenuItem, "OutOfRangePMFixierenToolStripMenuItem") - ' - 'ToolStripSeparator1 - ' - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") - ' 'frmMain ' Me.Appearance.Options.UseFont = True diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 60ed061..775a78b 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAUwBBgFMAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAVwBBgFcAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -178,78 +178,10 @@ 597, 17 - - 17, 134 - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 1 - - - NavBarControl1 - - - DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 2 - - - - Fill - - - - Tahoma, 9pt - - - 0, 146 - - - 1347, 360 - - - - 4 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 3 - 392, 95 + 270, 198 @@ -259,6 +191,7 @@ System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + Fill @@ -268,6 +201,7 @@ 1114, 333 + 8 @@ -286,86 +220,6 @@ 0 - - 269, 26 - - - Validierung für Gruppe/Profil starten - - - 269, 26 - - - Validierung für Datei starten - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAANNJREFUOE+1k80NgzAMRhmlI3QGZuGeLdiBXjoEU2QaCk3gSPssjJIQBXpopE9y - 7M/PCT9VuuZ5XgsanHP3zZpfGOu6zqpt23NICYBOISHgNYyRipBlWW7e+ycAa63Ivd06jdMBEEKkGRIb - mpExRqR7QLmTUJPJ32Bomkaa+r7fDcTkqIWQCKDHxqiFVHoavY7mBcB0Ap3cdY99EjE5anj0FCkgmq6N - CtI8Hu/8fwCXr6CeCPDLQ0w9Arj6GjHndOlDolb8gVjBp7yDiMlR22zJqqoPDtN4ChAfojUAAAAASUVO - RK5CYII= - - - - 269, 26 - - - Metadaten Datei anzeigen - - - False - - - 266, 6 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA - qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg - 2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY - AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC - - - - 269, 26 - - - Massenabschluss markierte Dateien - - - 266, 6 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF - RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF - ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d - C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3 - AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg== - - - - 269, 26 - - - Lösche alle Filter - - - 269, 26 - - - Layout zurücksetzen - - - 269, 26 - - - Layout speichern - 17, 134 @@ -373,10 +227,10 @@ 171, 134 - 87, 24 + 104, 24 - von {0} Dateien + von {0} Vorgängen Die Gesamtanzahl der Elemente. @@ -440,9 +294,6 @@ False - - Segoe UI, 9pt - 50, 23 @@ -725,6 +576,113 @@ 2 + + Fill + + + Tahoma, 9pt + + + 0, 146 + + + 1347, 360 + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + + + 269, 26 + + + Validierung für Gruppe/Profil starten + + + 269, 26 + + + Validierung für Datei starten + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAANNJREFUOE+1k80NgzAMRhmlI3QGZuGeLdiBXjoEU2QaCk3gSPssjJIQBXpopE9y + 7M/PCT9VuuZ5XgsanHP3zZpfGOu6zqpt23NICYBOISHgNYyRipBlWW7e+ycAa63Ivd06jdMBEEKkGRIb + mpExRqR7QLmTUJPJ32Bomkaa+r7fDcTkqIWQCKDHxqiFVHoavY7mBcB0Ap3cdY99EjE5anj0FCkgmq6N + CtI8Hu/8fwCXr6CeCPDLQ0w9Arj6GjHndOlDolb8gVjBp7yDiMlR22zJqqoPDtN4ChAfojUAAAAASUVO + RK5CYII= + + + + 269, 26 + + + Metadaten Datei anzeigen + + + False + + + 266, 6 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA + qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg + 2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY + AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC + + + + 269, 26 + + + Massenabschluss markierte Dateien + + + 266, 6 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF + RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF + ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d + C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3 + AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg== + + + + 269, 26 + + + Lösche alle Filter + + + 269, 26 + + + Layout zurücksetzen + + + 269, 26 + + + Layout speichern + 219, 26 @@ -737,29 +695,8 @@ 519, 134 - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 231, 6 - - - 234, 22 - - - Bring to Front - - - 234, 22 - - - Out of Range - PM fixieren - - 235, 98 + 235, 76 ContextMenuNotifyIcon @@ -939,6 +876,27 @@ True + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 231, 6 + + + 234, 22 + + + Bring to Front + + + 234, 22 + + + Out of Range - PM fixieren + 1023, 17 @@ -1310,7 +1268,7 @@ 0, 0 - Funktionen + Start 1347, 146 @@ -1650,7 +1608,7 @@ Manual - 4565465 + Digital Data - ProcessManager ImageListProfile @@ -1844,12 +1802,24 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ToolStripSeparator1 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + AnzeigenToolStripMenuItem System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + OutOfRangePMFixierenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + TimerRefresh @@ -2462,18 +2432,6 @@ DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - OutOfRangePMFixierenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator1 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - frmMain diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 2931fba..e1a5da6 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -37,6 +37,7 @@ Public Class frmMain Private DT_CHECKUSER_MODULE As DataTable + Private IsFilterMode As Boolean Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Try @@ -856,7 +857,7 @@ Public Class frmMain Exit Sub End If - If BASEDATA_DT_VW_PROFILE_USER.Rows.Count > 0 Then + If CURR_DT_OVERVIEW.Rows.Count > 0 Then Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline") NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info) End If @@ -882,10 +883,10 @@ Public Class frmMain TimerRefresh.Enabled = False End If - If CHANGES_IN_ADMINISTRATION = True Then + If CHANGES_FORM_DESIGN = True Then LoadCURRENT_DT_PROFILES() LoadVWPM_CONTROL_INDEX() - CHANGES_IN_ADMINISTRATION = False + CHANGES_FORM_DESIGN = False End If Dim oExpression = $"GUID = {CURRENT_ProfilGUID}" @@ -1484,83 +1485,94 @@ Public Class frmMain RefreshHelper.LoadViewInfo() End Sub + Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick + Item_Scope("DOUBLECLICK") + End Sub - Private Sub GridView1_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) + Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow Try + If formShown = False Then + Exit Sub + End If Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo) Dim view As GridView = sender Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem) ' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item) - If info.Column.FieldName = "PROFILE_GROUP_TEXT" Or info.Column.FieldName = "GROUP_TEXT" Then + If info.Column.FieldName = "GROUP_TEXT" Then info.GroupText = info.GroupValueText - Dim _color As String = "Grey" + Dim _color As String = "LightGray" + Dim _FontColor As String = "Black" + Dim oFoundConfig As Boolean = False For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows - If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then - _color = row.Item("PROFILE_GROUP_COLOR") - ElseIf row.Item("GROUP_TEXT") = info.GroupValueText Then + LOGGER.Debug($"CustomDrawGroupRow: Working on ProfileID [{row.Item("GUID")}]...") + If row.Item("GROUP_TEXT") = info.GroupValueText Then + oFoundConfig = True _color = row.Item("GROUP_COLOR") - + _FontColor = row.Item("GROUP_FONT_COLOR") End If Next + If oFoundConfig = False Then + LOGGER.Info($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...") + End If + Dim oColor As Color + Dim oFontColor As Color + Try + If _color.Contains(";") Or _color.Contains(".") Then + Dim oColorSplit As String() + If _color.Contains(";") Then + oColorSplit = _color.Split(";") + ElseIf _color.Contains(".") Then + oColorSplit = _color.Split(".") + End If - Select Case _color - Case "Red" - info.Appearance.BackColor = Color.LightSalmon - Case "Green" - info.Appearance.BackColor = Color.LightGreen - Case "Yellow" - info.Appearance.BackColor = Color.LightYellow - Case "Grey" - info.Appearance.BackColor = Color.LightGray - End Select - - End If - Catch ex As Exception - LOGGER.Error(ex) - - End Try - End Sub - Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick - Item_Scope("DOUBLECLICK") - End Sub + Try + oColor = Color.FromArgb(oColorSplit(0), oColorSplit(1), oColorSplit(2)) + Catch ex As Exception + LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromArgb [{_color}]") + oColor = Color.LightGray + End Try - Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow - Try - Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo) - Dim view As GridView = sender - Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem) - ' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item) + Else + Try + oColor = Color.FromName(_color) + Catch ex As Exception + LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromName [{_color}]") + oColor = Color.LightGray + End Try - If info.Column.FieldName = "GROUP_TEXT" Then - info.GroupText = info.GroupValueText + End If + If _FontColor.Contains(";") Then + Try + oFontColor = Color.FromArgb(_FontColor) + Catch ex As Exception + LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromArgb [{_FontColor}]") + oFontColor = Color.Black + End Try - Dim _color As String = "Grey" + Else + Try + oFontColor = Color.FromName(_FontColor) + Catch ex As Exception + LOGGER.Info($"CustomDrawGroupRow(FC): Could not get Color.FromName [{_FontColor}]") + oFontColor = Color.Black + End Try - For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows - If row.Item("GROUP_TEXT") = info.GroupValueText Then - _color = row.Item("GROUP_COLOR") End If - Next + Catch ex As Exception + LOGGER.Info($"CustomDrawGroupRow(FC): Error getting Color [{_FontColor}]") + oColor = Color.LightGray + End Try + info.Appearance.BackColor = oColor + info.Appearance.ForeColor = oFontColor - Select Case _color - Case "Red" - info.Appearance.BackColor = Color.LightSalmon - Case "Green" - info.Appearance.BackColor = Color.LightGreen - Case "Yellow" - info.Appearance.BackColor = Color.LightYellow - Case "Grey" - info.Appearance.BackColor = Color.LightGray - End Select End If Catch ex As Exception LOGGER.Error(ex) - End Try End Sub @@ -1777,9 +1789,6 @@ Public Class frmMain End Try End Sub - Private Sub bbtnitemInfo_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitemInfo.ItemClick - frmAbout.ShowDialog() - End Sub Private Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick If GridControl_Docs.Visible = True And formopenClose = False Then @@ -1880,9 +1889,64 @@ Public Class frmMain End Sub Private Sub OutOfRangePMFixierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OutOfRangePMFixierenToolStripMenuItem.Click - Dim myPoint As Point = New Point(50, 50) Me.Location = Screen.AllScreens(UBound(Screen.AllScreens)).Bounds.Location + myPoint BringMonitor2Front() End Sub + + Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle + If formShown = False Then + Exit Sub + End If + If e.RowHandle = -1 Then + IsFilterMode = True + Exit Sub + End If + If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then + IsFilterMode = True + ' e.Appearance.BackColor = Color.Yellow + Else + IsFilterMode = False + Try + Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR") + If Not IsNothing(oRowColorCellValue) Then + Dim oColor As Color + Try + If oRowColorCellValue.ToString.Contains(";") Or oRowColorCellValue.ToString.Contains(".") Then + Dim oColorSplit As String() + If oRowColorCellValue.Contains(";") Then + oColorSplit = oRowColorCellValue.Split(";") + ElseIf oRowColorCellValue.Contains(".") Then + oColorSplit = oRowColorCellValue.Split(".") + End If + + + Try + oColor = Color.FromArgb(oColorSplit(0), oColorSplit(1), oColorSplit(2)) + Catch ex As Exception + LOGGER.Info($"RowColorHandler: Could not get Color.FromArgb [{oRowColorCellValue}]") + oColor = Color.LightGray + End Try + Else + Try + oColor = Color.FromName(oRowColorCellValue) + Catch ex As Exception + LOGGER.Info($"RowColorHandler: Could not get Color.FromName [{oRowColorCellValue}]") + End Try + + + End If + Catch ex As Exception + LOGGER.Info("RowBackColor: " & ex.Message, False) + Exit Sub + End Try + e.Appearance.BackColor = oColor + e.HighPriority = True + End If + Catch ex As Exception + LOGGER.Info("Unexpected Error in RowStyle: " & ex.Message, False) + End Try + + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb index 9cee8fc..ed08019 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb @@ -73,6 +73,7 @@ Partial Class frmSQL_DESIGNER Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb index 88a8079..e88a683 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb @@ -278,4 +278,8 @@ Public Class frmSQL_DESIGNER Private Sub btnShowConnections_Click(sender As Object, e As EventArgs) Handles btnShowConnections.Click frmConnection.ShowDialog() End Sub + + Private Sub cmbConnection_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbConnection.SelectedIndexChanged + + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 54275b3..f9a96fc 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -279,9 +279,9 @@ Public Class frmValidator If CURRENT_DOC_GUID <> 0 Then Try - If ItemWorked = False Then - Free_File() - End If + 'If ItemWorked = False Then + Free_File() + 'End If Catch ex As Exception LOGGER.Error(ex) End Try @@ -1359,7 +1359,7 @@ Public Class frmValidator Dim oSqlCommand = IIf(IsDBNull(oFilteredDatatable.Rows(0).Item("SET_CONTROL_DATA")), "", oFilteredDatatable.Rows(0).Item("SET_CONTROL_DATA")) oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) _SetControlValue_in_action = True - Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand) + Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oFilteredDatatable.Rows(0).Item("CONNECTION_ID")) For Each oRowControl2Set As DataRow In oDTDEPENDING_RESULT.Rows Try oControl2Set = oRowControl2Set.Item("Control2Set") @@ -1383,6 +1383,7 @@ Public Class frmValidator Catch ex As Exception btnSave.ForeColor = Color.Black End Try + Catch ex As Exception End Try @@ -1401,9 +1402,19 @@ Public Class frmValidator LOGGER.Debug($"Got the Control22Set: {oControl2Set}..Setting the values..") Select Case oControl.GetType.ToString Case GetType(TextBox).ToString + Dim oTextOption = "Replace" + Try + oTextOption = oRowControl2Set.Item("TextOption") + Catch ex As Exception + oTextOption = "Replace" + End Try Try Dim oTEXT = oRowControl2Set.Item("Caption") - oControl.Text = oControl.Text & oTEXT + If oTextOption = "Replace" Then + oControl.Text = oTEXT + Else + oControl.Text = oControl.Text & oTEXT + End If Catch ex As Exception End Try @@ -1420,6 +1431,7 @@ Public Class frmValidator Catch ex As Exception oControl.ForeColor = Color.Black End Try + Case GetType(LookupControl2).ToString Dim oDependingLookup As LookupControl2 = oControl oDependingLookup.DataSource = oDTDEPENDING_RESULT @@ -1470,7 +1482,7 @@ Public Class frmValidator Dim oSqlCommand = IIf(IsDBNull(oRowDependingControl.Item("SQL_UEBERPRUEFUNG")), "", oRowDependingControl.Item("SQL_UEBERPRUEFUNG")) oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) _dependingControl_in_action = True - Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand) + Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oRowDependingControl.Item("CONNECTION_ID")) Try Dim oFound As Boolean = False 'Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault() @@ -1666,7 +1678,7 @@ Public Class frmValidator Dim oSqlCommand = IIf(IsDBNull(oRowEnablingControl.Item("SQL_ENABLE")), "", oRowEnablingControl.Item("SQL_ENABLE")) oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) _dependingControl_in_action = True - Dim oENABLERESULT As Boolean = ClassDatabase.Execute_Scalar(oSqlCommand, CONNECTION_STRING) + Dim oENABLERESULT As Boolean = ClassDatabase.Execute_Scalar_ConID(oSqlCommand, oRowEnablingControl.Item("CONNECTION_ID")) Try Dim oFound As Boolean = False 'Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault() @@ -3190,6 +3202,9 @@ Public Class frmValidator Return False End If End If + Case "MsgboxStop".ToUpper + MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False Case "Msgbox".ToUpper MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Return True