MS_06032017
This commit is contained in:
SchreiberM
@@ -443,40 +443,57 @@ Public Class ClassDOC_SEARCH
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function SET_WD_RIGHTS(ByVal RESULT_DOCID, ByVal RESULT_DOC_PATH, ByVal ENTITY_ID)
|
||||
Public Shared Function SET_WD_RIGHTS(ByVal RESULT_DOCID, ByVal RESULT_DOC_PATH)
|
||||
Try
|
||||
If CURRENT_RECORD_ID = 0 Then
|
||||
MsgBox("No Record selected - Please select one!", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("#### SETTING RIGHTS FPOR FILE ######", False)
|
||||
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME)
|
||||
If DD_Rights.clsDatabase.Init(MyConnectionString) = True Then
|
||||
If DD_Rights.ClassRights.Init(ENTITY_ID, LogErrorsOnly) = True Then
|
||||
If DD_Rights.ClassRights.Collect_Users(CURRENT_RECORD_ID, ENTITY_ID) = True Then
|
||||
If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then
|
||||
If DD_Rights.ClassRights.MSG_RESULT <> "" Then
|
||||
Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "Attention: some rights could not be set: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
|
||||
End If
|
||||
MsgBox(msg, MsgBoxStyle.Exclamation)
|
||||
Return True
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("#### SETTING RIGHTS FOR FILE ######", False)
|
||||
If ClassWDRights.Init = True Then
|
||||
If ClassWDRights.Doc_Renew_Rights(RESULT_DOCID, RESULT_DOC_PATH, True) Then
|
||||
If ClassWDRights.MSG_RESULT <> "" Then
|
||||
Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & ClassWDRights.MSG_RESULT.MSG_RESULT
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "Attention: some rights could not be set: " & vbNewLine & ClassWDRights.MSG_RESULT.MSG_RESULT
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
ClassHelper.MSGBOX_Handler("INFO", "Information:", msg)
|
||||
End If
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
MsgBox("Could no initialize right-module - Check the log!", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
'DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME)
|
||||
'If DD_Rights.clsDatabase.Init(MyConnectionString) = True Then
|
||||
' If DD_Rights.ClassRights.Init(ENTITY_ID, LogErrorsOnly) = True Then
|
||||
' If DD_Rights.ClassRights.Collect_Users(CURRENT_RECORD_ID, ENTITY_ID) = True Then
|
||||
' If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then
|
||||
' If DD_Rights.ClassRights.MSG_RESULT <> "" Then
|
||||
' Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
|
||||
' If USER_LANGUAGE <> "de-DE" Then
|
||||
' msg = "Attention: some rights could not be set: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
|
||||
' End If
|
||||
' MsgBox(msg, MsgBoxStyle.Exclamation)
|
||||
' Return True
|
||||
' Else
|
||||
' Return True
|
||||
' End If
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'Else
|
||||
' Return False
|
||||
'End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in SET_WD_RIGHTS: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
|
||||
326
app/DD-Record-Organizer/ClassWDRights.vb
Normal file
326
app/DD-Record-Organizer/ClassWDRights.vb
Normal file
@@ -0,0 +1,326 @@
|
||||
Imports WINDREAMLib
|
||||
Public Class ClassWDRights
|
||||
#Region "+++++ Konstanten +++++"
|
||||
Const REL_Document_AccessRight = "AccessRight"
|
||||
Const COL_AccessRight_AccessRightID = "dwAccessRightID"
|
||||
Const COL_AccessRight_AccessRight = "dwAccessRight"
|
||||
Const REL_AccessRight_UserOrGroup = "AccessRightUserOrGroup"
|
||||
|
||||
|
||||
Const WMAccessRightUndefined = 0
|
||||
Const WMAccessRightRead = 1
|
||||
Const WMAccessRightWrite = 2
|
||||
Const WMAccessRightReadWrite = 3
|
||||
Const WMAccessRightAdmin = 4
|
||||
Const WMAccessRightAllRights = 7 ' doc+folder: read, write and admin access
|
||||
|
||||
Const WMUserTypeMain = 1
|
||||
Const WMUserTypeNormal = 4
|
||||
Const WMUserTypeInactive = 8
|
||||
|
||||
Const WMGroupTypeAdmin = 2
|
||||
|
||||
Const WMEntityGroups = 13
|
||||
Const WMEntityUser = 18
|
||||
Const WMGroupTypeAll = 127
|
||||
|
||||
#End Region
|
||||
#Region "+++++ Variables +++++"
|
||||
Public Shared AD_DOMAIN As String
|
||||
Public Shared AD_USER As String
|
||||
Public Shared AD_USER_PW As String
|
||||
Public Shared AD_SERVER As String
|
||||
Public Shared WD_RIGHT_ADMIN As Integer
|
||||
Public Shared MSG_RESULT = ""
|
||||
#End Region
|
||||
Public Shared Function Init()
|
||||
Try
|
||||
MSG_RESULT = ""
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Init ClassWDRights started - " & Now & " ..."), False)
|
||||
Dim DT_KONFIG As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1")
|
||||
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")
|
||||
AD_SERVER = DT_KONFIG.Rows(0).Item("AD_SERVER")
|
||||
Dim PWplainText As String
|
||||
Dim wrapper As New ClassEncryption("!35452didalog=")
|
||||
' DecryptData throws if the wrong password is used.
|
||||
Try
|
||||
PWplainText = wrapper.DecryptData(DT_KONFIG.Rows(0).Item("AD_USER_PW"))
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("The Userpassword could not be decrypted", False)
|
||||
PWplainText = ""
|
||||
End Try
|
||||
AD_USER_PW = PWplainText
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> ClassWDRights Init'ed - AD_DOMAIN: '{0}', AD_USER: '{1}', AD_SERVER: '{2}'", AD_DOMAIN, AD_USER, AD_SERVER), False)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in ClassRights Init: " & vbNewLine & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
'''Renews all rights of the passed doc-file
|
||||
''' </summary>
|
||||
''' <returns>Returns Boolean True when successfull</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function Doc_Renew_Rights(doc_id As Integer, docpath As String, deleterights As Boolean) As Boolean
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Working on rights for file: {0}", docpath), False)
|
||||
Dim DT_USER_RIGHT As DataTable
|
||||
Dim oSession
|
||||
Dim oWMObject As WINDREAMLib.WMObject
|
||||
Dim UserGroupRelation
|
||||
Dim UserOrGroup
|
||||
Dim oUSer
|
||||
Try
|
||||
'Dedizierte Session herstellen
|
||||
oSession = GetWMSessionAsUser(AD_DOMAIN, AD_SERVER, AD_USER, AD_USER_PW)
|
||||
Catch ex As Exception
|
||||
Dim msg = "Error in Doc_Renew_Rights-GetWMSessionAsUser : " & ex.Message
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
If Not IsNothing(oSession) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Session created.", False)
|
||||
Dim sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0})", doc_id)
|
||||
DT_USER_RIGHT = ClassDatabase.Return_Datatable(sql)
|
||||
If IsNothing(DT_USER_RIGHT) Then
|
||||
Dim msg = "Error while receiving rights for DocID"
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End If
|
||||
Try
|
||||
'Object definieren
|
||||
oWMObject = oSession.GetWMObjectByPath(0, docpath.Substring(2))
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Object created.", False)
|
||||
Catch ex As Exception
|
||||
Dim msg = "Error GetWMObjectByPath: (FDSR) " & docpath.Substring(2) & vbNewLine & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End Try
|
||||
Dim lret
|
||||
Try
|
||||
' Objekt muss zur Rechteänderung gelockt werden
|
||||
lret = oWMObject.LockRights()
|
||||
Catch ex As Exception
|
||||
Dim msg = "Error while locking file" & ex.Message
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Object locked.", False)
|
||||
If CBool(lret) = False Then
|
||||
Dim msg = "Error in setting lock .LockRights - Err.Number: " & Err.Number & vbCrLf & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End If
|
||||
|
||||
' Rechteträger-Liste holen
|
||||
Dim AccessRights
|
||||
AccessRights = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> AccessRights created.", False)
|
||||
'Bei Fehler in Rechteauswertung
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in setting REL_Document_AccessRight - Err.Number: " & Err.Number & vbCrLf & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End If
|
||||
'############################# Rechte löschen ################################################################################
|
||||
'#############################################################################################################################
|
||||
If deleterights = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> rights for document will now be deleted.", False)
|
||||
'Erst einmal alle anderen Rechte löschen
|
||||
Dim i As Integer = 1
|
||||
' und nun jeden Rechteträger verarbeiten
|
||||
For Each aRightRelation In AccessRights
|
||||
|
||||
' Auflistung der Rechteträger-Informationen holen
|
||||
UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup)
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in setting REL_AccessRight_UserOrGroup - Err.Number: " & Err.Number & vbCrLf & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End If
|
||||
|
||||
' Zugriff auf das Benutzer/Gruppen-Objekt
|
||||
UserOrGroup = UserGroupRelation.item(0)
|
||||
Dim _msg As String
|
||||
|
||||
If (UserOrGroup.aWMEntity = WMEntityGroups) Then
|
||||
_msg = "Right for Group '" & UserOrGroup.aName & "'"""
|
||||
Else
|
||||
_msg = "Right for User: '" & UserOrGroup.aName & "'"""
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} will now be deleted.", _msg), False)
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in setting UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End If
|
||||
|
||||
'einem Rechteträger ALLE Rechte zu entziehen
|
||||
'entfernt ihn gleichzeitig aus der Auflistung der Rechteträger
|
||||
Try
|
||||
AccessRights.Delete2(UserOrGroup, WMAccessRightAllRights)
|
||||
Catch ex As Exception
|
||||
Dim msg = "Error in AccessRights.Delete2: " & ex.Message
|
||||
ClassLogger.Add(msg, True)
|
||||
Continue For
|
||||
End Try
|
||||
i += 1
|
||||
_msg = _msg.Replace("'", "")
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} was deleted.", _msg), False)
|
||||
Next
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> All rights for doc were deleted....", False)
|
||||
End If
|
||||
|
||||
Err.Clear()
|
||||
' Wenn ALLE Rechteträger entfernt werden (FOR EACH),
|
||||
' dann muss mindestens EIN Rechteträger mit dem Recht zur Rechteänderung
|
||||
' wieder zugefügt werden!!!!! Dies ist der ADDI-Right User!
|
||||
'Für jeden User das Recht einzeln hinzufügen
|
||||
For Each User_Row As DataRow In DT_USER_RIGHT.Rows
|
||||
Dim fileright 'Recht als Integer
|
||||
Dim StringUserRight
|
||||
Try
|
||||
StringUserRight = AD_DOMAIN & "\" & User_Row.Item("USR_NAME")
|
||||
fileright = User_Row.Item("USR_RIGHT")
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Working on right for user-right: {0}-{1}", StringUserRight, fileright), False)
|
||||
Try
|
||||
' User holen
|
||||
oUSer = oSession.GetWMObjectByName(WMEntityUser, StringUserRight)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> got oUSer...", False)
|
||||
Catch ex As Exception
|
||||
Dim msg = String.Format(">> Could not create windream-Usersession for user '{0}' - check whether user is part of windream-group!", StringUserRight)
|
||||
ClassLogger.Add(msg, False)
|
||||
MSG_RESULT &= msg & vbNewLine
|
||||
Continue For
|
||||
End Try
|
||||
If Not IsNothing(oUSer) Then
|
||||
Try
|
||||
AccessRights.Insert2(oUSer, fileright) 'WMAccessRightAllRights)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Right was set...", False)
|
||||
Catch ex As Exception
|
||||
Dim msg = String.Format(">> Could not set right for user {0} - AccessRights.Insert2: {1}", StringUserRight, ex.Message)
|
||||
ClassLogger.Add(msg, True)
|
||||
Continue For
|
||||
End Try
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Dim _right
|
||||
Select Case fileright
|
||||
Case WMAccessRightRead
|
||||
_right = "READ"
|
||||
Case WMAccessRightWrite
|
||||
_right = "WRITE"
|
||||
Case WMAccessRightAdmin
|
||||
_right = "ADMIN"
|
||||
Case WMAccessRightAllRights
|
||||
_right = "ALL RIGHTS"
|
||||
Case WMAccessRightReadWrite
|
||||
_right = "READ WRITE"
|
||||
End Select
|
||||
MSG_RESULT &= String.Format("Error while working on RightChange:" & vbNewLine & "Fileright: {0}" & vbNewLine & "User: {1} " & vbNewLine & "File: {2}", _right, StringUserRight, docpath) & vbNewLine
|
||||
ClassLogger.Add(ex.Message)
|
||||
End Try
|
||||
Next
|
||||
Try
|
||||
'Speichern nicht vergessen
|
||||
oWMObject.Save()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc was saved...", False)
|
||||
Catch ex As Exception
|
||||
Dim msg = String.Format("Error at Object2Change.Save - DocID ({0}): {1}", doc_id, ex.Message)
|
||||
ClassLogger.Add(msg, True)
|
||||
If oWMObject.aLocked = True Then
|
||||
oWMObject.unlock()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc unlocked after error!", False)
|
||||
End If
|
||||
Return False
|
||||
End Try
|
||||
|
||||
'und der Vollständigkeit halber auch ein Unlock
|
||||
If oWMObject.aLocked = True Then
|
||||
Try
|
||||
oWMObject.unlock()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc was unlocked...", False)
|
||||
Catch ex As Exception
|
||||
Dim msg = "Fehler bei Unlock - Error: " & ex.Message
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End Try
|
||||
End If
|
||||
ClassHelper.InsertEssential_Log(doc_id, "DOC-ID", "Rights for doc successfully renewed - Doc_Renew_Rights")
|
||||
'jetzt True zurückgeben
|
||||
Return True
|
||||
Else
|
||||
Dim msg = "ERROR : no session could be created (3)!"
|
||||
ClassLogger.Add(msg, True)
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Unexpected Error while Doc_Renew_Rightss DocID: {0}", doc_id), True)
|
||||
Dim msg = "ErrorMessage: " & vbNewLine & ex.Message
|
||||
ClassLogger.Add(msg, False)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function GetWMSessionAsUser(Domain, ServerName, UserName, Password)
|
||||
Try
|
||||
Dim SessionAsUser
|
||||
Dim aConnect, aUserId, aSession
|
||||
|
||||
' Hilfsobjekte erschaffen, um eine Verbindung zum windream Server herzustellen
|
||||
' mit der gewünschten Benutzer-Identität
|
||||
aConnect = CreateObject("Windream.WMConnect")
|
||||
'Bei einer impersonifizierten Session ist zu beachten, dass die ModuleID 9 zu nutzen ist.
|
||||
'Wird keine Session-ID angegeben, hat die Session die ID 0 (‚Default‘).
|
||||
aConnect.ModuleId = 9
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in CreateObject (aConnect) - Err.Number: " & Err.Number & vbNewLine & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
|
||||
SessionAsUser = Nothing
|
||||
Return SessionAsUser
|
||||
End If
|
||||
|
||||
aUserId = CreateObject("WMOTool.WMUserIdentity")
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in CreateObject('WMOTool.WMUserIdentity') - Err.Number: " & Err.Number & vbNewLine & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
SessionAsUser = Nothing
|
||||
Return SessionAsUser
|
||||
End If
|
||||
|
||||
aUserId.aDomain = Domain
|
||||
aUserId.aServerName = ServerName
|
||||
aUserId.aUserName = UserName
|
||||
aUserId.aPassword = Password
|
||||
|
||||
aSession = aConnect.Login(aUserId)
|
||||
|
||||
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in Connect.Login(aUserId) - Err.Number: " & Err.Number & vbNewLine & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
SessionAsUser = Nothing
|
||||
Return SessionAsUser
|
||||
Else
|
||||
SessionAsUser = aSession
|
||||
If aSession.aLoggedin = True Then
|
||||
Return SessionAsUser
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Dim msg = "Unexpected Error in DDLibraries-GetWMSessionAsUser: " & ex.Message & vbNewLine & _
|
||||
String.Format("Domain: {0}, ServerName: {1}, UserName: {2}, Password: {3},", Domain, ServerName, UserName, Password)
|
||||
ClassLogger.Add(msg, True)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
End Function
|
||||
End Class
|
||||
@@ -273,6 +273,7 @@
|
||||
<Compile Include="ClassRightManagement.vb" />
|
||||
<Compile Include="ClassSAP.vb" />
|
||||
<Compile Include="ClassDOC_SEARCH.vb" />
|
||||
<Compile Include="ClassWDRights.vb" />
|
||||
<Compile Include="ClassWindreamDocGrid.vb" />
|
||||
<Compile Include="DD_DMSDataSet.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
|
||||
@@ -2636,7 +2636,7 @@
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>215</value>
|
||||
<value>25</value>
|
||||
</metadata>
|
||||
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
|
||||
<value>6, 13</value>
|
||||
|
||||
@@ -5641,7 +5641,7 @@ Public Class frmConstructor_Main
|
||||
Dim err As Boolean = False
|
||||
Cursor = Cursors.WaitCursor
|
||||
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
|
||||
If ClassDOC_SEARCH.SET_WD_RIGHTS(row.Item("DOC_ID"), row.Item("DOC_PATH"), ENTITY_ID) = True Then
|
||||
If ClassDOC_SEARCH.SET_WD_RIGHTS(row.Item("DOC_ID"), row.Item("DOC_PATH")) = True Then
|
||||
|
||||
Else
|
||||
err = True
|
||||
|
||||
@@ -227,18 +227,8 @@ Public Class frmWD_IndexFile
|
||||
If clsWindream.Create_Session() = False Then
|
||||
MsgBox("Could not create a windream-session!", MsgBoxStyle.Critical)
|
||||
Else
|
||||
If ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_DOC_ID, CURRENT_FILEIN_WD, CURRENT_ENTITY_ID) = False Then
|
||||
MsgBox("The rights for the new file could not be created! Please check the logfile!" & vbNewLine & _
|
||||
"ADDI will try to give You at least reading rights!", MsgBoxStyle.Exclamation)
|
||||
DD_Rights.ClassRights.SetRightExplicit(CURRENT_DOC_ID, CURRENT_FILEIN_WD, USER_USERNAME, 1)
|
||||
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "NEW FILE INDEXING - RIGHTS COULD NOT BE SET!!")
|
||||
End If
|
||||
'Create Session um Fehler bei windows Session nicht zu erzeugen
|
||||
FAU_AD_USER = ""
|
||||
|
||||
If CURRENT_REDUNDANT_FORM_ID <> 0 Then
|
||||
ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_DOC_ID, CURRENT_FILEIN_WD, CURRENT_REDUNDANT_FORM_ID)
|
||||
End If
|
||||
ClassFileResult.DocID = CURRENT_DOC_ID
|
||||
ClassFileResult.SET_DOCID_INDICES()
|
||||
If ClassDOC_SEARCH.CREATE_DOC_RELATED_LINKS(CURRENT_DOC_ID, CURRENT_RECORD_ID) = False Then
|
||||
@@ -247,6 +237,16 @@ Public Class frmWD_IndexFile
|
||||
stg = "Unexpected Error: Could not create the recordlink! Please check the log."
|
||||
End If
|
||||
MsgBox(stg, MsgBoxStyle.Critical, stg1)
|
||||
Else
|
||||
'If CURRENT_REDUNDANT_FORM_ID <> 0 Then
|
||||
' ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_DOC_ID, CURRENT_FILEIN_WD)
|
||||
'End If
|
||||
If ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_DOC_ID, CURRENT_FILEIN_WD) = False Then
|
||||
MsgBox("The rights for the new file could not be created! Please check the logfile!" & vbNewLine & _
|
||||
"ADDI will try to give You at least reading rights!", MsgBoxStyle.Exclamation)
|
||||
DD_Rights.ClassRights.SetRightExplicit(CURRENT_DOC_ID, CURRENT_FILEIN_WD, USER_USERNAME, 1)
|
||||
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "NEW FILE INDEXING - RIGHTS COULD NOT BE SET!!")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user