AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

2023-09-27

Browse Source
This commit is contained in:
PitzM
2023-09-27 14:06:05 +02:00
parent e3a81bfdbf
commit f3af50bde0
5 changed files with 71 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
EnvelopeGenerator.Common/Models/CertificateModel.vb Normal file
View File

@@ -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

32
EnvelopeGenerator.Common/Models/HistoryModel.vb
View File

@@ -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