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

MS Update logit

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-28 14:07:31 +01:00
parent 24d01a8933
commit a56087cab3
8 changed files with 181 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -6795,7 +6795,7 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.WaitCursor
Dim allow_Open As Boolean = False
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID) 'clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
@@ -6813,15 +6813,6 @@ Public Class frmConstructor_Main
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
'If File.Exists(row.Item("DOC_PATH")) = False Then
' If clsWD_GET.WDFile_exists(ClassWindreamDocGrid.SELECTED_DOC_PATH, DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True) = True Then
' ClassHelper.MSGBOX_Handler("ERROR", "File-Open", "File is existing in windream, but it seems as You don't have access to windream-drive! " & vbNewLine & "Please check Your windream-drive and contact your admin!" & vbNewLine & "DOC-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString)
' Exit Sub
' Else
' ClassHelper.MSGBOX_Handler("ERROR", "File-Open", "This file is not existing in windream! " & vbNewLine & "Please contact your admin!" & vbNewLine & "DOC-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString)
' Exit Sub
' End If
'End If
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
Else
@@ -6927,7 +6918,7 @@ Public Class frmConstructor_Main
e.Cancel = True
End If
Me.Cursor = Cursors.WaitCursor
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID) 'clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"