AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj für MS 25.01.17

Browse Source
This commit is contained in:
SchreiberM
2017-01-25 10:41:50 +01:00
parent 9d485d82f0
commit 64ef01a393
13 changed files with 1299 additions and 986 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD-Record-Organiser/ModuleMySettings.vb
View File

@@ -1,12 +1,12 @@
Imports System.IO
Imports System.Xml
Imports DD_LIB_Standards
Module ModuleMySettings
Public PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml")
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Public MyConnectionString As String = ""
Public LogErrorsOnly As Boolean = True
Public Sett_TaskOverviewKeepInFront As Boolean = True
Public Sett_LoadWD_Docs As Boolean = True
@@ -182,6 +182,7 @@ Module ModuleMySettings
ClassProxy.MyLinkedServer = Row.Item("Value")
Case "LogErrorsOnly"
LogErrorsOnly = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))
Case "Sett_LoadWD_Docs"
@@ -291,7 +292,7 @@ Module ModuleMySettings
End Try
End Function
Private Function CreateConfigTable() As DataTable
Try
' Create sample Customers table, in order