Much stuff

Jobs/EDMI/ADSync/ADSyncArgs.vb

@@ -0,0 +1,3 @@
+Public Class ADSyncArgs
+
+End Class

Jobs/EDMI/ADSync/ADSyncJob.vb

@@ -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

Jobs/EDMI/ZUGFeRD/EmailData.vb

@@ -0,0 +1,5 @@
+Public Class EmailData
+    Public Attachment As String
+    Public Subject As String
+    Public From As String
+End Class

Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -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()

Jobs/EDMI/ZUGFeRD/WorkerArgs.vb

@@ -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

Jobs/EDMI/ZUGFeRD/XmlItemProperty.vb

@@ -0,0 +1,5 @@
+Public Class XmlItemProperty
+    Public TableName As String
+    Public Description As String
+    Public IsRequired As Boolean
+End Class

Jobs/IJob.vb

@@ -1,3 +1,7 @@
 Public Interface IJob
     Sub Start(Arguments As Object)
 End Interface
+
+Public Interface IJob(Of T)
+    Sub Start(Arguments As T)
+End Interface

Jobs/Jobs.vbproj

@@ -57,6 +57,10 @@
   </ItemGroup>
   <ItemGroup>
     <None Include="App.config" />
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
     <None Include="packages.config" />
   </ItemGroup>
   <ItemGroup>
@@ -78,11 +82,21 @@
     </ProjectReference>
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="EDMI\ADSync\ADSyncArgs.vb" />
+    <Compile Include="EDMI\ADSync\ADSyncJob.vb" />
+    <Compile Include="EDMI\ZUGFeRD\EmailData.vb" />
     <Compile Include="EDMI\ZUGFeRD\ImportZUGFeRDFiles.vb" />
     <Compile Include="EDMI\ZUGFeRD\PropertyValues.vb" />
+    <Compile Include="EDMI\ZUGFeRD\WorkerArgs.vb" />
+    <Compile Include="EDMI\ZUGFeRD\XmlItemProperty.vb" />
     <Compile Include="Exceptions.vb" />
     <Compile Include="IJob.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+      <DependentUpon>Settings.settings</DependentUpon>
+    </Compile>
   </ItemGroup>
   <ItemGroup>
     <Reference Include="FirebirdSql.Data.FirebirdClient, Version=6.4.0.0, Culture=neutral, PublicKeyToken=3750abcc3150b00c" />

Jobs/My Project/Settings.Designer.vb

@@ -0,0 +1,71 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+
+<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+Partial Friend NotInheritable Class Settings
+    Inherits Global.System.Configuration.ApplicationSettingsBase
+    
+    Private Shared defaultInstance As Settings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()),Settings)
+    
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+    
+    Public Shared ReadOnly Property [Default]() As Settings
+        Get
+            
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+            Return defaultInstance
+        End Get
+    End Property
+End Class
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.DigitalData.Modules.Jobs.Settings
+            Get
+                Return Global.DigitalData.Modules.Jobs.Settings.Default
+            End Get
+        End Property
+    End Module
+End Namespace