MS
This commit is contained in:
Digital Data - Marlon Schreiber
154
app/windream-Result-Handler/clsProfil.vb
Normal file
154
app/windream-Result-Handler/clsProfil.vb
Normal file
@@ -0,0 +1,154 @@
|
||||
Imports WINDREAMLib
|
||||
Public Class clsProfil
|
||||
|
||||
#Region "***** Variablen *****"
|
||||
Public Shared _windream As New clsWindream_allgemein
|
||||
|
||||
Public Shared _Profilname, _profObjekttyp, _profwdSuche, _profDay, _profRunType As String
|
||||
Public Shared _profGUID As Integer
|
||||
Public Shared _proflastRun As Date
|
||||
|
||||
Private email As New clsEmail
|
||||
Private Shared CriticalError As Boolean = False
|
||||
|
||||
Private Shared WD_aktivesDokument As WMObject
|
||||
#End Region
|
||||
Public Shared Function Init(guid As Integer)
|
||||
Try
|
||||
|
||||
Dim DT As DataTable = clsSQLITE.Return_Datatable("Select * from TBPROFIL where GUID = " & guid & " AND Running = 0")
|
||||
For Each DR As DataRow In DT.Rows
|
||||
_profGUID = guid
|
||||
_Profilname = CStr(DR.Item("Profilname"))
|
||||
' Überprüfen ob Profil aktiv oder inaktiv
|
||||
If CBool(DR.Item("Aktiv")) = False Then
|
||||
ClassLogger.Add("## Profil '" & _Profilname & "' ist inaktiv geschaltet", False)
|
||||
ClassLogger.Add("", False)
|
||||
Return 0
|
||||
Else
|
||||
_profObjekttyp = CStr(DR.Item("Objekttyp"))
|
||||
_profwdSuche = CStr(DR.Item("WindreamSuche"))
|
||||
_profDay = CStr(DR.Item("Day"))
|
||||
_profRunType = CStr(DR.Item("Run"))
|
||||
_proflastRun = DR.Item("Letzter_Durchlauf")
|
||||
Return True
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(ex.Message, True, "Profil_Init")
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
'Durchlauf des Profils wird aus dem Service gestartet wenn Init = True war
|
||||
Public Shared Function Profil_Durchlauf()
|
||||
Try
|
||||
Dim Run_Profile As Boolean = False
|
||||
'Soll die Verarbeitung heute durchgeführt werden??
|
||||
Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
|
||||
If _profDay.Substring(Dayofweek - 1, 1) = 1 Then
|
||||
'Verarbeitung soll heute durchgeführt werden
|
||||
ClassLogger.AddDetailLog("Verarbeitung soll heute durchgeführt werden!")
|
||||
ClassLogger.AddDetailLog("_RunType: " & _profRunType)
|
||||
Dim arr As String()
|
||||
arr = _profRunType.Split(";")
|
||||
ClassLogger.AddDetailLog("arr(1): " & arr(1).ToString)
|
||||
Select Case _profRunType
|
||||
Case _profRunType.Contains("TIME")
|
||||
Dim Time_last As Date = clsSQLITE.konf_LASTTICK.ToShortTimeString
|
||||
Dim intervall As Integer = clsSQLITE.konf_intervall / 60
|
||||
Dim Time_next As Date = _proflastRun.AddMinutes(intervall)
|
||||
Dim _RunTime As Date = CDate(arr(1))
|
||||
Dim msg As String
|
||||
msg = "Time-Angaben: " & vbNewLine
|
||||
msg = msg & "Time_last: " & Time_last & vbNewLine
|
||||
msg = msg & "Time_next: " & Time_next & vbNewLine
|
||||
msg = msg & "ProfilTime: " & _RunTime & vbNewLine
|
||||
ClassLogger.AddDetailLog(msg)
|
||||
'Ist die Uhrzeit in der Range
|
||||
If _RunTime.ToShortTimeString >= Time_last.ToShortTimeString And _RunTime.ToShortTimeString <= Time_next.ToShortTimeString Then
|
||||
'Den Durchlauf erlauben
|
||||
Run_Profile = True
|
||||
End If
|
||||
Case _profRunType.Contains("INTV")
|
||||
'Die Differenz berechnen
|
||||
Dim DiffMin As Integer = DateDiff(DateInterval.Minute, _proflastRun, Date.Now)
|
||||
Dim msg As String
|
||||
msg = "Minutenangaben: " & vbNewLine
|
||||
msg = msg & "DiffMin: " & DiffMin & vbNewLine
|
||||
msg = msg & "Intervall: " & arr(1)
|
||||
ClassLogger.AddDetailLog(msg)
|
||||
If DiffMin >= CInt(arr(1)) Then
|
||||
'Den Durchlauf erlauben
|
||||
Run_Profile = True
|
||||
End If
|
||||
End Select
|
||||
If Run_Profile = True Then
|
||||
ClassLogger.Add(">> Start des Durchlaufes für Profil '" & _Profilname & "'", False)
|
||||
'den Durchlaufszeitpunkt speichern
|
||||
clsSQLITE.Execute_non_Query("Update TBPROFIL SET Running = 1 AND LETZTER_DURCHLAUF = DATETIME ('now' , 'localtime') WHERE GUID = " & _profGUID)
|
||||
|
||||
If clsHelper.file_exists(_profwdSuche) = False Then
|
||||
ClassLogger.Add("Die Windream-Suche '" & _profwdSuche & "' existiert nicht!", True, "clsProfil.Profil_Durchlauf")
|
||||
'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
|
||||
If clsSQLITE.konf_EmailAktiv Then
|
||||
clsEmail.Send_EMail("Fehler in windream-ResultHandler", "<br> >> Profilname: '" & _Profilname & "'<br> >> Die windream-Suche : " & _profwdSuche & " konnte nicht gefunden werden!" & _
|
||||
"<br> >> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!")
|
||||
End If
|
||||
Return False
|
||||
Else
|
||||
' windream-Suche für Profil starten
|
||||
Dim windreamSucheErgebnisse As WMObjects = _windream.GetSearchDocuments(_profwdSuche)
|
||||
If windreamSucheErgebnisse.Count > 0 Then
|
||||
ClassLogger.Add("- Insgesamt sollen '" & windreamSucheErgebnisse.Count & "' Dateien bearbeitet werden", True, "clsProfil.Profil_Durchlauf")
|
||||
Dim DT_PROFIL_JOB As DataTable = clsSQLITE.Return_Datatable("SELECT * FROM TBPROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
|
||||
Dim DT_PROFIL_FILE_JOB As DataTable = clsSQLITE.Return_Datatable("SELECT * FROM TBPROFIL_FILE_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
|
||||
If DT_PROFIL_JOB.Rows.Count > 0 Then
|
||||
If clsDateiverarbeitung.InitProfilData = True Then
|
||||
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
|
||||
Case "Export HDD".ToUpper
|
||||
'Für jedes Dokument in der Windream-Ergebnisliste
|
||||
For Each dok As WMObject In windreamSucheErgebnisse
|
||||
' aktuelles Dokument zum Export bereitstellen
|
||||
If clsDateiverarbeitung.Export_File(dok, DR_PR_JB.Item("STRING1")) Then
|
||||
If DT_PROFIL_FILE_JOB.Rows.Count > 0 Then
|
||||
'Für jeden File-Job
|
||||
For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
|
||||
Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToLower
|
||||
Case "Set Index".ToLower
|
||||
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> KEINE JOBS für Profil '" & _Profilname & "' angelegt!", "clsProfil.Profil_Durchlauf", True)
|
||||
End If
|
||||
Else
|
||||
' keine Dateien zum Importieren
|
||||
ClassLogger.Add(">> Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.", False)
|
||||
ClassLogger.Add("", False)
|
||||
End If
|
||||
End If
|
||||
clsSQLITE.Execute_non_Query("UPDATE TBPROFIL SET Running = 0 AND LETZTER_DURCHLAUF = DATETIME ('now' , 'localtime') WHERE GUID = " & _profGUID)
|
||||
End If
|
||||
Else
|
||||
ClassLogger.AddDetailLog("Verarbeitung für heute NICHT konfiguriert")
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unvorhergesehener Fehler: " & ex.Message, True, "clsProfil.Profil_Durchlauf")
|
||||
CriticalError = False
|
||||
Service1.threadRunner.CancelAsync()
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user