Much stuff
This commit is contained in:
3
Jobs/EDMI/ADSync/ADSyncArgs.vb
Normal file
3
Jobs/EDMI/ADSync/ADSyncArgs.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class ADSyncArgs
|
||||
|
||||
End Class
|
||||
9
Jobs/EDMI/ADSync/ADSyncJob.vb
Normal file
9
Jobs/EDMI/ADSync/ADSyncJob.vb
Normal file
@@ -0,0 +1,9 @@
|
||||
Imports DigitalData.Modules.Jobs
|
||||
|
||||
Public Class ADSyncJob
|
||||
Implements IJob(Of ADSyncArgs)
|
||||
|
||||
Public Sub Start(Arguments As ADSyncArgs) Implements IJob(Of ADSyncArgs).Start
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
5
Jobs/EDMI/ZUGFeRD/EmailData.vb
Normal file
5
Jobs/EDMI/ZUGFeRD/EmailData.vb
Normal file
@@ -0,0 +1,5 @@
|
||||
Public Class EmailData
|
||||
Public Attachment As String
|
||||
Public Subject As String
|
||||
Public From As String
|
||||
End Class
|
||||
@@ -5,6 +5,7 @@ Imports System.Linq
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Modules.Interfaces
|
||||
Imports DigitalData.Modules.Jobs
|
||||
Imports DigitalData.Modules.Jobs.Exceptions
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports FirebirdSql.Data.FirebirdClient
|
||||
@@ -24,36 +25,6 @@ Public Class ImportZUGFeRDFiles
|
||||
Private _firebird As Firebird
|
||||
Private _filesystem As Filesystem.File
|
||||
|
||||
Public Class WorkerArgs
|
||||
Public WatchDirectories As List(Of String)
|
||||
Public SuccessDirectory As String
|
||||
Public ErrorDirectory As String
|
||||
Public OriginalEmailDirectory As String
|
||||
Public RejectedEmailDirectory As String
|
||||
Public PropertyMap As Dictionary(Of String, XmlItemProperty)
|
||||
|
||||
Public Sub New()
|
||||
WatchDirectories = New List(Of String)
|
||||
SuccessDirectory = Nothing
|
||||
ErrorDirectory = Nothing
|
||||
OriginalEmailDirectory = Nothing
|
||||
RejectedEmailDirectory = Nothing
|
||||
PropertyMap = New Dictionary(Of String, XmlItemProperty)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class EmailData
|
||||
Public Attachment As String
|
||||
Public Subject As String
|
||||
Public From As String
|
||||
End Class
|
||||
|
||||
Public Class XmlItemProperty
|
||||
Public TableName As String
|
||||
Public Description As String
|
||||
Public IsRequired As Boolean
|
||||
End Class
|
||||
|
||||
Public Sub New(LogConfig As LogConfig, Firebird As Firebird)
|
||||
_logConfig = LogConfig
|
||||
_logger = LogConfig.GetLogger()
|
||||
|
||||
19
Jobs/EDMI/ZUGFeRD/WorkerArgs.vb
Normal file
19
Jobs/EDMI/ZUGFeRD/WorkerArgs.vb
Normal file
@@ -0,0 +1,19 @@
|
||||
Imports System.Collections.Generic
|
||||
|
||||
Public Class WorkerArgs
|
||||
Public WatchDirectories As List(Of String)
|
||||
Public SuccessDirectory As String
|
||||
Public ErrorDirectory As String
|
||||
Public OriginalEmailDirectory As String
|
||||
Public RejectedEmailDirectory As String
|
||||
Public PropertyMap As Dictionary(Of String, XmlItemProperty)
|
||||
|
||||
Public Sub New()
|
||||
WatchDirectories = New List(Of String)
|
||||
SuccessDirectory = Nothing
|
||||
ErrorDirectory = Nothing
|
||||
OriginalEmailDirectory = Nothing
|
||||
RejectedEmailDirectory = Nothing
|
||||
PropertyMap = New Dictionary(Of String, XmlItemProperty)
|
||||
End Sub
|
||||
End Class
|
||||
5
Jobs/EDMI/ZUGFeRD/XmlItemProperty.vb
Normal file
5
Jobs/EDMI/ZUGFeRD/XmlItemProperty.vb
Normal file
@@ -0,0 +1,5 @@
|
||||
Public Class XmlItemProperty
|
||||
Public TableName As String
|
||||
Public Description As String
|
||||
Public IsRequired As Boolean
|
||||
End Class
|
||||
Reference in New Issue
Block a user