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

MS HTTPS, Log,

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-12 11:42:55 +01:00
parent 24f052f5b5
commit fd30d75e9f
9 changed files with 382 additions and 283 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/ClassWMResulthandler/clsProfil.vb
View File

@@ -21,7 +21,7 @@ Public Class clsProfil
Logger = MyLogger.GetLogger()
windream = New clsWindream_allgemein(MyLogger)
windream_index = New clsWindream_Index(MyLogger)
_database = New clsDatabase(MyLogger, clsCURRENT.SQLSERVER_CS)
_database = New clsDatabase(MyLogger)
_dateiverarbeitung = New clsDateiverarbeitung(MyLogger)
_email = New clsEmail(MyLogger)
_JobWork = New clsJob_Work(MyLogger, _email)
@@ -115,7 +115,7 @@ Public Class clsProfil
'Den Durchlauf erlauben
Run_Profile = True
Else
Logger.Info("No run as DiffMin (" & DiffMin & ") <= Intervall(" & arr(1) & ")")
Logger.Debug("No run as DiffMin (" & DiffMin & ") <= Intervall(" & arr(1) & ")")
End If
Case Else
Logger.Warn("_profRunType konnte nicht ausgewertet werden - " & arr(0))
@@ -305,7 +305,7 @@ Public Class clsProfil
'Für jeden File-Job
For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
If FileJobSuccessful = False Then
Logger.Info("AUSSTIEG FOR SCHLEIFE...")
Logger.Info("AUSSTIEG FOR SCHLEIFE cause FileJobSuccessful = False...")
Exit For
End If
Select Case DR_PR_FILE_JOB.Item("TYP").ToString.ToLower
@@ -607,7 +607,8 @@ Public Class clsProfil
End Try
Next
Case "Send InfoMail with WM-Search".ToUpper
Dim oWMResults As WMObjects = windream.GetSearchDocuments(_profwdSuche)
Logger.Info("Working on CASE Send InfoMail with WM-Search.... ")
Dim oWMResults As WMObjects = windream.GetSearchDocuments(DR_PR_JB.Item("STRING5"))
If oWMResults Is Nothing Then
Logger.Warn("windreamSucheErgebnisse is nothing ( Send InfoMail with WM-Search)!", True, "clsProfil.Profil_Durchlauf")
Return False
@@ -625,6 +626,8 @@ Public Class clsProfil
End If
End If
Else
Logger.Info("Send InfoMail with WM-Search - oWMResults.Count = 0")
End If
End Select
@@ -640,7 +643,7 @@ Public Class clsProfil
End If
Else
' keine Dateien zum Importieren
Logger.Info("Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.")
Logger.Debug("Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.")
End If
End If