MS

app/VERSION_CHECKER/ModuleMySettings.vb

@@ -8,14 +8,19 @@ Module ModuleMySettings
     Public DTEXCLUDE_FILES As DataTable
     Public USER_USERNAME As String = ""
     Public USER_GUID As Integer
+    Public USER_LANGUAGE As String = "de-DE"
 
     Public MyConnectionString As String = ""
     Public MyServer_UpdatePath As String = ""
-    Public VERSION_SERVER As String = ""
-    Public VERSION_USER As String = "1.0.0.0"
+    Public VERSION_SERVER
+    Public VERSION_USER
+    Public FORCE_UPDATE As Boolean = False
+    Public VERSIONS_FOR_FORCE_UPDATE As String = ""
     Public FOLDER_TEMP As String
     Public LogErrorsOnly As Boolean = True
-    Public MY_ADDON_PATH As String
+    Public MY_INSTALL_PATH As String
+    Public DT_UPDATE_ITEMS As DataTable
+    Public ERROR_WHILE_UPDATING As Boolean = False
 
     Public Function LoadFileExclusion()
         Dim rowresult As String = ""
@@ -143,38 +148,4 @@ Module ModuleMySettings
         End Try
 
     End Function
-
-    Private Function CreateConfigTable() As DataTable
-        Try
-            ' Create sample Customers table, in order
-            ' to demonstrate the behavior of the DataTableReader.
-            Dim table As New DataTable
-            table.TableName = "MyConfig"
-
-            ' Create two columns, ID and Name.
-            Dim idColumn As DataColumn = table.Columns.Add("ID", _
-                GetType(System.Int32))
-
-            idColumn.AutoIncrement = True
-            idColumn.AutoIncrementSeed = 0
-            idColumn.AutoIncrementStep = 1
-            table.Columns.Add("ConfigName", GetType(System.String))
-            table.Columns.Add("Value", GetType(System.String))
-            'Set the ID column as the primary key column.
-            table.PrimaryKey = New DataColumn() {idColumn}
-            Dim newRow As DataRow = table.NewRow()
-            newRow("ConfigName") = "MyConnectionString"
-            newRow("Value") = ""
-            table.Rows.Add(newRow)
-            Dim newRow1 As DataRow = table.NewRow()
-            newRow1("ConfigName") = "LogErrorsOnly"
-            newRow1("Value") = "True"
-            table.Rows.Add(newRow1)
-            table.AcceptChanges()
-            Return table
-        Catch ex As Exception
-            MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return Nothing
-        End Try
-    End Function
 End Module