AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

09-01-2024

Browse Source
This commit is contained in:
Jonathan Jenne
2024-01-09 11:01:33 +01:00
parent b849a8d87b
commit b7fbb21076
15 changed files with 730 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
EnvelopeGenerator.Common/Models/ReceiverModel.vb
View File

@@ -32,6 +32,7 @@ Public Class ReceiverModel
.Signature = pRow.ItemEx("SIGNATURE", ""),
.Status = ReceiverSignedStatus,
.ColorType = DirectCast(pColorIndex + 1, ColorType),
.AccessCode = pRow.ItemEx("ACCESS_CODE", ""),
.SignedDate = SignedDate
}
End Function
@@ -261,10 +262,11 @@ Public Class ReceiverModel
End Try
End Function
Private Function GetSignedDate(pEmailAdress As String, pEnvleopeId As Integer) As Date
Private Function GetSignedDate(pEmailAddress As String, pEnvelopeId As Integer) As Date
Try
Return Database.GetScalarValue($"SELECT ACTION_DATE FROM [DD_ECM].[dbo].[TBSIG_ENVELOPE_HISTORY] WHERE ENVELOPE_ID = {pEnvleopeId}
AND USER_REFERENCE = '{pEmailAdress}' AND [STATUS] = 2002")
Dim oStatusInt As Integer = EnvelopeStatus.DocumentSigned
Return Database.GetScalarValue($"SELECT ACTION_DATE FROM [DD_ECM].[dbo].[TBSIG_ENVELOPE_HISTORY] WHERE ENVELOPE_ID = {pEnvelopeId}
And USER_REFERENCE = '{pEmailAddress}' AND [STATUS] = {oStatusInt}")
Catch ex As Exception
Logger.Error(ex)
@@ -272,4 +274,17 @@ Public Class ReceiverModel
End Try
End Function
Public Function AccessCodeAlreadyRequested(pEmailAddress As String, pEnvelopeId As Integer) As Boolean
Try
Dim oStatusInt As Integer = EnvelopeStatus.AccessCodeRequested
Dim oResult As Integer = Database.GetScalarValue($"SELECT COUNT(*) FROM [DD_ECM].[dbo].[TBSIG_ENVELOPE_HISTORY]
WHERE ENVELOPE_ID = {pEnvelopeId} And USER_REFERENCE = '{pEmailAddress}' AND [STATUS] = {oStatusInt}")
Return oResult > 0
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
End Class