a40af2f977
Die Datei `DEX_API.vb` wurde entfernt, einschließlich der Klasse `DEX_API`, die von `JobBase` geerbt und das Interface `IJob(Of ADSyncArgs)` implementiert hat. Ein neuer Job-Typ `API_SQL` wurde zur Enumeration `JobType` in `JobConfig.vb` hinzugefügt. Neue Dateien wurden hinzugefügt: - `APISQLArgs.vb`: Enthält die Klasse `APISQLArgs` mit der Eigenschaft `ProfileID`. - `APISQLConfig.vb`: Enthält die Klasse `APISQLConfig` mit den Eigenschaften `BaseUrl`, `Property1`, `Property2`, `Property3`. - `DEX_APIJob.vb`: Enthält die Klasse `DEX_APIJob`, die von `JobBase` erbt und das Interface `IJob(Of APISQLArgs)` implementiert. Die Methoden `StartDex_API` und `ShouldStart` wurden hierhin verschoben und angepasst. Die Projektdatei `Jobs.vbproj` wurde aktualisiert, um die neuen Dateien einzubinden und den Verweis auf `DEX_API.vb` zu entfernen.
36 lines
980 B
VB.net
36 lines
980 B
VB.net
Imports System.Collections.Generic
|
|
Imports System.Data
|
|
Imports System.Threading.Tasks
|
|
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Interfaces
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class DEX_APIJob
|
|
Inherits JobBase
|
|
Implements IJob(Of APISQLArgs)
|
|
|
|
Public Sub New(LogConfig As LogConfig, MSSQL As MSSQLServer)
|
|
MyBase.New(LogConfig, MSSQL)
|
|
End Sub
|
|
|
|
Public Sub StartDex_API(Arguments As APISQLArgs) Implements IJob(Of APISQLArgs).Start
|
|
Dim oJobName As String = [GetType]().Name
|
|
|
|
Try
|
|
_Logger.Info("Running job {0}", oJobName)
|
|
|
|
|
|
_Logger.Info("Job {0} completed!", oJobName)
|
|
Catch ex As Exception
|
|
_Logger.Warn("Job {0} failed!", oJobName)
|
|
_Logger.Error(ex)
|
|
End Try
|
|
End Sub
|
|
|
|
Public Function ShouldStart(Arguments As APISQLArgs) As Boolean Implements IJob(Of APISQLArgs).ShouldStart
|
|
Return Arguments.Enabled
|
|
End Function
|
|
|
|
|
|
End Class
|