diff --git a/EnvelopeGenerator.Common_ALT/Config.vb b/EnvelopeGenerator.Common_ALT/Config.vb deleted file mode 100644 index 76538c1b..00000000 --- a/EnvelopeGenerator.Common_ALT/Config.vb +++ /dev/null @@ -1,6 +0,0 @@ -Imports DigitalData.Modules.Config.ConfigAttributes - -Public Class Config - - Property ConnectionString As String = "" -End Class diff --git a/EnvelopeGenerator.Common_ALT/Constants.vb b/EnvelopeGenerator.Common_ALT/Constants.vb deleted file mode 100644 index 7d072efe..00000000 --- a/EnvelopeGenerator.Common_ALT/Constants.vb +++ /dev/null @@ -1,17 +0,0 @@ -Public Class Constants - - Public Enum EnvelopeStatus - Created = 0 - Saved = 1 - Sent = 2 - End Enum - - Public Enum ElementType - Signature = 0 - End Enum - - Public Enum ElementStatus - Created = 0 - End Enum - -End Class diff --git a/EnvelopeGenerator.Common_ALT/DbConfig.vb b/EnvelopeGenerator.Common_ALT/DbConfig.vb deleted file mode 100644 index 582eb8aa..00000000 --- a/EnvelopeGenerator.Common_ALT/DbConfig.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class DbConfig - Public Property DocumentPath As String = "" -End Class diff --git a/EnvelopeGenerator.Common_ALT/Entities/ElementMetadata.vb b/EnvelopeGenerator.Common_ALT/Entities/ElementMetadata.vb deleted file mode 100644 index 9a1e4be7..00000000 --- a/EnvelopeGenerator.Common_ALT/Entities/ElementMetadata.vb +++ /dev/null @@ -1,4 +0,0 @@ -Public Class ElementMetadata - Public Property Index As Integer - Public Property Page As Integer -End Class diff --git a/EnvelopeGenerator.Common_ALT/Entities/Envelope.vb b/EnvelopeGenerator.Common_ALT/Entities/Envelope.vb deleted file mode 100644 index 2da513ad..00000000 --- a/EnvelopeGenerator.Common_ALT/Entities/Envelope.vb +++ /dev/null @@ -1,48 +0,0 @@ -Public Class Envelope - Public Property Id As Integer = 0 - Public Property Subject As String - Public Property Message As String - Public Property UserId As Integer - Public Property Uuid As String = Guid.NewGuid.ToString() - Public Property Status As Constants.EnvelopeStatus - - Public Property Documents As New List(Of EnvelopeDocument) - Public Property Receivers As New List(Of EnvelopeReceiver) - - Public Function Validate() As List(Of String) - Dim oErrors As New List(Of String) - - If String.IsNullOrWhiteSpace(Subject) Then - oErrors.Add(My.Resources.Envelope.Missing_Subject) - End If - - If String.IsNullOrWhiteSpace(Message) Then - oErrors.Add(My.Resources.Envelope.Missing_Message) - End If - - If Documents.Count = 0 Then - oErrors.Add(My.Resources.Envelope.Missing_Documents) - End If - - If Receivers.Count = 0 Then - oErrors.Add(My.Resources.Envelope.Missing_Receivers) - End If - - For Each Receiver In Receivers - If IsValidEmailAddress(Receiver.Email) = False Then - oErrors.Add(String.Format(My.Resources.Envelope.Invalid_Email_Address, Receiver.Name)) - End If - Next - - Return oErrors - End Function - - Private Function IsValidEmailAddress(pEmailAddress As String) As Boolean - Try - Dim oAddress = New System.Net.Mail.MailAddress(pEmailAddress) - Return oAddress.Address = pEmailAddress - Catch ex As Exception - Return False - End Try - End Function -End Class diff --git a/EnvelopeGenerator.Common_ALT/Entities/EnvelopeDocument.vb b/EnvelopeGenerator.Common_ALT/Entities/EnvelopeDocument.vb deleted file mode 100644 index 80a7dda9..00000000 --- a/EnvelopeGenerator.Common_ALT/Entities/EnvelopeDocument.vb +++ /dev/null @@ -1,23 +0,0 @@ -Imports System.IO - -Public Class EnvelopeDocument - Public Property Id As Integer - - Public Property FileInfo As FileInfo - - Public Property IsTempFile As Boolean = True - - Public Property EnvelopeId As Integer = 0 - - Public ReadOnly Property Filename As String - Get - Return FileInfo.Name - End Get - End Property - - Public ReadOnly Property Filepath As String - Get - Return FileInfo.FullName - End Get - End Property -End Class diff --git a/EnvelopeGenerator.Common_ALT/Entities/EnvelopeDocumentElement.vb b/EnvelopeGenerator.Common_ALT/Entities/EnvelopeDocumentElement.vb deleted file mode 100644 index 04555554..00000000 --- a/EnvelopeGenerator.Common_ALT/Entities/EnvelopeDocumentElement.vb +++ /dev/null @@ -1,15 +0,0 @@ -Public Class EnvelopeDocumentElement - Public Property Id As Integer = 0 - Public Property X As Double - Public Property Y As Double - Public Property Width As Double - Public Property Height As Double - Public Property ElementType As String - Public Property DocumentId As Integer - Public Property ReceiverId As Integer - Public Property Required As Boolean = False - Public Property [ReadOnly] As Boolean = False - Public Property Page As Integer = 1 - Public Property Status As Constants.ElementStatus = Constants.ElementStatus.Created - Public Property AnnotationIndex As Integer -End Class diff --git a/EnvelopeGenerator.Common_ALT/Entities/EnvelopeHistoryEntry.vb b/EnvelopeGenerator.Common_ALT/Entities/EnvelopeHistoryEntry.vb deleted file mode 100644 index 1b7ce467..00000000 --- a/EnvelopeGenerator.Common_ALT/Entities/EnvelopeHistoryEntry.vb +++ /dev/null @@ -1,12 +0,0 @@ -Imports EnvelopeGenerator.Common.Constants - -Public Class EnvelopeHistoryEntry - Public EnvelopeId As Integer - Public Status As EnvelopeStatus - Public UserEmailAddress As String - Public ActionTitle As String - Public ActionDescription As String - Public AddedWhen As Date - - -End Class diff --git a/EnvelopeGenerator.Common_ALT/Entities/EnvelopeReceiver.vb b/EnvelopeGenerator.Common_ALT/Entities/EnvelopeReceiver.vb deleted file mode 100644 index e1fd94ca..00000000 --- a/EnvelopeGenerator.Common_ALT/Entities/EnvelopeReceiver.vb +++ /dev/null @@ -1,26 +0,0 @@ -Imports DigitalData.Modules.Base - -Public Class EnvelopeReceiver - Public Property Id As Integer - Public Property UserId As Integer - - Public Property Name As String - Public Property Company As String = "" - Public Property JobTitle As String = "" - - Public Property Email As String - Public ReadOnly Property Signature As String - Get - Return StringEx.GetChecksum(Email.ToUpper) - End Get - End Property - Public ReadOnly Property HasId As Boolean - Get - Return Id > 0 - End Get - End Property - - Public Property Sequence As Integer = 0 - Public Property PrivateMessage As String = "" - Public Property AccessCode As String = "" -End Class diff --git a/EnvelopeGenerator.Common_ALT/Entities/State.vb b/EnvelopeGenerator.Common_ALT/Entities/State.vb deleted file mode 100644 index b3a52da3..00000000 --- a/EnvelopeGenerator.Common_ALT/Entities/State.vb +++ /dev/null @@ -1,10 +0,0 @@ -Imports DigitalData.Modules.Database -Imports DigitalData.Modules.Logging - -Public Class State - Public Property UserId As Integer - Public Property Config As Config - Public Property DbConfig As DbConfig - Public Property LogConfig As LogConfig - Public Property Database As MSSQLServer -End Class diff --git a/EnvelopeGenerator.Common_ALT/EnvelopeGenerator.Common.old.vbproj b/EnvelopeGenerator.Common_ALT/EnvelopeGenerator.Common.old.vbproj deleted file mode 100644 index 09e884bb..00000000 --- a/EnvelopeGenerator.Common_ALT/EnvelopeGenerator.Common.old.vbproj +++ /dev/null @@ -1,44 +0,0 @@ - - - - EnvelopeGenerator.Common - net6.0 - - - - - - - - - - ..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll - - - ..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll - - - ..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - - - ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll - - - - - - True - True - Envelope.resx - - - - - - My.Resources - Envelope.Designer.vb - ResXFileCodeGenerator - - - - diff --git a/EnvelopeGenerator.Common_ALT/Models/BaseModel.vb b/EnvelopeGenerator.Common_ALT/Models/BaseModel.vb deleted file mode 100644 index 4a2eb9bf..00000000 --- a/EnvelopeGenerator.Common_ALT/Models/BaseModel.vb +++ /dev/null @@ -1,15 +0,0 @@ -Imports DigitalData.Modules.Database -Imports DigitalData.Modules.Logging -Imports System.Data - -Public MustInherit Class BaseModel - Protected Database As MSSQLServer - Protected Logger As Logger - Protected State As State - - Public Sub New(pState As State) - Logger = pState.LogConfig.GetLogger() - Database = pState.Database - State = pState - End Sub -End Class diff --git a/EnvelopeGenerator.Common_ALT/Models/DocumentModel.vb b/EnvelopeGenerator.Common_ALT/Models/DocumentModel.vb deleted file mode 100644 index 3b800007..00000000 --- a/EnvelopeGenerator.Common_ALT/Models/DocumentModel.vb +++ /dev/null @@ -1,33 +0,0 @@ -Imports System.Data -Imports DigitalData.Modules.Base -Public Class DocumentModel - Inherits BaseModel - - Public Sub New(pState As State) - MyBase.New(pState) - End Sub - - Private Function ToDocument(pRow As DataRow) As EnvelopeDocument - Return New EnvelopeDocument() With { - .Id = pRow.ItemEx("GUID", 0), - .EnvelopeId = pRow.ItemEx("ENVELOPE_ID", 0), - .FileInfo = New IO.FileInfo(pRow.ItemEx("FILEPATH", "")), - .IsTempFile = False - } - End Function - - Public Function List(pEnvelopeId As Integer) As IEnumerable(Of EnvelopeDocument) - Try - Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE_DOCUMENT] WHERE ENVELOPE_ID = {pEnvelopeId}" - Dim oTable = Database.GetDatatable(oSql) - - Return oTable?.Rows.Cast(Of DataRow). - Select(AddressOf ToDocument). - ToList() - - Catch ex As Exception - Logger.Error(ex) - Return Nothing - End Try - End Function -End Class diff --git a/EnvelopeGenerator.Common_ALT/Models/ElementModel.vb b/EnvelopeGenerator.Common_ALT/Models/ElementModel.vb deleted file mode 100644 index 83a5e8b3..00000000 --- a/EnvelopeGenerator.Common_ALT/Models/ElementModel.vb +++ /dev/null @@ -1,56 +0,0 @@ -Imports System.Data -Imports DigitalData.Modules.Base - -Public Class ElementModel - Inherits BaseModel - - Public Sub New(pState As State) - MyBase.New(pState) - End Sub - - Private Function ToElement(pRow As DataRow) As EnvelopeDocumentElement - Return New EnvelopeDocumentElement() With { - .Id = pRow.ItemEx("GUID", 0), - .DocumentId = pRow.ItemEx("DOCUMENT_ID", 0), - .ReceiverId = pRow.ItemEx("RECEIVER_ID", 0), - .ElementType = [Enum].Parse(GetType(Constants.ElementType), pRow.ItemEx("ELEMENT_TYPE", Constants.ElementType.Signature.ToString)), - .X = pRow.ItemEx("POSITION_X", 0.0), - .Y = pRow.ItemEx("POSITION_Y", 0.0), - .Width = pRow.ItemEx("WIDTH", 0.0), - .Height = pRow.ItemEx("HEIGHT", 0.0), - .Page = pRow.ItemEx("PAGE", 0), - .AnnotationIndex = pRow.ItemEx("ANNOTATION_INDEX", 0) - } - End Function - - Public Function ElementsExist(pEnvelopeId As Integer, pReceiverId As Integer) As Boolean - Try - Dim oSql = $"SELECT COUNT(*) FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] T - JOIN TBSIG_ENVELOPE_DOCUMENT T2 ON T.DOCUMENT_ID = T2.GUID - WHERE T.RECEIVER_ID = {pReceiverId} AND T2.ENVELOPE_ID = {pEnvelopeId}" - Dim oElementCount As Integer = Database.GetScalarValue(oSql) - - Return oElementCount > 0 - - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - End Function - - Public Function List(pDocumentId As Integer) As List(Of EnvelopeDocumentElement) - Try - Dim oSql = $"SELECT * FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] WHERE DOCUMENT_ID = {pDocumentId} ORDER BY PAGE ASC, ANNOTATION_INDEX ASC" - Dim oTable = Database.GetDatatable(oSql) - - Return oTable?.Rows.Cast(Of DataRow). - Select(AddressOf ToElement). - ToList() - - Catch ex As Exception - Logger.Error(ex) - Return Nothing - End Try - End Function - -End Class diff --git a/EnvelopeGenerator.Common_ALT/Models/EnvelopeModel.vb b/EnvelopeGenerator.Common_ALT/Models/EnvelopeModel.vb deleted file mode 100644 index 0cfa8e09..00000000 --- a/EnvelopeGenerator.Common_ALT/Models/EnvelopeModel.vb +++ /dev/null @@ -1,102 +0,0 @@ -Imports System.Data.SqlClient -Imports DigitalData.Modules.Logging -Imports DigitalData.Modules.Base -Imports System.Data - -Public Class EnvelopeModel - Inherits BaseModel - - Public Sub New(pState As State) - MyBase.New(pState) - End Sub - - Private Function ToEnvelope(pRow As DataRow) As Envelope - Dim oEnvelope = New Envelope() With { - .Id = pRow.ItemEx("GUID", 0), - .Uuid = pRow.ItemEx("ENVELOPE_UUID", ""), - .Subject = pRow.ItemEx("SUBJECT", ""), - .Message = pRow.ItemEx("MESSAGE", ""), - .UserId = State.UserId, - .Status = ObjectEx.ToEnum(Of Constants.EnvelopeStatus)(pRow.ItemEx("STATUS", "Created")) - } - - Return oEnvelope - End Function - - Public Function List() As IEnumerable(Of Envelope) - Try - Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE] WHERE USER_ID = {State.UserId}" - Dim oTable = Database.GetDatatable(oSql) - - Return oTable?.Rows.Cast(Of DataRow). - Select(AddressOf ToEnvelope). - ToList() - Catch ex As Exception - Logger.Error(ex) - Return Nothing - End Try - End Function - - Public Function Insert(pEnvelope As Envelope) As Boolean - Try - Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE] (SUBJECT, MESSAGE, ENVELOPE_UUID, STATUS, USER_ID) VALUES (@SUBJECT, @MESSAGE, @UUID, @STATUS, @USER_ID)" - Dim oCommand As New SqlCommand(oSql) - oCommand.Parameters.Add("SUBJECT", SqlDbType.NVarChar).Value = String.Empty - oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = String.Empty - oCommand.Parameters.Add("UUID", SqlDbType.NVarChar).Value = pEnvelope.Uuid - oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = Constants.EnvelopeStatus.Created - oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pEnvelope.UserId - - If Database.ExecuteNonQuery(oCommand) Then - pEnvelope.Id = GetEnvelopeId(pEnvelope) - Return True - Else - Return False - End If - - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - End Function - - Public Function Update(pEnvelope As Envelope, pTransaction As SqlTransaction) As Boolean - Try - Dim oSql = "UPDATE [dbo].[TBSIG_ENVELOPE] SET [SUBJECT] = @SUBJECT, [MESSAGE] = @MESSAGE, [STATUS] = @STATUS WHERE GUID = @ID AND USER_ID = @USER_ID" - Dim oCommand As New SqlCommand(oSql) - oCommand.Parameters.Add("SUBJECT", SqlDbType.NVarChar).Value = pEnvelope.Subject - oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = pEnvelope.Message - oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = pEnvelope.Status - - oCommand.Parameters.Add("ID", SqlDbType.Int).Value = pEnvelope.Id - oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pEnvelope.UserId - - Return Database.ExecuteNonQuery(oCommand, pTransaction) - - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - End Function - - Public Function Delete(pEnvelope As Envelope) As Boolean - Try - Dim oSql = $"DELETE FROM [dbo].[TBSIG_ENVELOPE] WHERE GUID = {pEnvelope.Id}" - Return Database.ExecuteNonQuery(oSql) - - Catch ex As Exception - Return False - Logger.Error(ex) - End Try - End Function - - Private Function GetEnvelopeId(pEnvelope As Envelope) As Integer - Try - Return Database.GetScalarValue($"SELECT MAX(GUID) FROM TBSIG_ENVELOPE WHERE USER_ID = {pEnvelope.UserId}") - - Catch ex As Exception - Logger.Error(ex) - Return Nothing - End Try - End Function -End Class diff --git a/EnvelopeGenerator.Common_ALT/Models/HistoryModel.vb b/EnvelopeGenerator.Common_ALT/Models/HistoryModel.vb deleted file mode 100644 index 79d33a94..00000000 --- a/EnvelopeGenerator.Common_ALT/Models/HistoryModel.vb +++ /dev/null @@ -1,43 +0,0 @@ -Imports System.Data -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] - ([ENVELOPE_ID] - ,[STATUS] - ,[USER_EMAIL_ADDRESS] - ,[ACTION_TITLE] - ,[ACTION_DESCRIPTION]) - VALUES - (@ENVELOPE_ID - ,@STATUS - ,@EMAIL - ,@TITLE - ,@DESCRIPTION" - - 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 - - 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 diff --git a/EnvelopeGenerator.Common_ALT/Models/ReceiverModel.vb b/EnvelopeGenerator.Common_ALT/Models/ReceiverModel.vb deleted file mode 100644 index 1d050c3a..00000000 --- a/EnvelopeGenerator.Common_ALT/Models/ReceiverModel.vb +++ /dev/null @@ -1,159 +0,0 @@ -Imports System.Data -Imports System.Data.Common -Imports System.Data.SqlClient -Imports DigitalData.Modules.Base -Public Class ReceiverModel - Inherits BaseModel - - Public Sub New(pState As State) - MyBase.New(pState) - End Sub - - Private Function ToReceiver(pRow As DataRow) As EnvelopeReceiver - Return New EnvelopeReceiver() With { - .Id = pRow.ItemEx("GUID", 0), - .Email = pRow.ItemEx("EMAIL_ADDRESS", ""), - .Name = pRow.ItemEx("NAME", ""), - .Sequence = pRow.ItemEx("SEQUENCE", 0) - } - End Function - - Public Function TestReceiverExists(pReceiver As EnvelopeReceiver) As Boolean - Try - Dim oGuid = Database.GetScalarValue($"SELECT COALESCE(GUID, 0) FROM TBSIG_RECEIVER WHERE EMAIL_ADDRESS = '{pReceiver.Email}'") - pReceiver.Id = oGuid - Return oGuid > 0 - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - End Function - - Public Function Insert(pReceiver As EnvelopeReceiver, pTransaction As SqlTransaction) As Boolean - Try - Dim oSql As String = "INSERT INTO [dbo].[TBSIG_RECEIVER] - ([EMAIL_ADDRESS] - ,[SIGNATURE]) - VALUES - (@EMAIL - ,@SIGNATURE)" - - Dim oCommand = New SqlCommand(oSql) - oCommand.Parameters.Add("EMAIL", SqlDbType.NVarChar).Value = pReceiver.Email - oCommand.Parameters.Add("SIGNATURE", SqlDbType.NVarChar).Value = pReceiver.Signature - - Dim oResult = Database.ExecuteNonQuery(oCommand, pTransaction) - If oResult = True Then - pReceiver.Id = GetReceiverId(pReceiver.Email, pTransaction) - Else - Return False - End If - - Return True - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - End Function - - Public Function Update(pReceiver As EnvelopeReceiver, pTransaction As SqlTransaction) As Boolean - Try - Dim oSql As String = "UPDATE [dbo].[TBSIG_USER_RECEIVER] - SET [NAME] = @NAME - ,[COMPANY_NAME] = @COMPANY - ,[JOB_TITLE] = @JOB - WHERE RECEIVER_ID = @RECEIVER_ID" - - Dim oCommand = New SqlCommand(oSql) - oCommand.Parameters.Add("NAME", SqlDbType.NVarChar).Value = pReceiver.Name - oCommand.Parameters.Add("COMPANY", SqlDbType.NVarChar).Value = pReceiver.Company - oCommand.Parameters.Add("JOB", SqlDbType.NVarChar).Value = pReceiver.JobTitle - oCommand.Parameters.Add("RECEIVER_ID", SqlDbType.Int).Value = pReceiver.Id - oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pReceiver.Id - - Return Database.ExecuteNonQuery(oCommand, pTransaction) - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - End Function - - Public Function Unassign(pEnvelope As Envelope, pTransaction As SqlTransaction) As Boolean - Try - Return Database.ExecuteNonQuery($"DELETE FROM [dbo].[TBSIG_ENVELOPE_RECEIVER] WHERE [ENVELOPE_ID] = {pEnvelope.Id}", pTransaction) - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - End Function - - Public Function Assign(pEnvelope As Envelope, pReceiver As EnvelopeReceiver, pTransaction As SqlTransaction) As Boolean - Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_RECEIVER] - ([ENVELOPE_ID] - ,[RECEIVER_ID] - ,[PRIVATE_MESSAGE] - ,[ACCESS_CODE] - ,[NAME] - ,[JOB_TITLE] - ,[COMPANY_NAME] - ,[SEQUENCE]) - VALUES - (@ENVELOPE_ID - ,@RECEIVER_ID - ,@MESSAGE - ,@ACCESS_CODE - ,@NAME - ,@JOB - ,@COMPANY - ,@SEQUENCE)" - - Dim oCommand As New SqlCommand(oSql) - oCommand.Parameters.Add("ENVELOPE_ID", SqlDbType.NVarChar).Value = pEnvelope.Id - oCommand.Parameters.Add("RECEIVER_ID", SqlDbType.NVarChar).Value = pReceiver.Id - oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = pReceiver.PrivateMessage - oCommand.Parameters.Add("ACCESS_CODE", SqlDbType.NVarChar).Value = pReceiver.AccessCode - oCommand.Parameters.Add("NAME", SqlDbType.NVarChar).Value = pReceiver.Name - oCommand.Parameters.Add("JOB", SqlDbType.NVarChar).Value = pReceiver.JobTitle - oCommand.Parameters.Add("COMPANY", SqlDbType.NVarChar).Value = pReceiver.Company - oCommand.Parameters.Add("SEQUENCE", SqlDbType.NVarChar).Value = pReceiver.Sequence - - Return Database.ExecuteNonQuery(oCommand, pTransaction) - End Function - - Public Function List(pEnvelopeId As Integer) As IEnumerable(Of EnvelopeReceiver) - Try - Dim oSql = $"SELECT * FROM [dbo].[VWSIG_ENVELOPE_RECEIVERS] WHERE ENVELOPE_ID = {pEnvelopeId}" - Dim oTable = Database.GetDatatable(oSql) - - Return oTable?.Rows.Cast(Of DataRow). - Select(AddressOf ToReceiver). - ToList() - - Catch ex As Exception - Logger.Error(ex) - Return Nothing - End Try - End Function - - Public Function Delete(pReceiverId As Integer, pDocumentId As Integer) As Boolean - Try - Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER WHERE RECEIVER_ID = {pReceiverId} AND DOCUMENT_ID = {pDocumentId}" - Return Database.ExecuteNonQuery(oSql) - - Catch ex As Exception - Logger.Error(ex) - Return False - - End Try - End Function - - Private Function GetReceiverId(pEmailAddress As String, pTransaction As SqlTransaction) As Integer - Try - Return Database.GetScalarValue($"SELECT GUID FROM TBSIG_RECEIVER WHERE EMAIL_ADDRESS = '{pEmailAddress}'", pTransaction) - - Catch ex As Exception - Logger.Error(ex) - Return Nothing - End Try - End Function -End Class diff --git a/EnvelopeGenerator.Common_ALT/Strings/Envelope.Designer.vb b/EnvelopeGenerator.Common_ALT/Strings/Envelope.Designer.vb deleted file mode 100644 index d170bcdd..00000000 --- a/EnvelopeGenerator.Common_ALT/Strings/Envelope.Designer.vb +++ /dev/null @@ -1,112 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - ''' - ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - ''' - _ - Friend Class Envelope - - Private Shared resourceMan As Global.System.Resources.ResourceManager - - Private Shared resourceCulture As Global.System.Globalization.CultureInfo - - _ - Friend Sub New() - MyBase.New - End Sub - - ''' - ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - ''' - _ - Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Common.Envelope", GetType(Envelope).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - ''' - _ - Friend Shared Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Empfänger {0} hat keine gültige Email Addresse. ähnelt. - ''' - Friend Shared ReadOnly Property Invalid_Email_Address() As String - Get - Return ResourceManager.GetString("Invalid Email Address", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Missing Documents ähnelt. - ''' - Friend Shared ReadOnly Property Missing_Documents() As String - Get - Return ResourceManager.GetString("Missing Documents", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Missing Message ähnelt. - ''' - Friend Shared ReadOnly Property Missing_Message() As String - Get - Return ResourceManager.GetString("Missing Message", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Missing Receivers ähnelt. - ''' - Friend Shared ReadOnly Property Missing_Receivers() As String - Get - Return ResourceManager.GetString("Missing Receivers", resourceCulture) - End Get - End Property - - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Missing Subject ähnelt. - ''' - Friend Shared ReadOnly Property Missing_Subject() As String - Get - Return ResourceManager.GetString("Missing Subject", resourceCulture) - End Get - End Property - End Class -End Namespace diff --git a/EnvelopeGenerator.Common_ALT/Strings/Envelope.resx b/EnvelopeGenerator.Common_ALT/Strings/Envelope.resx deleted file mode 100644 index 9c48cb82..00000000 --- a/EnvelopeGenerator.Common_ALT/Strings/Envelope.resx +++ /dev/null @@ -1,135 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Empfänger {0} hat keine gültige Email Addresse. - - - Missing Documents - - - Missing Message - - - Missing Receivers - - - Missing Subject - - \ No newline at end of file