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

MS - 21.09

Browse Source
This commit is contained in:
SchreiberM
2015-09-21 11:56:47 +02:00
parent 8e64871903
commit be8c92ab8a
22 changed files with 1152 additions and 732 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -10,6 +10,8 @@ Module ModuleMySettings
Public Sett_LoadWD_Docs As Boolean = True
Public WDResultListCount As Integer = 300
Public Sett_ShowQuickMenue As Boolean = True
Public Sett_ConstructorStart As Integer
Public WD_ShowEnitityDocs As Boolean = True
Public WD_ShowDocs As Boolean = False
@@ -23,7 +25,7 @@ Module ModuleMySettings
Public USER_IS_ADMIN = False
Dim rowresult As String = ""
Public Function Settings_Load()
Public Function MySettings_Load()
Try
Dim DT As DataTable
'if file doesn't exist, create the file with its default xml table
@@ -91,6 +93,8 @@ Module ModuleMySettings
WD_IndexDeleteDocs = CBool(Row.Item("Value"))
Case "WD_ShowDocs"
WD_ShowDocs = CBool(Row.Item("Value"))
Case "Sett_ConstructorStart"
Sett_ConstructorStart = CInt(Row.Item("Value"))
End Select
Next
'update 1.1
@@ -101,6 +105,13 @@ Module ModuleMySettings
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
If rowresult.Contains("Sett_ConstructorStart") = False Then
Dim newRow As DataRow = DT.NewRow()
newRow("ConfigName") = "Sett_ConstructorStart"
newRow("Value") = "0"
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)
@@ -176,6 +187,10 @@ Module ModuleMySettings
newRow8("ConfigName") = "WD_ShowDocs"
newRow8("Value") = "False"
table.Rows.Add(newRow8)
Dim newRow9 As DataRow = table.NewRow()
newRow9("ConfigName") = "Sett_ConstructorStart"
newRow9("Value") = "0"
table.Rows.Add(newRow9)
table.AcceptChanges()
ClassLogger.Add(">> Tabelle wurde erzeugt...", False)
Return table