2023-09-27

EnvelopeGenerator.Common/Models/CertificateModel.vb

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