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

MS Config Common Paths DMZ Version 1.4

Browse Source
This commit is contained in:
SchreiberM 2024-02-21 09:19:19 +01:00
parent 02a197e535
commit 51741be5de
4 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
EnvelopeGenerator.Common/Entities/DbConfig.vb
View File

@ -2,6 +2,9 @@
Public Property ExternalProgramName As String = "Sign Flow"
Public Property DocumentPath As String = ""
Public Property ExportPath As String = ""
Public Property DocumentPath_DMZ As String = ""
Public Property ExportPath_DMZ As String = ""
Public Property SignedMail_Path As String = ""
Public Property SendingProfile As Integer = 0
Public Property SignatureHost As String = ""
End Class

17
EnvelopeGenerator.Common/Jobs/FinalizeDocument/FinalizeDocumentJob.vb
View File

@ -77,8 +77,15 @@ Namespace Jobs
ReportCreator = New ReportCreator(LogConfig, oState)
Logger.Debug("DocumentPath: [{0}]", Config.DocumentPath)
If Config.DocumentPath_DMZ <> String.Empty Then
Logger.Debug("DMZ-DocPath configured: [{0}] - Overwrite Document-Path", Config.DocumentPath_DMZ)
Config.DocumentPath = Config.DocumentPath_DMZ
End If
Logger.Debug("ExportPath: [{0}]", Config.ExportPath)
If Config.ExportPath_DMZ <> String.Empty Then
Logger.Debug("DMZ-ExportPath configured: [{0}] - Overwrite ExportPath", Config.ExportPath_DMZ)
Config.ExportPath = Config.ExportPath_DMZ
End If
Dim oCompleteStatus As Integer = Constants.EnvelopeStatus.EnvelopeCompletelySigned
Dim oSql = $"SELECT * FROM TBSIG_ENVELOPE WHERE STATUS = {oCompleteStatus} AND DATEDIFF(minute, CHANGED_WHEN, GETDATE()) >= {CompleteWaitTimeInMinutes}"
Dim oTable = Database.GetDatatable(oSql)
@ -192,6 +199,13 @@ Namespace Jobs
If oMailToReceivers <> FinalEmailType.No Then
Logger.Debug("Sending emails to receivers..")
If Config.SignedMail_Path <> String.Empty And Config.ExportPath_DMZ <> String.Empty Then
Logger.Debug("SignedMailPath configured: [{0}] - Replacing Attachment-Path", Config.SignedMail_Path)
Logger.Debug("Attachment-Path BEFORE replace: [{0}]", pAttachment)
pAttachment.Replace(Config.ExportPath, Config.SignedMail_Path)
Logger.Debug("Attachment-Path AFTER replace: [{0}]", pAttachment)
End If
SendFinalEmailToReceivers(pEnvelope, pAttachment)
End If
@ -221,6 +235,7 @@ Namespace Jobs
Logger.Debug("Attachment included: [{0}]", oIncludeAttachment)
If oIncludeAttachment Then
oAttachment = pAttachment
End If

5
EnvelopeGenerator.Common/Models/ConfigModel.vb
View File

@ -17,10 +17,13 @@ Public Class ConfigModel
Return New DbConfig() With {
.DocumentPath = oRow.ItemEx("DOCUMENT_PATH", ""),
.DocumentPath_DMZ = oRow.ItemEx("DOCUMENT_PATH_DMZ", ""),
.ExportPath = oRow.ItemEx("EXPORT_PATH", ""),
.ExportPath_DMZ = oRow.ItemEx("EXPORT_PATH_DMZ", ""),
.SendingProfile = oRow.ItemEx("SENDING_PROFILE", 0),
.SignatureHost = oRow.ItemEx("SIGNATURE_HOST", ""),
.ExternalProgramName = oRow.ItemEx("EXTERNAL_PROGRAM_NAME", "")
.ExternalProgramName = oRow.ItemEx("EXTERNAL_PROGRAM_NAME", ""),
.SignedMail_Path = oRow.ItemEx("SIGNED_MAIL_PATH", "")
}
Catch ex As Exception
Logger.Error(ex)

4
EnvelopeGenerator.Common/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.6.0")>
<Assembly: AssemblyFileVersion("1.3.6.0")>
<Assembly: AssemblyVersion("1.4.0.0")>
<Assembly: AssemblyFileVersion("1.4.0.0")>