jj für MS 25.01.17

This commit is contained in:
SchreiberM
2017-01-25 10:41:50 +01:00
parent 9d485d82f0
commit 64ef01a393
13 changed files with 1299 additions and 986 deletions

View File

@@ -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