44 lines
1.4 KiB
VB.net
44 lines
1.4 KiB
VB.net
Imports System.Data
|
|
Imports System.Data.SqlClient
|
|
|
|
Public Class HistoryModel
|
|
Inherits BaseModel
|
|
|
|
Public Sub New(pState As State)
|
|
MyBase.New(pState)
|
|
End Sub
|
|
|
|
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 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
|
|
|
|
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
|