2023-11-06 - Übersicht erweitert

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