62 lines
2.3 KiB
VB.net
62 lines
2.3 KiB
VB.net
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
|