116 lines
4.6 KiB
VB.net
116 lines
4.6 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports DevExpress.Utils.CommonDialogs
|
|
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Database
|
|
|
|
Public Class FieldEditorController
|
|
Inherits BaseClass
|
|
|
|
Private ReadOnly Database As MSSQLServer
|
|
Private Envelope As Envelope = Nothing
|
|
|
|
Public Sub New(pState As State)
|
|
MyBase.New(pState.LogConfig)
|
|
Database = pState.Database
|
|
End Sub
|
|
|
|
Public Function SaveElements(pElements As IEnumerable(Of EnvelopeDocumentElement)) As Boolean
|
|
Return pElements.
|
|
Select(AddressOf SaveElement).
|
|
All(Function(pResult) pResult = True)
|
|
End Function
|
|
|
|
Public Function SaveElement(pElement As EnvelopeDocumentElement) As Boolean
|
|
Try
|
|
If pElement.Id > 0 Then
|
|
Dim oSql = "UPDATE [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT]
|
|
SET [POSITION_X] = @POSITION_X
|
|
,[POSITION_Y] = @POSITION_Y
|
|
,[WIDTH] = @WIDTH
|
|
,[HEIGHT] = @HEIGHT
|
|
WHERE GUID = @GUID"
|
|
|
|
Dim oCommand As New SqlCommand(oSql)
|
|
oCommand.Parameters.Add("GUID", SqlDbType.NVarChar).Value = pElement.Id
|
|
oCommand.Parameters.Add("POSITION_X", SqlDbType.Int).Value = pElement.X
|
|
oCommand.Parameters.Add("POSITION_Y", SqlDbType.Int).Value = pElement.Y
|
|
oCommand.Parameters.Add("WIDTH", SqlDbType.Int).Value = pElement.Width
|
|
oCommand.Parameters.Add("HEIGHT", SqlDbType.Int).Value = pElement.Height
|
|
|
|
Return Database.ExecuteNonQuery(oCommand)
|
|
|
|
Else
|
|
Dim oSql = "INSERT INTO [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT]
|
|
([DOCUMENT_ID]
|
|
,[RECEIVER_ID]
|
|
,[ELEMENT_TYPE]
|
|
,[POSITION_X]
|
|
,[POSITION_Y]
|
|
,[WIDTH]
|
|
,[HEIGHT]
|
|
,[REQUIRED]
|
|
,[READ_ONLY]
|
|
,[STATUS]
|
|
,[PAGE])
|
|
VALUES
|
|
(@DOCUMENT_ID
|
|
,@RECEIVER_ID
|
|
,@ELEMENT_TYPE
|
|
,@POSITION_X
|
|
,@POSITION_Y
|
|
,@WIDTH
|
|
,@HEIGHT
|
|
,@REQUIRED
|
|
,@READ_ONLY
|
|
,@STATUS
|
|
,@PAGE)"
|
|
|
|
Dim oCommand As New SqlCommand(oSql)
|
|
oCommand.Parameters.Add("DOCUMENT_ID", SqlDbType.NVarChar).Value = pElement.DocumentId
|
|
oCommand.Parameters.Add("RECEIVER_ID", SqlDbType.NVarChar).Value = pElement.ReceiverId
|
|
oCommand.Parameters.Add("ELEMENT_TYPE", SqlDbType.NVarChar).Value = pElement.ElementType
|
|
oCommand.Parameters.Add("POSITION_X", SqlDbType.Int).Value = pElement.X
|
|
oCommand.Parameters.Add("POSITION_Y", SqlDbType.Int).Value = pElement.Y
|
|
oCommand.Parameters.Add("WIDTH", SqlDbType.Int).Value = pElement.Width
|
|
oCommand.Parameters.Add("HEIGHT", SqlDbType.Int).Value = pElement.Height
|
|
oCommand.Parameters.Add("REQUIRED", SqlDbType.Bit).Value = pElement.Required
|
|
oCommand.Parameters.Add("READ_ONLY", SqlDbType.Bit).Value = pElement.ReadOnly
|
|
oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = pElement.Status.ToString
|
|
oCommand.Parameters.Add("PAGE", SqlDbType.Int).Value = pElement.Page
|
|
|
|
|
|
If Database.ExecuteNonQuery(oCommand) Then
|
|
pElement.Id = GetElementId(pElement)
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Function DeleteElement(pElement As EnvelopeDocumentElement) As Boolean
|
|
Try
|
|
Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT WHERE GUID = {pElement.Id}"
|
|
Return Database.ExecuteNonQuery(oSql)
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Private Function GetElementId(pElement As EnvelopeDocumentElement) As Integer
|
|
Try
|
|
Return Database.GetScalarValue($"SELECT MAX(GUID) FROM TBSIG_DOCUMENT_RECEIVER_ELEMENT
|
|
WHERE DOCUMENT_ID = {pElement.DocumentId} AND RECEIVER_ID = {pElement.ReceiverId}")
|
|
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
End Class
|