20-09-2023

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+Imports System.Web.UI.WebControls
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging
 
@@ -26,14 +27,18 @@ Public Class EnvelopeModel
         Return oEnvelope
     End Function
 
+    Private Function ToEnvelope(pTable As DataTable) As Envelope
+        Return pTable?.Rows.Cast(Of DataRow).
+            Select(AddressOf ToEnvelope).
+            Single()
+    End Function
+
     Public Function GetByUuid(pEnvelopeUuid As String) As Envelope
         Try
             Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE] WHERE ENVELOPE_UUID = '{pEnvelopeUuid}'"
-        Dim oTable = Database.GetDatatable(oSql)
+            Dim oTable = Database.GetDatatable(oSql)
 
-            Return oTable?.Rows.Cast(Of DataRow).
-               Select(AddressOf ToEnvelope).
-               Single()
+            Return ToEnvelope(oTable)
         Catch ex As Exception
             Logger.Error(ex)
             Return Nothing
@@ -54,6 +59,23 @@ Public Class EnvelopeModel
         End Try
     End Function
 
+    Public Function List(pReceiverId As Integer) As IEnumerable(Of Envelope)
+        Try
+            Dim oSql = $"SELECT T.* FROM [dbo].[TBSIG_ENVELOPE] T
+                JOIN TBSIG_ENVELOPE_RECEIVER T2 ON T.GUID = T2.ENVELOPE_ID
+                WHERE T2.RECEIVER_ID = {pReceiverId}"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToEnvelope).
+                ToList()
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
     Public Function Send(pEnvelope As Envelope) As Boolean
         Try
             Dim oSql = "UPDATE [dbo].[TBSIG_ENVELOPE] SET STATUS = @STATUS, SENT_WHEN = GETDATE() WHERE GUID = @GUID"
@@ -149,7 +171,7 @@ Public Class EnvelopeModel
 
     Private Sub SetEnvelopeDate(pEnvelope As Envelope)
         Try
-            Dim addedWhen As DateTime = Database.GetScalarValue($"SELECT ADDED_WHEN FROM TBSIG_ENVELOPE WHERE GUID = {pEnvelope.Id}")
+            Dim addedWhen As Date = Database.GetScalarValue($"SELECT ADDED_WHEN FROM TBSIG_ENVELOPE WHERE GUID = {pEnvelope.Id}")
             pEnvelope.AddedWhen = addedWhen
         Catch ex As Exception
             Logger.Error(ex)