Merge branch 'master' of http://git.dd:3000/AppStd/EnvelopeGenerator

EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj

@@ -140,6 +140,7 @@
     <Compile Include="Jobs\PDFBurner.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