Refaktorierung: DEX_API durch APISQL ersetzt
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.
This commit is contained in:
4
Jobs/DEX_API/APISQLArgs.vb
Normal file
4
Jobs/DEX_API/APISQLArgs.vb
Normal file
@@ -0,0 +1,4 @@
|
||||
Public Class APISQLArgs
|
||||
Inherits JobArgs
|
||||
Public ProfileID As String
|
||||
End Class
|
||||
6
Jobs/DEX_API/APISQLConfig.vb
Normal file
6
Jobs/DEX_API/APISQLConfig.vb
Normal file
@@ -0,0 +1,6 @@
|
||||
Public Class APISQLConfig
|
||||
Public Property BaseUrl As String = ""
|
||||
Public Property Property1 As String = ""
|
||||
Public Property Property2 As String = ""
|
||||
Public Property Property3 As String = ""
|
||||
End Class
|
||||
@@ -5,15 +5,15 @@ Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Modules.Interfaces
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class DEX_API
|
||||
Public Class DEX_APIJob
|
||||
Inherits JobBase
|
||||
Implements IJob(Of ADSyncArgs)
|
||||
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 ADSyncArgs) Implements IJob(Of ADSyncArgs).Start
|
||||
Public Sub StartDex_API(Arguments As APISQLArgs) Implements IJob(Of APISQLArgs).Start
|
||||
Dim oJobName As String = [GetType]().Name
|
||||
|
||||
Try
|
||||
@@ -27,7 +27,7 @@ Public Class DEX_API
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function ShouldStart(Arguments As ADSyncArgs) As Boolean Implements IJob(Of ADSyncArgs).ShouldStart
|
||||
Public Function ShouldStart(Arguments As APISQLArgs) As Boolean Implements IJob(Of APISQLArgs).ShouldStart
|
||||
Return Arguments.Enabled
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user