25-08-2023

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -23,6 +23,20 @@ Public Class EnvelopeModel
         Return oEnvelope
     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)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+               Select(AddressOf ToEnvelope).
+               Single()
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
     Public Function List() As IEnumerable(Of Envelope)
         Try
             Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE] WHERE USER_ID = {State.UserId}"