refactor(EnvelopeGenerator.Test): Umbenennung von EnvelopeGenerator.BBTests

EnvelopeGenerator.BBTests/frmReportViewer.vb

@@ -0,0 +1,64 @@
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Base
+Imports EnvelopeGenerator.Common
+
+Public Class frmReportViewer
+    Private LogConfig As LogConfig
+    Private Logger As Logger
+    Private ConfigManager As ConfigManager(Of Config)
+    Private Database As MSSQLServer
+
+    Private EnvelopeModel As EnvelopeModel
+
+    Private Async Sub frmReportViewer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath, CompanyName:="Digital Data", ProductName:="EnvelopeGenerator")
+        Logger = LogConfig.GetLogger()
+        ConfigManager = New ConfigManager(Of Config)(LogConfig, "C:\Users\JenneJ\AppData\Roaming\Digital Data\Envelope Generator\1.0.0.0")
+        Database = New MSSQLServer(LogConfig, MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString))
+
+        Dim oTable As DataTable = Database.GetDatatable("SELECT * FROM VWSIG_ENVELOPE_REPORT ORDER BY POS_WHEN DESC")
+        Dim oItems = GetReportSource(oTable)
+
+        If oItems.Count = 0 Then
+            Exit Sub
+        End If
+
+        'Dim oEnvelopeId = oItems.First().EnvelopeId
+        Dim oEnvelopeId = 20
+
+        Dim oState As New State() With {
+            .Database = Database,
+            .LogConfig = LogConfig
+        }
+        EnvelopeModel = New EnvelopeModel(oState)
+        Dim oEnvelope = EnvelopeModel.GetById(oEnvelopeId)
+
+        Dim oCreator As New ReportCreator(LogConfig, oState)
+        Dim oBuffer = oCreator.CreateReport(oEnvelope)
+
+        Using oStream As New IO.MemoryStream(oBuffer)
+            PdfViewer1.LoadDocument(oStream)
+        End Using
+    End Sub
+
+    Private Function GetReportSource(pDataTable As DataTable) As List(Of ReportItem)
+        Return pDataTable.Rows.
+            Cast(Of DataRow).
+            Select(AddressOf ToReportItem).
+            OrderByDescending(Function(r) r.ItemDate).
+            ToList()
+    End Function
+
+    Private Function ToReportItem(pRow As DataRow) As ReportItem
+        Return New ReportItem() With {
+            .EnvelopeId = pRow.Item("ENVELOPE_ID"),
+            .EnvelopeTitle = pRow.ItemEx("HEAD_TITLE", String.Empty),
+            .EnvelopeSubject = pRow.ItemEx("HEAD_SUBJECT", String.Empty),
+            .ItemDate = pRow.ItemEx(Of Date)("POS_WHEN", Nothing),
+            .ItemStatus = pRow.ItemEx("POS_STATUS", 0),
+            .ItemUserReference = pRow.ItemEx("POS_WHO", "")
+        }
+    End Function
+End Class