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

MS

Browse Source
This commit is contained in:
SchreiberM 2020-03-19 15:00:00 +01:00
parent 73cb093fdf
commit 24a67e0778
4 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/windream-Result-Handler/v16/Server/sqlite3/storage.ide-shm Normal file
View File

Binary file not shown.

BIN
app/.vs/windream-Result-Handler/v16/Server/sqlite3/storage.ide-wal Normal file
View File

Binary file not shown.

2
app/ClassWMResulthandler/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.0.0.1")> <Assembly: AssemblyVersion("2.1.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

11
app/ClassWMResulthandler/clsProfil.vb
View File

@ -162,6 +162,8 @@ Public Class clsProfil
Dim CountExportedDoc As Integer = 0 Dim CountExportedDoc As Integer = 0
clsCURRENT.PROFILE_HandledFiles = Nothing clsCURRENT.PROFILE_HandledFiles = Nothing
Dim oFileRunNo As String Dim oFileRunNo As String
Dim oGesamtFiles As Integer
oGesamtFiles = windreamSucheErgebnisse.Count
Dim oCountDocs As Integer = 0 Dim oCountDocs As Integer = 0
For Each WMdok As WMObject In windreamSucheErgebnisse For Each WMdok As WMObject In windreamSucheErgebnisse
oCountDocs += 1 oCountDocs += 1
@ -174,8 +176,8 @@ Public Class clsProfil
Dim Email_Empfänger = DR_PR_JB.Item("STRING1") Dim Email_Empfänger = DR_PR_JB.Item("STRING1")
Logger.Debug("Email_Empfänger: " & Email_Empfänger) Logger.Debug("Email_Empfänger: " & Email_Empfänger)
Dim Email_Betreff = DR_PR_JB.Item("STRING2") Dim oEmail_Betreff = DR_PR_JB.Item("STRING2")
Logger.Debug("Email_Betreff: " & Email_Betreff) Logger.Debug("Email_Betreff: " & oEmail_Betreff)
Dim Email_Body = DR_PR_JB.Item("STRING3") Dim Email_Body = DR_PR_JB.Item("STRING3")
Logger.Debug("Email_Body: " & Email_Body) Logger.Debug("Email_Body: " & Email_Body)
Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4") Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
@ -227,10 +229,11 @@ Public Class clsProfil
Logger.Debug("Email_Empfänger: " & Email_Empfänger) Logger.Debug("Email_Empfänger: " & Email_Empfänger)
End If End If
Email_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff) oEmail_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, oEmail_Betreff)
Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body) Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
oEmail_Betreff = $"{oEmail_Betreff} [eMail {oCountDocs} von {oGesamtFiles}]"
If _email.Email_Send(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, oAttachment) = True Then If _email.Email_Send(oEmail_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, oAttachment) = True Then
FileJobSuccessful = True FileJobSuccessful = True
Else Else