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 ExternalProgramName As String = "Sign Flow"
Public Property DocumentPath As String = "" Public Property DocumentPath As String = ""
Public Property ExportPath 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 SendingProfile As Integer = 0
Public Property SignatureHost As String = "" Public Property SignatureHost As String = ""
End Class End Class

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

@ -77,8 +77,15 @@ Namespace Jobs
ReportCreator = New ReportCreator(LogConfig, oState) ReportCreator = New ReportCreator(LogConfig, oState)
Logger.Debug("DocumentPath: [{0}]", Config.DocumentPath) 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) 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 oCompleteStatus As Integer = Constants.EnvelopeStatus.EnvelopeCompletelySigned
Dim oSql = $"SELECT * FROM TBSIG_ENVELOPE WHERE STATUS = {oCompleteStatus} AND DATEDIFF(minute, CHANGED_WHEN, GETDATE()) >= {CompleteWaitTimeInMinutes}" Dim oSql = $"SELECT * FROM TBSIG_ENVELOPE WHERE STATUS = {oCompleteStatus} AND DATEDIFF(minute, CHANGED_WHEN, GETDATE()) >= {CompleteWaitTimeInMinutes}"
Dim oTable = Database.GetDatatable(oSql) Dim oTable = Database.GetDatatable(oSql)
@ -192,6 +199,13 @@ Namespace Jobs
If oMailToReceivers <> FinalEmailType.No Then If oMailToReceivers <> FinalEmailType.No Then
Logger.Debug("Sending emails to receivers..") 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) SendFinalEmailToReceivers(pEnvelope, pAttachment)
End If End If
@ -221,6 +235,7 @@ Namespace Jobs
Logger.Debug("Attachment included: [{0}]", oIncludeAttachment) Logger.Debug("Attachment included: [{0}]", oIncludeAttachment)
If oIncludeAttachment Then If oIncludeAttachment Then
oAttachment = pAttachment oAttachment = pAttachment
End If End If

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

@ -17,10 +17,13 @@ Public Class ConfigModel
Return New DbConfig() With { Return New DbConfig() With {
.DocumentPath = oRow.ItemEx("DOCUMENT_PATH", ""), .DocumentPath = oRow.ItemEx("DOCUMENT_PATH", ""),
.DocumentPath_DMZ = oRow.ItemEx("DOCUMENT_PATH_DMZ", ""),
.ExportPath = oRow.ItemEx("EXPORT_PATH", ""), .ExportPath = oRow.ItemEx("EXPORT_PATH", ""),
.ExportPath_DMZ = oRow.ItemEx("EXPORT_PATH_DMZ", ""),
.SendingProfile = oRow.ItemEx("SENDING_PROFILE", 0), .SendingProfile = oRow.ItemEx("SENDING_PROFILE", 0),
.SignatureHost = oRow.ItemEx("SIGNATURE_HOST", ""), .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 Catch ex As Exception
Logger.Error(ex) 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: ' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.6.0")> <Assembly: AssemblyVersion("1.4.0.0")>
<Assembly: AssemblyFileVersion("1.3.6.0")> <Assembly: AssemblyFileVersion("1.4.0.0")>