AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2023-11-23 10:07:00 +01:00
parent df489932df
commit d5e084ac6b
12 changed files with 94 additions and 408 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -6091,7 +6091,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
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"), True) = True Then
Dim oWMObject As WINDREAMLib.WMObject
Dim oReldocpath = ClassHelper.GetRelPath(row.Item("DOC_PATH"))
LOGGER.Info("oReldocpath: " & oReldocpath)
oWMObject = WMMOD.GetFileByPath(oReldocpath)
If ClassDOC_SEARCH.SET_WD_RIGHTS(oWMObject, row.Item("DOC_ID"), row.Item("DOC_PATH"), True) = True Then
Else
err = True