MS clswindream entfernt Umstieg auf Modulwindream

app/DD-Record-Organizer/ModuleMySettings.vb

@@ -1,6 +1,5 @@
 Imports System.IO
 Imports System.Xml
-Imports DD_LIB_Standards
 Imports DevExpress.LookAndFeel
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Windream
@@ -37,6 +36,7 @@ Module ModuleMySettings
     Public WM_DOMAIN As String = ""
     Public WM_USER As String = ""
     Public WM_USER_PW As String = ""
+    Public WM_IMPERSONATE_LOGIN As Boolean = True
     Public GridDocResult_BestFitColumns As Boolean = True
     Public SQL_FULLTEXT As String
     Public CAPTION_CONFIRMATION As String = "Bestätigung"
@@ -75,6 +75,8 @@ Module ModuleMySettings
     Public LOGCONFIG As LogConfig
     Public LOGGER As Logger
 
+    Public WM_RWA As String = ""
+
     Dim rowresult As String = ""
     Public Function LoadFileExclusion()
         Dim rowresult As String = ""
@@ -201,15 +203,12 @@ Module ModuleMySettings
                                 connstring = Row.Item("Value").ToString
                             End If
 
-                            ClassProxy.MyPROXYConnectionString = connstring
-                        Else
-                            ClassProxy.MyPROXYConnectionString = ""
                         End If
                     Case "MyLinkedServer"
-                        ClassProxy.MyLinkedServer = Row.Item("Value")
+                        'ClassProxy.MyLinkedServer = Row.Item("Value")
                     Case "LogErrorsOnly"
                         DEBUG = CBool(Row.Item("Value"))
-                        clsCURRENT.LOG_ERRORS_ONLY = DEBUG
+                        'DD_LIB_Standards.clsCURRENT.LOG_ERRORS_ONLY = DEBUG
                         LOGCONFIG.Debug = DEBUG
                     Case "Sett_TaskOverviewKeepInFront"
                         Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))