MS clswindream entfernt Umstieg auf Modulwindream

app/DD-Record-Organizer/Classes/ClassWDRights.vb

@@ -1,5 +1,5 @@
 Imports WINDREAMLib
-Imports DD_LIB_Standards
+'Imports DD_LIB_Standards
 Public Class ClassWDRights
 #Region "+++++ Konstanten +++++"
     Const REL_Document_AccessRight = "AccessRight"
@@ -42,12 +42,9 @@ Public Class ClassWDRights
             AD_DOMAIN = DT_KONFIG.Rows(0).Item("AD_DOMAIN")
             AD_USER = DT_KONFIG.Rows(0).Item("AD_USER")
             WD_RIGHT_ADMIN = DT_KONFIG.Rows(0).Item("WD_RIGHT")
-            If clsDatabase.DB_PROXY_INITIALIZED = True And ClassProxy.MyLinkedServer <> String.Empty Then
-                LOGGER.Info("User configured a proxy: " & ClassProxy.MyLinkedServer)
-                AD_SERVER = ClassProxy.MyLinkedServer
-            Else
-                AD_SERVER = DT_KONFIG.Rows(0).Item("AD_SERVER")
-            End If
+
+            AD_SERVER = DT_KONFIG.Rows(0).Item("AD_SERVER")
+
 
             Dim PWplainText As String
             Dim wrapper As New ClassEncryption("!35452didalog=")
@@ -95,23 +92,12 @@ Public Class ClassWDRights
                 DT_GROUP_RIGHT = MYDB_ECM.GetDatatable(sql)
                 If IsNothing(DT_USER_RIGHT) Then
                     Dim msg = "Error while receiving rights for DocID"
-                    clsLogger.Add(msg)
+                    LOGGER.Warn(msg)
                     Return False
                 Else
                     LOGGER.Debug(String.Format("Amount of Userrights: {0}", DT_USER_RIGHT.Rows.Count))
                 End If
                 LOGGER.Debug(String.Format("Amount of Grouprights: {0}", DT_GROUP_RIGHT.Rows.Count))
-                'Try
-                '    'Object definieren
-
-                '    oWMObject = WMCLASS.GetFileByPath(reldocpath) ' oSession.GetWMObjectByPath(1, reldocpath)
-                '    LOGGER.Debug("oWMObject created.")
-                'Catch ex As Exception
-                '    Dim msg = "ClassWDRights - Error GetWMObjectByPath: " & reldocpath & vbNewLine & Err.Description
-                '    LOGGER.Warn(msg)
-                '    LOGGER.Error(ex)
-                '    Return False
-                'End Try
                 Dim lret
                 Try
                     ' Objekt muss zur Rechteänderung gelockt werden
@@ -257,7 +243,7 @@ Public Class ClassWDRights
                             LOGGER.Debug("got Group...")
                         Catch ex As Exception
                             Dim msg = String.Format("Could not create windream-Usersession for group '{0}' - check whether group exists in windream!", StringGroupRight)
-                            clsLogger.Add(msg)
+                            LOGGER.Warn(msg)
                             MSG_RESULT &= msg & vbNewLine
                             Continue For
                         End Try
@@ -267,7 +253,7 @@ Public Class ClassWDRights
                                 LOGGER.Debug("Right was set...")
                             Catch ex As Exception
                                 Dim msg = String.Format("Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message)
-                                clsLogger.Add(msg)
+                                LOGGER.Warn(msg)
                                 Continue For
                             End Try
                         End If
@@ -287,7 +273,7 @@ Public Class ClassWDRights
                                 _right = "READ WRITE"
                         End Select
                         MSG_RESULT &= String.Format("Error while working on RightChange2:" & vbNewLine & "Fileright: {0}" & vbNewLine & "Group: {1} " & vbNewLine & "File: {2}", _right, StringGroupRight, reldocpath) & vbNewLine
-                        clsLogger.Add(ex.Message)
+                        LOGGER.Warn(ex.Message)
                     End Try
                 Next