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

refactor(EnvelopeHistoryEntry): Umbenennung von EnvelopeHistoryEntry in EnvelopeHistory

Browse Source
This commit is contained in:
Developer 02 2025-05-26 10:02:50 +02:00
parent 1f43dff9f4
commit c6fe039dd8
5 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
EnvelopeGenerator.Common/Entities/EnvelopeHistoryEntry.vb → EnvelopeGenerator.Common/Entities/EnvelopeHistory.vb
View File

@ -1,6 +1,6 @@
Imports EnvelopeGenerator.Domain
Public Class EnvelopeHistoryEntry
Public Class EnvelopeHistory
Public Property EnvelopeId As Integer
Public Property UserReference As String
Public Property Status As Constants.EnvelopeStatus

2
EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj
View File

@ -280,7 +280,7 @@
<Compile Include="Jobs\APIBackendJobs\APIEnvelopeJob.vb" />
<Compile Include="Jobs\FinalizeDocument\PDFBurnerParams.vb" />
<Compile Include="Services\TemplateService.vb" />
<Compile Include="Entities\EnvelopeHistoryEntry.vb" />
<Compile Include="Entities\EnvelopeHistory.vb" />
<Compile Include="Entities\EnvelopeReceiver.vb" />
<Compile Include="Entities\State.vb" />
<Compile Include="Helpers.vb" />

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

@ -8,8 +8,8 @@ Public Class HistoryModel
MyBase.New(pState)
End Sub
Private Function ToEnvelopeHistoryEntry(pRow As DataRow) As EnvelopeHistoryEntry
Return New EnvelopeHistoryEntry() With {
Private Function ToEnvelopeHistoryEntry(pRow As DataRow) As EnvelopeHistory
Return New EnvelopeHistory() With {
.ActionDate = pRow.ItemEx(Of Date)("ACTION_DATE", Nothing),
.EnvelopeId = pRow.Item("ENVELOPE_ID"),
.Status = pRow.Item("STATUS"),
@ -17,7 +17,7 @@ Public Class HistoryModel
}
End Function
Public Function List(pEnvelopeId As Integer) As List(Of EnvelopeHistoryEntry)
Public Function List(pEnvelopeId As Integer) As List(Of EnvelopeHistory)
Dim oSql = $"SELECT * FROM TBSIG_ENVELOPE_HISTORY WHERE ENVELOPE_ID = {pEnvelopeId} AND ACTION_DATE IS NOT NULL ORDER BY GUID DESC"
Dim oTable = Database.GetDatatable(oSql)
Return oTable?.Rows.
@ -39,7 +39,7 @@ Public Class HistoryModel
Return oRowCount > 0
End Function
Public Function Insert(pHistory As EnvelopeHistoryEntry) As Boolean
Public Function Insert(pHistory As EnvelopeHistory) As Boolean
Try
Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_HISTORY] "
oSql += " ([ENVELOPE_ID] "

2
EnvelopeGenerator.Common/Services/HistoryService.vb
View File

@ -18,7 +18,7 @@ Public Class HistoryService
End Sub
Public Function SetEnvelopeStatus(pEnvelope As Envelope, pStatus As EnvelopeStatus, pUserReference As String) As Boolean
Dim oResult = HistoryModel.Insert(New EnvelopeHistoryEntry() With {
Dim oResult = HistoryModel.Insert(New EnvelopeHistory() With {
.EnvelopeId = pEnvelope.Id,
.ActionDate = Now(),
.Status = pStatus,

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

@ -76,7 +76,7 @@ Public Class EnvelopeEditorController
If EnvelopeModel.Insert(oEnvelope) Then
Dim newHistoryEntry As New EnvelopeHistoryEntry With {
Dim newHistoryEntry As New Common.EnvelopeHistoryWith {
.EnvelopeId = oEnvelope.Id,
.Status = EnvelopeStatus.EnvelopeCreated,
.UserReference = oEnvelope.User.Email