20-09-2023

EnvelopeGenerator.Common/Models/ElementModel.vb

@@ -23,6 +23,12 @@ Public Class ElementModel
         }
     End Function
 
+    Private Function ToElements(pTable As DataTable) As List(Of EnvelopeDocumentElement)
+        Return pTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToElement).
+                ToList()
+    End Function
+
     Public Function ElementsExist(pEnvelopeId As Integer, pReceiverId As Integer) As Boolean
         Try
             Dim oSql = $"SELECT COUNT(*) FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] T
@@ -58,9 +64,25 @@ Public Class ElementModel
             Dim oSql = $"SELECT * FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] WHERE DOCUMENT_ID = {pDocumentId} ORDER BY PAGE ASC"
             Dim oTable = Database.GetDatatable(oSql)
 
-            Return oTable?.Rows.Cast(Of DataRow).
-                Select(AddressOf ToElement).
-                ToList()
+            Return ToElements(oTable)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Function List(pDocumentId As Integer, pReceiverId As Integer) As List(Of EnvelopeDocumentElement)
+        Try
+            Dim oReceiverConstraint = ""
+            If pReceiverId > 0 Then
+                oReceiverConstraint = $"AND RECEIVER_ID = {pReceiverId}"
+            End If
+
+            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] WHERE DOCUMENT_ID = {pDocumentId} {oReceiverConstraint} ORDER BY PAGE ASC"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return ToElements(oTable)
 
         Catch ex As Exception
             Logger.Error(ex)
@@ -160,6 +182,7 @@ Public Class ElementModel
         Try
             Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT WHERE GUID = {pElement.Id}"
             Return Database.ExecuteNonQuery(oSql)
+
         Catch ex As Exception
             Logger.Error(ex)
             Return False
@@ -170,6 +193,7 @@ Public Class ElementModel
         Try
             Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT WHERE RECEIVER_ID = {pReceiverId} AND DOCUMENT_ID = {pDocumentId}"
             Return Database.ExecuteNonQuery(oSql, pTransaction)
+
         Catch ex As Exception
             Logger.Error(ex)
             Return False
@@ -180,6 +204,7 @@ Public Class ElementModel
         Try
             Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT WHERE DOCUMENT_ID = {pDocumentId}"
             Return Database.ExecuteNonQuery(oSql, pTransaction)
+
         Catch ex As Exception
             Logger.Error(ex)
             Return False