jj für MS 25.01.17
This commit is contained in:
@@ -1,6 +1,7 @@
|
||||
Imports System.IO
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DD_LIB_Standards
|
||||
|
||||
Public Class frmRecordView
|
||||
Private recordView As ClassRecordView
|
||||
@@ -163,7 +164,7 @@ Public Class frmRecordView
|
||||
AddressOf OnDateSelectedValueChanged,
|
||||
AddressOf OnTextSelectedValueChanged,
|
||||
AddressOf OnCheckboxValueChanged,
|
||||
"RECORD")
|
||||
"RECORD", JUMP_RECORD_ID)
|
||||
End If
|
||||
Else
|
||||
Dim msg = "Keine Windream-Dokumente für Record: " & JUMP_RECORD_ID & " gefunden"
|
||||
@@ -699,7 +700,7 @@ Public Class frmRecordView
|
||||
|
||||
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
|
||||
Dim Result = clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
|
||||
If Not IsNothing(Result) Then
|
||||
|
||||
Select Case Result.ToString
|
||||
|
||||
Reference in New Issue
Block a user