MS clswindream entfernt Umstieg auf Modulwindream

app/DD-Record-Organizer/frmMain.vb

@@ -1,7 +1,7 @@
 Imports System.Globalization
 Imports System.Net
 Imports System.Threading
-Imports DD_LIB_Standards
+'Imports DD_LIB_Standards'
 Imports DevExpress.LookAndFeel
 Imports DevExpress.XtraBars
 Imports DevExpress.XtraBars.Ribbon
@@ -118,8 +118,8 @@ Public Class frmMain
                 MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             End Try
             LOGGER.Debug("FormLoad finished!")
-            Proxy_Server_Controls()
-            CONN_Manager
+            'Proxy_Server_Controls()
+            CONN_Manager()
 
         End If
     End Sub
@@ -148,21 +148,21 @@ Public Class frmMain
             LOGGER.Warn("Unexpected Error in CONN_Manager:" & ex.Message)
         End Try
     End Sub
-    Sub Proxy_Server_Controls()
-        Try
-            If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
-                'itemRefreshProxy.Visibility = BarItemVisibility.Always
-                LabelProxyServer.Visibility = BarItemVisibility.Always
-                LOGGER.Info("PROXY-SERVER is being used")
-            Else
-                'itemRefreshProxy.Visibility = BarItemVisibility.Never
-                LabelProxyServer.Visibility = BarItemVisibility.Never
-            End If
-        Catch ex As Exception
-            LOGGER.Warn("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message)
-        End Try
+    'Sub Proxy_Server_Controls()
+    '    Try
+    '        If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
+    '            'itemRefreshProxy.Visibility = BarItemVisibility.Always
+    '            LabelProxyServer.Visibility = BarItemVisibility.Always
+    '            LOGGER.Info("PROXY-SERVER is being used")
+    '        Else
+    '            'itemRefreshProxy.Visibility = BarItemVisibility.Never
+    '            LabelProxyServer.Visibility = BarItemVisibility.Never
+    '        End If
+    '    Catch ex As Exception
+    '        LOGGER.Warn("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message)
+    '    End Try
 
-    End Sub
+    'End Sub
     Public Sub RUN_TIMER()
         Try
             If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
@@ -698,19 +698,19 @@ Public Class frmMain
         Me.Cursor = Cursors.WaitCursor
         Dim upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 1 WHERE GUID = 1"
         MYDB_ECM.ExecuteNonQuery(upd, True)
-        If ClassProxy.Refresh_Object_Data() = True Then
-            If ClassProxy.PRPROXY_SYNC_DOC_OBJECTS() = True Then
-                Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
-                If USER_LANGUAGE <> "de-DE" Then
-                    msg = "All proxydata was refreshed successfully!"
-                End If
-                MessageBox.Show(msg, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
-            Else
-                MessageBox.Show("Error while refreshing proxy-data (Doc)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
-            End If
-        Else
-            MessageBox.Show("Error while refreshing proxy-data (objects)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
-        End If
+        'If ClassProxy.Refresh_Object_Data() = True Then
+        '    If ClassProxy.PRPROXY_SYNC_DOC_OBJECTS() = True Then
+        '        Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
+        '        If USER_LANGUAGE <> "de-DE" Then
+        '            msg = "All proxydata was refreshed successfully!"
+        '        End If
+        '        MessageBox.Show(msg, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        '    Else
+        '        MessageBox.Show("Error while refreshing proxy-data (Doc)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        '    End If
+        'Else
+        '    MessageBox.Show("Error while refreshing proxy-data (objects)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        'End If
         upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 0, LAST_SYNC = GETDATE() WHERE GUID = 1"
         MYDB_ECM.ExecuteNonQuery(upd, True)
         Me.Cursor = Cursors.Default
@@ -738,7 +738,7 @@ Public Class frmMain
             TimerTasks.Enabled = False
             TimerTasks.Stop()
         End If
-        Proxy_Server_Controls()
+        'Proxy_Server_Controls()
         RUN_TIMER()
 
     End Sub
@@ -889,11 +889,6 @@ Public Class frmMain
         OpenObjecttypeConfig()
     End Sub
 
-    Private Sub BarButtonItem22_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem22.ItemClick
-        Close_Maximized_Forms()
-        OpenWindream_Files()
-    End Sub
-
     Private Sub BarButtonItem8_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem8.ItemClick
         Close_Maximized_Forms()
         OpenRightsmanager()
@@ -1050,7 +1045,7 @@ Public Class frmMain
 
                     If oSqlcon_Proxy <> String.Empty Then
                         SaveMySettingsValue("MyProxyConnectionString", oSqlcon_Proxy, "ConfigMain")
-                        ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy
+                        'ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy
                     End If
                     Dim sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE GUID = {0}", oINACTIVE_GUID)
                     MYDB_ECM.GetScalarValue(SQL)