diff --git a/EnvelopeGenerator.Common/Constants.vb b/EnvelopeGenerator.Common/Constants.vb index 7838811d..540e2cd0 100644 --- a/EnvelopeGenerator.Common/Constants.vb +++ b/EnvelopeGenerator.Common/Constants.vb @@ -14,7 +14,7 @@ Created = 0 End Enum - Public Enum HistoryStatus + Public Enum ActionType Created = 0 End Enum diff --git a/EnvelopeGenerator.Common/Entities/EnvelopeHistoryEntry.vb b/EnvelopeGenerator.Common/Entities/EnvelopeHistoryEntry.vb index 1642491b..0814c9be 100644 --- a/EnvelopeGenerator.Common/Entities/EnvelopeHistoryEntry.vb +++ b/EnvelopeGenerator.Common/Entities/EnvelopeHistoryEntry.vb @@ -1,10 +1,9 @@ Public Class EnvelopeHistoryEntry Public EnvelopeId As Integer - Public Status As Constants.HistoryStatus - Public UserEmailAddress As String - Public ActionTitle As String + Public ActionType As Constants.ActionType + Public UserReference As String Public ActionDescription As String - Public AddedWhen As Date + Public ActionDate As DateTime End Class diff --git a/EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj b/EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj index 5cef3e07..a8d06760 100644 --- a/EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj +++ b/EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj @@ -107,6 +107,7 @@ + diff --git a/EnvelopeGenerator.Common/Models/CertificateModel.vb b/EnvelopeGenerator.Common/Models/CertificateModel.vb new file mode 100644 index 00000000..33a462c2 --- /dev/null +++ b/EnvelopeGenerator.Common/Models/CertificateModel.vb @@ -0,0 +1,50 @@ +Imports System.Data.SqlClient + + + +Public Class CertificateModel + Inherits BaseModel + + Public Sub New(pState As State) + MyBase.New(pState) + End Sub + + Public Function Insert(pEnvelope As Envelope) As Boolean + Try + Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_CERTIFICATE] " + oSql += " ([ENVELOPE_ID] " + oSql += " ,[ENVELOPE_UUID]" + oSql += " ,[ENVELOPE_SUBJECT]" + oSql += " ,[CREATOR_ID]" + oSql += " ,[CREATOR_NAME]" + oSql += " ,[CREATOR_EMAIL]" + oSql += " ,[ENVELOPE_STATUS])" + oSql += " VALUES " + oSql += " (@ENVELOPE_ID " + oSql += " ,@ENVELOPE_UUID" + oSql += " ,@ENVELOPE_SUBJECT" + oSql += " ,@CREATOR_ID" + oSql += " ,@CREATOR_NAME" + oSql += " ,@CREATOR_EMAIL" + oSql += " ,@ENVELOPE_STATUS)" + + Dim oCommand As New SqlCommand(oSql) + oCommand.Parameters.Add("ENVELOPE_ID", SqlDbType.Int).Value = pEnvelope.Id + oCommand.Parameters.Add("ENVELOPE_UUID", SqlDbType.NVarChar).Value = pEnvelope.Uuid + oCommand.Parameters.Add("ENVELOPE_SUBJECT", SqlDbType.NVarChar).Value = pEnvelope.Subject + oCommand.Parameters.Add("CREATOR_ID", SqlDbType.Int).Value = pEnvelope.UserId + oCommand.Parameters.Add("CREATOR_NAME", SqlDbType.NVarChar).Value = pEnvelope.User.FullName + oCommand.Parameters.Add("CREATOR_EMAIL", SqlDbType.NVarChar).Value = pEnvelope.User.Email + oCommand.Parameters.Add("ENVELOPE_STATUS", SqlDbType.NVarChar).Value = pEnvelope.Status + + If Database.ExecuteNonQuery(oCommand) Then + Return True + Else + Return False + End If + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function +End Class diff --git a/EnvelopeGenerator.Common/Models/HistoryModel.vb b/EnvelopeGenerator.Common/Models/HistoryModel.vb index a8761b10..9d000b89 100644 --- a/EnvelopeGenerator.Common/Models/HistoryModel.vb +++ b/EnvelopeGenerator.Common/Models/HistoryModel.vb @@ -9,25 +9,25 @@ Public Class HistoryModel Public Function Insert(pHistory As EnvelopeHistoryEntry) As Boolean Try - Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_HISTORY] - ([ENVELOPE_ID] - ,[STATUS] - ,[USER_EMAIL_ADDRESS] - ,[ACTION_TITLE] - ,[ACTION_DESCRIPTION]) - VALUES - (@ENVELOPE_ID - ,@STATUS - ,@EMAIL - ,@TITLE - ,@DESCRIPTION" + Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_HISTORY] " + oSql += " ([ENVELOPE_ID] " + oSql += " ,[USER_REFERENCE] " + oSql += " ,[ACTION_TYPE] " + oSql += " ,[ACTION_DESCRIPTION] " + oSql += " ,[ACTION_DATE]) " + oSql += " VALUES " + oSql += " (@ENVELOPE_ID " + oSql += " ,@USER_REFERENCE " + oSql += " ,@ACTION_TYPE " + oSql += " ,@ACTION_DESCRIPTION) " + oSql += " ,@ACTION_DATE) " Dim oCommand As New SqlCommand(oSql) oCommand.Parameters.Add("ENVELOPE_ID", SqlDbType.Int).Value = pHistory.EnvelopeId - oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = pHistory.Status - oCommand.Parameters.Add("EMAIL", SqlDbType.NVarChar).Value = pHistory.UserEmailAddress - oCommand.Parameters.Add("TITLE", SqlDbType.NVarChar).Value = pHistory.ActionTitle - oCommand.Parameters.Add("DESCRIPTION", SqlDbType.NVarChar).Value = pHistory.ActionDescription + oCommand.Parameters.Add("USER_REFERENCE", SqlDbType.NVarChar).Value = pHistory.UserEmailAddress + oCommand.Parameters.Add("ACTION_TYPE", SqlDbType.NVarChar).Value = pHistory + oCommand.Parameters.Add("ACTION_DESCRIPTION", SqlDbType.NVarChar).Value = pHistory.ActionDescription + oCommand.Parameters.Add("ACTION_DATE", SqlDbType.DateTime).Value = pHistory If Database.ExecuteNonQuery(oCommand) Then Return True