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

2023-09-25

Browse Source
This commit is contained in:
PitzM
2023-09-25 16:37:55 +02:00
parent d7b3cae218
commit 3ee7c180f6
9 changed files with 77 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
EnvelopeGenerator.Form/Controllers/EnvelopeEditorController.vb
View File

@@ -48,10 +48,8 @@ Public Class EnvelopeEditorController
.SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, Envelope.Uuid, receiverItem.Signature)
}
' TODO Email-Template füllen
Dim oTemplate As EmailTemplate = New EmailTemplate(State)
oTemplate.SetEmailBody(oEmailData)
oTemplate.FillEmailBody(oEmailData)
If EmailModel.Insert(oEmailData) = False Then
Logger.Error("EMail data could not be inserted.")
@@ -62,7 +60,7 @@ Public Class EnvelopeEditorController
If EnvelopeModel.Send(Envelope) Then
'TODO: Send email
'TODO: Send email to History
Return True
Else
Return False
@@ -94,15 +92,16 @@ Public Class EnvelopeEditorController
.UserId = State.UserId,
.User = UserModel.SelectUser()
}
If EnvelopeModel.Insert(oEnvelope) Then
Dim newHistoryEntry As New EnvelopeHistoryEntry With {
.EnvelopeId = oEnvelope.Id,
.Status = HistoryStatus.Created,
.ActionTitle = "Envelope erzeugt",
.ActionDescription = "Envelope wurde erzeugt"
.ActionTitle = "Envelope erstellt",
.ActionDescription = "Envelope wurde neu erstellt",
.UserEmailAddress = oEnvelope.User.Email
}
'TODO .UserEmailAddress = oEnvelope.User.Email ' TODO - fehlt noch
Return oEnvelope
Else