diff --git a/EnvelopeGenerator.Common/Entities/EmailData.vb b/EnvelopeGenerator.Common/Entities/EmailData.vb index 21b317a5..cb11e82f 100644 --- a/EnvelopeGenerator.Common/Entities/EmailData.vb +++ b/EnvelopeGenerator.Common/Entities/EmailData.vb @@ -1,4 +1,5 @@ Imports EnvelopeGenerator.Domain +Imports EnvelopeGenerator.Domain.Entities Public Class EmailData Public Property EmailAdress As String = "" Public Property EmailSubject As String = "" diff --git a/EnvelopeGenerator.Common/Entities/Envelope.vb b/EnvelopeGenerator.Common/Entities/Envelope.vb deleted file mode 100644 index 735d0cd8..00000000 --- a/EnvelopeGenerator.Common/Entities/Envelope.vb +++ /dev/null @@ -1,84 +0,0 @@ -Imports EnvelopeGenerator.Domain -Imports EnvelopeGenerator.Domain.Entities - -Public Class Envelope - Public Property Id As Integer = 0 - Public Property UserId As Integer - Public Property Title As String = "" - Public Property EnvelopeTypeId As Integer - Public Property ContractType As Integer - Public Property Status As Constants.EnvelopeStatus = Constants.EnvelopeStatus.EnvelopeCreated - Public Property Uuid As String = Guid.NewGuid.ToString() - Public Property UseAccessCode As Boolean = False - Public Property Language As String = "de-DE" - Public Property CertificationType As Constants.CertificationType = Constants.CertificationType.AdvancedElectronicSignature - Public Property TFA_Enabled As Boolean = False - Public Property SendReminderEmails As Boolean = False - Public Property FirstReminderDays As Integer = 0 - Public Property ReminderIntervalDays As Integer = 0 - - Public Property ExpiresWhen As Date - Public Property ExpiresWarningWhen As Date - Public Property ExpiresWhenDays As Integer - Public Property ExpiresWarningWhenDays As Integer - - Public Property FinalEmailToCreator As Constants.FinalEmailType - Public Property FinalEmailToReceivers As Constants.FinalEmailType - - Public Property Message As String = My.Resources.Envelope.Please_read_and_sign_this_document - - Public Property AddedWhen As Date - Public Property ChangedWhen As Date - Public Property User As New User() - - Public Property Documents As New List(Of EnvelopeDocument) - Public Property Receivers As New List(Of Receiver) - Public Property History As New List(Of EnvelopeHistoryEntry) - Public Property EnvelopeType As EnvelopeType - Public Property DOC_RESULT As Byte() - Public Property CURRENT_WORK_APP As String = "signFLOW GUI" - Public ReadOnly Property EnvelopeTypeTitle As String - Get - Return EnvelopeType?.Title - End Get - End Property - - Public ReadOnly Property IsAlreadySent As Boolean - Get - Return Status > Constants.EnvelopeStatus.EnvelopeSaved - End Get - End Property - - Public ReadOnly Property StatusTranslated As String - Get - Dim oStatus = Status.ToString() - Return My.Resources.Model.ResourceManager.GetString(oStatus) - End Get - End Property - - Public ReadOnly Property ContractTypeTranslated As String - Get - Dim oContractType = ContractType.ToString() - Return My.Resources.Model.ResourceManager.GetString(oContractType) - End Get - End Property - - Public Function ValidateReceiverDocumentData() As List(Of String) - Dim oErrors As New List(Of String) - - 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 - - If Receivers.Any(Function(r) r.HasEmailAndName = False) Then - oErrors.Add(My.Resources.Envelope.Incomplete_Receivers) - End If - - Return oErrors - End Function - -End Class diff --git a/EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb b/EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb index 0e5380e1..6ec029aa 100644 --- a/EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb +++ b/EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb @@ -1,4 +1,6 @@ -Public Class EnvelopeReceiver +Imports EnvelopeGenerator.Domain.Entities + +Public Class EnvelopeReceiver Public Property Envelope As Envelope Public Property Receiver As Receiver End Class diff --git a/EnvelopeGenerator.Common/Entities/Receiver.vb b/EnvelopeGenerator.Common/Entities/Receiver.vb deleted file mode 100644 index 07e68b74..00000000 --- a/EnvelopeGenerator.Common/Entities/Receiver.vb +++ /dev/null @@ -1,60 +0,0 @@ -Imports System.Drawing -Imports DigitalData.Modules.Base -Imports EnvelopeGenerator.Domain.Constants - -Public Class Receiver - Public Property Id As Integer = 0 - Public Property Signature As String - Public ReadOnly Property Color As Color - Get - Return Helpers.ColorTypeToColor(ColorType) - End Get - End Property - - Public Property ColorType As ColorType - - Public Property Name As String - - Public Property Company As String = "" - - Public Property JobTitle As String = "" - - Public Property EmailAddress As String - - Public Property Status As ReceiverStatus - - Public Property SignedDate As DateTime = DateTime.MinValue - - Public ReadOnly Property SignedDateDisplayValue As String - Get - If SignedDate = DateTime.MinValue Then - Return "-" - Else - Return SignedDate.ToString("G") - End If - - End Get - End Property - - Public ReadOnly Property HasId As Boolean - Get - Return Id > 0 - End Get - End Property - - Public ReadOnly Property HasEmailAndName As Boolean - Get - Return String.IsNullOrWhiteSpace(EmailAddress) = False And - String.IsNullOrWhiteSpace(Name) = False - End Get - End Property - - Public Property Sequence As Integer = 0 - Public Property PrivateMessage As String = "" - Public Property AccessCode As String = "" - Public Property PhoneNumber As String = "" - - Public Function GetSignature() As String - Return StringEx.GetChecksum(EmailAddress.ToUpper) - End Function -End Class diff --git a/EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj b/EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj index cf6e1234..0d715ff0 100644 --- a/EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj +++ b/EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj @@ -280,11 +280,9 @@ - - diff --git a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb index 9c15adaa..978ebd12 100644 --- a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb +++ b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb @@ -10,6 +10,7 @@ Imports EnvelopeGenerator.Common.Jobs.FinalizeDocument Imports EnvelopeGenerator.Domain.Constants Imports DevExpress.DataProcessing Imports System.Data.SqlClient +Imports EnvelopeGenerator.Domain.Entities Namespace Jobs Public Class FinalizeDocumentJob diff --git a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/ReportCreator.vb b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/ReportCreator.vb index 8b8c6ae9..aa0b8b8d 100644 --- a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/ReportCreator.vb +++ b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/ReportCreator.vb @@ -2,6 +2,7 @@ Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Base Imports EnvelopeGenerator.Common.Jobs.FinalizeDocument.FinalizeDocumentExceptions +Imports EnvelopeGenerator.Domain.Entities Public Class ReportCreator Inherits BaseClass @@ -17,7 +18,7 @@ Public Class ReportCreator EnvelopeModel = New EnvelopeModel(pState) End Sub - Public Function CreateReport(pEnvelope As Envelope) As Byte() + Public Function CreateReport(pEnvelope As Domain.Entities.Envelope) As Byte() Try Logger.Debug("Loading report data..") Dim oTable = ReportModel.List(pEnvelope.Id) diff --git a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/ReportItem.vb b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/ReportItem.vb index 5a24f80c..01b363f7 100644 --- a/EnvelopeGenerator.Common/Jobs/FinalizeDocument/ReportItem.vb +++ b/EnvelopeGenerator.Common/Jobs/FinalizeDocument/ReportItem.vb @@ -1,4 +1,5 @@ Imports EnvelopeGenerator.Domain +Imports EnvelopeGenerator.Domain.Entities Public Class ReportItem diff --git a/EnvelopeGenerator.Common/Models/CertificateModel.vb b/EnvelopeGenerator.Common/Models/CertificateModel.vb index 99ad7612..540199c0 100644 --- a/EnvelopeGenerator.Common/Models/CertificateModel.vb +++ b/EnvelopeGenerator.Common/Models/CertificateModel.vb @@ -1,4 +1,5 @@ Imports System.Data.SqlClient +Imports EnvelopeGenerator.Domain.Entities diff --git a/EnvelopeGenerator.Common/Models/DocumentModel.vb b/EnvelopeGenerator.Common/Models/DocumentModel.vb index 593988e2..a9135c4b 100644 --- a/EnvelopeGenerator.Common/Models/DocumentModel.vb +++ b/EnvelopeGenerator.Common/Models/DocumentModel.vb @@ -1,5 +1,6 @@ Imports System.Data.SqlClient Imports DigitalData.Modules.Base +Imports EnvelopeGenerator.Domain.Entities Public Class DocumentModel Inherits BaseModel diff --git a/EnvelopeGenerator.Common/Models/ReceiverModel.vb b/EnvelopeGenerator.Common/Models/ReceiverModel.vb index 13a81eda..32adf263 100644 --- a/EnvelopeGenerator.Common/Models/ReceiverModel.vb +++ b/EnvelopeGenerator.Common/Models/ReceiverModel.vb @@ -3,6 +3,7 @@ Imports System.Net.Mail Imports DevExpress.DataProcessing Imports DigitalData.Modules.Base Imports EnvelopeGenerator.Domain.Constants +Imports EnvelopeGenerator.Domain.Entities Public Class ReceiverModel Inherits BaseModel diff --git a/EnvelopeGenerator.Common/Services/ActionService.vb b/EnvelopeGenerator.Common/Services/ActionService.vb index 1871e7dd..6499b882 100644 --- a/EnvelopeGenerator.Common/Services/ActionService.vb +++ b/EnvelopeGenerator.Common/Services/ActionService.vb @@ -1,9 +1,7 @@ -Imports DevExpress.DataAccess.Native.Web -Imports DigitalData.Modules.Base +Imports EnvelopeGenerator.Domain.Entities Imports EnvelopeGenerator.Domain.Constants Imports EnvelopeGenerator.Common.My.Resources Imports DigitalData.Modules.Database -Imports System.ComponentModel Public Class ActionService Inherits BaseService @@ -25,7 +23,7 @@ Public Class ActionService ReceiverModel = New ReceiverModel(pState) End Sub - Public Function SendEnvelope(pEnvelope As Envelope) As Boolean + Public Function SendEnvelope(pEnvelope As Domain.Entities.Envelope) As Boolean If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.EnvelopeQueued, pEnvelope.User.Email) = False Then Return False End If @@ -40,13 +38,13 @@ Public Class ActionService Return True End Function - Public Function SetStatusDocumentRotationChanged(pEnvelope As Envelope) As Boolean + Public Function SetStatusDocumentRotationChanged(pEnvelope As Domain.Entities.Envelope) As Boolean If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.DocumentMod_Rotation, pEnvelope.User.Email) = False Then Return False End If Return True End Function - Public Function Resend_Receiver(pEnvelope As Envelope, pmail As String) As Boolean + Public Function Resend_Receiver(pEnvelope As Domain.Entities.Envelope, pmail As String) As Boolean If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.EnvelopeQueued, pEnvelope.User.Email) = False Then Return False End If @@ -56,12 +54,12 @@ Public Class ActionService Next Return oSendResult End Function - Public Function ResendReceiver(pEnvelope As Envelope, pReceiver As Receiver) As Boolean + Public Function ResendReceiver(pEnvelope As Domain.Entities.Envelope, pReceiver As Receiver) As Boolean Return EmailService.SendDocumentReceivedEmail(pEnvelope, pReceiver) End Function - Public Function DeleteEnvelope(pEnvelope As Envelope, pReason As String) As Boolean + Public Function DeleteEnvelope(pEnvelope As Domain.Entities.Envelope, pReason As String) As Boolean Dim oStatus As EnvelopeStatus If pEnvelope.IsAlreadySent Then oStatus = EnvelopeStatus.EnvelopeWithdrawn @@ -84,7 +82,7 @@ Public Class ActionService Return True End Function - Public Function API_SendWithdrawn_Mails(pEnvelope As Envelope, pReason As String) As Boolean + Public Function API_SendWithdrawn_Mails(pEnvelope As Domain.Entities.Envelope, pReason As String) As Boolean Dim oSendResult As Boolean = False For Each oReceiver As Receiver In pEnvelope.Receivers If EmailService.SendEnvelopeDeletedEmail(pEnvelope, oReceiver, pReason) = False Then @@ -94,7 +92,7 @@ Public Class ActionService Return True End Function - Public Function OpenEnvelope(pEnvelope As Envelope, pReceiver As Receiver) As Boolean + Public Function OpenEnvelope(pEnvelope As Domain.Entities.Envelope, pReceiver As Receiver) As Boolean Dim oUserReference = pReceiver.EmailAddress If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.DocumentOpened, oUserReference) = False Then @@ -104,7 +102,7 @@ Public Class ActionService Return True End Function - Public Function RequestAccessCode(pEnvelope As Envelope, pReceiver As Receiver) As Boolean + Public Function RequestAccessCode(pEnvelope As Domain.Entities.Envelope, pReceiver As Receiver) As Boolean Dim oUserReference = pReceiver.EmailAddress If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.AccessCodeRequested, oUserReference) = False Then @@ -114,7 +112,7 @@ Public Class ActionService Return True End Function - Public Function EnterCorrectAccessCode(pEnvelope As Envelope, pReceiver As Receiver) As Boolean + Public Function EnterCorrectAccessCode(pEnvelope As Domain.Entities.Envelope, pReceiver As Receiver) As Boolean Dim oUserReference = pReceiver.EmailAddress If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.AccessCodeCorrect, oUserReference) = False Then @@ -124,7 +122,7 @@ Public Class ActionService Return True End Function - Public Function EnterIncorrectAccessCode(pEnvelope As Envelope, pReceiver As Receiver) As Boolean + Public Function EnterIncorrectAccessCode(pEnvelope As Domain.Entities.Envelope, pReceiver As Receiver) As Boolean Dim oUserReference = pReceiver.EmailAddress If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.AccessCodeIncorrect, oUserReference) = False Then @@ -134,7 +132,7 @@ Public Class ActionService Return True End Function - Public Function SignEnvelope(pEnvelope As Envelope, pReceiver As Receiver) As Boolean + Public Function SignEnvelope(pEnvelope As Domain.Entities.Envelope, pReceiver As Receiver) As Boolean Dim oUserReference = pReceiver.EmailAddress If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.DocumentSigned, oUserReference) = False Then @@ -144,7 +142,7 @@ Public Class ActionService Return EmailService.SendSignedEmail(pEnvelope, pReceiver) End Function - Public Function FinalizeEnvelope(pEnvelope As Envelope) As Boolean + Public Function FinalizeEnvelope(pEnvelope As Domain.Entities.Envelope) As Boolean If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.EnvelopeArchived, "System") = False Then Return False End If @@ -152,7 +150,7 @@ Public Class ActionService Return True End Function - Public Function CompleteEnvelope(pEnvelope As Envelope, pReceiver As Receiver) As Boolean ', pAttachment As String + Public Function CompleteEnvelope(pEnvelope As Domain.Entities.Envelope, pReceiver As Domain.Entities.Receiver) As Boolean ', pAttachment As String If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.MessageCompletionSent, pReceiver.EmailAddress) = False Then Return False End If @@ -160,7 +158,7 @@ Public Class ActionService Return EmailService.SendDocumentCompletedEmailToReceiver(pEnvelope, pReceiver) ', pAttachment End Function - Public Function CompleteEnvelope(pEnvelope As Envelope) As Boolean ', pAttachment As String + Public Function CompleteEnvelope(pEnvelope As Domain.Entities.Envelope) As Boolean ', pAttachment As String If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.MessageCompletionSent, pEnvelope.User.Email) = False Then Return False End If @@ -168,7 +166,7 @@ Public Class ActionService Return EmailService.SendDocumentCompletedEmailToCreator(pEnvelope) ', pAttachment End Function - Public Function CreateReport(pEnvelope As Envelope) As Boolean + Public Function CreateReport(pEnvelope As Domain.Entities.Envelope) As Boolean If HistoryService.SetEnvelopeStatus(pEnvelope, EnvelopeStatus.EnvelopeReportCreated, "System") = False Then Return False End If diff --git a/EnvelopeGenerator.Common/Services/EmailService.vb b/EnvelopeGenerator.Common/Services/EmailService.vb index dad11f46..9b6f428f 100644 --- a/EnvelopeGenerator.Common/Services/EmailService.vb +++ b/EnvelopeGenerator.Common/Services/EmailService.vb @@ -1,4 +1,5 @@ Imports DigitalData.Modules.Logging +Imports EnvelopeGenerator.Domain.Entities Public Class EmailService Inherits BaseService diff --git a/EnvelopeGenerator.Common/Services/HistoryService.vb b/EnvelopeGenerator.Common/Services/HistoryService.vb index 6795c6f3..c082883b 100644 --- a/EnvelopeGenerator.Common/Services/HistoryService.vb +++ b/EnvelopeGenerator.Common/Services/HistoryService.vb @@ -1,5 +1,6 @@ Imports DigitalData.Modules.Logging Imports EnvelopeGenerator.Domain.Constants +Imports EnvelopeGenerator.Domain.Entities Public Class HistoryService Inherits BaseService diff --git a/EnvelopeGenerator.Domain/Entities/Envelope.cs b/EnvelopeGenerator.Domain/Entities/Envelope.cs index b7042670..e59b79ef 100644 --- a/EnvelopeGenerator.Domain/Entities/Envelope.cs +++ b/EnvelopeGenerator.Domain/Entities/Envelope.cs @@ -127,6 +127,12 @@ namespace EnvelopeGenerator.Domain.Entities [NotMapped] public string StatusTranslated => My.Resources.Model.ResourceManager.GetString(Status.ToString()); + [NotMapped] + public bool TFA_Enabled { get; set; } = false; + + [NotMapped] + public byte[] DOC_RESULT { get; set; } + // TODO: * Check the Form App and remove the default value public IEnumerable Documents { get; set; } = new List();