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] 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