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] "
            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("USER_REFERENCE", SqlDbType.NVarChar).Value = pHistory.UserReference
            oCommand.Parameters.Add("ACTION_TYPE", SqlDbType.NVarChar).Value = pHistory.ActionType.ToString()
            oCommand.Parameters.Add("ACTION_DESCRIPTION", SqlDbType.NVarChar).Value = pHistory.ActionDescription
            oCommand.Parameters.Add("ACTION_DATE", SqlDbType.DateTime).Value = Now()

            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