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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-02-08 12:39:07 +01:00
parent d835accd7d
commit d9a91aec19
1 changed files with 324 additions and 317 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
app/DDWDResultHandler/clsProfil.vb
View File

@ -36,7 +36,7 @@ Public Class clsProfil
_profDay = CStr(DR.Item("Day")) _profDay = CStr(DR.Item("Day"))
_profRunType = CStr(DR.Item("Run")) _profRunType = CStr(DR.Item("Run"))
_proflastRun = DR.Item("Letzter_Durchlauf") _proflastRun = DR.Item("Letzter_Durchlauf")
clsLogger.AddDetailLog("Raw-Daten für Profil '" & _Profilname & "', GUID: " & _profGUID & " geladen") clsLogger.AddDetailLog("Raw-Daten für Profil '" & _Profilname & "', GUID: " & _profGUID & " geladen - Last Run: " & _proflastRun.ToString)
Return True Return True
End If End If
Next Next
@ -54,13 +54,14 @@ Public Class clsProfil
'Durchlauf des Profils wird aus dem Service gestartet wenn Init = True war 'Durchlauf des Profils wird aus dem Service gestartet wenn Init = True war
Public Shared Function Profil_Durchlauf() Public Shared Function Profil_Durchlauf()
Dim _error As Boolean = False Dim _error As Boolean = False
'Try
Dim Run_Profile As Boolean = False Dim Run_Profile As Boolean = False
Try
'Soll die Verarbeitung heute durchgeführt werden?? 'Soll die Verarbeitung heute durchgeführt werden??
Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
If _profDay.Substring(Dayofweek - 1, 1) = 1 Then If _profDay.Substring(Dayofweek - 1, 1) = 1 Then
'Verarbeitung soll heute durchgeführt werden 'Verarbeitung soll heute durchgeführt werden
clsLogger.AddDetailLog("Verarbeitung soll heute durchgeführt werden!") clsLogger.AddDetailLog("RUN CONFIGURED FOR TODAY")
clsLogger.AddDetailLog("_RunType: " & _profRunType) clsLogger.AddDetailLog("_RunType: " & _profRunType)
Dim arr As String() Dim arr As String()
arr = _profRunType.Split(";") arr = _profRunType.Split(";")
@ -87,13 +88,14 @@ Public Class clsProfil
'Die Differenz berechnen 'Die Differenz berechnen
Dim DiffMin As Integer = DateDiff(DateInterval.Minute, _proflastRun, Date.Now) Dim DiffMin As Integer = DateDiff(DateInterval.Minute, _proflastRun, Date.Now)
Dim msg As String Dim msg As String
msg = "Minutenangaben: " & vbNewLine msg = "DiffMin: " & DiffMin & vbNewLine & "Intervall: " & arr(1)
msg = msg & "DiffMin: " & DiffMin & vbNewLine
msg = msg & "Intervall: " & arr(1)
clsLogger.AddDetailLog(msg) clsLogger.AddDetailLog(msg)
If DiffMin >= CInt(arr(1)) Then If DiffMin >= CInt(arr(1)) Then
'Den Durchlauf erlauben 'Den Durchlauf erlauben
Run_Profile = True Run_Profile = True
Else
clsLogger.AddDetailLog("No run as " & DiffMin & " >= CInt(" & arr(1) & ") is false ")
End If End If
Case Else Case Else
clsLogger.Add(">> _profRunType konnte nicht ausgewertet werden - " & arr(0), False) clsLogger.Add(">> _profRunType konnte nicht ausgewertet werden - " & arr(0), False)
@ -398,18 +400,23 @@ Public Class clsProfil
clsLogger.AddDetailLog("Verarbeitung für heute NICHT konfiguriert") clsLogger.AddDetailLog("Verarbeitung für heute NICHT konfiguriert")
clsLogger.WriteLog() clsLogger.WriteLog()
End If End If
If Run_Profile = True Then
'Abschluss des Profiles 'Abschluss des Profiles
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = GETDATE() WHERE GUID = " & _profGUID) clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = GETDATE() WHERE GUID = " & _profGUID)
clsLogger.AddDetailLog("'UPDATE TBWMRH_PROFIL SET Running = 0' ausgeführt") clsLogger.AddDetailLog("'UPDATE TBWMRH_PROFIL SET Running = 0' ausgeführt")
End If
clsLogger.AddDetailLog("")
clsLogger.WriteLog() clsLogger.WriteLog()
Return True Return True
'Catch ex As Exception Catch ex As Exception
' clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf") clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf")
' clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID) If Run_Profile = True Then
' CriticalError = False clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
End If
' Return False '
'End Try CriticalError = False
Return False
End Try
End Function End Function
Private Shared Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean) Private Shared Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean)