neu

initATLASAufschubkonten/frmRoutineManager.vb

@@ -27,7 +27,7 @@ Public Class frmRoutineManager
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
-    Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung  '"G:\atlas\atlas\fssouzb"
+    Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung_OLD '"G:\atlas\atlas\fssouzb"
     ' Dim ico As New NotifyIcon
     '  Private Sub frmMain_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing
     '     icoAufschub.Visible = False
@@ -53,8 +53,10 @@ Public Class frmRoutineManager
 
     <PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _
     Private Shared Sub Run()
-        ' Create a new FileSystemWatcher and set its properties.
-        Dim watcher As New FileSystemWatcher()
+        If False Then ' altes ATLAS
+
+            ' Create a new FileSystemWatcher and set its properties.
+            Dim watcher As New FileSystemWatcher()
         watcher.Path = PathATLAS
         ' Watch for changes in LastAccess and LastWrite times, and
         ' the renaming of files or directories. 
@@ -72,7 +74,8 @@ Public Class frmRoutineManager
                                             frmRoutineManager.threads.Add(thread)
                                         End If
                                     End Sub
-        watcher.EnableRaisingEvents = True
+            watcher.EnableRaisingEvents = True
+        End If
 
     End Sub
     Public Sub doWork()
@@ -322,6 +325,7 @@ Public Class frmRoutineManager
 
     Sub startBRG_EZOLL()
         If alreadyRunning("thread_EZOLL") Then Exit Sub
+
         Dim thread_EZOLL As _
           New System.Threading.Thread(Sub()
                                           Run()
@@ -471,4 +475,9 @@ Public Class frmRoutineManager
             Me.Close()
         End If
     End Sub
+
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim cBuergschaften As New cBuergschaften
+        cBuergschaften.doStuff_EZOLL(HISTORY)
+    End Sub
 End Class