SQL-Abfragen in Models verschoben

User Model neu
2023-08-08 15:09:33 +02:00
parent 462bf4a61f
commit 73149e2101
15 changed files with 245 additions and 153 deletions
--- a/EnvelopeGenerator.Common/Models/ElementModel.vb
+++ b/EnvelopeGenerator.Common/Models/ElementModel.vb
@@ -1,4 +1,5 @@
 Imports System.Data
+Imports System.Data.SqlClient
 Imports DigitalData.Modules.Base

 Public Class ElementModel
@@ -53,4 +54,104 @@ Public Class ElementModel
        End Try
    End Function

+    Public Function Insert(pElement As EnvelopeDocumentElement) As Boolean
+        Try
+            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]
+                   ,[ANNOTATION_INDEX])
+                VALUES
+                   (@DOCUMENT_ID
+                   ,@RECEIVER_ID
+                   ,@ELEMENT_TYPE
+                   ,@POSITION_X
+                   ,@POSITION_Y
+                   ,@WIDTH
+                   ,@HEIGHT
+                   ,@REQUIRED
+                   ,@READ_ONLY
+                   ,@STATUS
+                   ,@PAGE
+                   ,@INDEX)"
+
+            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.Float).Value = pElement.X
+            oCommand.Parameters.Add("POSITION_Y", SqlDbType.Float).Value = pElement.Y
+            oCommand.Parameters.Add("WIDTH", SqlDbType.Float).Value = pElement.Width
+            oCommand.Parameters.Add("HEIGHT", SqlDbType.Float).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
+            oCommand.Parameters.Add("INDEX", SqlDbType.Int).Value = pElement.AnnotationIndex
+
+            If Database.ExecuteNonQuery(oCommand) Then
+                pElement.Id = GetElementId(pElement)
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function Update(pElement As EnvelopeDocumentElement) As Boolean
+        Try
+            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.Float).Value = pElement.X
+            oCommand.Parameters.Add("POSITION_Y", SqlDbType.Float).Value = pElement.Y
+            oCommand.Parameters.Add("WIDTH", SqlDbType.Float).Value = pElement.Width
+            oCommand.Parameters.Add("HEIGHT", SqlDbType.Float).Value = pElement.Height
+
+            Return Database.ExecuteNonQuery(oCommand)
+
+        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
+
+    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
 End Class