10.01.2024

2024-01-10 13:06:55 +01:00
parent 37908b6a1b
commit c7dba51ec9
8 changed files with 58 additions and 20 deletions
--- a/EnvelopeGenerator.Common/Models/ReceiverModel.vb
+++ b/EnvelopeGenerator.Common/Models/ReceiverModel.vb
@@ -179,6 +179,21 @@ Public Class ReceiverModel
        End Try
    End Function

+    Public Function ListReceivers() As IEnumerable(Of EnvelopeReceiver)
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_RECEIVER]"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToReceiver).
+                ToList()
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
    Public Function ListReceivers(pReceiversFromGrid As List(Of EnvelopeReceiver)) As IEnumerable(Of EnvelopeReceiver)
        Try
            If pReceiversFromGrid.Count = 0 Then