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

MS_08.04

Browse Source
This commit is contained in:
SchreiberM
2016-04-08 14:55:25 +02:00
parent d1eb7ecb5b
commit ef2a87d849
47 changed files with 12718 additions and 9964 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -94,14 +94,14 @@ Module ModuleMySettings
Dim DT As DataTable
'if file doesn't exist, create the file with its default xml table
If Not File.Exists(ConfigPath) Then
ClassLogger.Add(">> ConfigFile wird erzeugt in: " & ConfigPath, False)
ClassLogger.Add(">> ConfigFile was created in: " & ConfigPath, False)
DT = CreateConfigTable()
DT.WriteXml(ConfigPath)
ClassLogger.Add(">> Standardwerte wurden gespeichert.", False)
ClassLogger.Add(">> Defaultvalues were saved.", False)
End If
DT = GetTablefromXML(ConfigPath)
If DT Is Nothing Then
MsgBox("Konfiguration konnte nicht geladen werden. Check LogFile!", MsgBoxStyle.Critical)
MsgBox("Configuration could not be loaded!! Check LogFile!", MsgBoxStyle.Critical)
Return False
End If
For Each Row As DataRow In DT.Rows
@@ -288,7 +288,7 @@ Module ModuleMySettings
table.Rows.Add(newRow11)
table.AcceptChanges()
ClassLogger.Add(">> Tabelle wurde erzeugt...", False)
ClassLogger.Add(">> CreateConfigTable su...", False)
Return table
Catch ex As Exception
MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -314,7 +314,7 @@ Module ModuleMySettings
DT.AcceptChanges()
DT.WriteXml(ConfigPath)
Else
MsgBox("Setting konnte nicht gespeichert werden! Prüfen Sie dei logfile.", MsgBoxStyle.Critical)
MsgBox("Setting could not be saved! Check logfile.", MsgBoxStyle.Critical)
End If
Catch ex As Exception
@@ -326,8 +326,7 @@ Module ModuleMySettings
End Function
Public Function Settings_LoadBasicConfig()
Try
ClassDatabase.Init()
Dim sql As String = "select * from tbdd_Modules where NAME = 'Record-Organizer'"
Dim sql As String = "select * from tbdd_Modules where UPPER(NAME) = UPPER('Record-Organizer')"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If DT.Rows.Count = 1 Then
vWLaufwerk = DT.Rows(0).Item("STRING1")