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

MS ProfileRun Logging results

Browse Source
This commit is contained in:
SchreiberM 2021-09-16 13:35:47 +02:00
parent 6a6058da9b
commit d6706417f5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/ClassWMResulthandler/clsProfil.vb
View File

@ -125,7 +125,7 @@ Public Class clsProfil
Run_Profile = True Run_Profile = True
End If End If
If Run_Profile = True Then If Run_Profile = True Then
Logger.Info($"Working on profile '{_Profilname}'") Logger.Debug($"'{_Profilname}' - Run_Profile = True")
clsCURRENT.DT_TBDD_EMAIL = _database.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1") clsCURRENT.DT_TBDD_EMAIL = _database.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
clsCURRENT.PROFILE_HandledFiles = Nothing clsCURRENT.PROFILE_HandledFiles = Nothing
clsCURRENT.EXPORTED_FILENAME = "" clsCURRENT.EXPORTED_FILENAME = ""
@ -144,6 +144,7 @@ Public Class clsProfil
Return False Return False
End If End If
If windreamSucheErgebnisse.Count > 0 Then If windreamSucheErgebnisse.Count > 0 Then
Logger.Info($"Working on profile '{_Profilname}'")
Logger.Info(windreamSucheErgebnisse.Count & " file(s) shall be worked!") Logger.Info(windreamSucheErgebnisse.Count & " file(s) shall be worked!")
Logger.Debug("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE") Logger.Debug("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
@ -709,11 +710,12 @@ Public Class clsProfil
' keine Dateien zum Importieren ' keine Dateien zum Importieren
Logger.Debug("Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.") Logger.Debug("Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.")
End If End If
End If End If
End If End If
Else Else
Logger.Info("Verarbeitung für heute NICHT konfiguriert") Logger.Info("Verarbeitung für JETZT NICHT konfiguriert")
End If End If
'Abschluss des Profiles 'Abschluss des Profiles
_database.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID) _database.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)