Report

EnvelopeGenerator.Test/frmReportViewer.vb

@@ -10,17 +10,33 @@ Public Class frmReportViewer
     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")
         Dim oItems = GetReportSource(oTable)
 
-        Dim oBuffer = Await ReportCreator.CreateReport(oItems)
+        If oItems.Count = 0 Then
+            Exit Sub
+        End If
+
+        Dim oEnvelopeId = oItems.First().EnvelopeId
+
+        Dim oState As New State() With {
+            .Database = Database,
+            .LogConfig = LogConfig
+        }
+        EnvelopeModel = New EnvelopeModel(oState)
+        Dim oEnvelope = EnvelopeModel.GetById(oEnvelopeId)
+
+
+
+        Dim oBuffer = Await ReportCreator.CreateReport(oEnvelope, oItems)
 
         Using oStream As New IO.MemoryStream(oBuffer)
             PdfViewer1.LoadDocument(oStream)
@@ -37,6 +53,9 @@ Public Class frmReportViewer
 
     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", "")