finalize

EnvelopeGenerator.Common/Jobs/CertificateDocumentJob.vb

@@ -28,6 +28,8 @@ Namespace Jobs
         Private Database As MSSQLServer
         Private Config As DbConfig
 
+        Private ActionService As ActionService
+
         Private PDFBurner As PDFBurner
 
         Private Class EnvelopeData
@@ -43,6 +45,9 @@ Namespace Jobs
             Logger = LogConfig.GetLogger()
 
             Try
+                InitializeModels()
+                InitializeServices()
+
                 Logger.Debug("Loading GdViewer..")
                 GdViewer = New GdViewer()
                 LicenseManager.RegisterKEY(oGdPictureKey)
@@ -78,17 +83,33 @@ Namespace Jobs
 
                     If oEnvelopeData Is Nothing Then
                         Logger.Warn("EnvelopeData could not be loaded for Envelope [{0}]!", oId)
+                        Throw New ArgumentNullException("EnvelopeData")
                     End If
 
-                    'GenerateFinalPDF(oEnvelopeData)
-                    'Dim oReport As Byte() = Await GenerateReportPdf(oId)
-                    'MergeDocuments()
+                    If GenerateFinalPDF(oEnvelopeData) = False Then
+                        Logger.Warn("Document could not be finalized!")
+                        Throw New ApplicationException("Document could not be finalized")
+                    End If
 
-                    Logger.Info("Envelope finialized!")
+                    ' Dim oReport As Byte() = Await GenerateReportPdf(oId)
+                    ' MergeDocuments()
+
+                    Dim oEnvelope = EnvelopeModel.GetById(oId)
+                    If oEnvelope Is Nothing Then
+                        Logger.Warn("Envelope could not loaded!")
+                        Throw New ApplicationException("Envelope could not loaded!")
+                    End If
+
+                    If ActionService.FinalizeEnvelope(oEnvelope) = False Then
+                        Logger.Warn("Envelope could not be finalized!")
+                        Throw New ApplicationException("Envelope could not be finalized")
+                    End If
+
+                    Logger.Info("Envelope finalized!")
 
                 Next
 
-                Logger.Debug("Completed job {0}", JobId)
+                Logger.Info("Completed job {0} successfully!", JobId)
 
             Catch ex As Exception
                 Logger.Warn("Certificate Document job failed!")
@@ -119,7 +140,6 @@ Namespace Jobs
                     End Using
                 End Using
             End Using
-
         End Function
 
         Private Function GenerateFinalPDF(pData As EnvelopeData) As Boolean
@@ -213,6 +233,10 @@ Namespace Jobs
         }
         End Function
 
+        Private Sub InitializeServices()
+            Dim oState = GetState()
+            ActionService = New ActionService(oState)
+        End Sub
 
         Private Sub InitializeModels()
             Dim oState = GetState()