2023-11-06 - Übersicht erweitert

EnvelopeGenerator.Common/Constants.vb

@@ -4,6 +4,8 @@
         Created = 0
         Saved = 1
         Sent = 2
+        PartSigned = 3
+        CompleteSigned = 4
     End Enum
 
     Public Enum ElementType

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -71,6 +71,20 @@ Public Class EnvelopeModel
         End Try
     End Function
 
+    Public Function ListCompleted() As IEnumerable(Of Envelope)
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE] WHERE USER_ID = {State.UserId} AND STATUS = "
+            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 List(pReceiverId As Integer) As IEnumerable(Of Envelope)
         Try
             Dim oSql = $"SELECT T.* FROM [dbo].[TBSIG_ENVELOPE] T