MS_05042016

app/DD-Record-Organiser/ModuleMySettings.vb

@@ -10,6 +10,7 @@ Module ModuleMySettings
     Public Sett_TaskOverviewKeepInFront As Boolean = True
     Public Sett_LoadWD_Docs As Boolean = True
     Public WDResultListCount As Integer = 300
+    Public Task_Popup_minutes As Integer = 2
     Public Sett_ShowQuickMenue As Boolean = True
     Public Sett_ConstructorStart As Integer
 
@@ -160,6 +161,12 @@ Module ModuleMySettings
                         Sett_ConstructorStart = CInt(Row.Item("Value"))
                     Case "FWSCAN_started"
                         FWSCAN_started = CBool(Row.Item("Value"))
+                    Case "Task_Popup_minutes"
+                        If Row.Item("Value") = String.Empty Then
+                            Task_Popup_minutes = 2
+                        Else
+                            Task_Popup_minutes = CInt(Row.Item("Value"))
+                        End If
                 End Select
             Next
             'update 1.1
@@ -184,6 +191,13 @@ Module ModuleMySettings
                 DT.Rows.Add(newRow)
                 DT.WriteXml(ConfigPath)
             End If
+            If rowresult.Contains("Task_Popup_minutes") = False Then
+                Dim newRow As DataRow = DT.NewRow()
+                newRow("ConfigName") = "Task_Popup_minutes"
+                newRow("Value") = "2"
+                DT.Rows.Add(newRow)
+                DT.WriteXml(ConfigPath)
+            End If
         Catch ex As Exception
             MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             ClassLogger.Add("Error in LoadMyConfig: " & ex.Message, True)
@@ -263,13 +277,16 @@ Module ModuleMySettings
             Dim newRow9 As DataRow = table.NewRow()
             newRow9("ConfigName") = "Sett_ConstructorStart"
             newRow9("Value") = "0"
+            table.Rows.Add(newRow9)
             Dim newRow10 As DataRow = table.NewRow()
             newRow10("ConfigName") = "FWSCAN_started"
             newRow10("Value") = "False"
             table.Rows.Add(newRow10)
+            Dim newRow11 As DataRow = table.NewRow()
+            newRow11("ConfigName") = "Task_Popup_minutes"
+            newRow11("Value") = "2"
+            table.Rows.Add(newRow11)
 
-
-            table.Rows.Add(newRow9)
             table.AcceptChanges()
             ClassLogger.Add(">> Tabelle wurde erzeugt...", False)
             Return table