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

Merge branch 'master' of http://jennej@172.24.11.74:90/scm/git/RecordOrganizer

Browse Source
This commit is contained in:
JenneJ
2016-10-26 12:48:19 +02:00
parent 5ee2a82443 1a8b382732
commit 3f4e1d3c38
12 changed files with 1425 additions and 920 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -185,6 +185,7 @@ Public Class frmConstructor_Main
Private IW_USER As String
Private IW_COMMENT As String
Private BACKGROUND_HELPER As ClassBackgroundHelper
Private ROW_READ_ONLY As Boolean = False
Public Enum EditState
None
@@ -5666,9 +5667,11 @@ Public Class frmConstructor_Main
File_in_Work()
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
If Not IsNothing(Result) Then
ROW_READ_ONLY = False
Select Case Result.ToString
Case "R"
ContextMenu_Read()
ROW_READ_ONLY = True
Case "RW"
ContextMenu_Write()
Case "RWA"
@@ -5820,23 +5823,30 @@ Public Class frmConstructor_Main
Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
CURRENT_RECORD_ID = RECORD_ID
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (6)!", MsgBoxStyle.Exclamation)
MsgBox("Could not read file Parameters (6)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
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 USER_LANGUAGE <> "de-DE" Then
msg = "The rights were successfully renewed!"
End If
MsgBox(msg, MsgBoxStyle.Information)
Else
msg = "Unerwarteter Fehler im Rechtemodul. Bitte prüfen Sie die Logdatei!"
err = True
msg = String.Format("Unerwarteter Fehler im Rechtemodul für Datei: " & vbNewLine & "{0}" & vbNewLine & "Bitte prüfen Sie die Logdatei!", row.Item("DOC_PATH"))
If USER_LANGUAGE <> "de-DE" Then
msg = "Unexpected error in rights-module. Please check the logfile!"
msg = String.Format("Unexpected error in rights-module for file: " & vbNewLine & "{0}" & vbNewLine & "Please check the logfile!", row.Item("DOC_PATH"))
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
End If
Next
Cursor = Cursors.Default
If err = False Then
If USER_LANGUAGE <> "de-DE" Then
msg = "The rights were successfully renewed!"
End If
MsgBox(msg, MsgBoxStyle.Information)
End If
End Sub
@@ -6058,9 +6068,9 @@ Public Class frmConstructor_Main
Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click
Dim result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
If Not IsNothing(result) Then
Dim msg = "Das aktuelle Recht für Sie ist: " & vbNewLine & vbNewLine
Dim msg = "Das aktuelle Recht für Sie ist: "
If USER_LANGUAGE <> "de-DE" Then
msg = "Your current right is: " & vbNewLine & vbNewLine & vbNewLine
msg = "Your current right is: "
End If
msg = msg & result.ToString
msg = msg & vbNewLine & vbNewLine & "R:" & vbTab & "Read" & vbNewLine & "W:" & vbTab & "Write" & vbNewLine & "A:" & vbTab & "Admin"