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

refactor(EnvelopeHistory): rename as History

Browse Source
This commit is contained in:
tekh
2025-09-09 18:57:38 +02:00
parent ae669d05e7
commit e8f2c868b1
26 changed files with 65 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
EnvelopeGenerator.CommonServices/Models/ElementModel.vb
View File

@@ -10,8 +10,8 @@ Public Class ElementModel
MyBase.New(pState)
End Sub
Private Function ToElement(pRow As DataRow) As DocumentReceiverElement
Return New DocumentReceiverElement() With {
Private Function ToElement(pRow As DataRow) As Signature
Return New Signature() With {
.Id = pRow.ItemEx("GUID", 0),
.DocumentId = pRow.ItemEx("DOCUMENT_ID", 0),
.ReceiverId = pRow.ItemEx("RECEIVER_ID", 0),
@@ -24,7 +24,7 @@ Public Class ElementModel
}
End Function
Private Function ToElements(pTable As DataTable) As List(Of DocumentReceiverElement)
Private Function ToElements(pTable As DataTable) As List(Of Signature)
Return pTable?.Rows.Cast(Of DataRow).
Select(AddressOf ToElement).
ToList()
@@ -80,7 +80,7 @@ Public Class ElementModel
End Try
End Function
Public Function List(pDocumentId As Integer) As List(Of DocumentReceiverElement)
Public Function List(pDocumentId As Integer) As List(Of Signature)
Try
Dim oSql = $"SELECT * FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] WHERE DOCUMENT_ID = {pDocumentId} ORDER BY PAGE ASC"
Dim oTable = Database.GetDatatable(oSql)
@@ -93,7 +93,7 @@ Public Class ElementModel
End Try
End Function
Public Function List(pDocumentId As Integer, pReceiverId As Integer) As List(Of DocumentReceiverElement)
Public Function List(pDocumentId As Integer, pReceiverId As Integer) As List(Of Signature)
Try
Dim oReceiverConstraint = ""
If pReceiverId > 0 Then
@@ -111,7 +111,7 @@ Public Class ElementModel
End Try
End Function
Public Function Insert(pElement As DocumentReceiverElement) As Boolean
Public Function Insert(pElement As Signature) As Boolean
Try
Dim oSql = "INSERT INTO [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT]
([DOCUMENT_ID]
@@ -161,7 +161,7 @@ Public Class ElementModel
End Try
End Function
Public Function Update(pElement As DocumentReceiverElement) As Boolean
Public Function Update(pElement As Signature) As Boolean
Try
Dim oSql = "UPDATE [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT]
SET [POSITION_X] = @POSITION_X
@@ -185,7 +185,7 @@ Public Class ElementModel
End Try
End Function
Private Function GetElementId(pElement As DocumentReceiverElement) As Integer
Private Function GetElementId(pElement As Signature) As Integer
Try
Return Database.GetScalarValue($"SELECT MAX(GUID) FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT
WHERE DOCUMENT_ID = {pElement.DocumentId} AND RECEIVER_ID = {pElement.ReceiverId}")
@@ -196,7 +196,7 @@ Public Class ElementModel
End Try
End Function
Public Function DeleteElement(pElement As DocumentReceiverElement) As Boolean
Public Function DeleteElement(pElement As Signature) As Boolean
Try
Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT WHERE GUID = {pElement.Id}"
Return Database.ExecuteNonQuery(oSql)