refactor(EnvelopeHistory): rename as History
This commit is contained in:
@@ -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] "
|
||||
|
||||
Reference in New Issue
Block a user