Imports System.Data.SqlClient

Public Class HistoryModel
    Inherits BaseModel

    Public Sub New(pState As State)
        MyBase.New(pState)
    End Sub

    Private Function GetActionDescription(pActionType As Constants.EnvelopeHistoryActionType)
        Select Case pActionType
            Case Constants.EnvelopeHistoryActionType.Created
                Return "Umschlag erfolgreich erstellt"

            Case Constants.EnvelopeHistoryActionType.Sent
                Return "Umschlag an Empfänger versendet"

            Case Constants.EnvelopeHistoryActionType.Seen
                Return "Umschlag von Empfänger geöffnet"

            Case Constants.EnvelopeHistoryActionType.Signed
                Return "Umschlag von Empfänger signiert"

            Case Else
                Return pActionType.ToString()
        End Select
    End Function

    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.Int).Value = pHistory.ActionType
            oCommand.Parameters.Add("ACTION_DESCRIPTION", SqlDbType.NVarChar).Value = GetActionDescription(pHistory.ActionType)
            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