refactor(EnvelopeHistory): rename as History

This commit is contained in:
2025-09-09 18:57:38 +02:00
parent ae669d05e7
commit e8f2c868b1
26 changed files with 65 additions and 65 deletions

View File

@@ -10,8 +10,8 @@ Public Class HistoryModel
MyBase.New(pState)
End Sub
Private Function ToEnvelopeHistoryEntry(pRow As DataRow) As EnvelopeHistory
Return New EnvelopeHistory() With {
Private Function ToEnvelopeHistoryEntry(pRow As DataRow) As History
Return New History() With {
.ActionDate = pRow.ItemEx(Of Date)("ACTION_DATE", Nothing),
.EnvelopeId = pRow.Item("ENVELOPE_ID"),
.Status = pRow.Item("STATUS"),
@@ -19,7 +19,7 @@ Public Class HistoryModel
}
End Function
Public Function List(pEnvelopeId As Integer) As List(Of EnvelopeHistory)
Public Function List(pEnvelopeId As Integer) As List(Of History)
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.
@@ -41,7 +41,7 @@ Public Class HistoryModel
Return oRowCount > 0
End Function
Public Function Insert(pHistory As EnvelopeHistory) As Boolean
Public Function Insert(pHistory As History) As Boolean
Try
Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_HISTORY] "
oSql += " ([ENVELOPE_ID] "