MS Änderungen dokumnetart Konfiguration

app/DD-Record-Organizer/ClassUpdate.vb

@@ -21,13 +21,10 @@ Public Class ClassUpdate
     Public Shared UPDATE_ERROR As Boolean = False
 
     Private Shared RecExe_found As Boolean = False
-    Private Shared DT_USER_DATA As DataTable
+    Public Shared DT_USER_DATA As DataTable
     Private Shared USER_INFO1, USER_INFO2, USER_INFO3 As String
     Public Shared Function Init()
         Try
-            If InitInstallPath() = False Then
-
-            End If
             Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
             Dim KONFIG_DT As DataTable = clsDatabase.Return_Datatable(sql, False)
             If KONFIG_DT.Rows.Count = 1 Then
@@ -62,7 +59,7 @@ Public Class ClassUpdate
         End Try
 
     End Function
-    Private Shared Function InitInstallPath()
+    Public Shared Function InitInstallPath()
         Try
             Dim readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Digital Data\Record Organizer", "Path", Nothing)
             If Not IsNothing(readValue) Then