31.07.2023

EnvelopeGenerator.Form/Controllers/FieldEditorController.vb

@@ -8,14 +8,18 @@ Imports GdPicture14.Annotations
 Public Class FieldEditorController
     Inherits BaseClass
 
+    Private ReadOnly ElementModel As ElementModel
+
     Private ReadOnly Database As MSSQLServer
     Private ReadOnly Document As EnvelopeDocument
-    Public ReadOnly Property Elements As New List(Of EnvelopeDocumentElement)
+    Public Property Elements As New List(Of EnvelopeDocumentElement)
 
     Public Sub New(pState As State, pDocument As EnvelopeDocument)
         MyBase.New(pState.LogConfig)
         Database = pState.Database
         Document = pDocument
+
+        ElementModel = New ElementModel(pState)
     End Sub
 
     Public Sub AddOrUpdateElement(pAnnotation As AnnotationStickyNote, pReceiverId As Integer)
@@ -44,6 +48,15 @@ Public Class FieldEditorController
         End If
     End Sub
 
+    Public Function LoadElements() As Boolean
+        Elements = ElementModel.List(Document.Id)
+
+        If Elements Is Nothing Then
+            Return False
+        Else Return True
+        End If
+    End Function
+
     Public Function SaveElements() As Boolean
         Return Elements.
             Select(AddressOf SaveElement).