This commit is contained in:
Jonathan Jenne
2023-11-16 09:20:08 +01:00
parent cf06852dfe
commit cf58ecbcc0
5 changed files with 23 additions and 6 deletions

View File

@@ -5,8 +5,10 @@
Public Property ContractType As Constants.ContractType
Public Property Status As Constants.EnvelopeStatus
Public Property Uuid As String = Guid.NewGuid.ToString()
Public Property Subject As String
Public Property Message As String
Public Property AddedWhen As Date
Public Property User As New User()

View File

@@ -15,7 +15,11 @@ Public Class EnvelopeReceiver
Public ReadOnly Property Image As SvgBitmap
Get
Return SvgBitmap.FromFile("Images/circle.svg")
Try
Return SvgBitmap.FromFile("Images/circle.svg")
Catch ex As Exception
Return Nothing
End Try
End Get
End Property

View File

@@ -107,7 +107,7 @@ Public Class EnvelopeModel
Dim oSql = "UPDATE [dbo].[TBSIG_ENVELOPE] SET STATUS = @STATUS, SENT_WHEN = GETDATE() WHERE GUID = @GUID"
Dim oCommand As New SqlCommand(oSql)
oCommand.Parameters.Add("GUID", SqlDbType.Int).Value = pEnvelope.Id
oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = Constants.EnvelopeStatus.Sent
oCommand.Parameters.Add("STATUS", SqlDbType.Int).Value = Constants.EnvelopeStatus.Sent
If Database.ExecuteNonQuery(oCommand) Then
Return True