MS_08.04

app/DD-Record-Organiser/frmMain.vb

@@ -83,7 +83,10 @@ Public Class frmMain
 
             'Wenn Argumente übergeben wurden, wird Formular geladen und zu record gesprungen
             ClassJumpRecord.ParseArgs()
-            TimerTasks.Interval = Task_Popup_minutes * 60000
+            If Task_Popup_minutes <> 0 Then
+                TimerTasks.Interval = Task_Popup_minutes * 60000
+            End If
+
         Catch ex As Exception
             MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -448,7 +451,10 @@ Public Class frmMain
 
     Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         Refresh_TaskReminder()
-        TimerTasks.Start()
+        If Task_Popup_minutes <> 0 Then
+            TimerTasks.Start()
+        End If
+
         RUN_TIMER()
         If Sett_ConstructorStart <> 0 Then
             Cursor = Cursors.WaitCursor
@@ -548,9 +554,15 @@ Public Class frmMain
         If CONNECTION_CHANGED = True Then
             Load_Connection_Dep_Data()
         End If
-        TimerTasks.Stop()
-        TimerTasks.Interval = Task_Popup_minutes * 60000
-        TimerTasks.Start()
+        If Task_Popup_minutes <> 0 Then
+            TimerTasks.Stop()
+            TimerTasks.Interval = Task_Popup_minutes * 60000
+            TimerTasks.Start()
+        Else
+            TimerTasks.Enabled = False
+            TimerTasks.Stop()
+        End If
+      
 
     End Sub
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem3.ItemClick
@@ -681,8 +693,8 @@ Public Class frmMain
 
     Private Sub BarButtonItem20_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem20.ItemClick
         Close_Maximized_Forms()
-        Dim frm As New frmGroup_Rights
-        frm = frmGroup_Rights.Instance()
+        Dim frm As New frmRight_Management
+        frm = frmRight_Management.Instance()
         frm.MdiParent = MAIN_FORM
         frm.Show()
     End Sub