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

DLL windream resultHandler Version 2.5

Browse Source 
Service.exe 2.1
This commit is contained in:
SchreiberM
2021-09-16 12:55:02 +02:00
parent 24a67e0778
commit b2e60a19ac
43 changed files with 287293 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
app/ClassWMResulthandler/clsProfil.vb
View File

@@ -167,7 +167,11 @@ Public Class clsProfil
Dim oCountDocs As Integer = 0
For Each WMdok As WMObject In windreamSucheErgebnisse
oCountDocs += 1
oFileRunNo = "#DocRun" & oCountDocs.ToString
Logger.Debug($"Working on Doc {oCountDocs.ToString}/{windreamSucheErgebnisse.Count}")
oFileRunNo = "#Doc " & oCountDocs.ToString
Dim oPointIndex = WMdok.aName.LastIndexOf(".")
clsCURRENT.FILE_Extension = WMdok.aName.Substring(oPointIndex)
For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
Case "Create Mail Attachment".ToUpper
@@ -182,12 +186,21 @@ Public Class clsProfil
Logger.Debug("Email_Body: " & Email_Body)
Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
Logger.Debug("EMAIL_PROFIL: " & EMAIL_PROFIL)
Dim oRENAMEFILE = DR_PR_JB.Item("STRING5")
Dim oAttachment_FullFilename As String = ""
If Not IsDBNull(oRENAMEFILE) Then
If oRENAMEFILE.ToString <> String.Empty Then
Logger.Debug("Attached file shall be renamed...")
oRENAMEFILE = _dateiverarbeitung.REGEX_REPLACE(WMdok, oRENAMEFILE)
oAttachment_FullFilename = oRENAMEFILE & clsCURRENT.FILE_Extension
Logger.Debug($"oAttachment: {oAttachment_FullFilename}")
End If
End If
If Not IsNothing(clsCURRENT.DT_TBDD_EMAIL) And clsCURRENT.DT_TBDD_EMAIL.Rows.Count >= 1 Then
Dim oAttachment = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath
If _dateiverarbeitung.Export_WMFile2HDD(WMdok, Path.GetTempPath()) = True Then
oAttachment = clsCURRENT.EXPORTED_FILENAME
If _dateiverarbeitung.Export_WMFile2HDD(WMdok, Path.GetTempPath(), oAttachment_FullFilename) = True Then
oAttachment_FullFilename = clsCURRENT.EXPORTED_FILENAME
Else
Logger.Warn($"Could not create a tempfile...")
FileJobSuccessful = False
@@ -212,18 +225,21 @@ Public Class clsProfil
MAIL_PORT = emailrow.Item("PORT")
End If
Next
Dim wrapper As New clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(MAIL_USER_PW)
If Not IsNothing(PWPlain) Then
MAIL_USER_PW = PWPlain
Logger.Debug("Email-Profil Used: " & EMAIL_PROFIL)
Logger.Debug("EMAIL_AUTH_TYPE: " & MAIL_AUTH_TYPE)
If MAIL_AUTH_TYPE.ToUpper <> "NONE" Then
Dim wrapper As New clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(MAIL_USER_PW)
If Not IsNothing(PWPlain) Then
MAIL_USER_PW = PWPlain
Else
Logger.Warn("PWPlain is Nothing - Could not decrypt passwort188")
Return False
End If
Else
Logger.Warn("PWPlain is Nothing - Could not decrypt passwort188")
Return False
Logger.Debug("## No AUTHENTIFICATION in EMail...!##")
End If
If Email_Empfänger.ToString.Contains("[%") Then
Email_Empfänger = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Empfänger)
Logger.Debug("Email_Empfänger: " & Email_Empfänger)
@@ -233,7 +249,8 @@ Public Class clsProfil
Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
oEmail_Betreff = $"{oEmail_Betreff} [eMail {oCountDocs} von {oGesamtFiles}]"
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
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
Else
@@ -612,13 +629,13 @@ Public Class clsProfil
End If
Case "Send to printer".ToUpper
Logger.Info("Working on CASE Send to printer.... ")
Dim printername = DR_PR_JB.Item("STRING1")
Dim oPrintername = DR_PR_JB.Item("STRING1")
For Each oFileString As String In clsCURRENT.PROFILE_HandledFiles
Try
Dim myproc As Process = New Process()
myproc.StartInfo.FileName = """" & oFileString & """"
myproc.StartInfo.Verb = "printto"
myproc.StartInfo.Arguments = printername
myproc.StartInfo.Arguments = oPrintername
myproc.StartInfo.UseShellExecute = True
myproc.Start()
Dim p As Process
@@ -634,6 +651,7 @@ Public Class clsProfil
End If
Loop
Logger.Debug("...process has exited: ")
Logger.Info($"Send2Printer [{ myproc.StartInfo.FileName} # Verb:{myproc.StartInfo.Verb} # Arguments: {myproc.StartInfo.Arguments}]successfull! ")
FileJobSuccessful = True
sw.Stop()
' myproc.Kill()