3D Pie auf Main gesetzt

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