3D Pie auf Main gesetzt

EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj

@@ -139,6 +139,7 @@
     <Compile Include="Jobs\CertificateDocumentJob.vb" />
     <Compile Include="Models\BaseModel.vb" />
     <Compile Include="Models\CertificateModel.vb" />
+    <Compile Include="Models\ChartModel.vb" />
     <Compile Include="Models\ConfigModel.vb" />
     <Compile Include="Models\DocumentModel.vb" />
     <Compile Include="Models\ElementModel.vb" />

EnvelopeGenerator.Common/Models/ChartModel.vb

@@ -0,0 +1,28 @@
+Imports System.Data.SqlClient
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+
+Public Class ChartModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+
+    End Sub
+
+    Public Function LoadPIEExample() As DataTable
+        Try
+            Dim oSQL As String
+            oSQL = " SELECT 'ALLE' as Argument, 100 as Value"
+            oSQL += " UNION "
+            oSQL += " SELECT 'Komplett', 33 "
+
+            Dim oTable As DataTable = Database.GetDatatable(oSQL)
+
+            Return oTable
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+End Class

EnvelopeGenerator.Form/Controllers/BaseController.vb

@@ -13,6 +13,7 @@ Public MustInherit Class BaseController
     Public HistoryModel As HistoryModel
     Public UserModel As UserModel
     Public EmailModel As EmailModel
+    Public ChartModel As ChartModel
 
     Public ActionService As ActionService
 
@@ -35,6 +36,7 @@ Public MustInherit Class BaseController
         HistoryModel = New HistoryModel(pState)
         UserModel = New UserModel(pState)
         EmailModel = New EmailModel(pState)
+        ChartModel = New ChartModel(pState)
     End Sub
 
     Public Function DeleteEnvelope(pEnvelope As Envelope) As Boolean

EnvelopeGenerator.Form/Controllers/EnvelopeListController.vb

@@ -1,4 +1,5 @@
-Imports EnvelopeGenerator.Common
+Imports DevExpress.XtraCharts
+Imports EnvelopeGenerator.Common
 
 Public Class EnvelopeListController
     Inherits BaseController
@@ -18,4 +19,35 @@ Public Class EnvelopeListController
         Return MyBase.DeleteEnvelope(pEnvelope)
     End Function
 
+    Public Function GetPieChart() As ChartControl
+        Dim oChartControl As ChartControl = New ChartControl With {
+            .Name = "ChartControl1",
+            .Dock = DockStyle.Fill
+        }
+
+        Dim oSerie As Series = New Series("PIE Title", ViewType.Pie3D) With {
+            .LegendTextPattern = "{A}"
+        }
+
+        Dim pieLabel As PieSeriesLabel = TryCast(oSerie.Label, PieSeriesLabel)
+        If pieLabel IsNot Nothing Then
+            pieLabel.Position = PieSeriesLabelPosition.Outside
+        End If
+
+        Dim xAxisTitle As String = "Argument"
+        Dim yAxisTitle As String = "Value"
+
+        Dim oTable As DataTable = ChartModel.LoadPIEExample()
+
+        For Each oRow In oTable.Rows
+            Dim value1 As String = CStr(oRow.Item(xAxisTitle))
+            Dim value2 As String = CStr(oRow.Item(yAxisTitle))
+            oSerie.Points.Add(New SeriesPoint(value1, value2))
+        Next
+
+        oSerie.ArgumentScaleType = ScaleType.Qualitative
+        oChartControl.Series.Add(oSerie)
+
+        Return oChartControl
+    End Function
 End Class

EnvelopeGenerator.Form/EnvelopeGenerator.Form.vbproj

@@ -43,11 +43,19 @@
   <ItemGroup>
     <Reference Include="Accessibility" />
     <Reference Include="DevExpress.BonusSkins.v21.2" />
+    <Reference Include="DevExpress.Charts.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.Data.v21.2" />
     <Reference Include="DevExpress.Data.Desktop.v21.2" />
     <Reference Include="DevExpress.Utils.v21.2" />
     <Reference Include="DevExpress.Sparkline.v21.2.Core" />
+    <Reference Include="DevExpress.Utils.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraCharts.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\DevExpress 21.2\Components\Bin\Framework\DevExpress.XtraCharts.v21.2.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.XtraCharts.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraCharts.v21.2.Wizard, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.XtraEditors.v21.2" />
     <Reference Include="DevExpress.Printing.v21.2.Core" />
     <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />

EnvelopeGenerator.Form/My Project/licenses.licx

@@ -1,14 +1,15 @@
 DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.Repository.RepositoryItemPictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

EnvelopeGenerator.Form/frmMain.Designer.vb

@@ -94,7 +94,7 @@ Partial Class frmMain
         'SplitContainerControl1.Panel2
         '
         resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
-        Me.SplitContainerControl1.SplitterPosition = 438
+        Me.SplitContainerControl1.SplitterPosition = 272
         '
         'XtraTabControl1
         '
@@ -263,6 +263,7 @@ Partial Class frmMain
         Me.GridCompleted.MainView = Me.ViewCompleted
         Me.GridCompleted.MenuManager = Me.RibbonControl
         Me.GridCompleted.Name = "GridCompleted"
+        Me.GridCompleted.ShowOnlyPredefinedDetails = True
         Me.GridCompleted.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceiversCompleted, Me.ViewCompleted})
         '
         'ViewReceiversCompleted

EnvelopeGenerator.Form/frmMain.resx

@@ -394,7 +394,7 @@
     <value>0</value>
   </data>
   <data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1088, 438</value>
+    <value>1088, 272</value>
   </data>
   <data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -505,7 +505,7 @@
     <value>112</value>
   </data>
   <data name="GridCompleted.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1086, 415</value>
+    <value>1086, 249</value>
   </data>
   <data name="GridCompleted.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -523,7 +523,7 @@
     <value>0</value>
   </data>
   <data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1086, 415</value>
+    <value>1086, 249</value>
   </data>
   <data name="XtraTabPage2.Text" xml:space="preserve">
     <value>Abgeschlossene Umschläge</value>

EnvelopeGenerator.Form/frmMain.vb

@@ -1,4 +1,6 @@
-Imports DevExpress.XtraSplashScreen
+Imports DevExpress.Utils.Extensions
+Imports DevExpress.XtraSplashScreen
+Imports DevExpress.XtraCharts
 Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Config
@@ -6,6 +8,7 @@ Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports EnvelopeGenerator.Common
 Imports EnvelopeGenerator.Common.My
+Imports DevExpress.Charts.Native
 
 Public Class frmMain
     Private LogConfig As LogConfig
@@ -70,6 +73,8 @@ Public Class frmMain
             LoadEnvelopes()
             LoadCompletedEnvelopes()
 
+            LoadCharts()
+
         Catch ex As Exception
             Logger.Error(ex)
         End Try
@@ -92,6 +97,11 @@ Public Class frmMain
         GridCompleted.DataSource = Controller.ListCompleted()
     End Sub
 
+    Private Sub LoadCharts()
+        Dim oChartControl As ChartControl = Controller.GetPieChart()
+        Me.SplitContainerControl1.Panel2.AddControl(oChartControl)
+    End Sub
+
     Private Sub btnCreateEnvelope_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateEnvelope.ItemClick
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
         Try