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

Release 2.6

Browse Source
This commit is contained in:
SchreiberM
2022-03-29 17:53:55 +02:00
parent dfb38dcf5c
commit 255338aa36
44 changed files with 885 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/ClassWMResulthandler/clsProfil.vb
View File

@@ -166,7 +166,10 @@ Public Class clsProfil
Dim oGesamtFiles As Integer
oGesamtFiles = windreamSucheErgebnisse.Count
Dim oCountDocs As Integer = 0
Dim oEmailAttachment_path As String
For Each WMdok As WMObject In windreamSucheErgebnisse
oEmailAttachment_path = String.Empty
oCountDocs += 1
Logger.Debug($"Working on Doc {oCountDocs.ToString}/{windreamSucheErgebnisse.Count}")
oFileRunNo = "#Doc " & oCountDocs.ToString
@@ -195,13 +198,14 @@ Public Class clsProfil
Logger.Debug("Attached file shall be renamed...")
oRENAMEFILE = _dateiverarbeitung.REGEX_REPLACE(WMdok, oRENAMEFILE)
oAttachment_FullFilename = oRENAMEFILE & clsCURRENT.FILE_Extension
Logger.Debug($"oAttachment: {oAttachment_FullFilename}")
Logger.Info($"oAttachment: {oAttachment_FullFilename}")
End If
End If
If Not IsNothing(clsCURRENT.DT_TBDD_EMAIL) And clsCURRENT.DT_TBDD_EMAIL.Rows.Count >= 1 Then
If _dateiverarbeitung.Export_WMFile2HDD(WMdok, Path.GetTempPath(), oAttachment_FullFilename) = True Then
oAttachment_FullFilename = clsCURRENT.EXPORTED_FILENAME
oEmailAttachment_path = oAttachment_FullFilename
Else
Logger.Warn($"Could not create a tempfile...")
FileJobSuccessful = False
@@ -249,7 +253,9 @@ Public Class clsProfil
oEmail_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, oEmail_Betreff)
Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
oEmail_Betreff = $"{oEmail_Betreff} [eMail {oCountDocs} von {oGesamtFiles}]"
If oAttachment_FullFilename <> String.Empty Then
Logger.Warn($"Email Attachment {oAttachment_FullFilename}")
End If
If _email.Email_Send(oEmail_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, oAttachment_FullFilename) = True Then
FileJobSuccessful = True
@@ -275,6 +281,7 @@ Public Class clsProfil
CountExportedDoc += 1
FileJobSuccessful = True
Logger.Info($"{oFileRunNo} Export HDD completed!")
Logger.Debug($"{oFileRunNo} Export HDD completed!")
End If
'Next
Case "BNS json Download".ToUpper
@@ -432,6 +439,7 @@ Public Class clsProfil
Case "Rename File with windream Index".ToLower
Logger.Debug($"{oFileRunNo} Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
_dateiverarbeitung.Rename_File(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Case "Rename File with WMVector (only one)".ToLower
Logger.Debug($"{oFileRunNo} Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...")
_dateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)