MS1808

app/DD-Record-Organiser/ModuleMySettings.vb

@@ -13,6 +13,7 @@ Module ModuleMySettings
     Public Task_Popup_minutes As Integer = 2
     Public Sett_ShowQuickMenue As Boolean = True
     Public Sett_ConstructorStart As Integer
+    Public MY_ADDON_PATH As String
 
     Public WD_ShowEnitityDocs As Boolean = True
     Public WD_ShowDocs As Boolean = False
@@ -167,6 +168,12 @@ Module ModuleMySettings
                         Else
                             Task_Popup_minutes = CInt(Row.Item("Value"))
                         End If
+                    Case "PATH_ADDON"
+                        If Row.Item("Value") = String.Empty Then
+                            MY_ADDON_PATH = ""
+                        Else
+                            MY_ADDON_PATH = Row.Item("Value")
+                        End If
                 End Select
             Next
             'update 1.1
@@ -198,6 +205,13 @@ Module ModuleMySettings
                 DT.Rows.Add(newRow)
                 DT.WriteXml(ConfigPath)
             End If
+            If rowresult.Contains("PATH_ADDON") = False Then
+                Dim newRow As DataRow = DT.NewRow()
+                newRow("ConfigName") = "PATH_ADDON"
+                newRow("Value") = ""
+                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)
@@ -290,6 +304,10 @@ Module ModuleMySettings
             newRow12("ConfigName") = "WAN_ENVIRONMENT"
             newRow12("Value") = "False"
             table.Rows.Add(newRow12)
+            Dim newRow13 As DataRow = table.NewRow()
+            newRow13("ConfigName") = "PATH_ADDON"
+            newRow13("Value") = ""
+            table.Rows.Add(newRow13)
 
             table.AcceptChanges()
             ClassLogger.Add(">> CreateConfigTable su...", False)